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.route53_recovery_control_config
let apiVersion = "2020-11-02"
let endpointPrefix = "route53-recovery-control-config"
let serviceFullName = "AWS Route53 Recovery Control Config"
let signatureVersion = "v4"
let protocol = "rest_json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let simple_to_json to_value x =
  Botodata.Json.value_to_json_scalar (to_value x)
let composed_to_json to_value x = Botodata.Json.value_to_json (to_value x)
let to_query to_value x = Client.Query.of_value (to_value x)
let structure_to_value_aux st ~f =
  let filter = function | (k, Some v) -> Some (k, v) | _ -> None in
  let pair k v = (k, v) in
  let defer_value (k, dv) = pair k dv in
  ((List.filter_map st ~f:filter) |> (List.map ~f:defer_value)) |>
    (fun x -> `Structure (f x))
let structure_to_value = structure_to_value_aux ~f:Fn.id
let structure_to_wrapped_value ~wrapper ~response =
  structure_to_value_aux
    ~f:(fun x -> [(wrapper, (`Structure x)); (response, (`Structure []))])
module RuleType =
  struct
    type nonrec t =
      | ATLEAST 
      | AND 
      | OR 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ATLEAST -> "ATLEAST"
      | AND -> "AND"
      | OR -> "OR"
      | Non_static_id s -> s
    let of_string =
      function
      | "ATLEAST" -> ATLEAST
      | "AND" -> AND
      | "OR" -> OR
      | 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 RuleType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RuleType" j)
    let to_json = simple_to_json to_value
  end
module Zz__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 Zz__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 Zz__stringMin1Max256PatternAZaZ09 =
  struct
    type nonrec t = string
    let context_ = "__stringMin1Max256PatternAZaZ09"
    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:"__stringMin1Max256PatternAZaZ09" j
    let to_json = simple_to_json to_value
  end
module Zz__stringMin1Max128PatternAZaZ09 =
  struct
    type nonrec t = string
    let context_ = "__stringMin1Max128PatternAZaZ09"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () -> check_pattern i ~pattern:"^[A-Za-z0-9:.\\/_-]*$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"__stringMin1Max128PatternAZaZ09" j
    let to_json = simple_to_json to_value
  end
module Zz__stringMin1Max32PatternS =
  struct
    type nonrec t = string
    let context_ = "__stringMin1Max32PatternS"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:32) >>=
                  (fun () -> 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:"__stringMin1Max32PatternS" j
    let to_json = simple_to_json to_value
  end
module RuleConfig =
  struct
    type nonrec t =
      {
      inverted: Zz__boolean.t
        [@ocaml.doc
          "Logical negation of the rule. If the rule would usually evaluate true, it's evaluated as false, and vice versa."];
      threshold: Zz__integer.t
        [@ocaml.doc
          "The value of N, when you specify an ATLEAST rule type. That is, Threshold is the number of controls that must be set when you specify an ATLEAST type."];
      type_: RuleType.t
        [@ocaml.doc
          "A rule can be one of the following: ATLEAST, AND, or OR."]}
    let context_ = "RuleConfig"
    let make ~inverted =
      fun ~threshold ->
        fun ~type_ -> fun () -> { inverted; threshold; type_ }
    let to_value x =
      structure_to_value
        [("Inverted", (Some (Zz__boolean.to_value x.inverted)));
        ("Threshold", (Some (Zz__integer.to_value x.threshold)));
        ("Type", (Some (RuleType.to_value x.type_)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ =
        RuleType.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Type") in
      let threshold =
        Zz__integer.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Threshold") in
      let inverted =
        Zz__boolean.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Inverted") in
      make ~type_ ~threshold ~inverted ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map_exn json__ "Type" RuleType.of_json in
      let threshold = field_map_exn json__ "Threshold" Zz__integer.of_json in
      let inverted = field_map_exn json__ "Inverted" Zz__boolean.of_json in
      make ~type_ ~threshold ~inverted ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The rule configuration for an assertion rule. That is, the criteria that you set for specific assertion controls (routing controls) that specify how many control states must be ON after a transaction completes."]
module Status =
  struct
    type nonrec t =
      | PENDING 
      | DEPLOYED 
      | PENDING_DELETION 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING -> "PENDING"
      | DEPLOYED -> "DEPLOYED"
      | PENDING_DELETION -> "PENDING_DELETION"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING" -> PENDING
      | "DEPLOYED" -> DEPLOYED
      | "PENDING_DELETION" -> PENDING_DELETION
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration Status" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Status" j)
    let to_json = simple_to_json to_value
  end
module Zz__listOf__stringMin1Max256PatternAZaZ09 =
  struct
    type nonrec t = Zz__stringMin1Max256PatternAZaZ09.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:Zz__stringMin1Max256PatternAZaZ09.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:Zz__stringMin1Max256PatternAZaZ09.of_xml)
    let of_json j =
      list_of_json ~kind:"__listOf__stringMin1Max256PatternAZaZ09"
        ~of_json:Zz__stringMin1Max256PatternAZaZ09.of_json j
    let to_json v = composed_to_json to_value v
  end
module Zz__stringMin12Max12PatternD12 =
  struct
    type nonrec t = string
    let context_ = "__stringMin12Max12PatternD12"
    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:"__stringMin12Max12PatternD12" j
    let to_json = simple_to_json to_value
  end
module Zz__stringMin1Max64PatternS =
  struct
    type nonrec t = string
    let context_ = "__stringMin1Max64PatternS"
    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:"^\\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:"__stringMin1Max64PatternS" j
    let to_json = simple_to_json to_value
  end
module ClusterEndpoint =
  struct
    type nonrec t =
      {
      endpoint: Zz__stringMin1Max128PatternAZaZ09.t option
        [@ocaml.doc
          "A cluster endpoint. Specify an endpoint and Amazon Web Services Region when you want to set or retrieve a routing control state in the cluster. To get or update the routing control state, see the Amazon Route 53 Application Recovery Controller Routing Control Actions."];
      region: Zz__stringMin1Max32PatternS.t option
        [@ocaml.doc "The Amazon Web Services Region for a cluster endpoint."]}
    let make ?endpoint = fun ?region -> fun () -> { endpoint; region }
    let to_value x =
      structure_to_value
        [("Endpoint",
           (Option.map x.endpoint
              ~f:Zz__stringMin1Max128PatternAZaZ09.to_value));
        ("Region",
          (Option.map x.region ~f:Zz__stringMin1Max32PatternS.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let region =
        (Option.map ~f:Zz__stringMin1Max32PatternS.of_xml)
          (Xml.child xml_arg0 "Region") in
      let endpoint =
        (Option.map ~f:Zz__stringMin1Max128PatternAZaZ09.of_xml)
          (Xml.child xml_arg0 "Endpoint") in
      make ?region ?endpoint ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let region =
        field_map json__ "Region" Zz__stringMin1Max32PatternS.of_json in
      let endpoint =
        field_map json__ "Endpoint" Zz__stringMin1Max128PatternAZaZ09.of_json in
      make ?region ?endpoint ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A cluster endpoint. Specify an endpoint when you want to set or retrieve a routing control state in the cluster."]
module AssertionRule =
  struct
    type nonrec t =
      {
      assertedControls: Zz__listOf__stringMin1Max256PatternAZaZ09.t option
        [@ocaml.doc
          "The routing controls that are part of transactions that are evaluated to determine if a request to change a routing control state is allowed. For example, you might include three routing controls, one for each of three Amazon Web Services Regions."];
      controlPanelArn: Zz__stringMin1Max256PatternAZaZ09.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the control panel."];
      name: Zz__stringMin1Max64PatternS.t option
        [@ocaml.doc
          "Name of the assertion rule. You can use any non-white space character in the name."];
      ruleConfig: RuleConfig.t option
        [@ocaml.doc
          "The criteria that you set for specific assertion routing controls (AssertedControls) that designate how many routing control states must be ON as the result of a transaction. For example, if you have three assertion routing controls, you might specify ATLEAST 2 for your rule configuration. This means that at least two assertion routing control states must be ON, so that at least two Amazon Web Services Regions have traffic flowing to them."];
      safetyRuleArn: Zz__stringMin1Max256PatternAZaZ09.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the assertion rule."];
      status: Status.t option
        [@ocaml.doc
          "The deployment status of an assertion rule. Status can be one of the following: PENDING, DEPLOYED, PENDING_DELETION."];
      waitPeriodMs: Zz__integer.t option
        [@ocaml.doc
          "An evaluation period, in milliseconds (ms), during which any request against the target routing controls will fail. This helps prevent \"flapping\" of state. The wait period is 5000 ms by default, but you can choose a custom value."];
      owner: Zz__stringMin12Max12PatternD12.t option
        [@ocaml.doc
          "The Amazon Web Services account ID of the assertion rule owner."]}
    let make ?assertedControls =
      fun ?controlPanelArn ->
        fun ?name ->
          fun ?ruleConfig ->
            fun ?safetyRuleArn ->
              fun ?status ->
                fun ?waitPeriodMs ->
                  fun ?owner ->
                    fun () ->
                      {
                        assertedControls;
                        controlPanelArn;
                        name;
                        ruleConfig;
                        safetyRuleArn;
                        status;
                        waitPeriodMs;
                        owner
                      }
    let to_value x =
      structure_to_value
        [("AssertedControls",
           (Option.map x.assertedControls
              ~f:Zz__listOf__stringMin1Max256PatternAZaZ09.to_value));
        ("ControlPanelArn",
          (Option.map x.controlPanelArn
             ~f:Zz__stringMin1Max256PatternAZaZ09.to_value));
        ("Name", (Option.map x.name ~f:Zz__stringMin1Max64PatternS.to_value));
        ("RuleConfig", (Option.map x.ruleConfig ~f:RuleConfig.to_value));
        ("SafetyRuleArn",
          (Option.map x.safetyRuleArn
             ~f:Zz__stringMin1Max256PatternAZaZ09.to_value));
        ("Status", (Option.map x.status ~f:Status.to_value));
        ("WaitPeriodMs", (Option.map x.waitPeriodMs ~f:Zz__integer.to_value));
        ("Owner",
          (Option.map x.owner ~f:Zz__stringMin12Max12PatternD12.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let owner =
        (Option.map ~f:Zz__stringMin12Max12PatternD12.of_xml)
          (Xml.child xml_arg0 "Owner") in
      let waitPeriodMs =
        (Option.map ~f:Zz__integer.of_xml)
          (Xml.child xml_arg0 "WaitPeriodMs") in
      let status =
        (Option.map ~f:Status.of_xml) (Xml.child xml_arg0 "Status") in
      let safetyRuleArn =
        (Option.map ~f:Zz__stringMin1Max256PatternAZaZ09.of_xml)
          (Xml.child xml_arg0 "SafetyRuleArn") in
      let ruleConfig =
        (Option.map ~f:RuleConfig.of_xml) (Xml.child xml_arg0 "RuleConfig") in
      let name =
        (Option.map ~f:Zz__stringMin1Max64PatternS.of_xml)
          (Xml.child xml_arg0 "Name") in
      let controlPanelArn =
        (Option.map ~f:Zz__stringMin1Max256PatternAZaZ09.of_xml)
          (Xml.child xml_arg0 "ControlPanelArn") in
      let assertedControls =
        (Option.map ~f:Zz__listOf__stringMin1Max256PatternAZaZ09.of_xml)
          (Xml.child xml_arg0 "AssertedControls") in
      make ?owner ?waitPeriodMs ?status ?safetyRuleArn ?ruleConfig ?name
        ?controlPanelArn ?assertedControls ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let owner =
        field_map json__ "Owner" Zz__stringMin12Max12PatternD12.of_json in
      let waitPeriodMs = field_map json__ "WaitPeriodMs" Zz__integer.of_json in
      let status = field_map json__ "Status" Status.of_json in
      let safetyRuleArn =
        field_map json__ "SafetyRuleArn"
          Zz__stringMin1Max256PatternAZaZ09.of_json in
      let ruleConfig = field_map json__ "RuleConfig" RuleConfig.of_json in
      let name = field_map json__ "Name" Zz__stringMin1Max64PatternS.of_json in
      let controlPanelArn =
        field_map json__ "ControlPanelArn"
          Zz__stringMin1Max256PatternAZaZ09.of_json in
      let assertedControls =
        field_map json__ "AssertedControls"
          Zz__listOf__stringMin1Max256PatternAZaZ09.of_json in
      make ?owner ?waitPeriodMs ?status ?safetyRuleArn ?ruleConfig ?name
        ?controlPanelArn ?assertedControls ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An assertion rule enforces that, when you change a routing control state, that the criteria that you set in the rule configuration is met. Otherwise, the change to the routing control is not accepted. For example, the criteria might be that at least one routing control state is On after the transaction so that traffic continues to flow to at least one cell for the application. This ensures that you avoid a fail-open scenario."]
module GatingRule =
  struct
    type nonrec t =
      {
      controlPanelArn: Zz__stringMin1Max256PatternAZaZ09.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the control panel."];
      gatingControls: Zz__listOf__stringMin1Max256PatternAZaZ09.t option
        [@ocaml.doc
          "An array of gating routing control Amazon Resource Names (ARNs). For a simple \"on/off\" switch, specify the ARN for one routing control. The gating routing controls are evaluated by the rule configuration that you specify to determine if the target routing control states can be changed."];
      name: Zz__stringMin1Max64PatternS.t option
        [@ocaml.doc
          "The name for the gating rule. You can use any non-white space character in the name."];
      ruleConfig: RuleConfig.t option
        [@ocaml.doc
          "The criteria that you set for gating routing controls that designate how many of the routing control states must be ON to allow you to update target routing control states."];
      safetyRuleArn: Zz__stringMin1Max256PatternAZaZ09.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the gating rule."];
      status: Status.t option
        [@ocaml.doc
          "The deployment status of a gating rule. Status can be one of the following: PENDING, DEPLOYED, PENDING_DELETION."];
      targetControls: Zz__listOf__stringMin1Max256PatternAZaZ09.t option
        [@ocaml.doc
          "An array of target routing control Amazon Resource Names (ARNs) for which the states can only be updated if the rule configuration that you specify evaluates to true for the gating routing control. As a simple example, if you have a single gating control, it acts as an overall \"on/off\" switch for a set of target routing controls. You can use this to manually override automated failover, for example."];
      waitPeriodMs: Zz__integer.t option
        [@ocaml.doc
          "An evaluation period, in milliseconds (ms), during which any request against the target routing controls will fail. This helps prevent \"flapping\" of state. The wait period is 5000 ms by default, but you can choose a custom value."];
      owner: Zz__stringMin12Max12PatternD12.t option
        [@ocaml.doc
          "The Amazon Web Services account ID of the gating rule owner."]}
    let make ?controlPanelArn =
      fun ?gatingControls ->
        fun ?name ->
          fun ?ruleConfig ->
            fun ?safetyRuleArn ->
              fun ?status ->
                fun ?targetControls ->
                  fun ?waitPeriodMs ->
                    fun ?owner ->
                      fun () ->
                        {
                          controlPanelArn;
                          gatingControls;
                          name;
                          ruleConfig;
                          safetyRuleArn;
                          status;
                          targetControls;
                          waitPeriodMs;
                          owner
                        }
    let to_value x =
      structure_to_value
        [("ControlPanelArn",
           (Option.map x.controlPanelArn
              ~f:Zz__stringMin1Max256PatternAZaZ09.to_value));
        ("GatingControls",
          (Option.map x.gatingControls
             ~f:Zz__listOf__stringMin1Max256PatternAZaZ09.to_value));
        ("Name", (Option.map x.name ~f:Zz__stringMin1Max64PatternS.to_value));
        ("RuleConfig", (Option.map x.ruleConfig ~f:RuleConfig.to_value));
        ("SafetyRuleArn",
          (Option.map x.safetyRuleArn
             ~f:Zz__stringMin1Max256PatternAZaZ09.to_value));
        ("Status", (Option.map x.status ~f:Status.to_value));
        ("TargetControls",
          (Option.map x.targetControls
             ~f:Zz__listOf__stringMin1Max256PatternAZaZ09.to_value));
        ("WaitPeriodMs", (Option.map x.waitPeriodMs ~f:Zz__integer.to_value));
        ("Owner",
          (Option.map x.owner ~f:Zz__stringMin12Max12PatternD12.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let owner =
        (Option.map ~f:Zz__stringMin12Max12PatternD12.of_xml)
          (Xml.child xml_arg0 "Owner") in
      let waitPeriodMs =
        (Option.map ~f:Zz__integer.of_xml)
          (Xml.child xml_arg0 "WaitPeriodMs") in
      let targetControls =
        (Option.map ~f:Zz__listOf__stringMin1Max256PatternAZaZ09.of_xml)
          (Xml.child xml_arg0 "TargetControls") in
      let status =
        (Option.map ~f:Status.of_xml) (Xml.child xml_arg0 "Status") in
      let safetyRuleArn =
        (Option.map ~f:Zz__stringMin1Max256PatternAZaZ09.of_xml)
          (Xml.child xml_arg0 "SafetyRuleArn") in
      let ruleConfig =
        (Option.map ~f:RuleConfig.of_xml) (Xml.child xml_arg0 "RuleConfig") in
      let name =
        (Option.map ~f:Zz__stringMin1Max64PatternS.of_xml)
          (Xml.child xml_arg0 "Name") in
      let gatingControls =
        (Option.map ~f:Zz__listOf__stringMin1Max256PatternAZaZ09.of_xml)
          (Xml.child xml_arg0 "GatingControls") in
      let controlPanelArn =
        (Option.map ~f:Zz__stringMin1Max256PatternAZaZ09.of_xml)
          (Xml.child xml_arg0 "ControlPanelArn") in
      make ?owner ?waitPeriodMs ?targetControls ?status ?safetyRuleArn
        ?ruleConfig ?name ?gatingControls ?controlPanelArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let owner =
        field_map json__ "Owner" Zz__stringMin12Max12PatternD12.of_json in
      let waitPeriodMs = field_map json__ "WaitPeriodMs" Zz__integer.of_json in
      let targetControls =
        field_map json__ "TargetControls"
          Zz__listOf__stringMin1Max256PatternAZaZ09.of_json in
      let status = field_map json__ "Status" Status.of_json in
      let safetyRuleArn =
        field_map json__ "SafetyRuleArn"
          Zz__stringMin1Max256PatternAZaZ09.of_json in
      let ruleConfig = field_map json__ "RuleConfig" RuleConfig.of_json in
      let name = field_map json__ "Name" Zz__stringMin1Max64PatternS.of_json in
      let gatingControls =
        field_map json__ "GatingControls"
          Zz__listOf__stringMin1Max256PatternAZaZ09.of_json in
      let controlPanelArn =
        field_map json__ "ControlPanelArn"
          Zz__stringMin1Max256PatternAZaZ09.of_json in
      make ?owner ?waitPeriodMs ?targetControls ?status ?safetyRuleArn
        ?ruleConfig ?name ?gatingControls ?controlPanelArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A gating rule verifies that a gating routing control or set of gating routing controls, evaluates as true, based on a rule configuration that you specify, which allows a set of routing control state changes to complete. For example, if you specify one gating routing control and you set the Type in the rule configuration to OR, that indicates that you must set the gating routing control to On for the rule to evaluate as true; that is, for the gating control \"switch\" to be \"On\". When you do that, then you can update the routing control states for the target routing controls that you specify in the gating rule."]
module NetworkType =
  struct
    type nonrec t =
      | IPV4 
      | DUALSTACK 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | IPV4 -> "IPV4"
      | DUALSTACK -> "DUALSTACK"
      | Non_static_id s -> s
    let of_string =
      function
      | "IPV4" -> IPV4
      | "DUALSTACK" -> DUALSTACK
      | 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 NetworkType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"NetworkType" j)
    let to_json = simple_to_json to_value
  end
module Zz__listOfClusterEndpoint =
  struct
    type nonrec t = ClusterEndpoint.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:ClusterEndpoint.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:ClusterEndpoint.of_xml)
    let of_json j =
      list_of_json ~kind:"__listOfClusterEndpoint"
        ~of_json:ClusterEndpoint.of_json j
    let to_json v = composed_to_json to_value v
  end
module Zz__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 Zz__stringMin0Max256PatternS =
  struct
    type nonrec t = string
    let context_ = "__stringMin0Max256PatternS"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () -> check_pattern i ~pattern:"^\\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:"__stringMin0Max256PatternS" j
    let to_json = simple_to_json to_value
  end
module Rule =
  struct
    type nonrec t =
      {
      aSSERTION: AssertionRule.t option
        [@ocaml.doc
          "An assertion rule enforces that, when a routing control state is changed, the criteria set by the rule configuration is met. Otherwise, the change to the routing control state is not accepted. For example, the criteria might be that at least one routing control state is On after the transaction so that traffic continues to flow to at least one cell for the application. This ensures that you avoid a fail-open scenario."];
      gATING: GatingRule.t option
        [@ocaml.doc
          "A gating rule verifies that a gating routing control or set of gating routing controls, evaluates as true, based on a rule configuration that you specify, which allows a set of routing control state changes to complete. For example, if you specify one gating routing control and you set the Type in the rule configuration to OR, that indicates that you must set the gating routing control to On for the rule to evaluate as true; that is, for the gating control \"switch\" to be \"On\". When you do that, then you can update the routing control states for the target routing controls that you specify in the gating rule."]}
    let make ?aSSERTION = fun ?gATING -> fun () -> { aSSERTION; gATING }
    let to_value x =
      structure_to_value
        [("ASSERTION", (Option.map x.aSSERTION ~f:AssertionRule.to_value));
        ("GATING", (Option.map x.gATING ~f:GatingRule.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gATING =
        (Option.map ~f:GatingRule.of_xml) (Xml.child xml_arg0 "GATING") in
      let aSSERTION =
        (Option.map ~f:AssertionRule.of_xml) (Xml.child xml_arg0 "ASSERTION") in
      make ?gATING ?aSSERTION ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gATING = field_map json__ "GATING" GatingRule.of_json in
      let aSSERTION = field_map json__ "ASSERTION" AssertionRule.of_json in
      make ?gATING ?aSSERTION ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A safety rule. A safety rule can be an assertion rule or a gating rule."]
module RoutingControl =
  struct
    type nonrec t =
      {
      controlPanelArn: Zz__stringMin1Max256PatternAZaZ09.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the control panel that includes the routing control."];
      name: Zz__stringMin1Max64PatternS.t option
        [@ocaml.doc "The name of the routing control."];
      routingControlArn: Zz__stringMin1Max256PatternAZaZ09.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the routing control."];
      status: Status.t option
        [@ocaml.doc
          "The deployment status of a routing control. Status can be one of the following: PENDING, DEPLOYED, PENDING_DELETION."];
      owner: Zz__stringMin12Max12PatternD12.t option
        [@ocaml.doc
          "The Amazon Web Services account ID of the routing control owner."]}
    let make ?controlPanelArn =
      fun ?name ->
        fun ?routingControlArn ->
          fun ?status ->
            fun ?owner ->
              fun () ->
                { controlPanelArn; name; routingControlArn; status; owner }
    let to_value x =
      structure_to_value
        [("ControlPanelArn",
           (Option.map x.controlPanelArn
              ~f:Zz__stringMin1Max256PatternAZaZ09.to_value));
        ("Name", (Option.map x.name ~f:Zz__stringMin1Max64PatternS.to_value));
        ("RoutingControlArn",
          (Option.map x.routingControlArn
             ~f:Zz__stringMin1Max256PatternAZaZ09.to_value));
        ("Status", (Option.map x.status ~f:Status.to_value));
        ("Owner",
          (Option.map x.owner ~f:Zz__stringMin12Max12PatternD12.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let owner =
        (Option.map ~f:Zz__stringMin12Max12PatternD12.of_xml)
          (Xml.child xml_arg0 "Owner") in
      let status =
        (Option.map ~f:Status.of_xml) (Xml.child xml_arg0 "Status") in
      let routingControlArn =
        (Option.map ~f:Zz__stringMin1Max256PatternAZaZ09.of_xml)
          (Xml.child xml_arg0 "RoutingControlArn") in
      let name =
        (Option.map ~f:Zz__stringMin1Max64PatternS.of_xml)
          (Xml.child xml_arg0 "Name") in
      let controlPanelArn =
        (Option.map ~f:Zz__stringMin1Max256PatternAZaZ09.of_xml)
          (Xml.child xml_arg0 "ControlPanelArn") in
      make ?owner ?status ?routingControlArn ?name ?controlPanelArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let owner =
        field_map json__ "Owner" Zz__stringMin12Max12PatternD12.of_json in
      let status = field_map json__ "Status" Status.of_json in
      let routingControlArn =
        field_map json__ "RoutingControlArn"
          Zz__stringMin1Max256PatternAZaZ09.of_json in
      let name = field_map json__ "Name" Zz__stringMin1Max64PatternS.of_json in
      let controlPanelArn =
        field_map json__ "ControlPanelArn"
          Zz__stringMin1Max256PatternAZaZ09.of_json in
      make ?owner ?status ?routingControlArn ?name ?controlPanelArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A routing control has one of two states: ON and OFF. You can map the routing control state to the state of an Amazon Route 53 health check, which can be used to control traffic routing."]
module ControlPanel =
  struct
    type nonrec t =
      {
      clusterArn: Zz__stringMin1Max256PatternAZaZ09.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the cluster that includes the control panel."];
      controlPanelArn: Zz__stringMin1Max256PatternAZaZ09.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the control panel."];
      defaultControlPanel: Zz__boolean.t option
        [@ocaml.doc
          "A flag that Amazon Route 53 Application Recovery Controller sets to true to designate the default control panel for a cluster. When you create a cluster, Amazon Route 53 Application Recovery Controller creates a control panel, and sets this flag for that control panel. If you create a control panel yourself, this flag is set to false."];
      name: Zz__stringMin1Max64PatternS.t option
        [@ocaml.doc
          "The name of the control panel. You can use any non-white space character in the name."];
      routingControlCount: Zz__integer.t option
        [@ocaml.doc "The number of routing controls in the control panel."];
      status: Status.t option
        [@ocaml.doc
          "The deployment status of control panel. Status can be one of the following: PENDING, DEPLOYED, PENDING_DELETION."];
      owner: Zz__stringMin12Max12PatternD12.t option
        [@ocaml.doc
          "The Amazon Web Services account ID of the control panel owner."]}
    let make ?clusterArn =
      fun ?controlPanelArn ->
        fun ?defaultControlPanel ->
          fun ?name ->
            fun ?routingControlCount ->
              fun ?status ->
                fun ?owner ->
                  fun () ->
                    {
                      clusterArn;
                      controlPanelArn;
                      defaultControlPanel;
                      name;
                      routingControlCount;
                      status;
                      owner
                    }
    let to_value x =
      structure_to_value
        [("ClusterArn",
           (Option.map x.clusterArn
              ~f:Zz__stringMin1Max256PatternAZaZ09.to_value));
        ("ControlPanelArn",
          (Option.map x.controlPanelArn
             ~f:Zz__stringMin1Max256PatternAZaZ09.to_value));
        ("DefaultControlPanel",
          (Option.map x.defaultControlPanel ~f:Zz__boolean.to_value));
        ("Name", (Option.map x.name ~f:Zz__stringMin1Max64PatternS.to_value));
        ("RoutingControlCount",
          (Option.map x.routingControlCount ~f:Zz__integer.to_value));
        ("Status", (Option.map x.status ~f:Status.to_value));
        ("Owner",
          (Option.map x.owner ~f:Zz__stringMin12Max12PatternD12.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let owner =
        (Option.map ~f:Zz__stringMin12Max12PatternD12.of_xml)
          (Xml.child xml_arg0 "Owner") in
      let status =
        (Option.map ~f:Status.of_xml) (Xml.child xml_arg0 "Status") in
      let routingControlCount =
        (Option.map ~f:Zz__integer.of_xml)
          (Xml.child xml_arg0 "RoutingControlCount") in
      let name =
        (Option.map ~f:Zz__stringMin1Max64PatternS.of_xml)
          (Xml.child xml_arg0 "Name") in
      let defaultControlPanel =
        (Option.map ~f:Zz__boolean.of_xml)
          (Xml.child xml_arg0 "DefaultControlPanel") in
      let controlPanelArn =
        (Option.map ~f:Zz__stringMin1Max256PatternAZaZ09.of_xml)
          (Xml.child xml_arg0 "ControlPanelArn") in
      let clusterArn =
        (Option.map ~f:Zz__stringMin1Max256PatternAZaZ09.of_xml)
          (Xml.child xml_arg0 "ClusterArn") in
      make ?owner ?status ?routingControlCount ?name ?defaultControlPanel
        ?controlPanelArn ?clusterArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let owner =
        field_map json__ "Owner" Zz__stringMin12Max12PatternD12.of_json in
      let status = field_map json__ "Status" Status.of_json in
      let routingControlCount =
        field_map json__ "RoutingControlCount" Zz__integer.of_json in
      let name = field_map json__ "Name" Zz__stringMin1Max64PatternS.of_json in
      let defaultControlPanel =
        field_map json__ "DefaultControlPanel" Zz__boolean.of_json in
      let controlPanelArn =
        field_map json__ "ControlPanelArn"
          Zz__stringMin1Max256PatternAZaZ09.of_json in
      let clusterArn =
        field_map json__ "ClusterArn"
          Zz__stringMin1Max256PatternAZaZ09.of_json in
      make ?owner ?status ?routingControlCount ?name ?defaultControlPanel
        ?controlPanelArn ?clusterArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A control panel represents a group of routing controls that can be changed together in a single transaction."]
module Cluster =
  struct
    type nonrec t =
      {
      clusterArn: Zz__stringMin1Max256PatternAZaZ09.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the cluster."];
      clusterEndpoints: Zz__listOfClusterEndpoint.t option
        [@ocaml.doc
          "Endpoints for a cluster. Specify one of these endpoints when you want to set or retrieve a routing control state in the cluster. To get or update the routing control state, see the Amazon Route 53 Application Recovery Controller Routing Control Actions."];
      name: Zz__stringMin1Max64PatternS.t option
        [@ocaml.doc "The name of the cluster."];
      status: Status.t option
        [@ocaml.doc
          "Deployment status of a resource. Status can be one of the following: PENDING, DEPLOYED, PENDING_DELETION."];
      owner: Zz__stringMin12Max12PatternD12.t option
        [@ocaml.doc
          "The Amazon Web Services account ID of the cluster owner."];
      networkType: NetworkType.t option
        [@ocaml.doc
          "The network type of the cluster. NetworkType can be one of the following: IPV4, DUALSTACK."]}
    let make ?clusterArn =
      fun ?clusterEndpoints ->
        fun ?name ->
          fun ?status ->
            fun ?owner ->
              fun ?networkType ->
                fun () ->
                  {
                    clusterArn;
                    clusterEndpoints;
                    name;
                    status;
                    owner;
                    networkType
                  }
    let to_value x =
      structure_to_value
        [("ClusterArn",
           (Option.map x.clusterArn
              ~f:Zz__stringMin1Max256PatternAZaZ09.to_value));
        ("ClusterEndpoints",
          (Option.map x.clusterEndpoints
             ~f:Zz__listOfClusterEndpoint.to_value));
        ("Name", (Option.map x.name ~f:Zz__stringMin1Max64PatternS.to_value));
        ("Status", (Option.map x.status ~f:Status.to_value));
        ("Owner",
          (Option.map x.owner ~f:Zz__stringMin12Max12PatternD12.to_value));
        ("NetworkType", (Option.map x.networkType ~f:NetworkType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let networkType =
        (Option.map ~f:NetworkType.of_xml) (Xml.child xml_arg0 "NetworkType") in
      let owner =
        (Option.map ~f:Zz__stringMin12Max12PatternD12.of_xml)
          (Xml.child xml_arg0 "Owner") in
      let status =
        (Option.map ~f:Status.of_xml) (Xml.child xml_arg0 "Status") in
      let name =
        (Option.map ~f:Zz__stringMin1Max64PatternS.of_xml)
          (Xml.child xml_arg0 "Name") in
      let clusterEndpoints =
        (Option.map ~f:Zz__listOfClusterEndpoint.of_xml)
          (Xml.child xml_arg0 "ClusterEndpoints") in
      let clusterArn =
        (Option.map ~f:Zz__stringMin1Max256PatternAZaZ09.of_xml)
          (Xml.child xml_arg0 "ClusterArn") in
      make ?networkType ?owner ?status ?name ?clusterEndpoints ?clusterArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let networkType = field_map json__ "NetworkType" NetworkType.of_json in
      let owner =
        field_map json__ "Owner" Zz__stringMin12Max12PatternD12.of_json in
      let status = field_map json__ "Status" Status.of_json in
      let name = field_map json__ "Name" Zz__stringMin1Max64PatternS.of_json in
      let clusterEndpoints =
        field_map json__ "ClusterEndpoints" Zz__listOfClusterEndpoint.of_json in
      let clusterArn =
        field_map json__ "ClusterArn"
          Zz__stringMin1Max256PatternAZaZ09.of_json in
      make ?networkType ?owner ?status ?name ?clusterEndpoints ?clusterArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A set of five redundant Regional endpoints against which you can execute API calls to update or get the state of routing controls. You can host multiple control panels and routing controls on one cluster."]
module Zz__stringMax36PatternS =
  struct
    type nonrec t = string
    let context_ = "__stringMax36PatternS"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:36) >>=
             (fun () -> 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:"__stringMax36PatternS" j
    let to_json = simple_to_json to_value
  end
module InternalServerException =
  struct
    type nonrec t = {
      message: Zz__string.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" Zz__string.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "500 response - InternalServiceError. Temporary service error. Retry the request."]
module ResourceNotFoundException =
  struct
    type nonrec t = {
      message: Zz__string.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" Zz__string.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "404 response - MalformedQueryString. The query string contains a syntax error or resource not found."]
module ValidationException =
  struct
    type nonrec t = {
      message: Zz__string.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" Zz__string.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "400 response - Multiple causes. For example, you might have a malformed query string and input parameter might be out of range, or you might have used parameters together incorrectly."]
module AssertionRuleUpdate =
  struct
    type nonrec t =
      {
      name: Zz__stringMin1Max64PatternS.t
        [@ocaml.doc
          "The name of the assertion rule. You can use any non-white space character in the name."];
      safetyRuleArn: Zz__stringMin1Max256PatternAZaZ09.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the assertion rule."];
      waitPeriodMs: Zz__integer.t
        [@ocaml.doc
          "An evaluation period, in milliseconds (ms), during which any request against the target routing controls will fail. This helps prevent \"flapping\" of state. The wait period is 5000 ms by default, but you can choose a custom value."]}
    let context_ = "AssertionRuleUpdate"
    let make ~name =
      fun ~safetyRuleArn ->
        fun ~waitPeriodMs -> fun () -> { name; safetyRuleArn; waitPeriodMs }
    let to_value x =
      structure_to_value
        [("Name", (Some (Zz__stringMin1Max64PatternS.to_value x.name)));
        ("SafetyRuleArn",
          (Some (Zz__stringMin1Max256PatternAZaZ09.to_value x.safetyRuleArn)));
        ("WaitPeriodMs", (Some (Zz__integer.to_value x.waitPeriodMs)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let waitPeriodMs =
        Zz__integer.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "WaitPeriodMs") in
      let safetyRuleArn =
        Zz__stringMin1Max256PatternAZaZ09.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SafetyRuleArn") in
      let name =
        Zz__stringMin1Max64PatternS.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~waitPeriodMs ~safetyRuleArn ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let waitPeriodMs =
        field_map_exn json__ "WaitPeriodMs" Zz__integer.of_json in
      let safetyRuleArn =
        field_map_exn json__ "SafetyRuleArn"
          Zz__stringMin1Max256PatternAZaZ09.of_json in
      let name =
        field_map_exn json__ "Name" Zz__stringMin1Max64PatternS.of_json in
      make ~waitPeriodMs ~safetyRuleArn ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An update to an assertion rule. You can update the name or the evaluation period (wait period). If you don't specify one of the items to update, the item is unchanged."]
module GatingRuleUpdate =
  struct
    type nonrec t =
      {
      name: Zz__stringMin1Max64PatternS.t
        [@ocaml.doc
          "The name for the gating rule. You can use any non-white space character in the name."];
      safetyRuleArn: Zz__stringMin1Max256PatternAZaZ09.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the gating rule."];
      waitPeriodMs: Zz__integer.t
        [@ocaml.doc
          "An evaluation period, in milliseconds (ms), during which any request against the target routing controls will fail. This helps prevent \"flapping\" of state. The wait period is 5000 ms by default, but you can choose a custom value."]}
    let context_ = "GatingRuleUpdate"
    let make ~name =
      fun ~safetyRuleArn ->
        fun ~waitPeriodMs -> fun () -> { name; safetyRuleArn; waitPeriodMs }
    let to_value x =
      structure_to_value
        [("Name", (Some (Zz__stringMin1Max64PatternS.to_value x.name)));
        ("SafetyRuleArn",
          (Some (Zz__stringMin1Max256PatternAZaZ09.to_value x.safetyRuleArn)));
        ("WaitPeriodMs", (Some (Zz__integer.to_value x.waitPeriodMs)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let waitPeriodMs =
        Zz__integer.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "WaitPeriodMs") in
      let safetyRuleArn =
        Zz__stringMin1Max256PatternAZaZ09.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SafetyRuleArn") in
      let name =
        Zz__stringMin1Max64PatternS.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~waitPeriodMs ~safetyRuleArn ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let waitPeriodMs =
        field_map_exn json__ "WaitPeriodMs" Zz__integer.of_json in
      let safetyRuleArn =
        field_map_exn json__ "SafetyRuleArn"
          Zz__stringMin1Max256PatternAZaZ09.of_json in
      let name =
        field_map_exn json__ "Name" Zz__stringMin1Max64PatternS.of_json in
      make ~waitPeriodMs ~safetyRuleArn ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Update to a gating rule. You can update the name or the evaluation period (wait period). If you don't specify one of the items to update, the item is unchanged."]
module AccessDeniedException =
  struct
    type nonrec t = {
      message: Zz__string.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" Zz__string.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "403 response - You do not have sufficient access to perform this action."]
module ConflictException =
  struct
    type nonrec t = {
      message: Zz__string.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" Zz__string.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "409 response - ConflictException. You might be using a predefined variable."]
module ThrottlingException =
  struct
    type nonrec t = {
      message: Zz__string.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" Zz__string.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "429 response - LimitExceededException or TooManyRequestsException."]
module Zz__listOf__string =
  struct
    type nonrec t = Zz__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:Zz__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:Zz__string.of_xml)
    let of_json j =
      list_of_json ~kind:"__listOf__string" ~of_json:Zz__string.of_json j
    let to_json v = composed_to_json to_value v
  end
module Zz__mapOf__stringMin0Max256PatternS =
  struct
    type nonrec t = (Zz__string.t * Zz__stringMin0Max256PatternS.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 ->
                            ((Zz__string.of_string chopped),
                              (Zz__stringMin0Max256PatternS.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (Zz__string.to_value x) |>
                    (fun x ->
                       (Zz__stringMin0Max256PatternS.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:Zz__string.of_string
        ~of_json:Zz__stringMin0Max256PatternS.of_json j
    let to_json v = composed_to_json to_value v
  end
module Zz__listOfRule =
  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:"__listOfRule" ~of_json:Rule.of_json j
    let to_json v = composed_to_json to_value v
  end
module Zz__stringMin1Max8096PatternS =
  struct
    type nonrec t = string
    let context_ = "__stringMin1Max8096PatternS"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:8096) >>=
                  (fun () -> 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:"__stringMin1Max8096PatternS" j
    let to_json = simple_to_json to_value
  end
module MaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:1000) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for MaxResults" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module Zz__listOfRoutingControl =
  struct
    type nonrec t = RoutingControl.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:RoutingControl.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:RoutingControl.of_xml)
    let of_json j =
      list_of_json ~kind:"__listOfRoutingControl"
        ~of_json:RoutingControl.of_json j
    let to_json v = composed_to_json to_value v
  end
module Zz__listOfControlPanel =
  struct
    type nonrec t = ControlPanel.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:ControlPanel.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:ControlPanel.of_xml)
    let of_json j =
      list_of_json ~kind:"__listOfControlPanel" ~of_json:ControlPanel.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module Zz__listOfCluster =
  struct
    type nonrec t = Cluster.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:Cluster.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:Cluster.of_xml)
    let of_json j =
      list_of_json ~kind:"__listOfCluster" ~of_json:Cluster.of_json j
    let to_json v = composed_to_json to_value v
  end
module Zz__listOf__stringMax36PatternS =
  struct
    type nonrec t = Zz__stringMax36PatternS.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:Zz__stringMax36PatternS.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:Zz__stringMax36PatternS.of_xml)
    let of_json j =
      list_of_json ~kind:"__listOf__stringMax36PatternS"
        ~of_json:Zz__stringMax36PatternS.of_json j
    let to_json v = composed_to_json to_value v
  end
module Zz__policy =
  struct
    type nonrec t = string
    let context_ = "__policy"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:2) >>=
             (fun () ->
                (check_string_max i ~max:10240) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[\\u0009\\u000A\\u000D\\u0020-\\u007E\\u00A1-\\u00FF]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"__policy" j
    let to_json = simple_to_json to_value
  end
module NewAssertionRule =
  struct
    type nonrec t =
      {
      assertedControls: Zz__listOf__stringMin1Max256PatternAZaZ09.t
        [@ocaml.doc
          "The routing controls that are part of transactions that are evaluated to determine if a request to change a routing control state is allowed. For example, you might include three routing controls, one for each of three Amazon Web Services Regions."];
      controlPanelArn: Zz__stringMin1Max256PatternAZaZ09.t
        [@ocaml.doc "The Amazon Resource Name (ARN) for the control panel."];
      name: Zz__stringMin1Max64PatternS.t
        [@ocaml.doc
          "The name of the assertion rule. You can use any non-white space character in the name."];
      ruleConfig: RuleConfig.t
        [@ocaml.doc
          "The criteria that you set for specific assertion controls (routing controls) that designate how many control states must be ON as the result of a transaction. For example, if you have three assertion controls, you might specify ATLEAST 2 for your rule configuration. This means that at least two assertion controls must be ON, so that at least two Amazon Web Services Regions have traffic flowing to them."];
      waitPeriodMs: Zz__integer.t
        [@ocaml.doc
          "An evaluation period, in milliseconds (ms), during which any request against the target routing controls will fail. This helps prevent \"flapping\" of state. The wait period is 5000 ms by default, but you can choose a custom value."]}
    let context_ = "NewAssertionRule"
    let make ~assertedControls =
      fun ~controlPanelArn ->
        fun ~name ->
          fun ~ruleConfig ->
            fun ~waitPeriodMs ->
              fun () ->
                {
                  assertedControls;
                  controlPanelArn;
                  name;
                  ruleConfig;
                  waitPeriodMs
                }
    let to_value x =
      structure_to_value
        [("AssertedControls",
           (Some
              (Zz__listOf__stringMin1Max256PatternAZaZ09.to_value
                 x.assertedControls)));
        ("ControlPanelArn",
          (Some
             (Zz__stringMin1Max256PatternAZaZ09.to_value x.controlPanelArn)));
        ("Name", (Some (Zz__stringMin1Max64PatternS.to_value x.name)));
        ("RuleConfig", (Some (RuleConfig.to_value x.ruleConfig)));
        ("WaitPeriodMs", (Some (Zz__integer.to_value x.waitPeriodMs)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let waitPeriodMs =
        Zz__integer.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "WaitPeriodMs") in
      let ruleConfig =
        RuleConfig.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RuleConfig") in
      let name =
        Zz__stringMin1Max64PatternS.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      let controlPanelArn =
        Zz__stringMin1Max256PatternAZaZ09.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ControlPanelArn") in
      let assertedControls =
        Zz__listOf__stringMin1Max256PatternAZaZ09.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AssertedControls") in
      make ~waitPeriodMs ~ruleConfig ~name ~controlPanelArn ~assertedControls
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let waitPeriodMs =
        field_map_exn json__ "WaitPeriodMs" Zz__integer.of_json in
      let ruleConfig = field_map_exn json__ "RuleConfig" RuleConfig.of_json in
      let name =
        field_map_exn json__ "Name" Zz__stringMin1Max64PatternS.of_json in
      let controlPanelArn =
        field_map_exn json__ "ControlPanelArn"
          Zz__stringMin1Max256PatternAZaZ09.of_json in
      let assertedControls =
        field_map_exn json__ "AssertedControls"
          Zz__listOf__stringMin1Max256PatternAZaZ09.of_json in
      make ~waitPeriodMs ~ruleConfig ~name ~controlPanelArn ~assertedControls
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A new assertion rule for a control panel."]
module NewGatingRule =
  struct
    type nonrec t =
      {
      controlPanelArn: Zz__stringMin1Max256PatternAZaZ09.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the control panel."];
      gatingControls: Zz__listOf__stringMin1Max256PatternAZaZ09.t
        [@ocaml.doc
          "The gating controls for the new gating rule. That is, routing controls that are evaluated by the rule configuration that you specify."];
      name: Zz__stringMin1Max64PatternS.t
        [@ocaml.doc "The name for the new gating rule."];
      ruleConfig: RuleConfig.t
        [@ocaml.doc
          "The criteria that you set for specific gating controls (routing controls) that designate how many control states must be ON to allow you to change (set or unset) the target control states."];
      targetControls: Zz__listOf__stringMin1Max256PatternAZaZ09.t
        [@ocaml.doc
          "Routing controls that can only be set or unset if the specified RuleConfig evaluates to true for the specified GatingControls. For example, say you have three gating controls, one for each of three Amazon Web Services Regions. Now you specify ATLEAST 2 as your RuleConfig. With these settings, you can only change (set or unset) the routing controls that you have specified as TargetControls if that rule evaluates to true. In other words, your ability to change the routing controls that you have specified as TargetControls is gated by the rule that you set for the routing controls in GatingControls."];
      waitPeriodMs: Zz__integer.t
        [@ocaml.doc
          "An evaluation period, in milliseconds (ms), during which any request against the target routing controls will fail. This helps prevent \"flapping\" of state. The wait period is 5000 ms by default, but you can choose a custom value."]}
    let context_ = "NewGatingRule"
    let make ~controlPanelArn =
      fun ~gatingControls ->
        fun ~name ->
          fun ~ruleConfig ->
            fun ~targetControls ->
              fun ~waitPeriodMs ->
                fun () ->
                  {
                    controlPanelArn;
                    gatingControls;
                    name;
                    ruleConfig;
                    targetControls;
                    waitPeriodMs
                  }
    let to_value x =
      structure_to_value
        [("ControlPanelArn",
           (Some
              (Zz__stringMin1Max256PatternAZaZ09.to_value x.controlPanelArn)));
        ("GatingControls",
          (Some
             (Zz__listOf__stringMin1Max256PatternAZaZ09.to_value
                x.gatingControls)));
        ("Name", (Some (Zz__stringMin1Max64PatternS.to_value x.name)));
        ("RuleConfig", (Some (RuleConfig.to_value x.ruleConfig)));
        ("TargetControls",
          (Some
             (Zz__listOf__stringMin1Max256PatternAZaZ09.to_value
                x.targetControls)));
        ("WaitPeriodMs", (Some (Zz__integer.to_value x.waitPeriodMs)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let waitPeriodMs =
        Zz__integer.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "WaitPeriodMs") in
      let targetControls =
        Zz__listOf__stringMin1Max256PatternAZaZ09.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TargetControls") in
      let ruleConfig =
        RuleConfig.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RuleConfig") in
      let name =
        Zz__stringMin1Max64PatternS.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      let gatingControls =
        Zz__listOf__stringMin1Max256PatternAZaZ09.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GatingControls") in
      let controlPanelArn =
        Zz__stringMin1Max256PatternAZaZ09.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ControlPanelArn") in
      make ~waitPeriodMs ~targetControls ~ruleConfig ~name ~gatingControls
        ~controlPanelArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let waitPeriodMs =
        field_map_exn json__ "WaitPeriodMs" Zz__integer.of_json in
      let targetControls =
        field_map_exn json__ "TargetControls"
          Zz__listOf__stringMin1Max256PatternAZaZ09.of_json in
      let ruleConfig = field_map_exn json__ "RuleConfig" RuleConfig.of_json in
      let name =
        field_map_exn json__ "Name" Zz__stringMin1Max64PatternS.of_json in
      let gatingControls =
        field_map_exn json__ "GatingControls"
          Zz__listOf__stringMin1Max256PatternAZaZ09.of_json in
      let controlPanelArn =
        field_map_exn json__ "ControlPanelArn"
          Zz__stringMin1Max256PatternAZaZ09.of_json in
      make ~waitPeriodMs ~targetControls ~ruleConfig ~name ~gatingControls
        ~controlPanelArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A new gating rule for a control panel."]
module ServiceQuotaExceededException =
  struct
    type nonrec t = {
      message: Zz__string.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" Zz__string.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "402 response - You attempted to create more resources than the service allows based on service quotas."]
module Zz__timestampUnix =
  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 Zz__timestampIso8601 =
  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 Zz__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 Zz__double =
  struct
    type nonrec t = float
    let make i = i
    let of_string = Float.of_string
    let to_value x = `Double x
    let to_query v = to_query to_value v
    let to_header x = Stdlib.Float.to_string x
    let of_xml xml_arg0 =
      Float.of_string (string_of_xml ~kind:"a double" xml_arg0)
    let of_json j = float_of_json ~kind:"a double" j
    let to_json = simple_to_json to_value
  end
module UpdateSafetyRuleResponse =
  struct
    type nonrec t =
      {
      assertionRule: AssertionRule.t option
        [@ocaml.doc "The assertion rule updated."];
      gatingRule: GatingRule.t option [@ocaml.doc "The gating rule updated."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?assertionRule =
      fun ?gatingRule -> fun () -> { assertionRule; gatingRule }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("AssertionRule",
           (Option.map x.assertionRule ~f:AssertionRule.to_value));
        ("GatingRule", (Option.map x.gatingRule ~f:GatingRule.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatingRule =
        (Option.map ~f:GatingRule.of_xml) (Xml.child xml_arg0 "GatingRule") in
      let assertionRule =
        (Option.map ~f:AssertionRule.of_xml)
          (Xml.child xml_arg0 "AssertionRule") in
      make ?gatingRule ?assertionRule ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatingRule = field_map json__ "GatingRule" GatingRule.of_json in
      let assertionRule =
        field_map json__ "AssertionRule" AssertionRule.of_json in
      make ?gatingRule ?assertionRule ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Update a safety rule (an assertion rule or gating rule). You can only update the name and the waiting period for a safety rule. To make other updates, delete the safety rule and create a new one."]
module UpdateSafetyRuleRequest =
  struct
    type nonrec t =
      {
      assertionRuleUpdate: AssertionRuleUpdate.t option
        [@ocaml.doc "The assertion rule to update."];
      gatingRuleUpdate: GatingRuleUpdate.t option
        [@ocaml.doc "The gating rule to update."]}
    let make ?assertionRuleUpdate =
      fun ?gatingRuleUpdate ->
        fun () -> { assertionRuleUpdate; gatingRuleUpdate }
    let to_value x =
      structure_to_value
        [("AssertionRuleUpdate",
           (Option.map x.assertionRuleUpdate ~f:AssertionRuleUpdate.to_value));
        ("GatingRuleUpdate",
          (Option.map x.gatingRuleUpdate ~f:GatingRuleUpdate.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatingRuleUpdate =
        (Option.map ~f:GatingRuleUpdate.of_xml)
          (Xml.child xml_arg0 "GatingRuleUpdate") in
      let assertionRuleUpdate =
        (Option.map ~f:AssertionRuleUpdate.of_xml)
          (Xml.child xml_arg0 "AssertionRuleUpdate") in
      make ?gatingRuleUpdate ?assertionRuleUpdate ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatingRuleUpdate =
        field_map json__ "GatingRuleUpdate" GatingRuleUpdate.of_json in
      let assertionRuleUpdate =
        field_map json__ "AssertionRuleUpdate" AssertionRuleUpdate.of_json in
      make ?gatingRuleUpdate ?assertionRuleUpdate ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A rule that you add to Application Recovery Controller to ensure that recovery actions don't accidentally impair your application's availability."]
module UpdateRoutingControlResponse =
  struct
    type nonrec t =
      {
      routingControl: RoutingControl.t option
        [@ocaml.doc "The routing control that was updated."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?routingControl = fun () -> { routingControl }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("RoutingControl",
           (Option.map x.routingControl ~f:RoutingControl.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let routingControl =
        (Option.map ~f:RoutingControl.of_xml)
          (Xml.child xml_arg0 "RoutingControl") in
      make ?routingControl ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let routingControl =
        field_map json__ "RoutingControl" RoutingControl.of_json in
      make ?routingControl ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates a routing control. You can only update the name of the routing control. To get or update the routing control state, see the Recovery Cluster (data plane) API actions for Amazon Route 53 Application Recovery Controller."]
module UpdateRoutingControlRequest =
  struct
    type nonrec t =
      {
      routingControlArn: Zz__stringMin1Max256PatternAZaZ09.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the routing control."];
      routingControlName: Zz__stringMin1Max64PatternS.t
        [@ocaml.doc "The name of the routing control."]}
    let context_ = "UpdateRoutingControlRequest"
    let make ~routingControlArn =
      fun ~routingControlName ->
        fun () -> { routingControlArn; routingControlName }
    let to_value x =
      structure_to_value
        [("RoutingControlArn",
           (Some
              (Zz__stringMin1Max256PatternAZaZ09.to_value x.routingControlArn)));
        ("RoutingControlName",
          (Some (Zz__stringMin1Max64PatternS.to_value x.routingControlName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let routingControlName =
        Zz__stringMin1Max64PatternS.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RoutingControlName") in
      let routingControlArn =
        Zz__stringMin1Max256PatternAZaZ09.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RoutingControlArn") in
      make ~routingControlName ~routingControlArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let routingControlName =
        field_map_exn json__ "RoutingControlName"
          Zz__stringMin1Max64PatternS.of_json in
      let routingControlArn =
        field_map_exn json__ "RoutingControlArn"
          Zz__stringMin1Max256PatternAZaZ09.of_json in
      make ~routingControlName ~routingControlArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The details of the routing control that you're updating."]
module UpdateControlPanelResponse =
  struct
    type nonrec t =
      {
      controlPanel: ControlPanel.t option
        [@ocaml.doc "The control panel to update."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?controlPanel = fun () -> { controlPanel }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ControlPanel",
           (Option.map x.controlPanel ~f:ControlPanel.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let controlPanel =
        (Option.map ~f:ControlPanel.of_xml)
          (Xml.child xml_arg0 "ControlPanel") in
      make ?controlPanel ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let controlPanel = field_map json__ "ControlPanel" ControlPanel.of_json in
      make ?controlPanel ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates a control panel. The only update you can make to a control panel is to change the name of the control panel."]
module UpdateControlPanelRequest =
  struct
    type nonrec t =
      {
      controlPanelArn: Zz__stringMin1Max256PatternAZaZ09.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the control panel."];
      controlPanelName: Zz__stringMin1Max64PatternS.t
        [@ocaml.doc "The name of the control panel."]}
    let context_ = "UpdateControlPanelRequest"
    let make ~controlPanelArn =
      fun ~controlPanelName ->
        fun () -> { controlPanelArn; controlPanelName }
    let to_value x =
      structure_to_value
        [("ControlPanelArn",
           (Some
              (Zz__stringMin1Max256PatternAZaZ09.to_value x.controlPanelArn)));
        ("ControlPanelName",
          (Some (Zz__stringMin1Max64PatternS.to_value x.controlPanelName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let controlPanelName =
        Zz__stringMin1Max64PatternS.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ControlPanelName") in
      let controlPanelArn =
        Zz__stringMin1Max256PatternAZaZ09.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ControlPanelArn") in
      make ~controlPanelName ~controlPanelArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let controlPanelName =
        field_map_exn json__ "ControlPanelName"
          Zz__stringMin1Max64PatternS.of_json in
      let controlPanelArn =
        field_map_exn json__ "ControlPanelArn"
          Zz__stringMin1Max256PatternAZaZ09.of_json in
      make ~controlPanelName ~controlPanelArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The details of the control panel that you're updating."]
module UpdateClusterResponse =
  struct
    type nonrec t =
      {
      cluster: Cluster.t option [@ocaml.doc "The cluster that was updated."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?cluster = fun () -> { cluster }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Cluster", (Option.map x.cluster ~f:Cluster.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let cluster =
        (Option.map ~f:Cluster.of_xml) (Xml.child xml_arg0 "Cluster") in
      make ?cluster ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let cluster = field_map json__ "Cluster" Cluster.of_json in
      make ?cluster ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates an existing cluster. You can only update the network type of a cluster."]
module UpdateClusterRequest =
  struct
    type nonrec t =
      {
      clusterArn: Zz__stringMin1Max256PatternAZaZ09.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the cluster."];
      networkType: NetworkType.t
        [@ocaml.doc
          "The network type of the cluster. NetworkType can be one of the following: IPV4, DUALSTACK."]}
    let context_ = "UpdateClusterRequest"
    let make ~clusterArn =
      fun ~networkType -> fun () -> { clusterArn; networkType }
    let to_value x =
      structure_to_value
        [("ClusterArn",
           (Some (Zz__stringMin1Max256PatternAZaZ09.to_value x.clusterArn)));
        ("NetworkType", (Some (NetworkType.to_value x.networkType)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let networkType =
        NetworkType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "NetworkType") in
      let clusterArn =
        Zz__stringMin1Max256PatternAZaZ09.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ClusterArn") in
      make ~networkType ~clusterArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let networkType =
        field_map_exn json__ "NetworkType" NetworkType.of_json in
      let clusterArn =
        field_map_exn json__ "ClusterArn"
          Zz__stringMin1Max256PatternAZaZ09.of_json in
      make ~networkType ~clusterArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The details of the cluster that you're updating."]
module UntagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Removes a tag from a resource."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: Zz__string.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the resource that's tagged."];
      tagKeys: Zz__listOf__string.t
        [@ocaml.doc "Keys for the tags to be removed."]}
    let context_ = "UntagResourceRequest"
    let make ~resourceArn =
      fun ~tagKeys -> fun () -> { resourceArn; tagKeys }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (Zz__string.to_value x.resourceArn)));
        ("TagKeys", (Some (Zz__listOf__string.to_value x.tagKeys)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagKeys =
        Zz__listOf__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TagKeys") in
      let resourceArn =
        Zz__string.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" Zz__listOf__string.of_json in
      let resourceArn = field_map_exn json__ "ResourceArn" Zz__string.of_json in
      make ~tagKeys ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Removes a tag from a resource."]
module TagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Adds a tag to a resource."]
module TagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: Zz__string.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the resource that's tagged."];
      tags: Zz__mapOf__stringMin0Max256PatternS.t
        [@ocaml.doc "The tags associated with the resource."]}
    let context_ = "TagResourceRequest"
    let make ~resourceArn = fun ~tags -> fun () -> { resourceArn; tags }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (Zz__string.to_value x.resourceArn)));
        ("Tags",
          (Some (Zz__mapOf__stringMin0Max256PatternS.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        Zz__mapOf__stringMin0Max256PatternS.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Tags") in
      let resourceArn =
        Zz__string.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"
          Zz__mapOf__stringMin0Max256PatternS.of_json in
      let resourceArn = field_map_exn json__ "ResourceArn" Zz__string.of_json in
      make ~tags ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Request of adding tag to the resource"]
module ListTagsForResourceResponse =
  struct
    type nonrec t =
      {
      tags: Zz__mapOf__stringMin0Max256PatternS.t option
        [@ocaml.doc "The tags associated with the resource."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tags = fun () -> { tags }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Tags",
           (Option.map x.tags ~f:Zz__mapOf__stringMin0Max256PatternS.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        (Option.map ~f:Zz__mapOf__stringMin0Max256PatternS.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" Zz__mapOf__stringMin0Max256PatternS.of_json in
      make ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the tags for a resource."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: Zz__string.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the resource that's tagged."]}
    let context_ = "ListTagsForResourceRequest"
    let make ~resourceArn = fun () -> { resourceArn }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (Zz__string.to_value x.resourceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        Zz__string.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" Zz__string.of_json in
      make ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the tags for a resource."]
module ListSafetyRulesResponse =
  struct
    type nonrec t =
      {
      nextToken: Zz__stringMin1Max8096PatternS.t option
        [@ocaml.doc
          "The token that identifies which batch of results you want to see."];
      safetyRules: Zz__listOfRule.t option
        [@ocaml.doc "The list of safety rules in a control panel."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?safetyRules -> fun () -> { nextToken; safetyRules }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("NextToken",
           (Option.map x.nextToken ~f:Zz__stringMin1Max8096PatternS.to_value));
        ("SafetyRules",
          (Option.map x.safetyRules ~f:Zz__listOfRule.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let safetyRules =
        (Option.map ~f:Zz__listOfRule.of_xml)
          (Xml.child xml_arg0 "SafetyRules") in
      let nextToken =
        (Option.map ~f:Zz__stringMin1Max8096PatternS.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      make ?safetyRules ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let safetyRules = field_map json__ "SafetyRules" Zz__listOfRule.of_json in
      let nextToken =
        field_map json__ "NextToken" Zz__stringMin1Max8096PatternS.of_json in
      make ?safetyRules ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "List the safety rules (the assertion rules and gating rules) that you've defined for the routing controls in a control panel."]
module ListSafetyRulesRequest =
  struct
    type nonrec t =
      {
      controlPanelArn: Zz__string.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the control panel."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The number of objects that you want to return with this call."];
      nextToken: Zz__string.t option
        [@ocaml.doc
          "The token that identifies which batch of results you want to see."]}
    let context_ = "ListSafetyRulesRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~controlPanelArn ->
          fun () -> { maxResults; nextToken; controlPanelArn }
    let to_value x =
      structure_to_value
        [("ControlPanelArn", (Some (Zz__string.to_value x.controlPanelArn)));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let controlPanelArn =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ControlPanelArn") in
      make ?nextToken ?maxResults ~controlPanelArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" Zz__string.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let controlPanelArn =
        field_map_exn json__ "ControlPanelArn" Zz__string.of_json in
      make ?nextToken ?maxResults ~controlPanelArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "List the safety rules (the assertion rules and gating rules) that you've defined for the routing controls in a control panel."]
module ListRoutingControlsResponse =
  struct
    type nonrec t =
      {
      nextToken: Zz__stringMin1Max8096PatternS.t option
        [@ocaml.doc
          "The token that identifies which batch of results you want to see."];
      routingControls: Zz__listOfRoutingControl.t option
        [@ocaml.doc "An array of routing controls."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?routingControls -> fun () -> { nextToken; routingControls }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("NextToken",
           (Option.map x.nextToken ~f:Zz__stringMin1Max8096PatternS.to_value));
        ("RoutingControls",
          (Option.map x.routingControls ~f:Zz__listOfRoutingControl.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let routingControls =
        (Option.map ~f:Zz__listOfRoutingControl.of_xml)
          (Xml.child xml_arg0 "RoutingControls") in
      let nextToken =
        (Option.map ~f:Zz__stringMin1Max8096PatternS.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      make ?routingControls ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let routingControls =
        field_map json__ "RoutingControls" Zz__listOfRoutingControl.of_json in
      let nextToken =
        field_map json__ "NextToken" Zz__stringMin1Max8096PatternS.of_json in
      make ?routingControls ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns an array of routing controls for a control panel. A routing control is an Amazon Route 53 Application Recovery Controller construct that has one of two states: ON and OFF. You can map the routing control state to the state of an Amazon Route 53 health check, which can be used to control routing."]
module ListRoutingControlsRequest =
  struct
    type nonrec t =
      {
      controlPanelArn: Zz__string.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the control panel."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The number of objects that you want to return with this call."];
      nextToken: Zz__string.t option
        [@ocaml.doc
          "The token that identifies which batch of results you want to see."]}
    let context_ = "ListRoutingControlsRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~controlPanelArn ->
          fun () -> { maxResults; nextToken; controlPanelArn }
    let to_value x =
      structure_to_value
        [("ControlPanelArn", (Some (Zz__string.to_value x.controlPanelArn)));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let controlPanelArn =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ControlPanelArn") in
      make ?nextToken ?maxResults ~controlPanelArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" Zz__string.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let controlPanelArn =
        field_map_exn json__ "ControlPanelArn" Zz__string.of_json in
      make ?nextToken ?maxResults ~controlPanelArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns an array of routing controls for a control panel. A routing control is an Amazon Route 53 Application Recovery Controller construct that has one of two states: ON and OFF. You can map the routing control state to the state of an Amazon Route 53 health check, which can be used to control routing."]
module ListControlPanelsResponse =
  struct
    type nonrec t =
      {
      controlPanels: Zz__listOfControlPanel.t option
        [@ocaml.doc "The result of a successful ListControlPanel request."];
      nextToken: Zz__stringMin1Max8096PatternS.t option
        [@ocaml.doc
          "The token that identifies which batch of results you want to see."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?controlPanels =
      fun ?nextToken -> fun () -> { controlPanels; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ControlPanels",
           (Option.map x.controlPanels ~f:Zz__listOfControlPanel.to_value));
        ("NextToken",
          (Option.map x.nextToken ~f:Zz__stringMin1Max8096PatternS.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Zz__stringMin1Max8096PatternS.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let controlPanels =
        (Option.map ~f:Zz__listOfControlPanel.of_xml)
          (Xml.child xml_arg0 "ControlPanels") in
      make ?nextToken ?controlPanels ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken =
        field_map json__ "NextToken" Zz__stringMin1Max8096PatternS.of_json in
      let controlPanels =
        field_map json__ "ControlPanels" Zz__listOfControlPanel.of_json in
      make ?nextToken ?controlPanels ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns an array of control panels in an account or in a cluster."]
module ListControlPanelsRequest =
  struct
    type nonrec t =
      {
      clusterArn: Zz__string.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of a cluster."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The number of objects that you want to return with this call."];
      nextToken: Zz__string.t option
        [@ocaml.doc
          "The token that identifies which batch of results you want to see."]}
    let make ?clusterArn =
      fun ?maxResults ->
        fun ?nextToken -> fun () -> { clusterArn; maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("ClusterArn", (Option.map x.clusterArn ~f:Zz__string.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let clusterArn =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "ClusterArn") in
      make ?nextToken ?maxResults ?clusterArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" Zz__string.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let clusterArn = field_map json__ "ClusterArn" Zz__string.of_json in
      make ?nextToken ?maxResults ?clusterArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns an array of control panels in an account or in a cluster."]
module ListClustersResponse =
  struct
    type nonrec t =
      {
      clusters: Zz__listOfCluster.t option
        [@ocaml.doc "An array of the clusters in an account."];
      nextToken: Zz__stringMin1Max8096PatternS.t option
        [@ocaml.doc
          "The token that identifies which batch of results you want to see."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?clusters = fun ?nextToken -> fun () -> { clusters; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Clusters", (Option.map x.clusters ~f:Zz__listOfCluster.to_value));
        ("NextToken",
          (Option.map x.nextToken ~f:Zz__stringMin1Max8096PatternS.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Zz__stringMin1Max8096PatternS.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let clusters =
        (Option.map ~f:Zz__listOfCluster.of_xml)
          (Xml.child xml_arg0 "Clusters") in
      make ?nextToken ?clusters ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken =
        field_map json__ "NextToken" Zz__stringMin1Max8096PatternS.of_json in
      let clusters = field_map json__ "Clusters" Zz__listOfCluster.of_json in
      make ?nextToken ?clusters ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns an array of all the clusters in an account."]
module ListClustersRequest =
  struct
    type nonrec t =
      {
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The number of objects that you want to return with this call."];
      nextToken: Zz__string.t option
        [@ocaml.doc
          "The token that identifies which batch of results you want to see."]}
    let make ?maxResults =
      fun ?nextToken -> fun () -> { maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      make ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" Zz__string.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      make ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns an array of all the clusters in an account."]
module ListAssociatedRoute53HealthChecksResponse =
  struct
    type nonrec t =
      {
      healthCheckIds: Zz__listOf__stringMax36PatternS.t option
        [@ocaml.doc "Identifiers for the health checks."];
      nextToken: Zz__stringMin1Max8096PatternS.t option
        [@ocaml.doc "Next token for listing health checks."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?healthCheckIds =
      fun ?nextToken -> fun () -> { healthCheckIds; nextToken }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("HealthCheckIds",
           (Option.map x.healthCheckIds
              ~f:Zz__listOf__stringMax36PatternS.to_value));
        ("NextToken",
          (Option.map x.nextToken ~f:Zz__stringMin1Max8096PatternS.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Zz__stringMin1Max8096PatternS.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let healthCheckIds =
        (Option.map ~f:Zz__listOf__stringMax36PatternS.of_xml)
          (Xml.child xml_arg0 "HealthCheckIds") in
      make ?nextToken ?healthCheckIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken =
        field_map json__ "NextToken" Zz__stringMin1Max8096PatternS.of_json in
      let healthCheckIds =
        field_map json__ "HealthCheckIds"
          Zz__listOf__stringMax36PatternS.of_json in
      make ?nextToken ?healthCheckIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns an array of all Amazon Route 53 health checks associated with a specific routing control."]
module ListAssociatedRoute53HealthChecksRequest =
  struct
    type nonrec t =
      {
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The number of objects that you want to return with this call."];
      nextToken: Zz__string.t option
        [@ocaml.doc
          "The token that identifies which batch of results you want to see."];
      routingControlArn: Zz__string.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the routing control."]}
    let context_ = "ListAssociatedRoute53HealthChecksRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~routingControlArn ->
          fun () -> { maxResults; nextToken; routingControlArn }
    let to_value x =
      structure_to_value
        [("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:Zz__string.to_value));
        ("RoutingControlArn",
          (Some (Zz__string.to_value x.routingControlArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let routingControlArn =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RoutingControlArn") in
      let nextToken =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      make ~routingControlArn ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let routingControlArn =
        field_map_exn json__ "RoutingControlArn" Zz__string.of_json in
      let nextToken = field_map json__ "NextToken" Zz__string.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      make ~routingControlArn ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns an array of all Amazon Route 53 health checks associated with a specific routing control."]
module GetResourcePolicyResponse =
  struct
    type nonrec t =
      {
      policy: Zz__policy.t option [@ocaml.doc "The resource policy."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?policy = fun () -> { policy }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.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
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.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
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.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
        [("Policy", (Option.map x.policy ~f:Zz__policy.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policy =
        (Option.map ~f:Zz__policy.of_xml) (Xml.child xml_arg0 "Policy") in
      make ?policy ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let policy = field_map json__ "Policy" Zz__policy.of_json in
      make ?policy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Get information about the resource policy for a cluster."]
module GetResourcePolicyRequest =
  struct
    type nonrec t =
      {
      resourceArn: Zz__string.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the resource."]}
    let context_ = "GetResourcePolicyRequest"
    let make ~resourceArn = fun () -> { resourceArn }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (Zz__string.to_value x.resourceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        Zz__string.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" Zz__string.of_json in
      make ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Get information about the resource policy for a cluster."]
module DescribeSafetyRuleResponse =
  struct
    type nonrec t =
      {
      assertionRule: AssertionRule.t option
        [@ocaml.doc "The assertion rule in the response."];
      gatingRule: GatingRule.t option
        [@ocaml.doc "The gating rule in the response."]}
    type nonrec error =
      [ `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?assertionRule =
      fun ?gatingRule -> fun () -> { assertionRule; gatingRule }
    let error_of_json name json =
      match name with
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("AssertionRule",
           (Option.map x.assertionRule ~f:AssertionRule.to_value));
        ("GatingRule", (Option.map x.gatingRule ~f:GatingRule.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatingRule =
        (Option.map ~f:GatingRule.of_xml) (Xml.child xml_arg0 "GatingRule") in
      let assertionRule =
        (Option.map ~f:AssertionRule.of_xml)
          (Xml.child xml_arg0 "AssertionRule") in
      make ?gatingRule ?assertionRule ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatingRule = field_map json__ "GatingRule" GatingRule.of_json in
      let assertionRule =
        field_map json__ "AssertionRule" AssertionRule.of_json in
      make ?gatingRule ?assertionRule ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about a safety rule."]
module DescribeSafetyRuleRequest =
  struct
    type nonrec t =
      {
      safetyRuleArn: Zz__string.t [@ocaml.doc "The ARN of the safety rule."]}
    let context_ = "DescribeSafetyRuleRequest"
    let make ~safetyRuleArn = fun () -> { safetyRuleArn }
    let to_value x =
      structure_to_value
        [("SafetyRuleArn", (Some (Zz__string.to_value x.safetyRuleArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let safetyRuleArn =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SafetyRuleArn") in
      make ~safetyRuleArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let safetyRuleArn =
        field_map_exn json__ "SafetyRuleArn" Zz__string.of_json in
      make ~safetyRuleArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about a safety rule."]
module DescribeRoutingControlResponse =
  struct
    type nonrec t =
      {
      routingControl: RoutingControl.t option
        [@ocaml.doc "Information about the routing control."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?routingControl = fun () -> { routingControl }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("RoutingControl",
           (Option.map x.routingControl ~f:RoutingControl.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let routingControl =
        (Option.map ~f:RoutingControl.of_xml)
          (Xml.child xml_arg0 "RoutingControl") in
      make ?routingControl ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let routingControl =
        field_map json__ "RoutingControl" RoutingControl.of_json in
      make ?routingControl ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Displays details about a routing control. A routing control has one of two states: ON and OFF. You can map the routing control state to the state of an Amazon Route 53 health check, which can be used to control routing. To get or update the routing control state, see the Recovery Cluster (data plane) API actions for Amazon Route 53 Application Recovery Controller."]
module DescribeRoutingControlRequest =
  struct
    type nonrec t =
      {
      routingControlArn: Zz__string.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the routing control."]}
    let context_ = "DescribeRoutingControlRequest"
    let make ~routingControlArn = fun () -> { routingControlArn }
    let to_value x =
      structure_to_value
        [("RoutingControlArn",
           (Some (Zz__string.to_value x.routingControlArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let routingControlArn =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RoutingControlArn") in
      make ~routingControlArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let routingControlArn =
        field_map_exn json__ "RoutingControlArn" Zz__string.of_json in
      make ~routingControlArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Displays details about a routing control. A routing control has one of two states: ON and OFF. You can map the routing control state to the state of an Amazon Route 53 health check, which can be used to control routing. To get or update the routing control state, see the Recovery Cluster (data plane) API actions for Amazon Route 53 Application Recovery Controller."]
module DescribeControlPanelResponse =
  struct
    type nonrec t =
      {
      controlPanel: ControlPanel.t option
        [@ocaml.doc "Information about the control panel."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?controlPanel = fun () -> { controlPanel }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ControlPanel",
           (Option.map x.controlPanel ~f:ControlPanel.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let controlPanel =
        (Option.map ~f:ControlPanel.of_xml)
          (Xml.child xml_arg0 "ControlPanel") in
      make ?controlPanel ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let controlPanel = field_map json__ "ControlPanel" ControlPanel.of_json in
      make ?controlPanel ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Displays details about a control panel."]
module DescribeControlPanelRequest =
  struct
    type nonrec t =
      {
      controlPanelArn: Zz__string.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the control panel."]}
    let context_ = "DescribeControlPanelRequest"
    let make ~controlPanelArn = fun () -> { controlPanelArn }
    let to_value x =
      structure_to_value
        [("ControlPanelArn", (Some (Zz__string.to_value x.controlPanelArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let controlPanelArn =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ControlPanelArn") in
      make ~controlPanelArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let controlPanelArn =
        field_map_exn json__ "ControlPanelArn" Zz__string.of_json in
      make ~controlPanelArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Displays details about a control panel."]
module DescribeClusterResponse =
  struct
    type nonrec t =
      {
      cluster: Cluster.t option
        [@ocaml.doc "The cluster for the DescribeCluster request."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?cluster = fun () -> { cluster }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Cluster", (Option.map x.cluster ~f:Cluster.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let cluster =
        (Option.map ~f:Cluster.of_xml) (Xml.child xml_arg0 "Cluster") in
      make ?cluster ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let cluster = field_map json__ "Cluster" Cluster.of_json in
      make ?cluster ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Display the details about a cluster. The response includes the cluster name, endpoints, status, and Amazon Resource Name (ARN)."]
module DescribeClusterRequest =
  struct
    type nonrec t =
      {
      clusterArn: Zz__string.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the cluster."]}
    let context_ = "DescribeClusterRequest"
    let make ~clusterArn = fun () -> { clusterArn }
    let to_value x =
      structure_to_value
        [("ClusterArn", (Some (Zz__string.to_value x.clusterArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clusterArn =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ClusterArn") in
      make ~clusterArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clusterArn = field_map_exn json__ "ClusterArn" Zz__string.of_json in
      make ~clusterArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Display the details about a cluster. The response includes the cluster name, endpoints, status, and Amazon Resource Name (ARN)."]
module DeleteSafetyRuleResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes a safety rule./>"]
module DeleteSafetyRuleRequest =
  struct
    type nonrec t =
      {
      safetyRuleArn: Zz__string.t [@ocaml.doc "The ARN of the safety rule."]}
    let context_ = "DeleteSafetyRuleRequest"
    let make ~safetyRuleArn = fun () -> { safetyRuleArn }
    let to_value x =
      structure_to_value
        [("SafetyRuleArn", (Some (Zz__string.to_value x.safetyRuleArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let safetyRuleArn =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SafetyRuleArn") in
      make ~safetyRuleArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let safetyRuleArn =
        field_map_exn json__ "SafetyRuleArn" Zz__string.of_json in
      make ~safetyRuleArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes a safety rule./>"]
module DeleteRoutingControlResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes a routing control."]
module DeleteRoutingControlRequest =
  struct
    type nonrec t =
      {
      routingControlArn: Zz__string.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the routing control that you're deleting."]}
    let context_ = "DeleteRoutingControlRequest"
    let make ~routingControlArn = fun () -> { routingControlArn }
    let to_value x =
      structure_to_value
        [("RoutingControlArn",
           (Some (Zz__string.to_value x.routingControlArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let routingControlArn =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RoutingControlArn") in
      make ~routingControlArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let routingControlArn =
        field_map_exn json__ "RoutingControlArn" Zz__string.of_json in
      make ~routingControlArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes a routing control."]
module DeleteControlPanelResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes a control panel."]
module DeleteControlPanelRequest =
  struct
    type nonrec t =
      {
      controlPanelArn: Zz__string.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the control panel."]}
    let context_ = "DeleteControlPanelRequest"
    let make ~controlPanelArn = fun () -> { controlPanelArn }
    let to_value x =
      structure_to_value
        [("ControlPanelArn", (Some (Zz__string.to_value x.controlPanelArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let controlPanelArn =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ControlPanelArn") in
      make ~controlPanelArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let controlPanelArn =
        field_map_exn json__ "ControlPanelArn" Zz__string.of_json in
      make ~controlPanelArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes a control panel."]
module DeleteClusterResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Delete a cluster."]
module DeleteClusterRequest =
  struct
    type nonrec t =
      {
      clusterArn: Zz__string.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the cluster that you're deleting."]}
    let context_ = "DeleteClusterRequest"
    let make ~clusterArn = fun () -> { clusterArn }
    let to_value x =
      structure_to_value
        [("ClusterArn", (Some (Zz__string.to_value x.clusterArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clusterArn =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ClusterArn") in
      make ~clusterArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clusterArn = field_map_exn json__ "ClusterArn" Zz__string.of_json in
      make ~clusterArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Delete a cluster."]
module CreateSafetyRuleResponse =
  struct
    type nonrec t =
      {
      assertionRule: AssertionRule.t option
        [@ocaml.doc "The assertion rule created."];
      gatingRule: GatingRule.t option [@ocaml.doc "The gating rule created."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?assertionRule =
      fun ?gatingRule -> fun () -> { assertionRule; gatingRule }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("AssertionRule",
           (Option.map x.assertionRule ~f:AssertionRule.to_value));
        ("GatingRule", (Option.map x.gatingRule ~f:GatingRule.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatingRule =
        (Option.map ~f:GatingRule.of_xml) (Xml.child xml_arg0 "GatingRule") in
      let assertionRule =
        (Option.map ~f:AssertionRule.of_xml)
          (Xml.child xml_arg0 "AssertionRule") in
      make ?gatingRule ?assertionRule ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatingRule = field_map json__ "GatingRule" GatingRule.of_json in
      let assertionRule =
        field_map json__ "AssertionRule" AssertionRule.of_json in
      make ?gatingRule ?assertionRule ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a safety rule in a control panel. Safety rules let you add safeguards around changing routing control states, and for enabling and disabling routing controls, to help prevent unexpected outcomes. There are two types of safety rules: assertion rules and gating rules. Assertion rule: An assertion rule enforces that, when you change a routing control state, that a certain criteria is met. For example, the criteria might be that at least one routing control state is On after the transaction so that traffic continues to flow to at least one cell for the application. This ensures that you avoid a fail-open scenario. Gating rule: A gating rule lets you configure a gating routing control as an overall \"on/off\" switch for a group of routing controls. Or, you can configure more complex gating scenarios, for example by configuring multiple gating routing controls. For more information, see Safety rules in the Amazon Route 53 Application Recovery Controller Developer Guide."]
module CreateSafetyRuleRequest =
  struct
    type nonrec t =
      {
      assertionRule: NewAssertionRule.t option
        [@ocaml.doc "The assertion rule requested."];
      clientToken: Zz__stringMin1Max64PatternS.t option
        [@ocaml.doc
          "A unique, case-sensitive string of up to 64 ASCII characters. To make an idempotent API request with an action, specify a client token in the request."];
      gatingRule: NewGatingRule.t option
        [@ocaml.doc "The gating rule requested."];
      tags: Zz__mapOf__stringMin0Max256PatternS.t option
        [@ocaml.doc "The tags associated with the safety rule."]}
    let make ?assertionRule =
      fun ?clientToken ->
        fun ?gatingRule ->
          fun ?tags ->
            fun () -> { assertionRule; clientToken; gatingRule; tags }
    let to_value x =
      structure_to_value
        [("AssertionRule",
           (Option.map x.assertionRule ~f:NewAssertionRule.to_value));
        ("ClientToken",
          (Option.map x.clientToken ~f:Zz__stringMin1Max64PatternS.to_value));
        ("GatingRule", (Option.map x.gatingRule ~f:NewGatingRule.to_value));
        ("Tags",
          (Option.map x.tags ~f:Zz__mapOf__stringMin0Max256PatternS.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        (Option.map ~f:Zz__mapOf__stringMin0Max256PatternS.of_xml)
          (Xml.child xml_arg0 "Tags") in
      let gatingRule =
        (Option.map ~f:NewGatingRule.of_xml)
          (Xml.child xml_arg0 "GatingRule") in
      let clientToken =
        (Option.map ~f:Zz__stringMin1Max64PatternS.of_xml)
          (Xml.child xml_arg0 "ClientToken") in
      let assertionRule =
        (Option.map ~f:NewAssertionRule.of_xml)
          (Xml.child xml_arg0 "AssertionRule") in
      make ?tags ?gatingRule ?clientToken ?assertionRule ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags =
        field_map json__ "Tags" Zz__mapOf__stringMin0Max256PatternS.of_json in
      let gatingRule = field_map json__ "GatingRule" NewGatingRule.of_json in
      let clientToken =
        field_map json__ "ClientToken" Zz__stringMin1Max64PatternS.of_json in
      let assertionRule =
        field_map json__ "AssertionRule" NewAssertionRule.of_json in
      make ?tags ?gatingRule ?clientToken ?assertionRule ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request body that you include when you create a safety rule."]
module CreateRoutingControlResponse =
  struct
    type nonrec t =
      {
      routingControl: RoutingControl.t option
        [@ocaml.doc "The routing control that is created."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?routingControl = fun () -> { routingControl }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("RoutingControl",
           (Option.map x.routingControl ~f:RoutingControl.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let routingControl =
        (Option.map ~f:RoutingControl.of_xml)
          (Xml.child xml_arg0 "RoutingControl") in
      make ?routingControl ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let routingControl =
        field_map json__ "RoutingControl" RoutingControl.of_json in
      make ?routingControl ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new routing control. A routing control has one of two states: ON and OFF. You can map the routing control state to the state of an Amazon Route 53 health check, which can be used to control traffic routing. To get or update the routing control state, see the Recovery Cluster (data plane) API actions for Amazon Route 53 Application Recovery Controller."]
module CreateRoutingControlRequest =
  struct
    type nonrec t =
      {
      clientToken: Zz__stringMin1Max64PatternS.t option
        [@ocaml.doc
          "A unique, case-sensitive string of up to 64 ASCII characters. To make an idempotent API request with an action, specify a client token in the request."];
      clusterArn: Zz__stringMin1Max256PatternAZaZ09.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the cluster that includes the routing control."];
      controlPanelArn: Zz__stringMin1Max256PatternAZaZ09.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the control panel that includes the routing control."];
      routingControlName: Zz__stringMin1Max64PatternS.t
        [@ocaml.doc "The name of the routing control."]}
    let context_ = "CreateRoutingControlRequest"
    let make ?clientToken =
      fun ?controlPanelArn ->
        fun ~clusterArn ->
          fun ~routingControlName ->
            fun () ->
              { clientToken; controlPanelArn; clusterArn; routingControlName
              }
    let to_value x =
      structure_to_value
        [("ClientToken",
           (Option.map x.clientToken ~f:Zz__stringMin1Max64PatternS.to_value));
        ("ClusterArn",
          (Some (Zz__stringMin1Max256PatternAZaZ09.to_value x.clusterArn)));
        ("ControlPanelArn",
          (Option.map x.controlPanelArn
             ~f:Zz__stringMin1Max256PatternAZaZ09.to_value));
        ("RoutingControlName",
          (Some (Zz__stringMin1Max64PatternS.to_value x.routingControlName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let routingControlName =
        Zz__stringMin1Max64PatternS.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RoutingControlName") in
      let controlPanelArn =
        (Option.map ~f:Zz__stringMin1Max256PatternAZaZ09.of_xml)
          (Xml.child xml_arg0 "ControlPanelArn") in
      let clusterArn =
        Zz__stringMin1Max256PatternAZaZ09.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ClusterArn") in
      let clientToken =
        (Option.map ~f:Zz__stringMin1Max64PatternS.of_xml)
          (Xml.child xml_arg0 "ClientToken") in
      make ~routingControlName ?controlPanelArn ~clusterArn ?clientToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let routingControlName =
        field_map_exn json__ "RoutingControlName"
          Zz__stringMin1Max64PatternS.of_json in
      let controlPanelArn =
        field_map json__ "ControlPanelArn"
          Zz__stringMin1Max256PatternAZaZ09.of_json in
      let clusterArn =
        field_map_exn json__ "ClusterArn"
          Zz__stringMin1Max256PatternAZaZ09.of_json in
      let clientToken =
        field_map json__ "ClientToken" Zz__stringMin1Max64PatternS.of_json in
      make ~routingControlName ?controlPanelArn ~clusterArn ?clientToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The details of the routing control that you're creating."]
module CreateControlPanelResponse =
  struct
    type nonrec t =
      {
      controlPanel: ControlPanel.t option
        [@ocaml.doc "Information about a control panel."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?controlPanel = fun () -> { controlPanel }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ControlPanel",
           (Option.map x.controlPanel ~f:ControlPanel.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let controlPanel =
        (Option.map ~f:ControlPanel.of_xml)
          (Xml.child xml_arg0 "ControlPanel") in
      make ?controlPanel ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let controlPanel = field_map json__ "ControlPanel" ControlPanel.of_json in
      make ?controlPanel ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new control panel. A control panel represents a group of routing controls that can be changed together in a single transaction. You can use a control panel to centrally view the operational status of applications across your organization, and trigger multi-app failovers in a single transaction, for example, to fail over an Availability Zone or Amazon Web Services Region."]
module CreateControlPanelRequest =
  struct
    type nonrec t =
      {
      clientToken: Zz__stringMin1Max64PatternS.t option
        [@ocaml.doc
          "A unique, case-sensitive string of up to 64 ASCII characters. To make an idempotent API request with an action, specify a client token in the request."];
      clusterArn: Zz__stringMin1Max256PatternAZaZ09.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the cluster for the control panel."];
      controlPanelName: Zz__stringMin1Max64PatternS.t
        [@ocaml.doc "The name of the control panel."];
      tags: Zz__mapOf__stringMin0Max256PatternS.t option
        [@ocaml.doc "The tags associated with the control panel."]}
    let context_ = "CreateControlPanelRequest"
    let make ?clientToken =
      fun ?tags ->
        fun ~clusterArn ->
          fun ~controlPanelName ->
            fun () -> { clientToken; tags; clusterArn; controlPanelName }
    let to_value x =
      structure_to_value
        [("ClientToken",
           (Option.map x.clientToken ~f:Zz__stringMin1Max64PatternS.to_value));
        ("ClusterArn",
          (Some (Zz__stringMin1Max256PatternAZaZ09.to_value x.clusterArn)));
        ("ControlPanelName",
          (Some (Zz__stringMin1Max64PatternS.to_value x.controlPanelName)));
        ("Tags",
          (Option.map x.tags ~f:Zz__mapOf__stringMin0Max256PatternS.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        (Option.map ~f:Zz__mapOf__stringMin0Max256PatternS.of_xml)
          (Xml.child xml_arg0 "Tags") in
      let controlPanelName =
        Zz__stringMin1Max64PatternS.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ControlPanelName") in
      let clusterArn =
        Zz__stringMin1Max256PatternAZaZ09.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ClusterArn") in
      let clientToken =
        (Option.map ~f:Zz__stringMin1Max64PatternS.of_xml)
          (Xml.child xml_arg0 "ClientToken") in
      make ?tags ~controlPanelName ~clusterArn ?clientToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags =
        field_map json__ "Tags" Zz__mapOf__stringMin0Max256PatternS.of_json in
      let controlPanelName =
        field_map_exn json__ "ControlPanelName"
          Zz__stringMin1Max64PatternS.of_json in
      let clusterArn =
        field_map_exn json__ "ClusterArn"
          Zz__stringMin1Max256PatternAZaZ09.of_json in
      let clientToken =
        field_map json__ "ClientToken" Zz__stringMin1Max64PatternS.of_json in
      make ?tags ~controlPanelName ~clusterArn ?clientToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The details of the control panel that you're creating."]
module CreateClusterResponse =
  struct
    type nonrec t =
      {
      cluster: Cluster.t option [@ocaml.doc "The cluster that was created."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?cluster = fun () -> { cluster }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Cluster", (Option.map x.cluster ~f:Cluster.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let cluster =
        (Option.map ~f:Cluster.of_xml) (Xml.child xml_arg0 "Cluster") in
      make ?cluster ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let cluster = field_map json__ "Cluster" Cluster.of_json in
      make ?cluster ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Create a new cluster. A cluster is a set of redundant Regional endpoints against which you can run API calls to update or get the state of one or more routing controls. Each cluster has a name, status, Amazon Resource Name (ARN), and an array of the five cluster endpoints (one for each supported Amazon Web Services Region) that you can use with API calls to the cluster data plane."]
module CreateClusterRequest =
  struct
    type nonrec t =
      {
      clientToken: Zz__stringMin1Max64PatternS.t option
        [@ocaml.doc
          "A unique, case-sensitive string of up to 64 ASCII characters. To make an idempotent API request with an action, specify a client token in the request."];
      clusterName: Zz__stringMin1Max64PatternS.t
        [@ocaml.doc "The name of the cluster."];
      tags: Zz__mapOf__stringMin0Max256PatternS.t option
        [@ocaml.doc "The tags associated with the cluster."];
      networkType: NetworkType.t option
        [@ocaml.doc
          "The network type of the cluster. NetworkType can be one of the following: IPV4, DUALSTACK."]}
    let context_ = "CreateClusterRequest"
    let make ?clientToken =
      fun ?tags ->
        fun ?networkType ->
          fun ~clusterName ->
            fun () -> { clientToken; tags; networkType; clusterName }
    let to_value x =
      structure_to_value
        [("ClientToken",
           (Option.map x.clientToken ~f:Zz__stringMin1Max64PatternS.to_value));
        ("ClusterName",
          (Some (Zz__stringMin1Max64PatternS.to_value x.clusterName)));
        ("Tags",
          (Option.map x.tags ~f:Zz__mapOf__stringMin0Max256PatternS.to_value));
        ("NetworkType", (Option.map x.networkType ~f:NetworkType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let networkType =
        (Option.map ~f:NetworkType.of_xml) (Xml.child xml_arg0 "NetworkType") in
      let tags =
        (Option.map ~f:Zz__mapOf__stringMin0Max256PatternS.of_xml)
          (Xml.child xml_arg0 "Tags") in
      let clusterName =
        Zz__stringMin1Max64PatternS.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ClusterName") in
      let clientToken =
        (Option.map ~f:Zz__stringMin1Max64PatternS.of_xml)
          (Xml.child xml_arg0 "ClientToken") in
      make ?networkType ?tags ~clusterName ?clientToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let networkType = field_map json__ "NetworkType" NetworkType.of_json in
      let tags =
        field_map json__ "Tags" Zz__mapOf__stringMin0Max256PatternS.of_json in
      let clusterName =
        field_map_exn json__ "ClusterName"
          Zz__stringMin1Max64PatternS.of_json in
      let clientToken =
        field_map json__ "ClientToken" Zz__stringMin1Max64PatternS.of_json in
      make ?networkType ?tags ~clusterName ?clientToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a cluster."]