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_cluster
let apiVersion = "2019-12-02"
let endpointPrefix = "route53-recovery-cluster"
let serviceFullName = "Route53 Recovery Cluster"
let signatureVersion = "v4"
let protocol = "json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let targetPrefix = "ToggleCustomerAPI"
let simple_to_json to_value x =
  Botodata.Json.value_to_json_scalar (to_value x)
let composed_to_json to_value x = Botodata.Json.value_to_json (to_value x)
let to_query to_value x = Client.Query.of_value (to_value x)
let structure_to_value_aux st ~f =
  let filter = function | (k, Some v) -> Some (k, v) | _ -> None in
  let pair k v = (k, v) in
  let defer_value (k, dv) = pair k dv in
  ((List.filter_map st ~f:filter) |> (List.map ~f:defer_value)) |>
    (fun x -> `Structure (f x))
let structure_to_value = structure_to_value_aux ~f:Fn.id
let structure_to_wrapped_value ~wrapper ~response =
  structure_to_value_aux
    ~f:(fun x -> [(wrapper, (`Structure x)); (response, (`Structure []))])
module String_ =
  struct
    type nonrec t = string
    let context_ = "String"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"String" j
    let to_json = simple_to_json to_value
  end
module ValidationExceptionField =
  struct
    type nonrec t =
      {
      name: String_.t option
        [@ocaml.doc "The field that had the validation exception."];
      message: String_.t option
        [@ocaml.doc "Information about the validation exception."]}
    let make ?name = fun ?message -> fun () -> { name; message }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:String_.to_value));
        ("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "name") in
      make ?message ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      let name = field_map json__ "name" String_.of_json in
      make ?message ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "There was a validation error on the request."]
module Arn =
  struct
    type nonrec t = string
    let context_ = "Arn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:255) >>=
                  (fun () -> check_pattern i ~pattern:"^[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:"Arn" j
    let to_json = simple_to_json to_value
  end
module RoutingControlState =
  struct
    type nonrec t =
      | On 
      | Off 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | On -> "On" | Off -> "Off" | Non_static_id s -> s
    let of_string =
      function | "On" -> On | "Off" -> Off | 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 RoutingControlState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RoutingControlState" j)
    let to_json = simple_to_json to_value
  end
module ControlPanelName =
  struct
    type nonrec t = string
    let context_ = "ControlPanelName"
    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:"ControlPanelName" j
    let to_json = simple_to_json to_value
  end
module Owner =
  struct
    type nonrec t = string
    let context_ = "Owner"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:12) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (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:"Owner" j
    let to_json = simple_to_json to_value
  end
module RoutingControlName =
  struct
    type nonrec t = string
    let context_ = "RoutingControlName"
    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:"RoutingControlName" j
    let to_json = simple_to_json to_value
  end
module RetryAfterSeconds =
  struct
    type nonrec t = int[@@ocaml.doc
                         "Advice to clients on when the call can be safely retried"]
    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 RetryAfterSeconds" 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[@@ocaml.doc "Advice to clients on when the call can be safely retried"]
module ValidationExceptionFieldList =
  struct
    type nonrec t = ValidationExceptionField.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ValidationExceptionField.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:ValidationExceptionField.of_xml)
    let of_json j =
      list_of_json ~kind:"ValidationExceptionFieldList"
        ~of_json:ValidationExceptionField.of_json j
    let to_json v = composed_to_json to_value v
  end
module ValidationExceptionReason =
  struct
    type nonrec t =
      | UnknownOperation 
      | CannotParse 
      | FieldValidationFailed 
      | Other 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | UnknownOperation -> "unknownOperation"
      | CannotParse -> "cannotParse"
      | FieldValidationFailed -> "fieldValidationFailed"
      | Other -> "other"
      | Non_static_id s -> s
    let of_string =
      function
      | "unknownOperation" -> UnknownOperation
      | "cannotParse" -> CannotParse
      | "fieldValidationFailed" -> FieldValidationFailed
      | "other" -> Other
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration ValidationExceptionReason" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ValidationExceptionReason" j)
    let to_json = simple_to_json to_value
  end
module UpdateRoutingControlStateEntry =
  struct
    type nonrec t =
      {
      routingControlArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for a routing control state entry."];
      routingControlState: RoutingControlState.t
        [@ocaml.doc
          "The routing control state in a set of routing control state entries."]}
    let context_ = "UpdateRoutingControlStateEntry"
    let make ~routingControlArn =
      fun ~routingControlState ->
        fun () -> { routingControlArn; routingControlState }
    let to_value x =
      structure_to_value
        [("RoutingControlArn", (Some (Arn.to_value x.routingControlArn)));
        ("RoutingControlState",
          (Some (RoutingControlState.to_value x.routingControlState)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let routingControlState =
        RoutingControlState.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RoutingControlState") in
      let routingControlArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RoutingControlArn") in
      make ~routingControlState ~routingControlArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let routingControlState =
        field_map_exn json__ "RoutingControlState"
          RoutingControlState.of_json in
      let routingControlArn =
        field_map_exn json__ "RoutingControlArn" Arn.of_json in
      make ~routingControlState ~routingControlArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A routing control state entry."]
module RoutingControl =
  struct
    type nonrec t =
      {
      controlPanelArn: Arn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the control panel where the routing control is located."];
      controlPanelName: ControlPanelName.t option
        [@ocaml.doc
          "The name of the control panel where the routing control is located. Only ASCII characters are supported for control panel names."];
      routingControlArn: Arn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the routing control."];
      routingControlName: RoutingControlName.t option
        [@ocaml.doc "The name of the routing control."];
      routingControlState: RoutingControlState.t option
        [@ocaml.doc
          "The current state of the routing control. When a routing control state is set to ON, traffic flows to a cell. When the state is set to OFF, traffic does not flow."];
      owner: Owner.t option
        [@ocaml.doc
          "The Amazon Web Services account ID of the routing control owner."]}
    let make ?controlPanelArn =
      fun ?controlPanelName ->
        fun ?routingControlArn ->
          fun ?routingControlName ->
            fun ?routingControlState ->
              fun ?owner ->
                fun () ->
                  {
                    controlPanelArn;
                    controlPanelName;
                    routingControlArn;
                    routingControlName;
                    routingControlState;
                    owner
                  }
    let to_value x =
      structure_to_value
        [("ControlPanelArn", (Option.map x.controlPanelArn ~f:Arn.to_value));
        ("ControlPanelName",
          (Option.map x.controlPanelName ~f:ControlPanelName.to_value));
        ("RoutingControlArn",
          (Option.map x.routingControlArn ~f:Arn.to_value));
        ("RoutingControlName",
          (Option.map x.routingControlName ~f:RoutingControlName.to_value));
        ("RoutingControlState",
          (Option.map x.routingControlState ~f:RoutingControlState.to_value));
        ("Owner", (Option.map x.owner ~f:Owner.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let owner = (Option.map ~f:Owner.of_xml) (Xml.child xml_arg0 "Owner") in
      let routingControlState =
        (Option.map ~f:RoutingControlState.of_xml)
          (Xml.child xml_arg0 "RoutingControlState") in
      let routingControlName =
        (Option.map ~f:RoutingControlName.of_xml)
          (Xml.child xml_arg0 "RoutingControlName") in
      let routingControlArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "RoutingControlArn") in
      let controlPanelName =
        (Option.map ~f:ControlPanelName.of_xml)
          (Xml.child xml_arg0 "ControlPanelName") in
      let controlPanelArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "ControlPanelArn") in
      make ?owner ?routingControlState ?routingControlName ?routingControlArn
        ?controlPanelName ?controlPanelArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let owner = field_map json__ "Owner" Owner.of_json in
      let routingControlState =
        field_map json__ "RoutingControlState" RoutingControlState.of_json in
      let routingControlName =
        field_map json__ "RoutingControlName" RoutingControlName.of_json in
      let routingControlArn =
        field_map json__ "RoutingControlArn" Arn.of_json in
      let controlPanelName =
        field_map json__ "ControlPanelName" ControlPanelName.of_json in
      let controlPanelArn = field_map json__ "ControlPanelArn" Arn.of_json in
      make ?owner ?routingControlState ?routingControlName ?routingControlArn
        ?controlPanelName ?controlPanelArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A routing control, which is a simple on/off switch that you can use to route traffic to cells. When a routing control state is set to ON, traffic flows to a cell. When the state is set to OFF, traffic does not flow."]
module AccessDeniedException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "You don't have sufficient permissions to perform this action."]
module ConflictException =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc "Description of the ConflictException error"];
      resourceId: String_.t option
        [@ocaml.doc "Identifier of the resource in use"];
      resourceType: String_.t option
        [@ocaml.doc "Type of the resource in use"]}
    let make ?message =
      fun ?resourceId ->
        fun ?resourceType -> fun () -> { message; resourceId; resourceType }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("resourceId", (Option.map x.resourceId ~f:String_.to_value));
        ("resourceType", (Option.map x.resourceType ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceType") in
      let resourceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceId") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?resourceType ?resourceId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceType = field_map json__ "resourceType" String_.of_json in
      let resourceId = field_map json__ "resourceId" String_.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?resourceType ?resourceId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "There was a conflict with this request. Try again."]
module EndpointTemporarilyUnavailableException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The cluster endpoint isn't available. Try another cluster endpoint."]
module InternalServerException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      retryAfterSeconds: RetryAfterSeconds.t option }
    let make ?message =
      fun ?retryAfterSeconds -> fun () -> { message; retryAfterSeconds }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("retryAfterSeconds",
          (Option.map x.retryAfterSeconds ~f:RetryAfterSeconds.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let retryAfterSeconds =
        (Option.map ~f:RetryAfterSeconds.of_xml)
          (Xml.child xml_arg0 "retryAfterSeconds") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?retryAfterSeconds ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let retryAfterSeconds =
        field_map json__ "retryAfterSeconds" RetryAfterSeconds.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?retryAfterSeconds ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "There was an unexpected error during processing of the request."]
module ResourceNotFoundException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      resourceId: String_.t option
        [@ocaml.doc "Hypothetical resource identifier that was not found"];
      resourceType: String_.t option
        [@ocaml.doc "Hypothetical resource type that was not found"]}
    let make ?message =
      fun ?resourceId ->
        fun ?resourceType -> fun () -> { message; resourceId; resourceType }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("resourceId", (Option.map x.resourceId ~f:String_.to_value));
        ("resourceType", (Option.map x.resourceType ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceType") in
      let resourceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceId") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?resourceType ?resourceId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceType = field_map json__ "resourceType" String_.of_json in
      let resourceId = field_map json__ "resourceId" String_.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?resourceType ?resourceId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request references a routing control or control panel that was not found."]
module ServiceLimitExceededException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      resourceId: String_.t option
        [@ocaml.doc
          "The resource identifier of the limit that was exceeded."];
      resourceType: String_.t option
        [@ocaml.doc "The resource type of the limit that was exceeded."];
      limitCode: String_.t option
        [@ocaml.doc "The code of the limit that was exceeded."];
      serviceCode: String_.t option
        [@ocaml.doc "The service code of the limit that was exceeded."]}
    let make ?message =
      fun ?resourceId ->
        fun ?resourceType ->
          fun ?limitCode ->
            fun ?serviceCode ->
              fun () ->
                { message; resourceId; resourceType; limitCode; serviceCode }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("resourceId", (Option.map x.resourceId ~f:String_.to_value));
        ("resourceType", (Option.map x.resourceType ~f:String_.to_value));
        ("limitCode", (Option.map x.limitCode ~f:String_.to_value));
        ("serviceCode", (Option.map x.serviceCode ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let serviceCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "serviceCode") in
      let limitCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "limitCode") in
      let resourceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceType") in
      let resourceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceId") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?serviceCode ?limitCode ?resourceType ?resourceId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let serviceCode = field_map json__ "serviceCode" String_.of_json in
      let limitCode = field_map json__ "limitCode" String_.of_json in
      let resourceType = field_map json__ "resourceType" String_.of_json in
      let resourceId = field_map json__ "resourceId" String_.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?serviceCode ?limitCode ?resourceType ?resourceId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request can't update that many routing control states at the same time. Try again with fewer routing control states."]
module ThrottlingException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      retryAfterSeconds: RetryAfterSeconds.t option }
    let make ?message =
      fun ?retryAfterSeconds -> fun () -> { message; retryAfterSeconds }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("retryAfterSeconds",
          (Option.map x.retryAfterSeconds ~f:RetryAfterSeconds.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let retryAfterSeconds =
        (Option.map ~f:RetryAfterSeconds.of_xml)
          (Xml.child xml_arg0 "retryAfterSeconds") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?retryAfterSeconds ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let retryAfterSeconds =
        field_map json__ "retryAfterSeconds" RetryAfterSeconds.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?retryAfterSeconds ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request was denied because of request throttling."]
module ValidationException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      reason: ValidationExceptionReason.t option ;
      fields: ValidationExceptionFieldList.t option }
    let make ?message =
      fun ?reason -> fun ?fields -> fun () -> { message; reason; fields }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("reason",
          (Option.map x.reason ~f:ValidationExceptionReason.to_value));
        ("fields",
          (Option.map x.fields ~f:ValidationExceptionFieldList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fields =
        (Option.map ~f:ValidationExceptionFieldList.of_xml)
          (Xml.child xml_arg0 "fields") in
      let reason =
        (Option.map ~f:ValidationExceptionReason.of_xml)
          (Xml.child xml_arg0 "reason") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?fields ?reason ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fields =
        field_map json__ "fields" ValidationExceptionFieldList.of_json in
      let reason =
        field_map json__ "reason" ValidationExceptionReason.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?fields ?reason ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "There was a validation error on the request."]
module Arns =
  struct
    type nonrec t = Arn.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Arn.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:Arn.of_xml)
    let of_json j = list_of_json ~kind:"Arns" ~of_json:Arn.of_json j
    let to_json v = composed_to_json to_value v
  end
module UpdateRoutingControlStateEntries =
  struct
    type nonrec t = UpdateRoutingControlStateEntry.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:UpdateRoutingControlStateEntry.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:UpdateRoutingControlStateEntry.of_xml)
    let of_json j =
      list_of_json ~kind:"UpdateRoutingControlStateEntries"
        ~of_json:UpdateRoutingControlStateEntry.of_json j
    let to_json v = composed_to_json to_value v
  end
module PageToken =
  struct
    type nonrec t = string
    let context_ = "PageToken"
    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:"PageToken" j
    let to_json = simple_to_json to_value
  end
module RoutingControls =
  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:"RoutingControls" ~of_json:RoutingControl.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (check_int_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 UpdateRoutingControlStatesResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `EndpointTemporarilyUnavailableException of
          EndpointTemporarilyUnavailableException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceLimitExceededException of ServiceLimitExceededException.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)
      | "EndpointTemporarilyUnavailableException" ->
          `EndpointTemporarilyUnavailableException
            (EndpointTemporarilyUnavailableException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceLimitExceededException" ->
          `ServiceLimitExceededException
            (ServiceLimitExceededException.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)
      | "EndpointTemporarilyUnavailableException" ->
          `EndpointTemporarilyUnavailableException
            (EndpointTemporarilyUnavailableException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceLimitExceededException" ->
          `ServiceLimitExceededException
            (ServiceLimitExceededException.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))]
      | `EndpointTemporarilyUnavailableException e ->
          `Assoc
            [("error", (`String "EndpointTemporarilyUnavailableException"));
            ("details", (EndpointTemporarilyUnavailableException.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))]
      | `ServiceLimitExceededException e ->
          `Assoc
            [("error", (`String "ServiceLimitExceededException"));
            ("details", (ServiceLimitExceededException.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
       "Set multiple routing control states. You can set the value for each state to be ON or OFF. When the state is ON, traffic flows to a cell. When it's OFF, traffic does not flow. With Route 53 ARC, you can add safety rules for routing controls, which are safeguards for routing control state updates that help prevent unexpected outcomes, like fail open traffic routing. However, there are scenarios when you might want to bypass the routing control safeguards that are enforced with safety rules that you've configured. For example, you might want to fail over quickly for disaster recovery, and one or more safety rules might be unexpectedly preventing you from updating a routing control state to reroute traffic. In a \"break glass\" scenario like this, you can override one or more safety rules to change a routing control state and fail over your application. The SafetyRulesToOverride property enables you override one or more safety rules and update routing control states. For more information, see Override safety rules to reroute traffic in the Amazon Route 53 Application Recovery Controller Developer Guide. You must specify Regional endpoints when you work with API cluster operations to get or update routing control states in Route 53 ARC. To see a code example for getting a routing control state, including accessing Regional cluster endpoints in sequence, see API examples in the Amazon Route 53 Application Recovery Controller Developer Guide. Viewing and updating routing control states Working with routing controls overall"]
module UpdateRoutingControlStatesRequest =
  struct
    type nonrec t =
      {
      updateRoutingControlStateEntries: UpdateRoutingControlStateEntries.t
        [@ocaml.doc
          "A set of routing control entries that you want to update."];
      safetyRulesToOverride: Arns.t option
        [@ocaml.doc
          "The Amazon Resource Names (ARNs) for the safety rules that you want to override when you're updating routing control states. You can override one safety rule or multiple safety rules by including one or more ARNs, separated by commas. For more information, see Override safety rules to reroute traffic in the Amazon Route 53 Application Recovery Controller Developer Guide."]}
    let context_ = "UpdateRoutingControlStatesRequest"
    let make ?safetyRulesToOverride =
      fun ~updateRoutingControlStateEntries ->
        fun () -> { safetyRulesToOverride; updateRoutingControlStateEntries }
    let to_value x =
      structure_to_value
        [("UpdateRoutingControlStateEntries",
           (Some
              (UpdateRoutingControlStateEntries.to_value
                 x.updateRoutingControlStateEntries)));
        ("SafetyRulesToOverride",
          (Option.map x.safetyRulesToOverride ~f:Arns.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let safetyRulesToOverride =
        (Option.map ~f:Arns.of_xml)
          (Xml.child xml_arg0 "SafetyRulesToOverride") in
      let updateRoutingControlStateEntries =
        UpdateRoutingControlStateEntries.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "UpdateRoutingControlStateEntries") in
      make ?safetyRulesToOverride ~updateRoutingControlStateEntries ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let safetyRulesToOverride =
        field_map json__ "SafetyRulesToOverride" Arns.of_json in
      let updateRoutingControlStateEntries =
        field_map_exn json__ "UpdateRoutingControlStateEntries"
          UpdateRoutingControlStateEntries.of_json in
      make ?safetyRulesToOverride ~updateRoutingControlStateEntries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Set multiple routing control states. You can set the value for each state to be ON or OFF. When the state is ON, traffic flows to a cell. When it's OFF, traffic does not flow. With Route 53 ARC, you can add safety rules for routing controls, which are safeguards for routing control state updates that help prevent unexpected outcomes, like fail open traffic routing. However, there are scenarios when you might want to bypass the routing control safeguards that are enforced with safety rules that you've configured. For example, you might want to fail over quickly for disaster recovery, and one or more safety rules might be unexpectedly preventing you from updating a routing control state to reroute traffic. In a \"break glass\" scenario like this, you can override one or more safety rules to change a routing control state and fail over your application. The SafetyRulesToOverride property enables you override one or more safety rules and update routing control states. For more information, see Override safety rules to reroute traffic in the Amazon Route 53 Application Recovery Controller Developer Guide. You must specify Regional endpoints when you work with API cluster operations to get or update routing control states in Route 53 ARC. To see a code example for getting a routing control state, including accessing Regional cluster endpoints in sequence, see API examples in the Amazon Route 53 Application Recovery Controller Developer Guide. Viewing and updating routing control states Working with routing controls overall"]
module UpdateRoutingControlStateResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `EndpointTemporarilyUnavailableException of
          EndpointTemporarilyUnavailableException.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)
      | "EndpointTemporarilyUnavailableException" ->
          `EndpointTemporarilyUnavailableException
            (EndpointTemporarilyUnavailableException.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)
      | "EndpointTemporarilyUnavailableException" ->
          `EndpointTemporarilyUnavailableException
            (EndpointTemporarilyUnavailableException.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))]
      | `EndpointTemporarilyUnavailableException e ->
          `Assoc
            [("error", (`String "EndpointTemporarilyUnavailableException"));
            ("details", (EndpointTemporarilyUnavailableException.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
       "Set the state of the routing control to reroute traffic. You can set the value to ON or OFF. When the state is ON, traffic flows to a cell. When the state is OFF, traffic does not flow. With Route 53 ARC, you can add safety rules for routing controls, which are safeguards for routing control state updates that help prevent unexpected outcomes, like fail open traffic routing. However, there are scenarios when you might want to bypass the routing control safeguards that are enforced with safety rules that you've configured. For example, you might want to fail over quickly for disaster recovery, and one or more safety rules might be unexpectedly preventing you from updating a routing control state to reroute traffic. In a \"break glass\" scenario like this, you can override one or more safety rules to change a routing control state and fail over your application. The SafetyRulesToOverride property enables you override one or more safety rules and update routing control states. For more information, see Override safety rules to reroute traffic in the Amazon Route 53 Application Recovery Controller Developer Guide. You must specify Regional endpoints when you work with API cluster operations to get or update routing control states in Route 53 ARC. To see a code example for getting a routing control state, including accessing Regional cluster endpoints in sequence, see API examples in the Amazon Route 53 Application Recovery Controller Developer Guide. Viewing and updating routing control states Working with routing controls overall"]
module UpdateRoutingControlStateRequest =
  struct
    type nonrec t =
      {
      routingControlArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the routing control that you want to update the state for."];
      routingControlState: RoutingControlState.t
        [@ocaml.doc
          "The state of the routing control. You can set the value to ON or OFF."];
      safetyRulesToOverride: Arns.t option
        [@ocaml.doc
          "The Amazon Resource Names (ARNs) for the safety rules that you want to override when you're updating the state of a routing control. You can override one safety rule or multiple safety rules by including one or more ARNs, separated by commas. For more information, see Override safety rules to reroute traffic in the Amazon Route 53 Application Recovery Controller Developer Guide."]}
    let context_ = "UpdateRoutingControlStateRequest"
    let make ?safetyRulesToOverride =
      fun ~routingControlArn ->
        fun ~routingControlState ->
          fun () ->
            { safetyRulesToOverride; routingControlArn; routingControlState }
    let to_value x =
      structure_to_value
        [("RoutingControlArn", (Some (Arn.to_value x.routingControlArn)));
        ("RoutingControlState",
          (Some (RoutingControlState.to_value x.routingControlState)));
        ("SafetyRulesToOverride",
          (Option.map x.safetyRulesToOverride ~f:Arns.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let safetyRulesToOverride =
        (Option.map ~f:Arns.of_xml)
          (Xml.child xml_arg0 "SafetyRulesToOverride") in
      let routingControlState =
        RoutingControlState.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RoutingControlState") in
      let routingControlArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RoutingControlArn") in
      make ?safetyRulesToOverride ~routingControlState ~routingControlArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let safetyRulesToOverride =
        field_map json__ "SafetyRulesToOverride" Arns.of_json in
      let routingControlState =
        field_map_exn json__ "RoutingControlState"
          RoutingControlState.of_json in
      let routingControlArn =
        field_map_exn json__ "RoutingControlArn" Arn.of_json in
      make ?safetyRulesToOverride ~routingControlState ~routingControlArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Set the state of the routing control to reroute traffic. You can set the value to ON or OFF. When the state is ON, traffic flows to a cell. When the state is OFF, traffic does not flow. With Route 53 ARC, you can add safety rules for routing controls, which are safeguards for routing control state updates that help prevent unexpected outcomes, like fail open traffic routing. However, there are scenarios when you might want to bypass the routing control safeguards that are enforced with safety rules that you've configured. For example, you might want to fail over quickly for disaster recovery, and one or more safety rules might be unexpectedly preventing you from updating a routing control state to reroute traffic. In a \"break glass\" scenario like this, you can override one or more safety rules to change a routing control state and fail over your application. The SafetyRulesToOverride property enables you override one or more safety rules and update routing control states. For more information, see Override safety rules to reroute traffic in the Amazon Route 53 Application Recovery Controller Developer Guide. You must specify Regional endpoints when you work with API cluster operations to get or update routing control states in Route 53 ARC. To see a code example for getting a routing control state, including accessing Regional cluster endpoints in sequence, see API examples in the Amazon Route 53 Application Recovery Controller Developer Guide. Viewing and updating routing control states Working with routing controls overall"]
module ListRoutingControlsResponse =
  struct
    type nonrec t =
      {
      routingControls: RoutingControls.t option
        [@ocaml.doc "The list of routing controls."];
      nextToken: PageToken.t option
        [@ocaml.doc
          "The token for the next set of results. You receive this token from a previous call."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `EndpointTemporarilyUnavailableException of
          EndpointTemporarilyUnavailableException.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 ?routingControls =
      fun ?nextToken -> fun () -> { routingControls; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "EndpointTemporarilyUnavailableException" ->
          `EndpointTemporarilyUnavailableException
            (EndpointTemporarilyUnavailableException.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)
      | "EndpointTemporarilyUnavailableException" ->
          `EndpointTemporarilyUnavailableException
            (EndpointTemporarilyUnavailableException.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))]
      | `EndpointTemporarilyUnavailableException e ->
          `Assoc
            [("error", (`String "EndpointTemporarilyUnavailableException"));
            ("details", (EndpointTemporarilyUnavailableException.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
        [("RoutingControls",
           (Option.map x.routingControls ~f:RoutingControls.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PageToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PageToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let routingControls =
        (Option.map ~f:RoutingControls.of_xml)
          (Xml.child xml_arg0 "RoutingControls") in
      make ?nextToken ?routingControls ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" PageToken.of_json in
      let routingControls =
        field_map json__ "RoutingControls" RoutingControls.of_json in
      make ?nextToken ?routingControls ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "List routing control names and Amazon Resource Names (ARNs), as well as the routing control state for each routing control, along with the control panel name and control panel ARN for the routing controls. If you specify a control panel ARN, this call lists the routing controls in the control panel. Otherwise, it lists all the routing controls in the cluster. A routing control is a simple on/off switch in Route 53 ARC that you can use to route traffic to cells. When a routing control state is set to ON, traffic flows to a cell. When the state is set to OFF, traffic does not flow. Before you can create a routing control, you must first create a cluster, and then host the control in a control panel on the cluster. For more information, see Create routing control structures in the Amazon Route 53 Application Recovery Controller Developer Guide. You access one of the endpoints for the cluster to get or update the routing control state to redirect traffic for your application. You must specify Regional endpoints when you work with API cluster operations to use this API operation to list routing controls in Route 53 ARC. Learn more about working with routing controls in the following topics in the Amazon Route 53 Application Recovery Controller Developer Guide: Viewing and updating routing control states Working with routing controls in Route 53 ARC"]
module ListRoutingControlsRequest =
  struct
    type nonrec t =
      {
      controlPanelArn: Arn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the control panel of the routing controls to list."];
      nextToken: PageToken.t option
        [@ocaml.doc
          "The token for the next set of results. You receive this token from a previous call."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The number of routing controls objects that you want to return with this call. The default value is 500."]}
    let make ?controlPanelArn =
      fun ?nextToken ->
        fun ?maxResults ->
          fun () -> { controlPanelArn; nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("ControlPanelArn", (Option.map x.controlPanelArn ~f:Arn.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PageToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:PageToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let controlPanelArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "ControlPanelArn") in
      make ?maxResults ?nextToken ?controlPanelArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" PageToken.of_json in
      let controlPanelArn = field_map json__ "ControlPanelArn" Arn.of_json in
      make ?maxResults ?nextToken ?controlPanelArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "List routing control names and Amazon Resource Names (ARNs), as well as the routing control state for each routing control, along with the control panel name and control panel ARN for the routing controls. If you specify a control panel ARN, this call lists the routing controls in the control panel. Otherwise, it lists all the routing controls in the cluster. A routing control is a simple on/off switch in Route 53 ARC that you can use to route traffic to cells. When a routing control state is set to ON, traffic flows to a cell. When the state is set to OFF, traffic does not flow. Before you can create a routing control, you must first create a cluster, and then host the control in a control panel on the cluster. For more information, see Create routing control structures in the Amazon Route 53 Application Recovery Controller Developer Guide. You access one of the endpoints for the cluster to get or update the routing control state to redirect traffic for your application. You must specify Regional endpoints when you work with API cluster operations to use this API operation to list routing controls in Route 53 ARC. Learn more about working with routing controls in the following topics in the Amazon Route 53 Application Recovery Controller Developer Guide: Viewing and updating routing control states Working with routing controls in Route 53 ARC"]
module GetRoutingControlStateResponse =
  struct
    type nonrec t =
      {
      routingControlArn: Arn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the response."];
      routingControlState: RoutingControlState.t option
        [@ocaml.doc "The state of the routing control."];
      routingControlName: RoutingControlName.t option
        [@ocaml.doc "The routing control name."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `EndpointTemporarilyUnavailableException of
          EndpointTemporarilyUnavailableException.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 ?routingControlArn =
      fun ?routingControlState ->
        fun ?routingControlName ->
          fun () ->
            { routingControlArn; routingControlState; routingControlName }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "EndpointTemporarilyUnavailableException" ->
          `EndpointTemporarilyUnavailableException
            (EndpointTemporarilyUnavailableException.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)
      | "EndpointTemporarilyUnavailableException" ->
          `EndpointTemporarilyUnavailableException
            (EndpointTemporarilyUnavailableException.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))]
      | `EndpointTemporarilyUnavailableException e ->
          `Assoc
            [("error", (`String "EndpointTemporarilyUnavailableException"));
            ("details", (EndpointTemporarilyUnavailableException.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
        [("RoutingControlArn",
           (Option.map x.routingControlArn ~f:Arn.to_value));
        ("RoutingControlState",
          (Option.map x.routingControlState ~f:RoutingControlState.to_value));
        ("RoutingControlName",
          (Option.map x.routingControlName ~f:RoutingControlName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let routingControlName =
        (Option.map ~f:RoutingControlName.of_xml)
          (Xml.child xml_arg0 "RoutingControlName") in
      let routingControlState =
        (Option.map ~f:RoutingControlState.of_xml)
          (Xml.child xml_arg0 "RoutingControlState") in
      let routingControlArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "RoutingControlArn") in
      make ?routingControlName ?routingControlState ?routingControlArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let routingControlName =
        field_map json__ "RoutingControlName" RoutingControlName.of_json in
      let routingControlState =
        field_map json__ "RoutingControlState" RoutingControlState.of_json in
      let routingControlArn =
        field_map json__ "RoutingControlArn" Arn.of_json in
      make ?routingControlName ?routingControlState ?routingControlArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Get the state for a routing control. A routing control is a simple on/off switch that you can use to route traffic to cells. When a routing control state is set to ON, traffic flows to a cell. When the state is set to OFF, traffic does not flow. Before you can create a routing control, you must first create a cluster, and then host the control in a control panel on the cluster. For more information, see Create routing control structures in the Amazon Route 53 Application Recovery Controller Developer Guide. You access one of the endpoints for the cluster to get or update the routing control state to redirect traffic for your application. You must specify Regional endpoints when you work with API cluster operations to get or update routing control states in Route 53 ARC. To see a code example for getting a routing control state, including accessing Regional cluster endpoints in sequence, see API examples in the Amazon Route 53 Application Recovery Controller Developer Guide. Learn more about working with routing controls in the following topics in the Amazon Route 53 Application Recovery Controller Developer Guide: Viewing and updating routing control states Working with routing controls in Route 53 ARC"]
module GetRoutingControlStateRequest =
  struct
    type nonrec t =
      {
      routingControlArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the routing control that you want to get the state for."]}
    let context_ = "GetRoutingControlStateRequest"
    let make ~routingControlArn = fun () -> { routingControlArn }
    let to_value x =
      structure_to_value
        [("RoutingControlArn", (Some (Arn.to_value x.routingControlArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let routingControlArn =
        Arn.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" Arn.of_json in
      make ~routingControlArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Get the state for a routing control. A routing control is a simple on/off switch that you can use to route traffic to cells. When a routing control state is set to ON, traffic flows to a cell. When the state is set to OFF, traffic does not flow. Before you can create a routing control, you must first create a cluster, and then host the control in a control panel on the cluster. For more information, see Create routing control structures in the Amazon Route 53 Application Recovery Controller Developer Guide. You access one of the endpoints for the cluster to get or update the routing control state to redirect traffic for your application. You must specify Regional endpoints when you work with API cluster operations to get or update routing control states in Route 53 ARC. To see a code example for getting a routing control state, including accessing Regional cluster endpoints in sequence, see API examples in the Amazon Route 53 Application Recovery Controller Developer Guide. Learn more about working with routing controls in the following topics in the Amazon Route 53 Application Recovery Controller Developer Guide: Viewing and updating routing control states Working with routing controls in Route 53 ARC"]