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.events
let apiVersion = "2015-10-07"
let endpointPrefix = "events"
let serviceFullName = "Amazon EventBridge"
let signatureVersion = "v4"
let protocol = "json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let targetPrefix = "AWSEvents"
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 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 RunCommandTargetValue =
  struct
    type nonrec t = string
    let context_ = "RunCommandTargetValue"
    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:"RunCommandTargetValue" j
    let to_json = simple_to_json to_value
  end
module Boolean =
  struct
    type nonrec t = bool
    let make i = i
    let of_string = Bool.of_string
    let to_value x = `Boolean x
    let to_query v = to_query to_value v
    let to_header x = Bool.to_string x
    let of_xml xml_arg0 =
      Bool.of_string (string_of_xml ~kind:"a boolean" xml_arg0)
    let of_json = bool_of_json
    let to_json = simple_to_json to_value
  end
module SensitiveString =
  struct
    type nonrec t = string
    let context_ = "SensitiveString"
    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:"SensitiveString" j
    let to_json = simple_to_json to_value
  end
module HeaderKey =
  struct
    type nonrec t = string
    let context_ = "HeaderKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:512) >>=
             (fun () ->
                check_pattern i ~pattern:"^[!#$%&'*+-.^_`|~0-9a-zA-Z]+$"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"HeaderKey" j
    let to_json = simple_to_json to_value
  end
module HeaderValueSensitive =
  struct
    type nonrec t = string
    let context_ = "HeaderValueSensitive"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:512) >>=
             (fun () ->
                check_pattern i
                  ~pattern:"^[ \\t]*[\\x20-\\x7E]+([ \\t]+[\\x20-\\x7E]+)*[ \\t]*$"));
        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:"HeaderValueSensitive" j
    let to_json = simple_to_json to_value
  end
module QueryStringKey =
  struct
    type nonrec t = string
    let context_ = "QueryStringKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:512) >>=
             (fun () -> check_pattern i ~pattern:"[^\\x00-\\x1F\\x7F]+"));
        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:"QueryStringKey" j
    let to_json = simple_to_json to_value
  end
module QueryStringValueSensitive =
  struct
    type nonrec t = string
    let context_ = "QueryStringValueSensitive"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:512) >>=
             (fun () ->
                check_pattern i
                  ~pattern:"[^\\x00-\\x09\\x0B\\x0C\\x0E-\\x1F\\x7F]+"));
        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:"QueryStringValueSensitive" j
    let to_json = simple_to_json to_value
  end
module CapacityProvider =
  struct
    type nonrec t = string
    let context_ = "CapacityProvider"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"CapacityProvider" j
    let to_json = simple_to_json to_value
  end
module CapacityProviderStrategyItemBase =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:100000) >>=
             (fun () -> check_int_min i ~min:0));
        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 CapacityProviderStrategyItemBase" 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 CapacityProviderStrategyItemWeight =
  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:0));
        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 CapacityProviderStrategyItemWeight" 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 AssignPublicIp =
  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 AssignPublicIp" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AssignPublicIp" j)
    let to_json = simple_to_json to_value
  end
module StringList =
  struct
    type nonrec t = String_.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:String_.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:String_.of_xml)
    let of_json j =
      list_of_json ~kind:"StringList" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module PlacementConstraintExpression =
  struct
    type nonrec t = string
    let context_ = "PlacementConstraintExpression"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:2000); 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:"PlacementConstraintExpression" j
    let to_json = simple_to_json to_value
  end
module PlacementConstraintType =
  struct
    type nonrec t =
      | DistinctInstance 
      | MemberOf 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DistinctInstance -> "distinctInstance"
      | MemberOf -> "memberOf"
      | Non_static_id s -> s
    let of_string =
      function
      | "distinctInstance" -> DistinctInstance
      | "memberOf" -> MemberOf
      | 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 PlacementConstraintType" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"PlacementConstraintType" j)
    let to_json = simple_to_json to_value
  end
module PlacementStrategyField =
  struct
    type nonrec t = string
    let context_ = "PlacementStrategyField"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:255); 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:"PlacementStrategyField" j
    let to_json = simple_to_json to_value
  end
module PlacementStrategyType =
  struct
    type nonrec t =
      | Random 
      | Spread 
      | Binpack 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Random -> "random"
      | Spread -> "spread"
      | Binpack -> "binpack"
      | Non_static_id s -> s
    let of_string =
      function
      | "random" -> Random
      | "spread" -> Spread
      | "binpack" -> Binpack
      | 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 PlacementStrategyType" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"PlacementStrategyType" j)
    let to_json = simple_to_json to_value
  end
module TagKey =
  struct
    type nonrec t = string
    let context_ = "TagKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagKey" j
    let to_json = simple_to_json to_value
  end
module TagValue =
  struct
    type nonrec t = string
    let context_ = "TagValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagValue" j
    let to_json = simple_to_json to_value
  end
module RunCommandTargetKey =
  struct
    type nonrec t = string
    let context_ = "RunCommandTargetKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^[\\p{L}\\p{Z}\\p{N}_.:/=+\\-@]*$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"RunCommandTargetKey" j
    let to_json = simple_to_json to_value
  end
module RunCommandTargetValues =
  struct
    type nonrec t = RunCommandTargetValue.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:50) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:RunCommandTargetValue.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:RunCommandTargetValue.of_xml)
    let of_json j =
      list_of_json ~kind:"RunCommandTargetValues"
        ~of_json:RunCommandTargetValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module SageMakerPipelineParameterName =
  struct
    type nonrec t = string
    let context_ = "SageMakerPipelineParameterName"
    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](-*[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:"SageMakerPipelineParameterName" j
    let to_json = simple_to_json to_value
  end
module SageMakerPipelineParameterValue =
  struct
    type nonrec t = string
    let context_ = "SageMakerPipelineParameterValue"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max: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:"SageMakerPipelineParameterValue" j
    let to_json = simple_to_json to_value
  end
module HealthCheck =
  struct
    type nonrec t = string
    let context_ = "HealthCheck"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1600) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^arn:aws([a-z]|\\-)*:route53:::healthcheck/[\\-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:"HealthCheck" j
    let to_json = simple_to_json to_value
  end
module Route =
  struct
    type nonrec t = string
    let context_ = "Route"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:9) >>=
             (fun () ->
                (check_string_max i ~max:20) >>=
                  (fun () -> check_pattern i ~pattern:"^[\\-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:"Route" j
    let to_json = simple_to_json to_value
  end
module ConnectionBodyParameter =
  struct
    type nonrec t =
      {
      key: String_.t option [@ocaml.doc "The key for the parameter."];
      value: SensitiveString.t option
        [@ocaml.doc "The value associated with the key."];
      isValueSecret: Boolean.t option
        [@ocaml.doc "Specifies whether the value is secret."]}
    let make ?key =
      fun ?value ->
        fun ?isValueSecret -> fun () -> { key; value; isValueSecret }
    let to_value x =
      structure_to_value
        [("Key", (Option.map x.key ~f:String_.to_value));
        ("Value", (Option.map x.value ~f:SensitiveString.to_value));
        ("IsValueSecret", (Option.map x.isValueSecret ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let isValueSecret =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "IsValueSecret") in
      let value =
        (Option.map ~f:SensitiveString.of_xml) (Xml.child xml_arg0 "Value") in
      let key = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Key") in
      make ?isValueSecret ?value ?key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let isValueSecret = field_map json__ "IsValueSecret" Boolean.of_json in
      let value = field_map json__ "Value" SensitiveString.of_json in
      let key = field_map json__ "Key" String_.of_json in
      make ?isValueSecret ?value ?key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Additional parameter included in the body. You can include up to 100 additional body parameters per request. An event payload cannot exceed 64 KB."]
module ConnectionHeaderParameter =
  struct
    type nonrec t =
      {
      key: HeaderKey.t option [@ocaml.doc "The key for the parameter."];
      value: HeaderValueSensitive.t option
        [@ocaml.doc "The value associated with the key."];
      isValueSecret: Boolean.t option
        [@ocaml.doc "Specifies whether the value is a secret."]}
    let make ?key =
      fun ?value ->
        fun ?isValueSecret -> fun () -> { key; value; isValueSecret }
    let to_value x =
      structure_to_value
        [("Key", (Option.map x.key ~f:HeaderKey.to_value));
        ("Value", (Option.map x.value ~f:HeaderValueSensitive.to_value));
        ("IsValueSecret", (Option.map x.isValueSecret ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let isValueSecret =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "IsValueSecret") in
      let value =
        (Option.map ~f:HeaderValueSensitive.of_xml)
          (Xml.child xml_arg0 "Value") in
      let key = (Option.map ~f:HeaderKey.of_xml) (Xml.child xml_arg0 "Key") in
      make ?isValueSecret ?value ?key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let isValueSecret = field_map json__ "IsValueSecret" Boolean.of_json in
      let value = field_map json__ "Value" HeaderValueSensitive.of_json in
      let key = field_map json__ "Key" HeaderKey.of_json in
      make ?isValueSecret ?value ?key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Additional parameter included in the header. You can include up to 100 additional header parameters per request. An event payload cannot exceed 64 KB."]
module ConnectionQueryStringParameter =
  struct
    type nonrec t =
      {
      key: QueryStringKey.t option
        [@ocaml.doc "The key for a query string parameter."];
      value: QueryStringValueSensitive.t option
        [@ocaml.doc
          "The value associated with the key for the query string parameter."];
      isValueSecret: Boolean.t option
        [@ocaml.doc "Specifies whether the value is secret."]}
    let make ?key =
      fun ?value ->
        fun ?isValueSecret -> fun () -> { key; value; isValueSecret }
    let to_value x =
      structure_to_value
        [("Key", (Option.map x.key ~f:QueryStringKey.to_value));
        ("Value", (Option.map x.value ~f:QueryStringValueSensitive.to_value));
        ("IsValueSecret", (Option.map x.isValueSecret ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let isValueSecret =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "IsValueSecret") in
      let value =
        (Option.map ~f:QueryStringValueSensitive.of_xml)
          (Xml.child xml_arg0 "Value") in
      let key =
        (Option.map ~f:QueryStringKey.of_xml) (Xml.child xml_arg0 "Key") in
      make ?isValueSecret ?value ?key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let isValueSecret = field_map json__ "IsValueSecret" Boolean.of_json in
      let value = field_map json__ "Value" QueryStringValueSensitive.of_json in
      let key = field_map json__ "Key" QueryStringKey.of_json in
      make ?isValueSecret ?value ?key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Any additional query string parameter for the connection. You can include up to 100 additional query string parameters per request. Each additional parameter counts towards the event payload size, which cannot exceed 64 KB."]
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 CapacityProviderStrategyItem =
  struct
    type nonrec t =
      {
      capacityProvider: CapacityProvider.t
        [@ocaml.doc "The short name of the capacity provider."];
      weight: CapacityProviderStrategyItemWeight.t option
        [@ocaml.doc
          "The weight value designates the relative percentage of the total number of tasks launched that should use the specified capacity provider. The weight value is taken into consideration after the base value, if defined, is satisfied."];
      base: CapacityProviderStrategyItemBase.t option
        [@ocaml.doc
          "The base value designates how many tasks, at a minimum, to run on the specified capacity provider. Only one capacity provider in a capacity provider strategy can have a base defined. If no value is specified, the default value of 0 is used."]}
    let context_ = "CapacityProviderStrategyItem"
    let make ?weight =
      fun ?base ->
        fun ~capacityProvider -> fun () -> { weight; base; capacityProvider }
    let to_value x =
      structure_to_value
        [("capacityProvider",
           (Some (CapacityProvider.to_value x.capacityProvider)));
        ("weight",
          (Option.map x.weight ~f:CapacityProviderStrategyItemWeight.to_value));
        ("base",
          (Option.map x.base ~f:CapacityProviderStrategyItemBase.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let base =
        (Option.map ~f:CapacityProviderStrategyItemBase.of_xml)
          (Xml.child xml_arg0 "base") in
      let weight =
        (Option.map ~f:CapacityProviderStrategyItemWeight.of_xml)
          (Xml.child xml_arg0 "weight") in
      let capacityProvider =
        CapacityProvider.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "capacityProvider") in
      make ?base ?weight ~capacityProvider ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let base =
        field_map json__ "base" CapacityProviderStrategyItemBase.of_json in
      let weight =
        field_map json__ "weight" CapacityProviderStrategyItemWeight.of_json in
      let capacityProvider =
        field_map_exn json__ "capacityProvider" CapacityProvider.of_json in
      make ?base ?weight ~capacityProvider ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The details of a capacity provider strategy. To learn more, see CapacityProviderStrategyItem in the Amazon ECS API Reference."]
module AwsVpcConfiguration =
  struct
    type nonrec t =
      {
      subnets: StringList.t
        [@ocaml.doc
          "Specifies the subnets associated with the task. These subnets must all be in the same VPC. You can specify as many as 16 subnets."];
      securityGroups: StringList.t option
        [@ocaml.doc
          "Specifies the security groups associated with the task. These security groups must all be in the same VPC. You can specify as many as five security groups. If you do not specify a security group, the default security group for the VPC is used."];
      assignPublicIp: AssignPublicIp.t option
        [@ocaml.doc
          "Specifies whether the task's elastic network interface receives a public IP address. You can specify ENABLED only when LaunchType in EcsParameters is set to FARGATE."]}
    let context_ = "AwsVpcConfiguration"
    let make ?securityGroups =
      fun ?assignPublicIp ->
        fun ~subnets -> fun () -> { securityGroups; assignPublicIp; subnets }
    let to_value x =
      structure_to_value
        [("Subnets", (Some (StringList.to_value x.subnets)));
        ("SecurityGroups",
          (Option.map x.securityGroups ~f:StringList.to_value));
        ("AssignPublicIp",
          (Option.map x.assignPublicIp ~f:AssignPublicIp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let assignPublicIp =
        (Option.map ~f:AssignPublicIp.of_xml)
          (Xml.child xml_arg0 "AssignPublicIp") in
      let securityGroups =
        (Option.map ~f:StringList.of_xml)
          (Xml.child xml_arg0 "SecurityGroups") in
      let subnets =
        StringList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Subnets") in
      make ?assignPublicIp ?securityGroups ~subnets ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let assignPublicIp =
        field_map json__ "AssignPublicIp" AssignPublicIp.of_json in
      let securityGroups =
        field_map json__ "SecurityGroups" StringList.of_json in
      let subnets = field_map_exn json__ "Subnets" StringList.of_json in
      make ?assignPublicIp ?securityGroups ~subnets ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This structure specifies the VPC subnets and security groups for the task, and whether a public IP address is to be used. This structure is relevant only for ECS tasks that use the awsvpc network mode."]
module PlacementConstraint =
  struct
    type nonrec t =
      {
      type_: PlacementConstraintType.t option
        [@ocaml.doc
          "The type of constraint. Use distinctInstance to ensure that each task in a particular group is running on a different container instance. Use memberOf to restrict the selection to a group of valid candidates."];
      expression: PlacementConstraintExpression.t option
        [@ocaml.doc
          "A cluster query language expression to apply to the constraint. You cannot specify an expression if the constraint type is distinctInstance. To learn more, see Cluster Query Language in the Amazon Elastic Container Service Developer Guide."]}
    let make ?type_ = fun ?expression -> fun () -> { type_; expression }
    let to_value x =
      structure_to_value
        [("type", (Option.map x.type_ ~f:PlacementConstraintType.to_value));
        ("expression",
          (Option.map x.expression ~f:PlacementConstraintExpression.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let expression =
        (Option.map ~f:PlacementConstraintExpression.of_xml)
          (Xml.child xml_arg0 "expression") in
      let type_ =
        (Option.map ~f:PlacementConstraintType.of_xml)
          (Xml.child xml_arg0 "type") in
      make ?expression ?type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let expression =
        field_map json__ "expression" PlacementConstraintExpression.of_json in
      let type_ = field_map json__ "type" PlacementConstraintType.of_json in
      make ?expression ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object representing a constraint on task placement. To learn more, see Task Placement Constraints in the Amazon Elastic Container Service Developer Guide."]
module PlacementStrategy =
  struct
    type nonrec t =
      {
      type_: PlacementStrategyType.t option
        [@ocaml.doc
          "The type of placement strategy. The random placement strategy randomly places tasks on available candidates. The spread placement strategy spreads placement across available candidates evenly based on the field parameter. The binpack strategy places tasks on available candidates that have the least available amount of the resource that is specified with the field parameter. For example, if you binpack on memory, a task is placed on the instance with the least amount of remaining memory (but still enough to run the task)."];
      field: PlacementStrategyField.t option
        [@ocaml.doc
          "The field to apply the placement strategy against. For the spread placement strategy, valid values are instanceId (or host, which has the same effect), or any platform or custom attribute that is applied to a container instance, such as attribute:ecs.availability-zone. For the binpack placement strategy, valid values are cpu and memory. For the random placement strategy, this field is not used."]}
    let make ?type_ = fun ?field -> fun () -> { type_; field }
    let to_value x =
      structure_to_value
        [("type", (Option.map x.type_ ~f:PlacementStrategyType.to_value));
        ("field", (Option.map x.field ~f:PlacementStrategyField.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let field =
        (Option.map ~f:PlacementStrategyField.of_xml)
          (Xml.child xml_arg0 "field") in
      let type_ =
        (Option.map ~f:PlacementStrategyType.of_xml)
          (Xml.child xml_arg0 "type") in
      make ?field ?type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let field = field_map json__ "field" PlacementStrategyField.of_json in
      let type_ = field_map json__ "type" PlacementStrategyType.of_json in
      make ?field ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The task placement strategy for a task or service. To learn more, see Task Placement Strategies in the Amazon Elastic Container Service Service Developer Guide."]
module Tag =
  struct
    type nonrec t =
      {
      key: TagKey.t
        [@ocaml.doc
          "A string you can use to assign a value. The combination of tag keys and values can help you organize and categorize your resources."];
      value: TagValue.t [@ocaml.doc "The value for the specified tag key."]}
    let context_ = "Tag"
    let make ~key = fun ~value -> fun () -> { key; value }
    let to_value x =
      structure_to_value
        [("Key", (Some (TagKey.to_value x.key)));
        ("Value", (Some (TagValue.to_value x.value)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        TagValue.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Value") in
      let key =
        TagKey.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Key") in
      make ~value ~key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map_exn json__ "Value" TagValue.of_json in
      let key = field_map_exn json__ "Key" TagKey.of_json in
      make ~value ~key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A key-value pair associated with an Amazon Web Services resource. In EventBridge, rules and event buses support tagging."]
module HeaderValue =
  struct
    type nonrec t = string
    let context_ = "HeaderValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:512) >>=
             (fun () ->
                check_pattern i
                  ~pattern:"^[ \\t]*[\\x20-\\x7E]+([ \\t]+[\\x20-\\x7E]+)*[ \\t]*$"));
        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:"HeaderValue" j
    let to_json = simple_to_json to_value
  end
module PathParameter =
  struct
    type nonrec t = string
    let context_ = "PathParameter"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"^(?!\\s*$).+"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PathParameter" j
    let to_json = simple_to_json to_value
  end
module QueryStringValue =
  struct
    type nonrec t = string
    let context_ = "QueryStringValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:512) >>=
             (fun () ->
                check_pattern i
                  ~pattern:"[^\\x00-\\x09\\x0B\\x0C\\x0E-\\x1F\\x7F]+"));
        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:"QueryStringValue" j
    let to_json = simple_to_json to_value
  end
module InputTransformerPathKey =
  struct
    type nonrec t = string
    let context_ = "InputTransformerPathKey"
    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:"InputTransformerPathKey" j
    let to_json = simple_to_json to_value
  end
module TargetInputPath =
  struct
    type nonrec t = string
    let context_ = "TargetInputPath"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:256); 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:"TargetInputPath" j
    let to_json = simple_to_json to_value
  end
module Sql =
  struct
    type nonrec t = string[@@ocaml.doc "A single Redshift SQL"]
    let context_ = "Sql"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:100000) >>=
             (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:"Sql" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "A single Redshift SQL"]
module RunCommandTarget =
  struct
    type nonrec t =
      {
      key: RunCommandTargetKey.t
        [@ocaml.doc "Can be either tag: tag-key or InstanceIds."];
      values: RunCommandTargetValues.t
        [@ocaml.doc
          "If Key is tag: tag-key, Values is a list of tag values. If Key is InstanceIds, Values is a list of Amazon EC2 instance IDs."]}
    let context_ = "RunCommandTarget"
    let make ~key = fun ~values -> fun () -> { key; values }
    let to_value x =
      structure_to_value
        [("Key", (Some (RunCommandTargetKey.to_value x.key)));
        ("Values", (Some (RunCommandTargetValues.to_value x.values)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let values =
        RunCommandTargetValues.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Values") in
      let key =
        RunCommandTargetKey.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Key") in
      make ~values ~key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let values =
        field_map_exn json__ "Values" RunCommandTargetValues.of_json in
      let key = field_map_exn json__ "Key" RunCommandTargetKey.of_json in
      make ~values ~key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about the EC2 instances that are to be sent the command, specified as key-value pairs. Each RunCommandTarget block can include only one key, but this key may specify multiple values."]
module SageMakerPipelineParameter =
  struct
    type nonrec t =
      {
      name: SageMakerPipelineParameterName.t
        [@ocaml.doc
          "Name of parameter to start execution of a SageMaker AI Model Building Pipeline."];
      value: SageMakerPipelineParameterValue.t
        [@ocaml.doc
          "Value of parameter to start execution of a SageMaker AI Model Building Pipeline."]}
    let context_ = "SageMakerPipelineParameter"
    let make ~name = fun ~value -> fun () -> { name; value }
    let to_value x =
      structure_to_value
        [("Name", (Some (SageMakerPipelineParameterName.to_value x.name)));
        ("Value", (Some (SageMakerPipelineParameterValue.to_value x.value)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        SageMakerPipelineParameterValue.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Value") in
      let name =
        SageMakerPipelineParameterName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~value ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value =
        field_map_exn json__ "Value" SageMakerPipelineParameterValue.of_json in
      let name =
        field_map_exn json__ "Name" SageMakerPipelineParameterName.of_json in
      make ~value ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Name/Value pair of a parameter to start execution of a SageMaker AI Model Building Pipeline."]
module NonPartnerEventBusArn =
  struct
    type nonrec t = string
    let context_ = "NonPartnerEventBusArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:512) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^arn:aws[a-z-]*:events:[a-z]+-[a-z-]+-\\d+:\\d{12}:event-bus/[\\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:"NonPartnerEventBusArn" j
    let to_json = simple_to_json to_value
  end
module Primary =
  struct
    type nonrec t =
      {
      healthCheck: HealthCheck.t
        [@ocaml.doc
          "The ARN of the health check used by the endpoint to determine whether failover is triggered."]}
    let context_ = "Primary"
    let make ~healthCheck = fun () -> { healthCheck }
    let to_value x =
      structure_to_value
        [("HealthCheck", (Some (HealthCheck.to_value x.healthCheck)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let healthCheck =
        HealthCheck.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "HealthCheck") in
      make ~healthCheck ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let healthCheck =
        field_map_exn json__ "HealthCheck" HealthCheck.of_json in
      make ~healthCheck ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The primary Region of the endpoint."]
module Secondary =
  struct
    type nonrec t =
      {
      route: Route.t [@ocaml.doc "Defines the secondary Region."]}
    let context_ = "Secondary"
    let make ~route = fun () -> { route }
    let to_value x =
      structure_to_value [("Route", (Some (Route.to_value x.route)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let route =
        Route.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Route") in
      make ~route ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let route = field_map_exn json__ "Route" Route.of_json in
      make ~route ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The secondary Region that processes events when failover is triggered or replication is enabled."]
module ResourceConfigurationArn =
  struct
    type nonrec t = string
    let context_ = "ResourceConfigurationArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^(?:^arn:[a-z0-9\\-]+:vpc-lattice:[a-zA-Z0-9\\-]+:\\d{12}:resourceconfiguration/rcfg-[0-9a-z]{17}$|^$)")));
        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:"ResourceConfigurationArn" j
    let to_json = simple_to_json to_value
  end
module ConnectionBodyParametersList =
  struct
    type nonrec t = ConnectionBodyParameter.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100) >>=
             (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ConnectionBodyParameter.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:ConnectionBodyParameter.of_xml)
    let of_json j =
      list_of_json ~kind:"ConnectionBodyParametersList"
        ~of_json:ConnectionBodyParameter.of_json j
    let to_json v = composed_to_json to_value v
  end
module ConnectionHeaderParametersList =
  struct
    type nonrec t = ConnectionHeaderParameter.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100) >>=
             (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ConnectionHeaderParameter.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:ConnectionHeaderParameter.of_xml)
    let of_json j =
      list_of_json ~kind:"ConnectionHeaderParametersList"
        ~of_json:ConnectionHeaderParameter.of_json j
    let to_json v = composed_to_json to_value v
  end
module ConnectionQueryStringParametersList =
  struct
    type nonrec t = ConnectionQueryStringParameter.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100) >>=
             (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ConnectionQueryStringParameter.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:ConnectionQueryStringParameter.of_xml)
    let of_json j =
      list_of_json ~kind:"ConnectionQueryStringParametersList"
        ~of_json:ConnectionQueryStringParameter.of_json j
    let to_json v = composed_to_json to_value v
  end
module AuthHeaderParameters =
  struct
    type nonrec t = string
    let context_ = "AuthHeaderParameters"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:512) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^[ \\t]*[^\\x00-\\x1F:\\x7F]+([ \\t]+[^\\x00-\\x1F:\\x7F]+)*[ \\t]*$")));
        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:"AuthHeaderParameters" j
    let to_json = simple_to_json to_value
  end
module AuthHeaderParametersSensitive =
  struct
    type nonrec t = string
    let context_ = "AuthHeaderParametersSensitive"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:512) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^[ \\t]*[^\\x00-\\x1F:\\x7F]+([ \\t]+[^\\x00-\\x1F:\\x7F]+)*[ \\t]*$")));
        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:"AuthHeaderParametersSensitive" j
    let to_json = simple_to_json to_value
  end
module GraphQLOperation =
  struct
    type nonrec t = string
    let context_ = "GraphQLOperation"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1048576) >>=
             (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:"GraphQLOperation" j
    let to_json = simple_to_json to_value
  end
module BatchArrayProperties =
  struct
    type nonrec t =
      {
      size: Integer.t option
        [@ocaml.doc
          "The size of the array, if this is an array batch job. Valid values are integers between 2 and 10,000."]}
    let make ?size = fun () -> { size }
    let to_value x =
      structure_to_value [("Size", (Option.map x.size ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let size = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "Size") in
      make ?size ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let size = field_map json__ "Size" Integer.of_json in make ?size ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The array properties for the submitted job, such as the size of the array. The array size can be between 2 and 10,000. If you specify array properties for a job, it becomes an array job. This parameter is used only if the target is an Batch job."]
module BatchRetryStrategy =
  struct
    type nonrec t =
      {
      attempts: Integer.t option
        [@ocaml.doc
          "The number of times to attempt to retry, if the job fails. Valid values are 1\226\128\14710."]}
    let make ?attempts = fun () -> { attempts }
    let to_value x =
      structure_to_value
        [("Attempts", (Option.map x.attempts ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attempts =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "Attempts") in
      make ?attempts ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attempts = field_map json__ "Attempts" Integer.of_json in
      make ?attempts ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The retry strategy to use for failed jobs, if the target is an Batch job. If you specify a retry strategy here, it overrides the retry strategy defined in the job definition."]
module ResourceArn =
  struct
    type nonrec t = string
    let context_ = "ResourceArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1600) >>=
             (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:"ResourceArn" 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_string_max i ~max:1600) >>=
             (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:"Arn" j
    let to_json = simple_to_json to_value
  end
module CapacityProviderStrategy =
  struct
    type nonrec t = CapacityProviderStrategyItem.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:6); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:CapacityProviderStrategyItem.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:CapacityProviderStrategyItem.of_xml)
    let of_json j =
      list_of_json ~kind:"CapacityProviderStrategy"
        ~of_json:CapacityProviderStrategyItem.of_json j
    let to_json v = composed_to_json to_value v
  end
module LaunchType =
  struct
    type nonrec t =
      | EC2 
      | FARGATE 
      | EXTERNAL 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | EC2 -> "EC2"
      | FARGATE -> "FARGATE"
      | EXTERNAL -> "EXTERNAL"
      | Non_static_id s -> s
    let of_string =
      function
      | "EC2" -> EC2
      | "FARGATE" -> FARGATE
      | "EXTERNAL" -> EXTERNAL
      | 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 LaunchType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"LaunchType" j)
    let to_json = simple_to_json to_value
  end
module LimitMin1 =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (check_int_min i ~min:1); i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string (string_of_xml ~kind:"an integer for LimitMin1" 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 NetworkConfiguration =
  struct
    type nonrec t =
      {
      awsvpcConfiguration: AwsVpcConfiguration.t option
        [@ocaml.doc
          "Use this structure to specify the VPC subnets and security groups for the task, and whether a public IP address is to be used. This structure is relevant only for ECS tasks that use the awsvpc network mode."]}
    let make ?awsvpcConfiguration = fun () -> { awsvpcConfiguration }
    let to_value x =
      structure_to_value
        [("awsvpcConfiguration",
           (Option.map x.awsvpcConfiguration ~f:AwsVpcConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let awsvpcConfiguration =
        (Option.map ~f:AwsVpcConfiguration.of_xml)
          (Xml.child xml_arg0 "awsvpcConfiguration") in
      make ?awsvpcConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let awsvpcConfiguration =
        field_map json__ "awsvpcConfiguration" AwsVpcConfiguration.of_json in
      make ?awsvpcConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This structure specifies the network configuration for an ECS task."]
module PlacementConstraints =
  struct
    type nonrec t = PlacementConstraint.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:10); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:PlacementConstraint.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:PlacementConstraint.of_xml)
    let of_json j =
      list_of_json ~kind:"PlacementConstraints"
        ~of_json:PlacementConstraint.of_json j
    let to_json v = composed_to_json to_value v
  end
module PlacementStrategies =
  struct
    type nonrec t = PlacementStrategy.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:5); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:PlacementStrategy.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:PlacementStrategy.of_xml)
    let of_json j =
      list_of_json ~kind:"PlacementStrategies"
        ~of_json:PlacementStrategy.of_json j
    let to_json v = composed_to_json to_value v
  end
module PropagateTags =
  struct
    type nonrec t =
      | TASK_DEFINITION 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | TASK_DEFINITION -> "TASK_DEFINITION" | Non_static_id s -> s
    let of_string =
      function | "TASK_DEFINITION" -> TASK_DEFINITION | 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 PropagateTags" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"PropagateTags" j)
    let to_json = simple_to_json to_value
  end
module ReferenceId =
  struct
    type nonrec t = string
    let context_ = "ReferenceId"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max: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:"ReferenceId" j
    let to_json = simple_to_json to_value
  end
module TagList =
  struct
    type nonrec t = Tag.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:Tag.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:Tag.of_xml)
    let of_json j = list_of_json ~kind:"TagList" ~of_json:Tag.of_json j
    let to_json v = composed_to_json to_value v
  end
module HeaderParametersMap =
  struct
    type nonrec t = (HeaderKey.t * HeaderValue.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 ->
                            ((HeaderKey.of_string chopped),
                              (HeaderValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (HeaderKey.to_value x) |>
                    (fun x -> (HeaderValue.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:HeaderKey.of_string
        ~of_json:HeaderValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module PathParameterList =
  struct
    type nonrec t = PathParameter.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:PathParameter.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:PathParameter.of_xml)
    let of_json j =
      list_of_json ~kind:"PathParameterList" ~of_json:PathParameter.of_json j
    let to_json v = composed_to_json to_value v
  end
module QueryStringParametersMap =
  struct
    type nonrec t = (QueryStringKey.t * QueryStringValue.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 ->
                            ((QueryStringKey.of_string chopped),
                              (QueryStringValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (QueryStringKey.to_value x) |>
                    (fun x ->
                       (QueryStringValue.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:QueryStringKey.of_string
        ~of_json:QueryStringValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module TransformerInput =
  struct
    type nonrec t = string
    let context_ = "TransformerInput"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:8192) >>=
             (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:"TransformerInput" j
    let to_json = simple_to_json to_value
  end
module TransformerPaths =
  struct
    type nonrec t = (InputTransformerPathKey.t * TargetInputPath.t) list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:100); 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 ->
                            ((InputTransformerPathKey.of_string chopped),
                              (TargetInputPath.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (InputTransformerPathKey.to_value x) |>
                    (fun x ->
                       (TargetInputPath.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:InputTransformerPathKey.of_string
        ~of_json:TargetInputPath.of_json j
    let to_json v = composed_to_json to_value v
  end
module TargetPartitionKeyPath =
  struct
    type nonrec t = string
    let context_ = "TargetPartitionKeyPath"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:256); 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:"TargetPartitionKeyPath" j
    let to_json = simple_to_json to_value
  end
module Database =
  struct
    type nonrec t = string[@@ocaml.doc "Redshift Database"]
    let context_ = "Database"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:64) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Database" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Redshift Database"]
module DbUser =
  struct
    type nonrec t = string[@@ocaml.doc "Database user name"]
    let context_ = "DbUser"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DbUser" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Database user name"]
module RedshiftSecretManagerArn =
  struct
    type nonrec t = string[@@ocaml.doc
                            "Optional SecretManager ARN which stores the database credentials"]
    let context_ = "RedshiftSecretManagerArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1600) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"(^arn:aws([a-z]|\\-)*:secretsmanager:[a-z0-9-.]+:.*)|(\\$(\\.[\\w_-]+(\\[(\\d+|\\*)\\])*)*)")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"RedshiftSecretManagerArn" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "Optional SecretManager ARN which stores the database credentials"]
module Sqls =
  struct
    type nonrec t = Sql.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:40) >>= (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:Sql.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:Sql.of_xml)
    let of_json j = list_of_json ~kind:"Sqls" ~of_json:Sql.of_json j
    let to_json v = composed_to_json to_value v
  end
module StatementName =
  struct
    type nonrec t = string[@@ocaml.doc
                            "A name for Redshift DataAPI statement which can be used as filter of ListStatement."]
    let context_ = "StatementName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:500) >>=
             (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:"StatementName" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "A name for Redshift DataAPI statement which can be used as filter of ListStatement."]
module MaximumEventAgeInSeconds =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:86400) >>=
             (fun () -> check_int_min i ~min:60));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for MaximumEventAgeInSeconds"
           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 MaximumRetryAttempts =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:185) >>= (fun () -> check_int_min i ~min:0));
        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 MaximumRetryAttempts" 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 RunCommandTargets =
  struct
    type nonrec t = RunCommandTarget.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:5) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:RunCommandTarget.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:RunCommandTarget.of_xml)
    let of_json j =
      list_of_json ~kind:"RunCommandTargets"
        ~of_json:RunCommandTarget.of_json j
    let to_json v = composed_to_json to_value v
  end
module SageMakerPipelineParameterList =
  struct
    type nonrec t = SageMakerPipelineParameter.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:SageMakerPipelineParameter.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:SageMakerPipelineParameter.of_xml)
    let of_json j =
      list_of_json ~kind:"SageMakerPipelineParameterList"
        ~of_json:SageMakerPipelineParameter.of_json j
    let to_json v = composed_to_json to_value v
  end
module MessageGroupId =
  struct
    type nonrec t = string
    let context_ = "MessageGroupId"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:100); 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:"MessageGroupId" j
    let to_json = simple_to_json to_value
  end
module EventResource =
  struct
    type nonrec t = string
    let context_ = "EventResource"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:2048); 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:"EventResource" j
    let to_json = simple_to_json to_value
  end
module EndpointEventBus =
  struct
    type nonrec t =
      {
      eventBusArn: NonPartnerEventBusArn.t
        [@ocaml.doc
          "The ARN of the event bus the endpoint is associated with."]}
    let context_ = "EndpointEventBus"
    let make ~eventBusArn = fun () -> { eventBusArn }
    let to_value x =
      structure_to_value
        [("EventBusArn",
           (Some (NonPartnerEventBusArn.to_value x.eventBusArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eventBusArn =
        NonPartnerEventBusArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EventBusArn") in
      make ~eventBusArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eventBusArn =
        field_map_exn json__ "EventBusArn" NonPartnerEventBusArn.of_json in
      make ~eventBusArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The event buses the endpoint is associated with."]
module ReplicationState =
  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 ReplicationState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ReplicationState" j)
    let to_json = simple_to_json to_value
  end
module FailoverConfig =
  struct
    type nonrec t =
      {
      primary: Primary.t [@ocaml.doc "The main Region of the endpoint."];
      secondary: Secondary.t
        [@ocaml.doc
          "The Region that events are routed to when failover is triggered or event replication is enabled."]}
    let context_ = "FailoverConfig"
    let make ~primary = fun ~secondary -> fun () -> { primary; secondary }
    let to_value x =
      structure_to_value
        [("Primary", (Some (Primary.to_value x.primary)));
        ("Secondary", (Some (Secondary.to_value x.secondary)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let secondary =
        Secondary.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Secondary") in
      let primary =
        Primary.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Primary") in
      make ~secondary ~primary ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let secondary = field_map_exn json__ "Secondary" Secondary.of_json in
      let primary = field_map_exn json__ "Primary" Primary.of_json in
      make ~secondary ~primary ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The failover configuration for an endpoint. This includes what triggers failover and what happens when it's triggered."]
module ResourceAssociationArn =
  struct
    type nonrec t = string
    let context_ = "ResourceAssociationArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:17) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^arn:[a-z0-9\\\\-]+:vpc-lattice:[a-zA-Z0-9\\\\-]+:\\\\d{12}:servicenetworkresourceassociation/snra-[0-9a-z]{17}$")));
        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:"ResourceAssociationArn" j
    let to_json = simple_to_json to_value
  end
module ConnectivityResourceConfigurationArn =
  struct
    type nonrec t =
      {
      resourceConfigurationArn: ResourceConfigurationArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Amazon VPC Lattice resource configuration for the resource endpoint."]}
    let context_ = "ConnectivityResourceConfigurationArn"
    let make ~resourceConfigurationArn =
      fun () -> { resourceConfigurationArn }
    let to_value x =
      structure_to_value
        [("ResourceConfigurationArn",
           (Some
              (ResourceConfigurationArn.to_value x.resourceConfigurationArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceConfigurationArn =
        ResourceConfigurationArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "ResourceConfigurationArn") in
      make ~resourceConfigurationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceConfigurationArn =
        field_map_exn json__ "ResourceConfigurationArn"
          ResourceConfigurationArn.of_json in
      make ~resourceConfigurationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Amazon Resource Name (ARN) of the Amazon VPC Lattice resource configuration for the resource endpoint."]
module ConnectionHttpParameters =
  struct
    type nonrec t =
      {
      headerParameters: ConnectionHeaderParametersList.t option
        [@ocaml.doc "Any additional header parameters for the connection."];
      queryStringParameters: ConnectionQueryStringParametersList.t option
        [@ocaml.doc
          "Any additional query string parameters for the connection."];
      bodyParameters: ConnectionBodyParametersList.t option
        [@ocaml.doc
          "Any additional body string parameters for the connection."]}
    let make ?headerParameters =
      fun ?queryStringParameters ->
        fun ?bodyParameters ->
          fun () ->
            { headerParameters; queryStringParameters; bodyParameters }
    let to_value x =
      structure_to_value
        [("HeaderParameters",
           (Option.map x.headerParameters
              ~f:ConnectionHeaderParametersList.to_value));
        ("QueryStringParameters",
          (Option.map x.queryStringParameters
             ~f:ConnectionQueryStringParametersList.to_value));
        ("BodyParameters",
          (Option.map x.bodyParameters
             ~f:ConnectionBodyParametersList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let bodyParameters =
        (Option.map ~f:ConnectionBodyParametersList.of_xml)
          (Xml.child xml_arg0 "BodyParameters") in
      let queryStringParameters =
        (Option.map ~f:ConnectionQueryStringParametersList.of_xml)
          (Xml.child xml_arg0 "QueryStringParameters") in
      let headerParameters =
        (Option.map ~f:ConnectionHeaderParametersList.of_xml)
          (Xml.child xml_arg0 "HeaderParameters") in
      make ?bodyParameters ?queryStringParameters ?headerParameters ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let bodyParameters =
        field_map json__ "BodyParameters"
          ConnectionBodyParametersList.of_json in
      let queryStringParameters =
        field_map json__ "QueryStringParameters"
          ConnectionQueryStringParametersList.of_json in
      let headerParameters =
        field_map json__ "HeaderParameters"
          ConnectionHeaderParametersList.of_json in
      make ?bodyParameters ?queryStringParameters ?headerParameters ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Any additional parameters for the connection."]
module ConnectionOAuthHttpMethod =
  struct
    type nonrec t =
      | GET 
      | POST 
      | PUT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | GET -> "GET"
      | POST -> "POST"
      | PUT -> "PUT"
      | Non_static_id s -> s
    let of_string =
      function
      | "GET" -> GET
      | "POST" -> POST
      | "PUT" -> PUT
      | 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 ConnectionOAuthHttpMethod" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ConnectionOAuthHttpMethod" j)
    let to_json = simple_to_json to_value
  end
module HttpsEndpoint =
  struct
    type nonrec t = string
    let context_ = "HttpsEndpoint"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^((%[0-9A-Fa-f]{2}|[-()_.!~*';/?:@\\x26=+$,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:"HttpsEndpoint" j
    let to_json = simple_to_json to_value
  end
module UpdateConnectionOAuthClientRequestParameters =
  struct
    type nonrec t =
      {
      clientID: AuthHeaderParameters.t option
        [@ocaml.doc "The client ID to use for OAuth authorization."];
      clientSecret: AuthHeaderParametersSensitive.t option
        [@ocaml.doc
          "The client secret assciated with the client ID to use for OAuth authorization."]}
    let make ?clientID =
      fun ?clientSecret -> fun () -> { clientID; clientSecret }
    let to_value x =
      structure_to_value
        [("ClientID",
           (Option.map x.clientID ~f:AuthHeaderParameters.to_value));
        ("ClientSecret",
          (Option.map x.clientSecret
             ~f:AuthHeaderParametersSensitive.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientSecret =
        (Option.map ~f:AuthHeaderParametersSensitive.of_xml)
          (Xml.child xml_arg0 "ClientSecret") in
      let clientID =
        (Option.map ~f:AuthHeaderParameters.of_xml)
          (Xml.child xml_arg0 "ClientID") in
      make ?clientSecret ?clientID ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientSecret =
        field_map json__ "ClientSecret" AuthHeaderParametersSensitive.of_json in
      let clientID = field_map json__ "ClientID" AuthHeaderParameters.of_json in
      make ?clientSecret ?clientID ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The OAuth authorization parameters to use for the connection."]
module ErrorCode =
  struct
    type nonrec t = string
    let context_ = "ErrorCode"
    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:"ErrorCode" j
    let to_json = simple_to_json to_value
  end
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 TargetId =
  struct
    type nonrec t = string
    let context_ = "TargetId"
    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:"TargetId" j
    let to_json = simple_to_json to_value
  end
module AppSyncParameters =
  struct
    type nonrec t =
      {
      graphQLOperation: GraphQLOperation.t option
        [@ocaml.doc
          "The GraphQL operation; that is, the query, mutation, or subscription to be parsed and executed by the GraphQL service. For more information, see Operations in the AppSync User Guide."]}
    let make ?graphQLOperation = fun () -> { graphQLOperation }
    let to_value x =
      structure_to_value
        [("GraphQLOperation",
           (Option.map x.graphQLOperation ~f:GraphQLOperation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let graphQLOperation =
        (Option.map ~f:GraphQLOperation.of_xml)
          (Xml.child xml_arg0 "GraphQLOperation") in
      make ?graphQLOperation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let graphQLOperation =
        field_map json__ "GraphQLOperation" GraphQLOperation.of_json in
      make ?graphQLOperation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the GraphQL operation to be parsed and executed, if the event target is an AppSync API."]
module BatchParameters =
  struct
    type nonrec t =
      {
      jobDefinition: String_.t
        [@ocaml.doc
          "The ARN or name of the job definition to use if the event target is an Batch job. This job definition must already exist."];
      jobName: String_.t
        [@ocaml.doc
          "The name to use for this execution of the job, if the target is an Batch job."];
      arrayProperties: BatchArrayProperties.t option
        [@ocaml.doc
          "The array properties for the submitted job, such as the size of the array. The array size can be between 2 and 10,000. If you specify array properties for a job, it becomes an array job. This parameter is used only if the target is an Batch job."];
      retryStrategy: BatchRetryStrategy.t option
        [@ocaml.doc
          "The retry strategy to use for failed jobs, if the target is an Batch job. The retry strategy is the number of times to retry the failed job execution. Valid values are 1\226\128\14710. When you specify a retry strategy here, it overrides the retry strategy defined in the job definition."]}
    let context_ = "BatchParameters"
    let make ?arrayProperties =
      fun ?retryStrategy ->
        fun ~jobDefinition ->
          fun ~jobName ->
            fun () ->
              { arrayProperties; retryStrategy; jobDefinition; jobName }
    let to_value x =
      structure_to_value
        [("JobDefinition", (Some (String_.to_value x.jobDefinition)));
        ("JobName", (Some (String_.to_value x.jobName)));
        ("ArrayProperties",
          (Option.map x.arrayProperties ~f:BatchArrayProperties.to_value));
        ("RetryStrategy",
          (Option.map x.retryStrategy ~f:BatchRetryStrategy.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let retryStrategy =
        (Option.map ~f:BatchRetryStrategy.of_xml)
          (Xml.child xml_arg0 "RetryStrategy") in
      let arrayProperties =
        (Option.map ~f:BatchArrayProperties.of_xml)
          (Xml.child xml_arg0 "ArrayProperties") in
      let jobName =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "JobName") in
      let jobDefinition =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "JobDefinition") in
      make ?retryStrategy ?arrayProperties ~jobName ~jobDefinition ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let retryStrategy =
        field_map json__ "RetryStrategy" BatchRetryStrategy.of_json in
      let arrayProperties =
        field_map json__ "ArrayProperties" BatchArrayProperties.of_json in
      let jobName = field_map_exn json__ "JobName" String_.of_json in
      let jobDefinition =
        field_map_exn json__ "JobDefinition" String_.of_json in
      make ?retryStrategy ?arrayProperties ~jobName ~jobDefinition ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The custom parameters to be used when the target is an Batch job."]
module DeadLetterConfig =
  struct
    type nonrec t =
      {
      arn: ResourceArn.t option
        [@ocaml.doc
          "The ARN of the SQS queue specified as the target for the dead-letter queue."]}
    let make ?arn = fun () -> { arn }
    let to_value x =
      structure_to_value
        [("Arn", (Option.map x.arn ~f:ResourceArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn = (Option.map ~f:ResourceArn.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" ResourceArn.of_json in make ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Configuration details of the Amazon SQS queue for EventBridge to use as a dead-letter queue (DLQ). For more information, see Using dead-letter queues to process undelivered events in the EventBridge User Guide."]
module EcsParameters =
  struct
    type nonrec t =
      {
      taskDefinitionArn: Arn.t
        [@ocaml.doc
          "The ARN of the task definition to use if the event target is an Amazon ECS task."];
      taskCount: LimitMin1.t option
        [@ocaml.doc
          "The number of tasks to create based on TaskDefinition. The default is 1."];
      launchType: LaunchType.t option
        [@ocaml.doc
          "Specifies the launch type on which your task is running. The launch type that you specify here must match one of the launch type (compatibilities) of the target task. The FARGATE value is supported only in the Regions where Fargate with Amazon ECS is supported. For more information, see Fargate on Amazon ECS in the Amazon Elastic Container Service Developer Guide."];
      networkConfiguration: NetworkConfiguration.t option
        [@ocaml.doc
          "Use this structure if the Amazon ECS task uses the awsvpc network mode. This structure specifies the VPC subnets and security groups associated with the task, and whether a public IP address is to be used. This structure is required if LaunchType is FARGATE because the awsvpc mode is required for Fargate tasks. If you specify NetworkConfiguration when the target ECS task does not use the awsvpc network mode, the task fails."];
      platformVersion: String_.t option
        [@ocaml.doc
          "Specifies the platform version for the task. Specify only the numeric portion of the platform version, such as 1.1.0. This structure is used only if LaunchType is FARGATE. For more information about valid platform versions, see Fargate Platform Versions in the Amazon Elastic Container Service Developer Guide."];
      group: String_.t option
        [@ocaml.doc
          "Specifies an ECS task group for the task. The maximum length is 255 characters."];
      capacityProviderStrategy: CapacityProviderStrategy.t option
        [@ocaml.doc
          "The capacity provider strategy to use for the task. If a capacityProviderStrategy is specified, the launchType parameter must be omitted. If no capacityProviderStrategy or launchType is specified, the defaultCapacityProviderStrategy for the cluster is used."];
      enableECSManagedTags: Boolean.t option
        [@ocaml.doc
          "Specifies whether to enable Amazon ECS managed tags for the task. For more information, see Tagging Your Amazon ECS Resources in the Amazon Elastic Container Service Developer Guide."];
      enableExecuteCommand: Boolean.t option
        [@ocaml.doc
          "Whether or not to enable the execute command functionality for the containers in this task. If true, this enables execute command functionality on all containers in the task."];
      placementConstraints: PlacementConstraints.t option
        [@ocaml.doc
          "An array of placement constraint objects to use for the task. You can specify up to 10 constraints per task (including constraints in the task definition and those specified at runtime)."];
      placementStrategy: PlacementStrategies.t option
        [@ocaml.doc
          "The placement strategy objects to use for the task. You can specify a maximum of five strategy rules per task."];
      propagateTags: PropagateTags.t option
        [@ocaml.doc
          "Specifies whether to propagate the tags from the task definition to the task. If no value is specified, the tags are not propagated. Tags can only be propagated to the task during task creation. To add tags to a task after task creation, use the TagResource API action."];
      referenceId: ReferenceId.t option
        [@ocaml.doc "The reference ID to use for the task."];
      tags: TagList.t option
        [@ocaml.doc
          "The metadata that you apply to the task to help you categorize and organize them. Each tag consists of a key and an optional value, both of which you define. To learn more, see RunTask in the Amazon ECS API Reference."]}
    let context_ = "EcsParameters"
    let make ?taskCount =
      fun ?launchType ->
        fun ?networkConfiguration ->
          fun ?platformVersion ->
            fun ?group ->
              fun ?capacityProviderStrategy ->
                fun ?enableECSManagedTags ->
                  fun ?enableExecuteCommand ->
                    fun ?placementConstraints ->
                      fun ?placementStrategy ->
                        fun ?propagateTags ->
                          fun ?referenceId ->
                            fun ?tags ->
                              fun ~taskDefinitionArn ->
                                fun () ->
                                  {
                                    taskCount;
                                    launchType;
                                    networkConfiguration;
                                    platformVersion;
                                    group;
                                    capacityProviderStrategy;
                                    enableECSManagedTags;
                                    enableExecuteCommand;
                                    placementConstraints;
                                    placementStrategy;
                                    propagateTags;
                                    referenceId;
                                    tags;
                                    taskDefinitionArn
                                  }
    let to_value x =
      structure_to_value
        [("TaskDefinitionArn", (Some (Arn.to_value x.taskDefinitionArn)));
        ("TaskCount", (Option.map x.taskCount ~f:LimitMin1.to_value));
        ("LaunchType", (Option.map x.launchType ~f:LaunchType.to_value));
        ("NetworkConfiguration",
          (Option.map x.networkConfiguration ~f:NetworkConfiguration.to_value));
        ("PlatformVersion",
          (Option.map x.platformVersion ~f:String_.to_value));
        ("Group", (Option.map x.group ~f:String_.to_value));
        ("CapacityProviderStrategy",
          (Option.map x.capacityProviderStrategy
             ~f:CapacityProviderStrategy.to_value));
        ("EnableECSManagedTags",
          (Option.map x.enableECSManagedTags ~f:Boolean.to_value));
        ("EnableExecuteCommand",
          (Option.map x.enableExecuteCommand ~f:Boolean.to_value));
        ("PlacementConstraints",
          (Option.map x.placementConstraints ~f:PlacementConstraints.to_value));
        ("PlacementStrategy",
          (Option.map x.placementStrategy ~f:PlacementStrategies.to_value));
        ("PropagateTags",
          (Option.map x.propagateTags ~f:PropagateTags.to_value));
        ("ReferenceId", (Option.map x.referenceId ~f:ReferenceId.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let referenceId =
        (Option.map ~f:ReferenceId.of_xml) (Xml.child xml_arg0 "ReferenceId") in
      let propagateTags =
        (Option.map ~f:PropagateTags.of_xml)
          (Xml.child xml_arg0 "PropagateTags") in
      let placementStrategy =
        (Option.map ~f:PlacementStrategies.of_xml)
          (Xml.child xml_arg0 "PlacementStrategy") in
      let placementConstraints =
        (Option.map ~f:PlacementConstraints.of_xml)
          (Xml.child xml_arg0 "PlacementConstraints") in
      let enableExecuteCommand =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "EnableExecuteCommand") in
      let enableECSManagedTags =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "EnableECSManagedTags") in
      let capacityProviderStrategy =
        (Option.map ~f:CapacityProviderStrategy.of_xml)
          (Xml.child xml_arg0 "CapacityProviderStrategy") in
      let group = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Group") in
      let platformVersion =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "PlatformVersion") in
      let networkConfiguration =
        (Option.map ~f:NetworkConfiguration.of_xml)
          (Xml.child xml_arg0 "NetworkConfiguration") in
      let launchType =
        (Option.map ~f:LaunchType.of_xml) (Xml.child xml_arg0 "LaunchType") in
      let taskCount =
        (Option.map ~f:LimitMin1.of_xml) (Xml.child xml_arg0 "TaskCount") in
      let taskDefinitionArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TaskDefinitionArn") in
      make ?tags ?referenceId ?propagateTags ?placementStrategy
        ?placementConstraints ?enableExecuteCommand ?enableECSManagedTags
        ?capacityProviderStrategy ?group ?platformVersion
        ?networkConfiguration ?launchType ?taskCount ~taskDefinitionArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagList.of_json in
      let referenceId = field_map json__ "ReferenceId" ReferenceId.of_json in
      let propagateTags =
        field_map json__ "PropagateTags" PropagateTags.of_json in
      let placementStrategy =
        field_map json__ "PlacementStrategy" PlacementStrategies.of_json in
      let placementConstraints =
        field_map json__ "PlacementConstraints" PlacementConstraints.of_json in
      let enableExecuteCommand =
        field_map json__ "EnableExecuteCommand" Boolean.of_json in
      let enableECSManagedTags =
        field_map json__ "EnableECSManagedTags" Boolean.of_json in
      let capacityProviderStrategy =
        field_map json__ "CapacityProviderStrategy"
          CapacityProviderStrategy.of_json in
      let group = field_map json__ "Group" String_.of_json in
      let platformVersion =
        field_map json__ "PlatformVersion" String_.of_json in
      let networkConfiguration =
        field_map json__ "NetworkConfiguration" NetworkConfiguration.of_json in
      let launchType = field_map json__ "LaunchType" LaunchType.of_json in
      let taskCount = field_map json__ "TaskCount" LimitMin1.of_json in
      let taskDefinitionArn =
        field_map_exn json__ "TaskDefinitionArn" Arn.of_json in
      make ?tags ?referenceId ?propagateTags ?placementStrategy
        ?placementConstraints ?enableExecuteCommand ?enableECSManagedTags
        ?capacityProviderStrategy ?group ?platformVersion
        ?networkConfiguration ?launchType ?taskCount ~taskDefinitionArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The custom parameters to be used when the target is an Amazon ECS task."]
module HttpParameters =
  struct
    type nonrec t =
      {
      pathParameterValues: PathParameterList.t option
        [@ocaml.doc
          "The path parameter values to be used to populate API Gateway API or EventBridge ApiDestination path wildcards (\"*\")."];
      headerParameters: HeaderParametersMap.t option
        [@ocaml.doc
          "The headers that need to be sent as part of request invoking the API Gateway API or EventBridge ApiDestination."];
      queryStringParameters: QueryStringParametersMap.t option
        [@ocaml.doc
          "The query string keys/values that need to be sent as part of request invoking the API Gateway API or EventBridge ApiDestination."]}
    let make ?pathParameterValues =
      fun ?headerParameters ->
        fun ?queryStringParameters ->
          fun () ->
            { pathParameterValues; headerParameters; queryStringParameters }
    let to_value x =
      structure_to_value
        [("PathParameterValues",
           (Option.map x.pathParameterValues ~f:PathParameterList.to_value));
        ("HeaderParameters",
          (Option.map x.headerParameters ~f:HeaderParametersMap.to_value));
        ("QueryStringParameters",
          (Option.map x.queryStringParameters
             ~f:QueryStringParametersMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let queryStringParameters =
        (Option.map ~f:QueryStringParametersMap.of_xml)
          (Xml.child xml_arg0 "QueryStringParameters") in
      let headerParameters =
        (Option.map ~f:HeaderParametersMap.of_xml)
          (Xml.child xml_arg0 "HeaderParameters") in
      let pathParameterValues =
        (Option.map ~f:PathParameterList.of_xml)
          (Xml.child xml_arg0 "PathParameterValues") in
      make ?queryStringParameters ?headerParameters ?pathParameterValues ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let queryStringParameters =
        field_map json__ "QueryStringParameters"
          QueryStringParametersMap.of_json in
      let headerParameters =
        field_map json__ "HeaderParameters" HeaderParametersMap.of_json in
      let pathParameterValues =
        field_map json__ "PathParameterValues" PathParameterList.of_json in
      make ?queryStringParameters ?headerParameters ?pathParameterValues ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "These are custom parameter to be used when the target is an API Gateway APIs or EventBridge ApiDestinations. In the latter case, these are merged with any InvocationParameters specified on the Connection, with any values from the Connection taking precedence."]
module InputTransformer =
  struct
    type nonrec t =
      {
      inputPathsMap: TransformerPaths.t option
        [@ocaml.doc
          "Map of JSON paths to be extracted from the event. You can then insert these in the template in InputTemplate to produce the output you want to be sent to the target. InputPathsMap is an array key-value pairs, where each value is a valid JSON path. You can have as many as 100 key-value pairs. You must use JSON dot notation, not bracket notation. The keys cannot start with \"Amazon Web Services.\""];
      inputTemplate: TransformerInput.t
        [@ocaml.doc
          "Input template where you specify placeholders that will be filled with the values of the keys from InputPathsMap to customize the data sent to the target. Enclose each InputPathsMaps value in brackets: <value> If InputTemplate is a JSON object (surrounded by curly braces), the following restrictions apply: The placeholder cannot be used as an object key. The following example shows the syntax for using InputPathsMap and InputTemplate. \"InputTransformer\": \\{ \"InputPathsMap\": \\{\"instance\": \"$.detail.instance\",\"status\": \"$.detail.status\"\\}, \"InputTemplate\": \"<instance> is in state <status>\" \\} To have the InputTemplate include quote marks within a JSON string, escape each quote marks with a slash, as in the following example: \"InputTransformer\": \\{ \"InputPathsMap\": \\{\"instance\": \"$.detail.instance\",\"status\": \"$.detail.status\"\\}, \"InputTemplate\": \"<instance> is in state \\\"<status>\\\"\" \\} The InputTemplate can also be valid JSON with varibles in quotes or out, as in the following example: \"InputTransformer\": \\{ \"InputPathsMap\": \\{\"instance\": \"$.detail.instance\",\"status\": \"$.detail.status\"\\}, \"InputTemplate\": '\\{\"myInstance\": <instance>,\"myStatus\": \"<instance> is in state \\\"<status>\\\"\"\\}' \\}"]}
    let context_ = "InputTransformer"
    let make ?inputPathsMap =
      fun ~inputTemplate -> fun () -> { inputPathsMap; inputTemplate }
    let to_value x =
      structure_to_value
        [("InputPathsMap",
           (Option.map x.inputPathsMap ~f:TransformerPaths.to_value));
        ("InputTemplate", (Some (TransformerInput.to_value x.inputTemplate)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let inputTemplate =
        TransformerInput.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "InputTemplate") in
      let inputPathsMap =
        (Option.map ~f:TransformerPaths.of_xml)
          (Xml.child xml_arg0 "InputPathsMap") in
      make ~inputTemplate ?inputPathsMap ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let inputTemplate =
        field_map_exn json__ "InputTemplate" TransformerInput.of_json in
      let inputPathsMap =
        field_map json__ "InputPathsMap" TransformerPaths.of_json in
      make ~inputTemplate ?inputPathsMap ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the parameters needed for you to provide custom input to a target based on one or more pieces of data extracted from the event."]
module KinesisParameters =
  struct
    type nonrec t =
      {
      partitionKeyPath: TargetPartitionKeyPath.t
        [@ocaml.doc
          "The JSON path to be extracted from the event and used as the partition key. For more information, see Amazon Kinesis Streams Key Concepts in the Amazon Kinesis Streams Developer Guide."]}
    let context_ = "KinesisParameters"
    let make ~partitionKeyPath = fun () -> { partitionKeyPath }
    let to_value x =
      structure_to_value
        [("PartitionKeyPath",
           (Some (TargetPartitionKeyPath.to_value x.partitionKeyPath)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let partitionKeyPath =
        TargetPartitionKeyPath.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PartitionKeyPath") in
      make ~partitionKeyPath ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let partitionKeyPath =
        field_map_exn json__ "PartitionKeyPath"
          TargetPartitionKeyPath.of_json in
      make ~partitionKeyPath ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This object enables you to specify a JSON path to extract from the event and use as the partition key for the Amazon Kinesis data stream, so that you can control the shard to which the event goes. If you do not include this parameter, the default is to use the eventId as the partition key."]
module RedshiftDataParameters =
  struct
    type nonrec t =
      {
      secretManagerArn: RedshiftSecretManagerArn.t option
        [@ocaml.doc
          "The name or ARN of the secret that enables access to the database. Required when authenticating using Amazon Web Services Secrets Manager."];
      database: Database.t
        [@ocaml.doc
          "The name of the database. Required when authenticating using temporary credentials."];
      dbUser: DbUser.t option
        [@ocaml.doc
          "The database user name. Required when authenticating using temporary credentials."];
      sql: Sql.t option [@ocaml.doc "The SQL statement text to run."];
      statementName: StatementName.t option
        [@ocaml.doc
          "The name of the SQL statement. You can name the SQL statement when you create it to identify the query."];
      withEvent: Boolean.t option
        [@ocaml.doc
          "Indicates whether to send an event back to EventBridge after the SQL statement runs."];
      sqls: Sqls.t option
        [@ocaml.doc
          "One or more SQL statements to run. The SQL statements are run as a single transaction. They run serially in the order of the array. Subsequent SQL statements don't start until the previous statement in the array completes. If any SQL statement fails, then because they are run as one transaction, all work is rolled back."]}
    let context_ = "RedshiftDataParameters"
    let make ?secretManagerArn =
      fun ?dbUser ->
        fun ?sql ->
          fun ?statementName ->
            fun ?withEvent ->
              fun ?sqls ->
                fun ~database ->
                  fun () ->
                    {
                      secretManagerArn;
                      dbUser;
                      sql;
                      statementName;
                      withEvent;
                      sqls;
                      database
                    }
    let to_value x =
      structure_to_value
        [("SecretManagerArn",
           (Option.map x.secretManagerArn
              ~f:RedshiftSecretManagerArn.to_value));
        ("Database", (Some (Database.to_value x.database)));
        ("DbUser", (Option.map x.dbUser ~f:DbUser.to_value));
        ("Sql", (Option.map x.sql ~f:Sql.to_value));
        ("StatementName",
          (Option.map x.statementName ~f:StatementName.to_value));
        ("WithEvent", (Option.map x.withEvent ~f:Boolean.to_value));
        ("Sqls", (Option.map x.sqls ~f:Sqls.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sqls = (Option.map ~f:Sqls.of_xml) (Xml.child xml_arg0 "Sqls") in
      let withEvent =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "WithEvent") in
      let statementName =
        (Option.map ~f:StatementName.of_xml)
          (Xml.child xml_arg0 "StatementName") in
      let sql = (Option.map ~f:Sql.of_xml) (Xml.child xml_arg0 "Sql") in
      let dbUser =
        (Option.map ~f:DbUser.of_xml) (Xml.child xml_arg0 "DbUser") in
      let database =
        Database.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Database") in
      let secretManagerArn =
        (Option.map ~f:RedshiftSecretManagerArn.of_xml)
          (Xml.child xml_arg0 "SecretManagerArn") in
      make ?sqls ?withEvent ?statementName ?sql ?dbUser ~database
        ?secretManagerArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sqls = field_map json__ "Sqls" Sqls.of_json in
      let withEvent = field_map json__ "WithEvent" Boolean.of_json in
      let statementName =
        field_map json__ "StatementName" StatementName.of_json in
      let sql = field_map json__ "Sql" Sql.of_json in
      let dbUser = field_map json__ "DbUser" DbUser.of_json in
      let database = field_map_exn json__ "Database" Database.of_json in
      let secretManagerArn =
        field_map json__ "SecretManagerArn" RedshiftSecretManagerArn.of_json in
      make ?sqls ?withEvent ?statementName ?sql ?dbUser ~database
        ?secretManagerArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "These are custom parameters to be used when the target is a Amazon Redshift cluster to invoke the Amazon Redshift Data API ExecuteStatement based on EventBridge events."]
module RetryPolicy =
  struct
    type nonrec t =
      {
      maximumRetryAttempts: MaximumRetryAttempts.t option
        [@ocaml.doc
          "The maximum number of retry attempts to make before the request fails. Retry attempts continue until either the maximum number of attempts is made or until the duration of the MaximumEventAgeInSeconds is met."];
      maximumEventAgeInSeconds: MaximumEventAgeInSeconds.t option
        [@ocaml.doc
          "The maximum amount of time, in seconds, to continue to make retry attempts."]}
    let make ?maximumRetryAttempts =
      fun ?maximumEventAgeInSeconds ->
        fun () -> { maximumRetryAttempts; maximumEventAgeInSeconds }
    let to_value x =
      structure_to_value
        [("MaximumRetryAttempts",
           (Option.map x.maximumRetryAttempts
              ~f:MaximumRetryAttempts.to_value));
        ("MaximumEventAgeInSeconds",
          (Option.map x.maximumEventAgeInSeconds
             ~f:MaximumEventAgeInSeconds.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maximumEventAgeInSeconds =
        (Option.map ~f:MaximumEventAgeInSeconds.of_xml)
          (Xml.child xml_arg0 "MaximumEventAgeInSeconds") in
      let maximumRetryAttempts =
        (Option.map ~f:MaximumRetryAttempts.of_xml)
          (Xml.child xml_arg0 "MaximumRetryAttempts") in
      make ?maximumEventAgeInSeconds ?maximumRetryAttempts ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maximumEventAgeInSeconds =
        field_map json__ "MaximumEventAgeInSeconds"
          MaximumEventAgeInSeconds.of_json in
      let maximumRetryAttempts =
        field_map json__ "MaximumRetryAttempts" MaximumRetryAttempts.of_json in
      make ?maximumEventAgeInSeconds ?maximumRetryAttempts ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A RetryPolicy object that includes information about the retry policy settings."]
module RoleArn =
  struct
    type nonrec t = string
    let context_ = "RoleArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1600) >>=
             (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:"RoleArn" j
    let to_json = simple_to_json to_value
  end
module RunCommandParameters =
  struct
    type nonrec t =
      {
      runCommandTargets: RunCommandTargets.t
        [@ocaml.doc
          "Currently, we support including only one RunCommandTarget block, which specifies either an array of InstanceIds or a tag."]}
    let context_ = "RunCommandParameters"
    let make ~runCommandTargets = fun () -> { runCommandTargets }
    let to_value x =
      structure_to_value
        [("RunCommandTargets",
           (Some (RunCommandTargets.to_value x.runCommandTargets)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let runCommandTargets =
        RunCommandTargets.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RunCommandTargets") in
      make ~runCommandTargets ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let runCommandTargets =
        field_map_exn json__ "RunCommandTargets" RunCommandTargets.of_json in
      make ~runCommandTargets ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This parameter contains the criteria (either InstanceIds or a tag) used to specify which EC2 instances are to be sent the command."]
module SageMakerPipelineParameters =
  struct
    type nonrec t =
      {
      pipelineParameterList: SageMakerPipelineParameterList.t option
        [@ocaml.doc
          "List of Parameter names and values for SageMaker AI Model Building Pipeline execution."]}
    let make ?pipelineParameterList = fun () -> { pipelineParameterList }
    let to_value x =
      structure_to_value
        [("PipelineParameterList",
           (Option.map x.pipelineParameterList
              ~f:SageMakerPipelineParameterList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pipelineParameterList =
        (Option.map ~f:SageMakerPipelineParameterList.of_xml)
          (Xml.child xml_arg0 "PipelineParameterList") in
      make ?pipelineParameterList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pipelineParameterList =
        field_map json__ "PipelineParameterList"
          SageMakerPipelineParameterList.of_json in
      make ?pipelineParameterList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "These are custom parameters to use when the target is a SageMaker AI Model Building Pipeline that starts based on EventBridge events."]
module SqsParameters =
  struct
    type nonrec t =
      {
      messageGroupId: MessageGroupId.t option
        [@ocaml.doc "The FIFO message group ID to use as the target."]}
    let make ?messageGroupId = fun () -> { messageGroupId }
    let to_value x =
      structure_to_value
        [("MessageGroupId",
           (Option.map x.messageGroupId ~f:MessageGroupId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let messageGroupId =
        (Option.map ~f:MessageGroupId.of_xml)
          (Xml.child xml_arg0 "MessageGroupId") in
      make ?messageGroupId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let messageGroupId =
        field_map json__ "MessageGroupId" MessageGroupId.of_json in
      make ?messageGroupId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This structure includes the custom parameter to be used when the target is an SQS FIFO queue."]
module TargetArn =
  struct
    type nonrec t = string
    let context_ = "TargetArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1600) >>=
             (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:"TargetArn" j
    let to_json = simple_to_json to_value
  end
module TargetInput =
  struct
    type nonrec t = string
    let context_ = "TargetInput"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:8192); 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:"TargetInput" j
    let to_json = simple_to_json to_value
  end
module EventId =
  struct
    type nonrec t = string
    let context_ = "EventId"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max: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:"EventId" j
    let to_json = simple_to_json to_value
  end
module EventResourceList =
  struct
    type nonrec t = EventResource.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:EventResource.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:EventResource.of_xml)
    let of_json j =
      list_of_json ~kind:"EventResourceList" ~of_json:EventResource.of_json j
    let to_json v = composed_to_json to_value v
  end
module EventSourceName =
  struct
    type nonrec t = string
    let context_ = "EventSourceName"
    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:"aws\\.partner(/[\\.\\-_A-Za-z0-9]+){2,}")));
        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:"EventSourceName" j
    let to_json = simple_to_json to_value
  end
module EventTime =
  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 NonPartnerEventBusNameOrArn =
  struct
    type nonrec t = string
    let context_ = "NonPartnerEventBusNameOrArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1600) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"(arn:aws[\\w-]*:events:[a-z]+-[a-z]+-[\\w-]+:[0-9]{12}:event-bus\\/)?[\\.\\-_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:"NonPartnerEventBusNameOrArn" j
    let to_json = simple_to_json to_value
  end
module TraceHeader =
  struct
    type nonrec t = string
    let context_ = "TraceHeader"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:500) >>=
             (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:"TraceHeader" j
    let to_json = simple_to_json to_value
  end
module EventBusName =
  struct
    type nonrec t = string
    let context_ = "EventBusName"
    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:"EventBusName" j
    let to_json = simple_to_json to_value
  end
module EventPattern =
  struct
    type nonrec t = string
    let context_ = "EventPattern"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:4096); 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:"EventPattern" j
    let to_json = simple_to_json to_value
  end
module ManagedBy =
  struct
    type nonrec t = string
    let context_ = "ManagedBy"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ManagedBy" j
    let to_json = simple_to_json to_value
  end
module RuleArn =
  struct
    type nonrec t = string
    let context_ = "RuleArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1600) >>=
             (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:"RuleArn" j
    let to_json = simple_to_json to_value
  end
module RuleDescription =
  struct
    type nonrec t = string
    let context_ = "RuleDescription"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:512); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"RuleDescription" j
    let to_json = simple_to_json to_value
  end
module RuleName =
  struct
    type nonrec t = string
    let context_ = "RuleName"
    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:"RuleName" j
    let to_json = simple_to_json to_value
  end
module RuleState =
  struct
    type nonrec t =
      | ENABLED 
      | DISABLED 
      | ENABLED_WITH_ALL_CLOUDTRAIL_MANAGEMENT_EVENTS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ENABLED -> "ENABLED"
      | DISABLED -> "DISABLED"
      | ENABLED_WITH_ALL_CLOUDTRAIL_MANAGEMENT_EVENTS ->
          "ENABLED_WITH_ALL_CLOUDTRAIL_MANAGEMENT_EVENTS"
      | Non_static_id s -> s
    let of_string =
      function
      | "ENABLED" -> ENABLED
      | "DISABLED" -> DISABLED
      | "ENABLED_WITH_ALL_CLOUDTRAIL_MANAGEMENT_EVENTS" ->
          ENABLED_WITH_ALL_CLOUDTRAIL_MANAGEMENT_EVENTS
      | 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 RuleState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RuleState" j)
    let to_json = simple_to_json to_value
  end
module ScheduleExpression =
  struct
    type nonrec t = string
    let context_ = "ScheduleExpression"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:256); 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:"ScheduleExpression" j
    let to_json = simple_to_json to_value
  end
module ArchiveArn =
  struct
    type nonrec t = string
    let context_ = "ArchiveArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1600) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^arn:aws([a-z]|\\-)*:events:([a-z]|\\d|\\-)*:([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:"ArchiveArn" j
    let to_json = simple_to_json to_value
  end
module ReplayName =
  struct
    type nonrec t = string
    let context_ = "ReplayName"
    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:"ReplayName" j
    let to_json = simple_to_json to_value
  end
module ReplayState =
  struct
    type nonrec t =
      | STARTING 
      | RUNNING 
      | CANCELLING 
      | COMPLETED 
      | CANCELLED 
      | FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | STARTING -> "STARTING"
      | RUNNING -> "RUNNING"
      | CANCELLING -> "CANCELLING"
      | COMPLETED -> "COMPLETED"
      | CANCELLED -> "CANCELLED"
      | FAILED -> "FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "STARTING" -> STARTING
      | "RUNNING" -> RUNNING
      | "CANCELLING" -> CANCELLING
      | "COMPLETED" -> COMPLETED
      | "CANCELLED" -> CANCELLED
      | "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 ReplayState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ReplayState" j)
    let to_json = simple_to_json to_value
  end
module ReplayStateReason =
  struct
    type nonrec t = string
    let context_ = "ReplayStateReason"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:512) >>=
             (fun () -> check_pattern i ~pattern:".*"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ReplayStateReason" j
    let to_json = simple_to_json to_value
  end
module Timestamp =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module AccountId =
  struct
    type nonrec t = string
    let context_ = "AccountId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:12) >>=
             (fun () ->
                (check_string_max i ~max:12) >>=
                  (fun () -> check_pattern i ~pattern:"\\d{12}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AccountId" j
    let to_json = simple_to_json to_value
  end
module EventSourceState =
  struct
    type nonrec t =
      | PENDING 
      | ACTIVE 
      | DELETED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING -> "PENDING"
      | ACTIVE -> "ACTIVE"
      | DELETED -> "DELETED"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING" -> PENDING
      | "ACTIVE" -> ACTIVE
      | "DELETED" -> DELETED
      | 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 EventSourceState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"EventSourceState" j)
    let to_json = simple_to_json to_value
  end
module EventBusDescription =
  struct
    type nonrec t = string
    let context_ = "EventBusDescription"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:512); 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:"EventBusDescription" j
    let to_json = simple_to_json to_value
  end
module EndpointArn =
  struct
    type nonrec t = string
    let context_ = "EndpointArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1600) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^arn:aws([a-z]|\\-)*:events:([a-z]|\\d|\\-)*:([0-9]{12})?:endpoint\\/[/\\.\\-_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:"EndpointArn" j
    let to_json = simple_to_json to_value
  end
module EndpointDescription =
  struct
    type nonrec t = string
    let context_ = "EndpointDescription"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:512) >>=
             (fun () -> check_pattern i ~pattern:".*"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"EndpointDescription" j
    let to_json = simple_to_json to_value
  end
module EndpointEventBusList =
  struct
    type nonrec t = EndpointEventBus.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:2) >>= (fun () -> check_list_min i ~min:2));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:EndpointEventBus.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:EndpointEventBus.of_xml)
    let of_json j =
      list_of_json ~kind:"EndpointEventBusList"
        ~of_json:EndpointEventBus.of_json j
    let to_json v = composed_to_json to_value v
  end
module EndpointId =
  struct
    type nonrec t = string
    let context_ = "EndpointId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:50) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^[A-Za-z0-9\\-]+[\\.][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:"EndpointId" j
    let to_json = simple_to_json to_value
  end
module EndpointName =
  struct
    type nonrec t = string
    let context_ = "EndpointName"
    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:"EndpointName" j
    let to_json = simple_to_json to_value
  end
module EndpointState =
  struct
    type nonrec t =
      | ACTIVE 
      | CREATING 
      | UPDATING 
      | DELETING 
      | CREATE_FAILED 
      | UPDATE_FAILED 
      | DELETE_FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ACTIVE -> "ACTIVE"
      | CREATING -> "CREATING"
      | UPDATING -> "UPDATING"
      | DELETING -> "DELETING"
      | CREATE_FAILED -> "CREATE_FAILED"
      | UPDATE_FAILED -> "UPDATE_FAILED"
      | DELETE_FAILED -> "DELETE_FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "ACTIVE" -> ACTIVE
      | "CREATING" -> CREATING
      | "UPDATING" -> UPDATING
      | "DELETING" -> DELETING
      | "CREATE_FAILED" -> CREATE_FAILED
      | "UPDATE_FAILED" -> UPDATE_FAILED
      | "DELETE_FAILED" -> DELETE_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 EndpointState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"EndpointState" j)
    let to_json = simple_to_json to_value
  end
module EndpointStateReason =
  struct
    type nonrec t = string
    let context_ = "EndpointStateReason"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:512) >>=
                  (fun () -> check_pattern i ~pattern:".*")));
        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:"EndpointStateReason" j
    let to_json = simple_to_json to_value
  end
module EndpointUrl =
  struct
    type nonrec t = string
    let context_ = "EndpointUrl"
    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:"^(https://)?[\\.\\-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:"EndpointUrl" j
    let to_json = simple_to_json to_value
  end
module IamRoleArn =
  struct
    type nonrec t = string
    let context_ = "IamRoleArn"
    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:"^arn:aws[a-z-]*:iam::\\d{12}:role\\/[\\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:"IamRoleArn" j
    let to_json = simple_to_json to_value
  end
module ReplicationConfig =
  struct
    type nonrec t =
      {
      state: ReplicationState.t option
        [@ocaml.doc "The state of event replication."]}
    let make ?state = fun () -> { state }
    let to_value x =
      structure_to_value
        [("State", (Option.map x.state ~f:ReplicationState.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let state =
        (Option.map ~f:ReplicationState.of_xml) (Xml.child xml_arg0 "State") in
      make ?state ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let state = field_map json__ "State" ReplicationState.of_json in
      make ?state ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Endpoints can replicate all events to the secondary Region."]
module RoutingConfig =
  struct
    type nonrec t =
      {
      failoverConfig: FailoverConfig.t
        [@ocaml.doc
          "The failover configuration for an endpoint. This includes what triggers failover and what happens when it's triggered."]}
    let context_ = "RoutingConfig"
    let make ~failoverConfig = fun () -> { failoverConfig }
    let to_value x =
      structure_to_value
        [("FailoverConfig",
           (Some (FailoverConfig.to_value x.failoverConfig)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let failoverConfig =
        FailoverConfig.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FailoverConfig") in
      make ~failoverConfig ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let failoverConfig =
        field_map_exn json__ "FailoverConfig" FailoverConfig.of_json in
      make ~failoverConfig ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The routing configuration of the endpoint."]
module ConnectionArn =
  struct
    type nonrec t = string
    let context_ = "ConnectionArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1600) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^arn:aws([a-z]|\\-)*:events:([a-z]|\\d|\\-)*:([0-9]{12})?:connection\\/[\\.\\-_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:"ConnectionArn" j
    let to_json = simple_to_json to_value
  end
module ConnectionAuthorizationType =
  struct
    type nonrec t =
      | BASIC 
      | OAUTH_CLIENT_CREDENTIALS 
      | API_KEY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | BASIC -> "BASIC"
      | OAUTH_CLIENT_CREDENTIALS -> "OAUTH_CLIENT_CREDENTIALS"
      | API_KEY -> "API_KEY"
      | Non_static_id s -> s
    let of_string =
      function
      | "BASIC" -> BASIC
      | "OAUTH_CLIENT_CREDENTIALS" -> OAUTH_CLIENT_CREDENTIALS
      | "API_KEY" -> API_KEY
      | 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 ConnectionAuthorizationType"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ConnectionAuthorizationType" j)
    let to_json = simple_to_json to_value
  end
module ConnectionName =
  struct
    type nonrec t = string
    let context_ = "ConnectionName"
    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:"ConnectionName" j
    let to_json = simple_to_json to_value
  end
module ConnectionState =
  struct
    type nonrec t =
      | CREATING 
      | UPDATING 
      | DELETING 
      | AUTHORIZED 
      | DEAUTHORIZED 
      | AUTHORIZING 
      | DEAUTHORIZING 
      | ACTIVE 
      | FAILED_CONNECTIVITY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATING -> "CREATING"
      | UPDATING -> "UPDATING"
      | DELETING -> "DELETING"
      | AUTHORIZED -> "AUTHORIZED"
      | DEAUTHORIZED -> "DEAUTHORIZED"
      | AUTHORIZING -> "AUTHORIZING"
      | DEAUTHORIZING -> "DEAUTHORIZING"
      | ACTIVE -> "ACTIVE"
      | FAILED_CONNECTIVITY -> "FAILED_CONNECTIVITY"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATING" -> CREATING
      | "UPDATING" -> UPDATING
      | "DELETING" -> DELETING
      | "AUTHORIZED" -> AUTHORIZED
      | "DEAUTHORIZED" -> DEAUTHORIZED
      | "AUTHORIZING" -> AUTHORIZING
      | "DEAUTHORIZING" -> DEAUTHORIZING
      | "ACTIVE" -> ACTIVE
      | "FAILED_CONNECTIVITY" -> FAILED_CONNECTIVITY
      | 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 ConnectionState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ConnectionState" j)
    let to_json = simple_to_json to_value
  end
module ConnectionStateReason =
  struct
    type nonrec t = string
    let context_ = "ConnectionStateReason"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:512) >>=
             (fun () -> check_pattern i ~pattern:".*"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ConnectionStateReason" j
    let to_json = simple_to_json to_value
  end
module ArchiveName =
  struct
    type nonrec t = string
    let context_ = "ArchiveName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:48) >>=
                  (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:"ArchiveName" j
    let to_json = simple_to_json to_value
  end
module ArchiveState =
  struct
    type nonrec t =
      | ENABLED 
      | DISABLED 
      | CREATING 
      | UPDATING 
      | CREATE_FAILED 
      | UPDATE_FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ENABLED -> "ENABLED"
      | DISABLED -> "DISABLED"
      | CREATING -> "CREATING"
      | UPDATING -> "UPDATING"
      | CREATE_FAILED -> "CREATE_FAILED"
      | UPDATE_FAILED -> "UPDATE_FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "ENABLED" -> ENABLED
      | "DISABLED" -> DISABLED
      | "CREATING" -> CREATING
      | "UPDATING" -> UPDATING
      | "CREATE_FAILED" -> CREATE_FAILED
      | "UPDATE_FAILED" -> UPDATE_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 ArchiveState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ArchiveState" j)
    let to_json = simple_to_json to_value
  end
module ArchiveStateReason =
  struct
    type nonrec t = string
    let context_ = "ArchiveStateReason"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:512) >>=
             (fun () -> check_pattern i ~pattern:".*"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ArchiveStateReason" j
    let to_json = simple_to_json to_value
  end
module EventBusArn =
  struct
    type nonrec t = string
    let context_ = "EventBusArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1600) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^arn:aws([a-z]|\\-)*:events:([a-z]|\\d|\\-)*:([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:"EventBusArn" j
    let to_json = simple_to_json to_value
  end
module Long =
  struct
    type nonrec t = Int64.t
    let make i = i
    let of_string = Int64.of_string
    let to_value x = `Long x
    let to_query v = to_query to_value v
    let to_header x = Int64.to_string x
    let of_xml xml_arg0 =
      Int64.of_string (string_of_xml ~kind:"a long" xml_arg0)
    let of_json j = Int64.of_float (float_of_json ~kind:"a long" j)
    let to_json = simple_to_json to_value
  end
module RetentionDays =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (check_int_min i ~min:0); 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 RetentionDays" 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 ApiDestinationArn =
  struct
    type nonrec t = string
    let context_ = "ApiDestinationArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1600) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^arn:aws([a-z]|\\-)*:events:([a-z]|\\d|\\-)*:([0-9]{12})?:api-destination\\/[\\.\\-_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:"ApiDestinationArn" j
    let to_json = simple_to_json to_value
  end
module ApiDestinationHttpMethod =
  struct
    type nonrec t =
      | POST 
      | GET 
      | HEAD 
      | OPTIONS 
      | PUT 
      | PATCH 
      | DELETE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | POST -> "POST"
      | GET -> "GET"
      | HEAD -> "HEAD"
      | OPTIONS -> "OPTIONS"
      | PUT -> "PUT"
      | PATCH -> "PATCH"
      | DELETE -> "DELETE"
      | Non_static_id s -> s
    let of_string =
      function
      | "POST" -> POST
      | "GET" -> GET
      | "HEAD" -> HEAD
      | "OPTIONS" -> OPTIONS
      | "PUT" -> PUT
      | "PATCH" -> PATCH
      | "DELETE" -> DELETE
      | 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 ApiDestinationHttpMethod" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ApiDestinationHttpMethod" j)
    let to_json = simple_to_json to_value
  end
module ApiDestinationInvocationRateLimitPerSecond =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (check_int_min i ~min:1); i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml
           ~kind:"an integer for ApiDestinationInvocationRateLimitPerSecond"
           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 ApiDestinationName =
  struct
    type nonrec t = string
    let context_ = "ApiDestinationName"
    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:"ApiDestinationName" j
    let to_json = simple_to_json to_value
  end
module ApiDestinationState =
  struct
    type nonrec t =
      | ACTIVE 
      | INACTIVE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ACTIVE -> "ACTIVE"
      | INACTIVE -> "INACTIVE"
      | Non_static_id s -> s
    let of_string =
      function
      | "ACTIVE" -> ACTIVE
      | "INACTIVE" -> INACTIVE
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration ApiDestinationState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ApiDestinationState" j)
    let to_json = simple_to_json to_value
  end
module ConnectionOAuthClientResponseParameters =
  struct
    type nonrec t =
      {
      clientID: AuthHeaderParameters.t option
        [@ocaml.doc
          "The client ID associated with the response to the connection request."]}
    let make ?clientID = fun () -> { clientID }
    let to_value x =
      structure_to_value
        [("ClientID",
           (Option.map x.clientID ~f:AuthHeaderParameters.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientID =
        (Option.map ~f:AuthHeaderParameters.of_xml)
          (Xml.child xml_arg0 "ClientID") in
      make ?clientID ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientID = field_map json__ "ClientID" AuthHeaderParameters.of_json in
      make ?clientID ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The client response parameters for the connection when OAuth is specified as the authorization type."]
module DescribeConnectionResourceParameters =
  struct
    type nonrec t =
      {
      resourceConfigurationArn: ResourceConfigurationArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource configuration for the private API."];
      resourceAssociationArn: ResourceAssociationArn.t option
        [@ocaml.doc
          "For connections to private APIs, the Amazon Resource Name (ARN) of the resource association EventBridge created between the connection and the private API's resource configuration. For more information, see Managing service network resource associations for connections in the Amazon EventBridge User Guide ."]}
    let make ?resourceConfigurationArn =
      fun ?resourceAssociationArn ->
        fun () -> { resourceConfigurationArn; resourceAssociationArn }
    let to_value x =
      structure_to_value
        [("ResourceConfigurationArn",
           (Option.map x.resourceConfigurationArn
              ~f:ResourceConfigurationArn.to_value));
        ("ResourceAssociationArn",
          (Option.map x.resourceAssociationArn
             ~f:ResourceAssociationArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceAssociationArn =
        (Option.map ~f:ResourceAssociationArn.of_xml)
          (Xml.child xml_arg0 "ResourceAssociationArn") in
      let resourceConfigurationArn =
        (Option.map ~f:ResourceConfigurationArn.of_xml)
          (Xml.child xml_arg0 "ResourceConfigurationArn") in
      make ?resourceAssociationArn ?resourceConfigurationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceAssociationArn =
        field_map json__ "ResourceAssociationArn"
          ResourceAssociationArn.of_json in
      let resourceConfigurationArn =
        field_map json__ "ResourceConfigurationArn"
          ResourceConfigurationArn.of_json in
      make ?resourceAssociationArn ?resourceConfigurationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The parameters for EventBridge to use when invoking the resource endpoint."]
module CreateConnectionOAuthClientRequestParameters =
  struct
    type nonrec t =
      {
      clientID: AuthHeaderParameters.t
        [@ocaml.doc
          "The client ID to use for OAuth authorization for the connection."];
      clientSecret: AuthHeaderParametersSensitive.t
        [@ocaml.doc
          "The client secret associated with the client ID to use for OAuth authorization for the connection."]}
    let context_ = "CreateConnectionOAuthClientRequestParameters"
    let make ~clientID =
      fun ~clientSecret -> fun () -> { clientID; clientSecret }
    let to_value x =
      structure_to_value
        [("ClientID", (Some (AuthHeaderParameters.to_value x.clientID)));
        ("ClientSecret",
          (Some (AuthHeaderParametersSensitive.to_value x.clientSecret)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientSecret =
        AuthHeaderParametersSensitive.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ClientSecret") in
      let clientID =
        AuthHeaderParameters.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ClientID") in
      make ~clientSecret ~clientID ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientSecret =
        field_map_exn json__ "ClientSecret"
          AuthHeaderParametersSensitive.of_json in
      let clientID =
        field_map_exn json__ "ClientID" AuthHeaderParameters.of_json in
      make ~clientSecret ~clientID ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Basic authorization parameters to use for the connection."]
module IncludeDetail =
  struct
    type nonrec t =
      | NONE 
      | FULL 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | NONE -> "NONE" | FULL -> "FULL" | Non_static_id s -> s
    let of_string =
      function | "NONE" -> NONE | "FULL" -> FULL | 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 IncludeDetail" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"IncludeDetail" j)
    let to_json = simple_to_json to_value
  end
module Level =
  struct
    type nonrec t =
      | OFF 
      | ERROR 
      | INFO 
      | TRACE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | OFF -> "OFF"
      | ERROR -> "ERROR"
      | INFO -> "INFO"
      | TRACE -> "TRACE"
      | Non_static_id s -> s
    let of_string =
      function
      | "OFF" -> OFF
      | "ERROR" -> ERROR
      | "INFO" -> INFO
      | "TRACE" -> TRACE
      | 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 Level" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Level" j)
    let to_json = simple_to_json to_value
  end
module ConnectivityResourceParameters =
  struct
    type nonrec t =
      {
      resourceParameters: ConnectivityResourceConfigurationArn.t
        [@ocaml.doc
          "The parameters for EventBridge to use when invoking the resource endpoint."]}
    let context_ = "ConnectivityResourceParameters"
    let make ~resourceParameters = fun () -> { resourceParameters }
    let to_value x =
      structure_to_value
        [("ResourceParameters",
           (Some
              (ConnectivityResourceConfigurationArn.to_value
                 x.resourceParameters)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceParameters =
        ConnectivityResourceConfigurationArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceParameters") in
      make ~resourceParameters ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceParameters =
        field_map_exn json__ "ResourceParameters"
          ConnectivityResourceConfigurationArn.of_json in
      make ~resourceParameters ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The parameters for EventBridge to use when invoking the resource endpoint."]
module UpdateConnectionApiKeyAuthRequestParameters =
  struct
    type nonrec t =
      {
      apiKeyName: AuthHeaderParameters.t option
        [@ocaml.doc "The name of the API key to use for authorization."];
      apiKeyValue: AuthHeaderParametersSensitive.t option
        [@ocaml.doc
          "The value associated with the API key to use for authorization."]}
    let make ?apiKeyName =
      fun ?apiKeyValue -> fun () -> { apiKeyName; apiKeyValue }
    let to_value x =
      structure_to_value
        [("ApiKeyName",
           (Option.map x.apiKeyName ~f:AuthHeaderParameters.to_value));
        ("ApiKeyValue",
          (Option.map x.apiKeyValue ~f:AuthHeaderParametersSensitive.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let apiKeyValue =
        (Option.map ~f:AuthHeaderParametersSensitive.of_xml)
          (Xml.child xml_arg0 "ApiKeyValue") in
      let apiKeyName =
        (Option.map ~f:AuthHeaderParameters.of_xml)
          (Xml.child xml_arg0 "ApiKeyName") in
      make ?apiKeyValue ?apiKeyName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let apiKeyValue =
        field_map json__ "ApiKeyValue" AuthHeaderParametersSensitive.of_json in
      let apiKeyName =
        field_map json__ "ApiKeyName" AuthHeaderParameters.of_json in
      make ?apiKeyValue ?apiKeyName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the API key authorization parameters to use to update the connection."]
module UpdateConnectionBasicAuthRequestParameters =
  struct
    type nonrec t =
      {
      username: AuthHeaderParameters.t option
        [@ocaml.doc "The user name to use for Basic authorization."];
      password: AuthHeaderParametersSensitive.t option
        [@ocaml.doc
          "The password associated with the user name to use for Basic authorization."]}
    let make ?username = fun ?password -> fun () -> { username; password }
    let to_value x =
      structure_to_value
        [("Username",
           (Option.map x.username ~f:AuthHeaderParameters.to_value));
        ("Password",
          (Option.map x.password ~f:AuthHeaderParametersSensitive.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let password =
        (Option.map ~f:AuthHeaderParametersSensitive.of_xml)
          (Xml.child xml_arg0 "Password") in
      let username =
        (Option.map ~f:AuthHeaderParameters.of_xml)
          (Xml.child xml_arg0 "Username") in
      make ?password ?username ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let password =
        field_map json__ "Password" AuthHeaderParametersSensitive.of_json in
      let username = field_map json__ "Username" AuthHeaderParameters.of_json in
      make ?password ?username ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The Basic authorization parameters for the connection."]
module UpdateConnectionOAuthRequestParameters =
  struct
    type nonrec t =
      {
      clientParameters: UpdateConnectionOAuthClientRequestParameters.t option
        [@ocaml.doc
          "The client parameters to use for the connection when OAuth is specified as the authorization type."];
      authorizationEndpoint: HttpsEndpoint.t option
        [@ocaml.doc
          "The URL to the authorization endpoint when OAuth is specified as the authorization type."];
      httpMethod: ConnectionOAuthHttpMethod.t option
        [@ocaml.doc "The method used to connect to the HTTP endpoint."];
      oAuthHttpParameters: ConnectionHttpParameters.t option
        [@ocaml.doc
          "The additional HTTP parameters used for the OAuth authorization request."]}
    let make ?clientParameters =
      fun ?authorizationEndpoint ->
        fun ?httpMethod ->
          fun ?oAuthHttpParameters ->
            fun () ->
              {
                clientParameters;
                authorizationEndpoint;
                httpMethod;
                oAuthHttpParameters
              }
    let to_value x =
      structure_to_value
        [("ClientParameters",
           (Option.map x.clientParameters
              ~f:UpdateConnectionOAuthClientRequestParameters.to_value));
        ("AuthorizationEndpoint",
          (Option.map x.authorizationEndpoint ~f:HttpsEndpoint.to_value));
        ("HttpMethod",
          (Option.map x.httpMethod ~f:ConnectionOAuthHttpMethod.to_value));
        ("OAuthHttpParameters",
          (Option.map x.oAuthHttpParameters
             ~f:ConnectionHttpParameters.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let oAuthHttpParameters =
        (Option.map ~f:ConnectionHttpParameters.of_xml)
          (Xml.child xml_arg0 "OAuthHttpParameters") in
      let httpMethod =
        (Option.map ~f:ConnectionOAuthHttpMethod.of_xml)
          (Xml.child xml_arg0 "HttpMethod") in
      let authorizationEndpoint =
        (Option.map ~f:HttpsEndpoint.of_xml)
          (Xml.child xml_arg0 "AuthorizationEndpoint") in
      let clientParameters =
        (Option.map ~f:UpdateConnectionOAuthClientRequestParameters.of_xml)
          (Xml.child xml_arg0 "ClientParameters") in
      make ?oAuthHttpParameters ?httpMethod ?authorizationEndpoint
        ?clientParameters ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let oAuthHttpParameters =
        field_map json__ "OAuthHttpParameters"
          ConnectionHttpParameters.of_json in
      let httpMethod =
        field_map json__ "HttpMethod" ConnectionOAuthHttpMethod.of_json in
      let authorizationEndpoint =
        field_map json__ "AuthorizationEndpoint" HttpsEndpoint.of_json in
      let clientParameters =
        field_map json__ "ClientParameters"
          UpdateConnectionOAuthClientRequestParameters.of_json in
      make ?oAuthHttpParameters ?httpMethod ?authorizationEndpoint
        ?clientParameters ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The OAuth request parameters to use for the connection."]
module ReplayDestinationFilters =
  struct
    type nonrec t = Arn.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:Arn.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:Arn.of_xml)
    let of_json j =
      list_of_json ~kind:"ReplayDestinationFilters" ~of_json:Arn.of_json j
    let to_json v = composed_to_json to_value v
  end
module RemoveTargetsResultEntry =
  struct
    type nonrec t =
      {
      targetId: TargetId.t option [@ocaml.doc "The ID of the target."];
      errorCode: ErrorCode.t option
        [@ocaml.doc
          "The error code that indicates why the target removal failed. If the value is ConcurrentModificationException, too many requests were made at the same time."];
      errorMessage: ErrorMessage.t option
        [@ocaml.doc
          "The error message that explains why the target removal failed."]}
    let make ?targetId =
      fun ?errorCode ->
        fun ?errorMessage -> fun () -> { targetId; errorCode; errorMessage }
    let to_value x =
      structure_to_value
        [("TargetId", (Option.map x.targetId ~f:TargetId.to_value));
        ("ErrorCode", (Option.map x.errorCode ~f:ErrorCode.to_value));
        ("ErrorMessage",
          (Option.map x.errorMessage ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorMessage =
        (Option.map ~f:ErrorMessage.of_xml)
          (Xml.child xml_arg0 "ErrorMessage") in
      let errorCode =
        (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "ErrorCode") in
      let targetId =
        (Option.map ~f:TargetId.of_xml) (Xml.child xml_arg0 "TargetId") in
      make ?errorMessage ?errorCode ?targetId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorMessage = field_map json__ "ErrorMessage" ErrorMessage.of_json in
      let errorCode = field_map json__ "ErrorCode" ErrorCode.of_json in
      let targetId = field_map json__ "TargetId" TargetId.of_json in
      make ?errorMessage ?errorCode ?targetId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a target that failed to be removed from a rule."]
module PutTargetsResultEntry =
  struct
    type nonrec t =
      {
      targetId: TargetId.t option [@ocaml.doc "The ID of the target."];
      errorCode: ErrorCode.t option
        [@ocaml.doc
          "The error code that indicates why the target addition failed. If the value is ConcurrentModificationException, too many requests were made at the same time."];
      errorMessage: ErrorMessage.t option
        [@ocaml.doc
          "The error message that explains why the target addition failed."]}
    let make ?targetId =
      fun ?errorCode ->
        fun ?errorMessage -> fun () -> { targetId; errorCode; errorMessage }
    let to_value x =
      structure_to_value
        [("TargetId", (Option.map x.targetId ~f:TargetId.to_value));
        ("ErrorCode", (Option.map x.errorCode ~f:ErrorCode.to_value));
        ("ErrorMessage",
          (Option.map x.errorMessage ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorMessage =
        (Option.map ~f:ErrorMessage.of_xml)
          (Xml.child xml_arg0 "ErrorMessage") in
      let errorCode =
        (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "ErrorCode") in
      let targetId =
        (Option.map ~f:TargetId.of_xml) (Xml.child xml_arg0 "TargetId") in
      make ?errorMessage ?errorCode ?targetId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorMessage = field_map json__ "ErrorMessage" ErrorMessage.of_json in
      let errorCode = field_map json__ "ErrorCode" ErrorCode.of_json in
      let targetId = field_map json__ "TargetId" TargetId.of_json in
      make ?errorMessage ?errorCode ?targetId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents a target that failed to be added to a rule."]
module Target =
  struct
    type nonrec t =
      {
      id: TargetId.t
        [@ocaml.doc
          "The ID of the target within the specified rule. Use this ID to reference the target when updating the rule. We recommend using a memorable and unique string."];
      arn: TargetArn.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the target."];
      roleArn: RoleArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the IAM role to be used for this target when the rule is triggered. If one rule triggers multiple targets, you can use a different IAM role for each target."];
      input: TargetInput.t option
        [@ocaml.doc
          "Valid JSON text passed to the target. In this case, nothing from the event itself is passed to the target. For more information, see The JavaScript Object Notation (JSON) Data Interchange Format."];
      inputPath: TargetInputPath.t option
        [@ocaml.doc
          "The value of the JSONPath that is used for extracting part of the matched event when passing it to the target. You may use JSON dot notation or bracket notation. For more information about JSON paths, see JSONPath."];
      inputTransformer: InputTransformer.t option
        [@ocaml.doc
          "Settings to enable you to provide custom input to a target based on certain event data. You can extract one or more key-value pairs from the event and then use that data to send customized input to the target."];
      kinesisParameters: KinesisParameters.t option
        [@ocaml.doc
          "The custom parameter you can use to control the shard assignment, when the target is a Kinesis data stream. If you do not include this parameter, the default is to use the eventId as the partition key."];
      runCommandParameters: RunCommandParameters.t option
        [@ocaml.doc
          "Parameters used when you are using the rule to invoke Amazon EC2 Run Command."];
      ecsParameters: EcsParameters.t option
        [@ocaml.doc
          "Contains the Amazon ECS task definition and task count to be used, if the event target is an Amazon ECS task. For more information about Amazon ECS tasks, see Task Definitions in the Amazon EC2 Container Service Developer Guide."];
      batchParameters: BatchParameters.t option
        [@ocaml.doc
          "If the event target is an Batch job, this contains the job definition, job name, and other parameters. For more information, see Jobs in the Batch User Guide."];
      sqsParameters: SqsParameters.t option
        [@ocaml.doc
          "Contains the message group ID to use when the target is a FIFO queue. If you specify an SQS FIFO queue as a target, the queue must have content-based deduplication enabled."];
      httpParameters: HttpParameters.t option
        [@ocaml.doc
          "Contains the HTTP parameters to use when the target is a API Gateway endpoint or EventBridge ApiDestination. If you specify an API Gateway API or EventBridge ApiDestination as a target, you can use this parameter to specify headers, path parameters, and query string keys/values as part of your target invoking request. If you're using ApiDestinations, the corresponding Connection can also have these values configured. In case of any conflicting keys, values from the Connection take precedence."];
      redshiftDataParameters: RedshiftDataParameters.t option
        [@ocaml.doc
          "Contains the Amazon Redshift Data API parameters to use when the target is a Amazon Redshift cluster. If you specify a Amazon Redshift Cluster as a Target, you can use this to specify parameters to invoke the Amazon Redshift Data API ExecuteStatement based on EventBridge events."];
      sageMakerPipelineParameters: SageMakerPipelineParameters.t option
        [@ocaml.doc
          "Contains the SageMaker AI Model Building Pipeline parameters to start execution of a SageMaker AI Model Building Pipeline. If you specify a SageMaker AI Model Building Pipeline as a target, you can use this to specify parameters to start a pipeline execution based on EventBridge events."];
      deadLetterConfig: DeadLetterConfig.t option
        [@ocaml.doc
          "The DeadLetterConfig that defines the target queue to send dead-letter queue events to."];
      retryPolicy: RetryPolicy.t option
        [@ocaml.doc
          "The retry policy configuration to use for the dead-letter queue."];
      appSyncParameters: AppSyncParameters.t option
        [@ocaml.doc
          "Contains the GraphQL operation to be parsed and executed, if the event target is an AppSync API."]}
    let context_ = "Target"
    let make ?roleArn =
      fun ?input ->
        fun ?inputPath ->
          fun ?inputTransformer ->
            fun ?kinesisParameters ->
              fun ?runCommandParameters ->
                fun ?ecsParameters ->
                  fun ?batchParameters ->
                    fun ?sqsParameters ->
                      fun ?httpParameters ->
                        fun ?redshiftDataParameters ->
                          fun ?sageMakerPipelineParameters ->
                            fun ?deadLetterConfig ->
                              fun ?retryPolicy ->
                                fun ?appSyncParameters ->
                                  fun ~id ->
                                    fun ~arn ->
                                      fun () ->
                                        {
                                          roleArn;
                                          input;
                                          inputPath;
                                          inputTransformer;
                                          kinesisParameters;
                                          runCommandParameters;
                                          ecsParameters;
                                          batchParameters;
                                          sqsParameters;
                                          httpParameters;
                                          redshiftDataParameters;
                                          sageMakerPipelineParameters;
                                          deadLetterConfig;
                                          retryPolicy;
                                          appSyncParameters;
                                          id;
                                          arn
                                        }
    let to_value x =
      structure_to_value
        [("Id", (Some (TargetId.to_value x.id)));
        ("Arn", (Some (TargetArn.to_value x.arn)));
        ("RoleArn", (Option.map x.roleArn ~f:RoleArn.to_value));
        ("Input", (Option.map x.input ~f:TargetInput.to_value));
        ("InputPath", (Option.map x.inputPath ~f:TargetInputPath.to_value));
        ("InputTransformer",
          (Option.map x.inputTransformer ~f:InputTransformer.to_value));
        ("KinesisParameters",
          (Option.map x.kinesisParameters ~f:KinesisParameters.to_value));
        ("RunCommandParameters",
          (Option.map x.runCommandParameters ~f:RunCommandParameters.to_value));
        ("EcsParameters",
          (Option.map x.ecsParameters ~f:EcsParameters.to_value));
        ("BatchParameters",
          (Option.map x.batchParameters ~f:BatchParameters.to_value));
        ("SqsParameters",
          (Option.map x.sqsParameters ~f:SqsParameters.to_value));
        ("HttpParameters",
          (Option.map x.httpParameters ~f:HttpParameters.to_value));
        ("RedshiftDataParameters",
          (Option.map x.redshiftDataParameters
             ~f:RedshiftDataParameters.to_value));
        ("SageMakerPipelineParameters",
          (Option.map x.sageMakerPipelineParameters
             ~f:SageMakerPipelineParameters.to_value));
        ("DeadLetterConfig",
          (Option.map x.deadLetterConfig ~f:DeadLetterConfig.to_value));
        ("RetryPolicy", (Option.map x.retryPolicy ~f:RetryPolicy.to_value));
        ("AppSyncParameters",
          (Option.map x.appSyncParameters ~f:AppSyncParameters.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let appSyncParameters =
        (Option.map ~f:AppSyncParameters.of_xml)
          (Xml.child xml_arg0 "AppSyncParameters") in
      let retryPolicy =
        (Option.map ~f:RetryPolicy.of_xml) (Xml.child xml_arg0 "RetryPolicy") in
      let deadLetterConfig =
        (Option.map ~f:DeadLetterConfig.of_xml)
          (Xml.child xml_arg0 "DeadLetterConfig") in
      let sageMakerPipelineParameters =
        (Option.map ~f:SageMakerPipelineParameters.of_xml)
          (Xml.child xml_arg0 "SageMakerPipelineParameters") in
      let redshiftDataParameters =
        (Option.map ~f:RedshiftDataParameters.of_xml)
          (Xml.child xml_arg0 "RedshiftDataParameters") in
      let httpParameters =
        (Option.map ~f:HttpParameters.of_xml)
          (Xml.child xml_arg0 "HttpParameters") in
      let sqsParameters =
        (Option.map ~f:SqsParameters.of_xml)
          (Xml.child xml_arg0 "SqsParameters") in
      let batchParameters =
        (Option.map ~f:BatchParameters.of_xml)
          (Xml.child xml_arg0 "BatchParameters") in
      let ecsParameters =
        (Option.map ~f:EcsParameters.of_xml)
          (Xml.child xml_arg0 "EcsParameters") in
      let runCommandParameters =
        (Option.map ~f:RunCommandParameters.of_xml)
          (Xml.child xml_arg0 "RunCommandParameters") in
      let kinesisParameters =
        (Option.map ~f:KinesisParameters.of_xml)
          (Xml.child xml_arg0 "KinesisParameters") in
      let inputTransformer =
        (Option.map ~f:InputTransformer.of_xml)
          (Xml.child xml_arg0 "InputTransformer") in
      let inputPath =
        (Option.map ~f:TargetInputPath.of_xml)
          (Xml.child xml_arg0 "InputPath") in
      let input =
        (Option.map ~f:TargetInput.of_xml) (Xml.child xml_arg0 "Input") in
      let roleArn =
        (Option.map ~f:RoleArn.of_xml) (Xml.child xml_arg0 "RoleArn") in
      let arn =
        TargetArn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Arn") in
      let id =
        TargetId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Id") in
      make ?appSyncParameters ?retryPolicy ?deadLetterConfig
        ?sageMakerPipelineParameters ?redshiftDataParameters ?httpParameters
        ?sqsParameters ?batchParameters ?ecsParameters ?runCommandParameters
        ?kinesisParameters ?inputTransformer ?inputPath ?input ?roleArn ~arn
        ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let appSyncParameters =
        field_map json__ "AppSyncParameters" AppSyncParameters.of_json in
      let retryPolicy = field_map json__ "RetryPolicy" RetryPolicy.of_json in
      let deadLetterConfig =
        field_map json__ "DeadLetterConfig" DeadLetterConfig.of_json in
      let sageMakerPipelineParameters =
        field_map json__ "SageMakerPipelineParameters"
          SageMakerPipelineParameters.of_json in
      let redshiftDataParameters =
        field_map json__ "RedshiftDataParameters"
          RedshiftDataParameters.of_json in
      let httpParameters =
        field_map json__ "HttpParameters" HttpParameters.of_json in
      let sqsParameters =
        field_map json__ "SqsParameters" SqsParameters.of_json in
      let batchParameters =
        field_map json__ "BatchParameters" BatchParameters.of_json in
      let ecsParameters =
        field_map json__ "EcsParameters" EcsParameters.of_json in
      let runCommandParameters =
        field_map json__ "RunCommandParameters" RunCommandParameters.of_json in
      let kinesisParameters =
        field_map json__ "KinesisParameters" KinesisParameters.of_json in
      let inputTransformer =
        field_map json__ "InputTransformer" InputTransformer.of_json in
      let inputPath = field_map json__ "InputPath" TargetInputPath.of_json in
      let input = field_map json__ "Input" TargetInput.of_json in
      let roleArn = field_map json__ "RoleArn" RoleArn.of_json in
      let arn = field_map_exn json__ "Arn" TargetArn.of_json in
      let id = field_map_exn json__ "Id" TargetId.of_json in
      make ?appSyncParameters ?retryPolicy ?deadLetterConfig
        ?sageMakerPipelineParameters ?redshiftDataParameters ?httpParameters
        ?sqsParameters ?batchParameters ?ecsParameters ?runCommandParameters
        ?kinesisParameters ?inputTransformer ?inputPath ?input ?roleArn ~arn
        ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Targets are the resources to be invoked when a rule is triggered. For a complete list of services and resources that can be set as a target, see PutTargets. If you are setting the event bus of another account as the target, and that account granted permission to your account through an organization instead of directly by the account ID, then you must specify a RoleArn with proper permissions in the Target structure. For more information, see Sending and Receiving Events Between Amazon Web Services Accounts in the Amazon EventBridge User Guide."]
module PutPartnerEventsResultEntry =
  struct
    type nonrec t =
      {
      eventId: EventId.t option [@ocaml.doc "The ID of the event."];
      errorCode: ErrorCode.t option
        [@ocaml.doc
          "The error code that indicates why the event submission failed."];
      errorMessage: ErrorMessage.t option
        [@ocaml.doc
          "The error message that explains why the event submission failed."]}
    let make ?eventId =
      fun ?errorCode ->
        fun ?errorMessage -> fun () -> { eventId; errorCode; errorMessage }
    let to_value x =
      structure_to_value
        [("EventId", (Option.map x.eventId ~f:EventId.to_value));
        ("ErrorCode", (Option.map x.errorCode ~f:ErrorCode.to_value));
        ("ErrorMessage",
          (Option.map x.errorMessage ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorMessage =
        (Option.map ~f:ErrorMessage.of_xml)
          (Xml.child xml_arg0 "ErrorMessage") in
      let errorCode =
        (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "ErrorCode") in
      let eventId =
        (Option.map ~f:EventId.of_xml) (Xml.child xml_arg0 "EventId") in
      make ?errorMessage ?errorCode ?eventId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorMessage = field_map json__ "ErrorMessage" ErrorMessage.of_json in
      let errorCode = field_map json__ "ErrorCode" ErrorCode.of_json in
      let eventId = field_map json__ "EventId" EventId.of_json in
      make ?errorMessage ?errorCode ?eventId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The result of an event entry the partner submitted in this request. If the event was successfully submitted, the entry has the event ID in it. Otherwise, you can use the error code and error message to identify the problem with the entry."]
module PutPartnerEventsRequestEntry =
  struct
    type nonrec t =
      {
      time: EventTime.t option [@ocaml.doc "The date and time of the event."];
      source: EventSourceName.t option
        [@ocaml.doc
          "The event source that is generating the entry. Detail, DetailType, and Source are required for EventBridge to successfully send an event to an event bus. If you include event entries in a request that do not include each of those properties, EventBridge fails that entry. If you submit a request in which none of the entries have each of these properties, EventBridge fails the entire request."];
      resources: EventResourceList.t option
        [@ocaml.doc
          "Amazon Web Services resources, identified by Amazon Resource Name (ARN), which the event primarily concerns. Any number, including zero, may be present."];
      detailType: String_.t option
        [@ocaml.doc
          "A free-form string, with a maximum of 128 characters, used to decide what fields to expect in the event detail. Detail, DetailType, and Source are required for EventBridge to successfully send an event to an event bus. If you include event entries in a request that do not include each of those properties, EventBridge fails that entry. If you submit a request in which none of the entries have each of these properties, EventBridge fails the entire request."];
      detail: String_.t option
        [@ocaml.doc
          "A valid JSON string. There is no other schema imposed. The JSON string may contain fields and nested sub-objects. Detail, DetailType, and Source are required for EventBridge to successfully send an event to an event bus. If you include event entries in a request that do not include each of those properties, EventBridge fails that entry. If you submit a request in which none of the entries have each of these properties, EventBridge fails the entire request."]}
    let make ?time =
      fun ?source ->
        fun ?resources ->
          fun ?detailType ->
            fun ?detail ->
              fun () -> { time; source; resources; detailType; detail }
    let to_value x =
      structure_to_value
        [("Time", (Option.map x.time ~f:EventTime.to_value));
        ("Source", (Option.map x.source ~f:EventSourceName.to_value));
        ("Resources", (Option.map x.resources ~f:EventResourceList.to_value));
        ("DetailType", (Option.map x.detailType ~f:String_.to_value));
        ("Detail", (Option.map x.detail ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let detail =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Detail") in
      let detailType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "DetailType") in
      let resources =
        (Option.map ~f:EventResourceList.of_xml)
          (Xml.child xml_arg0 "Resources") in
      let source =
        (Option.map ~f:EventSourceName.of_xml) (Xml.child xml_arg0 "Source") in
      let time = (Option.map ~f:EventTime.of_xml) (Xml.child xml_arg0 "Time") in
      make ?detail ?detailType ?resources ?source ?time ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let detail = field_map json__ "Detail" String_.of_json in
      let detailType = field_map json__ "DetailType" String_.of_json in
      let resources = field_map json__ "Resources" EventResourceList.of_json in
      let source = field_map json__ "Source" EventSourceName.of_json in
      let time = field_map json__ "Time" EventTime.of_json in
      make ?detail ?detailType ?resources ?source ?time ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The details about an event generated by an SaaS partner."]
module PutEventsResultEntry =
  struct
    type nonrec t =
      {
      eventId: EventId.t option [@ocaml.doc "The ID of the event."];
      errorCode: ErrorCode.t option
        [@ocaml.doc
          "The error code that indicates why the event submission failed. Retryable errors include: InternalFailure The request processing has failed because of an unknown error, exception or failure. ThrottlingException The request was denied due to request throttling. Non-retryable errors include: AccessDeniedException You do not have sufficient access to perform this action. InvalidAccountIdException The account ID provided is not valid. InvalidArgument A specified parameter is not valid. MalformedDetail The JSON provided is not valid. RedactionFailure Redacting the CloudTrail event failed. NotAuthorizedForSourceException You do not have permissions to publish events with this source onto this event bus. NotAuthorizedForDetailTypeException You do not have permissions to publish events with this detail type onto this event bus."];
      errorMessage: ErrorMessage.t option
        [@ocaml.doc
          "The error message that explains why the event submission failed."]}
    let make ?eventId =
      fun ?errorCode ->
        fun ?errorMessage -> fun () -> { eventId; errorCode; errorMessage }
    let to_value x =
      structure_to_value
        [("EventId", (Option.map x.eventId ~f:EventId.to_value));
        ("ErrorCode", (Option.map x.errorCode ~f:ErrorCode.to_value));
        ("ErrorMessage",
          (Option.map x.errorMessage ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorMessage =
        (Option.map ~f:ErrorMessage.of_xml)
          (Xml.child xml_arg0 "ErrorMessage") in
      let errorCode =
        (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "ErrorCode") in
      let eventId =
        (Option.map ~f:EventId.of_xml) (Xml.child xml_arg0 "EventId") in
      make ?errorMessage ?errorCode ?eventId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorMessage = field_map json__ "ErrorMessage" ErrorMessage.of_json in
      let errorCode = field_map json__ "ErrorCode" ErrorCode.of_json in
      let eventId = field_map json__ "EventId" EventId.of_json in
      make ?errorMessage ?errorCode ?eventId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the results of an event submitted to an event bus. If the submission was successful, the entry has the event ID in it. Otherwise, you can use the error code and error message to identify the problem with the entry. For information about the errors that are common to all actions, see Common Errors."]
module PutEventsRequestEntry =
  struct
    type nonrec t =
      {
      time: EventTime.t option
        [@ocaml.doc
          "The time stamp of the event, per RFC3339. If no time stamp is provided, the time stamp of the PutEvents call is used."];
      source: String_.t option
        [@ocaml.doc
          "The source of the event. Detail, DetailType, and Source are required for EventBridge to successfully send an event to an event bus. If you include event entries in a request that do not include each of those properties, EventBridge fails that entry. If you submit a request in which none of the entries have each of these properties, EventBridge fails the entire request."];
      resources: EventResourceList.t option
        [@ocaml.doc
          "Amazon Web Services resources, identified by Amazon Resource Name (ARN), which the event primarily concerns. Any number, including zero, may be present."];
      detailType: String_.t option
        [@ocaml.doc
          "Free-form string, with a maximum of 128 characters, used to decide what fields to expect in the event detail. Detail, DetailType, and Source are required for EventBridge to successfully send an event to an event bus. If you include event entries in a request that do not include each of those properties, EventBridge fails that entry. If you submit a request in which none of the entries have each of these properties, EventBridge fails the entire request."];
      detail: String_.t option
        [@ocaml.doc
          "A valid JSON object. There is no other schema imposed. The JSON object may contain fields and nested sub-objects. Detail, DetailType, and Source are required for EventBridge to successfully send an event to an event bus. If you include event entries in a request that do not include each of those properties, EventBridge fails that entry. If you submit a request in which none of the entries have each of these properties, EventBridge fails the entire request."];
      eventBusName: NonPartnerEventBusNameOrArn.t option
        [@ocaml.doc
          "The name or ARN of the event bus to receive the event. Only the rules that are associated with this event bus are used to match the event. If you omit this, the default event bus is used. If you're using a global endpoint with a custom bus, you can enter either the name or Amazon Resource Name (ARN) of the event bus in either the primary or secondary Region here. EventBridge then determines the corresponding event bus in the other Region based on the endpoint referenced by the EndpointId. Specifying the event bus ARN is preferred."];
      traceHeader: TraceHeader.t option
        [@ocaml.doc
          "An X-Ray trace header, which is an http header (X-Amzn-Trace-Id) that contains the trace-id associated with the event. To learn more about X-Ray trace headers, see Tracing header in the X-Ray Developer Guide."]}
    let make ?time =
      fun ?source ->
        fun ?resources ->
          fun ?detailType ->
            fun ?detail ->
              fun ?eventBusName ->
                fun ?traceHeader ->
                  fun () ->
                    {
                      time;
                      source;
                      resources;
                      detailType;
                      detail;
                      eventBusName;
                      traceHeader
                    }
    let to_value x =
      structure_to_value
        [("Time", (Option.map x.time ~f:EventTime.to_value));
        ("Source", (Option.map x.source ~f:String_.to_value));
        ("Resources", (Option.map x.resources ~f:EventResourceList.to_value));
        ("DetailType", (Option.map x.detailType ~f:String_.to_value));
        ("Detail", (Option.map x.detail ~f:String_.to_value));
        ("EventBusName",
          (Option.map x.eventBusName ~f:NonPartnerEventBusNameOrArn.to_value));
        ("TraceHeader", (Option.map x.traceHeader ~f:TraceHeader.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let traceHeader =
        (Option.map ~f:TraceHeader.of_xml) (Xml.child xml_arg0 "TraceHeader") in
      let eventBusName =
        (Option.map ~f:NonPartnerEventBusNameOrArn.of_xml)
          (Xml.child xml_arg0 "EventBusName") in
      let detail =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Detail") in
      let detailType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "DetailType") in
      let resources =
        (Option.map ~f:EventResourceList.of_xml)
          (Xml.child xml_arg0 "Resources") in
      let source =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Source") in
      let time = (Option.map ~f:EventTime.of_xml) (Xml.child xml_arg0 "Time") in
      make ?traceHeader ?eventBusName ?detail ?detailType ?resources ?source
        ?time ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let traceHeader = field_map json__ "TraceHeader" TraceHeader.of_json in
      let eventBusName =
        field_map json__ "EventBusName" NonPartnerEventBusNameOrArn.of_json in
      let detail = field_map json__ "Detail" String_.of_json in
      let detailType = field_map json__ "DetailType" String_.of_json in
      let resources = field_map json__ "Resources" EventResourceList.of_json in
      let source = field_map json__ "Source" String_.of_json in
      let time = field_map json__ "Time" EventTime.of_json in
      make ?traceHeader ?eventBusName ?detail ?detailType ?resources ?source
        ?time ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents an event to be submitted."]
module Rule =
  struct
    type nonrec t =
      {
      name: RuleName.t option [@ocaml.doc "The name of the rule."];
      arn: RuleArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the rule."];
      eventPattern: EventPattern.t option
        [@ocaml.doc
          "The event pattern of the rule. For more information, see Events and Event Patterns in the Amazon EventBridge User Guide ."];
      state: RuleState.t option
        [@ocaml.doc
          "The state of the rule. Valid values include: DISABLED: The rule is disabled. EventBridge does not match any events against the rule. ENABLED: The rule is enabled. EventBridge matches events against the rule, except for Amazon Web Services management events delivered through CloudTrail. ENABLED_WITH_ALL_CLOUDTRAIL_MANAGEMENT_EVENTS: The rule is enabled for all events, including Amazon Web Services management events delivered through CloudTrail. Management events provide visibility into management operations that are performed on resources in your Amazon Web Services account. These are also known as control plane operations. For more information, see Logging management events in the CloudTrail User Guide, and Filtering management events from Amazon Web Services services in the Amazon EventBridge User Guide . This value is only valid for rules on the default event bus or custom event buses. It does not apply to partner event buses."];
      description: RuleDescription.t option
        [@ocaml.doc "The description of the rule."];
      scheduleExpression: ScheduleExpression.t option
        [@ocaml.doc
          "The scheduling expression. For example, \"cron(0 20 * * ? *)\", \"rate(5 minutes)\". For more information, see Creating an Amazon EventBridge rule that runs on a schedule."];
      roleArn: RoleArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the role that is used for target invocation. If you're setting an event bus in another account as the target and that account granted permission to your account through an organization instead of directly by the account ID, you must specify a RoleArn with proper permissions in the Target structure, instead of here in this parameter."];
      managedBy: ManagedBy.t option
        [@ocaml.doc
          "If the rule was created on behalf of your account by an Amazon Web Services service, this field displays the principal name of the service that created the rule."];
      eventBusName: EventBusName.t option
        [@ocaml.doc
          "The name or ARN of the event bus associated with the rule. If you omit this, the default event bus is used."]}
    let make ?name =
      fun ?arn ->
        fun ?eventPattern ->
          fun ?state ->
            fun ?description ->
              fun ?scheduleExpression ->
                fun ?roleArn ->
                  fun ?managedBy ->
                    fun ?eventBusName ->
                      fun () ->
                        {
                          name;
                          arn;
                          eventPattern;
                          state;
                          description;
                          scheduleExpression;
                          roleArn;
                          managedBy;
                          eventBusName
                        }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:RuleName.to_value));
        ("Arn", (Option.map x.arn ~f:RuleArn.to_value));
        ("EventPattern",
          (Option.map x.eventPattern ~f:EventPattern.to_value));
        ("State", (Option.map x.state ~f:RuleState.to_value));
        ("Description",
          (Option.map x.description ~f:RuleDescription.to_value));
        ("ScheduleExpression",
          (Option.map x.scheduleExpression ~f:ScheduleExpression.to_value));
        ("RoleArn", (Option.map x.roleArn ~f:RoleArn.to_value));
        ("ManagedBy", (Option.map x.managedBy ~f:ManagedBy.to_value));
        ("EventBusName",
          (Option.map x.eventBusName ~f:EventBusName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eventBusName =
        (Option.map ~f:EventBusName.of_xml)
          (Xml.child xml_arg0 "EventBusName") in
      let managedBy =
        (Option.map ~f:ManagedBy.of_xml) (Xml.child xml_arg0 "ManagedBy") in
      let roleArn =
        (Option.map ~f:RoleArn.of_xml) (Xml.child xml_arg0 "RoleArn") in
      let scheduleExpression =
        (Option.map ~f:ScheduleExpression.of_xml)
          (Xml.child xml_arg0 "ScheduleExpression") in
      let description =
        (Option.map ~f:RuleDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let state =
        (Option.map ~f:RuleState.of_xml) (Xml.child xml_arg0 "State") in
      let eventPattern =
        (Option.map ~f:EventPattern.of_xml)
          (Xml.child xml_arg0 "EventPattern") in
      let arn = (Option.map ~f:RuleArn.of_xml) (Xml.child xml_arg0 "Arn") in
      let name = (Option.map ~f:RuleName.of_xml) (Xml.child xml_arg0 "Name") in
      make ?eventBusName ?managedBy ?roleArn ?scheduleExpression ?description
        ?state ?eventPattern ?arn ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eventBusName = field_map json__ "EventBusName" EventBusName.of_json in
      let managedBy = field_map json__ "ManagedBy" ManagedBy.of_json in
      let roleArn = field_map json__ "RoleArn" RoleArn.of_json in
      let scheduleExpression =
        field_map json__ "ScheduleExpression" ScheduleExpression.of_json in
      let description =
        field_map json__ "Description" RuleDescription.of_json in
      let state = field_map json__ "State" RuleState.of_json in
      let eventPattern = field_map json__ "EventPattern" EventPattern.of_json in
      let arn = field_map json__ "Arn" RuleArn.of_json in
      let name = field_map json__ "Name" RuleName.of_json in
      make ?eventBusName ?managedBy ?roleArn ?scheduleExpression ?description
        ?state ?eventPattern ?arn ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains information about a rule in Amazon EventBridge."]
module Replay =
  struct
    type nonrec t =
      {
      replayName: ReplayName.t option [@ocaml.doc "The name of the replay."];
      eventSourceArn: ArchiveArn.t option
        [@ocaml.doc "The ARN of the archive to replay event from."];
      state: ReplayState.t option
        [@ocaml.doc "The current state of the replay."];
      stateReason: ReplayStateReason.t option
        [@ocaml.doc
          "A description of why the replay is in the current state."];
      eventStartTime: Timestamp.t option
        [@ocaml.doc
          "A time stamp for the time to start replaying events. This is determined by the time in the event as described in Time."];
      eventEndTime: Timestamp.t option
        [@ocaml.doc
          "A time stamp for the time to start replaying events. Any event with a creation time prior to the EventEndTime specified is replayed."];
      eventLastReplayedTime: Timestamp.t option
        [@ocaml.doc
          "A time stamp for the time that the last event was replayed."];
      replayStartTime: Timestamp.t option
        [@ocaml.doc "A time stamp for the time that the replay started."];
      replayEndTime: Timestamp.t option
        [@ocaml.doc "A time stamp for the time that the replay completed."]}
    let make ?replayName =
      fun ?eventSourceArn ->
        fun ?state ->
          fun ?stateReason ->
            fun ?eventStartTime ->
              fun ?eventEndTime ->
                fun ?eventLastReplayedTime ->
                  fun ?replayStartTime ->
                    fun ?replayEndTime ->
                      fun () ->
                        {
                          replayName;
                          eventSourceArn;
                          state;
                          stateReason;
                          eventStartTime;
                          eventEndTime;
                          eventLastReplayedTime;
                          replayStartTime;
                          replayEndTime
                        }
    let to_value x =
      structure_to_value
        [("ReplayName", (Option.map x.replayName ~f:ReplayName.to_value));
        ("EventSourceArn",
          (Option.map x.eventSourceArn ~f:ArchiveArn.to_value));
        ("State", (Option.map x.state ~f:ReplayState.to_value));
        ("StateReason",
          (Option.map x.stateReason ~f:ReplayStateReason.to_value));
        ("EventStartTime",
          (Option.map x.eventStartTime ~f:Timestamp.to_value));
        ("EventEndTime", (Option.map x.eventEndTime ~f:Timestamp.to_value));
        ("EventLastReplayedTime",
          (Option.map x.eventLastReplayedTime ~f:Timestamp.to_value));
        ("ReplayStartTime",
          (Option.map x.replayStartTime ~f:Timestamp.to_value));
        ("ReplayEndTime", (Option.map x.replayEndTime ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let replayEndTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "ReplayEndTime") in
      let replayStartTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "ReplayStartTime") in
      let eventLastReplayedTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "EventLastReplayedTime") in
      let eventEndTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "EventEndTime") in
      let eventStartTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "EventStartTime") in
      let stateReason =
        (Option.map ~f:ReplayStateReason.of_xml)
          (Xml.child xml_arg0 "StateReason") in
      let state =
        (Option.map ~f:ReplayState.of_xml) (Xml.child xml_arg0 "State") in
      let eventSourceArn =
        (Option.map ~f:ArchiveArn.of_xml)
          (Xml.child xml_arg0 "EventSourceArn") in
      let replayName =
        (Option.map ~f:ReplayName.of_xml) (Xml.child xml_arg0 "ReplayName") in
      make ?replayEndTime ?replayStartTime ?eventLastReplayedTime
        ?eventEndTime ?eventStartTime ?stateReason ?state ?eventSourceArn
        ?replayName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let replayEndTime = field_map json__ "ReplayEndTime" Timestamp.of_json in
      let replayStartTime =
        field_map json__ "ReplayStartTime" Timestamp.of_json in
      let eventLastReplayedTime =
        field_map json__ "EventLastReplayedTime" Timestamp.of_json in
      let eventEndTime = field_map json__ "EventEndTime" Timestamp.of_json in
      let eventStartTime =
        field_map json__ "EventStartTime" Timestamp.of_json in
      let stateReason =
        field_map json__ "StateReason" ReplayStateReason.of_json in
      let state = field_map json__ "State" ReplayState.of_json in
      let eventSourceArn =
        field_map json__ "EventSourceArn" ArchiveArn.of_json in
      let replayName = field_map json__ "ReplayName" ReplayName.of_json in
      make ?replayEndTime ?replayStartTime ?eventLastReplayedTime
        ?eventEndTime ?eventStartTime ?stateReason ?state ?eventSourceArn
        ?replayName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A Replay object that contains details about a replay."]
module PartnerEventSource =
  struct
    type nonrec t =
      {
      arn: String_.t option
        [@ocaml.doc "The ARN of the partner event source."];
      name: String_.t option
        [@ocaml.doc "The name of the partner event source."]}
    let make ?arn = fun ?name -> fun () -> { arn; name }
    let to_value x =
      structure_to_value
        [("Arn", (Option.map x.arn ~f:String_.to_value));
        ("Name", (Option.map x.name ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Name") in
      let arn = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Arn") in
      make ?name ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map json__ "Name" String_.of_json in
      let arn = field_map json__ "Arn" String_.of_json in make ?name ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A partner event source is created by an SaaS partner. If a customer creates a partner event bus that matches this event source, that Amazon Web Services account can receive events from the partner's applications or services."]
module PartnerEventSourceAccount =
  struct
    type nonrec t =
      {
      account: AccountId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID that the partner event source was offered to."];
      creationTime: Timestamp.t option
        [@ocaml.doc "The date and time the event source was created."];
      expirationTime: Timestamp.t option
        [@ocaml.doc
          "The date and time that the event source will expire, if the Amazon Web Services account doesn't create a matching event bus for it."];
      state: EventSourceState.t option
        [@ocaml.doc
          "The state of the event source. If it is ACTIVE, you have already created a matching event bus for this event source, and that event bus is active. If it is PENDING, either you haven't yet created a matching event bus, or that event bus is deactivated. If it is DELETED, you have created a matching event bus, but the event source has since been deleted."]}
    let make ?account =
      fun ?creationTime ->
        fun ?expirationTime ->
          fun ?state ->
            fun () -> { account; creationTime; expirationTime; state }
    let to_value x =
      structure_to_value
        [("Account", (Option.map x.account ~f:AccountId.to_value));
        ("CreationTime", (Option.map x.creationTime ~f:Timestamp.to_value));
        ("ExpirationTime",
          (Option.map x.expirationTime ~f:Timestamp.to_value));
        ("State", (Option.map x.state ~f:EventSourceState.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let state =
        (Option.map ~f:EventSourceState.of_xml) (Xml.child xml_arg0 "State") in
      let expirationTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "ExpirationTime") in
      let creationTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "CreationTime") in
      let account =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "Account") in
      make ?state ?expirationTime ?creationTime ?account ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let state = field_map json__ "State" EventSourceState.of_json in
      let expirationTime =
        field_map json__ "ExpirationTime" Timestamp.of_json in
      let creationTime = field_map json__ "CreationTime" Timestamp.of_json in
      let account = field_map json__ "Account" AccountId.of_json in
      make ?state ?expirationTime ?creationTime ?account ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Amazon Web Services account that a partner event source has been offered to."]
module EventSource =
  struct
    type nonrec t =
      {
      arn: String_.t option [@ocaml.doc "The ARN of the event source."];
      createdBy: String_.t option
        [@ocaml.doc "The name of the partner that created the event source."];
      creationTime: Timestamp.t option
        [@ocaml.doc "The date and time the event source was created."];
      expirationTime: Timestamp.t option
        [@ocaml.doc
          "The date and time that the event source will expire, if the Amazon Web Services account doesn't create a matching event bus for it."];
      name: String_.t option [@ocaml.doc "The name of the event source."];
      state: EventSourceState.t option
        [@ocaml.doc
          "The state of the event source. If it is ACTIVE, you have already created a matching event bus for this event source, and that event bus is active. If it is PENDING, either you haven't yet created a matching event bus, or that event bus is deactivated. If it is DELETED, you have created a matching event bus, but the event source has since been deleted."]}
    let make ?arn =
      fun ?createdBy ->
        fun ?creationTime ->
          fun ?expirationTime ->
            fun ?name ->
              fun ?state ->
                fun () ->
                  { arn; createdBy; creationTime; expirationTime; name; state
                  }
    let to_value x =
      structure_to_value
        [("Arn", (Option.map x.arn ~f:String_.to_value));
        ("CreatedBy", (Option.map x.createdBy ~f:String_.to_value));
        ("CreationTime", (Option.map x.creationTime ~f:Timestamp.to_value));
        ("ExpirationTime",
          (Option.map x.expirationTime ~f:Timestamp.to_value));
        ("Name", (Option.map x.name ~f:String_.to_value));
        ("State", (Option.map x.state ~f:EventSourceState.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let state =
        (Option.map ~f:EventSourceState.of_xml) (Xml.child xml_arg0 "State") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Name") in
      let expirationTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "ExpirationTime") in
      let creationTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "CreationTime") in
      let createdBy =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "CreatedBy") in
      let arn = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Arn") in
      make ?state ?name ?expirationTime ?creationTime ?createdBy ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let state = field_map json__ "State" EventSourceState.of_json in
      let name = field_map json__ "Name" String_.of_json in
      let expirationTime =
        field_map json__ "ExpirationTime" Timestamp.of_json in
      let creationTime = field_map json__ "CreationTime" Timestamp.of_json in
      let createdBy = field_map json__ "CreatedBy" String_.of_json in
      let arn = field_map json__ "Arn" String_.of_json in
      make ?state ?name ?expirationTime ?creationTime ?createdBy ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A partner event source is created by an SaaS partner. If a customer creates a partner event bus that matches this event source, that Amazon Web Services account can receive events from the partner's applications or services."]
module EventBus =
  struct
    type nonrec t =
      {
      name: String_.t option [@ocaml.doc "The name of the event bus."];
      arn: String_.t option [@ocaml.doc "The ARN of the event bus."];
      description: EventBusDescription.t option
        [@ocaml.doc "The event bus description."];
      policy: String_.t option
        [@ocaml.doc
          "The permissions policy of the event bus, describing which other Amazon Web Services accounts can write events to this event bus."];
      creationTime: Timestamp.t option
        [@ocaml.doc "The time the event bus was created."];
      lastModifiedTime: Timestamp.t option
        [@ocaml.doc "The time the event bus was last modified."]}
    let make ?name =
      fun ?arn ->
        fun ?description ->
          fun ?policy ->
            fun ?creationTime ->
              fun ?lastModifiedTime ->
                fun () ->
                  {
                    name;
                    arn;
                    description;
                    policy;
                    creationTime;
                    lastModifiedTime
                  }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:String_.to_value));
        ("Arn", (Option.map x.arn ~f:String_.to_value));
        ("Description",
          (Option.map x.description ~f:EventBusDescription.to_value));
        ("Policy", (Option.map x.policy ~f:String_.to_value));
        ("CreationTime", (Option.map x.creationTime ~f:Timestamp.to_value));
        ("LastModifiedTime",
          (Option.map x.lastModifiedTime ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastModifiedTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastModifiedTime") in
      let creationTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "CreationTime") in
      let policy =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Policy") in
      let description =
        (Option.map ~f:EventBusDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let arn = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Arn") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Name") in
      make ?lastModifiedTime ?creationTime ?policy ?description ?arn ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastModifiedTime =
        field_map json__ "LastModifiedTime" Timestamp.of_json in
      let creationTime = field_map json__ "CreationTime" Timestamp.of_json in
      let policy = field_map json__ "Policy" String_.of_json in
      let description =
        field_map json__ "Description" EventBusDescription.of_json in
      let arn = field_map json__ "Arn" String_.of_json in
      let name = field_map json__ "Name" String_.of_json in
      make ?lastModifiedTime ?creationTime ?policy ?description ?arn ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An event bus receives events from a source, uses rules to evaluate them, applies any configured input transformation, and routes them to the appropriate target(s). Your account's default event bus receives events from Amazon Web Services services. A custom event bus can receive events from your custom applications and services. A partner event bus receives events from an event source created by an SaaS partner. These events come from the partners services or applications."]
module Endpoint =
  struct
    type nonrec t =
      {
      name: EndpointName.t option [@ocaml.doc "The name of the endpoint."];
      description: EndpointDescription.t option
        [@ocaml.doc "A description for the endpoint."];
      arn: EndpointArn.t option [@ocaml.doc "The ARN of the endpoint."];
      routingConfig: RoutingConfig.t option
        [@ocaml.doc "The routing configuration of the endpoint."];
      replicationConfig: ReplicationConfig.t option
        [@ocaml.doc
          "Whether event replication was enabled or disabled for this endpoint. The default state is ENABLED which means you must supply a RoleArn. If you don't have a RoleArn or you don't want event replication enabled, set the state to DISABLED."];
      eventBuses: EndpointEventBusList.t option
        [@ocaml.doc "The event buses being used by the endpoint."];
      roleArn: IamRoleArn.t option
        [@ocaml.doc
          "The ARN of the role used by event replication for the endpoint."];
      endpointId: EndpointId.t option
        [@ocaml.doc
          "The URL subdomain of the endpoint. For example, if the URL for Endpoint is https://abcde.veo.endpoints.event.amazonaws.com, then the EndpointId is abcde.veo."];
      endpointUrl: EndpointUrl.t option
        [@ocaml.doc "The URL of the endpoint."];
      state: EndpointState.t option
        [@ocaml.doc "The current state of the endpoint."];
      stateReason: EndpointStateReason.t option
        [@ocaml.doc "The reason the endpoint is in its current state."];
      creationTime: Timestamp.t option
        [@ocaml.doc "The time the endpoint was created."];
      lastModifiedTime: Timestamp.t option
        [@ocaml.doc "The last time the endpoint was modified."]}
    let make ?name =
      fun ?description ->
        fun ?arn ->
          fun ?routingConfig ->
            fun ?replicationConfig ->
              fun ?eventBuses ->
                fun ?roleArn ->
                  fun ?endpointId ->
                    fun ?endpointUrl ->
                      fun ?state ->
                        fun ?stateReason ->
                          fun ?creationTime ->
                            fun ?lastModifiedTime ->
                              fun () ->
                                {
                                  name;
                                  description;
                                  arn;
                                  routingConfig;
                                  replicationConfig;
                                  eventBuses;
                                  roleArn;
                                  endpointId;
                                  endpointUrl;
                                  state;
                                  stateReason;
                                  creationTime;
                                  lastModifiedTime
                                }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:EndpointName.to_value));
        ("Description",
          (Option.map x.description ~f:EndpointDescription.to_value));
        ("Arn", (Option.map x.arn ~f:EndpointArn.to_value));
        ("RoutingConfig",
          (Option.map x.routingConfig ~f:RoutingConfig.to_value));
        ("ReplicationConfig",
          (Option.map x.replicationConfig ~f:ReplicationConfig.to_value));
        ("EventBuses",
          (Option.map x.eventBuses ~f:EndpointEventBusList.to_value));
        ("RoleArn", (Option.map x.roleArn ~f:IamRoleArn.to_value));
        ("EndpointId", (Option.map x.endpointId ~f:EndpointId.to_value));
        ("EndpointUrl", (Option.map x.endpointUrl ~f:EndpointUrl.to_value));
        ("State", (Option.map x.state ~f:EndpointState.to_value));
        ("StateReason",
          (Option.map x.stateReason ~f:EndpointStateReason.to_value));
        ("CreationTime", (Option.map x.creationTime ~f:Timestamp.to_value));
        ("LastModifiedTime",
          (Option.map x.lastModifiedTime ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastModifiedTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastModifiedTime") in
      let creationTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "CreationTime") in
      let stateReason =
        (Option.map ~f:EndpointStateReason.of_xml)
          (Xml.child xml_arg0 "StateReason") in
      let state =
        (Option.map ~f:EndpointState.of_xml) (Xml.child xml_arg0 "State") in
      let endpointUrl =
        (Option.map ~f:EndpointUrl.of_xml) (Xml.child xml_arg0 "EndpointUrl") in
      let endpointId =
        (Option.map ~f:EndpointId.of_xml) (Xml.child xml_arg0 "EndpointId") in
      let roleArn =
        (Option.map ~f:IamRoleArn.of_xml) (Xml.child xml_arg0 "RoleArn") in
      let eventBuses =
        (Option.map ~f:EndpointEventBusList.of_xml)
          (Xml.child xml_arg0 "EventBuses") in
      let replicationConfig =
        (Option.map ~f:ReplicationConfig.of_xml)
          (Xml.child xml_arg0 "ReplicationConfig") in
      let routingConfig =
        (Option.map ~f:RoutingConfig.of_xml)
          (Xml.child xml_arg0 "RoutingConfig") in
      let arn = (Option.map ~f:EndpointArn.of_xml) (Xml.child xml_arg0 "Arn") in
      let description =
        (Option.map ~f:EndpointDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let name =
        (Option.map ~f:EndpointName.of_xml) (Xml.child xml_arg0 "Name") in
      make ?lastModifiedTime ?creationTime ?stateReason ?state ?endpointUrl
        ?endpointId ?roleArn ?eventBuses ?replicationConfig ?routingConfig
        ?arn ?description ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastModifiedTime =
        field_map json__ "LastModifiedTime" Timestamp.of_json in
      let creationTime = field_map json__ "CreationTime" Timestamp.of_json in
      let stateReason =
        field_map json__ "StateReason" EndpointStateReason.of_json in
      let state = field_map json__ "State" EndpointState.of_json in
      let endpointUrl = field_map json__ "EndpointUrl" EndpointUrl.of_json in
      let endpointId = field_map json__ "EndpointId" EndpointId.of_json in
      let roleArn = field_map json__ "RoleArn" IamRoleArn.of_json in
      let eventBuses =
        field_map json__ "EventBuses" EndpointEventBusList.of_json in
      let replicationConfig =
        field_map json__ "ReplicationConfig" ReplicationConfig.of_json in
      let routingConfig =
        field_map json__ "RoutingConfig" RoutingConfig.of_json in
      let arn = field_map json__ "Arn" EndpointArn.of_json in
      let description =
        field_map json__ "Description" EndpointDescription.of_json in
      let name = field_map json__ "Name" EndpointName.of_json in
      make ?lastModifiedTime ?creationTime ?stateReason ?state ?endpointUrl
        ?endpointId ?roleArn ?eventBuses ?replicationConfig ?routingConfig
        ?arn ?description ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A global endpoint used to improve your application's availability by making it regional-fault tolerant. For more information about global endpoints, see Making applications Regional-fault tolerant with global endpoints and event replication in the Amazon EventBridge User Guide ."]
module Connection =
  struct
    type nonrec t =
      {
      connectionArn: ConnectionArn.t option
        [@ocaml.doc "The ARN of the connection."];
      name: ConnectionName.t option
        [@ocaml.doc "The name of the connection."];
      connectionState: ConnectionState.t option
        [@ocaml.doc "The state of the connection."];
      stateReason: ConnectionStateReason.t option
        [@ocaml.doc
          "The reason that the connection is in the connection state."];
      authorizationType: ConnectionAuthorizationType.t option
        [@ocaml.doc
          "The authorization type specified for the connection. OAUTH tokens are refreshed when a 401 or 407 response is returned."];
      creationTime: Timestamp.t option
        [@ocaml.doc
          "A time stamp for the time that the connection was created."];
      lastModifiedTime: Timestamp.t option
        [@ocaml.doc
          "A time stamp for the time that the connection was last modified."];
      lastAuthorizedTime: Timestamp.t option
        [@ocaml.doc
          "A time stamp for the time that the connection was last authorized."]}
    let make ?connectionArn =
      fun ?name ->
        fun ?connectionState ->
          fun ?stateReason ->
            fun ?authorizationType ->
              fun ?creationTime ->
                fun ?lastModifiedTime ->
                  fun ?lastAuthorizedTime ->
                    fun () ->
                      {
                        connectionArn;
                        name;
                        connectionState;
                        stateReason;
                        authorizationType;
                        creationTime;
                        lastModifiedTime;
                        lastAuthorizedTime
                      }
    let to_value x =
      structure_to_value
        [("ConnectionArn",
           (Option.map x.connectionArn ~f:ConnectionArn.to_value));
        ("Name", (Option.map x.name ~f:ConnectionName.to_value));
        ("ConnectionState",
          (Option.map x.connectionState ~f:ConnectionState.to_value));
        ("StateReason",
          (Option.map x.stateReason ~f:ConnectionStateReason.to_value));
        ("AuthorizationType",
          (Option.map x.authorizationType
             ~f:ConnectionAuthorizationType.to_value));
        ("CreationTime", (Option.map x.creationTime ~f:Timestamp.to_value));
        ("LastModifiedTime",
          (Option.map x.lastModifiedTime ~f:Timestamp.to_value));
        ("LastAuthorizedTime",
          (Option.map x.lastAuthorizedTime ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastAuthorizedTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastAuthorizedTime") in
      let lastModifiedTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastModifiedTime") in
      let creationTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "CreationTime") in
      let authorizationType =
        (Option.map ~f:ConnectionAuthorizationType.of_xml)
          (Xml.child xml_arg0 "AuthorizationType") in
      let stateReason =
        (Option.map ~f:ConnectionStateReason.of_xml)
          (Xml.child xml_arg0 "StateReason") in
      let connectionState =
        (Option.map ~f:ConnectionState.of_xml)
          (Xml.child xml_arg0 "ConnectionState") in
      let name =
        (Option.map ~f:ConnectionName.of_xml) (Xml.child xml_arg0 "Name") in
      let connectionArn =
        (Option.map ~f:ConnectionArn.of_xml)
          (Xml.child xml_arg0 "ConnectionArn") in
      make ?lastAuthorizedTime ?lastModifiedTime ?creationTime
        ?authorizationType ?stateReason ?connectionState ?name ?connectionArn
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastAuthorizedTime =
        field_map json__ "LastAuthorizedTime" Timestamp.of_json in
      let lastModifiedTime =
        field_map json__ "LastModifiedTime" Timestamp.of_json in
      let creationTime = field_map json__ "CreationTime" Timestamp.of_json in
      let authorizationType =
        field_map json__ "AuthorizationType"
          ConnectionAuthorizationType.of_json in
      let stateReason =
        field_map json__ "StateReason" ConnectionStateReason.of_json in
      let connectionState =
        field_map json__ "ConnectionState" ConnectionState.of_json in
      let name = field_map json__ "Name" ConnectionName.of_json in
      let connectionArn =
        field_map json__ "ConnectionArn" ConnectionArn.of_json in
      make ?lastAuthorizedTime ?lastModifiedTime ?creationTime
        ?authorizationType ?stateReason ?connectionState ?name ?connectionArn
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains information about a connection."]
module Archive =
  struct
    type nonrec t =
      {
      archiveName: ArchiveName.t option
        [@ocaml.doc "The name of the archive."];
      eventSourceArn: EventBusArn.t option
        [@ocaml.doc
          "The ARN of the event bus associated with the archive. Only events from this event bus are sent to the archive."];
      state: ArchiveState.t option
        [@ocaml.doc "The current state of the archive."];
      stateReason: ArchiveStateReason.t option
        [@ocaml.doc
          "A description for the reason that the archive is in the current state."];
      retentionDays: RetentionDays.t option
        [@ocaml.doc
          "The number of days to retain events in the archive before they are deleted."];
      sizeBytes: Long.t option
        [@ocaml.doc "The size of the archive, in bytes."];
      eventCount: Long.t option
        [@ocaml.doc "The number of events in the archive."];
      creationTime: Timestamp.t option
        [@ocaml.doc
          "The time stamp for the time that the archive was created."]}
    let make ?archiveName =
      fun ?eventSourceArn ->
        fun ?state ->
          fun ?stateReason ->
            fun ?retentionDays ->
              fun ?sizeBytes ->
                fun ?eventCount ->
                  fun ?creationTime ->
                    fun () ->
                      {
                        archiveName;
                        eventSourceArn;
                        state;
                        stateReason;
                        retentionDays;
                        sizeBytes;
                        eventCount;
                        creationTime
                      }
    let to_value x =
      structure_to_value
        [("ArchiveName", (Option.map x.archiveName ~f:ArchiveName.to_value));
        ("EventSourceArn",
          (Option.map x.eventSourceArn ~f:EventBusArn.to_value));
        ("State", (Option.map x.state ~f:ArchiveState.to_value));
        ("StateReason",
          (Option.map x.stateReason ~f:ArchiveStateReason.to_value));
        ("RetentionDays",
          (Option.map x.retentionDays ~f:RetentionDays.to_value));
        ("SizeBytes", (Option.map x.sizeBytes ~f:Long.to_value));
        ("EventCount", (Option.map x.eventCount ~f:Long.to_value));
        ("CreationTime", (Option.map x.creationTime ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let creationTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "CreationTime") in
      let eventCount =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "EventCount") in
      let sizeBytes =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "SizeBytes") in
      let retentionDays =
        (Option.map ~f:RetentionDays.of_xml)
          (Xml.child xml_arg0 "RetentionDays") in
      let stateReason =
        (Option.map ~f:ArchiveStateReason.of_xml)
          (Xml.child xml_arg0 "StateReason") in
      let state =
        (Option.map ~f:ArchiveState.of_xml) (Xml.child xml_arg0 "State") in
      let eventSourceArn =
        (Option.map ~f:EventBusArn.of_xml)
          (Xml.child xml_arg0 "EventSourceArn") in
      let archiveName =
        (Option.map ~f:ArchiveName.of_xml) (Xml.child xml_arg0 "ArchiveName") in
      make ?creationTime ?eventCount ?sizeBytes ?retentionDays ?stateReason
        ?state ?eventSourceArn ?archiveName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let creationTime = field_map json__ "CreationTime" Timestamp.of_json in
      let eventCount = field_map json__ "EventCount" Long.of_json in
      let sizeBytes = field_map json__ "SizeBytes" Long.of_json in
      let retentionDays =
        field_map json__ "RetentionDays" RetentionDays.of_json in
      let stateReason =
        field_map json__ "StateReason" ArchiveStateReason.of_json in
      let state = field_map json__ "State" ArchiveState.of_json in
      let eventSourceArn =
        field_map json__ "EventSourceArn" EventBusArn.of_json in
      let archiveName = field_map json__ "ArchiveName" ArchiveName.of_json in
      make ?creationTime ?eventCount ?sizeBytes ?retentionDays ?stateReason
        ?state ?eventSourceArn ?archiveName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An Archive object that contains details about an archive."]
module ApiDestination =
  struct
    type nonrec t =
      {
      apiDestinationArn: ApiDestinationArn.t option
        [@ocaml.doc "The ARN of the API destination."];
      name: ApiDestinationName.t option
        [@ocaml.doc "The name of the API destination."];
      apiDestinationState: ApiDestinationState.t option
        [@ocaml.doc "The state of the API destination."];
      connectionArn: ConnectionArn.t option
        [@ocaml.doc
          "The ARN of the connection specified for the API destination."];
      invocationEndpoint: HttpsEndpoint.t option
        [@ocaml.doc "The URL to the endpoint for the API destination."];
      httpMethod: ApiDestinationHttpMethod.t option
        [@ocaml.doc "The method to use to connect to the HTTP endpoint."];
      invocationRateLimitPerSecond:
        ApiDestinationInvocationRateLimitPerSecond.t option
        [@ocaml.doc
          "The maximum number of invocations per second to send to the HTTP endpoint."];
      creationTime: Timestamp.t option
        [@ocaml.doc
          "A time stamp for the time that the API destination was created."];
      lastModifiedTime: Timestamp.t option
        [@ocaml.doc
          "A time stamp for the time that the API destination was last modified."]}
    let make ?apiDestinationArn =
      fun ?name ->
        fun ?apiDestinationState ->
          fun ?connectionArn ->
            fun ?invocationEndpoint ->
              fun ?httpMethod ->
                fun ?invocationRateLimitPerSecond ->
                  fun ?creationTime ->
                    fun ?lastModifiedTime ->
                      fun () ->
                        {
                          apiDestinationArn;
                          name;
                          apiDestinationState;
                          connectionArn;
                          invocationEndpoint;
                          httpMethod;
                          invocationRateLimitPerSecond;
                          creationTime;
                          lastModifiedTime
                        }
    let to_value x =
      structure_to_value
        [("ApiDestinationArn",
           (Option.map x.apiDestinationArn ~f:ApiDestinationArn.to_value));
        ("Name", (Option.map x.name ~f:ApiDestinationName.to_value));
        ("ApiDestinationState",
          (Option.map x.apiDestinationState ~f:ApiDestinationState.to_value));
        ("ConnectionArn",
          (Option.map x.connectionArn ~f:ConnectionArn.to_value));
        ("InvocationEndpoint",
          (Option.map x.invocationEndpoint ~f:HttpsEndpoint.to_value));
        ("HttpMethod",
          (Option.map x.httpMethod ~f:ApiDestinationHttpMethod.to_value));
        ("InvocationRateLimitPerSecond",
          (Option.map x.invocationRateLimitPerSecond
             ~f:ApiDestinationInvocationRateLimitPerSecond.to_value));
        ("CreationTime", (Option.map x.creationTime ~f:Timestamp.to_value));
        ("LastModifiedTime",
          (Option.map x.lastModifiedTime ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastModifiedTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastModifiedTime") in
      let creationTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "CreationTime") in
      let invocationRateLimitPerSecond =
        (Option.map ~f:ApiDestinationInvocationRateLimitPerSecond.of_xml)
          (Xml.child xml_arg0 "InvocationRateLimitPerSecond") in
      let httpMethod =
        (Option.map ~f:ApiDestinationHttpMethod.of_xml)
          (Xml.child xml_arg0 "HttpMethod") in
      let invocationEndpoint =
        (Option.map ~f:HttpsEndpoint.of_xml)
          (Xml.child xml_arg0 "InvocationEndpoint") in
      let connectionArn =
        (Option.map ~f:ConnectionArn.of_xml)
          (Xml.child xml_arg0 "ConnectionArn") in
      let apiDestinationState =
        (Option.map ~f:ApiDestinationState.of_xml)
          (Xml.child xml_arg0 "ApiDestinationState") in
      let name =
        (Option.map ~f:ApiDestinationName.of_xml) (Xml.child xml_arg0 "Name") in
      let apiDestinationArn =
        (Option.map ~f:ApiDestinationArn.of_xml)
          (Xml.child xml_arg0 "ApiDestinationArn") in
      make ?lastModifiedTime ?creationTime ?invocationRateLimitPerSecond
        ?httpMethod ?invocationEndpoint ?connectionArn ?apiDestinationState
        ?name ?apiDestinationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastModifiedTime =
        field_map json__ "LastModifiedTime" Timestamp.of_json in
      let creationTime = field_map json__ "CreationTime" Timestamp.of_json in
      let invocationRateLimitPerSecond =
        field_map json__ "InvocationRateLimitPerSecond"
          ApiDestinationInvocationRateLimitPerSecond.of_json in
      let httpMethod =
        field_map json__ "HttpMethod" ApiDestinationHttpMethod.of_json in
      let invocationEndpoint =
        field_map json__ "InvocationEndpoint" HttpsEndpoint.of_json in
      let connectionArn =
        field_map json__ "ConnectionArn" ConnectionArn.of_json in
      let apiDestinationState =
        field_map json__ "ApiDestinationState" ApiDestinationState.of_json in
      let name = field_map json__ "Name" ApiDestinationName.of_json in
      let apiDestinationArn =
        field_map json__ "ApiDestinationArn" ApiDestinationArn.of_json in
      make ?lastModifiedTime ?creationTime ?invocationRateLimitPerSecond
        ?httpMethod ?invocationEndpoint ?connectionArn ?apiDestinationState
        ?name ?apiDestinationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains details about an API destination."]
module ConnectionApiKeyAuthResponseParameters =
  struct
    type nonrec t =
      {
      apiKeyName: AuthHeaderParameters.t option
        [@ocaml.doc
          "The name of the header to use for the APIKeyValue used for authorization."]}
    let make ?apiKeyName = fun () -> { apiKeyName }
    let to_value x =
      structure_to_value
        [("ApiKeyName",
           (Option.map x.apiKeyName ~f:AuthHeaderParameters.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let apiKeyName =
        (Option.map ~f:AuthHeaderParameters.of_xml)
          (Xml.child xml_arg0 "ApiKeyName") in
      make ?apiKeyName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let apiKeyName =
        field_map json__ "ApiKeyName" AuthHeaderParameters.of_json in
      make ?apiKeyName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the authorization parameters for the connection if API Key is specified as the authorization type."]
module ConnectionBasicAuthResponseParameters =
  struct
    type nonrec t =
      {
      username: AuthHeaderParameters.t option
        [@ocaml.doc "The user name to use for Basic authorization."]}
    let make ?username = fun () -> { username }
    let to_value x =
      structure_to_value
        [("Username",
           (Option.map x.username ~f:AuthHeaderParameters.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let username =
        (Option.map ~f:AuthHeaderParameters.of_xml)
          (Xml.child xml_arg0 "Username") in
      make ?username ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let username = field_map json__ "Username" AuthHeaderParameters.of_json in
      make ?username ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The authorization parameters for the connection if Basic is specified as the authorization type."]
module ConnectionOAuthResponseParameters =
  struct
    type nonrec t =
      {
      clientParameters: ConnectionOAuthClientResponseParameters.t option
        [@ocaml.doc
          "Details about the client parameters returned when OAuth is specified as the authorization type."];
      authorizationEndpoint: HttpsEndpoint.t option
        [@ocaml.doc
          "The URL to the HTTP endpoint that authorized the request."];
      httpMethod: ConnectionOAuthHttpMethod.t option
        [@ocaml.doc "The method used to connect to the HTTP endpoint."];
      oAuthHttpParameters: ConnectionHttpParameters.t option
        [@ocaml.doc
          "The additional HTTP parameters used for the OAuth authorization request."]}
    let make ?clientParameters =
      fun ?authorizationEndpoint ->
        fun ?httpMethod ->
          fun ?oAuthHttpParameters ->
            fun () ->
              {
                clientParameters;
                authorizationEndpoint;
                httpMethod;
                oAuthHttpParameters
              }
    let to_value x =
      structure_to_value
        [("ClientParameters",
           (Option.map x.clientParameters
              ~f:ConnectionOAuthClientResponseParameters.to_value));
        ("AuthorizationEndpoint",
          (Option.map x.authorizationEndpoint ~f:HttpsEndpoint.to_value));
        ("HttpMethod",
          (Option.map x.httpMethod ~f:ConnectionOAuthHttpMethod.to_value));
        ("OAuthHttpParameters",
          (Option.map x.oAuthHttpParameters
             ~f:ConnectionHttpParameters.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let oAuthHttpParameters =
        (Option.map ~f:ConnectionHttpParameters.of_xml)
          (Xml.child xml_arg0 "OAuthHttpParameters") in
      let httpMethod =
        (Option.map ~f:ConnectionOAuthHttpMethod.of_xml)
          (Xml.child xml_arg0 "HttpMethod") in
      let authorizationEndpoint =
        (Option.map ~f:HttpsEndpoint.of_xml)
          (Xml.child xml_arg0 "AuthorizationEndpoint") in
      let clientParameters =
        (Option.map ~f:ConnectionOAuthClientResponseParameters.of_xml)
          (Xml.child xml_arg0 "ClientParameters") in
      make ?oAuthHttpParameters ?httpMethod ?authorizationEndpoint
        ?clientParameters ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let oAuthHttpParameters =
        field_map json__ "OAuthHttpParameters"
          ConnectionHttpParameters.of_json in
      let httpMethod =
        field_map json__ "HttpMethod" ConnectionOAuthHttpMethod.of_json in
      let authorizationEndpoint =
        field_map json__ "AuthorizationEndpoint" HttpsEndpoint.of_json in
      let clientParameters =
        field_map json__ "ClientParameters"
          ConnectionOAuthClientResponseParameters.of_json in
      make ?oAuthHttpParameters ?httpMethod ?authorizationEndpoint
        ?clientParameters ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The response parameters when OAuth is specified as the authorization type."]
module DescribeConnectionConnectivityParameters =
  struct
    type nonrec t =
      {
      resourceParameters: DescribeConnectionResourceParameters.t option
        [@ocaml.doc
          "The parameters for EventBridge to use when invoking the resource endpoint."]}
    let make ?resourceParameters = fun () -> { resourceParameters }
    let to_value x =
      structure_to_value
        [("ResourceParameters",
           (Option.map x.resourceParameters
              ~f:DescribeConnectionResourceParameters.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceParameters =
        (Option.map ~f:DescribeConnectionResourceParameters.of_xml)
          (Xml.child xml_arg0 "ResourceParameters") in
      make ?resourceParameters ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceParameters =
        field_map json__ "ResourceParameters"
          DescribeConnectionResourceParameters.of_json in
      make ?resourceParameters ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "If the connection uses a private OAuth endpoint, the parameters for EventBridge to use when authenticating against the endpoint. For more information, see Authorization methods for connections in the Amazon EventBridge User Guide ."]
module CreateConnectionApiKeyAuthRequestParameters =
  struct
    type nonrec t =
      {
      apiKeyName: AuthHeaderParameters.t
        [@ocaml.doc "The name of the API key to use for authorization."];
      apiKeyValue: AuthHeaderParametersSensitive.t
        [@ocaml.doc "The value for the API key to use for authorization."]}
    let context_ = "CreateConnectionApiKeyAuthRequestParameters"
    let make ~apiKeyName =
      fun ~apiKeyValue -> fun () -> { apiKeyName; apiKeyValue }
    let to_value x =
      structure_to_value
        [("ApiKeyName", (Some (AuthHeaderParameters.to_value x.apiKeyName)));
        ("ApiKeyValue",
          (Some (AuthHeaderParametersSensitive.to_value x.apiKeyValue)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let apiKeyValue =
        AuthHeaderParametersSensitive.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ApiKeyValue") in
      let apiKeyName =
        AuthHeaderParameters.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ApiKeyName") in
      make ~apiKeyValue ~apiKeyName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let apiKeyValue =
        field_map_exn json__ "ApiKeyValue"
          AuthHeaderParametersSensitive.of_json in
      let apiKeyName =
        field_map_exn json__ "ApiKeyName" AuthHeaderParameters.of_json in
      make ~apiKeyValue ~apiKeyName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The API key authorization parameters for the connection."]
module CreateConnectionBasicAuthRequestParameters =
  struct
    type nonrec t =
      {
      username: AuthHeaderParameters.t
        [@ocaml.doc "The user name to use for Basic authorization."];
      password: AuthHeaderParametersSensitive.t
        [@ocaml.doc
          "The password associated with the user name to use for Basic authorization."]}
    let context_ = "CreateConnectionBasicAuthRequestParameters"
    let make ~username = fun ~password -> fun () -> { username; password }
    let to_value x =
      structure_to_value
        [("Username", (Some (AuthHeaderParameters.to_value x.username)));
        ("Password",
          (Some (AuthHeaderParametersSensitive.to_value x.password)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let password =
        AuthHeaderParametersSensitive.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Password") in
      let username =
        AuthHeaderParameters.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Username") in
      make ~password ~username ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let password =
        field_map_exn json__ "Password" AuthHeaderParametersSensitive.of_json in
      let username =
        field_map_exn json__ "Username" AuthHeaderParameters.of_json in
      make ~password ~username ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the Basic authorization parameters to use for the connection."]
module CreateConnectionOAuthRequestParameters =
  struct
    type nonrec t =
      {
      clientParameters: CreateConnectionOAuthClientRequestParameters.t
        [@ocaml.doc "The client parameters for OAuth authorization."];
      authorizationEndpoint: HttpsEndpoint.t
        [@ocaml.doc
          "The URL to the authorization endpoint when OAuth is specified as the authorization type."];
      httpMethod: ConnectionOAuthHttpMethod.t
        [@ocaml.doc "The method to use for the authorization request."];
      oAuthHttpParameters: ConnectionHttpParameters.t option
        [@ocaml.doc
          "Details about the additional parameters to use for the connection."]}
    let context_ = "CreateConnectionOAuthRequestParameters"
    let make ?oAuthHttpParameters =
      fun ~clientParameters ->
        fun ~authorizationEndpoint ->
          fun ~httpMethod ->
            fun () ->
              {
                oAuthHttpParameters;
                clientParameters;
                authorizationEndpoint;
                httpMethod
              }
    let to_value x =
      structure_to_value
        [("ClientParameters",
           (Some
              (CreateConnectionOAuthClientRequestParameters.to_value
                 x.clientParameters)));
        ("AuthorizationEndpoint",
          (Some (HttpsEndpoint.to_value x.authorizationEndpoint)));
        ("HttpMethod",
          (Some (ConnectionOAuthHttpMethod.to_value x.httpMethod)));
        ("OAuthHttpParameters",
          (Option.map x.oAuthHttpParameters
             ~f:ConnectionHttpParameters.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let oAuthHttpParameters =
        (Option.map ~f:ConnectionHttpParameters.of_xml)
          (Xml.child xml_arg0 "OAuthHttpParameters") in
      let httpMethod =
        ConnectionOAuthHttpMethod.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "HttpMethod") in
      let authorizationEndpoint =
        HttpsEndpoint.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AuthorizationEndpoint") in
      let clientParameters =
        CreateConnectionOAuthClientRequestParameters.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ClientParameters") in
      make ?oAuthHttpParameters ~httpMethod ~authorizationEndpoint
        ~clientParameters ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let oAuthHttpParameters =
        field_map json__ "OAuthHttpParameters"
          ConnectionHttpParameters.of_json in
      let httpMethod =
        field_map_exn json__ "HttpMethod" ConnectionOAuthHttpMethod.of_json in
      let authorizationEndpoint =
        field_map_exn json__ "AuthorizationEndpoint" HttpsEndpoint.of_json in
      let clientParameters =
        field_map_exn json__ "ClientParameters"
          CreateConnectionOAuthClientRequestParameters.of_json in
      make ?oAuthHttpParameters ~httpMethod ~authorizationEndpoint
        ~clientParameters ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the OAuth authorization parameters to use for the connection."]
module ConcurrentModificationException =
  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
       "There is concurrent modification on a rule, target, archive, or replay."]
module InternalException =
  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 "This exception occurs due to unexpected causes."]
module KmsKeyIdentifier =
  struct
    type nonrec t = string
    let context_ = "KmsKeyIdentifier"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2048) >>=
             (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:"KmsKeyIdentifier" j
    let to_json = simple_to_json to_value
  end
module LogConfig =
  struct
    type nonrec t =
      {
      includeDetail: IncludeDetail.t option
        [@ocaml.doc
          "Whether EventBridge include detailed event information in the records it generates. Detailed data can be useful for troubleshooting and debugging. This information includes details of the event itself, as well as target details. For more information, see Including detail data in event bus logs in the EventBridge User Guide."];
      level: Level.t option
        [@ocaml.doc
          "The level of logging detail to include. This applies to all log destinations for the event bus. For more information, see Specifying event bus log level in the EventBridge User Guide."]}
    let make ?includeDetail =
      fun ?level -> fun () -> { includeDetail; level }
    let to_value x =
      structure_to_value
        [("IncludeDetail",
           (Option.map x.includeDetail ~f:IncludeDetail.to_value));
        ("Level", (Option.map x.level ~f:Level.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let level = (Option.map ~f:Level.of_xml) (Xml.child xml_arg0 "Level") in
      let includeDetail =
        (Option.map ~f:IncludeDetail.of_xml)
          (Xml.child xml_arg0 "IncludeDetail") in
      make ?level ?includeDetail ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let level = field_map json__ "Level" Level.of_json in
      let includeDetail =
        field_map json__ "IncludeDetail" IncludeDetail.of_json in
      make ?level ?includeDetail ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The logging configuration settings for the event bus. For more information, see Configuring logs for event buses in the EventBridge User Guide."]
module OperationDisabledException =
  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
       "The operation you are attempting is not available in this region."]
module ResourceNotFoundException =
  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 "An entity that you specified does not exist."]
module AccessDeniedException =
  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
       "You do not have the necessary permissions for this action."]
module LimitExceededException =
  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
       "The request failed because it attempted to create resource beyond the allowed service quota."]
module ThrottlingException =
  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
       "This request cannot be completed due to throttling issues."]
module ConnectionDescription =
  struct
    type nonrec t = string
    let context_ = "ConnectionDescription"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:512) >>=
             (fun () -> check_pattern i ~pattern:".*"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ConnectionDescription" j
    let to_json = simple_to_json to_value
  end
module UpdateConnectionAuthRequestParameters =
  struct
    type nonrec t =
      {
      basicAuthParameters:
        UpdateConnectionBasicAuthRequestParameters.t option
        [@ocaml.doc "The authorization parameters for Basic authorization."];
      oAuthParameters: UpdateConnectionOAuthRequestParameters.t option
        [@ocaml.doc "The authorization parameters for OAuth authorization."];
      apiKeyAuthParameters:
        UpdateConnectionApiKeyAuthRequestParameters.t option
        [@ocaml.doc
          "The authorization parameters for API key authorization."];
      invocationHttpParameters: ConnectionHttpParameters.t option
        [@ocaml.doc "The additional parameters to use for the connection."];
      connectivityParameters: ConnectivityResourceParameters.t option
        [@ocaml.doc
          "If you specify a private OAuth endpoint, the parameters for EventBridge to use when authenticating against the endpoint. For more information, see Authorization methods for connections in the Amazon EventBridge User Guide ."]}
    let make ?basicAuthParameters =
      fun ?oAuthParameters ->
        fun ?apiKeyAuthParameters ->
          fun ?invocationHttpParameters ->
            fun ?connectivityParameters ->
              fun () ->
                {
                  basicAuthParameters;
                  oAuthParameters;
                  apiKeyAuthParameters;
                  invocationHttpParameters;
                  connectivityParameters
                }
    let to_value x =
      structure_to_value
        [("BasicAuthParameters",
           (Option.map x.basicAuthParameters
              ~f:UpdateConnectionBasicAuthRequestParameters.to_value));
        ("OAuthParameters",
          (Option.map x.oAuthParameters
             ~f:UpdateConnectionOAuthRequestParameters.to_value));
        ("ApiKeyAuthParameters",
          (Option.map x.apiKeyAuthParameters
             ~f:UpdateConnectionApiKeyAuthRequestParameters.to_value));
        ("InvocationHttpParameters",
          (Option.map x.invocationHttpParameters
             ~f:ConnectionHttpParameters.to_value));
        ("ConnectivityParameters",
          (Option.map x.connectivityParameters
             ~f:ConnectivityResourceParameters.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let connectivityParameters =
        (Option.map ~f:ConnectivityResourceParameters.of_xml)
          (Xml.child xml_arg0 "ConnectivityParameters") in
      let invocationHttpParameters =
        (Option.map ~f:ConnectionHttpParameters.of_xml)
          (Xml.child xml_arg0 "InvocationHttpParameters") in
      let apiKeyAuthParameters =
        (Option.map ~f:UpdateConnectionApiKeyAuthRequestParameters.of_xml)
          (Xml.child xml_arg0 "ApiKeyAuthParameters") in
      let oAuthParameters =
        (Option.map ~f:UpdateConnectionOAuthRequestParameters.of_xml)
          (Xml.child xml_arg0 "OAuthParameters") in
      let basicAuthParameters =
        (Option.map ~f:UpdateConnectionBasicAuthRequestParameters.of_xml)
          (Xml.child xml_arg0 "BasicAuthParameters") in
      make ?connectivityParameters ?invocationHttpParameters
        ?apiKeyAuthParameters ?oAuthParameters ?basicAuthParameters ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let connectivityParameters =
        field_map json__ "ConnectivityParameters"
          ConnectivityResourceParameters.of_json in
      let invocationHttpParameters =
        field_map json__ "InvocationHttpParameters"
          ConnectionHttpParameters.of_json in
      let apiKeyAuthParameters =
        field_map json__ "ApiKeyAuthParameters"
          UpdateConnectionApiKeyAuthRequestParameters.of_json in
      let oAuthParameters =
        field_map json__ "OAuthParameters"
          UpdateConnectionOAuthRequestParameters.of_json in
      let basicAuthParameters =
        field_map json__ "BasicAuthParameters"
          UpdateConnectionBasicAuthRequestParameters.of_json in
      make ?connectivityParameters ?invocationHttpParameters
        ?apiKeyAuthParameters ?oAuthParameters ?basicAuthParameters ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the additional parameters to use for the connection."]
module InvalidEventPatternException =
  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 "The event pattern is not valid."]
module ArchiveDescription =
  struct
    type nonrec t = string
    let context_ = "ArchiveDescription"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:512) >>=
             (fun () -> check_pattern i ~pattern:".*"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ArchiveDescription" j
    let to_json = simple_to_json to_value
  end
module ApiDestinationDescription =
  struct
    type nonrec t = string
    let context_ = "ApiDestinationDescription"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:512) >>=
             (fun () -> check_pattern i ~pattern:".*"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ApiDestinationDescription" j
    let to_json = simple_to_json to_value
  end
module ManagedRuleException =
  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
       "This rule was created by an Amazon Web Services service on behalf of your account. It is managed by that service. If you see this error in response to DeleteRule or RemoveTargets, you can use the Force parameter in those calls to delete the rule or remove targets from the rule. You cannot modify these managed rules by using DisableRule, EnableRule, PutTargets, PutRule, TagResource, or UntagResource."]
module TagKeyList =
  struct
    type nonrec t = TagKey.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:TagKey.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:TagKey.of_xml)
    let of_json j = list_of_json ~kind:"TagKeyList" ~of_json:TagKey.of_json j
    let to_json v = composed_to_json to_value v
  end
module ReplayArn =
  struct
    type nonrec t = string
    let context_ = "ReplayArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1600) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^arn:aws([a-z]|\\-)*:events:([a-z]|\\d|\\-)*:([0-9]{12})?:.+\\/[\\.\\-_A-Za-z0-9]+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ReplayArn" j
    let to_json = simple_to_json to_value
  end
module ResourceAlreadyExistsException =
  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 "The resource you are trying to create already exists."]
module ReplayDescription =
  struct
    type nonrec t = string
    let context_ = "ReplayDescription"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:512) >>=
             (fun () -> check_pattern i ~pattern:".*"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ReplayDescription" j
    let to_json = simple_to_json to_value
  end
module ReplayDestination =
  struct
    type nonrec t =
      {
      arn: Arn.t
        [@ocaml.doc
          "The ARN of the event bus to replay event to. You can replay events only to the event bus specified to create the archive."];
      filterArns: ReplayDestinationFilters.t option
        [@ocaml.doc "A list of ARNs for rules to replay events to."]}
    let context_ = "ReplayDestination"
    let make ?filterArns = fun ~arn -> fun () -> { filterArns; arn }
    let to_value x =
      structure_to_value
        [("Arn", (Some (Arn.to_value x.arn)));
        ("FilterArns",
          (Option.map x.filterArns ~f:ReplayDestinationFilters.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let filterArns =
        (Option.map ~f:ReplayDestinationFilters.of_xml)
          (Xml.child xml_arg0 "FilterArns") in
      let arn = Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Arn") in
      make ?filterArns ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let filterArns =
        field_map json__ "FilterArns" ReplayDestinationFilters.of_json in
      let arn = field_map_exn json__ "Arn" Arn.of_json in
      make ?filterArns ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A ReplayDestination object that contains details about a replay."]
module RemoveTargetsResultEntryList =
  struct
    type nonrec t = RemoveTargetsResultEntry.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:RemoveTargetsResultEntry.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:RemoveTargetsResultEntry.of_xml)
    let of_json j =
      list_of_json ~kind:"RemoveTargetsResultEntryList"
        ~of_json:RemoveTargetsResultEntry.of_json j
    let to_json v = composed_to_json to_value v
  end
module EventBusNameOrArn =
  struct
    type nonrec t = string
    let context_ = "EventBusNameOrArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1600) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"(arn:aws[\\w-]*:events:[a-z]+-[a-z]+-[\\w-]+:[0-9]{12}:event-bus\\/)?[/\\.\\-_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:"EventBusNameOrArn" j
    let to_json = simple_to_json to_value
  end
module TargetIdList =
  struct
    type nonrec t = TargetId.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100) >>=
             (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:TargetId.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:TargetId.of_xml)
    let of_json j =
      list_of_json ~kind:"TargetIdList" ~of_json:TargetId.of_json j
    let to_json v = composed_to_json to_value v
  end
module NonPartnerEventBusName =
  struct
    type nonrec t = string
    let context_ = "NonPartnerEventBusName"
    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:"NonPartnerEventBusName" j
    let to_json = simple_to_json to_value
  end
module StatementId =
  struct
    type nonrec t = string
    let context_ = "StatementId"
    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:"StatementId" j
    let to_json = simple_to_json to_value
  end
module PutTargetsResultEntryList =
  struct
    type nonrec t = PutTargetsResultEntry.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:PutTargetsResultEntry.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:PutTargetsResultEntry.of_xml)
    let of_json j =
      list_of_json ~kind:"PutTargetsResultEntryList"
        ~of_json:PutTargetsResultEntry.of_json j
    let to_json v = composed_to_json to_value v
  end
module TargetList =
  struct
    type nonrec t = Target.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100) >>=
             (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Target.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:Target.of_xml)
    let of_json j = list_of_json ~kind:"TargetList" ~of_json:Target.of_json j
    let to_json v = composed_to_json to_value v
  end
module Action =
  struct
    type nonrec t = string
    let context_ = "Action"
    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:"events:[a-zA-Z]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Action" j
    let to_json = simple_to_json to_value
  end
module Condition =
  struct
    type nonrec t =
      {
      type_: String_.t
        [@ocaml.doc
          "Specifies the type of condition. Currently the only supported value is StringEquals."];
      key: String_.t
        [@ocaml.doc
          "Specifies the key for the condition. Currently the only supported key is aws:PrincipalOrgID."];
      value: String_.t
        [@ocaml.doc
          "Specifies the value for the key. Currently, this must be the ID of the organization."]}
    let context_ = "Condition"
    let make ~type_ =
      fun ~key -> fun ~value -> fun () -> { type_; key; value }
    let to_value x =
      structure_to_value
        [("Type", (Some (String_.to_value x.type_)));
        ("Key", (Some (String_.to_value x.key)));
        ("Value", (Some (String_.to_value x.value)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Value") in
      let key =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Key") in
      let type_ =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Type") in
      make ~value ~key ~type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map_exn json__ "Value" String_.of_json in
      let key = field_map_exn json__ "Key" String_.of_json in
      let type_ = field_map_exn json__ "Type" String_.of_json in
      make ~value ~key ~type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A JSON string which you can use to limit the event bus permissions you are granting to only accounts that fulfill the condition. Currently, the only supported condition is membership in a certain Amazon Web Services organization. The string must contain Type, Key, and Value fields. The Value field specifies the ID of the Amazon Web Services organization. Following is an example value for Condition: '\\{\"Type\" : \"StringEquals\", \"Key\": \"aws:PrincipalOrgID\", \"Value\": \"o-1234567890\"\\}'"]
module Principal =
  struct
    type nonrec t = string
    let context_ = "Principal"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:12) >>=
                  (fun () -> check_pattern i ~pattern:"(\\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:"Principal" j
    let to_json = simple_to_json to_value
  end
module PutPartnerEventsResultEntryList =
  struct
    type nonrec t = PutPartnerEventsResultEntry.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:PutPartnerEventsResultEntry.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:PutPartnerEventsResultEntry.of_xml)
    let of_json j =
      list_of_json ~kind:"PutPartnerEventsResultEntryList"
        ~of_json:PutPartnerEventsResultEntry.of_json j
    let to_json v = composed_to_json to_value v
  end
module PutPartnerEventsRequestEntryList =
  struct
    type nonrec t = PutPartnerEventsRequestEntry.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:20) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:PutPartnerEventsRequestEntry.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:PutPartnerEventsRequestEntry.of_xml)
    let of_json j =
      list_of_json ~kind:"PutPartnerEventsRequestEntryList"
        ~of_json:PutPartnerEventsRequestEntry.of_json j
    let to_json v = composed_to_json to_value v
  end
module PutEventsResultEntryList =
  struct
    type nonrec t = PutEventsResultEntry.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:PutEventsResultEntry.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:PutEventsResultEntry.of_xml)
    let of_json j =
      list_of_json ~kind:"PutEventsResultEntryList"
        ~of_json:PutEventsResultEntry.of_json j
    let to_json v = composed_to_json to_value v
  end
module PutEventsRequestEntryList =
  struct
    type nonrec t = PutEventsRequestEntry.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:10) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:PutEventsRequestEntry.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:PutEventsRequestEntry.of_xml)
    let of_json j =
      list_of_json ~kind:"PutEventsRequestEntryList"
        ~of_json:PutEventsRequestEntry.of_json j
    let to_json v = composed_to_json to_value v
  end
module NextToken =
  struct
    type nonrec t = string
    let context_ = "NextToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2048) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"NextToken" j
    let to_json = simple_to_json to_value
  end
module LimitMax100 =
  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 LimitMax100" 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 RuleResponseList =
  struct
    type nonrec t = Rule.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:Rule.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:Rule.of_xml)
    let of_json j =
      list_of_json ~kind:"RuleResponseList" ~of_json:Rule.of_json j
    let to_json v = composed_to_json to_value v
  end
module RuleNameList =
  struct
    type nonrec t = RuleName.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:RuleName.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:RuleName.of_xml)
    let of_json j =
      list_of_json ~kind:"RuleNameList" ~of_json:RuleName.of_json j
    let to_json v = composed_to_json to_value v
  end
module ReplayList =
  struct
    type nonrec t = Replay.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:Replay.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:Replay.of_xml)
    let of_json j = list_of_json ~kind:"ReplayList" ~of_json:Replay.of_json j
    let to_json v = composed_to_json to_value v
  end
module PartnerEventSourceList =
  struct
    type nonrec t = PartnerEventSource.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:PartnerEventSource.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:PartnerEventSource.of_xml)
    let of_json j =
      list_of_json ~kind:"PartnerEventSourceList"
        ~of_json:PartnerEventSource.of_json j
    let to_json v = composed_to_json to_value v
  end
module PartnerEventSourceNamePrefix =
  struct
    type nonrec t = string
    let context_ = "PartnerEventSourceNamePrefix"
    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:"aws\\.partner/[\\.\\-_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:"PartnerEventSourceNamePrefix" j
    let to_json = simple_to_json to_value
  end
module PartnerEventSourceAccountList =
  struct
    type nonrec t = PartnerEventSourceAccount.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:PartnerEventSourceAccount.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:PartnerEventSourceAccount.of_xml)
    let of_json j =
      list_of_json ~kind:"PartnerEventSourceAccountList"
        ~of_json:PartnerEventSourceAccount.of_json j
    let to_json v = composed_to_json to_value v
  end
module EventSourceList =
  struct
    type nonrec t = EventSource.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:EventSource.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:EventSource.of_xml)
    let of_json j =
      list_of_json ~kind:"EventSourceList" ~of_json:EventSource.of_json j
    let to_json v = composed_to_json to_value v
  end
module EventSourceNamePrefix =
  struct
    type nonrec t = string
    let context_ = "EventSourceNamePrefix"
    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:"EventSourceNamePrefix" j
    let to_json = simple_to_json to_value
  end
module EventBusList =
  struct
    type nonrec t = EventBus.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:EventBus.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:EventBus.of_xml)
    let of_json j =
      list_of_json ~kind:"EventBusList" ~of_json:EventBus.of_json j
    let to_json v = composed_to_json to_value v
  end
module EndpointList =
  struct
    type nonrec t = Endpoint.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:Endpoint.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:Endpoint.of_xml)
    let of_json j =
      list_of_json ~kind:"EndpointList" ~of_json:Endpoint.of_json j
    let to_json v = composed_to_json to_value v
  end
module HomeRegion =
  struct
    type nonrec t = string
    let context_ = "HomeRegion"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:9) >>=
             (fun () ->
                (check_string_max i ~max:20) >>=
                  (fun () -> check_pattern i ~pattern:"^[\\-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:"HomeRegion" j
    let to_json = simple_to_json to_value
  end
module ConnectionResponseList =
  struct
    type nonrec t = Connection.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:Connection.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:Connection.of_xml)
    let of_json j =
      list_of_json ~kind:"ConnectionResponseList" ~of_json:Connection.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module ArchiveResponseList =
  struct
    type nonrec t = Archive.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:Archive.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:Archive.of_xml)
    let of_json j =
      list_of_json ~kind:"ArchiveResponseList" ~of_json:Archive.of_json j
    let to_json v = composed_to_json to_value v
  end
module ApiDestinationResponseList =
  struct
    type nonrec t = ApiDestination.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:ApiDestination.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:ApiDestination.of_xml)
    let of_json j =
      list_of_json ~kind:"ApiDestinationResponseList"
        ~of_json:ApiDestination.of_json j
    let to_json v = composed_to_json to_value v
  end
module CreatedBy =
  struct
    type nonrec t = string
    let context_ = "CreatedBy"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"CreatedBy" j
    let to_json = simple_to_json to_value
  end
module ConnectionAuthResponseParameters =
  struct
    type nonrec t =
      {
      basicAuthParameters: ConnectionBasicAuthResponseParameters.t option
        [@ocaml.doc "The authorization parameters for Basic authorization."];
      oAuthParameters: ConnectionOAuthResponseParameters.t option
        [@ocaml.doc "The OAuth parameters to use for authorization."];
      apiKeyAuthParameters: ConnectionApiKeyAuthResponseParameters.t option
        [@ocaml.doc "The API Key parameters to use for authorization."];
      invocationHttpParameters: ConnectionHttpParameters.t option
        [@ocaml.doc
          "Additional parameters for the connection that are passed through with every invocation to the HTTP endpoint."];
      connectivityParameters:
        DescribeConnectionConnectivityParameters.t option
        [@ocaml.doc
          "For private OAuth authentication endpoints. The parameters EventBridge uses to authenticate against the endpoint. For more information, see Authorization methods for connections in the Amazon EventBridge User Guide ."]}
    let make ?basicAuthParameters =
      fun ?oAuthParameters ->
        fun ?apiKeyAuthParameters ->
          fun ?invocationHttpParameters ->
            fun ?connectivityParameters ->
              fun () ->
                {
                  basicAuthParameters;
                  oAuthParameters;
                  apiKeyAuthParameters;
                  invocationHttpParameters;
                  connectivityParameters
                }
    let to_value x =
      structure_to_value
        [("BasicAuthParameters",
           (Option.map x.basicAuthParameters
              ~f:ConnectionBasicAuthResponseParameters.to_value));
        ("OAuthParameters",
          (Option.map x.oAuthParameters
             ~f:ConnectionOAuthResponseParameters.to_value));
        ("ApiKeyAuthParameters",
          (Option.map x.apiKeyAuthParameters
             ~f:ConnectionApiKeyAuthResponseParameters.to_value));
        ("InvocationHttpParameters",
          (Option.map x.invocationHttpParameters
             ~f:ConnectionHttpParameters.to_value));
        ("ConnectivityParameters",
          (Option.map x.connectivityParameters
             ~f:DescribeConnectionConnectivityParameters.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let connectivityParameters =
        (Option.map ~f:DescribeConnectionConnectivityParameters.of_xml)
          (Xml.child xml_arg0 "ConnectivityParameters") in
      let invocationHttpParameters =
        (Option.map ~f:ConnectionHttpParameters.of_xml)
          (Xml.child xml_arg0 "InvocationHttpParameters") in
      let apiKeyAuthParameters =
        (Option.map ~f:ConnectionApiKeyAuthResponseParameters.of_xml)
          (Xml.child xml_arg0 "ApiKeyAuthParameters") in
      let oAuthParameters =
        (Option.map ~f:ConnectionOAuthResponseParameters.of_xml)
          (Xml.child xml_arg0 "OAuthParameters") in
      let basicAuthParameters =
        (Option.map ~f:ConnectionBasicAuthResponseParameters.of_xml)
          (Xml.child xml_arg0 "BasicAuthParameters") in
      make ?connectivityParameters ?invocationHttpParameters
        ?apiKeyAuthParameters ?oAuthParameters ?basicAuthParameters ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let connectivityParameters =
        field_map json__ "ConnectivityParameters"
          DescribeConnectionConnectivityParameters.of_json in
      let invocationHttpParameters =
        field_map json__ "InvocationHttpParameters"
          ConnectionHttpParameters.of_json in
      let apiKeyAuthParameters =
        field_map json__ "ApiKeyAuthParameters"
          ConnectionApiKeyAuthResponseParameters.of_json in
      let oAuthParameters =
        field_map json__ "OAuthParameters"
          ConnectionOAuthResponseParameters.of_json in
      let basicAuthParameters =
        field_map json__ "BasicAuthParameters"
          ConnectionBasicAuthResponseParameters.of_json in
      make ?connectivityParameters ?invocationHttpParameters
        ?apiKeyAuthParameters ?oAuthParameters ?basicAuthParameters ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Tthe authorization parameters to use for the connection."]
module SecretsManagerSecretArn =
  struct
    type nonrec t = string
    let context_ = "SecretsManagerSecretArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:20) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^arn:aws([a-z]|\\-)*:secretsmanager:([a-z]|\\d|\\-)*:([0-9]{12})?:secret:[\\/_+=\\.@\\-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:"SecretsManagerSecretArn" j
    let to_json = simple_to_json to_value
  end
module InvalidStateException =
  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
       "The specified state is not a valid state for an event source."]
module CreateConnectionAuthRequestParameters =
  struct
    type nonrec t =
      {
      basicAuthParameters:
        CreateConnectionBasicAuthRequestParameters.t option
        [@ocaml.doc
          "The Basic authorization parameters to use for the connection."];
      oAuthParameters: CreateConnectionOAuthRequestParameters.t option
        [@ocaml.doc
          "The OAuth authorization parameters to use for the connection."];
      apiKeyAuthParameters:
        CreateConnectionApiKeyAuthRequestParameters.t option
        [@ocaml.doc
          "The API key authorization parameters to use for the connection."];
      invocationHttpParameters: ConnectionHttpParameters.t option
        [@ocaml.doc
          "The API key authorization parameters to use for the connection. Note that if you include additional parameters for the target of a rule via HttpParameters, including query strings, the parameters added for the connection take precedence."];
      connectivityParameters: ConnectivityResourceParameters.t option
        [@ocaml.doc
          "If you specify a private OAuth endpoint, the parameters for EventBridge to use when authenticating against the endpoint. For more information, see Authorization methods for connections in the Amazon EventBridge User Guide ."]}
    let make ?basicAuthParameters =
      fun ?oAuthParameters ->
        fun ?apiKeyAuthParameters ->
          fun ?invocationHttpParameters ->
            fun ?connectivityParameters ->
              fun () ->
                {
                  basicAuthParameters;
                  oAuthParameters;
                  apiKeyAuthParameters;
                  invocationHttpParameters;
                  connectivityParameters
                }
    let to_value x =
      structure_to_value
        [("BasicAuthParameters",
           (Option.map x.basicAuthParameters
              ~f:CreateConnectionBasicAuthRequestParameters.to_value));
        ("OAuthParameters",
          (Option.map x.oAuthParameters
             ~f:CreateConnectionOAuthRequestParameters.to_value));
        ("ApiKeyAuthParameters",
          (Option.map x.apiKeyAuthParameters
             ~f:CreateConnectionApiKeyAuthRequestParameters.to_value));
        ("InvocationHttpParameters",
          (Option.map x.invocationHttpParameters
             ~f:ConnectionHttpParameters.to_value));
        ("ConnectivityParameters",
          (Option.map x.connectivityParameters
             ~f:ConnectivityResourceParameters.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let connectivityParameters =
        (Option.map ~f:ConnectivityResourceParameters.of_xml)
          (Xml.child xml_arg0 "ConnectivityParameters") in
      let invocationHttpParameters =
        (Option.map ~f:ConnectionHttpParameters.of_xml)
          (Xml.child xml_arg0 "InvocationHttpParameters") in
      let apiKeyAuthParameters =
        (Option.map ~f:CreateConnectionApiKeyAuthRequestParameters.of_xml)
          (Xml.child xml_arg0 "ApiKeyAuthParameters") in
      let oAuthParameters =
        (Option.map ~f:CreateConnectionOAuthRequestParameters.of_xml)
          (Xml.child xml_arg0 "OAuthParameters") in
      let basicAuthParameters =
        (Option.map ~f:CreateConnectionBasicAuthRequestParameters.of_xml)
          (Xml.child xml_arg0 "BasicAuthParameters") in
      make ?connectivityParameters ?invocationHttpParameters
        ?apiKeyAuthParameters ?oAuthParameters ?basicAuthParameters ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let connectivityParameters =
        field_map json__ "ConnectivityParameters"
          ConnectivityResourceParameters.of_json in
      let invocationHttpParameters =
        field_map json__ "InvocationHttpParameters"
          ConnectionHttpParameters.of_json in
      let apiKeyAuthParameters =
        field_map json__ "ApiKeyAuthParameters"
          CreateConnectionApiKeyAuthRequestParameters.of_json in
      let oAuthParameters =
        field_map json__ "OAuthParameters"
          CreateConnectionOAuthRequestParameters.of_json in
      let basicAuthParameters =
        field_map json__ "BasicAuthParameters"
          CreateConnectionBasicAuthRequestParameters.of_json in
      make ?connectivityParameters ?invocationHttpParameters
        ?apiKeyAuthParameters ?oAuthParameters ?basicAuthParameters ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The authorization parameters for the connection. You must include only authorization parameters for the AuthorizationType you specify."]
module IllegalStatusException =
  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
       "An error occurred because a replay can be canceled only when the state is Running or Starting."]
module UpdateEventBusResponse =
  struct
    type nonrec t =
      {
      arn: String_.t option
        [@ocaml.doc "The event bus Amazon Resource Name (ARN)."];
      name: EventBusName.t option [@ocaml.doc "The event bus name."];
      kmsKeyIdentifier: KmsKeyIdentifier.t option
        [@ocaml.doc
          "The identifier of the KMS customer managed key for EventBridge to use to encrypt events on this event bus, if one has been specified. For more information, see Data encryption in EventBridge in the Amazon EventBridge User Guide."];
      description: EventBusDescription.t option
        [@ocaml.doc "The event bus description."];
      deadLetterConfig: DeadLetterConfig.t option ;
      logConfig: LogConfig.t option
        [@ocaml.doc
          "The logging configuration settings for the event bus. For more information, see Configuring logs for event buses in the EventBridge User Guide."]}
    type nonrec error =
      [
        `ConcurrentModificationException of ConcurrentModificationException.t 
      | `InternalException of InternalException.t 
      | `OperationDisabledException of OperationDisabledException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?arn =
      fun ?name ->
        fun ?kmsKeyIdentifier ->
          fun ?description ->
            fun ?deadLetterConfig ->
              fun ?logConfig ->
                fun () ->
                  {
                    arn;
                    name;
                    kmsKeyIdentifier;
                    description;
                    deadLetterConfig;
                    logConfig
                  }
    let error_of_json name json =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | "OperationDisabledException" ->
          `OperationDisabledException
            (OperationDisabledException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | "OperationDisabledException" ->
          `OperationDisabledException (OperationDisabledException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConcurrentModificationException e ->
          `Assoc
            [("error", (`String "ConcurrentModificationException"));
            ("details", (ConcurrentModificationException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.to_json e))]
      | `OperationDisabledException e ->
          `Assoc
            [("error", (`String "OperationDisabledException"));
            ("details", (OperationDisabledException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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:String_.to_value));
        ("Name", (Option.map x.name ~f:EventBusName.to_value));
        ("KmsKeyIdentifier",
          (Option.map x.kmsKeyIdentifier ~f:KmsKeyIdentifier.to_value));
        ("Description",
          (Option.map x.description ~f:EventBusDescription.to_value));
        ("DeadLetterConfig",
          (Option.map x.deadLetterConfig ~f:DeadLetterConfig.to_value));
        ("LogConfig", (Option.map x.logConfig ~f:LogConfig.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let logConfig =
        (Option.map ~f:LogConfig.of_xml) (Xml.child xml_arg0 "LogConfig") in
      let deadLetterConfig =
        (Option.map ~f:DeadLetterConfig.of_xml)
          (Xml.child xml_arg0 "DeadLetterConfig") in
      let description =
        (Option.map ~f:EventBusDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let kmsKeyIdentifier =
        (Option.map ~f:KmsKeyIdentifier.of_xml)
          (Xml.child xml_arg0 "KmsKeyIdentifier") in
      let name =
        (Option.map ~f:EventBusName.of_xml) (Xml.child xml_arg0 "Name") in
      let arn = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Arn") in
      make ?logConfig ?deadLetterConfig ?description ?kmsKeyIdentifier ?name
        ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let logConfig = field_map json__ "LogConfig" LogConfig.of_json in
      let deadLetterConfig =
        field_map json__ "DeadLetterConfig" DeadLetterConfig.of_json in
      let description =
        field_map json__ "Description" EventBusDescription.of_json in
      let kmsKeyIdentifier =
        field_map json__ "KmsKeyIdentifier" KmsKeyIdentifier.of_json in
      let name = field_map json__ "Name" EventBusName.of_json in
      let arn = field_map json__ "Arn" String_.of_json in
      make ?logConfig ?deadLetterConfig ?description ?kmsKeyIdentifier ?name
        ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the specified event bus."]
module UpdateEventBusRequest =
  struct
    type nonrec t =
      {
      name: EventBusName.t option [@ocaml.doc "The name of the event bus."];
      kmsKeyIdentifier: KmsKeyIdentifier.t option
        [@ocaml.doc
          "The identifier of the KMS customer managed key for EventBridge to use, if you choose to use a customer managed key to encrypt events on this event bus. The identifier can be the key Amazon Resource Name (ARN), KeyId, key alias, or key alias ARN. If you do not specify a customer managed key identifier, EventBridge uses an Amazon Web Services owned key to encrypt events on the event bus. For more information, see Identify and view keys in the Key Management Service Developer Guide. Schema discovery is not supported for event buses encrypted using a customer managed key. EventBridge returns an error if: You call CreateDiscoverer on an event bus set to use a customer managed key for encryption. You call UpdatedEventBus to set a customer managed key on an event bus with schema discovery enabled. To enable schema discovery on an event bus, choose to use an Amazon Web Services owned key. For more information, see Encrypting events in the Amazon EventBridge User Guide. If you have specified that EventBridge use a customer managed key for encrypting the source event bus, we strongly recommend you also specify a customer managed key for any archives for the event bus as well. For more information, see Encrypting archives in the Amazon EventBridge User Guide."];
      description: EventBusDescription.t option
        [@ocaml.doc "The event bus description."];
      deadLetterConfig: DeadLetterConfig.t option ;
      logConfig: LogConfig.t option
        [@ocaml.doc
          "The logging configuration settings for the event bus. For more information, see Configuring logs for event buses in the EventBridge User Guide."]}
    let make ?name =
      fun ?kmsKeyIdentifier ->
        fun ?description ->
          fun ?deadLetterConfig ->
            fun ?logConfig ->
              fun () ->
                {
                  name;
                  kmsKeyIdentifier;
                  description;
                  deadLetterConfig;
                  logConfig
                }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:EventBusName.to_value));
        ("KmsKeyIdentifier",
          (Option.map x.kmsKeyIdentifier ~f:KmsKeyIdentifier.to_value));
        ("Description",
          (Option.map x.description ~f:EventBusDescription.to_value));
        ("DeadLetterConfig",
          (Option.map x.deadLetterConfig ~f:DeadLetterConfig.to_value));
        ("LogConfig", (Option.map x.logConfig ~f:LogConfig.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let logConfig =
        (Option.map ~f:LogConfig.of_xml) (Xml.child xml_arg0 "LogConfig") in
      let deadLetterConfig =
        (Option.map ~f:DeadLetterConfig.of_xml)
          (Xml.child xml_arg0 "DeadLetterConfig") in
      let description =
        (Option.map ~f:EventBusDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let kmsKeyIdentifier =
        (Option.map ~f:KmsKeyIdentifier.of_xml)
          (Xml.child xml_arg0 "KmsKeyIdentifier") in
      let name =
        (Option.map ~f:EventBusName.of_xml) (Xml.child xml_arg0 "Name") in
      make ?logConfig ?deadLetterConfig ?description ?kmsKeyIdentifier ?name
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let logConfig = field_map json__ "LogConfig" LogConfig.of_json in
      let deadLetterConfig =
        field_map json__ "DeadLetterConfig" DeadLetterConfig.of_json in
      let description =
        field_map json__ "Description" EventBusDescription.of_json in
      let kmsKeyIdentifier =
        field_map json__ "KmsKeyIdentifier" KmsKeyIdentifier.of_json in
      let name = field_map json__ "Name" EventBusName.of_json in
      make ?logConfig ?deadLetterConfig ?description ?kmsKeyIdentifier ?name
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the specified event bus."]
module UpdateEndpointResponse =
  struct
    type nonrec t =
      {
      name: EndpointName.t option
        [@ocaml.doc "The name of the endpoint you updated in this request."];
      arn: EndpointArn.t option
        [@ocaml.doc "The ARN of the endpoint you updated in this request."];
      routingConfig: RoutingConfig.t option
        [@ocaml.doc "The routing configuration you updated in this request."];
      replicationConfig: ReplicationConfig.t option
        [@ocaml.doc
          "Whether event replication was enabled or disabled for the endpoint you updated in this request."];
      eventBuses: EndpointEventBusList.t option
        [@ocaml.doc
          "The event buses used for replication for the endpoint you updated in this request."];
      roleArn: IamRoleArn.t option
        [@ocaml.doc
          "The ARN of the role used by event replication for the endpoint you updated in this request."];
      endpointId: EndpointId.t option
        [@ocaml.doc "The ID of the endpoint you updated in this request."];
      endpointUrl: EndpointUrl.t option
        [@ocaml.doc "The URL of the endpoint you updated in this request."];
      state: EndpointState.t option
        [@ocaml.doc "The state of the endpoint you updated in this request."]}
    type nonrec error =
      [
        `ConcurrentModificationException of ConcurrentModificationException.t 
      | `InternalException of InternalException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?name =
      fun ?arn ->
        fun ?routingConfig ->
          fun ?replicationConfig ->
            fun ?eventBuses ->
              fun ?roleArn ->
                fun ?endpointId ->
                  fun ?endpointUrl ->
                    fun ?state ->
                      fun () ->
                        {
                          name;
                          arn;
                          routingConfig;
                          replicationConfig;
                          eventBuses;
                          roleArn;
                          endpointId;
                          endpointUrl;
                          state
                        }
    let error_of_json name json =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConcurrentModificationException e ->
          `Assoc
            [("error", (`String "ConcurrentModificationException"));
            ("details", (ConcurrentModificationException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
        [("Name", (Option.map x.name ~f:EndpointName.to_value));
        ("Arn", (Option.map x.arn ~f:EndpointArn.to_value));
        ("RoutingConfig",
          (Option.map x.routingConfig ~f:RoutingConfig.to_value));
        ("ReplicationConfig",
          (Option.map x.replicationConfig ~f:ReplicationConfig.to_value));
        ("EventBuses",
          (Option.map x.eventBuses ~f:EndpointEventBusList.to_value));
        ("RoleArn", (Option.map x.roleArn ~f:IamRoleArn.to_value));
        ("EndpointId", (Option.map x.endpointId ~f:EndpointId.to_value));
        ("EndpointUrl", (Option.map x.endpointUrl ~f:EndpointUrl.to_value));
        ("State", (Option.map x.state ~f:EndpointState.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let state =
        (Option.map ~f:EndpointState.of_xml) (Xml.child xml_arg0 "State") in
      let endpointUrl =
        (Option.map ~f:EndpointUrl.of_xml) (Xml.child xml_arg0 "EndpointUrl") in
      let endpointId =
        (Option.map ~f:EndpointId.of_xml) (Xml.child xml_arg0 "EndpointId") in
      let roleArn =
        (Option.map ~f:IamRoleArn.of_xml) (Xml.child xml_arg0 "RoleArn") in
      let eventBuses =
        (Option.map ~f:EndpointEventBusList.of_xml)
          (Xml.child xml_arg0 "EventBuses") in
      let replicationConfig =
        (Option.map ~f:ReplicationConfig.of_xml)
          (Xml.child xml_arg0 "ReplicationConfig") in
      let routingConfig =
        (Option.map ~f:RoutingConfig.of_xml)
          (Xml.child xml_arg0 "RoutingConfig") in
      let arn = (Option.map ~f:EndpointArn.of_xml) (Xml.child xml_arg0 "Arn") in
      let name =
        (Option.map ~f:EndpointName.of_xml) (Xml.child xml_arg0 "Name") in
      make ?state ?endpointUrl ?endpointId ?roleArn ?eventBuses
        ?replicationConfig ?routingConfig ?arn ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let state = field_map json__ "State" EndpointState.of_json in
      let endpointUrl = field_map json__ "EndpointUrl" EndpointUrl.of_json in
      let endpointId = field_map json__ "EndpointId" EndpointId.of_json in
      let roleArn = field_map json__ "RoleArn" IamRoleArn.of_json in
      let eventBuses =
        field_map json__ "EventBuses" EndpointEventBusList.of_json in
      let replicationConfig =
        field_map json__ "ReplicationConfig" ReplicationConfig.of_json in
      let routingConfig =
        field_map json__ "RoutingConfig" RoutingConfig.of_json in
      let arn = field_map json__ "Arn" EndpointArn.of_json in
      let name = field_map json__ "Name" EndpointName.of_json in
      make ?state ?endpointUrl ?endpointId ?roleArn ?eventBuses
        ?replicationConfig ?routingConfig ?arn ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Update an existing endpoint. For more information about global endpoints, see Making applications Regional-fault tolerant with global endpoints and event replication in the Amazon EventBridge User Guide ."]
module UpdateEndpointRequest =
  struct
    type nonrec t =
      {
      name: EndpointName.t
        [@ocaml.doc "The name of the endpoint you want to update."];
      description: EndpointDescription.t option
        [@ocaml.doc "A description for the endpoint."];
      routingConfig: RoutingConfig.t option
        [@ocaml.doc
          "Configure the routing policy, including the health check and secondary Region."];
      replicationConfig: ReplicationConfig.t option
        [@ocaml.doc
          "Whether event replication was enabled or disabled by this request."];
      eventBuses: EndpointEventBusList.t option
        [@ocaml.doc "Define event buses used for replication."];
      roleArn: IamRoleArn.t option
        [@ocaml.doc
          "The ARN of the role used by event replication for this request."]}
    let context_ = "UpdateEndpointRequest"
    let make ?description =
      fun ?routingConfig ->
        fun ?replicationConfig ->
          fun ?eventBuses ->
            fun ?roleArn ->
              fun ~name ->
                fun () ->
                  {
                    description;
                    routingConfig;
                    replicationConfig;
                    eventBuses;
                    roleArn;
                    name
                  }
    let to_value x =
      structure_to_value
        [("Name", (Some (EndpointName.to_value x.name)));
        ("Description",
          (Option.map x.description ~f:EndpointDescription.to_value));
        ("RoutingConfig",
          (Option.map x.routingConfig ~f:RoutingConfig.to_value));
        ("ReplicationConfig",
          (Option.map x.replicationConfig ~f:ReplicationConfig.to_value));
        ("EventBuses",
          (Option.map x.eventBuses ~f:EndpointEventBusList.to_value));
        ("RoleArn", (Option.map x.roleArn ~f:IamRoleArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let roleArn =
        (Option.map ~f:IamRoleArn.of_xml) (Xml.child xml_arg0 "RoleArn") in
      let eventBuses =
        (Option.map ~f:EndpointEventBusList.of_xml)
          (Xml.child xml_arg0 "EventBuses") in
      let replicationConfig =
        (Option.map ~f:ReplicationConfig.of_xml)
          (Xml.child xml_arg0 "ReplicationConfig") in
      let routingConfig =
        (Option.map ~f:RoutingConfig.of_xml)
          (Xml.child xml_arg0 "RoutingConfig") in
      let description =
        (Option.map ~f:EndpointDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let name =
        EndpointName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ?roleArn ?eventBuses ?replicationConfig ?routingConfig
        ?description ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let roleArn = field_map json__ "RoleArn" IamRoleArn.of_json in
      let eventBuses =
        field_map json__ "EventBuses" EndpointEventBusList.of_json in
      let replicationConfig =
        field_map json__ "ReplicationConfig" ReplicationConfig.of_json in
      let routingConfig =
        field_map json__ "RoutingConfig" RoutingConfig.of_json in
      let description =
        field_map json__ "Description" EndpointDescription.of_json in
      let name = field_map_exn json__ "Name" EndpointName.of_json in
      make ?roleArn ?eventBuses ?replicationConfig ?routingConfig
        ?description ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Update an existing endpoint. For more information about global endpoints, see Making applications Regional-fault tolerant with global endpoints and event replication in the Amazon EventBridge User Guide ."]
module UpdateConnectionResponse =
  struct
    type nonrec t =
      {
      connectionArn: ConnectionArn.t option
        [@ocaml.doc "The ARN of the connection that was updated."];
      connectionState: ConnectionState.t option
        [@ocaml.doc "The state of the connection that was updated."];
      creationTime: Timestamp.t option
        [@ocaml.doc
          "A time stamp for the time that the connection was created."];
      lastModifiedTime: Timestamp.t option
        [@ocaml.doc
          "A time stamp for the time that the connection was last modified."];
      lastAuthorizedTime: Timestamp.t option
        [@ocaml.doc
          "A time stamp for the time that the connection was last authorized."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConcurrentModificationException of ConcurrentModificationException.t 
      | `InternalException of InternalException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?connectionArn =
      fun ?connectionState ->
        fun ?creationTime ->
          fun ?lastModifiedTime ->
            fun ?lastAuthorizedTime ->
              fun () ->
                {
                  connectionArn;
                  connectionState;
                  creationTime;
                  lastModifiedTime;
                  lastAuthorizedTime
                }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConcurrentModificationException e ->
          `Assoc
            [("error", (`String "ConcurrentModificationException"));
            ("details", (ConcurrentModificationException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ConnectionArn",
           (Option.map x.connectionArn ~f:ConnectionArn.to_value));
        ("ConnectionState",
          (Option.map x.connectionState ~f:ConnectionState.to_value));
        ("CreationTime", (Option.map x.creationTime ~f:Timestamp.to_value));
        ("LastModifiedTime",
          (Option.map x.lastModifiedTime ~f:Timestamp.to_value));
        ("LastAuthorizedTime",
          (Option.map x.lastAuthorizedTime ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastAuthorizedTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastAuthorizedTime") in
      let lastModifiedTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastModifiedTime") in
      let creationTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "CreationTime") in
      let connectionState =
        (Option.map ~f:ConnectionState.of_xml)
          (Xml.child xml_arg0 "ConnectionState") in
      let connectionArn =
        (Option.map ~f:ConnectionArn.of_xml)
          (Xml.child xml_arg0 "ConnectionArn") in
      make ?lastAuthorizedTime ?lastModifiedTime ?creationTime
        ?connectionState ?connectionArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastAuthorizedTime =
        field_map json__ "LastAuthorizedTime" Timestamp.of_json in
      let lastModifiedTime =
        field_map json__ "LastModifiedTime" Timestamp.of_json in
      let creationTime = field_map json__ "CreationTime" Timestamp.of_json in
      let connectionState =
        field_map json__ "ConnectionState" ConnectionState.of_json in
      let connectionArn =
        field_map json__ "ConnectionArn" ConnectionArn.of_json in
      make ?lastAuthorizedTime ?lastModifiedTime ?creationTime
        ?connectionState ?connectionArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates settings for a connection."]
module UpdateConnectionRequest =
  struct
    type nonrec t =
      {
      name: ConnectionName.t
        [@ocaml.doc "The name of the connection to update."];
      description: ConnectionDescription.t option
        [@ocaml.doc "A description for the connection."];
      authorizationType: ConnectionAuthorizationType.t option
        [@ocaml.doc "The type of authorization to use for the connection."];
      authParameters: UpdateConnectionAuthRequestParameters.t option
        [@ocaml.doc
          "The authorization parameters to use for the connection."];
      invocationConnectivityParameters:
        ConnectivityResourceParameters.t option
        [@ocaml.doc
          "For connections to private APIs, the parameters to use for invoking the API. For more information, see Connecting to private APIs in the Amazon EventBridge User Guide ."];
      kmsKeyIdentifier: KmsKeyIdentifier.t option
        [@ocaml.doc
          "The identifier of the KMS customer managed key for EventBridge to use, if you choose to use a customer managed key to encrypt this connection. The identifier can be the key Amazon Resource Name (ARN), KeyId, key alias, or key alias ARN. If you do not specify a customer managed key identifier, EventBridge uses an Amazon Web Services owned key to encrypt the connection. For more information, see Identify and view keys in the Key Management Service Developer Guide."]}
    let context_ = "UpdateConnectionRequest"
    let make ?description =
      fun ?authorizationType ->
        fun ?authParameters ->
          fun ?invocationConnectivityParameters ->
            fun ?kmsKeyIdentifier ->
              fun ~name ->
                fun () ->
                  {
                    description;
                    authorizationType;
                    authParameters;
                    invocationConnectivityParameters;
                    kmsKeyIdentifier;
                    name
                  }
    let to_value x =
      structure_to_value
        [("Name", (Some (ConnectionName.to_value x.name)));
        ("Description",
          (Option.map x.description ~f:ConnectionDescription.to_value));
        ("AuthorizationType",
          (Option.map x.authorizationType
             ~f:ConnectionAuthorizationType.to_value));
        ("AuthParameters",
          (Option.map x.authParameters
             ~f:UpdateConnectionAuthRequestParameters.to_value));
        ("InvocationConnectivityParameters",
          (Option.map x.invocationConnectivityParameters
             ~f:ConnectivityResourceParameters.to_value));
        ("KmsKeyIdentifier",
          (Option.map x.kmsKeyIdentifier ~f:KmsKeyIdentifier.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let kmsKeyIdentifier =
        (Option.map ~f:KmsKeyIdentifier.of_xml)
          (Xml.child xml_arg0 "KmsKeyIdentifier") in
      let invocationConnectivityParameters =
        (Option.map ~f:ConnectivityResourceParameters.of_xml)
          (Xml.child xml_arg0 "InvocationConnectivityParameters") in
      let authParameters =
        (Option.map ~f:UpdateConnectionAuthRequestParameters.of_xml)
          (Xml.child xml_arg0 "AuthParameters") in
      let authorizationType =
        (Option.map ~f:ConnectionAuthorizationType.of_xml)
          (Xml.child xml_arg0 "AuthorizationType") in
      let description =
        (Option.map ~f:ConnectionDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let name =
        ConnectionName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ?kmsKeyIdentifier ?invocationConnectivityParameters
        ?authParameters ?authorizationType ?description ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let kmsKeyIdentifier =
        field_map json__ "KmsKeyIdentifier" KmsKeyIdentifier.of_json in
      let invocationConnectivityParameters =
        field_map json__ "InvocationConnectivityParameters"
          ConnectivityResourceParameters.of_json in
      let authParameters =
        field_map json__ "AuthParameters"
          UpdateConnectionAuthRequestParameters.of_json in
      let authorizationType =
        field_map json__ "AuthorizationType"
          ConnectionAuthorizationType.of_json in
      let description =
        field_map json__ "Description" ConnectionDescription.of_json in
      let name = field_map_exn json__ "Name" ConnectionName.of_json in
      make ?kmsKeyIdentifier ?invocationConnectivityParameters
        ?authParameters ?authorizationType ?description ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates settings for a connection."]
module UpdateArchiveResponse =
  struct
    type nonrec t =
      {
      archiveArn: ArchiveArn.t option [@ocaml.doc "The ARN of the archive."];
      state: ArchiveState.t option [@ocaml.doc "The state of the archive."];
      stateReason: ArchiveStateReason.t option
        [@ocaml.doc "The reason that the archive is in the current state."];
      creationTime: Timestamp.t option
        [@ocaml.doc "The time at which the archive was updated."]}
    type nonrec error =
      [
        `ConcurrentModificationException of ConcurrentModificationException.t 
      | `InternalException of InternalException.t 
      | `InvalidEventPatternException of InvalidEventPatternException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?archiveArn =
      fun ?state ->
        fun ?stateReason ->
          fun ?creationTime ->
            fun () -> { archiveArn; state; stateReason; creationTime }
    let error_of_json name json =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | "InvalidEventPatternException" ->
          `InvalidEventPatternException
            (InvalidEventPatternException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | "InvalidEventPatternException" ->
          `InvalidEventPatternException
            (InvalidEventPatternException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConcurrentModificationException e ->
          `Assoc
            [("error", (`String "ConcurrentModificationException"));
            ("details", (ConcurrentModificationException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.to_json e))]
      | `InvalidEventPatternException e ->
          `Assoc
            [("error", (`String "InvalidEventPatternException"));
            ("details", (InvalidEventPatternException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
        [("ArchiveArn", (Option.map x.archiveArn ~f:ArchiveArn.to_value));
        ("State", (Option.map x.state ~f:ArchiveState.to_value));
        ("StateReason",
          (Option.map x.stateReason ~f:ArchiveStateReason.to_value));
        ("CreationTime", (Option.map x.creationTime ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let creationTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "CreationTime") in
      let stateReason =
        (Option.map ~f:ArchiveStateReason.of_xml)
          (Xml.child xml_arg0 "StateReason") in
      let state =
        (Option.map ~f:ArchiveState.of_xml) (Xml.child xml_arg0 "State") in
      let archiveArn =
        (Option.map ~f:ArchiveArn.of_xml) (Xml.child xml_arg0 "ArchiveArn") in
      make ?creationTime ?stateReason ?state ?archiveArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let creationTime = field_map json__ "CreationTime" Timestamp.of_json in
      let stateReason =
        field_map json__ "StateReason" ArchiveStateReason.of_json in
      let state = field_map json__ "State" ArchiveState.of_json in
      let archiveArn = field_map json__ "ArchiveArn" ArchiveArn.of_json in
      make ?creationTime ?stateReason ?state ?archiveArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the specified archive."]
module UpdateArchiveRequest =
  struct
    type nonrec t =
      {
      archiveName: ArchiveName.t
        [@ocaml.doc "The name of the archive to update."];
      description: ArchiveDescription.t option
        [@ocaml.doc "The description for the archive."];
      eventPattern: EventPattern.t option
        [@ocaml.doc
          "The event pattern to use to filter events sent to the archive."];
      retentionDays: RetentionDays.t option
        [@ocaml.doc "The number of days to retain events in the archive."];
      kmsKeyIdentifier: KmsKeyIdentifier.t option
        [@ocaml.doc
          "The identifier of the KMS customer managed key for EventBridge to use, if you choose to use a customer managed key to encrypt this archive. The identifier can be the key Amazon Resource Name (ARN), KeyId, key alias, or key alias ARN. If you do not specify a customer managed key identifier, EventBridge uses an Amazon Web Services owned key to encrypt the archive. For more information, see Identify and view keys in the Key Management Service Developer Guide. If you have specified that EventBridge use a customer managed key for encrypting the source event bus, we strongly recommend you also specify a customer managed key for any archives for the event bus as well. For more information, see Encrypting archives in the Amazon EventBridge User Guide."]}
    let context_ = "UpdateArchiveRequest"
    let make ?description =
      fun ?eventPattern ->
        fun ?retentionDays ->
          fun ?kmsKeyIdentifier ->
            fun ~archiveName ->
              fun () ->
                {
                  description;
                  eventPattern;
                  retentionDays;
                  kmsKeyIdentifier;
                  archiveName
                }
    let to_value x =
      structure_to_value
        [("ArchiveName", (Some (ArchiveName.to_value x.archiveName)));
        ("Description",
          (Option.map x.description ~f:ArchiveDescription.to_value));
        ("EventPattern",
          (Option.map x.eventPattern ~f:EventPattern.to_value));
        ("RetentionDays",
          (Option.map x.retentionDays ~f:RetentionDays.to_value));
        ("KmsKeyIdentifier",
          (Option.map x.kmsKeyIdentifier ~f:KmsKeyIdentifier.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let kmsKeyIdentifier =
        (Option.map ~f:KmsKeyIdentifier.of_xml)
          (Xml.child xml_arg0 "KmsKeyIdentifier") in
      let retentionDays =
        (Option.map ~f:RetentionDays.of_xml)
          (Xml.child xml_arg0 "RetentionDays") in
      let eventPattern =
        (Option.map ~f:EventPattern.of_xml)
          (Xml.child xml_arg0 "EventPattern") in
      let description =
        (Option.map ~f:ArchiveDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let archiveName =
        ArchiveName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ArchiveName") in
      make ?kmsKeyIdentifier ?retentionDays ?eventPattern ?description
        ~archiveName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let kmsKeyIdentifier =
        field_map json__ "KmsKeyIdentifier" KmsKeyIdentifier.of_json in
      let retentionDays =
        field_map json__ "RetentionDays" RetentionDays.of_json in
      let eventPattern = field_map json__ "EventPattern" EventPattern.of_json in
      let description =
        field_map json__ "Description" ArchiveDescription.of_json in
      let archiveName =
        field_map_exn json__ "ArchiveName" ArchiveName.of_json in
      make ?kmsKeyIdentifier ?retentionDays ?eventPattern ?description
        ~archiveName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the specified archive."]
module UpdateApiDestinationResponse =
  struct
    type nonrec t =
      {
      apiDestinationArn: ApiDestinationArn.t option
        [@ocaml.doc "The ARN of the API destination that was updated."];
      apiDestinationState: ApiDestinationState.t option
        [@ocaml.doc "The state of the API destination that was updated."];
      creationTime: Timestamp.t option
        [@ocaml.doc
          "A time stamp for the time that the API destination was created."];
      lastModifiedTime: Timestamp.t option
        [@ocaml.doc
          "A time stamp for the time that the API destination was last modified."]}
    type nonrec error =
      [
        `ConcurrentModificationException of ConcurrentModificationException.t 
      | `InternalException of InternalException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?apiDestinationArn =
      fun ?apiDestinationState ->
        fun ?creationTime ->
          fun ?lastModifiedTime ->
            fun () ->
              {
                apiDestinationArn;
                apiDestinationState;
                creationTime;
                lastModifiedTime
              }
    let error_of_json name json =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConcurrentModificationException e ->
          `Assoc
            [("error", (`String "ConcurrentModificationException"));
            ("details", (ConcurrentModificationException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
        [("ApiDestinationArn",
           (Option.map x.apiDestinationArn ~f:ApiDestinationArn.to_value));
        ("ApiDestinationState",
          (Option.map x.apiDestinationState ~f:ApiDestinationState.to_value));
        ("CreationTime", (Option.map x.creationTime ~f:Timestamp.to_value));
        ("LastModifiedTime",
          (Option.map x.lastModifiedTime ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastModifiedTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastModifiedTime") in
      let creationTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "CreationTime") in
      let apiDestinationState =
        (Option.map ~f:ApiDestinationState.of_xml)
          (Xml.child xml_arg0 "ApiDestinationState") in
      let apiDestinationArn =
        (Option.map ~f:ApiDestinationArn.of_xml)
          (Xml.child xml_arg0 "ApiDestinationArn") in
      make ?lastModifiedTime ?creationTime ?apiDestinationState
        ?apiDestinationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastModifiedTime =
        field_map json__ "LastModifiedTime" Timestamp.of_json in
      let creationTime = field_map json__ "CreationTime" Timestamp.of_json in
      let apiDestinationState =
        field_map json__ "ApiDestinationState" ApiDestinationState.of_json in
      let apiDestinationArn =
        field_map json__ "ApiDestinationArn" ApiDestinationArn.of_json in
      make ?lastModifiedTime ?creationTime ?apiDestinationState
        ?apiDestinationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates an API destination."]
module UpdateApiDestinationRequest =
  struct
    type nonrec t =
      {
      name: ApiDestinationName.t
        [@ocaml.doc "The name of the API destination to update."];
      description: ApiDestinationDescription.t option
        [@ocaml.doc "The name of the API destination to update."];
      connectionArn: ConnectionArn.t option
        [@ocaml.doc
          "The ARN of the connection to use for the API destination."];
      invocationEndpoint: HttpsEndpoint.t option
        [@ocaml.doc
          "The URL to the endpoint to use for the API destination."];
      httpMethod: ApiDestinationHttpMethod.t option
        [@ocaml.doc "The method to use for the API destination."];
      invocationRateLimitPerSecond:
        ApiDestinationInvocationRateLimitPerSecond.t option
        [@ocaml.doc
          "The maximum number of invocations per second to send to the API destination."]}
    let context_ = "UpdateApiDestinationRequest"
    let make ?description =
      fun ?connectionArn ->
        fun ?invocationEndpoint ->
          fun ?httpMethod ->
            fun ?invocationRateLimitPerSecond ->
              fun ~name ->
                fun () ->
                  {
                    description;
                    connectionArn;
                    invocationEndpoint;
                    httpMethod;
                    invocationRateLimitPerSecond;
                    name
                  }
    let to_value x =
      structure_to_value
        [("Name", (Some (ApiDestinationName.to_value x.name)));
        ("Description",
          (Option.map x.description ~f:ApiDestinationDescription.to_value));
        ("ConnectionArn",
          (Option.map x.connectionArn ~f:ConnectionArn.to_value));
        ("InvocationEndpoint",
          (Option.map x.invocationEndpoint ~f:HttpsEndpoint.to_value));
        ("HttpMethod",
          (Option.map x.httpMethod ~f:ApiDestinationHttpMethod.to_value));
        ("InvocationRateLimitPerSecond",
          (Option.map x.invocationRateLimitPerSecond
             ~f:ApiDestinationInvocationRateLimitPerSecond.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let invocationRateLimitPerSecond =
        (Option.map ~f:ApiDestinationInvocationRateLimitPerSecond.of_xml)
          (Xml.child xml_arg0 "InvocationRateLimitPerSecond") in
      let httpMethod =
        (Option.map ~f:ApiDestinationHttpMethod.of_xml)
          (Xml.child xml_arg0 "HttpMethod") in
      let invocationEndpoint =
        (Option.map ~f:HttpsEndpoint.of_xml)
          (Xml.child xml_arg0 "InvocationEndpoint") in
      let connectionArn =
        (Option.map ~f:ConnectionArn.of_xml)
          (Xml.child xml_arg0 "ConnectionArn") in
      let description =
        (Option.map ~f:ApiDestinationDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let name =
        ApiDestinationName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ?invocationRateLimitPerSecond ?httpMethod ?invocationEndpoint
        ?connectionArn ?description ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let invocationRateLimitPerSecond =
        field_map json__ "InvocationRateLimitPerSecond"
          ApiDestinationInvocationRateLimitPerSecond.of_json in
      let httpMethod =
        field_map json__ "HttpMethod" ApiDestinationHttpMethod.of_json in
      let invocationEndpoint =
        field_map json__ "InvocationEndpoint" HttpsEndpoint.of_json in
      let connectionArn =
        field_map json__ "ConnectionArn" ConnectionArn.of_json in
      let description =
        field_map json__ "Description" ApiDestinationDescription.of_json in
      let name = field_map_exn json__ "Name" ApiDestinationName.of_json in
      make ?invocationRateLimitPerSecond ?httpMethod ?invocationEndpoint
        ?connectionArn ?description ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates an API destination."]
module UntagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [
        `ConcurrentModificationException of ConcurrentModificationException.t 
      | `InternalException of InternalException.t 
      | `ManagedRuleException of ManagedRuleException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | "ManagedRuleException" ->
          `ManagedRuleException (ManagedRuleException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | "ManagedRuleException" ->
          `ManagedRuleException (ManagedRuleException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConcurrentModificationException e ->
          `Assoc
            [("error", (`String "ConcurrentModificationException"));
            ("details", (ConcurrentModificationException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.to_json e))]
      | `ManagedRuleException e ->
          `Assoc
            [("error", (`String "ManagedRuleException"));
            ("details", (ManagedRuleException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes one or more tags from the specified EventBridge resource. In Amazon EventBridge, rules and event buses can be tagged."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      resourceARN: Arn.t
        [@ocaml.doc
          "The ARN of the EventBridge resource from which you are removing tags."];
      tagKeys: TagKeyList.t
        [@ocaml.doc "The list of tag keys to remove from the resource."]}
    let context_ = "UntagResourceRequest"
    let make ~resourceARN =
      fun ~tagKeys -> fun () -> { resourceARN; tagKeys }
    let to_value x =
      structure_to_value
        [("ResourceARN", (Some (Arn.to_value x.resourceARN)));
        ("TagKeys", (Some (TagKeyList.to_value x.tagKeys)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagKeys =
        TagKeyList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TagKeys") in
      let resourceARN =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "ResourceARN") in
      make ~tagKeys ~resourceARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagKeys = field_map_exn json__ "TagKeys" TagKeyList.of_json in
      let resourceARN = field_map_exn json__ "ResourceARN" Arn.of_json in
      make ~tagKeys ~resourceARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes one or more tags from the specified EventBridge resource. In Amazon EventBridge, rules and event buses can be tagged."]
module TestEventPatternResponse =
  struct
    type nonrec t =
      {
      result: Boolean.t option
        [@ocaml.doc "Indicates whether the event matches the event pattern."]}
    type nonrec error =
      [ `InternalException of InternalException.t 
      | `InvalidEventPatternException of InvalidEventPatternException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?result = fun () -> { result }
    let error_of_json name json =
      match name with
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | "InvalidEventPatternException" ->
          `InvalidEventPatternException
            (InvalidEventPatternException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | "InvalidEventPatternException" ->
          `InvalidEventPatternException
            (InvalidEventPatternException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.to_json e))]
      | `InvalidEventPatternException e ->
          `Assoc
            [("error", (`String "InvalidEventPatternException"));
            ("details", (InvalidEventPatternException.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
        [("Result", (Option.map x.result ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let result =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "Result") in
      make ?result ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let result = field_map json__ "Result" Boolean.of_json in
      make ?result ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Tests whether the specified event pattern matches the provided event. Most services in Amazon Web Services treat : or / as the same character in Amazon Resource Names (ARNs). However, EventBridge uses an exact match in event patterns and rules. Be sure to use the correct ARN characters when creating event patterns so that they match the ARN syntax in the event you want to match."]
module TestEventPatternRequest =
  struct
    type nonrec t =
      {
      eventPattern: EventPattern.t
        [@ocaml.doc
          "The event pattern. For more information, see Events and Event Patterns in the Amazon EventBridge User Guide ."];
      event: String_.t
        [@ocaml.doc
          "The event, in JSON format, to test against the event pattern. The JSON must follow the format specified in Amazon Web Services Events, and the following fields are mandatory: id account source time region resources detail-type"]}
    let context_ = "TestEventPatternRequest"
    let make ~eventPattern = fun ~event -> fun () -> { eventPattern; event }
    let to_value x =
      structure_to_value
        [("EventPattern", (Some (EventPattern.to_value x.eventPattern)));
        ("Event", (Some (String_.to_value x.event)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let event =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Event") in
      let eventPattern =
        EventPattern.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EventPattern") in
      make ~event ~eventPattern ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let event = field_map_exn json__ "Event" String_.of_json in
      let eventPattern =
        field_map_exn json__ "EventPattern" EventPattern.of_json in
      make ~event ~eventPattern ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Tests whether the specified event pattern matches the provided event. Most services in Amazon Web Services treat : or / as the same character in Amazon Resource Names (ARNs). However, EventBridge uses an exact match in event patterns and rules. Be sure to use the correct ARN characters when creating event patterns so that they match the ARN syntax in the event you want to match."]
module TagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [
        `ConcurrentModificationException of ConcurrentModificationException.t 
      | `InternalException of InternalException.t 
      | `ManagedRuleException of ManagedRuleException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | "ManagedRuleException" ->
          `ManagedRuleException (ManagedRuleException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | "ManagedRuleException" ->
          `ManagedRuleException (ManagedRuleException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConcurrentModificationException e ->
          `Assoc
            [("error", (`String "ConcurrentModificationException"));
            ("details", (ConcurrentModificationException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.to_json e))]
      | `ManagedRuleException e ->
          `Assoc
            [("error", (`String "ManagedRuleException"));
            ("details", (ManagedRuleException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Assigns one or more tags (key-value pairs) to the specified EventBridge resource. Tags can help you organize and categorize your resources. You can also use them to scope user permissions by granting a user permission to access or change only resources with certain tag values. In EventBridge, rules and event buses can be tagged. Tags don't have any semantic meaning to Amazon Web Services and are interpreted strictly as strings of characters. You can use the TagResource action with a resource that already has tags. If you specify a new tag key, this tag is appended to the list of tags associated with the resource. If you specify a tag key that is already associated with the resource, the new tag value that you specify replaces the previous value for that tag. You can associate as many as 50 tags with a resource."]
module TagResourceRequest =
  struct
    type nonrec t =
      {
      resourceARN: Arn.t
        [@ocaml.doc
          "The ARN of the EventBridge resource that you're adding tags to."];
      tags: TagList.t
        [@ocaml.doc
          "The list of key-value pairs to associate with the resource."]}
    let context_ = "TagResourceRequest"
    let make ~resourceARN = fun ~tags -> fun () -> { resourceARN; tags }
    let to_value x =
      structure_to_value
        [("ResourceARN", (Some (Arn.to_value x.resourceARN)));
        ("Tags", (Some (TagList.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        TagList.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Tags") in
      let resourceARN =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "ResourceARN") in
      make ~tags ~resourceARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map_exn json__ "Tags" TagList.of_json in
      let resourceARN = field_map_exn json__ "ResourceARN" Arn.of_json in
      make ~tags ~resourceARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Assigns one or more tags (key-value pairs) to the specified EventBridge resource. Tags can help you organize and categorize your resources. You can also use them to scope user permissions by granting a user permission to access or change only resources with certain tag values. In EventBridge, rules and event buses can be tagged. Tags don't have any semantic meaning to Amazon Web Services and are interpreted strictly as strings of characters. You can use the TagResource action with a resource that already has tags. If you specify a new tag key, this tag is appended to the list of tags associated with the resource. If you specify a tag key that is already associated with the resource, the new tag value that you specify replaces the previous value for that tag. You can associate as many as 50 tags with a resource."]
module StartReplayResponse =
  struct
    type nonrec t =
      {
      replayArn: ReplayArn.t option [@ocaml.doc "The ARN of the replay."];
      state: ReplayState.t option [@ocaml.doc "The state of the replay."];
      stateReason: ReplayStateReason.t option
        [@ocaml.doc "The reason that the replay is in the state."];
      replayStartTime: Timestamp.t option
        [@ocaml.doc "The time at which the replay started."]}
    type nonrec error =
      [ `InternalException of InternalException.t 
      | `InvalidEventPatternException of InvalidEventPatternException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceAlreadyExistsException of ResourceAlreadyExistsException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?replayArn =
      fun ?state ->
        fun ?stateReason ->
          fun ?replayStartTime ->
            fun () -> { replayArn; state; stateReason; replayStartTime }
    let error_of_json name json =
      match name with
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | "InvalidEventPatternException" ->
          `InvalidEventPatternException
            (InvalidEventPatternException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceAlreadyExistsException" ->
          `ResourceAlreadyExistsException
            (ResourceAlreadyExistsException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | "InvalidEventPatternException" ->
          `InvalidEventPatternException
            (InvalidEventPatternException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceAlreadyExistsException" ->
          `ResourceAlreadyExistsException
            (ResourceAlreadyExistsException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.to_json e))]
      | `InvalidEventPatternException e ->
          `Assoc
            [("error", (`String "InvalidEventPatternException"));
            ("details", (InvalidEventPatternException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceAlreadyExistsException e ->
          `Assoc
            [("error", (`String "ResourceAlreadyExistsException"));
            ("details", (ResourceAlreadyExistsException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
        [("ReplayArn", (Option.map x.replayArn ~f:ReplayArn.to_value));
        ("State", (Option.map x.state ~f:ReplayState.to_value));
        ("StateReason",
          (Option.map x.stateReason ~f:ReplayStateReason.to_value));
        ("ReplayStartTime",
          (Option.map x.replayStartTime ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let replayStartTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "ReplayStartTime") in
      let stateReason =
        (Option.map ~f:ReplayStateReason.of_xml)
          (Xml.child xml_arg0 "StateReason") in
      let state =
        (Option.map ~f:ReplayState.of_xml) (Xml.child xml_arg0 "State") in
      let replayArn =
        (Option.map ~f:ReplayArn.of_xml) (Xml.child xml_arg0 "ReplayArn") in
      make ?replayStartTime ?stateReason ?state ?replayArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let replayStartTime =
        field_map json__ "ReplayStartTime" Timestamp.of_json in
      let stateReason =
        field_map json__ "StateReason" ReplayStateReason.of_json in
      let state = field_map json__ "State" ReplayState.of_json in
      let replayArn = field_map json__ "ReplayArn" ReplayArn.of_json in
      make ?replayStartTime ?stateReason ?state ?replayArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Starts the specified replay. Events are not necessarily replayed in the exact same order that they were added to the archive. A replay processes events to replay based on the time in the event, and replays them using 1 minute intervals. If you specify an EventStartTime and an EventEndTime that covers a 20 minute time range, the events are replayed from the first minute of that 20 minute range first. Then the events from the second minute are replayed. You can use DescribeReplay to determine the progress of a replay. The value returned for EventLastReplayedTime indicates the time within the specified time range associated with the last event replayed."]
module StartReplayRequest =
  struct
    type nonrec t =
      {
      replayName: ReplayName.t
        [@ocaml.doc "The name of the replay to start."];
      description: ReplayDescription.t option
        [@ocaml.doc "A description for the replay to start."];
      eventSourceArn: ArchiveArn.t
        [@ocaml.doc "The ARN of the archive to replay events from."];
      eventStartTime: Timestamp.t
        [@ocaml.doc
          "A time stamp for the time to start replaying events. Only events that occurred between the EventStartTime and EventEndTime are replayed."];
      eventEndTime: Timestamp.t
        [@ocaml.doc
          "A time stamp for the time to stop replaying events. Only events that occurred between the EventStartTime and EventEndTime are replayed."];
      destination: ReplayDestination.t
        [@ocaml.doc
          "A ReplayDestination object that includes details about the destination for the replay."]}
    let context_ = "StartReplayRequest"
    let make ?description =
      fun ~replayName ->
        fun ~eventSourceArn ->
          fun ~eventStartTime ->
            fun ~eventEndTime ->
              fun ~destination ->
                fun () ->
                  {
                    description;
                    replayName;
                    eventSourceArn;
                    eventStartTime;
                    eventEndTime;
                    destination
                  }
    let to_value x =
      structure_to_value
        [("ReplayName", (Some (ReplayName.to_value x.replayName)));
        ("Description",
          (Option.map x.description ~f:ReplayDescription.to_value));
        ("EventSourceArn", (Some (ArchiveArn.to_value x.eventSourceArn)));
        ("EventStartTime", (Some (Timestamp.to_value x.eventStartTime)));
        ("EventEndTime", (Some (Timestamp.to_value x.eventEndTime)));
        ("Destination", (Some (ReplayDestination.to_value x.destination)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let destination =
        ReplayDestination.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Destination") in
      let eventEndTime =
        Timestamp.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EventEndTime") in
      let eventStartTime =
        Timestamp.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EventStartTime") in
      let eventSourceArn =
        ArchiveArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EventSourceArn") in
      let description =
        (Option.map ~f:ReplayDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let replayName =
        ReplayName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ReplayName") in
      make ~destination ~eventEndTime ~eventStartTime ~eventSourceArn
        ?description ~replayName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let destination =
        field_map_exn json__ "Destination" ReplayDestination.of_json in
      let eventEndTime =
        field_map_exn json__ "EventEndTime" Timestamp.of_json in
      let eventStartTime =
        field_map_exn json__ "EventStartTime" Timestamp.of_json in
      let eventSourceArn =
        field_map_exn json__ "EventSourceArn" ArchiveArn.of_json in
      let description =
        field_map json__ "Description" ReplayDescription.of_json in
      let replayName = field_map_exn json__ "ReplayName" ReplayName.of_json in
      make ~destination ~eventEndTime ~eventStartTime ~eventSourceArn
        ?description ~replayName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Starts the specified replay. Events are not necessarily replayed in the exact same order that they were added to the archive. A replay processes events to replay based on the time in the event, and replays them using 1 minute intervals. If you specify an EventStartTime and an EventEndTime that covers a 20 minute time range, the events are replayed from the first minute of that 20 minute range first. Then the events from the second minute are replayed. You can use DescribeReplay to determine the progress of a replay. The value returned for EventLastReplayedTime indicates the time within the specified time range associated with the last event replayed."]
module RemoveTargetsResponse =
  struct
    type nonrec t =
      {
      failedEntryCount: Integer.t option
        [@ocaml.doc "The number of failed entries."];
      failedEntries: RemoveTargetsResultEntryList.t option
        [@ocaml.doc "The failed target entries."]}
    type nonrec error =
      [
        `ConcurrentModificationException of ConcurrentModificationException.t 
      | `InternalException of InternalException.t 
      | `ManagedRuleException of ManagedRuleException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?failedEntryCount =
      fun ?failedEntries -> fun () -> { failedEntryCount; failedEntries }
    let error_of_json name json =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | "ManagedRuleException" ->
          `ManagedRuleException (ManagedRuleException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | "ManagedRuleException" ->
          `ManagedRuleException (ManagedRuleException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConcurrentModificationException e ->
          `Assoc
            [("error", (`String "ConcurrentModificationException"));
            ("details", (ConcurrentModificationException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.to_json e))]
      | `ManagedRuleException e ->
          `Assoc
            [("error", (`String "ManagedRuleException"));
            ("details", (ManagedRuleException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
        [("FailedEntryCount",
           (Option.map x.failedEntryCount ~f:Integer.to_value));
        ("FailedEntries",
          (Option.map x.failedEntries
             ~f:RemoveTargetsResultEntryList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let failedEntries =
        (Option.map ~f:RemoveTargetsResultEntryList.of_xml)
          (Xml.child xml_arg0 "FailedEntries") in
      let failedEntryCount =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "FailedEntryCount") in
      make ?failedEntries ?failedEntryCount ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let failedEntries =
        field_map json__ "FailedEntries" RemoveTargetsResultEntryList.of_json in
      let failedEntryCount =
        field_map json__ "FailedEntryCount" Integer.of_json in
      make ?failedEntries ?failedEntryCount ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes the specified targets from the specified rule. When the rule is triggered, those targets are no longer be invoked. A successful execution of RemoveTargets doesn't guarantee all targets are removed from the rule, it means that the target(s) listed in the request are removed. When you remove a target, when the associated rule triggers, removed targets might continue to be invoked. Allow a short period of time for changes to take effect. This action can partially fail if too many requests are made at the same time. If that happens, FailedEntryCount is non-zero in the response and each entry in FailedEntries provides the ID of the failed target and the error code. The maximum number of entries per request is 10."]
module RemoveTargetsRequest =
  struct
    type nonrec t =
      {
      rule: RuleName.t [@ocaml.doc "The name of the rule."];
      eventBusName: EventBusNameOrArn.t option
        [@ocaml.doc
          "The name or ARN of the event bus associated with the rule. If you omit this, the default event bus is used."];
      ids: TargetIdList.t
        [@ocaml.doc "The IDs of the targets to remove from the rule."];
      force: Boolean.t option
        [@ocaml.doc
          "If this is a managed rule, created by an Amazon Web Services service on your behalf, you must specify Force as True to remove targets. This parameter is ignored for rules that are not managed rules. You can check whether a rule is a managed rule by using DescribeRule or ListRules and checking the ManagedBy field of the response."]}
    let context_ = "RemoveTargetsRequest"
    let make ?eventBusName =
      fun ?force ->
        fun ~rule -> fun ~ids -> fun () -> { eventBusName; force; rule; ids }
    let to_value x =
      structure_to_value
        [("Rule", (Some (RuleName.to_value x.rule)));
        ("EventBusName",
          (Option.map x.eventBusName ~f:EventBusNameOrArn.to_value));
        ("Ids", (Some (TargetIdList.to_value x.ids)));
        ("Force", (Option.map x.force ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let force = (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "Force") in
      let ids =
        TargetIdList.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Ids") in
      let eventBusName =
        (Option.map ~f:EventBusNameOrArn.of_xml)
          (Xml.child xml_arg0 "EventBusName") in
      let rule =
        RuleName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Rule") in
      make ?force ~ids ?eventBusName ~rule ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let force = field_map json__ "Force" Boolean.of_json in
      let ids = field_map_exn json__ "Ids" TargetIdList.of_json in
      let eventBusName =
        field_map json__ "EventBusName" EventBusNameOrArn.of_json in
      let rule = field_map_exn json__ "Rule" RuleName.of_json in
      make ?force ~ids ?eventBusName ~rule ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes the specified targets from the specified rule. When the rule is triggered, those targets are no longer be invoked. A successful execution of RemoveTargets doesn't guarantee all targets are removed from the rule, it means that the target(s) listed in the request are removed. When you remove a target, when the associated rule triggers, removed targets might continue to be invoked. Allow a short period of time for changes to take effect. This action can partially fail if too many requests are made at the same time. If that happens, FailedEntryCount is non-zero in the response and each entry in FailedEntries provides the ID of the failed target and the error code. The maximum number of entries per request is 10."]
module RemovePermissionRequest =
  struct
    type nonrec t =
      {
      statementId: StatementId.t option
        [@ocaml.doc
          "The statement ID corresponding to the account that is no longer allowed to put events to the default event bus."];
      removeAllPermissions: Boolean.t option
        [@ocaml.doc "Specifies whether to remove all permissions."];
      eventBusName: NonPartnerEventBusName.t option
        [@ocaml.doc
          "The name of the event bus to revoke permissions for. If you omit this, the default event bus is used."]}
    let make ?statementId =
      fun ?removeAllPermissions ->
        fun ?eventBusName ->
          fun () -> { statementId; removeAllPermissions; eventBusName }
    let to_value x =
      structure_to_value
        [("StatementId", (Option.map x.statementId ~f:StatementId.to_value));
        ("RemoveAllPermissions",
          (Option.map x.removeAllPermissions ~f:Boolean.to_value));
        ("EventBusName",
          (Option.map x.eventBusName ~f:NonPartnerEventBusName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eventBusName =
        (Option.map ~f:NonPartnerEventBusName.of_xml)
          (Xml.child xml_arg0 "EventBusName") in
      let removeAllPermissions =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "RemoveAllPermissions") in
      let statementId =
        (Option.map ~f:StatementId.of_xml) (Xml.child xml_arg0 "StatementId") in
      make ?eventBusName ?removeAllPermissions ?statementId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eventBusName =
        field_map json__ "EventBusName" NonPartnerEventBusName.of_json in
      let removeAllPermissions =
        field_map json__ "RemoveAllPermissions" Boolean.of_json in
      let statementId = field_map json__ "StatementId" StatementId.of_json in
      make ?eventBusName ?removeAllPermissions ?statementId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Revokes the permission of another Amazon Web Services account to be able to put events to the specified event bus. Specify the account to revoke by the StatementId value that you associated with the account when you granted it permission with PutPermission. You can find the StatementId by using DescribeEventBus."]
module PutTargetsResponse =
  struct
    type nonrec t =
      {
      failedEntryCount: Integer.t option
        [@ocaml.doc "The number of failed entries."];
      failedEntries: PutTargetsResultEntryList.t option
        [@ocaml.doc "The failed target entries."]}
    type nonrec error =
      [
        `ConcurrentModificationException of ConcurrentModificationException.t 
      | `InternalException of InternalException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ManagedRuleException of ManagedRuleException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?failedEntryCount =
      fun ?failedEntries -> fun () -> { failedEntryCount; failedEntries }
    let error_of_json name json =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ManagedRuleException" ->
          `ManagedRuleException (ManagedRuleException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ManagedRuleException" ->
          `ManagedRuleException (ManagedRuleException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConcurrentModificationException e ->
          `Assoc
            [("error", (`String "ConcurrentModificationException"));
            ("details", (ConcurrentModificationException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ManagedRuleException e ->
          `Assoc
            [("error", (`String "ManagedRuleException"));
            ("details", (ManagedRuleException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
        [("FailedEntryCount",
           (Option.map x.failedEntryCount ~f:Integer.to_value));
        ("FailedEntries",
          (Option.map x.failedEntries ~f:PutTargetsResultEntryList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let failedEntries =
        (Option.map ~f:PutTargetsResultEntryList.of_xml)
          (Xml.child xml_arg0 "FailedEntries") in
      let failedEntryCount =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "FailedEntryCount") in
      make ?failedEntries ?failedEntryCount ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let failedEntries =
        field_map json__ "FailedEntries" PutTargetsResultEntryList.of_json in
      let failedEntryCount =
        field_map json__ "FailedEntryCount" Integer.of_json in
      make ?failedEntries ?failedEntryCount ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds the specified targets to the specified rule, or updates the targets if they are already associated with the rule. Targets are the resources that are invoked when a rule is triggered. The maximum number of entries per request is 10. Each rule can have up to five (5) targets associated with it at one time. For a list of services you can configure as targets for events, see EventBridge targets in the Amazon EventBridge User Guide . Creating rules with built-in targets is supported only in the Amazon Web Services Management Console. The built-in targets are: Amazon EBS CreateSnapshot API call Amazon EC2 RebootInstances API call Amazon EC2 StopInstances API call Amazon EC2 TerminateInstances API call For some target types, PutTargets provides target-specific parameters. If the target is a Kinesis data stream, you can optionally specify which shard the event goes to by using the KinesisParameters argument. To invoke a command on multiple EC2 instances with one rule, you can use the RunCommandParameters field. To be able to make API calls against the resources that you own, Amazon EventBridge needs the appropriate permissions: For Lambda and Amazon SNS resources, EventBridge relies on resource-based policies. For EC2 instances, Kinesis Data Streams, Step Functions state machines and API Gateway APIs, EventBridge relies on IAM roles that you specify in the RoleARN argument in PutTargets. For more information, see Authentication and Access Control in the Amazon EventBridge User Guide . If another Amazon Web Services account is in the same region and has granted you permission (using PutPermission), you can send events to that account. Set that account's event bus as a target of the rules in your account. To send the matched events to the other account, specify that account's event bus as the Arn value when you run PutTargets. If your account sends events to another account, your account is charged for each sent event. Each event sent to another account is charged as a custom event. The account receiving the event is not charged. For more information, see Amazon EventBridge Pricing. Input, InputPath, and InputTransformer are not available with PutTarget if the target is an event bus of a different Amazon Web Services account. If you are setting the event bus of another account as the target, and that account granted permission to your account through an organization instead of directly by the account ID, then you must specify a RoleArn with proper permissions in the Target structure. For more information, see Sending and Receiving Events Between Amazon Web Services Accounts in the Amazon EventBridge User Guide. If you have an IAM role on a cross-account event bus target, a PutTargets call without a role on the same target (same Id and Arn) will not remove the role. For more information about enabling cross-account events, see PutPermission. Input, InputPath, and InputTransformer are mutually exclusive and optional parameters of a target. When a rule is triggered due to a matched event: If none of the following arguments are specified for a target, then the entire event is passed to the target in JSON format (unless the target is Amazon EC2 Run Command or Amazon ECS task, in which case nothing from the event is passed to the target). If Input is specified in the form of valid JSON, then the matched event is overridden with this constant. If InputPath is specified in the form of JSONPath (for example, $.detail), then only the part of the event specified in the path is passed to the target (for example, only the detail part of the event is passed). If InputTransformer is specified, then one or more specified JSONPaths are extracted from the event and used as values in a template that you specify as the input to the target. When you specify InputPath or InputTransformer, you must use JSON dot notation, not bracket notation. When you add targets to a rule and the associated rule triggers soon after, new or updated targets might not be immediately invoked. Allow a short period of time for changes to take effect. This action can partially fail if too many requests are made at the same time. If that happens, FailedEntryCount is non-zero in the response and each entry in FailedEntries provides the ID of the failed target and the error code."]
module PutTargetsRequest =
  struct
    type nonrec t =
      {
      rule: RuleName.t [@ocaml.doc "The name of the rule."];
      eventBusName: EventBusNameOrArn.t option
        [@ocaml.doc
          "The name or ARN of the event bus associated with the rule. If you omit this, the default event bus is used."];
      targets: TargetList.t
        [@ocaml.doc "The targets to update or add to the rule."]}
    let context_ = "PutTargetsRequest"
    let make ?eventBusName =
      fun ~rule -> fun ~targets -> fun () -> { eventBusName; rule; targets }
    let to_value x =
      structure_to_value
        [("Rule", (Some (RuleName.to_value x.rule)));
        ("EventBusName",
          (Option.map x.eventBusName ~f:EventBusNameOrArn.to_value));
        ("Targets", (Some (TargetList.to_value x.targets)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let targets =
        TargetList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Targets") in
      let eventBusName =
        (Option.map ~f:EventBusNameOrArn.of_xml)
          (Xml.child xml_arg0 "EventBusName") in
      let rule =
        RuleName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Rule") in
      make ~targets ?eventBusName ~rule ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let targets = field_map_exn json__ "Targets" TargetList.of_json in
      let eventBusName =
        field_map json__ "EventBusName" EventBusNameOrArn.of_json in
      let rule = field_map_exn json__ "Rule" RuleName.of_json in
      make ~targets ?eventBusName ~rule ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds the specified targets to the specified rule, or updates the targets if they are already associated with the rule. Targets are the resources that are invoked when a rule is triggered. The maximum number of entries per request is 10. Each rule can have up to five (5) targets associated with it at one time. For a list of services you can configure as targets for events, see EventBridge targets in the Amazon EventBridge User Guide . Creating rules with built-in targets is supported only in the Amazon Web Services Management Console. The built-in targets are: Amazon EBS CreateSnapshot API call Amazon EC2 RebootInstances API call Amazon EC2 StopInstances API call Amazon EC2 TerminateInstances API call For some target types, PutTargets provides target-specific parameters. If the target is a Kinesis data stream, you can optionally specify which shard the event goes to by using the KinesisParameters argument. To invoke a command on multiple EC2 instances with one rule, you can use the RunCommandParameters field. To be able to make API calls against the resources that you own, Amazon EventBridge needs the appropriate permissions: For Lambda and Amazon SNS resources, EventBridge relies on resource-based policies. For EC2 instances, Kinesis Data Streams, Step Functions state machines and API Gateway APIs, EventBridge relies on IAM roles that you specify in the RoleARN argument in PutTargets. For more information, see Authentication and Access Control in the Amazon EventBridge User Guide . If another Amazon Web Services account is in the same region and has granted you permission (using PutPermission), you can send events to that account. Set that account's event bus as a target of the rules in your account. To send the matched events to the other account, specify that account's event bus as the Arn value when you run PutTargets. If your account sends events to another account, your account is charged for each sent event. Each event sent to another account is charged as a custom event. The account receiving the event is not charged. For more information, see Amazon EventBridge Pricing. Input, InputPath, and InputTransformer are not available with PutTarget if the target is an event bus of a different Amazon Web Services account. If you are setting the event bus of another account as the target, and that account granted permission to your account through an organization instead of directly by the account ID, then you must specify a RoleArn with proper permissions in the Target structure. For more information, see Sending and Receiving Events Between Amazon Web Services Accounts in the Amazon EventBridge User Guide. If you have an IAM role on a cross-account event bus target, a PutTargets call without a role on the same target (same Id and Arn) will not remove the role. For more information about enabling cross-account events, see PutPermission. Input, InputPath, and InputTransformer are mutually exclusive and optional parameters of a target. When a rule is triggered due to a matched event: If none of the following arguments are specified for a target, then the entire event is passed to the target in JSON format (unless the target is Amazon EC2 Run Command or Amazon ECS task, in which case nothing from the event is passed to the target). If Input is specified in the form of valid JSON, then the matched event is overridden with this constant. If InputPath is specified in the form of JSONPath (for example, $.detail), then only the part of the event specified in the path is passed to the target (for example, only the detail part of the event is passed). If InputTransformer is specified, then one or more specified JSONPaths are extracted from the event and used as values in a template that you specify as the input to the target. When you specify InputPath or InputTransformer, you must use JSON dot notation, not bracket notation. When you add targets to a rule and the associated rule triggers soon after, new or updated targets might not be immediately invoked. Allow a short period of time for changes to take effect. This action can partially fail if too many requests are made at the same time. If that happens, FailedEntryCount is non-zero in the response and each entry in FailedEntries provides the ID of the failed target and the error code."]
module PutRuleResponse =
  struct
    type nonrec t =
      {
      ruleArn: RuleArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the rule."]}
    type nonrec error =
      [
        `ConcurrentModificationException of ConcurrentModificationException.t 
      | `InternalException of InternalException.t 
      | `InvalidEventPatternException of InvalidEventPatternException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ManagedRuleException of ManagedRuleException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?ruleArn = fun () -> { ruleArn }
    let error_of_json name json =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | "InvalidEventPatternException" ->
          `InvalidEventPatternException
            (InvalidEventPatternException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ManagedRuleException" ->
          `ManagedRuleException (ManagedRuleException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | "InvalidEventPatternException" ->
          `InvalidEventPatternException
            (InvalidEventPatternException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ManagedRuleException" ->
          `ManagedRuleException (ManagedRuleException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConcurrentModificationException e ->
          `Assoc
            [("error", (`String "ConcurrentModificationException"));
            ("details", (ConcurrentModificationException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.to_json e))]
      | `InvalidEventPatternException e ->
          `Assoc
            [("error", (`String "InvalidEventPatternException"));
            ("details", (InvalidEventPatternException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ManagedRuleException e ->
          `Assoc
            [("error", (`String "ManagedRuleException"));
            ("details", (ManagedRuleException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("RuleArn", (Option.map x.ruleArn ~f:RuleArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ruleArn =
        (Option.map ~f:RuleArn.of_xml) (Xml.child xml_arg0 "RuleArn") in
      make ?ruleArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ruleArn = field_map json__ "RuleArn" RuleArn.of_json in
      make ?ruleArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates or updates the specified rule. Rules are enabled by default, or based on value of the state. You can disable a rule using DisableRule. A single rule watches for events from a single event bus. Events generated by Amazon Web Services services go to your account's default event bus. Events generated by SaaS partner services or applications go to the matching partner event bus. If you have custom applications or services, you can specify whether their events go to your default event bus or a custom event bus that you have created. For more information, see CreateEventBus. If you are updating an existing rule, the rule is replaced with what you specify in this PutRule command. If you omit arguments in PutRule, the old values for those arguments are not kept. Instead, they are replaced with null values. When you create or update a rule, incoming events might not immediately start matching to new or updated rules. Allow a short period of time for changes to take effect. A rule must contain at least an EventPattern or ScheduleExpression. Rules with EventPatterns are triggered when a matching event is observed. Rules with ScheduleExpressions self-trigger based on the given schedule. A rule can have both an EventPattern and a ScheduleExpression, in which case the rule triggers on matching events as well as on a schedule. When you initially create a rule, you can optionally assign one or more tags to the rule. Tags can help you organize and categorize your resources. You can also use them to scope user permissions, by granting a user permission to access or change only rules with certain tag values. To use the PutRule operation and assign tags, you must have both the events:PutRule and events:TagResource permissions. If you are updating an existing rule, any tags you specify in the PutRule operation are ignored. To update the tags of an existing rule, use TagResource and UntagResource. Most services in Amazon Web Services treat : or / as the same character in Amazon Resource Names (ARNs). However, EventBridge uses an exact match in event patterns and rules. Be sure to use the correct ARN characters when creating event patterns so that they match the ARN syntax in the event you want to match. In EventBridge, it is possible to create rules that lead to infinite loops, where a rule is fired repeatedly. For example, a rule might detect that ACLs have changed on an S3 bucket, and trigger software to change them to the desired state. If the rule is not written carefully, the subsequent change to the ACLs fires the rule again, creating an infinite loop. To prevent this, write the rules so that the triggered actions do not re-fire the same rule. For example, your rule could fire only if ACLs are found to be in a bad state, instead of after any change. An infinite loop can quickly cause higher than expected charges. We recommend that you use budgeting, which alerts you when charges exceed your specified limit. For more information, see Managing Your Costs with Budgets. To create a rule that filters for management events from Amazon Web Services services, see Receiving read-only management events from Amazon Web Services services in the EventBridge User Guide."]
module PutRuleRequest =
  struct
    type nonrec t =
      {
      name: RuleName.t
        [@ocaml.doc
          "The name of the rule that you are creating or updating."];
      scheduleExpression: ScheduleExpression.t option
        [@ocaml.doc
          "The scheduling expression. For example, \"cron(0 20 * * ? *)\" or \"rate(5 minutes)\"."];
      eventPattern: EventPattern.t option
        [@ocaml.doc
          "The event pattern. For more information, see Amazon EventBridge event patterns in the Amazon EventBridge User Guide ."];
      state: RuleState.t option
        [@ocaml.doc
          "The state of the rule. Valid values include: DISABLED: The rule is disabled. EventBridge does not match any events against the rule. ENABLED: The rule is enabled. EventBridge matches events against the rule, except for Amazon Web Services management events delivered through CloudTrail. ENABLED_WITH_ALL_CLOUDTRAIL_MANAGEMENT_EVENTS: The rule is enabled for all events, including Amazon Web Services management events delivered through CloudTrail. Management events provide visibility into management operations that are performed on resources in your Amazon Web Services account. These are also known as control plane operations. For more information, see Logging management events in the CloudTrail User Guide, and Filtering management events from Amazon Web Services services in the Amazon EventBridge User Guide . This value is only valid for rules on the default event bus or custom event buses. It does not apply to partner event buses."];
      description: RuleDescription.t option
        [@ocaml.doc "A description of the rule."];
      roleArn: RoleArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the IAM role associated with the rule. If you're setting an event bus in another account as the target and that account granted permission to your account through an organization instead of directly by the account ID, you must specify a RoleArn with proper permissions in the Target structure, instead of here in this parameter."];
      tags: TagList.t option
        [@ocaml.doc
          "The list of key-value pairs to associate with the rule."];
      eventBusName: EventBusNameOrArn.t option
        [@ocaml.doc
          "The name or ARN of the event bus to associate with this rule. If you omit this, the default event bus is used."]}
    let context_ = "PutRuleRequest"
    let make ?scheduleExpression =
      fun ?eventPattern ->
        fun ?state ->
          fun ?description ->
            fun ?roleArn ->
              fun ?tags ->
                fun ?eventBusName ->
                  fun ~name ->
                    fun () ->
                      {
                        scheduleExpression;
                        eventPattern;
                        state;
                        description;
                        roleArn;
                        tags;
                        eventBusName;
                        name
                      }
    let to_value x =
      structure_to_value
        [("Name", (Some (RuleName.to_value x.name)));
        ("ScheduleExpression",
          (Option.map x.scheduleExpression ~f:ScheduleExpression.to_value));
        ("EventPattern",
          (Option.map x.eventPattern ~f:EventPattern.to_value));
        ("State", (Option.map x.state ~f:RuleState.to_value));
        ("Description",
          (Option.map x.description ~f:RuleDescription.to_value));
        ("RoleArn", (Option.map x.roleArn ~f:RoleArn.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("EventBusName",
          (Option.map x.eventBusName ~f:EventBusNameOrArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eventBusName =
        (Option.map ~f:EventBusNameOrArn.of_xml)
          (Xml.child xml_arg0 "EventBusName") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let roleArn =
        (Option.map ~f:RoleArn.of_xml) (Xml.child xml_arg0 "RoleArn") in
      let description =
        (Option.map ~f:RuleDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let state =
        (Option.map ~f:RuleState.of_xml) (Xml.child xml_arg0 "State") in
      let eventPattern =
        (Option.map ~f:EventPattern.of_xml)
          (Xml.child xml_arg0 "EventPattern") in
      let scheduleExpression =
        (Option.map ~f:ScheduleExpression.of_xml)
          (Xml.child xml_arg0 "ScheduleExpression") in
      let name =
        RuleName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ?eventBusName ?tags ?roleArn ?description ?state ?eventPattern
        ?scheduleExpression ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eventBusName =
        field_map json__ "EventBusName" EventBusNameOrArn.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let roleArn = field_map json__ "RoleArn" RoleArn.of_json in
      let description =
        field_map json__ "Description" RuleDescription.of_json in
      let state = field_map json__ "State" RuleState.of_json in
      let eventPattern = field_map json__ "EventPattern" EventPattern.of_json in
      let scheduleExpression =
        field_map json__ "ScheduleExpression" ScheduleExpression.of_json in
      let name = field_map_exn json__ "Name" RuleName.of_json in
      make ?eventBusName ?tags ?roleArn ?description ?state ?eventPattern
        ?scheduleExpression ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates or updates the specified rule. Rules are enabled by default, or based on value of the state. You can disable a rule using DisableRule. A single rule watches for events from a single event bus. Events generated by Amazon Web Services services go to your account's default event bus. Events generated by SaaS partner services or applications go to the matching partner event bus. If you have custom applications or services, you can specify whether their events go to your default event bus or a custom event bus that you have created. For more information, see CreateEventBus. If you are updating an existing rule, the rule is replaced with what you specify in this PutRule command. If you omit arguments in PutRule, the old values for those arguments are not kept. Instead, they are replaced with null values. When you create or update a rule, incoming events might not immediately start matching to new or updated rules. Allow a short period of time for changes to take effect. A rule must contain at least an EventPattern or ScheduleExpression. Rules with EventPatterns are triggered when a matching event is observed. Rules with ScheduleExpressions self-trigger based on the given schedule. A rule can have both an EventPattern and a ScheduleExpression, in which case the rule triggers on matching events as well as on a schedule. When you initially create a rule, you can optionally assign one or more tags to the rule. Tags can help you organize and categorize your resources. You can also use them to scope user permissions, by granting a user permission to access or change only rules with certain tag values. To use the PutRule operation and assign tags, you must have both the events:PutRule and events:TagResource permissions. If you are updating an existing rule, any tags you specify in the PutRule operation are ignored. To update the tags of an existing rule, use TagResource and UntagResource. Most services in Amazon Web Services treat : or / as the same character in Amazon Resource Names (ARNs). However, EventBridge uses an exact match in event patterns and rules. Be sure to use the correct ARN characters when creating event patterns so that they match the ARN syntax in the event you want to match. In EventBridge, it is possible to create rules that lead to infinite loops, where a rule is fired repeatedly. For example, a rule might detect that ACLs have changed on an S3 bucket, and trigger software to change them to the desired state. If the rule is not written carefully, the subsequent change to the ACLs fires the rule again, creating an infinite loop. To prevent this, write the rules so that the triggered actions do not re-fire the same rule. For example, your rule could fire only if ACLs are found to be in a bad state, instead of after any change. An infinite loop can quickly cause higher than expected charges. We recommend that you use budgeting, which alerts you when charges exceed your specified limit. For more information, see Managing Your Costs with Budgets. To create a rule that filters for management events from Amazon Web Services services, see Receiving read-only management events from Amazon Web Services services in the EventBridge User Guide."]
module PutPermissionRequest =
  struct
    type nonrec t =
      {
      eventBusName: NonPartnerEventBusName.t option
        [@ocaml.doc
          "The name of the event bus associated with the rule. If you omit this, the default event bus is used."];
      action: Action.t option
        [@ocaml.doc
          "The action that you are enabling the other account to perform."];
      principal: Principal.t option
        [@ocaml.doc
          "The 12-digit Amazon Web Services account ID that you are permitting to put events to your default event bus. Specify \"*\" to permit any account to put events to your default event bus. If you specify \"*\" without specifying Condition, avoid creating rules that may match undesirable events. To create more secure rules, make sure that the event pattern for each rule contains an account field with a specific account ID from which to receive events. Rules with an account field do not match any events sent from other accounts."];
      statementId: StatementId.t option
        [@ocaml.doc
          "An identifier string for the external account that you are granting permissions to. If you later want to revoke the permission for this external account, specify this StatementId when you run RemovePermission. Each StatementId must be unique."];
      condition: Condition.t option
        [@ocaml.doc
          "This parameter enables you to limit the permission to accounts that fulfill a certain condition, such as being a member of a certain Amazon Web Services organization. For more information about Amazon Web Services Organizations, see What Is Amazon Web Services Organizations in the Amazon Web Services Organizations User Guide. If you specify Condition with an Amazon Web Services organization ID, and specify \"*\" as the value for Principal, you grant permission to all the accounts in the named organization. The Condition is a JSON string which must contain Type, Key, and Value fields."];
      policy: String_.t option
        [@ocaml.doc
          "A JSON string that describes the permission policy statement. You can include a Policy parameter in the request instead of using the StatementId, Action, Principal, or Condition parameters."]}
    let make ?eventBusName =
      fun ?action ->
        fun ?principal ->
          fun ?statementId ->
            fun ?condition ->
              fun ?policy ->
                fun () ->
                  {
                    eventBusName;
                    action;
                    principal;
                    statementId;
                    condition;
                    policy
                  }
    let to_value x =
      structure_to_value
        [("EventBusName",
           (Option.map x.eventBusName ~f:NonPartnerEventBusName.to_value));
        ("Action", (Option.map x.action ~f:Action.to_value));
        ("Principal", (Option.map x.principal ~f:Principal.to_value));
        ("StatementId", (Option.map x.statementId ~f:StatementId.to_value));
        ("Condition", (Option.map x.condition ~f:Condition.to_value));
        ("Policy", (Option.map x.policy ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policy =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Policy") in
      let condition =
        (Option.map ~f:Condition.of_xml) (Xml.child xml_arg0 "Condition") in
      let statementId =
        (Option.map ~f:StatementId.of_xml) (Xml.child xml_arg0 "StatementId") in
      let principal =
        (Option.map ~f:Principal.of_xml) (Xml.child xml_arg0 "Principal") in
      let action =
        (Option.map ~f:Action.of_xml) (Xml.child xml_arg0 "Action") in
      let eventBusName =
        (Option.map ~f:NonPartnerEventBusName.of_xml)
          (Xml.child xml_arg0 "EventBusName") in
      make ?policy ?condition ?statementId ?principal ?action ?eventBusName
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let policy = field_map json__ "Policy" String_.of_json in
      let condition = field_map json__ "Condition" Condition.of_json in
      let statementId = field_map json__ "StatementId" StatementId.of_json in
      let principal = field_map json__ "Principal" Principal.of_json in
      let action = field_map json__ "Action" Action.of_json in
      let eventBusName =
        field_map json__ "EventBusName" NonPartnerEventBusName.of_json in
      make ?policy ?condition ?statementId ?principal ?action ?eventBusName
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Running PutPermission permits the specified Amazon Web Services account or Amazon Web Services organization to put events to the specified event bus. Amazon EventBridge rules in your account are triggered by these events arriving to an event bus in your account. For another account to send events to your account, that external account must have an EventBridge rule with your account's event bus as a target. To enable multiple Amazon Web Services accounts to put events to your event bus, run PutPermission once for each of these accounts. Or, if all the accounts are members of the same Amazon Web Services organization, you can run PutPermission once specifying Principal as \"*\" and specifying the Amazon Web Services organization ID in Condition, to grant permissions to all accounts in that organization. If you grant permissions using an organization, then accounts in that organization must specify a RoleArn with proper permissions when they use PutTarget to add your account's event bus as a target. For more information, see Sending and Receiving Events Between Amazon Web Services Accounts in the Amazon EventBridge User Guide. The permission policy on the event bus cannot exceed 10 KB in size."]
module PutPartnerEventsResponse =
  struct
    type nonrec t =
      {
      failedEntryCount: Integer.t option
        [@ocaml.doc
          "The number of events from this operation that could not be written to the partner event bus."];
      entries: PutPartnerEventsResultEntryList.t option
        [@ocaml.doc
          "The results for each event entry the partner submitted in this request. If the event was successfully submitted, the entry has the event ID in it. Otherwise, you can use the error code and error message to identify the problem with the entry. For each record, the index of the response element is the same as the index in the request array."]}
    type nonrec error =
      [ `InternalException of InternalException.t 
      | `OperationDisabledException of OperationDisabledException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?failedEntryCount =
      fun ?entries -> fun () -> { failedEntryCount; entries }
    let error_of_json name json =
      match name with
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | "OperationDisabledException" ->
          `OperationDisabledException
            (OperationDisabledException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | "OperationDisabledException" ->
          `OperationDisabledException (OperationDisabledException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.to_json e))]
      | `OperationDisabledException e ->
          `Assoc
            [("error", (`String "OperationDisabledException"));
            ("details", (OperationDisabledException.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
        [("FailedEntryCount",
           (Option.map x.failedEntryCount ~f:Integer.to_value));
        ("Entries",
          (Option.map x.entries ~f:PutPartnerEventsResultEntryList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let entries =
        (Option.map ~f:PutPartnerEventsResultEntryList.of_xml)
          (Xml.child xml_arg0 "Entries") in
      let failedEntryCount =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "FailedEntryCount") in
      make ?entries ?failedEntryCount ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let entries =
        field_map json__ "Entries" PutPartnerEventsResultEntryList.of_json in
      let failedEntryCount =
        field_map json__ "FailedEntryCount" Integer.of_json in
      make ?entries ?failedEntryCount ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This is used by SaaS partners to write events to a customer's partner event bus. Amazon Web Services customers do not use this operation. For information on calculating event batch size, see Calculating EventBridge PutEvents event entry size in the EventBridge User Guide."]
module PutPartnerEventsRequest =
  struct
    type nonrec t =
      {
      entries: PutPartnerEventsRequestEntryList.t
        [@ocaml.doc "The list of events to write to the event bus."]}
    let context_ = "PutPartnerEventsRequest"
    let make ~entries = fun () -> { entries }
    let to_value x =
      structure_to_value
        [("Entries",
           (Some (PutPartnerEventsRequestEntryList.to_value x.entries)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let entries =
        PutPartnerEventsRequestEntryList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Entries") in
      make ~entries ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let entries =
        field_map_exn json__ "Entries"
          PutPartnerEventsRequestEntryList.of_json in
      make ~entries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This is used by SaaS partners to write events to a customer's partner event bus. Amazon Web Services customers do not use this operation. For information on calculating event batch size, see Calculating EventBridge PutEvents event entry size in the EventBridge User Guide."]
module PutEventsResponse =
  struct
    type nonrec t =
      {
      failedEntryCount: Integer.t option
        [@ocaml.doc "The number of failed entries."];
      entries: PutEventsResultEntryList.t option
        [@ocaml.doc
          "The successfully and unsuccessfully ingested events results. If the ingestion was successful, the entry has the event ID in it. Otherwise, you can use the error code and error message to identify the problem with the entry. For each record, the index of the response element is the same as the index in the request array."]}
    type nonrec error =
      [ `InternalException of InternalException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?failedEntryCount =
      fun ?entries -> fun () -> { failedEntryCount; entries }
    let error_of_json name json =
      match name with
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.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
        [("FailedEntryCount",
           (Option.map x.failedEntryCount ~f:Integer.to_value));
        ("Entries",
          (Option.map x.entries ~f:PutEventsResultEntryList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let entries =
        (Option.map ~f:PutEventsResultEntryList.of_xml)
          (Xml.child xml_arg0 "Entries") in
      let failedEntryCount =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "FailedEntryCount") in
      make ?entries ?failedEntryCount ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let entries =
        field_map json__ "Entries" PutEventsResultEntryList.of_json in
      let failedEntryCount =
        field_map json__ "FailedEntryCount" Integer.of_json in
      make ?entries ?failedEntryCount ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Sends custom events to Amazon EventBridge so that they can be matched to rules. You can batch multiple event entries into one request for efficiency. However, the total entry size must be less than 256KB. You can calculate the entry size before you send the events. For more information, see Calculating PutEvents event entry size in the Amazon EventBridge User Guide . PutEvents accepts the data in JSON format. For the JSON number (integer) data type, the constraints are: a minimum value of -9,223,372,036,854,775,808 and a maximum value of 9,223,372,036,854,775,807. PutEvents will only process nested JSON up to 1000 levels deep."]
module PutEventsRequest =
  struct
    type nonrec t =
      {
      entries: PutEventsRequestEntryList.t
        [@ocaml.doc
          "The entry that defines an event in your system. You can specify several parameters for the entry such as the source and type of the event, resources associated with the event, and so on."];
      endpointId: EndpointId.t option
        [@ocaml.doc
          "The URL subdomain of the endpoint. For example, if the URL for Endpoint is https://abcde.veo.endpoints.event.amazonaws.com, then the EndpointId is abcde.veo. When using Java, you must include auth-crt on the class path."]}
    let context_ = "PutEventsRequest"
    let make ?endpointId = fun ~entries -> fun () -> { endpointId; entries }
    let to_value x =
      structure_to_value
        [("Entries", (Some (PutEventsRequestEntryList.to_value x.entries)));
        ("EndpointId", (Option.map x.endpointId ~f:EndpointId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endpointId =
        (Option.map ~f:EndpointId.of_xml) (Xml.child xml_arg0 "EndpointId") in
      let entries =
        PutEventsRequestEntryList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Entries") in
      make ?endpointId ~entries ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endpointId = field_map json__ "EndpointId" EndpointId.of_json in
      let entries =
        field_map_exn json__ "Entries" PutEventsRequestEntryList.of_json in
      make ?endpointId ~entries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Sends custom events to Amazon EventBridge so that they can be matched to rules. You can batch multiple event entries into one request for efficiency. However, the total entry size must be less than 256KB. You can calculate the entry size before you send the events. For more information, see Calculating PutEvents event entry size in the Amazon EventBridge User Guide . PutEvents accepts the data in JSON format. For the JSON number (integer) data type, the constraints are: a minimum value of -9,223,372,036,854,775,808 and a maximum value of 9,223,372,036,854,775,807. PutEvents will only process nested JSON up to 1000 levels deep."]
module PolicyLengthExceededException =
  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
       "The event bus policy is too long. For more information, see the limits."]
module ListTargetsByRuleResponse =
  struct
    type nonrec t =
      {
      targets: TargetList.t option
        [@ocaml.doc "The targets assigned to the rule."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token indicating there are more results available. If there are no more results, no token is included in the response. The value of nextToken is a unique pagination token for each page. To retrieve the next page of results, make the call again using the returned token. Keep all other arguments unchanged. Using an expired pagination token results in an HTTP 400 InvalidToken error."]}
    type nonrec error =
      [ `InternalException of InternalException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?targets = fun ?nextToken -> fun () -> { targets; nextToken }
    let error_of_json name json =
      match name with
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
        [("Targets", (Option.map x.targets ~f:TargetList.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 targets =
        (Option.map ~f:TargetList.of_xml) (Xml.child xml_arg0 "Targets") in
      make ?nextToken ?targets ()
    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 targets = field_map json__ "Targets" TargetList.of_json in
      make ?nextToken ?targets ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the targets assigned to the specified rule. The maximum number of results per page for requests is 100."]
module ListTargetsByRuleRequest =
  struct
    type nonrec t =
      {
      rule: RuleName.t [@ocaml.doc "The name of the rule."];
      eventBusName: EventBusNameOrArn.t option
        [@ocaml.doc
          "The name or ARN of the event bus associated with the rule. If you omit this, the default event bus is used."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token returned by a previous call, which you can use to retrieve the next set of results. The value of nextToken is a unique pagination token for each page. To retrieve the next page of results, make the call again using the returned token. Keep all other arguments unchanged. Using an expired pagination token results in an HTTP 400 InvalidToken error."];
      limit: LimitMax100.t option
        [@ocaml.doc "The maximum number of results to return."]}
    let context_ = "ListTargetsByRuleRequest"
    let make ?eventBusName =
      fun ?nextToken ->
        fun ?limit ->
          fun ~rule -> fun () -> { eventBusName; nextToken; limit; rule }
    let to_value x =
      structure_to_value
        [("Rule", (Some (RuleName.to_value x.rule)));
        ("EventBusName",
          (Option.map x.eventBusName ~f:EventBusNameOrArn.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("Limit", (Option.map x.limit ~f:LimitMax100.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let limit =
        (Option.map ~f:LimitMax100.of_xml) (Xml.child xml_arg0 "Limit") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let eventBusName =
        (Option.map ~f:EventBusNameOrArn.of_xml)
          (Xml.child xml_arg0 "EventBusName") in
      let rule =
        RuleName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Rule") in
      make ?limit ?nextToken ?eventBusName ~rule ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let limit = field_map json__ "Limit" LimitMax100.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let eventBusName =
        field_map json__ "EventBusName" EventBusNameOrArn.of_json in
      let rule = field_map_exn json__ "Rule" RuleName.of_json in
      make ?limit ?nextToken ?eventBusName ~rule ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the targets assigned to the specified rule. The maximum number of results per page for requests is 100."]
module ListTagsForResourceResponse =
  struct
    type nonrec t =
      {
      tags: TagList.t option
        [@ocaml.doc
          "The list of tag keys and values associated with the resource you specified"]}
    type nonrec error =
      [ `InternalException of InternalException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tags = fun () -> { tags }
    let error_of_json name json =
      match name with
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value [("Tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      make ?tags ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagList.of_json in make ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Displays the tags associated with an EventBridge resource. In EventBridge, rules and event buses can be tagged."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      resourceARN: Arn.t
        [@ocaml.doc
          "The ARN of the EventBridge resource for which you want to view tags."]}
    let context_ = "ListTagsForResourceRequest"
    let make ~resourceARN = fun () -> { resourceARN }
    let to_value x =
      structure_to_value
        [("ResourceARN", (Some (Arn.to_value x.resourceARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceARN =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "ResourceARN") in
      make ~resourceARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceARN = field_map_exn json__ "ResourceARN" Arn.of_json in
      make ~resourceARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Displays the tags associated with an EventBridge resource. In EventBridge, rules and event buses can be tagged."]
module ListRulesResponse =
  struct
    type nonrec t =
      {
      rules: RuleResponseList.t option
        [@ocaml.doc "The rules that match the specified criteria."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token indicating there are more results available. If there are no more results, no token is included in the response. The value of nextToken is a unique pagination token for each page. To retrieve the next page of results, make the call again using the returned token. Keep all other arguments unchanged. Using an expired pagination token results in an HTTP 400 InvalidToken error."]}
    type nonrec error =
      [ `InternalException of InternalException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?rules = fun ?nextToken -> fun () -> { rules; nextToken }
    let error_of_json name json =
      match name with
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
        [("Rules", (Option.map x.rules ~f:RuleResponseList.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 rules =
        (Option.map ~f:RuleResponseList.of_xml) (Xml.child xml_arg0 "Rules") in
      make ?nextToken ?rules ()
    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 rules = field_map json__ "Rules" RuleResponseList.of_json in
      make ?nextToken ?rules ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists your Amazon EventBridge rules. You can either list all the rules or you can provide a prefix to match to the rule names. The maximum number of results per page for requests is 100. ListRules does not list the targets of a rule. To see the targets associated with a rule, use ListTargetsByRule."]
module ListRulesRequest =
  struct
    type nonrec t =
      {
      namePrefix: RuleName.t option
        [@ocaml.doc "The prefix matching the rule name."];
      eventBusName: EventBusNameOrArn.t option
        [@ocaml.doc
          "The name or ARN of the event bus to list the rules for. If you omit this, the default event bus is used."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token returned by a previous call, which you can use to retrieve the next set of results. The value of nextToken is a unique pagination token for each page. To retrieve the next page of results, make the call again using the returned token. Keep all other arguments unchanged. Using an expired pagination token results in an HTTP 400 InvalidToken error."];
      limit: LimitMax100.t option
        [@ocaml.doc "The maximum number of results to return."]}
    let make ?namePrefix =
      fun ?eventBusName ->
        fun ?nextToken ->
          fun ?limit ->
            fun () -> { namePrefix; eventBusName; nextToken; limit }
    let to_value x =
      structure_to_value
        [("NamePrefix", (Option.map x.namePrefix ~f:RuleName.to_value));
        ("EventBusName",
          (Option.map x.eventBusName ~f:EventBusNameOrArn.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("Limit", (Option.map x.limit ~f:LimitMax100.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let limit =
        (Option.map ~f:LimitMax100.of_xml) (Xml.child xml_arg0 "Limit") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let eventBusName =
        (Option.map ~f:EventBusNameOrArn.of_xml)
          (Xml.child xml_arg0 "EventBusName") in
      let namePrefix =
        (Option.map ~f:RuleName.of_xml) (Xml.child xml_arg0 "NamePrefix") in
      make ?limit ?nextToken ?eventBusName ?namePrefix ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let limit = field_map json__ "Limit" LimitMax100.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let eventBusName =
        field_map json__ "EventBusName" EventBusNameOrArn.of_json in
      let namePrefix = field_map json__ "NamePrefix" RuleName.of_json in
      make ?limit ?nextToken ?eventBusName ?namePrefix ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists your Amazon EventBridge rules. You can either list all the rules or you can provide a prefix to match to the rule names. The maximum number of results per page for requests is 100. ListRules does not list the targets of a rule. To see the targets associated with a rule, use ListTargetsByRule."]
module ListRuleNamesByTargetResponse =
  struct
    type nonrec t =
      {
      ruleNames: RuleNameList.t option
        [@ocaml.doc
          "The names of the rules that can invoke the given target."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token indicating there are more results available. If there are no more results, no token is included in the response. The value of nextToken is a unique pagination token for each page. To retrieve the next page of results, make the call again using the returned token. Keep all other arguments unchanged. Using an expired pagination token results in an HTTP 400 InvalidToken error."]}
    type nonrec error =
      [ `InternalException of InternalException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?ruleNames =
      fun ?nextToken -> fun () -> { ruleNames; nextToken }
    let error_of_json name json =
      match name with
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
        [("RuleNames", (Option.map x.ruleNames ~f:RuleNameList.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 ruleNames =
        (Option.map ~f:RuleNameList.of_xml) (Xml.child xml_arg0 "RuleNames") in
      make ?nextToken ?ruleNames ()
    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 ruleNames = field_map json__ "RuleNames" RuleNameList.of_json in
      make ?nextToken ?ruleNames ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the rules for the specified target. You can see which of the rules in Amazon EventBridge can invoke a specific target in your account. The maximum number of results per page for requests is 100."]
module ListRuleNamesByTargetRequest =
  struct
    type nonrec t =
      {
      targetArn: TargetArn.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the target resource."];
      eventBusName: EventBusNameOrArn.t option
        [@ocaml.doc
          "The name or ARN of the event bus to list rules for. If you omit this, the default event bus is used."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token returned by a previous call, which you can use to retrieve the next set of results. The value of nextToken is a unique pagination token for each page. To retrieve the next page of results, make the call again using the returned token. Keep all other arguments unchanged. Using an expired pagination token results in an HTTP 400 InvalidToken error."];
      limit: LimitMax100.t option
        [@ocaml.doc "The maximum number of results to return."]}
    let context_ = "ListRuleNamesByTargetRequest"
    let make ?eventBusName =
      fun ?nextToken ->
        fun ?limit ->
          fun ~targetArn ->
            fun () -> { eventBusName; nextToken; limit; targetArn }
    let to_value x =
      structure_to_value
        [("TargetArn", (Some (TargetArn.to_value x.targetArn)));
        ("EventBusName",
          (Option.map x.eventBusName ~f:EventBusNameOrArn.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("Limit", (Option.map x.limit ~f:LimitMax100.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let limit =
        (Option.map ~f:LimitMax100.of_xml) (Xml.child xml_arg0 "Limit") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let eventBusName =
        (Option.map ~f:EventBusNameOrArn.of_xml)
          (Xml.child xml_arg0 "EventBusName") in
      let targetArn =
        TargetArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TargetArn") in
      make ?limit ?nextToken ?eventBusName ~targetArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let limit = field_map json__ "Limit" LimitMax100.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let eventBusName =
        field_map json__ "EventBusName" EventBusNameOrArn.of_json in
      let targetArn = field_map_exn json__ "TargetArn" TargetArn.of_json in
      make ?limit ?nextToken ?eventBusName ~targetArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the rules for the specified target. You can see which of the rules in Amazon EventBridge can invoke a specific target in your account. The maximum number of results per page for requests is 100."]
module ListReplaysResponse =
  struct
    type nonrec t =
      {
      replays: ReplayList.t option
        [@ocaml.doc
          "An array of Replay objects that contain information about the replay."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token indicating there are more results available. If there are no more results, no token is included in the response. The value of nextToken is a unique pagination token for each page. To retrieve the next page of results, make the call again using the returned token. Keep all other arguments unchanged. Using an expired pagination token results in an HTTP 400 InvalidToken error."]}
    type nonrec error =
      [ `InternalException of InternalException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?replays = fun ?nextToken -> fun () -> { replays; nextToken }
    let error_of_json name json =
      match name with
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.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
        [("Replays", (Option.map x.replays ~f:ReplayList.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 replays =
        (Option.map ~f:ReplayList.of_xml) (Xml.child xml_arg0 "Replays") in
      make ?nextToken ?replays ()
    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 replays = field_map json__ "Replays" ReplayList.of_json in
      make ?nextToken ?replays ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists your replays. You can either list all the replays or you can provide a prefix to match to the replay names. Filter parameters are exclusive."]
module ListReplaysRequest =
  struct
    type nonrec t =
      {
      namePrefix: ReplayName.t option
        [@ocaml.doc
          "A name prefix to filter the replays returned. Only replays with name that match the prefix are returned."];
      state: ReplayState.t option [@ocaml.doc "The state of the replay."];
      eventSourceArn: ArchiveArn.t option
        [@ocaml.doc
          "The ARN of the archive from which the events are replayed."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token returned by a previous call, which you can use to retrieve the next set of results. The value of nextToken is a unique pagination token for each page. To retrieve the next page of results, make the call again using the returned token. Keep all other arguments unchanged. Using an expired pagination token results in an HTTP 400 InvalidToken error."];
      limit: LimitMax100.t option
        [@ocaml.doc "The maximum number of replays to retrieve."]}
    let make ?namePrefix =
      fun ?state ->
        fun ?eventSourceArn ->
          fun ?nextToken ->
            fun ?limit ->
              fun () ->
                { namePrefix; state; eventSourceArn; nextToken; limit }
    let to_value x =
      structure_to_value
        [("NamePrefix", (Option.map x.namePrefix ~f:ReplayName.to_value));
        ("State", (Option.map x.state ~f:ReplayState.to_value));
        ("EventSourceArn",
          (Option.map x.eventSourceArn ~f:ArchiveArn.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("Limit", (Option.map x.limit ~f:LimitMax100.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let limit =
        (Option.map ~f:LimitMax100.of_xml) (Xml.child xml_arg0 "Limit") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let eventSourceArn =
        (Option.map ~f:ArchiveArn.of_xml)
          (Xml.child xml_arg0 "EventSourceArn") in
      let state =
        (Option.map ~f:ReplayState.of_xml) (Xml.child xml_arg0 "State") in
      let namePrefix =
        (Option.map ~f:ReplayName.of_xml) (Xml.child xml_arg0 "NamePrefix") in
      make ?limit ?nextToken ?eventSourceArn ?state ?namePrefix ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let limit = field_map json__ "Limit" LimitMax100.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let eventSourceArn =
        field_map json__ "EventSourceArn" ArchiveArn.of_json in
      let state = field_map json__ "State" ReplayState.of_json in
      let namePrefix = field_map json__ "NamePrefix" ReplayName.of_json in
      make ?limit ?nextToken ?eventSourceArn ?state ?namePrefix ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists your replays. You can either list all the replays or you can provide a prefix to match to the replay names. Filter parameters are exclusive."]
module ListPartnerEventSourcesResponse =
  struct
    type nonrec t =
      {
      partnerEventSources: PartnerEventSourceList.t option
        [@ocaml.doc
          "The list of partner event sources returned by the operation."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token indicating there are more results available. If there are no more results, no token is included in the response. The value of nextToken is a unique pagination token for each page. To retrieve the next page of results, make the call again using the returned token. Keep all other arguments unchanged. Using an expired pagination token results in an HTTP 400 InvalidToken error."]}
    type nonrec error =
      [ `InternalException of InternalException.t 
      | `OperationDisabledException of OperationDisabledException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?partnerEventSources =
      fun ?nextToken -> fun () -> { partnerEventSources; nextToken }
    let error_of_json name json =
      match name with
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | "OperationDisabledException" ->
          `OperationDisabledException
            (OperationDisabledException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | "OperationDisabledException" ->
          `OperationDisabledException (OperationDisabledException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.to_json e))]
      | `OperationDisabledException e ->
          `Assoc
            [("error", (`String "OperationDisabledException"));
            ("details", (OperationDisabledException.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
        [("PartnerEventSources",
           (Option.map x.partnerEventSources
              ~f:PartnerEventSourceList.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 partnerEventSources =
        (Option.map ~f:PartnerEventSourceList.of_xml)
          (Xml.child xml_arg0 "PartnerEventSources") in
      make ?nextToken ?partnerEventSources ()
    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 partnerEventSources =
        field_map json__ "PartnerEventSources" PartnerEventSourceList.of_json in
      make ?nextToken ?partnerEventSources ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An SaaS partner can use this operation to list all the partner event source names that they have created. This operation is not used by Amazon Web Services customers."]
module ListPartnerEventSourcesRequest =
  struct
    type nonrec t =
      {
      namePrefix: PartnerEventSourceNamePrefix.t
        [@ocaml.doc
          "If you specify this, the results are limited to only those partner event sources that start with the string you specify."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token returned by a previous call, which you can use to retrieve the next set of results. The value of nextToken is a unique pagination token for each page. To retrieve the next page of results, make the call again using the returned token. Keep all other arguments unchanged. Using an expired pagination token results in an HTTP 400 InvalidToken error."];
      limit: LimitMax100.t option
        [@ocaml.doc
          "pecifying this limits the number of results returned by this operation. The operation also returns a NextToken which you can use in a subsequent operation to retrieve the next set of results."]}
    let context_ = "ListPartnerEventSourcesRequest"
    let make ?nextToken =
      fun ?limit ->
        fun ~namePrefix -> fun () -> { nextToken; limit; namePrefix }
    let to_value x =
      structure_to_value
        [("NamePrefix",
           (Some (PartnerEventSourceNamePrefix.to_value x.namePrefix)));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("Limit", (Option.map x.limit ~f:LimitMax100.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let limit =
        (Option.map ~f:LimitMax100.of_xml) (Xml.child xml_arg0 "Limit") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let namePrefix =
        PartnerEventSourceNamePrefix.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "NamePrefix") in
      make ?limit ?nextToken ~namePrefix ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let limit = field_map json__ "Limit" LimitMax100.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let namePrefix =
        field_map_exn json__ "NamePrefix"
          PartnerEventSourceNamePrefix.of_json in
      make ?limit ?nextToken ~namePrefix ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An SaaS partner can use this operation to list all the partner event source names that they have created. This operation is not used by Amazon Web Services customers."]
module ListPartnerEventSourceAccountsResponse =
  struct
    type nonrec t =
      {
      partnerEventSourceAccounts: PartnerEventSourceAccountList.t option
        [@ocaml.doc
          "The list of partner event sources returned by the operation."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token indicating there are more results available. If there are no more results, no token is included in the response. The value of nextToken is a unique pagination token for each page. To retrieve the next page of results, make the call again using the returned token. Keep all other arguments unchanged. Using an expired pagination token results in an HTTP 400 InvalidToken error."]}
    type nonrec error =
      [ `InternalException of InternalException.t 
      | `OperationDisabledException of OperationDisabledException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?partnerEventSourceAccounts =
      fun ?nextToken -> fun () -> { partnerEventSourceAccounts; nextToken }
    let error_of_json name json =
      match name with
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | "OperationDisabledException" ->
          `OperationDisabledException
            (OperationDisabledException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | "OperationDisabledException" ->
          `OperationDisabledException (OperationDisabledException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.to_json e))]
      | `OperationDisabledException e ->
          `Assoc
            [("error", (`String "OperationDisabledException"));
            ("details", (OperationDisabledException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
        [("PartnerEventSourceAccounts",
           (Option.map x.partnerEventSourceAccounts
              ~f:PartnerEventSourceAccountList.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 partnerEventSourceAccounts =
        (Option.map ~f:PartnerEventSourceAccountList.of_xml)
          (Xml.child xml_arg0 "PartnerEventSourceAccounts") in
      make ?nextToken ?partnerEventSourceAccounts ()
    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 partnerEventSourceAccounts =
        field_map json__ "PartnerEventSourceAccounts"
          PartnerEventSourceAccountList.of_json in
      make ?nextToken ?partnerEventSourceAccounts ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An SaaS partner can use this operation to display the Amazon Web Services account ID that a particular partner event source name is associated with. This operation is not used by Amazon Web Services customers."]
module ListPartnerEventSourceAccountsRequest =
  struct
    type nonrec t =
      {
      eventSourceName: EventSourceName.t
        [@ocaml.doc
          "The name of the partner event source to display account information about."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token returned by a previous call, which you can use to retrieve the next set of results. The value of nextToken is a unique pagination token for each page. To retrieve the next page of results, make the call again using the returned token. Keep all other arguments unchanged. Using an expired pagination token results in an HTTP 400 InvalidToken error."];
      limit: LimitMax100.t option
        [@ocaml.doc
          "Specifying this limits the number of results returned by this operation. The operation also returns a NextToken which you can use in a subsequent operation to retrieve the next set of results."]}
    let context_ = "ListPartnerEventSourceAccountsRequest"
    let make ?nextToken =
      fun ?limit ->
        fun ~eventSourceName ->
          fun () -> { nextToken; limit; eventSourceName }
    let to_value x =
      structure_to_value
        [("EventSourceName",
           (Some (EventSourceName.to_value x.eventSourceName)));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("Limit", (Option.map x.limit ~f:LimitMax100.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let limit =
        (Option.map ~f:LimitMax100.of_xml) (Xml.child xml_arg0 "Limit") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let eventSourceName =
        EventSourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EventSourceName") in
      make ?limit ?nextToken ~eventSourceName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let limit = field_map json__ "Limit" LimitMax100.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let eventSourceName =
        field_map_exn json__ "EventSourceName" EventSourceName.of_json in
      make ?limit ?nextToken ~eventSourceName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An SaaS partner can use this operation to display the Amazon Web Services account ID that a particular partner event source name is associated with. This operation is not used by Amazon Web Services customers."]
module ListEventSourcesResponse =
  struct
    type nonrec t =
      {
      eventSources: EventSourceList.t option
        [@ocaml.doc "The list of event sources."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token indicating there are more results available. If there are no more results, no token is included in the response. The value of nextToken is a unique pagination token for each page. To retrieve the next page of results, make the call again using the returned token. Keep all other arguments unchanged. Using an expired pagination token results in an HTTP 400 InvalidToken error."]}
    type nonrec error =
      [ `InternalException of InternalException.t 
      | `OperationDisabledException of OperationDisabledException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?eventSources =
      fun ?nextToken -> fun () -> { eventSources; nextToken }
    let error_of_json name json =
      match name with
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | "OperationDisabledException" ->
          `OperationDisabledException
            (OperationDisabledException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | "OperationDisabledException" ->
          `OperationDisabledException (OperationDisabledException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.to_json e))]
      | `OperationDisabledException e ->
          `Assoc
            [("error", (`String "OperationDisabledException"));
            ("details", (OperationDisabledException.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
        [("EventSources",
           (Option.map x.eventSources ~f:EventSourceList.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 eventSources =
        (Option.map ~f:EventSourceList.of_xml)
          (Xml.child xml_arg0 "EventSources") in
      make ?nextToken ?eventSources ()
    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 eventSources =
        field_map json__ "EventSources" EventSourceList.of_json in
      make ?nextToken ?eventSources ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "You can use this to see all the partner event sources that have been shared with your Amazon Web Services account. For more information about partner event sources, see CreateEventBus."]
module ListEventSourcesRequest =
  struct
    type nonrec t =
      {
      namePrefix: EventSourceNamePrefix.t option
        [@ocaml.doc
          "Specifying this limits the results to only those partner event sources with names that start with the specified prefix."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token returned by a previous call, which you can use to retrieve the next set of results. The value of nextToken is a unique pagination token for each page. To retrieve the next page of results, make the call again using the returned token. Keep all other arguments unchanged. Using an expired pagination token results in an HTTP 400 InvalidToken error."];
      limit: LimitMax100.t option
        [@ocaml.doc
          "Specifying this limits the number of results returned by this operation. The operation also returns a NextToken which you can use in a subsequent operation to retrieve the next set of results."]}
    let make ?namePrefix =
      fun ?nextToken ->
        fun ?limit -> fun () -> { namePrefix; nextToken; limit }
    let to_value x =
      structure_to_value
        [("NamePrefix",
           (Option.map x.namePrefix ~f:EventSourceNamePrefix.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("Limit", (Option.map x.limit ~f:LimitMax100.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let limit =
        (Option.map ~f:LimitMax100.of_xml) (Xml.child xml_arg0 "Limit") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let namePrefix =
        (Option.map ~f:EventSourceNamePrefix.of_xml)
          (Xml.child xml_arg0 "NamePrefix") in
      make ?limit ?nextToken ?namePrefix ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let limit = field_map json__ "Limit" LimitMax100.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let namePrefix =
        field_map json__ "NamePrefix" EventSourceNamePrefix.of_json in
      make ?limit ?nextToken ?namePrefix ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "You can use this to see all the partner event sources that have been shared with your Amazon Web Services account. For more information about partner event sources, see CreateEventBus."]
module ListEventBusesResponse =
  struct
    type nonrec t =
      {
      eventBuses: EventBusList.t option
        [@ocaml.doc "This list of event buses."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token indicating there are more results available. If there are no more results, no token is included in the response. The value of nextToken is a unique pagination token for each page. To retrieve the next page of results, make the call again using the returned token. Keep all other arguments unchanged. Using an expired pagination token results in an HTTP 400 InvalidToken error."]}
    type nonrec error =
      [ `InternalException of InternalException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?eventBuses =
      fun ?nextToken -> fun () -> { eventBuses; nextToken }
    let error_of_json name json =
      match name with
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.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
        [("EventBuses", (Option.map x.eventBuses ~f:EventBusList.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 eventBuses =
        (Option.map ~f:EventBusList.of_xml) (Xml.child xml_arg0 "EventBuses") in
      make ?nextToken ?eventBuses ()
    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 eventBuses = field_map json__ "EventBuses" EventBusList.of_json in
      make ?nextToken ?eventBuses ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all the event buses in your account, including the default event bus, custom event buses, and partner event buses."]
module ListEventBusesRequest =
  struct
    type nonrec t =
      {
      namePrefix: EventBusName.t option
        [@ocaml.doc
          "Specifying this limits the results to only those event buses with names that start with the specified prefix."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token returned by a previous call, which you can use to retrieve the next set of results. The value of nextToken is a unique pagination token for each page. To retrieve the next page of results, make the call again using the returned token. Keep all other arguments unchanged. Using an expired pagination token results in an HTTP 400 InvalidToken error."];
      limit: LimitMax100.t option
        [@ocaml.doc
          "Specifying this limits the number of results returned by this operation. The operation also returns a NextToken which you can use in a subsequent operation to retrieve the next set of results."]}
    let make ?namePrefix =
      fun ?nextToken ->
        fun ?limit -> fun () -> { namePrefix; nextToken; limit }
    let to_value x =
      structure_to_value
        [("NamePrefix", (Option.map x.namePrefix ~f:EventBusName.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("Limit", (Option.map x.limit ~f:LimitMax100.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let limit =
        (Option.map ~f:LimitMax100.of_xml) (Xml.child xml_arg0 "Limit") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let namePrefix =
        (Option.map ~f:EventBusName.of_xml) (Xml.child xml_arg0 "NamePrefix") in
      make ?limit ?nextToken ?namePrefix ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let limit = field_map json__ "Limit" LimitMax100.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let namePrefix = field_map json__ "NamePrefix" EventBusName.of_json in
      make ?limit ?nextToken ?namePrefix ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all the event buses in your account, including the default event bus, custom event buses, and partner event buses."]
module ListEndpointsResponse =
  struct
    type nonrec t =
      {
      endpoints: EndpointList.t option
        [@ocaml.doc "The endpoints returned by the call."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token indicating there are more results available. If there are no more results, no token is included in the response. The value of nextToken is a unique pagination token for each page. To retrieve the next page of results, make the call again using the returned token. Keep all other arguments unchanged. Using an expired pagination token results in an HTTP 400 InvalidToken error."]}
    type nonrec error =
      [ `InternalException of InternalException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?endpoints =
      fun ?nextToken -> fun () -> { endpoints; nextToken }
    let error_of_json name json =
      match name with
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.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
        [("Endpoints", (Option.map x.endpoints ~f:EndpointList.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 endpoints =
        (Option.map ~f:EndpointList.of_xml) (Xml.child xml_arg0 "Endpoints") in
      make ?nextToken ?endpoints ()
    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 endpoints = field_map json__ "Endpoints" EndpointList.of_json in
      make ?nextToken ?endpoints ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "List the global endpoints associated with this account. For more information about global endpoints, see Making applications Regional-fault tolerant with global endpoints and event replication in the Amazon EventBridge User Guide ."]
module ListEndpointsRequest =
  struct
    type nonrec t =
      {
      namePrefix: EndpointName.t option
        [@ocaml.doc
          "A value that will return a subset of the endpoints associated with this account. For example, \"NamePrefix\": \"ABC\" will return all endpoints with \"ABC\" in the name."];
      homeRegion: HomeRegion.t option
        [@ocaml.doc
          "The primary Region of the endpoints associated with this account. For example \"HomeRegion\": \"us-east-1\"."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token returned by a previous call, which you can use to retrieve the next set of results. The value of nextToken is a unique pagination token for each page. To retrieve the next page of results, make the call again using the returned token. Keep all other arguments unchanged. Using an expired pagination token results in an HTTP 400 InvalidToken error."];
      maxResults: LimitMax100.t option
        [@ocaml.doc "The maximum number of results returned by the call."]}
    let make ?namePrefix =
      fun ?homeRegion ->
        fun ?nextToken ->
          fun ?maxResults ->
            fun () -> { namePrefix; homeRegion; nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("NamePrefix", (Option.map x.namePrefix ~f:EndpointName.to_value));
        ("HomeRegion", (Option.map x.homeRegion ~f:HomeRegion.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:LimitMax100.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:LimitMax100.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let homeRegion =
        (Option.map ~f:HomeRegion.of_xml) (Xml.child xml_arg0 "HomeRegion") in
      let namePrefix =
        (Option.map ~f:EndpointName.of_xml) (Xml.child xml_arg0 "NamePrefix") in
      make ?maxResults ?nextToken ?homeRegion ?namePrefix ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" LimitMax100.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let homeRegion = field_map json__ "HomeRegion" HomeRegion.of_json in
      let namePrefix = field_map json__ "NamePrefix" EndpointName.of_json in
      make ?maxResults ?nextToken ?homeRegion ?namePrefix ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "List the global endpoints associated with this account. For more information about global endpoints, see Making applications Regional-fault tolerant with global endpoints and event replication in the Amazon EventBridge User Guide ."]
module ListConnectionsResponse =
  struct
    type nonrec t =
      {
      connections: ConnectionResponseList.t option
        [@ocaml.doc
          "An array of connections objects that include details about the connections."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token indicating there are more results available. If there are no more results, no token is included in the response. The value of nextToken is a unique pagination token for each page. To retrieve the next page of results, make the call again using the returned token. Keep all other arguments unchanged. Using an expired pagination token results in an HTTP 400 InvalidToken error."]}
    type nonrec error =
      [ `InternalException of InternalException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?connections =
      fun ?nextToken -> fun () -> { connections; nextToken }
    let error_of_json name json =
      match name with
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.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
        [("Connections",
           (Option.map x.connections ~f:ConnectionResponseList.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 connections =
        (Option.map ~f:ConnectionResponseList.of_xml)
          (Xml.child xml_arg0 "Connections") in
      make ?nextToken ?connections ()
    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 connections =
        field_map json__ "Connections" ConnectionResponseList.of_json in
      make ?nextToken ?connections ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves a list of connections from the account."]
module ListConnectionsRequest =
  struct
    type nonrec t =
      {
      namePrefix: ConnectionName.t option
        [@ocaml.doc
          "A name prefix to filter results returned. Only connections with a name that starts with the prefix are returned."];
      connectionState: ConnectionState.t option
        [@ocaml.doc "The state of the connection."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token returned by a previous call, which you can use to retrieve the next set of results. The value of nextToken is a unique pagination token for each page. To retrieve the next page of results, make the call again using the returned token. Keep all other arguments unchanged. Using an expired pagination token results in an HTTP 400 InvalidToken error."];
      limit: LimitMax100.t option
        [@ocaml.doc "The maximum number of connections to return."]}
    let make ?namePrefix =
      fun ?connectionState ->
        fun ?nextToken ->
          fun ?limit ->
            fun () -> { namePrefix; connectionState; nextToken; limit }
    let to_value x =
      structure_to_value
        [("NamePrefix", (Option.map x.namePrefix ~f:ConnectionName.to_value));
        ("ConnectionState",
          (Option.map x.connectionState ~f:ConnectionState.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("Limit", (Option.map x.limit ~f:LimitMax100.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let limit =
        (Option.map ~f:LimitMax100.of_xml) (Xml.child xml_arg0 "Limit") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let connectionState =
        (Option.map ~f:ConnectionState.of_xml)
          (Xml.child xml_arg0 "ConnectionState") in
      let namePrefix =
        (Option.map ~f:ConnectionName.of_xml)
          (Xml.child xml_arg0 "NamePrefix") in
      make ?limit ?nextToken ?connectionState ?namePrefix ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let limit = field_map json__ "Limit" LimitMax100.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let connectionState =
        field_map json__ "ConnectionState" ConnectionState.of_json in
      let namePrefix = field_map json__ "NamePrefix" ConnectionName.of_json in
      make ?limit ?nextToken ?connectionState ?namePrefix ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves a list of connections from the account."]
module ListArchivesResponse =
  struct
    type nonrec t =
      {
      archives: ArchiveResponseList.t option
        [@ocaml.doc
          "An array of Archive objects that include details about an archive."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token indicating there are more results available. If there are no more results, no token is included in the response. The value of nextToken is a unique pagination token for each page. To retrieve the next page of results, make the call again using the returned token. Keep all other arguments unchanged. Using an expired pagination token results in an HTTP 400 InvalidToken error."]}
    type nonrec error =
      [ `InternalException of InternalException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?archives = fun ?nextToken -> fun () -> { archives; nextToken }
    let error_of_json name json =
      match name with
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
        [("Archives",
           (Option.map x.archives ~f:ArchiveResponseList.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 archives =
        (Option.map ~f:ArchiveResponseList.of_xml)
          (Xml.child xml_arg0 "Archives") in
      make ?nextToken ?archives ()
    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 archives = field_map json__ "Archives" ArchiveResponseList.of_json in
      make ?nextToken ?archives ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists your archives. You can either list all the archives or you can provide a prefix to match to the archive names. Filter parameters are exclusive."]
module ListArchivesRequest =
  struct
    type nonrec t =
      {
      namePrefix: ArchiveName.t option
        [@ocaml.doc
          "A name prefix to filter the archives returned. Only archives with name that match the prefix are returned."];
      eventSourceArn: EventBusArn.t option
        [@ocaml.doc
          "The ARN of the event source associated with the archive."];
      state: ArchiveState.t option [@ocaml.doc "The state of the archive."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token returned by a previous call, which you can use to retrieve the next set of results. The value of nextToken is a unique pagination token for each page. To retrieve the next page of results, make the call again using the returned token. Keep all other arguments unchanged. Using an expired pagination token results in an HTTP 400 InvalidToken error."];
      limit: LimitMax100.t option
        [@ocaml.doc "The maximum number of results to return."]}
    let make ?namePrefix =
      fun ?eventSourceArn ->
        fun ?state ->
          fun ?nextToken ->
            fun ?limit ->
              fun () ->
                { namePrefix; eventSourceArn; state; nextToken; limit }
    let to_value x =
      structure_to_value
        [("NamePrefix", (Option.map x.namePrefix ~f:ArchiveName.to_value));
        ("EventSourceArn",
          (Option.map x.eventSourceArn ~f:EventBusArn.to_value));
        ("State", (Option.map x.state ~f:ArchiveState.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("Limit", (Option.map x.limit ~f:LimitMax100.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let limit =
        (Option.map ~f:LimitMax100.of_xml) (Xml.child xml_arg0 "Limit") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let state =
        (Option.map ~f:ArchiveState.of_xml) (Xml.child xml_arg0 "State") in
      let eventSourceArn =
        (Option.map ~f:EventBusArn.of_xml)
          (Xml.child xml_arg0 "EventSourceArn") in
      let namePrefix =
        (Option.map ~f:ArchiveName.of_xml) (Xml.child xml_arg0 "NamePrefix") in
      make ?limit ?nextToken ?state ?eventSourceArn ?namePrefix ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let limit = field_map json__ "Limit" LimitMax100.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let state = field_map json__ "State" ArchiveState.of_json in
      let eventSourceArn =
        field_map json__ "EventSourceArn" EventBusArn.of_json in
      let namePrefix = field_map json__ "NamePrefix" ArchiveName.of_json in
      make ?limit ?nextToken ?state ?eventSourceArn ?namePrefix ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists your archives. You can either list all the archives or you can provide a prefix to match to the archive names. Filter parameters are exclusive."]
module ListApiDestinationsResponse =
  struct
    type nonrec t =
      {
      apiDestinations: ApiDestinationResponseList.t option
        [@ocaml.doc
          "An array that includes information about each API destination."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token indicating there are more results available. If there are no more results, no token is included in the response. The value of nextToken is a unique pagination token for each page. To retrieve the next page of results, make the call again using the returned token. Keep all other arguments unchanged. Using an expired pagination token results in an HTTP 400 InvalidToken error."]}
    type nonrec error =
      [ `InternalException of InternalException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?apiDestinations =
      fun ?nextToken -> fun () -> { apiDestinations; nextToken }
    let error_of_json name json =
      match name with
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.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
        [("ApiDestinations",
           (Option.map x.apiDestinations
              ~f:ApiDestinationResponseList.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 apiDestinations =
        (Option.map ~f:ApiDestinationResponseList.of_xml)
          (Xml.child xml_arg0 "ApiDestinations") in
      make ?nextToken ?apiDestinations ()
    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 apiDestinations =
        field_map json__ "ApiDestinations" ApiDestinationResponseList.of_json in
      make ?nextToken ?apiDestinations ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a list of API destination in the account in the current Region."]
module ListApiDestinationsRequest =
  struct
    type nonrec t =
      {
      namePrefix: ApiDestinationName.t option
        [@ocaml.doc
          "A name prefix to filter results returned. Only API destinations with a name that starts with the prefix are returned."];
      connectionArn: ConnectionArn.t option
        [@ocaml.doc
          "The ARN of the connection specified for the API destination."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token returned by a previous call, which you can use to retrieve the next set of results. The value of nextToken is a unique pagination token for each page. To retrieve the next page of results, make the call again using the returned token. Keep all other arguments unchanged. Using an expired pagination token results in an HTTP 400 InvalidToken error."];
      limit: LimitMax100.t option
        [@ocaml.doc
          "The maximum number of API destinations to include in the response."]}
    let make ?namePrefix =
      fun ?connectionArn ->
        fun ?nextToken ->
          fun ?limit ->
            fun () -> { namePrefix; connectionArn; nextToken; limit }
    let to_value x =
      structure_to_value
        [("NamePrefix",
           (Option.map x.namePrefix ~f:ApiDestinationName.to_value));
        ("ConnectionArn",
          (Option.map x.connectionArn ~f:ConnectionArn.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("Limit", (Option.map x.limit ~f:LimitMax100.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let limit =
        (Option.map ~f:LimitMax100.of_xml) (Xml.child xml_arg0 "Limit") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let connectionArn =
        (Option.map ~f:ConnectionArn.of_xml)
          (Xml.child xml_arg0 "ConnectionArn") in
      let namePrefix =
        (Option.map ~f:ApiDestinationName.of_xml)
          (Xml.child xml_arg0 "NamePrefix") in
      make ?limit ?nextToken ?connectionArn ?namePrefix ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let limit = field_map json__ "Limit" LimitMax100.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let connectionArn =
        field_map json__ "ConnectionArn" ConnectionArn.of_json in
      let namePrefix =
        field_map json__ "NamePrefix" ApiDestinationName.of_json in
      make ?limit ?nextToken ?connectionArn ?namePrefix ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a list of API destination in the account in the current Region."]
module EnableRuleRequest =
  struct
    type nonrec t =
      {
      name: RuleName.t [@ocaml.doc "The name of the rule."];
      eventBusName: EventBusNameOrArn.t option
        [@ocaml.doc
          "The name or ARN of the event bus associated with the rule. If you omit this, the default event bus is used."]}
    let context_ = "EnableRuleRequest"
    let make ?eventBusName = fun ~name -> fun () -> { eventBusName; name }
    let to_value x =
      structure_to_value
        [("Name", (Some (RuleName.to_value x.name)));
        ("EventBusName",
          (Option.map x.eventBusName ~f:EventBusNameOrArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eventBusName =
        (Option.map ~f:EventBusNameOrArn.of_xml)
          (Xml.child xml_arg0 "EventBusName") in
      let name =
        RuleName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ?eventBusName ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eventBusName =
        field_map json__ "EventBusName" EventBusNameOrArn.of_json in
      let name = field_map_exn json__ "Name" RuleName.of_json in
      make ?eventBusName ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Enables the specified rule. If the rule does not exist, the operation fails. When you enable a rule, incoming events might not immediately start matching to a newly enabled rule. Allow a short period of time for changes to take effect."]
module DisableRuleRequest =
  struct
    type nonrec t =
      {
      name: RuleName.t [@ocaml.doc "The name of the rule."];
      eventBusName: EventBusNameOrArn.t option
        [@ocaml.doc
          "The name or ARN of the event bus associated with the rule. If you omit this, the default event bus is used."]}
    let context_ = "DisableRuleRequest"
    let make ?eventBusName = fun ~name -> fun () -> { eventBusName; name }
    let to_value x =
      structure_to_value
        [("Name", (Some (RuleName.to_value x.name)));
        ("EventBusName",
          (Option.map x.eventBusName ~f:EventBusNameOrArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eventBusName =
        (Option.map ~f:EventBusNameOrArn.of_xml)
          (Xml.child xml_arg0 "EventBusName") in
      let name =
        RuleName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ?eventBusName ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eventBusName =
        field_map json__ "EventBusName" EventBusNameOrArn.of_json in
      let name = field_map_exn json__ "Name" RuleName.of_json in
      make ?eventBusName ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disables the specified rule. A disabled rule won't match any events, and won't self-trigger if it has a schedule expression. When you disable a rule, incoming events might continue to match to the disabled rule. Allow a short period of time for changes to take effect."]
module DescribeRuleResponse =
  struct
    type nonrec t =
      {
      name: RuleName.t option [@ocaml.doc "The name of the rule."];
      arn: RuleArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the rule."];
      eventPattern: EventPattern.t option
        [@ocaml.doc
          "The event pattern. For more information, see Events and Event Patterns in the Amazon EventBridge User Guide ."];
      scheduleExpression: ScheduleExpression.t option
        [@ocaml.doc
          "The scheduling expression. For example, \"cron(0 20 * * ? *)\", \"rate(5 minutes)\"."];
      state: RuleState.t option
        [@ocaml.doc "Specifies whether the rule is enabled or disabled."];
      description: RuleDescription.t option
        [@ocaml.doc "The description of the rule."];
      roleArn: RoleArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the IAM role associated with the rule."];
      managedBy: ManagedBy.t option
        [@ocaml.doc
          "If this is a managed rule, created by an Amazon Web Services service on your behalf, this field displays the principal name of the Amazon Web Services service that created the rule."];
      eventBusName: EventBusName.t option
        [@ocaml.doc "The name of the event bus associated with the rule."];
      createdBy: CreatedBy.t option
        [@ocaml.doc
          "The account ID of the user that created the rule. If you use PutRule to put a rule on an event bus in another account, the other account is the owner of the rule, and the rule ARN includes the account ID for that account. However, the value for CreatedBy is the account ID as the account that created the rule in the other account."]}
    type nonrec error =
      [ `InternalException of InternalException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?name =
      fun ?arn ->
        fun ?eventPattern ->
          fun ?scheduleExpression ->
            fun ?state ->
              fun ?description ->
                fun ?roleArn ->
                  fun ?managedBy ->
                    fun ?eventBusName ->
                      fun ?createdBy ->
                        fun () ->
                          {
                            name;
                            arn;
                            eventPattern;
                            scheduleExpression;
                            state;
                            description;
                            roleArn;
                            managedBy;
                            eventBusName;
                            createdBy
                          }
    let error_of_json name json =
      match name with
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
        [("Name", (Option.map x.name ~f:RuleName.to_value));
        ("Arn", (Option.map x.arn ~f:RuleArn.to_value));
        ("EventPattern",
          (Option.map x.eventPattern ~f:EventPattern.to_value));
        ("ScheduleExpression",
          (Option.map x.scheduleExpression ~f:ScheduleExpression.to_value));
        ("State", (Option.map x.state ~f:RuleState.to_value));
        ("Description",
          (Option.map x.description ~f:RuleDescription.to_value));
        ("RoleArn", (Option.map x.roleArn ~f:RoleArn.to_value));
        ("ManagedBy", (Option.map x.managedBy ~f:ManagedBy.to_value));
        ("EventBusName",
          (Option.map x.eventBusName ~f:EventBusName.to_value));
        ("CreatedBy", (Option.map x.createdBy ~f:CreatedBy.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let createdBy =
        (Option.map ~f:CreatedBy.of_xml) (Xml.child xml_arg0 "CreatedBy") in
      let eventBusName =
        (Option.map ~f:EventBusName.of_xml)
          (Xml.child xml_arg0 "EventBusName") in
      let managedBy =
        (Option.map ~f:ManagedBy.of_xml) (Xml.child xml_arg0 "ManagedBy") in
      let roleArn =
        (Option.map ~f:RoleArn.of_xml) (Xml.child xml_arg0 "RoleArn") in
      let description =
        (Option.map ~f:RuleDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let state =
        (Option.map ~f:RuleState.of_xml) (Xml.child xml_arg0 "State") in
      let scheduleExpression =
        (Option.map ~f:ScheduleExpression.of_xml)
          (Xml.child xml_arg0 "ScheduleExpression") in
      let eventPattern =
        (Option.map ~f:EventPattern.of_xml)
          (Xml.child xml_arg0 "EventPattern") in
      let arn = (Option.map ~f:RuleArn.of_xml) (Xml.child xml_arg0 "Arn") in
      let name = (Option.map ~f:RuleName.of_xml) (Xml.child xml_arg0 "Name") in
      make ?createdBy ?eventBusName ?managedBy ?roleArn ?description ?state
        ?scheduleExpression ?eventPattern ?arn ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let createdBy = field_map json__ "CreatedBy" CreatedBy.of_json in
      let eventBusName = field_map json__ "EventBusName" EventBusName.of_json in
      let managedBy = field_map json__ "ManagedBy" ManagedBy.of_json in
      let roleArn = field_map json__ "RoleArn" RoleArn.of_json in
      let description =
        field_map json__ "Description" RuleDescription.of_json in
      let state = field_map json__ "State" RuleState.of_json in
      let scheduleExpression =
        field_map json__ "ScheduleExpression" ScheduleExpression.of_json in
      let eventPattern = field_map json__ "EventPattern" EventPattern.of_json in
      let arn = field_map json__ "Arn" RuleArn.of_json in
      let name = field_map json__ "Name" RuleName.of_json in
      make ?createdBy ?eventBusName ?managedBy ?roleArn ?description ?state
        ?scheduleExpression ?eventPattern ?arn ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the specified rule. DescribeRule does not list the targets of a rule. To see the targets associated with a rule, use ListTargetsByRule."]
module DescribeRuleRequest =
  struct
    type nonrec t =
      {
      name: RuleName.t [@ocaml.doc "The name of the rule."];
      eventBusName: EventBusNameOrArn.t option
        [@ocaml.doc
          "The name or ARN of the event bus associated with the rule. If you omit this, the default event bus is used."]}
    let context_ = "DescribeRuleRequest"
    let make ?eventBusName = fun ~name -> fun () -> { eventBusName; name }
    let to_value x =
      structure_to_value
        [("Name", (Some (RuleName.to_value x.name)));
        ("EventBusName",
          (Option.map x.eventBusName ~f:EventBusNameOrArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eventBusName =
        (Option.map ~f:EventBusNameOrArn.of_xml)
          (Xml.child xml_arg0 "EventBusName") in
      let name =
        RuleName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ?eventBusName ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eventBusName =
        field_map json__ "EventBusName" EventBusNameOrArn.of_json in
      let name = field_map_exn json__ "Name" RuleName.of_json in
      make ?eventBusName ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the specified rule. DescribeRule does not list the targets of a rule. To see the targets associated with a rule, use ListTargetsByRule."]
module DescribeReplayResponse =
  struct
    type nonrec t =
      {
      replayName: ReplayName.t option [@ocaml.doc "The name of the replay."];
      replayArn: ReplayArn.t option [@ocaml.doc "The ARN of the replay."];
      description: ReplayDescription.t option
        [@ocaml.doc "The description of the replay."];
      state: ReplayState.t option
        [@ocaml.doc "The current state of the replay."];
      stateReason: ReplayStateReason.t option
        [@ocaml.doc "The reason that the replay is in the current state."];
      eventSourceArn: ArchiveArn.t option
        [@ocaml.doc "The ARN of the archive events were replayed from."];
      destination: ReplayDestination.t option
        [@ocaml.doc
          "A ReplayDestination object that contains details about the replay."];
      eventStartTime: Timestamp.t option
        [@ocaml.doc
          "The time stamp of the first event that was last replayed from the archive."];
      eventEndTime: Timestamp.t option
        [@ocaml.doc
          "The time stamp for the last event that was replayed from the archive."];
      eventLastReplayedTime: Timestamp.t option
        [@ocaml.doc "The time that the event was last replayed."];
      replayStartTime: Timestamp.t option
        [@ocaml.doc "A time stamp for the time that the replay started."];
      replayEndTime: Timestamp.t option
        [@ocaml.doc "A time stamp for the time that the replay stopped."]}
    type nonrec error =
      [ `InternalException of InternalException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?replayName =
      fun ?replayArn ->
        fun ?description ->
          fun ?state ->
            fun ?stateReason ->
              fun ?eventSourceArn ->
                fun ?destination ->
                  fun ?eventStartTime ->
                    fun ?eventEndTime ->
                      fun ?eventLastReplayedTime ->
                        fun ?replayStartTime ->
                          fun ?replayEndTime ->
                            fun () ->
                              {
                                replayName;
                                replayArn;
                                description;
                                state;
                                stateReason;
                                eventSourceArn;
                                destination;
                                eventStartTime;
                                eventEndTime;
                                eventLastReplayedTime;
                                replayStartTime;
                                replayEndTime
                              }
    let error_of_json name json =
      match name with
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
        [("ReplayName", (Option.map x.replayName ~f:ReplayName.to_value));
        ("ReplayArn", (Option.map x.replayArn ~f:ReplayArn.to_value));
        ("Description",
          (Option.map x.description ~f:ReplayDescription.to_value));
        ("State", (Option.map x.state ~f:ReplayState.to_value));
        ("StateReason",
          (Option.map x.stateReason ~f:ReplayStateReason.to_value));
        ("EventSourceArn",
          (Option.map x.eventSourceArn ~f:ArchiveArn.to_value));
        ("Destination",
          (Option.map x.destination ~f:ReplayDestination.to_value));
        ("EventStartTime",
          (Option.map x.eventStartTime ~f:Timestamp.to_value));
        ("EventEndTime", (Option.map x.eventEndTime ~f:Timestamp.to_value));
        ("EventLastReplayedTime",
          (Option.map x.eventLastReplayedTime ~f:Timestamp.to_value));
        ("ReplayStartTime",
          (Option.map x.replayStartTime ~f:Timestamp.to_value));
        ("ReplayEndTime", (Option.map x.replayEndTime ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let replayEndTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "ReplayEndTime") in
      let replayStartTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "ReplayStartTime") in
      let eventLastReplayedTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "EventLastReplayedTime") in
      let eventEndTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "EventEndTime") in
      let eventStartTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "EventStartTime") in
      let destination =
        (Option.map ~f:ReplayDestination.of_xml)
          (Xml.child xml_arg0 "Destination") in
      let eventSourceArn =
        (Option.map ~f:ArchiveArn.of_xml)
          (Xml.child xml_arg0 "EventSourceArn") in
      let stateReason =
        (Option.map ~f:ReplayStateReason.of_xml)
          (Xml.child xml_arg0 "StateReason") in
      let state =
        (Option.map ~f:ReplayState.of_xml) (Xml.child xml_arg0 "State") in
      let description =
        (Option.map ~f:ReplayDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let replayArn =
        (Option.map ~f:ReplayArn.of_xml) (Xml.child xml_arg0 "ReplayArn") in
      let replayName =
        (Option.map ~f:ReplayName.of_xml) (Xml.child xml_arg0 "ReplayName") in
      make ?replayEndTime ?replayStartTime ?eventLastReplayedTime
        ?eventEndTime ?eventStartTime ?destination ?eventSourceArn
        ?stateReason ?state ?description ?replayArn ?replayName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let replayEndTime = field_map json__ "ReplayEndTime" Timestamp.of_json in
      let replayStartTime =
        field_map json__ "ReplayStartTime" Timestamp.of_json in
      let eventLastReplayedTime =
        field_map json__ "EventLastReplayedTime" Timestamp.of_json in
      let eventEndTime = field_map json__ "EventEndTime" Timestamp.of_json in
      let eventStartTime =
        field_map json__ "EventStartTime" Timestamp.of_json in
      let destination =
        field_map json__ "Destination" ReplayDestination.of_json in
      let eventSourceArn =
        field_map json__ "EventSourceArn" ArchiveArn.of_json in
      let stateReason =
        field_map json__ "StateReason" ReplayStateReason.of_json in
      let state = field_map json__ "State" ReplayState.of_json in
      let description =
        field_map json__ "Description" ReplayDescription.of_json in
      let replayArn = field_map json__ "ReplayArn" ReplayArn.of_json in
      let replayName = field_map json__ "ReplayName" ReplayName.of_json in
      make ?replayEndTime ?replayStartTime ?eventLastReplayedTime
        ?eventEndTime ?eventStartTime ?destination ?eventSourceArn
        ?stateReason ?state ?description ?replayArn ?replayName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves details about a replay. Use DescribeReplay to determine the progress of a running replay. A replay processes events to replay based on the time in the event, and replays them using 1 minute intervals. If you use StartReplay and specify an EventStartTime and an EventEndTime that covers a 20 minute time range, the events are replayed from the first minute of that 20 minute range first. Then the events from the second minute are replayed. You can use DescribeReplay to determine the progress of a replay. The value returned for EventLastReplayedTime indicates the time within the specified time range associated with the last event replayed."]
module DescribeReplayRequest =
  struct
    type nonrec t =
      {
      replayName: ReplayName.t
        [@ocaml.doc "The name of the replay to retrieve."]}
    let context_ = "DescribeReplayRequest"
    let make ~replayName = fun () -> { replayName }
    let to_value x =
      structure_to_value
        [("ReplayName", (Some (ReplayName.to_value x.replayName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let replayName =
        ReplayName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ReplayName") in
      make ~replayName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let replayName = field_map_exn json__ "ReplayName" ReplayName.of_json in
      make ~replayName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves details about a replay. Use DescribeReplay to determine the progress of a running replay. A replay processes events to replay based on the time in the event, and replays them using 1 minute intervals. If you use StartReplay and specify an EventStartTime and an EventEndTime that covers a 20 minute time range, the events are replayed from the first minute of that 20 minute range first. Then the events from the second minute are replayed. You can use DescribeReplay to determine the progress of a replay. The value returned for EventLastReplayedTime indicates the time within the specified time range associated with the last event replayed."]
module DescribePartnerEventSourceResponse =
  struct
    type nonrec t =
      {
      arn: String_.t option [@ocaml.doc "The ARN of the event source."];
      name: String_.t option [@ocaml.doc "The name of the event source."]}
    type nonrec error =
      [ `InternalException of InternalException.t 
      | `OperationDisabledException of OperationDisabledException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?arn = fun ?name -> fun () -> { arn; name }
    let error_of_json name json =
      match name with
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | "OperationDisabledException" ->
          `OperationDisabledException
            (OperationDisabledException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | "OperationDisabledException" ->
          `OperationDisabledException (OperationDisabledException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.to_json e))]
      | `OperationDisabledException e ->
          `Assoc
            [("error", (`String "OperationDisabledException"));
            ("details", (OperationDisabledException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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:String_.to_value));
        ("Name", (Option.map x.name ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Name") in
      let arn = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Arn") in
      make ?name ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map json__ "Name" String_.of_json in
      let arn = field_map json__ "Arn" String_.of_json in make ?name ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An SaaS partner can use this operation to list details about a partner event source that they have created. Amazon Web Services customers do not use this operation. Instead, Amazon Web Services customers can use DescribeEventSource to see details about a partner event source that is shared with them."]
module DescribePartnerEventSourceRequest =
  struct
    type nonrec t =
      {
      name: EventSourceName.t
        [@ocaml.doc "The name of the event source to display."]}
    let context_ = "DescribePartnerEventSourceRequest"
    let make ~name = fun () -> { name }
    let to_value x =
      structure_to_value [("Name", (Some (EventSourceName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        EventSourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map_exn json__ "Name" EventSourceName.of_json in
      make ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An SaaS partner can use this operation to list details about a partner event source that they have created. Amazon Web Services customers do not use this operation. Instead, Amazon Web Services customers can use DescribeEventSource to see details about a partner event source that is shared with them."]
module DescribeEventSourceResponse =
  struct
    type nonrec t =
      {
      arn: String_.t option
        [@ocaml.doc "The ARN of the partner event source."];
      createdBy: String_.t option
        [@ocaml.doc
          "The name of the SaaS partner that created the event source."];
      creationTime: Timestamp.t option
        [@ocaml.doc "The date and time that the event source was created."];
      expirationTime: Timestamp.t option
        [@ocaml.doc
          "The date and time that the event source will expire if you do not create a matching event bus."];
      name: String_.t option
        [@ocaml.doc "The name of the partner event source."];
      state: EventSourceState.t option
        [@ocaml.doc
          "The state of the event source. If it is ACTIVE, you have already created a matching event bus for this event source, and that event bus is active. If it is PENDING, either you haven't yet created a matching event bus, or that event bus is deactivated. If it is DELETED, you have created a matching event bus, but the event source has since been deleted."]}
    type nonrec error =
      [ `InternalException of InternalException.t 
      | `OperationDisabledException of OperationDisabledException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?arn =
      fun ?createdBy ->
        fun ?creationTime ->
          fun ?expirationTime ->
            fun ?name ->
              fun ?state ->
                fun () ->
                  { arn; createdBy; creationTime; expirationTime; name; state
                  }
    let error_of_json name json =
      match name with
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | "OperationDisabledException" ->
          `OperationDisabledException
            (OperationDisabledException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | "OperationDisabledException" ->
          `OperationDisabledException (OperationDisabledException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.to_json e))]
      | `OperationDisabledException e ->
          `Assoc
            [("error", (`String "OperationDisabledException"));
            ("details", (OperationDisabledException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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:String_.to_value));
        ("CreatedBy", (Option.map x.createdBy ~f:String_.to_value));
        ("CreationTime", (Option.map x.creationTime ~f:Timestamp.to_value));
        ("ExpirationTime",
          (Option.map x.expirationTime ~f:Timestamp.to_value));
        ("Name", (Option.map x.name ~f:String_.to_value));
        ("State", (Option.map x.state ~f:EventSourceState.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let state =
        (Option.map ~f:EventSourceState.of_xml) (Xml.child xml_arg0 "State") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Name") in
      let expirationTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "ExpirationTime") in
      let creationTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "CreationTime") in
      let createdBy =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "CreatedBy") in
      let arn = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Arn") in
      make ?state ?name ?expirationTime ?creationTime ?createdBy ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let state = field_map json__ "State" EventSourceState.of_json in
      let name = field_map json__ "Name" String_.of_json in
      let expirationTime =
        field_map json__ "ExpirationTime" Timestamp.of_json in
      let creationTime = field_map json__ "CreationTime" Timestamp.of_json in
      let createdBy = field_map json__ "CreatedBy" String_.of_json in
      let arn = field_map json__ "Arn" String_.of_json in
      make ?state ?name ?expirationTime ?creationTime ?createdBy ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation lists details about a partner event source that is shared with your account."]
module DescribeEventSourceRequest =
  struct
    type nonrec t =
      {
      name: EventSourceName.t
        [@ocaml.doc
          "The name of the partner event source to display the details of."]}
    let context_ = "DescribeEventSourceRequest"
    let make ~name = fun () -> { name }
    let to_value x =
      structure_to_value [("Name", (Some (EventSourceName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        EventSourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map_exn json__ "Name" EventSourceName.of_json in
      make ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation lists details about a partner event source that is shared with your account."]
module DescribeEventBusResponse =
  struct
    type nonrec t =
      {
      name: String_.t option
        [@ocaml.doc
          "The name of the event bus. Currently, this is always default."];
      arn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the account permitted to write events to the current account."];
      description: EventBusDescription.t option
        [@ocaml.doc "The event bus description."];
      kmsKeyIdentifier: KmsKeyIdentifier.t option
        [@ocaml.doc
          "The identifier of the KMS customer managed key for EventBridge to use to encrypt events on this event bus, if one has been specified. For more information, see Data encryption in EventBridge in the Amazon EventBridge User Guide."];
      deadLetterConfig: DeadLetterConfig.t option ;
      policy: String_.t option
        [@ocaml.doc
          "The policy that enables the external account to send events to your account."];
      logConfig: LogConfig.t option
        [@ocaml.doc
          "The logging configuration settings for the event bus. For more information, see Configuring logs for event buses in the EventBridge User Guide."];
      creationTime: Timestamp.t option
        [@ocaml.doc "The time the event bus was created."];
      lastModifiedTime: Timestamp.t option
        [@ocaml.doc "The time the event bus was last modified."]}
    type nonrec error =
      [ `InternalException of InternalException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?name =
      fun ?arn ->
        fun ?description ->
          fun ?kmsKeyIdentifier ->
            fun ?deadLetterConfig ->
              fun ?policy ->
                fun ?logConfig ->
                  fun ?creationTime ->
                    fun ?lastModifiedTime ->
                      fun () ->
                        {
                          name;
                          arn;
                          description;
                          kmsKeyIdentifier;
                          deadLetterConfig;
                          policy;
                          logConfig;
                          creationTime;
                          lastModifiedTime
                        }
    let error_of_json name json =
      match name with
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
        [("Name", (Option.map x.name ~f:String_.to_value));
        ("Arn", (Option.map x.arn ~f:String_.to_value));
        ("Description",
          (Option.map x.description ~f:EventBusDescription.to_value));
        ("KmsKeyIdentifier",
          (Option.map x.kmsKeyIdentifier ~f:KmsKeyIdentifier.to_value));
        ("DeadLetterConfig",
          (Option.map x.deadLetterConfig ~f:DeadLetterConfig.to_value));
        ("Policy", (Option.map x.policy ~f:String_.to_value));
        ("LogConfig", (Option.map x.logConfig ~f:LogConfig.to_value));
        ("CreationTime", (Option.map x.creationTime ~f:Timestamp.to_value));
        ("LastModifiedTime",
          (Option.map x.lastModifiedTime ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastModifiedTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastModifiedTime") in
      let creationTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "CreationTime") in
      let logConfig =
        (Option.map ~f:LogConfig.of_xml) (Xml.child xml_arg0 "LogConfig") in
      let policy =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Policy") in
      let deadLetterConfig =
        (Option.map ~f:DeadLetterConfig.of_xml)
          (Xml.child xml_arg0 "DeadLetterConfig") in
      let kmsKeyIdentifier =
        (Option.map ~f:KmsKeyIdentifier.of_xml)
          (Xml.child xml_arg0 "KmsKeyIdentifier") in
      let description =
        (Option.map ~f:EventBusDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let arn = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Arn") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Name") in
      make ?lastModifiedTime ?creationTime ?logConfig ?policy
        ?deadLetterConfig ?kmsKeyIdentifier ?description ?arn ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastModifiedTime =
        field_map json__ "LastModifiedTime" Timestamp.of_json in
      let creationTime = field_map json__ "CreationTime" Timestamp.of_json in
      let logConfig = field_map json__ "LogConfig" LogConfig.of_json in
      let policy = field_map json__ "Policy" String_.of_json in
      let deadLetterConfig =
        field_map json__ "DeadLetterConfig" DeadLetterConfig.of_json in
      let kmsKeyIdentifier =
        field_map json__ "KmsKeyIdentifier" KmsKeyIdentifier.of_json in
      let description =
        field_map json__ "Description" EventBusDescription.of_json in
      let arn = field_map json__ "Arn" String_.of_json in
      let name = field_map json__ "Name" String_.of_json in
      make ?lastModifiedTime ?creationTime ?logConfig ?policy
        ?deadLetterConfig ?kmsKeyIdentifier ?description ?arn ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Displays details about an event bus in your account. This can include the external Amazon Web Services accounts that are permitted to write events to your default event bus, and the associated policy. For custom event buses and partner event buses, it displays the name, ARN, policy, state, and creation time. To enable your account to receive events from other accounts on its default event bus, use PutPermission. For more information about partner event buses, see CreateEventBus."]
module DescribeEventBusRequest =
  struct
    type nonrec t =
      {
      name: EventBusNameOrArn.t option
        [@ocaml.doc
          "The name or ARN of the event bus to show details for. If you omit this, the default event bus is displayed."]}
    let make ?name = fun () -> { name }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:EventBusNameOrArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        (Option.map ~f:EventBusNameOrArn.of_xml) (Xml.child xml_arg0 "Name") in
      make ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map json__ "Name" EventBusNameOrArn.of_json in
      make ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Displays details about an event bus in your account. This can include the external Amazon Web Services accounts that are permitted to write events to your default event bus, and the associated policy. For custom event buses and partner event buses, it displays the name, ARN, policy, state, and creation time. To enable your account to receive events from other accounts on its default event bus, use PutPermission. For more information about partner event buses, see CreateEventBus."]
module DescribeEndpointResponse =
  struct
    type nonrec t =
      {
      name: EndpointName.t option
        [@ocaml.doc
          "The name of the endpoint you asked for information about."];
      description: EndpointDescription.t option
        [@ocaml.doc
          "The description of the endpoint you asked for information about."];
      arn: EndpointArn.t option
        [@ocaml.doc
          "The ARN of the endpoint you asked for information about."];
      routingConfig: RoutingConfig.t option
        [@ocaml.doc
          "The routing configuration of the endpoint you asked for information about."];
      replicationConfig: ReplicationConfig.t option
        [@ocaml.doc
          "Whether replication is enabled or disabled for the endpoint you asked for information about."];
      eventBuses: EndpointEventBusList.t option
        [@ocaml.doc
          "The event buses being used by the endpoint you asked for information about."];
      roleArn: IamRoleArn.t option
        [@ocaml.doc
          "The ARN of the role used by the endpoint you asked for information about."];
      endpointId: EndpointId.t option
        [@ocaml.doc
          "The ID of the endpoint you asked for information about."];
      endpointUrl: EndpointUrl.t option
        [@ocaml.doc
          "The URL of the endpoint you asked for information about."];
      state: EndpointState.t option
        [@ocaml.doc
          "The current state of the endpoint you asked for information about."];
      stateReason: EndpointStateReason.t option
        [@ocaml.doc
          "The reason the endpoint you asked for information about is in its current state."];
      creationTime: Timestamp.t option
        [@ocaml.doc
          "The time the endpoint you asked for information about was created."];
      lastModifiedTime: Timestamp.t option
        [@ocaml.doc
          "The last time the endpoint you asked for information about was modified."]}
    type nonrec error =
      [ `InternalException of InternalException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?name =
      fun ?description ->
        fun ?arn ->
          fun ?routingConfig ->
            fun ?replicationConfig ->
              fun ?eventBuses ->
                fun ?roleArn ->
                  fun ?endpointId ->
                    fun ?endpointUrl ->
                      fun ?state ->
                        fun ?stateReason ->
                          fun ?creationTime ->
                            fun ?lastModifiedTime ->
                              fun () ->
                                {
                                  name;
                                  description;
                                  arn;
                                  routingConfig;
                                  replicationConfig;
                                  eventBuses;
                                  roleArn;
                                  endpointId;
                                  endpointUrl;
                                  state;
                                  stateReason;
                                  creationTime;
                                  lastModifiedTime
                                }
    let error_of_json name json =
      match name with
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
        [("Name", (Option.map x.name ~f:EndpointName.to_value));
        ("Description",
          (Option.map x.description ~f:EndpointDescription.to_value));
        ("Arn", (Option.map x.arn ~f:EndpointArn.to_value));
        ("RoutingConfig",
          (Option.map x.routingConfig ~f:RoutingConfig.to_value));
        ("ReplicationConfig",
          (Option.map x.replicationConfig ~f:ReplicationConfig.to_value));
        ("EventBuses",
          (Option.map x.eventBuses ~f:EndpointEventBusList.to_value));
        ("RoleArn", (Option.map x.roleArn ~f:IamRoleArn.to_value));
        ("EndpointId", (Option.map x.endpointId ~f:EndpointId.to_value));
        ("EndpointUrl", (Option.map x.endpointUrl ~f:EndpointUrl.to_value));
        ("State", (Option.map x.state ~f:EndpointState.to_value));
        ("StateReason",
          (Option.map x.stateReason ~f:EndpointStateReason.to_value));
        ("CreationTime", (Option.map x.creationTime ~f:Timestamp.to_value));
        ("LastModifiedTime",
          (Option.map x.lastModifiedTime ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastModifiedTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastModifiedTime") in
      let creationTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "CreationTime") in
      let stateReason =
        (Option.map ~f:EndpointStateReason.of_xml)
          (Xml.child xml_arg0 "StateReason") in
      let state =
        (Option.map ~f:EndpointState.of_xml) (Xml.child xml_arg0 "State") in
      let endpointUrl =
        (Option.map ~f:EndpointUrl.of_xml) (Xml.child xml_arg0 "EndpointUrl") in
      let endpointId =
        (Option.map ~f:EndpointId.of_xml) (Xml.child xml_arg0 "EndpointId") in
      let roleArn =
        (Option.map ~f:IamRoleArn.of_xml) (Xml.child xml_arg0 "RoleArn") in
      let eventBuses =
        (Option.map ~f:EndpointEventBusList.of_xml)
          (Xml.child xml_arg0 "EventBuses") in
      let replicationConfig =
        (Option.map ~f:ReplicationConfig.of_xml)
          (Xml.child xml_arg0 "ReplicationConfig") in
      let routingConfig =
        (Option.map ~f:RoutingConfig.of_xml)
          (Xml.child xml_arg0 "RoutingConfig") in
      let arn = (Option.map ~f:EndpointArn.of_xml) (Xml.child xml_arg0 "Arn") in
      let description =
        (Option.map ~f:EndpointDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let name =
        (Option.map ~f:EndpointName.of_xml) (Xml.child xml_arg0 "Name") in
      make ?lastModifiedTime ?creationTime ?stateReason ?state ?endpointUrl
        ?endpointId ?roleArn ?eventBuses ?replicationConfig ?routingConfig
        ?arn ?description ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastModifiedTime =
        field_map json__ "LastModifiedTime" Timestamp.of_json in
      let creationTime = field_map json__ "CreationTime" Timestamp.of_json in
      let stateReason =
        field_map json__ "StateReason" EndpointStateReason.of_json in
      let state = field_map json__ "State" EndpointState.of_json in
      let endpointUrl = field_map json__ "EndpointUrl" EndpointUrl.of_json in
      let endpointId = field_map json__ "EndpointId" EndpointId.of_json in
      let roleArn = field_map json__ "RoleArn" IamRoleArn.of_json in
      let eventBuses =
        field_map json__ "EventBuses" EndpointEventBusList.of_json in
      let replicationConfig =
        field_map json__ "ReplicationConfig" ReplicationConfig.of_json in
      let routingConfig =
        field_map json__ "RoutingConfig" RoutingConfig.of_json in
      let arn = field_map json__ "Arn" EndpointArn.of_json in
      let description =
        field_map json__ "Description" EndpointDescription.of_json in
      let name = field_map json__ "Name" EndpointName.of_json in
      make ?lastModifiedTime ?creationTime ?stateReason ?state ?endpointUrl
        ?endpointId ?roleArn ?eventBuses ?replicationConfig ?routingConfig
        ?arn ?description ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Get the information about an existing global endpoint. For more information about global endpoints, see Making applications Regional-fault tolerant with global endpoints and event replication in the Amazon EventBridge User Guide ."]
module DescribeEndpointRequest =
  struct
    type nonrec t =
      {
      name: EndpointName.t
        [@ocaml.doc
          "The name of the endpoint you want to get information about. For example, \"Name\":\"us-east-2-custom_bus_A-endpoint\"."];
      homeRegion: HomeRegion.t option
        [@ocaml.doc
          "The primary Region of the endpoint you want to get information about. For example \"HomeRegion\": \"us-east-1\"."]}
    let context_ = "DescribeEndpointRequest"
    let make ?homeRegion = fun ~name -> fun () -> { homeRegion; name }
    let to_value x =
      structure_to_value
        [("Name", (Some (EndpointName.to_value x.name)));
        ("HomeRegion", (Option.map x.homeRegion ~f:HomeRegion.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let homeRegion =
        (Option.map ~f:HomeRegion.of_xml) (Xml.child xml_arg0 "HomeRegion") in
      let name =
        EndpointName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ?homeRegion ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let homeRegion = field_map json__ "HomeRegion" HomeRegion.of_json in
      let name = field_map_exn json__ "Name" EndpointName.of_json in
      make ?homeRegion ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Get the information about an existing global endpoint. For more information about global endpoints, see Making applications Regional-fault tolerant with global endpoints and event replication in the Amazon EventBridge User Guide ."]
module DescribeConnectionResponse =
  struct
    type nonrec t =
      {
      connectionArn: ConnectionArn.t option
        [@ocaml.doc "The ARN of the connection retrieved."];
      name: ConnectionName.t option
        [@ocaml.doc "The name of the connection retrieved."];
      description: ConnectionDescription.t option
        [@ocaml.doc "The description for the connection retrieved."];
      invocationConnectivityParameters:
        DescribeConnectionConnectivityParameters.t option
        [@ocaml.doc
          "For connections to private APIs The parameters EventBridge uses to invoke the resource endpoint. For more information, see Connecting to private APIs in the Amazon EventBridge User Guide ."];
      connectionState: ConnectionState.t option
        [@ocaml.doc "The state of the connection retrieved."];
      stateReason: ConnectionStateReason.t option
        [@ocaml.doc
          "The reason that the connection is in the current connection state."];
      authorizationType: ConnectionAuthorizationType.t option
        [@ocaml.doc
          "The type of authorization specified for the connection."];
      secretArn: SecretsManagerSecretArn.t option
        [@ocaml.doc
          "The ARN of the secret created from the authorization parameters specified for the connection."];
      kmsKeyIdentifier: KmsKeyIdentifier.t option
        [@ocaml.doc
          "The identifier of the KMS customer managed key for EventBridge to use to encrypt the connection, if one has been specified. For more information, see Encrypting connections in the Amazon EventBridge User Guide."];
      authParameters: ConnectionAuthResponseParameters.t option
        [@ocaml.doc
          "The parameters to use for authorization for the connection."];
      creationTime: Timestamp.t option
        [@ocaml.doc
          "A time stamp for the time that the connection was created."];
      lastModifiedTime: Timestamp.t option
        [@ocaml.doc
          "A time stamp for the time that the connection was last modified."];
      lastAuthorizedTime: Timestamp.t option
        [@ocaml.doc
          "A time stamp for the time that the connection was last authorized."]}
    type nonrec error =
      [ `InternalException of InternalException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?connectionArn =
      fun ?name ->
        fun ?description ->
          fun ?invocationConnectivityParameters ->
            fun ?connectionState ->
              fun ?stateReason ->
                fun ?authorizationType ->
                  fun ?secretArn ->
                    fun ?kmsKeyIdentifier ->
                      fun ?authParameters ->
                        fun ?creationTime ->
                          fun ?lastModifiedTime ->
                            fun ?lastAuthorizedTime ->
                              fun () ->
                                {
                                  connectionArn;
                                  name;
                                  description;
                                  invocationConnectivityParameters;
                                  connectionState;
                                  stateReason;
                                  authorizationType;
                                  secretArn;
                                  kmsKeyIdentifier;
                                  authParameters;
                                  creationTime;
                                  lastModifiedTime;
                                  lastAuthorizedTime
                                }
    let error_of_json name json =
      match name with
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
        [("ConnectionArn",
           (Option.map x.connectionArn ~f:ConnectionArn.to_value));
        ("Name", (Option.map x.name ~f:ConnectionName.to_value));
        ("Description",
          (Option.map x.description ~f:ConnectionDescription.to_value));
        ("InvocationConnectivityParameters",
          (Option.map x.invocationConnectivityParameters
             ~f:DescribeConnectionConnectivityParameters.to_value));
        ("ConnectionState",
          (Option.map x.connectionState ~f:ConnectionState.to_value));
        ("StateReason",
          (Option.map x.stateReason ~f:ConnectionStateReason.to_value));
        ("AuthorizationType",
          (Option.map x.authorizationType
             ~f:ConnectionAuthorizationType.to_value));
        ("SecretArn",
          (Option.map x.secretArn ~f:SecretsManagerSecretArn.to_value));
        ("KmsKeyIdentifier",
          (Option.map x.kmsKeyIdentifier ~f:KmsKeyIdentifier.to_value));
        ("AuthParameters",
          (Option.map x.authParameters
             ~f:ConnectionAuthResponseParameters.to_value));
        ("CreationTime", (Option.map x.creationTime ~f:Timestamp.to_value));
        ("LastModifiedTime",
          (Option.map x.lastModifiedTime ~f:Timestamp.to_value));
        ("LastAuthorizedTime",
          (Option.map x.lastAuthorizedTime ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastAuthorizedTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastAuthorizedTime") in
      let lastModifiedTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastModifiedTime") in
      let creationTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "CreationTime") in
      let authParameters =
        (Option.map ~f:ConnectionAuthResponseParameters.of_xml)
          (Xml.child xml_arg0 "AuthParameters") in
      let kmsKeyIdentifier =
        (Option.map ~f:KmsKeyIdentifier.of_xml)
          (Xml.child xml_arg0 "KmsKeyIdentifier") in
      let secretArn =
        (Option.map ~f:SecretsManagerSecretArn.of_xml)
          (Xml.child xml_arg0 "SecretArn") in
      let authorizationType =
        (Option.map ~f:ConnectionAuthorizationType.of_xml)
          (Xml.child xml_arg0 "AuthorizationType") in
      let stateReason =
        (Option.map ~f:ConnectionStateReason.of_xml)
          (Xml.child xml_arg0 "StateReason") in
      let connectionState =
        (Option.map ~f:ConnectionState.of_xml)
          (Xml.child xml_arg0 "ConnectionState") in
      let invocationConnectivityParameters =
        (Option.map ~f:DescribeConnectionConnectivityParameters.of_xml)
          (Xml.child xml_arg0 "InvocationConnectivityParameters") in
      let description =
        (Option.map ~f:ConnectionDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let name =
        (Option.map ~f:ConnectionName.of_xml) (Xml.child xml_arg0 "Name") in
      let connectionArn =
        (Option.map ~f:ConnectionArn.of_xml)
          (Xml.child xml_arg0 "ConnectionArn") in
      make ?lastAuthorizedTime ?lastModifiedTime ?creationTime
        ?authParameters ?kmsKeyIdentifier ?secretArn ?authorizationType
        ?stateReason ?connectionState ?invocationConnectivityParameters
        ?description ?name ?connectionArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastAuthorizedTime =
        field_map json__ "LastAuthorizedTime" Timestamp.of_json in
      let lastModifiedTime =
        field_map json__ "LastModifiedTime" Timestamp.of_json in
      let creationTime = field_map json__ "CreationTime" Timestamp.of_json in
      let authParameters =
        field_map json__ "AuthParameters"
          ConnectionAuthResponseParameters.of_json in
      let kmsKeyIdentifier =
        field_map json__ "KmsKeyIdentifier" KmsKeyIdentifier.of_json in
      let secretArn =
        field_map json__ "SecretArn" SecretsManagerSecretArn.of_json in
      let authorizationType =
        field_map json__ "AuthorizationType"
          ConnectionAuthorizationType.of_json in
      let stateReason =
        field_map json__ "StateReason" ConnectionStateReason.of_json in
      let connectionState =
        field_map json__ "ConnectionState" ConnectionState.of_json in
      let invocationConnectivityParameters =
        field_map json__ "InvocationConnectivityParameters"
          DescribeConnectionConnectivityParameters.of_json in
      let description =
        field_map json__ "Description" ConnectionDescription.of_json in
      let name = field_map json__ "Name" ConnectionName.of_json in
      let connectionArn =
        field_map json__ "ConnectionArn" ConnectionArn.of_json in
      make ?lastAuthorizedTime ?lastModifiedTime ?creationTime
        ?authParameters ?kmsKeyIdentifier ?secretArn ?authorizationType
        ?stateReason ?connectionState ?invocationConnectivityParameters
        ?description ?name ?connectionArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves details about a connection."]
module DescribeConnectionRequest =
  struct
    type nonrec t =
      {
      name: ConnectionName.t
        [@ocaml.doc "The name of the connection to retrieve."]}
    let context_ = "DescribeConnectionRequest"
    let make ~name = fun () -> { name }
    let to_value x =
      structure_to_value [("Name", (Some (ConnectionName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        ConnectionName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map_exn json__ "Name" ConnectionName.of_json in
      make ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves details about a connection."]
module DescribeArchiveResponse =
  struct
    type nonrec t =
      {
      archiveArn: ArchiveArn.t option [@ocaml.doc "The ARN of the archive."];
      archiveName: ArchiveName.t option
        [@ocaml.doc "The name of the archive."];
      eventSourceArn: EventBusArn.t option
        [@ocaml.doc
          "The ARN of the event source associated with the archive."];
      description: ArchiveDescription.t option
        [@ocaml.doc "The description of the archive."];
      eventPattern: EventPattern.t option
        [@ocaml.doc
          "The event pattern used to filter events sent to the archive."];
      state: ArchiveState.t option [@ocaml.doc "The state of the archive."];
      stateReason: ArchiveStateReason.t option
        [@ocaml.doc "The reason that the archive is in the state."];
      kmsKeyIdentifier: KmsKeyIdentifier.t option
        [@ocaml.doc
          "The identifier of the KMS customer managed key for EventBridge to use to encrypt this archive, if one has been specified. For more information, see Encrypting archives in the Amazon EventBridge User Guide."];
      retentionDays: RetentionDays.t option
        [@ocaml.doc
          "The number of days to retain events for in the archive."];
      sizeBytes: Long.t option
        [@ocaml.doc "The size of the archive in bytes."];
      eventCount: Long.t option
        [@ocaml.doc "The number of events in the archive."];
      creationTime: Timestamp.t option
        [@ocaml.doc "The time at which the archive was created."]}
    type nonrec error =
      [ `InternalException of InternalException.t 
      | `ResourceAlreadyExistsException of ResourceAlreadyExistsException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?archiveArn =
      fun ?archiveName ->
        fun ?eventSourceArn ->
          fun ?description ->
            fun ?eventPattern ->
              fun ?state ->
                fun ?stateReason ->
                  fun ?kmsKeyIdentifier ->
                    fun ?retentionDays ->
                      fun ?sizeBytes ->
                        fun ?eventCount ->
                          fun ?creationTime ->
                            fun () ->
                              {
                                archiveArn;
                                archiveName;
                                eventSourceArn;
                                description;
                                eventPattern;
                                state;
                                stateReason;
                                kmsKeyIdentifier;
                                retentionDays;
                                sizeBytes;
                                eventCount;
                                creationTime
                              }
    let error_of_json name json =
      match name with
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | "ResourceAlreadyExistsException" ->
          `ResourceAlreadyExistsException
            (ResourceAlreadyExistsException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | "ResourceAlreadyExistsException" ->
          `ResourceAlreadyExistsException
            (ResourceAlreadyExistsException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.to_json e))]
      | `ResourceAlreadyExistsException e ->
          `Assoc
            [("error", (`String "ResourceAlreadyExistsException"));
            ("details", (ResourceAlreadyExistsException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
        [("ArchiveArn", (Option.map x.archiveArn ~f:ArchiveArn.to_value));
        ("ArchiveName", (Option.map x.archiveName ~f:ArchiveName.to_value));
        ("EventSourceArn",
          (Option.map x.eventSourceArn ~f:EventBusArn.to_value));
        ("Description",
          (Option.map x.description ~f:ArchiveDescription.to_value));
        ("EventPattern",
          (Option.map x.eventPattern ~f:EventPattern.to_value));
        ("State", (Option.map x.state ~f:ArchiveState.to_value));
        ("StateReason",
          (Option.map x.stateReason ~f:ArchiveStateReason.to_value));
        ("KmsKeyIdentifier",
          (Option.map x.kmsKeyIdentifier ~f:KmsKeyIdentifier.to_value));
        ("RetentionDays",
          (Option.map x.retentionDays ~f:RetentionDays.to_value));
        ("SizeBytes", (Option.map x.sizeBytes ~f:Long.to_value));
        ("EventCount", (Option.map x.eventCount ~f:Long.to_value));
        ("CreationTime", (Option.map x.creationTime ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let creationTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "CreationTime") in
      let eventCount =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "EventCount") in
      let sizeBytes =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "SizeBytes") in
      let retentionDays =
        (Option.map ~f:RetentionDays.of_xml)
          (Xml.child xml_arg0 "RetentionDays") in
      let kmsKeyIdentifier =
        (Option.map ~f:KmsKeyIdentifier.of_xml)
          (Xml.child xml_arg0 "KmsKeyIdentifier") in
      let stateReason =
        (Option.map ~f:ArchiveStateReason.of_xml)
          (Xml.child xml_arg0 "StateReason") in
      let state =
        (Option.map ~f:ArchiveState.of_xml) (Xml.child xml_arg0 "State") in
      let eventPattern =
        (Option.map ~f:EventPattern.of_xml)
          (Xml.child xml_arg0 "EventPattern") in
      let description =
        (Option.map ~f:ArchiveDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let eventSourceArn =
        (Option.map ~f:EventBusArn.of_xml)
          (Xml.child xml_arg0 "EventSourceArn") in
      let archiveName =
        (Option.map ~f:ArchiveName.of_xml) (Xml.child xml_arg0 "ArchiveName") in
      let archiveArn =
        (Option.map ~f:ArchiveArn.of_xml) (Xml.child xml_arg0 "ArchiveArn") in
      make ?creationTime ?eventCount ?sizeBytes ?retentionDays
        ?kmsKeyIdentifier ?stateReason ?state ?eventPattern ?description
        ?eventSourceArn ?archiveName ?archiveArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let creationTime = field_map json__ "CreationTime" Timestamp.of_json in
      let eventCount = field_map json__ "EventCount" Long.of_json in
      let sizeBytes = field_map json__ "SizeBytes" Long.of_json in
      let retentionDays =
        field_map json__ "RetentionDays" RetentionDays.of_json in
      let kmsKeyIdentifier =
        field_map json__ "KmsKeyIdentifier" KmsKeyIdentifier.of_json in
      let stateReason =
        field_map json__ "StateReason" ArchiveStateReason.of_json in
      let state = field_map json__ "State" ArchiveState.of_json in
      let eventPattern = field_map json__ "EventPattern" EventPattern.of_json in
      let description =
        field_map json__ "Description" ArchiveDescription.of_json in
      let eventSourceArn =
        field_map json__ "EventSourceArn" EventBusArn.of_json in
      let archiveName = field_map json__ "ArchiveName" ArchiveName.of_json in
      let archiveArn = field_map json__ "ArchiveArn" ArchiveArn.of_json in
      make ?creationTime ?eventCount ?sizeBytes ?retentionDays
        ?kmsKeyIdentifier ?stateReason ?state ?eventPattern ?description
        ?eventSourceArn ?archiveName ?archiveArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves details about an archive."]
module DescribeArchiveRequest =
  struct
    type nonrec t =
      {
      archiveName: ArchiveName.t
        [@ocaml.doc "The name of the archive to retrieve."]}
    let context_ = "DescribeArchiveRequest"
    let make ~archiveName = fun () -> { archiveName }
    let to_value x =
      structure_to_value
        [("ArchiveName", (Some (ArchiveName.to_value x.archiveName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let archiveName =
        ArchiveName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ArchiveName") in
      make ~archiveName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let archiveName =
        field_map_exn json__ "ArchiveName" ArchiveName.of_json in
      make ~archiveName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves details about an archive."]
module DescribeApiDestinationResponse =
  struct
    type nonrec t =
      {
      apiDestinationArn: ApiDestinationArn.t option
        [@ocaml.doc "The ARN of the API destination retrieved."];
      name: ApiDestinationName.t option
        [@ocaml.doc "The name of the API destination retrieved."];
      description: ApiDestinationDescription.t option
        [@ocaml.doc "The description for the API destination retrieved."];
      apiDestinationState: ApiDestinationState.t option
        [@ocaml.doc "The state of the API destination retrieved."];
      connectionArn: ConnectionArn.t option
        [@ocaml.doc
          "The ARN of the connection specified for the API destination retrieved."];
      invocationEndpoint: HttpsEndpoint.t option
        [@ocaml.doc "The URL to use to connect to the HTTP endpoint."];
      httpMethod: ApiDestinationHttpMethod.t option
        [@ocaml.doc "The method to use to connect to the HTTP endpoint."];
      invocationRateLimitPerSecond:
        ApiDestinationInvocationRateLimitPerSecond.t option
        [@ocaml.doc
          "The maximum number of invocations per second to specified for the API destination. Note that if you set the invocation rate maximum to a value lower the rate necessary to send all events received on to the destination HTTP endpoint, some events may not be delivered within the 24-hour retry window. If you plan to set the rate lower than the rate necessary to deliver all events, consider using a dead-letter queue to catch events that are not delivered within 24 hours."];
      creationTime: Timestamp.t option
        [@ocaml.doc
          "A time stamp for the time that the API destination was created."];
      lastModifiedTime: Timestamp.t option
        [@ocaml.doc
          "A time stamp for the time that the API destination was last modified."]}
    type nonrec error =
      [ `InternalException of InternalException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?apiDestinationArn =
      fun ?name ->
        fun ?description ->
          fun ?apiDestinationState ->
            fun ?connectionArn ->
              fun ?invocationEndpoint ->
                fun ?httpMethod ->
                  fun ?invocationRateLimitPerSecond ->
                    fun ?creationTime ->
                      fun ?lastModifiedTime ->
                        fun () ->
                          {
                            apiDestinationArn;
                            name;
                            description;
                            apiDestinationState;
                            connectionArn;
                            invocationEndpoint;
                            httpMethod;
                            invocationRateLimitPerSecond;
                            creationTime;
                            lastModifiedTime
                          }
    let error_of_json name json =
      match name with
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
        [("ApiDestinationArn",
           (Option.map x.apiDestinationArn ~f:ApiDestinationArn.to_value));
        ("Name", (Option.map x.name ~f:ApiDestinationName.to_value));
        ("Description",
          (Option.map x.description ~f:ApiDestinationDescription.to_value));
        ("ApiDestinationState",
          (Option.map x.apiDestinationState ~f:ApiDestinationState.to_value));
        ("ConnectionArn",
          (Option.map x.connectionArn ~f:ConnectionArn.to_value));
        ("InvocationEndpoint",
          (Option.map x.invocationEndpoint ~f:HttpsEndpoint.to_value));
        ("HttpMethod",
          (Option.map x.httpMethod ~f:ApiDestinationHttpMethod.to_value));
        ("InvocationRateLimitPerSecond",
          (Option.map x.invocationRateLimitPerSecond
             ~f:ApiDestinationInvocationRateLimitPerSecond.to_value));
        ("CreationTime", (Option.map x.creationTime ~f:Timestamp.to_value));
        ("LastModifiedTime",
          (Option.map x.lastModifiedTime ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastModifiedTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastModifiedTime") in
      let creationTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "CreationTime") in
      let invocationRateLimitPerSecond =
        (Option.map ~f:ApiDestinationInvocationRateLimitPerSecond.of_xml)
          (Xml.child xml_arg0 "InvocationRateLimitPerSecond") in
      let httpMethod =
        (Option.map ~f:ApiDestinationHttpMethod.of_xml)
          (Xml.child xml_arg0 "HttpMethod") in
      let invocationEndpoint =
        (Option.map ~f:HttpsEndpoint.of_xml)
          (Xml.child xml_arg0 "InvocationEndpoint") in
      let connectionArn =
        (Option.map ~f:ConnectionArn.of_xml)
          (Xml.child xml_arg0 "ConnectionArn") in
      let apiDestinationState =
        (Option.map ~f:ApiDestinationState.of_xml)
          (Xml.child xml_arg0 "ApiDestinationState") in
      let description =
        (Option.map ~f:ApiDestinationDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let name =
        (Option.map ~f:ApiDestinationName.of_xml) (Xml.child xml_arg0 "Name") in
      let apiDestinationArn =
        (Option.map ~f:ApiDestinationArn.of_xml)
          (Xml.child xml_arg0 "ApiDestinationArn") in
      make ?lastModifiedTime ?creationTime ?invocationRateLimitPerSecond
        ?httpMethod ?invocationEndpoint ?connectionArn ?apiDestinationState
        ?description ?name ?apiDestinationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastModifiedTime =
        field_map json__ "LastModifiedTime" Timestamp.of_json in
      let creationTime = field_map json__ "CreationTime" Timestamp.of_json in
      let invocationRateLimitPerSecond =
        field_map json__ "InvocationRateLimitPerSecond"
          ApiDestinationInvocationRateLimitPerSecond.of_json in
      let httpMethod =
        field_map json__ "HttpMethod" ApiDestinationHttpMethod.of_json in
      let invocationEndpoint =
        field_map json__ "InvocationEndpoint" HttpsEndpoint.of_json in
      let connectionArn =
        field_map json__ "ConnectionArn" ConnectionArn.of_json in
      let apiDestinationState =
        field_map json__ "ApiDestinationState" ApiDestinationState.of_json in
      let description =
        field_map json__ "Description" ApiDestinationDescription.of_json in
      let name = field_map json__ "Name" ApiDestinationName.of_json in
      let apiDestinationArn =
        field_map json__ "ApiDestinationArn" ApiDestinationArn.of_json in
      make ?lastModifiedTime ?creationTime ?invocationRateLimitPerSecond
        ?httpMethod ?invocationEndpoint ?connectionArn ?apiDestinationState
        ?description ?name ?apiDestinationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves details about an API destination."]
module DescribeApiDestinationRequest =
  struct
    type nonrec t =
      {
      name: ApiDestinationName.t
        [@ocaml.doc "The name of the API destination to retrieve."]}
    let context_ = "DescribeApiDestinationRequest"
    let make ~name = fun () -> { name }
    let to_value x =
      structure_to_value
        [("Name", (Some (ApiDestinationName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        ApiDestinationName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map_exn json__ "Name" ApiDestinationName.of_json in
      make ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves details about an API destination."]
module DeleteRuleRequest =
  struct
    type nonrec t =
      {
      name: RuleName.t [@ocaml.doc "The name of the rule."];
      eventBusName: EventBusNameOrArn.t option
        [@ocaml.doc
          "The name or ARN of the event bus associated with the rule. If you omit this, the default event bus is used."];
      force: Boolean.t option
        [@ocaml.doc
          "If this is a managed rule, created by an Amazon Web Services service on your behalf, you must specify Force as True to delete the rule. This parameter is ignored for rules that are not managed rules. You can check whether a rule is a managed rule by using DescribeRule or ListRules and checking the ManagedBy field of the response."]}
    let context_ = "DeleteRuleRequest"
    let make ?eventBusName =
      fun ?force -> fun ~name -> fun () -> { eventBusName; force; name }
    let to_value x =
      structure_to_value
        [("Name", (Some (RuleName.to_value x.name)));
        ("EventBusName",
          (Option.map x.eventBusName ~f:EventBusNameOrArn.to_value));
        ("Force", (Option.map x.force ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let force = (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "Force") in
      let eventBusName =
        (Option.map ~f:EventBusNameOrArn.of_xml)
          (Xml.child xml_arg0 "EventBusName") in
      let name =
        RuleName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ?force ?eventBusName ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let force = field_map json__ "Force" Boolean.of_json in
      let eventBusName =
        field_map json__ "EventBusName" EventBusNameOrArn.of_json in
      let name = field_map_exn json__ "Name" RuleName.of_json in
      make ?force ?eventBusName ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the specified rule. Before you can delete the rule, you must remove all targets, using RemoveTargets. When you delete a rule, incoming events might continue to match to the deleted rule. Allow a short period of time for changes to take effect. If you call delete rule multiple times for the same rule, all calls will succeed. When you call delete rule for a non-existent custom eventbus, ResourceNotFoundException is returned. Managed rules are rules created and managed by another Amazon Web Services service on your behalf. These rules are created by those other Amazon Web Services services to support functionality in those services. You can delete these rules using the Force option, but you should do so only if you are sure the other service is not still using that rule."]
module DeletePartnerEventSourceRequest =
  struct
    type nonrec t =
      {
      name: EventSourceName.t
        [@ocaml.doc "The name of the event source to delete."];
      account: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID of the Amazon Web Services customer that the event source was created for."]}
    let context_ = "DeletePartnerEventSourceRequest"
    let make ~name = fun ~account -> fun () -> { name; account }
    let to_value x =
      structure_to_value
        [("Name", (Some (EventSourceName.to_value x.name)));
        ("Account", (Some (AccountId.to_value x.account)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let account =
        AccountId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Account") in
      let name =
        EventSourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~account ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let account = field_map_exn json__ "Account" AccountId.of_json in
      let name = field_map_exn json__ "Name" EventSourceName.of_json in
      make ~account ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is used by SaaS partners to delete a partner event source. This operation is not used by Amazon Web Services customers. When you delete an event source, the status of the corresponding partner event bus in the Amazon Web Services customer account becomes DELETED."]
module DeleteEventBusRequest =
  struct
    type nonrec t =
      {
      name: EventBusName.t
        [@ocaml.doc "The name of the event bus to delete."]}
    let context_ = "DeleteEventBusRequest"
    let make ~name = fun () -> { name }
    let to_value x =
      structure_to_value [("Name", (Some (EventBusName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        EventBusName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map_exn json__ "Name" EventBusName.of_json in
      make ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the specified custom event bus or partner event bus. All rules associated with this event bus need to be deleted. You can't delete your account's default event bus."]
module DeleteEndpointResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [
        `ConcurrentModificationException of ConcurrentModificationException.t 
      | `InternalException of InternalException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConcurrentModificationException e ->
          `Assoc
            [("error", (`String "ConcurrentModificationException"));
            ("details", (ConcurrentModificationException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
       "Delete an existing global endpoint. For more information about global endpoints, see Making applications Regional-fault tolerant with global endpoints and event replication in the Amazon EventBridge User Guide ."]
module DeleteEndpointRequest =
  struct
    type nonrec t =
      {
      name: EndpointName.t
        [@ocaml.doc
          "The name of the endpoint you want to delete. For example, \"Name\":\"us-east-2-custom_bus_A-endpoint\".."]}
    let context_ = "DeleteEndpointRequest"
    let make ~name = fun () -> { name }
    let to_value x =
      structure_to_value [("Name", (Some (EndpointName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        EndpointName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map_exn json__ "Name" EndpointName.of_json in
      make ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Delete an existing global endpoint. For more information about global endpoints, see Making applications Regional-fault tolerant with global endpoints and event replication in the Amazon EventBridge User Guide ."]
module DeleteConnectionResponse =
  struct
    type nonrec t =
      {
      connectionArn: ConnectionArn.t option
        [@ocaml.doc "The ARN of the connection that was deleted."];
      connectionState: ConnectionState.t option
        [@ocaml.doc "The state of the connection before it was deleted."];
      creationTime: Timestamp.t option
        [@ocaml.doc
          "A time stamp for the time that the connection was created."];
      lastModifiedTime: Timestamp.t option
        [@ocaml.doc
          "A time stamp for the time that the connection was last modified before it was deleted."];
      lastAuthorizedTime: Timestamp.t option
        [@ocaml.doc
          "A time stamp for the time that the connection was last authorized before it wa deleted."]}
    type nonrec error =
      [
        `ConcurrentModificationException of ConcurrentModificationException.t 
      | `InternalException of InternalException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?connectionArn =
      fun ?connectionState ->
        fun ?creationTime ->
          fun ?lastModifiedTime ->
            fun ?lastAuthorizedTime ->
              fun () ->
                {
                  connectionArn;
                  connectionState;
                  creationTime;
                  lastModifiedTime;
                  lastAuthorizedTime
                }
    let error_of_json name json =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConcurrentModificationException e ->
          `Assoc
            [("error", (`String "ConcurrentModificationException"));
            ("details", (ConcurrentModificationException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
        [("ConnectionArn",
           (Option.map x.connectionArn ~f:ConnectionArn.to_value));
        ("ConnectionState",
          (Option.map x.connectionState ~f:ConnectionState.to_value));
        ("CreationTime", (Option.map x.creationTime ~f:Timestamp.to_value));
        ("LastModifiedTime",
          (Option.map x.lastModifiedTime ~f:Timestamp.to_value));
        ("LastAuthorizedTime",
          (Option.map x.lastAuthorizedTime ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastAuthorizedTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastAuthorizedTime") in
      let lastModifiedTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastModifiedTime") in
      let creationTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "CreationTime") in
      let connectionState =
        (Option.map ~f:ConnectionState.of_xml)
          (Xml.child xml_arg0 "ConnectionState") in
      let connectionArn =
        (Option.map ~f:ConnectionArn.of_xml)
          (Xml.child xml_arg0 "ConnectionArn") in
      make ?lastAuthorizedTime ?lastModifiedTime ?creationTime
        ?connectionState ?connectionArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastAuthorizedTime =
        field_map json__ "LastAuthorizedTime" Timestamp.of_json in
      let lastModifiedTime =
        field_map json__ "LastModifiedTime" Timestamp.of_json in
      let creationTime = field_map json__ "CreationTime" Timestamp.of_json in
      let connectionState =
        field_map json__ "ConnectionState" ConnectionState.of_json in
      let connectionArn =
        field_map json__ "ConnectionArn" ConnectionArn.of_json in
      make ?lastAuthorizedTime ?lastModifiedTime ?creationTime
        ?connectionState ?connectionArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes a connection."]
module DeleteConnectionRequest =
  struct
    type nonrec t =
      {
      name: ConnectionName.t
        [@ocaml.doc "The name of the connection to delete."]}
    let context_ = "DeleteConnectionRequest"
    let make ~name = fun () -> { name }
    let to_value x =
      structure_to_value [("Name", (Some (ConnectionName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        ConnectionName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map_exn json__ "Name" ConnectionName.of_json in
      make ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes a connection."]
module DeleteArchiveResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [
        `ConcurrentModificationException of ConcurrentModificationException.t 
      | `InternalException of InternalException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConcurrentModificationException e ->
          `Assoc
            [("error", (`String "ConcurrentModificationException"));
            ("details", (ConcurrentModificationException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes the specified archive."]
module DeleteArchiveRequest =
  struct
    type nonrec t =
      {
      archiveName: ArchiveName.t
        [@ocaml.doc "The name of the archive to delete."]}
    let context_ = "DeleteArchiveRequest"
    let make ~archiveName = fun () -> { archiveName }
    let to_value x =
      structure_to_value
        [("ArchiveName", (Some (ArchiveName.to_value x.archiveName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let archiveName =
        ArchiveName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ArchiveName") in
      make ~archiveName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let archiveName =
        field_map_exn json__ "ArchiveName" ArchiveName.of_json in
      make ~archiveName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes the specified archive."]
module DeleteApiDestinationResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [
        `ConcurrentModificationException of ConcurrentModificationException.t 
      | `InternalException of InternalException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConcurrentModificationException e ->
          `Assoc
            [("error", (`String "ConcurrentModificationException"));
            ("details", (ConcurrentModificationException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes the specified API destination."]
module DeleteApiDestinationRequest =
  struct
    type nonrec t =
      {
      name: ApiDestinationName.t
        [@ocaml.doc "The name of the destination to delete."]}
    let context_ = "DeleteApiDestinationRequest"
    let make ~name = fun () -> { name }
    let to_value x =
      structure_to_value
        [("Name", (Some (ApiDestinationName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        ApiDestinationName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map_exn json__ "Name" ApiDestinationName.of_json in
      make ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes the specified API destination."]
module DeauthorizeConnectionResponse =
  struct
    type nonrec t =
      {
      connectionArn: ConnectionArn.t option
        [@ocaml.doc
          "The ARN of the connection that authorization was removed from."];
      connectionState: ConnectionState.t option
        [@ocaml.doc "The state of the connection."];
      creationTime: Timestamp.t option
        [@ocaml.doc
          "A time stamp for the time that the connection was created."];
      lastModifiedTime: Timestamp.t option
        [@ocaml.doc
          "A time stamp for the time that the connection was last updated."];
      lastAuthorizedTime: Timestamp.t option
        [@ocaml.doc
          "A time stamp for the time that the connection was last authorized."]}
    type nonrec error =
      [
        `ConcurrentModificationException of ConcurrentModificationException.t 
      | `InternalException of InternalException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?connectionArn =
      fun ?connectionState ->
        fun ?creationTime ->
          fun ?lastModifiedTime ->
            fun ?lastAuthorizedTime ->
              fun () ->
                {
                  connectionArn;
                  connectionState;
                  creationTime;
                  lastModifiedTime;
                  lastAuthorizedTime
                }
    let error_of_json name json =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConcurrentModificationException e ->
          `Assoc
            [("error", (`String "ConcurrentModificationException"));
            ("details", (ConcurrentModificationException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
        [("ConnectionArn",
           (Option.map x.connectionArn ~f:ConnectionArn.to_value));
        ("ConnectionState",
          (Option.map x.connectionState ~f:ConnectionState.to_value));
        ("CreationTime", (Option.map x.creationTime ~f:Timestamp.to_value));
        ("LastModifiedTime",
          (Option.map x.lastModifiedTime ~f:Timestamp.to_value));
        ("LastAuthorizedTime",
          (Option.map x.lastAuthorizedTime ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastAuthorizedTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastAuthorizedTime") in
      let lastModifiedTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastModifiedTime") in
      let creationTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "CreationTime") in
      let connectionState =
        (Option.map ~f:ConnectionState.of_xml)
          (Xml.child xml_arg0 "ConnectionState") in
      let connectionArn =
        (Option.map ~f:ConnectionArn.of_xml)
          (Xml.child xml_arg0 "ConnectionArn") in
      make ?lastAuthorizedTime ?lastModifiedTime ?creationTime
        ?connectionState ?connectionArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastAuthorizedTime =
        field_map json__ "LastAuthorizedTime" Timestamp.of_json in
      let lastModifiedTime =
        field_map json__ "LastModifiedTime" Timestamp.of_json in
      let creationTime = field_map json__ "CreationTime" Timestamp.of_json in
      let connectionState =
        field_map json__ "ConnectionState" ConnectionState.of_json in
      let connectionArn =
        field_map json__ "ConnectionArn" ConnectionArn.of_json in
      make ?lastAuthorizedTime ?lastModifiedTime ?creationTime
        ?connectionState ?connectionArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes all authorization parameters from the connection. This lets you remove the secret from the connection so you can reuse it without having to create a new connection."]
module DeauthorizeConnectionRequest =
  struct
    type nonrec t =
      {
      name: ConnectionName.t
        [@ocaml.doc
          "The name of the connection to remove authorization from."]}
    let context_ = "DeauthorizeConnectionRequest"
    let make ~name = fun () -> { name }
    let to_value x =
      structure_to_value [("Name", (Some (ConnectionName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        ConnectionName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map_exn json__ "Name" ConnectionName.of_json in
      make ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes all authorization parameters from the connection. This lets you remove the secret from the connection so you can reuse it without having to create a new connection."]
module DeactivateEventSourceRequest =
  struct
    type nonrec t =
      {
      name: EventSourceName.t
        [@ocaml.doc "The name of the partner event source to deactivate."]}
    let context_ = "DeactivateEventSourceRequest"
    let make ~name = fun () -> { name }
    let to_value x =
      structure_to_value [("Name", (Some (EventSourceName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        EventSourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map_exn json__ "Name" EventSourceName.of_json in
      make ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "You can use this operation to temporarily stop receiving events from the specified partner event source. The matching event bus is not deleted. When you deactivate a partner event source, the source goes into PENDING state. If it remains in PENDING state for more than two weeks, it is deleted. To activate a deactivated partner event source, use ActivateEventSource."]
module CreatePartnerEventSourceResponse =
  struct
    type nonrec t =
      {
      eventSourceArn: String_.t option
        [@ocaml.doc "The ARN of the partner event source."]}
    type nonrec error =
      [
        `ConcurrentModificationException of ConcurrentModificationException.t 
      | `InternalException of InternalException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `OperationDisabledException of OperationDisabledException.t 
      | `ResourceAlreadyExistsException of ResourceAlreadyExistsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?eventSourceArn = fun () -> { eventSourceArn }
    let error_of_json name json =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "OperationDisabledException" ->
          `OperationDisabledException
            (OperationDisabledException.of_json json)
      | "ResourceAlreadyExistsException" ->
          `ResourceAlreadyExistsException
            (ResourceAlreadyExistsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "OperationDisabledException" ->
          `OperationDisabledException (OperationDisabledException.of_xml xml)
      | "ResourceAlreadyExistsException" ->
          `ResourceAlreadyExistsException
            (ResourceAlreadyExistsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConcurrentModificationException e ->
          `Assoc
            [("error", (`String "ConcurrentModificationException"));
            ("details", (ConcurrentModificationException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `OperationDisabledException e ->
          `Assoc
            [("error", (`String "OperationDisabledException"));
            ("details", (OperationDisabledException.to_json e))]
      | `ResourceAlreadyExistsException e ->
          `Assoc
            [("error", (`String "ResourceAlreadyExistsException"));
            ("details", (ResourceAlreadyExistsException.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
        [("EventSourceArn",
           (Option.map x.eventSourceArn ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eventSourceArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "EventSourceArn") in
      make ?eventSourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eventSourceArn = field_map json__ "EventSourceArn" String_.of_json in
      make ?eventSourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Called by an SaaS partner to create a partner event source. This operation is not used by Amazon Web Services customers. Each partner event source can be used by one Amazon Web Services account to create a matching partner event bus in that Amazon Web Services account. A SaaS partner must create one partner event source for each Amazon Web Services account that wants to receive those event types. A partner event source creates events based on resources within the SaaS partner's service or application. An Amazon Web Services account that creates a partner event bus that matches the partner event source can use that event bus to receive events from the partner, and then process them using Amazon Web Services Events rules and targets. Partner event source names follow this format: partner_name/event_namespace/event_name partner_name is determined during partner registration, and identifies the partner to Amazon Web Services customers. event_namespace is determined by the partner, and is a way for the partner to categorize their events. event_name is determined by the partner, and should uniquely identify an event-generating resource within the partner system. The event_name must be unique across all Amazon Web Services customers. This is because the event source is a shared resource between the partner and customer accounts, and each partner event source unique in the partner account. The combination of event_namespace and event_name should help Amazon Web Services customers decide whether to create an event bus to receive these events."]
module CreatePartnerEventSourceRequest =
  struct
    type nonrec t =
      {
      name: EventSourceName.t
        [@ocaml.doc
          "The name of the partner event source. This name must be unique and must be in the format partner_name/event_namespace/event_name . The Amazon Web Services account that wants to use this partner event source must create a partner event bus with a name that matches the name of the partner event source."];
      account: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID that is permitted to create a matching partner event bus for this partner event source."]}
    let context_ = "CreatePartnerEventSourceRequest"
    let make ~name = fun ~account -> fun () -> { name; account }
    let to_value x =
      structure_to_value
        [("Name", (Some (EventSourceName.to_value x.name)));
        ("Account", (Some (AccountId.to_value x.account)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let account =
        AccountId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Account") in
      let name =
        EventSourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~account ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let account = field_map_exn json__ "Account" AccountId.of_json in
      let name = field_map_exn json__ "Name" EventSourceName.of_json in
      make ~account ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Called by an SaaS partner to create a partner event source. This operation is not used by Amazon Web Services customers. Each partner event source can be used by one Amazon Web Services account to create a matching partner event bus in that Amazon Web Services account. A SaaS partner must create one partner event source for each Amazon Web Services account that wants to receive those event types. A partner event source creates events based on resources within the SaaS partner's service or application. An Amazon Web Services account that creates a partner event bus that matches the partner event source can use that event bus to receive events from the partner, and then process them using Amazon Web Services Events rules and targets. Partner event source names follow this format: partner_name/event_namespace/event_name partner_name is determined during partner registration, and identifies the partner to Amazon Web Services customers. event_namespace is determined by the partner, and is a way for the partner to categorize their events. event_name is determined by the partner, and should uniquely identify an event-generating resource within the partner system. The event_name must be unique across all Amazon Web Services customers. This is because the event source is a shared resource between the partner and customer accounts, and each partner event source unique in the partner account. The combination of event_namespace and event_name should help Amazon Web Services customers decide whether to create an event bus to receive these events."]
module CreateEventBusResponse =
  struct
    type nonrec t =
      {
      eventBusArn: String_.t option
        [@ocaml.doc "The ARN of the new event bus."];
      description: EventBusDescription.t option
        [@ocaml.doc "The event bus description."];
      kmsKeyIdentifier: KmsKeyIdentifier.t option
        [@ocaml.doc
          "The identifier of the KMS customer managed key for EventBridge to use to encrypt events on this event bus, if one has been specified. For more information, see Data encryption in EventBridge in the Amazon EventBridge User Guide."];
      deadLetterConfig: DeadLetterConfig.t option ;
      logConfig: LogConfig.t option
        [@ocaml.doc
          "The logging configuration settings for the event bus. For more information, see Configuring logs for event buses in the EventBridge User Guide."]}
    type nonrec error =
      [
        `ConcurrentModificationException of ConcurrentModificationException.t 
      | `InternalException of InternalException.t 
      | `InvalidStateException of InvalidStateException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `OperationDisabledException of OperationDisabledException.t 
      | `ResourceAlreadyExistsException of ResourceAlreadyExistsException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?eventBusArn =
      fun ?description ->
        fun ?kmsKeyIdentifier ->
          fun ?deadLetterConfig ->
            fun ?logConfig ->
              fun () ->
                {
                  eventBusArn;
                  description;
                  kmsKeyIdentifier;
                  deadLetterConfig;
                  logConfig
                }
    let error_of_json name json =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | "InvalidStateException" ->
          `InvalidStateException (InvalidStateException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "OperationDisabledException" ->
          `OperationDisabledException
            (OperationDisabledException.of_json json)
      | "ResourceAlreadyExistsException" ->
          `ResourceAlreadyExistsException
            (ResourceAlreadyExistsException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | "InvalidStateException" ->
          `InvalidStateException (InvalidStateException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "OperationDisabledException" ->
          `OperationDisabledException (OperationDisabledException.of_xml xml)
      | "ResourceAlreadyExistsException" ->
          `ResourceAlreadyExistsException
            (ResourceAlreadyExistsException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConcurrentModificationException e ->
          `Assoc
            [("error", (`String "ConcurrentModificationException"));
            ("details", (ConcurrentModificationException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.to_json e))]
      | `InvalidStateException e ->
          `Assoc
            [("error", (`String "InvalidStateException"));
            ("details", (InvalidStateException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `OperationDisabledException e ->
          `Assoc
            [("error", (`String "OperationDisabledException"));
            ("details", (OperationDisabledException.to_json e))]
      | `ResourceAlreadyExistsException e ->
          `Assoc
            [("error", (`String "ResourceAlreadyExistsException"));
            ("details", (ResourceAlreadyExistsException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
        [("EventBusArn", (Option.map x.eventBusArn ~f:String_.to_value));
        ("Description",
          (Option.map x.description ~f:EventBusDescription.to_value));
        ("KmsKeyIdentifier",
          (Option.map x.kmsKeyIdentifier ~f:KmsKeyIdentifier.to_value));
        ("DeadLetterConfig",
          (Option.map x.deadLetterConfig ~f:DeadLetterConfig.to_value));
        ("LogConfig", (Option.map x.logConfig ~f:LogConfig.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let logConfig =
        (Option.map ~f:LogConfig.of_xml) (Xml.child xml_arg0 "LogConfig") in
      let deadLetterConfig =
        (Option.map ~f:DeadLetterConfig.of_xml)
          (Xml.child xml_arg0 "DeadLetterConfig") in
      let kmsKeyIdentifier =
        (Option.map ~f:KmsKeyIdentifier.of_xml)
          (Xml.child xml_arg0 "KmsKeyIdentifier") in
      let description =
        (Option.map ~f:EventBusDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let eventBusArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "EventBusArn") in
      make ?logConfig ?deadLetterConfig ?kmsKeyIdentifier ?description
        ?eventBusArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let logConfig = field_map json__ "LogConfig" LogConfig.of_json in
      let deadLetterConfig =
        field_map json__ "DeadLetterConfig" DeadLetterConfig.of_json in
      let kmsKeyIdentifier =
        field_map json__ "KmsKeyIdentifier" KmsKeyIdentifier.of_json in
      let description =
        field_map json__ "Description" EventBusDescription.of_json in
      let eventBusArn = field_map json__ "EventBusArn" String_.of_json in
      make ?logConfig ?deadLetterConfig ?kmsKeyIdentifier ?description
        ?eventBusArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new event bus within your account. This can be a custom event bus which you can use to receive events from your custom applications and services, or it can be a partner event bus which can be matched to a partner event source."]
module CreateEventBusRequest =
  struct
    type nonrec t =
      {
      name: EventBusName.t
        [@ocaml.doc
          "The name of the new event bus. Custom event bus names can't contain the / character, but you can use the / character in partner event bus names. In addition, for partner event buses, the name must exactly match the name of the partner event source that this event bus is matched to. You can't use the name default for a custom event bus, as this name is already used for your account's default event bus."];
      eventSourceName: EventSourceName.t option
        [@ocaml.doc
          "If you are creating a partner event bus, this specifies the partner event source that the new event bus will be matched with."];
      description: EventBusDescription.t option
        [@ocaml.doc "The event bus description."];
      kmsKeyIdentifier: KmsKeyIdentifier.t option
        [@ocaml.doc
          "The identifier of the KMS customer managed key for EventBridge to use, if you choose to use a customer managed key to encrypt events on this event bus. The identifier can be the key Amazon Resource Name (ARN), KeyId, key alias, or key alias ARN. If you do not specify a customer managed key identifier, EventBridge uses an Amazon Web Services owned key to encrypt events on the event bus. For more information, see Identify and view keys in the Key Management Service Developer Guide. Schema discovery is not supported for event buses encrypted using a customer managed key. EventBridge returns an error if: You call CreateDiscoverer on an event bus set to use a customer managed key for encryption. You call UpdatedEventBus to set a customer managed key on an event bus with schema discovery enabled. To enable schema discovery on an event bus, choose to use an Amazon Web Services owned key. For more information, see Encrypting events in the Amazon EventBridge User Guide. If you have specified that EventBridge use a customer managed key for encrypting the source event bus, we strongly recommend you also specify a customer managed key for any archives for the event bus as well. For more information, see Encrypting archives in the Amazon EventBridge User Guide."];
      deadLetterConfig: DeadLetterConfig.t option ;
      logConfig: LogConfig.t option
        [@ocaml.doc
          "The logging configuration settings for the event bus. For more information, see Configuring logs for event buses in the EventBridge User Guide."];
      tags: TagList.t option
        [@ocaml.doc "Tags to associate with the event bus."]}
    let context_ = "CreateEventBusRequest"
    let make ?eventSourceName =
      fun ?description ->
        fun ?kmsKeyIdentifier ->
          fun ?deadLetterConfig ->
            fun ?logConfig ->
              fun ?tags ->
                fun ~name ->
                  fun () ->
                    {
                      eventSourceName;
                      description;
                      kmsKeyIdentifier;
                      deadLetterConfig;
                      logConfig;
                      tags;
                      name
                    }
    let to_value x =
      structure_to_value
        [("Name", (Some (EventBusName.to_value x.name)));
        ("EventSourceName",
          (Option.map x.eventSourceName ~f:EventSourceName.to_value));
        ("Description",
          (Option.map x.description ~f:EventBusDescription.to_value));
        ("KmsKeyIdentifier",
          (Option.map x.kmsKeyIdentifier ~f:KmsKeyIdentifier.to_value));
        ("DeadLetterConfig",
          (Option.map x.deadLetterConfig ~f:DeadLetterConfig.to_value));
        ("LogConfig", (Option.map x.logConfig ~f:LogConfig.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let logConfig =
        (Option.map ~f:LogConfig.of_xml) (Xml.child xml_arg0 "LogConfig") in
      let deadLetterConfig =
        (Option.map ~f:DeadLetterConfig.of_xml)
          (Xml.child xml_arg0 "DeadLetterConfig") in
      let kmsKeyIdentifier =
        (Option.map ~f:KmsKeyIdentifier.of_xml)
          (Xml.child xml_arg0 "KmsKeyIdentifier") in
      let description =
        (Option.map ~f:EventBusDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let eventSourceName =
        (Option.map ~f:EventSourceName.of_xml)
          (Xml.child xml_arg0 "EventSourceName") in
      let name =
        EventBusName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ?tags ?logConfig ?deadLetterConfig ?kmsKeyIdentifier ?description
        ?eventSourceName ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagList.of_json in
      let logConfig = field_map json__ "LogConfig" LogConfig.of_json in
      let deadLetterConfig =
        field_map json__ "DeadLetterConfig" DeadLetterConfig.of_json in
      let kmsKeyIdentifier =
        field_map json__ "KmsKeyIdentifier" KmsKeyIdentifier.of_json in
      let description =
        field_map json__ "Description" EventBusDescription.of_json in
      let eventSourceName =
        field_map json__ "EventSourceName" EventSourceName.of_json in
      let name = field_map_exn json__ "Name" EventBusName.of_json in
      make ?tags ?logConfig ?deadLetterConfig ?kmsKeyIdentifier ?description
        ?eventSourceName ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new event bus within your account. This can be a custom event bus which you can use to receive events from your custom applications and services, or it can be a partner event bus which can be matched to a partner event source."]
module CreateEndpointResponse =
  struct
    type nonrec t =
      {
      name: EndpointName.t option
        [@ocaml.doc
          "The name of the endpoint that was created by this request."];
      arn: EndpointArn.t option
        [@ocaml.doc
          "The ARN of the endpoint that was created by this request."];
      routingConfig: RoutingConfig.t option
        [@ocaml.doc "The routing configuration defined by this request."];
      replicationConfig: ReplicationConfig.t option
        [@ocaml.doc
          "Whether event replication was enabled or disabled by this request."];
      eventBuses: EndpointEventBusList.t option
        [@ocaml.doc "The event buses used by this request."];
      roleArn: IamRoleArn.t option
        [@ocaml.doc
          "The ARN of the role used by event replication for this request."];
      state: EndpointState.t option
        [@ocaml.doc
          "The state of the endpoint that was created by this request."]}
    type nonrec error =
      [ `InternalException of InternalException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceAlreadyExistsException of ResourceAlreadyExistsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?name =
      fun ?arn ->
        fun ?routingConfig ->
          fun ?replicationConfig ->
            fun ?eventBuses ->
              fun ?roleArn ->
                fun ?state ->
                  fun () ->
                    {
                      name;
                      arn;
                      routingConfig;
                      replicationConfig;
                      eventBuses;
                      roleArn;
                      state
                    }
    let error_of_json name json =
      match name with
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceAlreadyExistsException" ->
          `ResourceAlreadyExistsException
            (ResourceAlreadyExistsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceAlreadyExistsException" ->
          `ResourceAlreadyExistsException
            (ResourceAlreadyExistsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceAlreadyExistsException e ->
          `Assoc
            [("error", (`String "ResourceAlreadyExistsException"));
            ("details", (ResourceAlreadyExistsException.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
        [("Name", (Option.map x.name ~f:EndpointName.to_value));
        ("Arn", (Option.map x.arn ~f:EndpointArn.to_value));
        ("RoutingConfig",
          (Option.map x.routingConfig ~f:RoutingConfig.to_value));
        ("ReplicationConfig",
          (Option.map x.replicationConfig ~f:ReplicationConfig.to_value));
        ("EventBuses",
          (Option.map x.eventBuses ~f:EndpointEventBusList.to_value));
        ("RoleArn", (Option.map x.roleArn ~f:IamRoleArn.to_value));
        ("State", (Option.map x.state ~f:EndpointState.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let state =
        (Option.map ~f:EndpointState.of_xml) (Xml.child xml_arg0 "State") in
      let roleArn =
        (Option.map ~f:IamRoleArn.of_xml) (Xml.child xml_arg0 "RoleArn") in
      let eventBuses =
        (Option.map ~f:EndpointEventBusList.of_xml)
          (Xml.child xml_arg0 "EventBuses") in
      let replicationConfig =
        (Option.map ~f:ReplicationConfig.of_xml)
          (Xml.child xml_arg0 "ReplicationConfig") in
      let routingConfig =
        (Option.map ~f:RoutingConfig.of_xml)
          (Xml.child xml_arg0 "RoutingConfig") in
      let arn = (Option.map ~f:EndpointArn.of_xml) (Xml.child xml_arg0 "Arn") in
      let name =
        (Option.map ~f:EndpointName.of_xml) (Xml.child xml_arg0 "Name") in
      make ?state ?roleArn ?eventBuses ?replicationConfig ?routingConfig ?arn
        ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let state = field_map json__ "State" EndpointState.of_json in
      let roleArn = field_map json__ "RoleArn" IamRoleArn.of_json in
      let eventBuses =
        field_map json__ "EventBuses" EndpointEventBusList.of_json in
      let replicationConfig =
        field_map json__ "ReplicationConfig" ReplicationConfig.of_json in
      let routingConfig =
        field_map json__ "RoutingConfig" RoutingConfig.of_json in
      let arn = field_map json__ "Arn" EndpointArn.of_json in
      let name = field_map json__ "Name" EndpointName.of_json in
      make ?state ?roleArn ?eventBuses ?replicationConfig ?routingConfig ?arn
        ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a global endpoint. Global endpoints improve your application's availability by making it regional-fault tolerant. To do this, you define a primary and secondary Region with event buses in each Region. You also create a Amazon Route\194\16053 health check that will tell EventBridge to route events to the secondary Region when an \"unhealthy\" state is encountered and events will be routed back to the primary Region when the health check reports a \"healthy\" state."]
module CreateEndpointRequest =
  struct
    type nonrec t =
      {
      name: EndpointName.t
        [@ocaml.doc
          "The name of the global endpoint. For example, \"Name\":\"us-east-2-custom_bus_A-endpoint\"."];
      description: EndpointDescription.t option
        [@ocaml.doc "A description of the global endpoint."];
      routingConfig: RoutingConfig.t
        [@ocaml.doc
          "Configure the routing policy, including the health check and secondary Region.."];
      replicationConfig: ReplicationConfig.t option
        [@ocaml.doc
          "Enable or disable event replication. The default state is ENABLED which means you must supply a RoleArn. If you don't have a RoleArn or you don't want event replication enabled, set the state to DISABLED."];
      eventBuses: EndpointEventBusList.t
        [@ocaml.doc
          "Define the event buses used. The names of the event buses must be identical in each Region."];
      roleArn: IamRoleArn.t option
        [@ocaml.doc "The ARN of the role used for replication."]}
    let context_ = "CreateEndpointRequest"
    let make ?description =
      fun ?replicationConfig ->
        fun ?roleArn ->
          fun ~name ->
            fun ~routingConfig ->
              fun ~eventBuses ->
                fun () ->
                  {
                    description;
                    replicationConfig;
                    roleArn;
                    name;
                    routingConfig;
                    eventBuses
                  }
    let to_value x =
      structure_to_value
        [("Name", (Some (EndpointName.to_value x.name)));
        ("Description",
          (Option.map x.description ~f:EndpointDescription.to_value));
        ("RoutingConfig", (Some (RoutingConfig.to_value x.routingConfig)));
        ("ReplicationConfig",
          (Option.map x.replicationConfig ~f:ReplicationConfig.to_value));
        ("EventBuses", (Some (EndpointEventBusList.to_value x.eventBuses)));
        ("RoleArn", (Option.map x.roleArn ~f:IamRoleArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let roleArn =
        (Option.map ~f:IamRoleArn.of_xml) (Xml.child xml_arg0 "RoleArn") in
      let eventBuses =
        EndpointEventBusList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EventBuses") in
      let replicationConfig =
        (Option.map ~f:ReplicationConfig.of_xml)
          (Xml.child xml_arg0 "ReplicationConfig") in
      let routingConfig =
        RoutingConfig.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RoutingConfig") in
      let description =
        (Option.map ~f:EndpointDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let name =
        EndpointName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ?roleArn ~eventBuses ?replicationConfig ~routingConfig
        ?description ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let roleArn = field_map json__ "RoleArn" IamRoleArn.of_json in
      let eventBuses =
        field_map_exn json__ "EventBuses" EndpointEventBusList.of_json in
      let replicationConfig =
        field_map json__ "ReplicationConfig" ReplicationConfig.of_json in
      let routingConfig =
        field_map_exn json__ "RoutingConfig" RoutingConfig.of_json in
      let description =
        field_map json__ "Description" EndpointDescription.of_json in
      let name = field_map_exn json__ "Name" EndpointName.of_json in
      make ?roleArn ~eventBuses ?replicationConfig ~routingConfig
        ?description ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a global endpoint. Global endpoints improve your application's availability by making it regional-fault tolerant. To do this, you define a primary and secondary Region with event buses in each Region. You also create a Amazon Route\194\16053 health check that will tell EventBridge to route events to the secondary Region when an \"unhealthy\" state is encountered and events will be routed back to the primary Region when the health check reports a \"healthy\" state."]
module CreateConnectionResponse =
  struct
    type nonrec t =
      {
      connectionArn: ConnectionArn.t option
        [@ocaml.doc
          "The ARN of the connection that was created by the request."];
      connectionState: ConnectionState.t option
        [@ocaml.doc
          "The state of the connection that was created by the request."];
      creationTime: Timestamp.t option
        [@ocaml.doc
          "A time stamp for the time that the connection was created."];
      lastModifiedTime: Timestamp.t option
        [@ocaml.doc
          "A time stamp for the time that the connection was last updated."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalException of InternalException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceAlreadyExistsException of ResourceAlreadyExistsException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?connectionArn =
      fun ?connectionState ->
        fun ?creationTime ->
          fun ?lastModifiedTime ->
            fun () ->
              {
                connectionArn;
                connectionState;
                creationTime;
                lastModifiedTime
              }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceAlreadyExistsException" ->
          `ResourceAlreadyExistsException
            (ResourceAlreadyExistsException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceAlreadyExistsException" ->
          `ResourceAlreadyExistsException
            (ResourceAlreadyExistsException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceAlreadyExistsException e ->
          `Assoc
            [("error", (`String "ResourceAlreadyExistsException"));
            ("details", (ResourceAlreadyExistsException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ConnectionArn",
           (Option.map x.connectionArn ~f:ConnectionArn.to_value));
        ("ConnectionState",
          (Option.map x.connectionState ~f:ConnectionState.to_value));
        ("CreationTime", (Option.map x.creationTime ~f:Timestamp.to_value));
        ("LastModifiedTime",
          (Option.map x.lastModifiedTime ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastModifiedTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastModifiedTime") in
      let creationTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "CreationTime") in
      let connectionState =
        (Option.map ~f:ConnectionState.of_xml)
          (Xml.child xml_arg0 "ConnectionState") in
      let connectionArn =
        (Option.map ~f:ConnectionArn.of_xml)
          (Xml.child xml_arg0 "ConnectionArn") in
      make ?lastModifiedTime ?creationTime ?connectionState ?connectionArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastModifiedTime =
        field_map json__ "LastModifiedTime" Timestamp.of_json in
      let creationTime = field_map json__ "CreationTime" Timestamp.of_json in
      let connectionState =
        field_map json__ "ConnectionState" ConnectionState.of_json in
      let connectionArn =
        field_map json__ "ConnectionArn" ConnectionArn.of_json in
      make ?lastModifiedTime ?creationTime ?connectionState ?connectionArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a connection. A connection defines the authorization type and credentials to use for authorization with an API destination HTTP endpoint. For more information, see Connections for endpoint targets in the Amazon EventBridge User Guide."]
module CreateConnectionRequest =
  struct
    type nonrec t =
      {
      name: ConnectionName.t
        [@ocaml.doc "The name for the connection to create."];
      description: ConnectionDescription.t option
        [@ocaml.doc "A description for the connection to create."];
      authorizationType: ConnectionAuthorizationType.t
        [@ocaml.doc
          "The type of authorization to use for the connection. OAUTH tokens are refreshed when a 401 or 407 response is returned."];
      authParameters: CreateConnectionAuthRequestParameters.t
        [@ocaml.doc
          "The authorization parameters to use to authorize with the endpoint. You must include only authorization parameters for the AuthorizationType you specify."];
      invocationConnectivityParameters:
        ConnectivityResourceParameters.t option
        [@ocaml.doc
          "For connections to private APIs, the parameters to use for invoking the API. For more information, see Connecting to private APIs in the Amazon EventBridge User Guide ."];
      kmsKeyIdentifier: KmsKeyIdentifier.t option
        [@ocaml.doc
          "The identifier of the KMS customer managed key for EventBridge to use, if you choose to use a customer managed key to encrypt this connection. The identifier can be the key Amazon Resource Name (ARN), KeyId, key alias, or key alias ARN. If you do not specify a customer managed key identifier, EventBridge uses an Amazon Web Services owned key to encrypt the connection. For more information, see Identify and view keys in the Key Management Service Developer Guide."]}
    let context_ = "CreateConnectionRequest"
    let make ?description =
      fun ?invocationConnectivityParameters ->
        fun ?kmsKeyIdentifier ->
          fun ~name ->
            fun ~authorizationType ->
              fun ~authParameters ->
                fun () ->
                  {
                    description;
                    invocationConnectivityParameters;
                    kmsKeyIdentifier;
                    name;
                    authorizationType;
                    authParameters
                  }
    let to_value x =
      structure_to_value
        [("Name", (Some (ConnectionName.to_value x.name)));
        ("Description",
          (Option.map x.description ~f:ConnectionDescription.to_value));
        ("AuthorizationType",
          (Some (ConnectionAuthorizationType.to_value x.authorizationType)));
        ("AuthParameters",
          (Some
             (CreateConnectionAuthRequestParameters.to_value x.authParameters)));
        ("InvocationConnectivityParameters",
          (Option.map x.invocationConnectivityParameters
             ~f:ConnectivityResourceParameters.to_value));
        ("KmsKeyIdentifier",
          (Option.map x.kmsKeyIdentifier ~f:KmsKeyIdentifier.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let kmsKeyIdentifier =
        (Option.map ~f:KmsKeyIdentifier.of_xml)
          (Xml.child xml_arg0 "KmsKeyIdentifier") in
      let invocationConnectivityParameters =
        (Option.map ~f:ConnectivityResourceParameters.of_xml)
          (Xml.child xml_arg0 "InvocationConnectivityParameters") in
      let authParameters =
        CreateConnectionAuthRequestParameters.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AuthParameters") in
      let authorizationType =
        ConnectionAuthorizationType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AuthorizationType") in
      let description =
        (Option.map ~f:ConnectionDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let name =
        ConnectionName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ?kmsKeyIdentifier ?invocationConnectivityParameters
        ~authParameters ~authorizationType ?description ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let kmsKeyIdentifier =
        field_map json__ "KmsKeyIdentifier" KmsKeyIdentifier.of_json in
      let invocationConnectivityParameters =
        field_map json__ "InvocationConnectivityParameters"
          ConnectivityResourceParameters.of_json in
      let authParameters =
        field_map_exn json__ "AuthParameters"
          CreateConnectionAuthRequestParameters.of_json in
      let authorizationType =
        field_map_exn json__ "AuthorizationType"
          ConnectionAuthorizationType.of_json in
      let description =
        field_map json__ "Description" ConnectionDescription.of_json in
      let name = field_map_exn json__ "Name" ConnectionName.of_json in
      make ?kmsKeyIdentifier ?invocationConnectivityParameters
        ~authParameters ~authorizationType ?description ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a connection. A connection defines the authorization type and credentials to use for authorization with an API destination HTTP endpoint. For more information, see Connections for endpoint targets in the Amazon EventBridge User Guide."]
module CreateArchiveResponse =
  struct
    type nonrec t =
      {
      archiveArn: ArchiveArn.t option
        [@ocaml.doc "The ARN of the archive that was created."];
      state: ArchiveState.t option
        [@ocaml.doc "The state of the archive that was created."];
      stateReason: ArchiveStateReason.t option
        [@ocaml.doc "The reason that the archive is in the state."];
      creationTime: Timestamp.t option
        [@ocaml.doc "The time at which the archive was created."]}
    type nonrec error =
      [
        `ConcurrentModificationException of ConcurrentModificationException.t 
      | `InternalException of InternalException.t 
      | `InvalidEventPatternException of InvalidEventPatternException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceAlreadyExistsException of ResourceAlreadyExistsException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?archiveArn =
      fun ?state ->
        fun ?stateReason ->
          fun ?creationTime ->
            fun () -> { archiveArn; state; stateReason; creationTime }
    let error_of_json name json =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | "InvalidEventPatternException" ->
          `InvalidEventPatternException
            (InvalidEventPatternException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceAlreadyExistsException" ->
          `ResourceAlreadyExistsException
            (ResourceAlreadyExistsException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | "InvalidEventPatternException" ->
          `InvalidEventPatternException
            (InvalidEventPatternException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceAlreadyExistsException" ->
          `ResourceAlreadyExistsException
            (ResourceAlreadyExistsException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConcurrentModificationException e ->
          `Assoc
            [("error", (`String "ConcurrentModificationException"));
            ("details", (ConcurrentModificationException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.to_json e))]
      | `InvalidEventPatternException e ->
          `Assoc
            [("error", (`String "InvalidEventPatternException"));
            ("details", (InvalidEventPatternException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceAlreadyExistsException e ->
          `Assoc
            [("error", (`String "ResourceAlreadyExistsException"));
            ("details", (ResourceAlreadyExistsException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
        [("ArchiveArn", (Option.map x.archiveArn ~f:ArchiveArn.to_value));
        ("State", (Option.map x.state ~f:ArchiveState.to_value));
        ("StateReason",
          (Option.map x.stateReason ~f:ArchiveStateReason.to_value));
        ("CreationTime", (Option.map x.creationTime ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let creationTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "CreationTime") in
      let stateReason =
        (Option.map ~f:ArchiveStateReason.of_xml)
          (Xml.child xml_arg0 "StateReason") in
      let state =
        (Option.map ~f:ArchiveState.of_xml) (Xml.child xml_arg0 "State") in
      let archiveArn =
        (Option.map ~f:ArchiveArn.of_xml) (Xml.child xml_arg0 "ArchiveArn") in
      make ?creationTime ?stateReason ?state ?archiveArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let creationTime = field_map json__ "CreationTime" Timestamp.of_json in
      let stateReason =
        field_map json__ "StateReason" ArchiveStateReason.of_json in
      let state = field_map json__ "State" ArchiveState.of_json in
      let archiveArn = field_map json__ "ArchiveArn" ArchiveArn.of_json in
      make ?creationTime ?stateReason ?state ?archiveArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an archive of events with the specified settings. When you create an archive, incoming events might not immediately start being sent to the archive. Allow a short period of time for changes to take effect. If you do not specify a pattern to filter events sent to the archive, all events are sent to the archive except replayed events. Replayed events are not sent to an archive. If you have specified that EventBridge use a customer managed key for encrypting the source event bus, we strongly recommend you also specify a customer managed key for any archives for the event bus as well. For more information, see Encrypting archives in the Amazon EventBridge User Guide."]
module CreateArchiveRequest =
  struct
    type nonrec t =
      {
      archiveName: ArchiveName.t
        [@ocaml.doc "The name for the archive to create."];
      eventSourceArn: EventBusArn.t
        [@ocaml.doc
          "The ARN of the event bus that sends events to the archive."];
      description: ArchiveDescription.t option
        [@ocaml.doc "A description for the archive."];
      eventPattern: EventPattern.t option
        [@ocaml.doc
          "An event pattern to use to filter events sent to the archive."];
      retentionDays: RetentionDays.t option
        [@ocaml.doc
          "The number of days to retain events for. Default value is 0. If set to 0, events are retained indefinitely"];
      kmsKeyIdentifier: KmsKeyIdentifier.t option
        [@ocaml.doc
          "The identifier of the KMS customer managed key for EventBridge to use, if you choose to use a customer managed key to encrypt this archive. The identifier can be the key Amazon Resource Name (ARN), KeyId, key alias, or key alias ARN. If you do not specify a customer managed key identifier, EventBridge uses an Amazon Web Services owned key to encrypt the archive. For more information, see Identify and view keys in the Key Management Service Developer Guide. If you have specified that EventBridge use a customer managed key for encrypting the source event bus, we strongly recommend you also specify a customer managed key for any archives for the event bus as well. For more information, see Encrypting archives in the Amazon EventBridge User Guide."]}
    let context_ = "CreateArchiveRequest"
    let make ?description =
      fun ?eventPattern ->
        fun ?retentionDays ->
          fun ?kmsKeyIdentifier ->
            fun ~archiveName ->
              fun ~eventSourceArn ->
                fun () ->
                  {
                    description;
                    eventPattern;
                    retentionDays;
                    kmsKeyIdentifier;
                    archiveName;
                    eventSourceArn
                  }
    let to_value x =
      structure_to_value
        [("ArchiveName", (Some (ArchiveName.to_value x.archiveName)));
        ("EventSourceArn", (Some (EventBusArn.to_value x.eventSourceArn)));
        ("Description",
          (Option.map x.description ~f:ArchiveDescription.to_value));
        ("EventPattern",
          (Option.map x.eventPattern ~f:EventPattern.to_value));
        ("RetentionDays",
          (Option.map x.retentionDays ~f:RetentionDays.to_value));
        ("KmsKeyIdentifier",
          (Option.map x.kmsKeyIdentifier ~f:KmsKeyIdentifier.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let kmsKeyIdentifier =
        (Option.map ~f:KmsKeyIdentifier.of_xml)
          (Xml.child xml_arg0 "KmsKeyIdentifier") in
      let retentionDays =
        (Option.map ~f:RetentionDays.of_xml)
          (Xml.child xml_arg0 "RetentionDays") in
      let eventPattern =
        (Option.map ~f:EventPattern.of_xml)
          (Xml.child xml_arg0 "EventPattern") in
      let description =
        (Option.map ~f:ArchiveDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let eventSourceArn =
        EventBusArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EventSourceArn") in
      let archiveName =
        ArchiveName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ArchiveName") in
      make ?kmsKeyIdentifier ?retentionDays ?eventPattern ?description
        ~eventSourceArn ~archiveName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let kmsKeyIdentifier =
        field_map json__ "KmsKeyIdentifier" KmsKeyIdentifier.of_json in
      let retentionDays =
        field_map json__ "RetentionDays" RetentionDays.of_json in
      let eventPattern = field_map json__ "EventPattern" EventPattern.of_json in
      let description =
        field_map json__ "Description" ArchiveDescription.of_json in
      let eventSourceArn =
        field_map_exn json__ "EventSourceArn" EventBusArn.of_json in
      let archiveName =
        field_map_exn json__ "ArchiveName" ArchiveName.of_json in
      make ?kmsKeyIdentifier ?retentionDays ?eventPattern ?description
        ~eventSourceArn ~archiveName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an archive of events with the specified settings. When you create an archive, incoming events might not immediately start being sent to the archive. Allow a short period of time for changes to take effect. If you do not specify a pattern to filter events sent to the archive, all events are sent to the archive except replayed events. Replayed events are not sent to an archive. If you have specified that EventBridge use a customer managed key for encrypting the source event bus, we strongly recommend you also specify a customer managed key for any archives for the event bus as well. For more information, see Encrypting archives in the Amazon EventBridge User Guide."]
module CreateApiDestinationResponse =
  struct
    type nonrec t =
      {
      apiDestinationArn: ApiDestinationArn.t option
        [@ocaml.doc
          "The ARN of the API destination that was created by the request."];
      apiDestinationState: ApiDestinationState.t option
        [@ocaml.doc
          "The state of the API destination that was created by the request."];
      creationTime: Timestamp.t option
        [@ocaml.doc
          "A time stamp indicating the time that the API destination was created."];
      lastModifiedTime: Timestamp.t option
        [@ocaml.doc
          "A time stamp indicating the time that the API destination was last modified."]}
    type nonrec error =
      [ `InternalException of InternalException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceAlreadyExistsException of ResourceAlreadyExistsException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?apiDestinationArn =
      fun ?apiDestinationState ->
        fun ?creationTime ->
          fun ?lastModifiedTime ->
            fun () ->
              {
                apiDestinationArn;
                apiDestinationState;
                creationTime;
                lastModifiedTime
              }
    let error_of_json name json =
      match name with
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceAlreadyExistsException" ->
          `ResourceAlreadyExistsException
            (ResourceAlreadyExistsException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceAlreadyExistsException" ->
          `ResourceAlreadyExistsException
            (ResourceAlreadyExistsException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceAlreadyExistsException e ->
          `Assoc
            [("error", (`String "ResourceAlreadyExistsException"));
            ("details", (ResourceAlreadyExistsException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
        [("ApiDestinationArn",
           (Option.map x.apiDestinationArn ~f:ApiDestinationArn.to_value));
        ("ApiDestinationState",
          (Option.map x.apiDestinationState ~f:ApiDestinationState.to_value));
        ("CreationTime", (Option.map x.creationTime ~f:Timestamp.to_value));
        ("LastModifiedTime",
          (Option.map x.lastModifiedTime ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastModifiedTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastModifiedTime") in
      let creationTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "CreationTime") in
      let apiDestinationState =
        (Option.map ~f:ApiDestinationState.of_xml)
          (Xml.child xml_arg0 "ApiDestinationState") in
      let apiDestinationArn =
        (Option.map ~f:ApiDestinationArn.of_xml)
          (Xml.child xml_arg0 "ApiDestinationArn") in
      make ?lastModifiedTime ?creationTime ?apiDestinationState
        ?apiDestinationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastModifiedTime =
        field_map json__ "LastModifiedTime" Timestamp.of_json in
      let creationTime = field_map json__ "CreationTime" Timestamp.of_json in
      let apiDestinationState =
        field_map json__ "ApiDestinationState" ApiDestinationState.of_json in
      let apiDestinationArn =
        field_map json__ "ApiDestinationArn" ApiDestinationArn.of_json in
      make ?lastModifiedTime ?creationTime ?apiDestinationState
        ?apiDestinationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an API destination, which is an HTTP invocation endpoint configured as a target for events. API destinations do not support private destinations, such as interface VPC endpoints. For more information, see API destinations in the EventBridge User Guide."]
module CreateApiDestinationRequest =
  struct
    type nonrec t =
      {
      name: ApiDestinationName.t
        [@ocaml.doc "The name for the API destination to create."];
      description: ApiDestinationDescription.t option
        [@ocaml.doc "A description for the API destination to create."];
      connectionArn: ConnectionArn.t
        [@ocaml.doc
          "The ARN of the connection to use for the API destination. The destination endpoint must support the authorization type specified for the connection."];
      invocationEndpoint: HttpsEndpoint.t
        [@ocaml.doc
          "The URL to the HTTP invocation endpoint for the API destination."];
      httpMethod: ApiDestinationHttpMethod.t
        [@ocaml.doc
          "The method to use for the request to the HTTP invocation endpoint."];
      invocationRateLimitPerSecond:
        ApiDestinationInvocationRateLimitPerSecond.t option
        [@ocaml.doc
          "The maximum number of requests per second to send to the HTTP invocation endpoint."]}
    let context_ = "CreateApiDestinationRequest"
    let make ?description =
      fun ?invocationRateLimitPerSecond ->
        fun ~name ->
          fun ~connectionArn ->
            fun ~invocationEndpoint ->
              fun ~httpMethod ->
                fun () ->
                  {
                    description;
                    invocationRateLimitPerSecond;
                    name;
                    connectionArn;
                    invocationEndpoint;
                    httpMethod
                  }
    let to_value x =
      structure_to_value
        [("Name", (Some (ApiDestinationName.to_value x.name)));
        ("Description",
          (Option.map x.description ~f:ApiDestinationDescription.to_value));
        ("ConnectionArn", (Some (ConnectionArn.to_value x.connectionArn)));
        ("InvocationEndpoint",
          (Some (HttpsEndpoint.to_value x.invocationEndpoint)));
        ("HttpMethod",
          (Some (ApiDestinationHttpMethod.to_value x.httpMethod)));
        ("InvocationRateLimitPerSecond",
          (Option.map x.invocationRateLimitPerSecond
             ~f:ApiDestinationInvocationRateLimitPerSecond.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let invocationRateLimitPerSecond =
        (Option.map ~f:ApiDestinationInvocationRateLimitPerSecond.of_xml)
          (Xml.child xml_arg0 "InvocationRateLimitPerSecond") in
      let httpMethod =
        ApiDestinationHttpMethod.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "HttpMethod") in
      let invocationEndpoint =
        HttpsEndpoint.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "InvocationEndpoint") in
      let connectionArn =
        ConnectionArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ConnectionArn") in
      let description =
        (Option.map ~f:ApiDestinationDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let name =
        ApiDestinationName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ?invocationRateLimitPerSecond ~httpMethod ~invocationEndpoint
        ~connectionArn ?description ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let invocationRateLimitPerSecond =
        field_map json__ "InvocationRateLimitPerSecond"
          ApiDestinationInvocationRateLimitPerSecond.of_json in
      let httpMethod =
        field_map_exn json__ "HttpMethod" ApiDestinationHttpMethod.of_json in
      let invocationEndpoint =
        field_map_exn json__ "InvocationEndpoint" HttpsEndpoint.of_json in
      let connectionArn =
        field_map_exn json__ "ConnectionArn" ConnectionArn.of_json in
      let description =
        field_map json__ "Description" ApiDestinationDescription.of_json in
      let name = field_map_exn json__ "Name" ApiDestinationName.of_json in
      make ?invocationRateLimitPerSecond ~httpMethod ~invocationEndpoint
        ~connectionArn ?description ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an API destination, which is an HTTP invocation endpoint configured as a target for events. API destinations do not support private destinations, such as interface VPC endpoints. For more information, see API destinations in the EventBridge User Guide."]
module CancelReplayResponse =
  struct
    type nonrec t =
      {
      replayArn: ReplayArn.t option
        [@ocaml.doc "The ARN of the replay to cancel."];
      state: ReplayState.t option
        [@ocaml.doc "The current state of the replay."];
      stateReason: ReplayStateReason.t option
        [@ocaml.doc "The reason that the replay is in the current state."]}
    type nonrec error =
      [
        `ConcurrentModificationException of ConcurrentModificationException.t 
      | `IllegalStatusException of IllegalStatusException.t 
      | `InternalException of InternalException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?replayArn =
      fun ?state ->
        fun ?stateReason -> fun () -> { replayArn; state; stateReason }
    let error_of_json name json =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_json json)
      | "IllegalStatusException" ->
          `IllegalStatusException (IllegalStatusException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_xml xml)
      | "IllegalStatusException" ->
          `IllegalStatusException (IllegalStatusException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConcurrentModificationException e ->
          `Assoc
            [("error", (`String "ConcurrentModificationException"));
            ("details", (ConcurrentModificationException.to_json e))]
      | `IllegalStatusException e ->
          `Assoc
            [("error", (`String "IllegalStatusException"));
            ("details", (IllegalStatusException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
        [("ReplayArn", (Option.map x.replayArn ~f:ReplayArn.to_value));
        ("State", (Option.map x.state ~f:ReplayState.to_value));
        ("StateReason",
          (Option.map x.stateReason ~f:ReplayStateReason.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let stateReason =
        (Option.map ~f:ReplayStateReason.of_xml)
          (Xml.child xml_arg0 "StateReason") in
      let state =
        (Option.map ~f:ReplayState.of_xml) (Xml.child xml_arg0 "State") in
      let replayArn =
        (Option.map ~f:ReplayArn.of_xml) (Xml.child xml_arg0 "ReplayArn") in
      make ?stateReason ?state ?replayArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let stateReason =
        field_map json__ "StateReason" ReplayStateReason.of_json in
      let state = field_map json__ "State" ReplayState.of_json in
      let replayArn = field_map json__ "ReplayArn" ReplayArn.of_json in
      make ?stateReason ?state ?replayArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Cancels the specified replay."]
module CancelReplayRequest =
  struct
    type nonrec t =
      {
      replayName: ReplayName.t
        [@ocaml.doc "The name of the replay to cancel."]}
    let context_ = "CancelReplayRequest"
    let make ~replayName = fun () -> { replayName }
    let to_value x =
      structure_to_value
        [("ReplayName", (Some (ReplayName.to_value x.replayName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let replayName =
        ReplayName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ReplayName") in
      make ~replayName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let replayName = field_map_exn json__ "ReplayName" ReplayName.of_json in
      make ~replayName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Cancels the specified replay."]
module ActivateEventSourceRequest =
  struct
    type nonrec t =
      {
      name: EventSourceName.t
        [@ocaml.doc "The name of the partner event source to activate."]}
    let context_ = "ActivateEventSourceRequest"
    let make ~name = fun () -> { name }
    let to_value x =
      structure_to_value [("Name", (Some (EventSourceName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        EventSourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map_exn json__ "Name" EventSourceName.of_json in
      make ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Activates a partner event source that has been deactivated. Once activated, your matching event bus will start receiving events from the event source."]