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_readiness
let apiVersion = "2019-12-02"
let endpointPrefix = "route53-recovery-readiness"
let serviceFullName = "AWS Route53 Recovery Readiness"
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 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 NLBResource =
  struct
    type nonrec t =
      {
      arn: Zz__string.t option
        [@ocaml.doc
          "The Network Load Balancer resource Amazon Resource Name (ARN)."]}
    let make ?arn = fun () -> { arn }
    let to_value x =
      structure_to_value [("arn", (Option.map x.arn ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn = (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "arn") in
      make ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map json__ "Arn" Zz__string.of_json in make ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Network Load Balancer resource that a DNS target resource points to."]
module R53ResourceRecord =
  struct
    type nonrec t =
      {
      domainName: Zz__string.t option
        [@ocaml.doc "The DNS target domain name."];
      recordSetId: Zz__string.t option
        [@ocaml.doc "The Route 53 Resource Record Set ID."]}
    let make ?domainName =
      fun ?recordSetId -> fun () -> { domainName; recordSetId }
    let to_value x =
      structure_to_value
        [("domainName", (Option.map x.domainName ~f:Zz__string.to_value));
        ("recordSetId", (Option.map x.recordSetId ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let recordSetId =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "recordSetId") in
      let domainName =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "domainName") in
      make ?recordSetId ?domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let recordSetId = field_map json__ "RecordSetId" Zz__string.of_json in
      let domainName = field_map json__ "DomainName" Zz__string.of_json in
      make ?recordSetId ?domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Route 53 resource that a DNS target resource record points to."]
module TargetResource =
  struct
    type nonrec t =
      {
      nLBResource: NLBResource.t option
        [@ocaml.doc "The Network Load Balancer Resource."];
      r53Resource: R53ResourceRecord.t option
        [@ocaml.doc "The Route 53 resource."]}
    let make ?nLBResource =
      fun ?r53Resource -> fun () -> { nLBResource; r53Resource }
    let to_value x =
      structure_to_value
        [("nLBResource", (Option.map x.nLBResource ~f:NLBResource.to_value));
        ("r53Resource",
          (Option.map x.r53Resource ~f:R53ResourceRecord.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let r53Resource =
        (Option.map ~f:R53ResourceRecord.of_xml)
          (Xml.child xml_arg0 "r53Resource") in
      let nLBResource =
        (Option.map ~f:NLBResource.of_xml) (Xml.child xml_arg0 "nLBResource") in
      make ?r53Resource ?nLBResource ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let r53Resource =
        field_map json__ "R53Resource" R53ResourceRecord.of_json in
      let nLBResource = field_map json__ "NLBResource" NLBResource.of_json in
      make ?r53Resource ?nLBResource ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The target resource that the Route 53 record points to."]
module DNSTargetResource =
  struct
    type nonrec t =
      {
      domainName: Zz__string.t option
        [@ocaml.doc
          "The domain name that acts as an ingress point to a portion of the customer application."];
      hostedZoneArn: Zz__string.t option
        [@ocaml.doc
          "The hosted zone Amazon Resource Name (ARN) that contains the DNS record with the provided name of the target resource."];
      recordSetId: Zz__string.t option
        [@ocaml.doc
          "The Route 53 record set ID that uniquely identifies a DNS record, given a name and a type."];
      recordType: Zz__string.t option
        [@ocaml.doc "The type of DNS record of the target resource."];
      targetResource: TargetResource.t option
        [@ocaml.doc "The target resource of the DNS target resource."]}
    let make ?domainName =
      fun ?hostedZoneArn ->
        fun ?recordSetId ->
          fun ?recordType ->
            fun ?targetResource ->
              fun () ->
                {
                  domainName;
                  hostedZoneArn;
                  recordSetId;
                  recordType;
                  targetResource
                }
    let to_value x =
      structure_to_value
        [("domainName", (Option.map x.domainName ~f:Zz__string.to_value));
        ("hostedZoneArn",
          (Option.map x.hostedZoneArn ~f:Zz__string.to_value));
        ("recordSetId", (Option.map x.recordSetId ~f:Zz__string.to_value));
        ("recordType", (Option.map x.recordType ~f:Zz__string.to_value));
        ("targetResource",
          (Option.map x.targetResource ~f:TargetResource.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let targetResource =
        (Option.map ~f:TargetResource.of_xml)
          (Xml.child xml_arg0 "targetResource") in
      let recordType =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "recordType") in
      let recordSetId =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "recordSetId") in
      let hostedZoneArn =
        (Option.map ~f:Zz__string.of_xml)
          (Xml.child xml_arg0 "hostedZoneArn") in
      let domainName =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "domainName") in
      make ?targetResource ?recordType ?recordSetId ?hostedZoneArn
        ?domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let targetResource =
        field_map json__ "TargetResource" TargetResource.of_json in
      let recordType = field_map json__ "RecordType" Zz__string.of_json in
      let recordSetId = field_map json__ "RecordSetId" Zz__string.of_json in
      let hostedZoneArn = field_map json__ "HostedZoneArn" Zz__string.of_json in
      let domainName = field_map json__ "DomainName" Zz__string.of_json in
      make ?targetResource ?recordType ?recordSetId ?hostedZoneArn
        ?domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A component for DNS/routing control readiness checks and architecture checks."]
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 Resource =
  struct
    type nonrec t =
      {
      componentId: Zz__string.t option
        [@ocaml.doc
          "The component identifier of the resource, generated when DNS target resource is used."];
      dnsTargetResource: DNSTargetResource.t option
        [@ocaml.doc "The DNS target resource."];
      readinessScopes: Zz__listOf__string.t option
        [@ocaml.doc
          "A list of recovery group Amazon Resource Names (ARNs) and cell ARNs that this resource is contained within."];
      resourceArn: Zz__string.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Amazon Web Services resource."]}
    let make ?componentId =
      fun ?dnsTargetResource ->
        fun ?readinessScopes ->
          fun ?resourceArn ->
            fun () ->
              { componentId; dnsTargetResource; readinessScopes; resourceArn
              }
    let to_value x =
      structure_to_value
        [("componentId", (Option.map x.componentId ~f:Zz__string.to_value));
        ("dnsTargetResource",
          (Option.map x.dnsTargetResource ~f:DNSTargetResource.to_value));
        ("readinessScopes",
          (Option.map x.readinessScopes ~f:Zz__listOf__string.to_value));
        ("resourceArn", (Option.map x.resourceArn ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "resourceArn") in
      let readinessScopes =
        (Option.map ~f:Zz__listOf__string.of_xml)
          (Xml.child xml_arg0 "readinessScopes") in
      let dnsTargetResource =
        (Option.map ~f:DNSTargetResource.of_xml)
          (Xml.child xml_arg0 "dnsTargetResource") in
      let componentId =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "componentId") in
      make ?resourceArn ?readinessScopes ?dnsTargetResource ?componentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceArn = field_map json__ "ResourceArn" Zz__string.of_json in
      let readinessScopes =
        field_map json__ "ReadinessScopes" Zz__listOf__string.of_json in
      let dnsTargetResource =
        field_map json__ "DnsTargetResource" DNSTargetResource.of_json in
      let componentId = field_map json__ "ComponentId" Zz__string.of_json in
      make ?resourceArn ?readinessScopes ?dnsTargetResource ?componentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The resource element of a resource set."]
module Message =
  struct
    type nonrec t =
      {
      messageText: Zz__string.t option
        [@ocaml.doc "The text of a readiness check message."]}
    let make ?messageText = fun () -> { messageText }
    let to_value x =
      structure_to_value
        [("messageText", (Option.map x.messageText ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let messageText =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "messageText") in
      make ?messageText ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let messageText = field_map json__ "MessageText" Zz__string.of_json in
      make ?messageText ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information relating to readiness check status."]
module Zz__stringMax256 =
  struct
    type nonrec t = string
    let context_ = "__stringMax256"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:256); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"__stringMax256" j
    let to_json = simple_to_json to_value
  end
module Zz__stringMax64 =
  struct
    type nonrec t = string
    let context_ = "__stringMax64"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:64); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"__stringMax64" j
    let to_json = simple_to_json to_value
  end
module Tags =
  struct
    type nonrec t = (Zz__string.t * Zz__string.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((Zz__string.of_string chopped),
                              (Zz__string.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (Zz__string.to_value x) |>
                    (fun x -> (Zz__string.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:Zz__string.of_string
        ~of_json:Zz__string.of_json j
    let to_json v = composed_to_json to_value v
  end
module Zz__listOfResource =
  struct
    type nonrec t = Resource.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Resource.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:Resource.of_xml)
    let of_json j =
      list_of_json ~kind:"__listOfResource" ~of_json:Resource.of_json j
    let to_json v = composed_to_json to_value v
  end
module Zz__stringMax64PatternAAZAZ09Z =
  struct
    type nonrec t = string
    let context_ = "__stringMax64PatternAAZAZ09Z"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:64) >>=
             (fun () -> check_pattern i ~pattern:"\\A[a-zA-Z0-9_]+\\z"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"__stringMax64PatternAAZAZ09Z" j
    let to_json = simple_to_json to_value
  end
module Zz__stringPatternAWSAZaZ09AZaZ09 =
  struct
    type nonrec t = string
    let context_ = "__stringPatternAWSAZaZ09AZaZ09"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i ~pattern:"AWS::[A-Za-z0-9]+::[A-Za-z0-9]+");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"__stringPatternAWSAZaZ09AZaZ09" j
    let to_json = simple_to_json to_value
  end
module Readiness =
  struct
    type nonrec t =
      | READY 
      | NOT_READY 
      | UNKNOWN 
      | NOT_AUTHORIZED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | READY -> "READY"
      | NOT_READY -> "NOT_READY"
      | UNKNOWN -> "UNKNOWN"
      | NOT_AUTHORIZED -> "NOT_AUTHORIZED"
      | Non_static_id s -> s
    let of_string =
      function
      | "READY" -> READY
      | "NOT_READY" -> NOT_READY
      | "UNKNOWN" -> UNKNOWN
      | "NOT_AUTHORIZED" -> NOT_AUTHORIZED
      | 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 Readiness" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Readiness" j)
    let to_json = simple_to_json to_value
  end
module ReadinessCheckTimestamp =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The time (UTC) that the cell was last checked for readiness, in ISO-8601 format."]
    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[@@ocaml.doc
       "The time (UTC) that the cell was last checked for readiness, in ISO-8601 format."]
module Zz__listOfMessage =
  struct
    type nonrec t = Message.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:Message.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:Message.of_xml)
    let of_json j =
      list_of_json ~kind:"__listOfMessage" ~of_json:Message.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListRulesOutput =
  struct
    type nonrec t =
      {
      resourceType: Zz__stringMax64.t option
        [@ocaml.doc "The resource type that the readiness rule applies to."];
      ruleDescription: Zz__stringMax256.t option
        [@ocaml.doc "The description of a readiness rule."];
      ruleId: Zz__stringMax64.t option
        [@ocaml.doc "The ID for the readiness rule."]}
    let make ?resourceType =
      fun ?ruleDescription ->
        fun ?ruleId -> fun () -> { resourceType; ruleDescription; ruleId }
    let to_value x =
      structure_to_value
        [("resourceType",
           (Option.map x.resourceType ~f:Zz__stringMax64.to_value));
        ("ruleDescription",
          (Option.map x.ruleDescription ~f:Zz__stringMax256.to_value));
        ("ruleId", (Option.map x.ruleId ~f:Zz__stringMax64.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ruleId =
        (Option.map ~f:Zz__stringMax64.of_xml) (Xml.child xml_arg0 "ruleId") in
      let ruleDescription =
        (Option.map ~f:Zz__stringMax256.of_xml)
          (Xml.child xml_arg0 "ruleDescription") in
      let resourceType =
        (Option.map ~f:Zz__stringMax64.of_xml)
          (Xml.child xml_arg0 "resourceType") in
      make ?ruleId ?ruleDescription ?resourceType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ruleId = field_map json__ "RuleId" Zz__stringMax64.of_json in
      let ruleDescription =
        field_map json__ "RuleDescription" Zz__stringMax256.of_json in
      let resourceType =
        field_map json__ "ResourceType" Zz__stringMax64.of_json in
      make ?ruleId ?ruleDescription ?resourceType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Readiness rule information, including the resource type, rule ID, and rule description."]
module ResourceSetOutput =
  struct
    type nonrec t =
      {
      resourceSetArn: Zz__stringMax256.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) for the resource set."];
      resourceSetName: Zz__stringMax64PatternAAZAZ09Z.t option
        [@ocaml.doc "The name of the resource set."];
      resourceSetType: Zz__stringPatternAWSAZaZ09AZaZ09.t option
        [@ocaml.doc
          "The resource type of the resources in the resource set. Enter one of the following values for resource type: AWS::ApiGateway::Stage, AWS::ApiGatewayV2::Stage, AWS::AutoScaling::AutoScalingGroup, AWS::CloudWatch::Alarm, AWS::EC2::CustomerGateway, AWS::DynamoDB::Table, AWS::EC2::Volume, AWS::ElasticLoadBalancing::LoadBalancer, AWS::ElasticLoadBalancingV2::LoadBalancer, AWS::Lambda::Function, AWS::MSK::Cluster, AWS::RDS::DBCluster, AWS::Route53::HealthCheck, AWS::SQS::Queue, AWS::SNS::Topic, AWS::SNS::Subscription, AWS::EC2::VPC, AWS::EC2::VPNConnection, AWS::EC2::VPNGateway, AWS::Route53RecoveryReadiness::DNSTargetResource"];
      resources: Zz__listOfResource.t option
        [@ocaml.doc "A list of resource objects."];
      tags: Tags.t option }
    let make ?resourceSetArn =
      fun ?resourceSetName ->
        fun ?resourceSetType ->
          fun ?resources ->
            fun ?tags ->
              fun () ->
                {
                  resourceSetArn;
                  resourceSetName;
                  resourceSetType;
                  resources;
                  tags
                }
    let to_value x =
      structure_to_value
        [("resourceSetArn",
           (Option.map x.resourceSetArn ~f:Zz__stringMax256.to_value));
        ("resourceSetName",
          (Option.map x.resourceSetName
             ~f:Zz__stringMax64PatternAAZAZ09Z.to_value));
        ("resourceSetType",
          (Option.map x.resourceSetType
             ~f:Zz__stringPatternAWSAZaZ09AZaZ09.to_value));
        ("resources",
          (Option.map x.resources ~f:Zz__listOfResource.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let resources =
        (Option.map ~f:Zz__listOfResource.of_xml)
          (Xml.child xml_arg0 "resources") in
      let resourceSetType =
        (Option.map ~f:Zz__stringPatternAWSAZaZ09AZaZ09.of_xml)
          (Xml.child xml_arg0 "resourceSetType") in
      let resourceSetName =
        (Option.map ~f:Zz__stringMax64PatternAAZAZ09Z.of_xml)
          (Xml.child xml_arg0 "resourceSetName") in
      let resourceSetArn =
        (Option.map ~f:Zz__stringMax256.of_xml)
          (Xml.child xml_arg0 "resourceSetArn") in
      make ?tags ?resources ?resourceSetType ?resourceSetName ?resourceSetArn
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in
      let resources = field_map json__ "Resources" Zz__listOfResource.of_json in
      let resourceSetType =
        field_map json__ "ResourceSetType"
          Zz__stringPatternAWSAZaZ09AZaZ09.of_json in
      let resourceSetName =
        field_map json__ "ResourceSetName"
          Zz__stringMax64PatternAAZAZ09Z.of_json in
      let resourceSetArn =
        field_map json__ "ResourceSetArn" Zz__stringMax256.of_json in
      make ?tags ?resources ?resourceSetType ?resourceSetName ?resourceSetArn
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A collection of resources of the same type."]
module RecoveryGroupOutput =
  struct
    type nonrec t =
      {
      cells: Zz__listOf__string.t option
        [@ocaml.doc "A list of a cell's Amazon Resource Names (ARNs)."];
      recoveryGroupArn: Zz__stringMax256.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) for the recovery group."];
      recoveryGroupName: Zz__stringMax64PatternAAZAZ09Z.t option
        [@ocaml.doc "The name of the recovery group."];
      tags: Tags.t option
        [@ocaml.doc "The tags associated with the recovery group."]}
    let make ?cells =
      fun ?recoveryGroupArn ->
        fun ?recoveryGroupName ->
          fun ?tags ->
            fun () -> { cells; recoveryGroupArn; recoveryGroupName; tags }
    let to_value x =
      structure_to_value
        [("cells", (Option.map x.cells ~f:Zz__listOf__string.to_value));
        ("recoveryGroupArn",
          (Option.map x.recoveryGroupArn ~f:Zz__stringMax256.to_value));
        ("recoveryGroupName",
          (Option.map x.recoveryGroupName
             ~f:Zz__stringMax64PatternAAZAZ09Z.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let recoveryGroupName =
        (Option.map ~f:Zz__stringMax64PatternAAZAZ09Z.of_xml)
          (Xml.child xml_arg0 "recoveryGroupName") in
      let recoveryGroupArn =
        (Option.map ~f:Zz__stringMax256.of_xml)
          (Xml.child xml_arg0 "recoveryGroupArn") in
      let cells =
        (Option.map ~f:Zz__listOf__string.of_xml)
          (Xml.child xml_arg0 "cells") in
      make ?tags ?recoveryGroupName ?recoveryGroupArn ?cells ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in
      let recoveryGroupName =
        field_map json__ "RecoveryGroupName"
          Zz__stringMax64PatternAAZAZ09Z.of_json in
      let recoveryGroupArn =
        field_map json__ "RecoveryGroupArn" Zz__stringMax256.of_json in
      let cells = field_map json__ "Cells" Zz__listOf__string.of_json in
      make ?tags ?recoveryGroupName ?recoveryGroupArn ?cells ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A representation of the application, typically containing multiple cells."]
module ReadinessCheckOutput =
  struct
    type nonrec t =
      {
      readinessCheckArn: Zz__stringMax256.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) associated with a readiness check."];
      readinessCheckName: Zz__stringMax64PatternAAZAZ09Z.t option
        [@ocaml.doc "Name of a readiness check."];
      resourceSet: Zz__stringMax64PatternAAZAZ09Z.t option
        [@ocaml.doc "Name of the resource set to be checked."];
      tags: Tags.t option }
    let make ?readinessCheckArn =
      fun ?readinessCheckName ->
        fun ?resourceSet ->
          fun ?tags ->
            fun () ->
              { readinessCheckArn; readinessCheckName; resourceSet; tags }
    let to_value x =
      structure_to_value
        [("readinessCheckArn",
           (Option.map x.readinessCheckArn ~f:Zz__stringMax256.to_value));
        ("readinessCheckName",
          (Option.map x.readinessCheckName
             ~f:Zz__stringMax64PatternAAZAZ09Z.to_value));
        ("resourceSet",
          (Option.map x.resourceSet
             ~f:Zz__stringMax64PatternAAZAZ09Z.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let resourceSet =
        (Option.map ~f:Zz__stringMax64PatternAAZAZ09Z.of_xml)
          (Xml.child xml_arg0 "resourceSet") in
      let readinessCheckName =
        (Option.map ~f:Zz__stringMax64PatternAAZAZ09Z.of_xml)
          (Xml.child xml_arg0 "readinessCheckName") in
      let readinessCheckArn =
        (Option.map ~f:Zz__stringMax256.of_xml)
          (Xml.child xml_arg0 "readinessCheckArn") in
      make ?tags ?resourceSet ?readinessCheckName ?readinessCheckArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in
      let resourceSet =
        field_map json__ "ResourceSet" Zz__stringMax64PatternAAZAZ09Z.of_json in
      let readinessCheckName =
        field_map json__ "ReadinessCheckName"
          Zz__stringMax64PatternAAZAZ09Z.of_json in
      let readinessCheckArn =
        field_map json__ "ReadinessCheckArn" Zz__stringMax256.of_json in
      make ?tags ?resourceSet ?readinessCheckName ?readinessCheckArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A readiness check."]
module CrossAccountAuthorization =
  struct
    type nonrec t = string[@@ocaml.doc "CrossAccountAuthorization"]
    let context_ = "CrossAccountAuthorization"
    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:"CrossAccountAuthorization" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "CrossAccountAuthorization"]
module CellOutput =
  struct
    type nonrec t =
      {
      cellArn: Zz__stringMax256.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) for the cell."];
      cellName: Zz__stringMax64PatternAAZAZ09Z.t option
        [@ocaml.doc "The name of the cell."];
      cells: Zz__listOf__string.t option [@ocaml.doc "A list of cell ARNs."];
      parentReadinessScopes: Zz__listOf__string.t option
        [@ocaml.doc
          "The readiness scope for the cell, which can be a cell Amazon Resource Name (ARN) or a recovery group ARN. This is a list but currently can have only one element."];
      tags: Tags.t option [@ocaml.doc "Tags on the resources."]}
    let make ?cellArn =
      fun ?cellName ->
        fun ?cells ->
          fun ?parentReadinessScopes ->
            fun ?tags ->
              fun () ->
                { cellArn; cellName; cells; parentReadinessScopes; tags }
    let to_value x =
      structure_to_value
        [("cellArn", (Option.map x.cellArn ~f:Zz__stringMax256.to_value));
        ("cellName",
          (Option.map x.cellName ~f:Zz__stringMax64PatternAAZAZ09Z.to_value));
        ("cells", (Option.map x.cells ~f:Zz__listOf__string.to_value));
        ("parentReadinessScopes",
          (Option.map x.parentReadinessScopes ~f:Zz__listOf__string.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let parentReadinessScopes =
        (Option.map ~f:Zz__listOf__string.of_xml)
          (Xml.child xml_arg0 "parentReadinessScopes") in
      let cells =
        (Option.map ~f:Zz__listOf__string.of_xml)
          (Xml.child xml_arg0 "cells") in
      let cellName =
        (Option.map ~f:Zz__stringMax64PatternAAZAZ09Z.of_xml)
          (Xml.child xml_arg0 "cellName") in
      let cellArn =
        (Option.map ~f:Zz__stringMax256.of_xml)
          (Xml.child xml_arg0 "cellArn") in
      make ?tags ?parentReadinessScopes ?cells ?cellName ?cellArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in
      let parentReadinessScopes =
        field_map json__ "ParentReadinessScopes" Zz__listOf__string.of_json in
      let cells = field_map json__ "Cells" Zz__listOf__string.of_json in
      let cellName =
        field_map json__ "CellName" Zz__stringMax64PatternAAZAZ09Z.of_json in
      let cellArn = field_map json__ "CellArn" Zz__stringMax256.of_json in
      make ?tags ?parentReadinessScopes ?cells ?cellName ?cellArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about a cell."]
module ReadinessCheckSummary =
  struct
    type nonrec t =
      {
      readiness: Readiness.t option
        [@ocaml.doc "The readiness status of this readiness check."];
      readinessCheckName: Zz__string.t option
        [@ocaml.doc "The name of a readiness check."]}
    let make ?readiness =
      fun ?readinessCheckName -> fun () -> { readiness; readinessCheckName }
    let to_value x =
      structure_to_value
        [("readiness", (Option.map x.readiness ~f:Readiness.to_value));
        ("readinessCheckName",
          (Option.map x.readinessCheckName ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let readinessCheckName =
        (Option.map ~f:Zz__string.of_xml)
          (Xml.child xml_arg0 "readinessCheckName") in
      let readiness =
        (Option.map ~f:Readiness.of_xml) (Xml.child xml_arg0 "readiness") in
      make ?readinessCheckName ?readiness ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let readinessCheckName =
        field_map json__ "ReadinessCheckName" Zz__string.of_json in
      let readiness = field_map json__ "Readiness" Readiness.of_json in
      make ?readinessCheckName ?readiness ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Summary of all readiness check statuses in a recovery group, paginated in GetRecoveryGroupReadinessSummary and GetCellReadinessSummary."]
module ResourceResult =
  struct
    type nonrec t =
      {
      componentId: Zz__string.t option
        [@ocaml.doc "The component id of the resource."];
      lastCheckedTimestamp: ReadinessCheckTimestamp.t option
        [@ocaml.doc
          "The time (UTC) that the resource was last checked for readiness, in ISO-8601 format."];
      readiness: Readiness.t option
        [@ocaml.doc "The readiness of a resource."];
      resourceArn: Zz__string.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the resource."]}
    let make ?componentId =
      fun ?lastCheckedTimestamp ->
        fun ?readiness ->
          fun ?resourceArn ->
            fun () ->
              { componentId; lastCheckedTimestamp; readiness; resourceArn }
    let to_value x =
      structure_to_value
        [("componentId", (Option.map x.componentId ~f:Zz__string.to_value));
        ("lastCheckedTimestamp",
          (Option.map x.lastCheckedTimestamp
             ~f:ReadinessCheckTimestamp.to_value));
        ("readiness", (Option.map x.readiness ~f:Readiness.to_value));
        ("resourceArn", (Option.map x.resourceArn ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "resourceArn") in
      let readiness =
        (Option.map ~f:Readiness.of_xml) (Xml.child xml_arg0 "readiness") in
      let lastCheckedTimestamp =
        (Option.map ~f:ReadinessCheckTimestamp.of_xml)
          (Xml.child xml_arg0 "lastCheckedTimestamp") in
      let componentId =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "componentId") in
      make ?resourceArn ?readiness ?lastCheckedTimestamp ?componentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceArn = field_map json__ "ResourceArn" Zz__string.of_json in
      let readiness = field_map json__ "Readiness" Readiness.of_json in
      let lastCheckedTimestamp =
        field_map json__ "LastCheckedTimestamp"
          ReadinessCheckTimestamp.of_json in
      let componentId = field_map json__ "ComponentId" Zz__string.of_json in
      make ?resourceArn ?readiness ?lastCheckedTimestamp ?componentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The result of a successful Resource request, with status for an individual resource."]
module RuleResult =
  struct
    type nonrec t =
      {
      lastCheckedTimestamp: ReadinessCheckTimestamp.t option
        [@ocaml.doc
          "The time the resource was last checked for readiness, in ISO-8601 format, UTC."];
      messages: Zz__listOfMessage.t option
        [@ocaml.doc "Details about the resource's readiness."];
      readiness: Readiness.t option
        [@ocaml.doc "The readiness at rule level."];
      ruleId: Zz__string.t option [@ocaml.doc "The identifier of the rule."]}
    let make ?lastCheckedTimestamp =
      fun ?messages ->
        fun ?readiness ->
          fun ?ruleId ->
            fun () -> { lastCheckedTimestamp; messages; readiness; ruleId }
    let to_value x =
      structure_to_value
        [("lastCheckedTimestamp",
           (Option.map x.lastCheckedTimestamp
              ~f:ReadinessCheckTimestamp.to_value));
        ("messages", (Option.map x.messages ~f:Zz__listOfMessage.to_value));
        ("readiness", (Option.map x.readiness ~f:Readiness.to_value));
        ("ruleId", (Option.map x.ruleId ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ruleId =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "ruleId") in
      let readiness =
        (Option.map ~f:Readiness.of_xml) (Xml.child xml_arg0 "readiness") in
      let messages =
        (Option.map ~f:Zz__listOfMessage.of_xml)
          (Xml.child xml_arg0 "messages") in
      let lastCheckedTimestamp =
        (Option.map ~f:ReadinessCheckTimestamp.of_xml)
          (Xml.child xml_arg0 "lastCheckedTimestamp") in
      make ?ruleId ?readiness ?messages ?lastCheckedTimestamp ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ruleId = field_map json__ "RuleId" Zz__string.of_json in
      let readiness = field_map json__ "Readiness" Readiness.of_json in
      let messages = field_map json__ "Messages" Zz__listOfMessage.of_json in
      let lastCheckedTimestamp =
        field_map json__ "LastCheckedTimestamp"
          ReadinessCheckTimestamp.of_json in
      make ?ruleId ?readiness ?messages ?lastCheckedTimestamp ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The result of a successful Rule request, with status for an individual rule."]
module Recommendation =
  struct
    type nonrec t =
      {
      recommendationText: Zz__string.t option
        [@ocaml.doc
          "Text of the recommendations that are provided to make an application more recovery resilient."]}
    let make ?recommendationText = fun () -> { recommendationText }
    let to_value x =
      structure_to_value
        [("recommendationText",
           (Option.map x.recommendationText ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let recommendationText =
        (Option.map ~f:Zz__string.of_xml)
          (Xml.child xml_arg0 "recommendationText") in
      make ?recommendationText ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let recommendationText =
        field_map json__ "RecommendationText" Zz__string.of_json in
      make ?recommendationText ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Recommendations that are provided to make an application more recovery resilient."]
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
       "User does not have sufficient access to perform this action."]
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 "An unexpected error occurred."]
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 "The requested resource does not exist."]
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 "Request was denied due to request throttling."]
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
       "The input fails to satisfy the constraints specified by an AWS service."]
module Zz__listOfListRulesOutput =
  struct
    type nonrec t = ListRulesOutput.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:ListRulesOutput.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:ListRulesOutput.of_xml)
    let of_json j =
      list_of_json ~kind:"__listOfListRulesOutput"
        ~of_json:ListRulesOutput.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:1000) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for MaxResults" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module Zz__listOfResourceSetOutput =
  struct
    type nonrec t = ResourceSetOutput.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:ResourceSetOutput.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:ResourceSetOutput.of_xml)
    let of_json j =
      list_of_json ~kind:"__listOfResourceSetOutput"
        ~of_json:ResourceSetOutput.of_json j
    let to_json v = composed_to_json to_value v
  end
module Zz__listOfRecoveryGroupOutput =
  struct
    type nonrec t = RecoveryGroupOutput.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:RecoveryGroupOutput.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:RecoveryGroupOutput.of_xml)
    let of_json j =
      list_of_json ~kind:"__listOfRecoveryGroupOutput"
        ~of_json:RecoveryGroupOutput.of_json j
    let to_json v = composed_to_json to_value v
  end
module Zz__listOfReadinessCheckOutput =
  struct
    type nonrec t = ReadinessCheckOutput.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:ReadinessCheckOutput.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:ReadinessCheckOutput.of_xml)
    let of_json j =
      list_of_json ~kind:"__listOfReadinessCheckOutput"
        ~of_json:ReadinessCheckOutput.of_json j
    let to_json v = composed_to_json to_value v
  end
module Zz__listOfCrossAccountAuthorization =
  struct
    type nonrec t = CrossAccountAuthorization.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:CrossAccountAuthorization.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:CrossAccountAuthorization.of_xml)
    let of_json j =
      list_of_json ~kind:"__listOfCrossAccountAuthorization"
        ~of_json:CrossAccountAuthorization.of_json j
    let to_json v = composed_to_json to_value v
  end
module Zz__listOfCellOutput =
  struct
    type nonrec t = CellOutput.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:CellOutput.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:CellOutput.of_xml)
    let of_json j =
      list_of_json ~kind:"__listOfCellOutput" ~of_json:CellOutput.of_json j
    let to_json v = composed_to_json to_value v
  end
module Zz__listOfReadinessCheckSummary =
  struct
    type nonrec t = ReadinessCheckSummary.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:ReadinessCheckSummary.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:ReadinessCheckSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"__listOfReadinessCheckSummary"
        ~of_json:ReadinessCheckSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module Zz__listOfResourceResult =
  struct
    type nonrec t = ResourceResult.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:ResourceResult.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:ResourceResult.of_xml)
    let of_json j =
      list_of_json ~kind:"__listOfResourceResult"
        ~of_json:ResourceResult.of_json j
    let to_json v = composed_to_json to_value v
  end
module Zz__listOfRuleResult =
  struct
    type nonrec t = RuleResult.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:RuleResult.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:RuleResult.of_xml)
    let of_json j =
      list_of_json ~kind:"__listOfRuleResult" ~of_json:RuleResult.of_json j
    let to_json v = composed_to_json to_value v
  end
module LastAuditTimestamp =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The time that a recovery group was last assessed for recommendations, in UTC ISO-8601 format."]
    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[@@ocaml.doc
       "The time that a recovery group was last assessed for recommendations, in UTC ISO-8601 format."]
module Zz__listOfRecommendation =
  struct
    type nonrec t = Recommendation.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Recommendation.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:Recommendation.of_xml)
    let of_json j =
      list_of_json ~kind:"__listOfRecommendation"
        ~of_json:Recommendation.of_json j
    let to_json v = composed_to_json to_value v
  end
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
       "Updating or deleting a resource can cause an inconsistent state."]
module UpdateResourceSetResponse =
  struct
    type nonrec t =
      {
      resourceSetArn: Zz__stringMax256.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) for the resource set."];
      resourceSetName: Zz__stringMax64PatternAAZAZ09Z.t option
        [@ocaml.doc "The name of the resource set."];
      resourceSetType: Zz__stringPatternAWSAZaZ09AZaZ09.t option
        [@ocaml.doc
          "The resource type of the resources in the resource set. Enter one of the following values for resource type: AWS::ApiGateway::Stage, AWS::ApiGatewayV2::Stage, AWS::AutoScaling::AutoScalingGroup, AWS::CloudWatch::Alarm, AWS::EC2::CustomerGateway, AWS::DynamoDB::Table, AWS::EC2::Volume, AWS::ElasticLoadBalancing::LoadBalancer, AWS::ElasticLoadBalancingV2::LoadBalancer, AWS::Lambda::Function, AWS::MSK::Cluster, AWS::RDS::DBCluster, AWS::Route53::HealthCheck, AWS::SQS::Queue, AWS::SNS::Topic, AWS::SNS::Subscription, AWS::EC2::VPC, AWS::EC2::VPNConnection, AWS::EC2::VPNGateway, AWS::Route53RecoveryReadiness::DNSTargetResource"];
      resources: Zz__listOfResource.t option
        [@ocaml.doc "A list of resource objects."];
      tags: Tags.t option }
    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 ?resourceSetArn =
      fun ?resourceSetName ->
        fun ?resourceSetType ->
          fun ?resources ->
            fun ?tags ->
              fun () ->
                {
                  resourceSetArn;
                  resourceSetName;
                  resourceSetType;
                  resources;
                  tags
                }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("resourceSetArn",
           (Option.map x.resourceSetArn ~f:Zz__stringMax256.to_value));
        ("resourceSetName",
          (Option.map x.resourceSetName
             ~f:Zz__stringMax64PatternAAZAZ09Z.to_value));
        ("resourceSetType",
          (Option.map x.resourceSetType
             ~f:Zz__stringPatternAWSAZaZ09AZaZ09.to_value));
        ("resources",
          (Option.map x.resources ~f:Zz__listOfResource.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let resources =
        (Option.map ~f:Zz__listOfResource.of_xml)
          (Xml.child xml_arg0 "resources") in
      let resourceSetType =
        (Option.map ~f:Zz__stringPatternAWSAZaZ09AZaZ09.of_xml)
          (Xml.child xml_arg0 "resourceSetType") in
      let resourceSetName =
        (Option.map ~f:Zz__stringMax64PatternAAZAZ09Z.of_xml)
          (Xml.child xml_arg0 "resourceSetName") in
      let resourceSetArn =
        (Option.map ~f:Zz__stringMax256.of_xml)
          (Xml.child xml_arg0 "resourceSetArn") in
      make ?tags ?resources ?resourceSetType ?resourceSetName ?resourceSetArn
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in
      let resources = field_map json__ "Resources" Zz__listOfResource.of_json in
      let resourceSetType =
        field_map json__ "ResourceSetType"
          Zz__stringPatternAWSAZaZ09AZaZ09.of_json in
      let resourceSetName =
        field_map json__ "ResourceSetName"
          Zz__stringMax64PatternAAZAZ09Z.of_json in
      let resourceSetArn =
        field_map json__ "ResourceSetArn" Zz__stringMax256.of_json in
      make ?tags ?resources ?resourceSetType ?resourceSetName ?resourceSetArn
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a resource set."]
module UpdateResourceSetRequest =
  struct
    type nonrec t =
      {
      resourceSetName: Zz__string.t [@ocaml.doc "Name of a resource set."];
      resourceSetType: Zz__stringPatternAWSAZaZ09AZaZ09.t
        [@ocaml.doc
          "The resource type of the resources in the resource set. Enter one of the following values for resource type: AWS::ApiGateway::Stage, AWS::ApiGatewayV2::Stage, AWS::AutoScaling::AutoScalingGroup, AWS::CloudWatch::Alarm, AWS::EC2::CustomerGateway, AWS::DynamoDB::Table, AWS::EC2::Volume, AWS::ElasticLoadBalancing::LoadBalancer, AWS::ElasticLoadBalancingV2::LoadBalancer, AWS::Lambda::Function, AWS::MSK::Cluster, AWS::RDS::DBCluster, AWS::Route53::HealthCheck, AWS::SQS::Queue, AWS::SNS::Topic, AWS::SNS::Subscription, AWS::EC2::VPC, AWS::EC2::VPNConnection, AWS::EC2::VPNGateway, AWS::Route53RecoveryReadiness::DNSTargetResource"];
      resources: Zz__listOfResource.t
        [@ocaml.doc "A list of resource objects."]}
    let context_ = "UpdateResourceSetRequest"
    let make ~resourceSetName =
      fun ~resourceSetType ->
        fun ~resources ->
          fun () -> { resourceSetName; resourceSetType; resources }
    let to_value x =
      structure_to_value
        [("resourceSetName", (Some (Zz__string.to_value x.resourceSetName)));
        ("resourceSetType",
          (Some (Zz__stringPatternAWSAZaZ09AZaZ09.to_value x.resourceSetType)));
        ("resources", (Some (Zz__listOfResource.to_value x.resources)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resources =
        Zz__listOfResource.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resources") in
      let resourceSetType =
        Zz__stringPatternAWSAZaZ09AZaZ09.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceSetType") in
      let resourceSetName =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceSetName") in
      make ~resources ~resourceSetType ~resourceSetName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resources =
        field_map_exn json__ "Resources" Zz__listOfResource.of_json in
      let resourceSetType =
        field_map_exn json__ "ResourceSetType"
          Zz__stringPatternAWSAZaZ09AZaZ09.of_json in
      let resourceSetName =
        field_map_exn json__ "ResourceSetName" Zz__string.of_json in
      make ~resources ~resourceSetType ~resourceSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Name of a resource set."]
module UpdateRecoveryGroupResponse =
  struct
    type nonrec t =
      {
      cells: Zz__listOf__string.t option
        [@ocaml.doc "A list of a cell's Amazon Resource Names (ARNs)."];
      recoveryGroupArn: Zz__stringMax256.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) for the recovery group."];
      recoveryGroupName: Zz__stringMax64PatternAAZAZ09Z.t option
        [@ocaml.doc "The name of the recovery group."];
      tags: Tags.t option
        [@ocaml.doc "The tags associated with the recovery group."]}
    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 ?cells =
      fun ?recoveryGroupArn ->
        fun ?recoveryGroupName ->
          fun ?tags ->
            fun () -> { cells; recoveryGroupArn; recoveryGroupName; tags }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("cells", (Option.map x.cells ~f:Zz__listOf__string.to_value));
        ("recoveryGroupArn",
          (Option.map x.recoveryGroupArn ~f:Zz__stringMax256.to_value));
        ("recoveryGroupName",
          (Option.map x.recoveryGroupName
             ~f:Zz__stringMax64PatternAAZAZ09Z.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let recoveryGroupName =
        (Option.map ~f:Zz__stringMax64PatternAAZAZ09Z.of_xml)
          (Xml.child xml_arg0 "recoveryGroupName") in
      let recoveryGroupArn =
        (Option.map ~f:Zz__stringMax256.of_xml)
          (Xml.child xml_arg0 "recoveryGroupArn") in
      let cells =
        (Option.map ~f:Zz__listOf__string.of_xml)
          (Xml.child xml_arg0 "cells") in
      make ?tags ?recoveryGroupName ?recoveryGroupArn ?cells ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in
      let recoveryGroupName =
        field_map json__ "RecoveryGroupName"
          Zz__stringMax64PatternAAZAZ09Z.of_json in
      let recoveryGroupArn =
        field_map json__ "RecoveryGroupArn" Zz__stringMax256.of_json in
      let cells = field_map json__ "Cells" Zz__listOf__string.of_json in
      make ?tags ?recoveryGroupName ?recoveryGroupArn ?cells ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a recovery group."]
module UpdateRecoveryGroupRequest =
  struct
    type nonrec t =
      {
      cells: Zz__listOf__string.t
        [@ocaml.doc
          "A list of cell Amazon Resource Names (ARNs). This list completely replaces the previous list."];
      recoveryGroupName: Zz__string.t
        [@ocaml.doc "The name of a recovery group."]}
    let context_ = "UpdateRecoveryGroupRequest"
    let make ~cells =
      fun ~recoveryGroupName -> fun () -> { cells; recoveryGroupName }
    let to_value x =
      structure_to_value
        [("cells", (Some (Zz__listOf__string.to_value x.cells)));
        ("recoveryGroupName",
          (Some (Zz__string.to_value x.recoveryGroupName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let recoveryGroupName =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "recoveryGroupName") in
      let cells =
        Zz__listOf__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "cells") in
      make ~recoveryGroupName ~cells ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let recoveryGroupName =
        field_map_exn json__ "RecoveryGroupName" Zz__string.of_json in
      let cells = field_map_exn json__ "Cells" Zz__listOf__string.of_json in
      make ~recoveryGroupName ~cells ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Name of a recovery group."]
module UpdateReadinessCheckResponse =
  struct
    type nonrec t =
      {
      readinessCheckArn: Zz__stringMax256.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) associated with a readiness check."];
      readinessCheckName: Zz__stringMax64PatternAAZAZ09Z.t option
        [@ocaml.doc "Name of a readiness check."];
      resourceSet: Zz__stringMax64PatternAAZAZ09Z.t option
        [@ocaml.doc "Name of the resource set to be checked."];
      tags: Tags.t option }
    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 ?readinessCheckArn =
      fun ?readinessCheckName ->
        fun ?resourceSet ->
          fun ?tags ->
            fun () ->
              { readinessCheckArn; readinessCheckName; resourceSet; tags }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("readinessCheckArn",
           (Option.map x.readinessCheckArn ~f:Zz__stringMax256.to_value));
        ("readinessCheckName",
          (Option.map x.readinessCheckName
             ~f:Zz__stringMax64PatternAAZAZ09Z.to_value));
        ("resourceSet",
          (Option.map x.resourceSet
             ~f:Zz__stringMax64PatternAAZAZ09Z.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let resourceSet =
        (Option.map ~f:Zz__stringMax64PatternAAZAZ09Z.of_xml)
          (Xml.child xml_arg0 "resourceSet") in
      let readinessCheckName =
        (Option.map ~f:Zz__stringMax64PatternAAZAZ09Z.of_xml)
          (Xml.child xml_arg0 "readinessCheckName") in
      let readinessCheckArn =
        (Option.map ~f:Zz__stringMax256.of_xml)
          (Xml.child xml_arg0 "readinessCheckArn") in
      make ?tags ?resourceSet ?readinessCheckName ?readinessCheckArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in
      let resourceSet =
        field_map json__ "ResourceSet" Zz__stringMax64PatternAAZAZ09Z.of_json in
      let readinessCheckName =
        field_map json__ "ReadinessCheckName"
          Zz__stringMax64PatternAAZAZ09Z.of_json in
      let readinessCheckArn =
        field_map json__ "ReadinessCheckArn" Zz__stringMax256.of_json in
      make ?tags ?resourceSet ?readinessCheckName ?readinessCheckArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a readiness check."]
module UpdateReadinessCheckRequest =
  struct
    type nonrec t =
      {
      readinessCheckName: Zz__string.t
        [@ocaml.doc "Name of a readiness check."];
      resourceSetName: Zz__string.t
        [@ocaml.doc "The name of the resource set to be checked."]}
    let context_ = "UpdateReadinessCheckRequest"
    let make ~readinessCheckName =
      fun ~resourceSetName ->
        fun () -> { readinessCheckName; resourceSetName }
    let to_value x =
      structure_to_value
        [("readinessCheckName",
           (Some (Zz__string.to_value x.readinessCheckName)));
        ("resourceSetName", (Some (Zz__string.to_value x.resourceSetName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceSetName =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceSetName") in
      let readinessCheckName =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "readinessCheckName") in
      make ~resourceSetName ~readinessCheckName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceSetName =
        field_map_exn json__ "ResourceSetName" Zz__string.of_json in
      let readinessCheckName =
        field_map_exn json__ "ReadinessCheckName" Zz__string.of_json in
      make ~resourceSetName ~readinessCheckName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Name of a readiness check to describe."]
module UpdateCellResponse =
  struct
    type nonrec t =
      {
      cellArn: Zz__stringMax256.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) for the cell."];
      cellName: Zz__stringMax64PatternAAZAZ09Z.t option
        [@ocaml.doc "The name of the cell."];
      cells: Zz__listOf__string.t option [@ocaml.doc "A list of cell ARNs."];
      parentReadinessScopes: Zz__listOf__string.t option
        [@ocaml.doc
          "The readiness scope for the cell, which can be a cell Amazon Resource Name (ARN) or a recovery group ARN. This is a list but currently can have only one element."];
      tags: Tags.t option [@ocaml.doc "Tags on the resources."]}
    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 ?cellArn =
      fun ?cellName ->
        fun ?cells ->
          fun ?parentReadinessScopes ->
            fun ?tags ->
              fun () ->
                { cellArn; cellName; cells; parentReadinessScopes; tags }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("cellArn", (Option.map x.cellArn ~f:Zz__stringMax256.to_value));
        ("cellName",
          (Option.map x.cellName ~f:Zz__stringMax64PatternAAZAZ09Z.to_value));
        ("cells", (Option.map x.cells ~f:Zz__listOf__string.to_value));
        ("parentReadinessScopes",
          (Option.map x.parentReadinessScopes ~f:Zz__listOf__string.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let parentReadinessScopes =
        (Option.map ~f:Zz__listOf__string.of_xml)
          (Xml.child xml_arg0 "parentReadinessScopes") in
      let cells =
        (Option.map ~f:Zz__listOf__string.of_xml)
          (Xml.child xml_arg0 "cells") in
      let cellName =
        (Option.map ~f:Zz__stringMax64PatternAAZAZ09Z.of_xml)
          (Xml.child xml_arg0 "cellName") in
      let cellArn =
        (Option.map ~f:Zz__stringMax256.of_xml)
          (Xml.child xml_arg0 "cellArn") in
      make ?tags ?parentReadinessScopes ?cells ?cellName ?cellArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in
      let parentReadinessScopes =
        field_map json__ "ParentReadinessScopes" Zz__listOf__string.of_json in
      let cells = field_map json__ "Cells" Zz__listOf__string.of_json in
      let cellName =
        field_map json__ "CellName" Zz__stringMax64PatternAAZAZ09Z.of_json in
      let cellArn = field_map json__ "CellArn" Zz__stringMax256.of_json in
      make ?tags ?parentReadinessScopes ?cells ?cellName ?cellArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates a cell to replace the list of nested cells with a new list of nested cells."]
module UpdateCellRequest =
  struct
    type nonrec t =
      {
      cellName: Zz__string.t [@ocaml.doc "The name of the cell."];
      cells: Zz__listOf__string.t
        [@ocaml.doc
          "A list of cell Amazon Resource Names (ARNs), which completely replaces the previous list."]}
    let context_ = "UpdateCellRequest"
    let make ~cellName = fun ~cells -> fun () -> { cellName; cells }
    let to_value x =
      structure_to_value
        [("cellName", (Some (Zz__string.to_value x.cellName)));
        ("cells", (Some (Zz__listOf__string.to_value x.cells)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let cells =
        Zz__listOf__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "cells") in
      let cellName =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "cellName") in
      make ~cells ~cellName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let cells = field_map_exn json__ "Cells" Zz__listOf__string.of_json in
      let cellName = field_map_exn json__ "CellName" Zz__string.of_json in
      make ~cells ~cellName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates a cell to replace the list of nested cells with a new list of nested cells."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: Zz__string.t
        [@ocaml.doc "The Amazon Resource Name (ARN) for a resource."];
      tagKeys: Zz__listOf__string.t
        [@ocaml.doc "The keys for tags you add to resources."]}
    let context_ = "UntagResourceRequest"
    let make ~resourceArn =
      fun ~tagKeys -> fun () -> { resourceArn; tagKeys }
    let to_value x =
      structure_to_value
        [("resource-arn", (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 "resource-arn") 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 a resource."];
      tags: Tags.t }
    let context_ = "TagResourceRequest"
    let make ~resourceArn = fun ~tags -> fun () -> { resourceArn; tags }
    let to_value x =
      structure_to_value
        [("resource-arn", (Some (Zz__string.to_value x.resourceArn)));
        ("tags", (Some (Tags.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        Tags.of_xml (Xml.child_exn ~context:context_ xml_arg0 "tags") in
      let resourceArn =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resource-arn") 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" Tags.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 "Adds a tag to a resource."]
module ListTagsForResourcesResponse =
  struct
    type nonrec t = {
      tags: Tags.t option }
    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:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      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" Tags.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 ListTagsForResourcesRequest =
  struct
    type nonrec t =
      {
      resourceArn: Zz__string.t
        [@ocaml.doc "The Amazon Resource Name (ARN) for a resource."]}
    let context_ = "ListTagsForResourcesRequest"
    let make ~resourceArn = fun () -> { resourceArn }
    let to_value x =
      structure_to_value
        [("resource-arn", (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 "resource-arn") 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 ListRulesResponse =
  struct
    type nonrec t =
      {
      nextToken: Zz__string.t option
        [@ocaml.doc
          "The token that identifies which batch of results you want to see."];
      rules: Zz__listOfListRulesOutput.t option
        [@ocaml.doc
          "A list of readiness rules for a specific resource type."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken = fun ?rules -> fun () -> { nextToken; rules }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("nextToken", (Option.map x.nextToken ~f:Zz__string.to_value));
        ("rules", (Option.map x.rules ~f:Zz__listOfListRulesOutput.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let rules =
        (Option.map ~f:Zz__listOfListRulesOutput.of_xml)
          (Xml.child xml_arg0 "rules") in
      let nextToken =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "nextToken") in
      make ?rules ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let rules = field_map json__ "Rules" Zz__listOfListRulesOutput.of_json in
      let nextToken = field_map json__ "NextToken" Zz__string.of_json in
      make ?rules ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all readiness rules, or lists the readiness rules for a specific resource type."]
module ListRulesRequest =
  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."];
      resourceType: Zz__string.t option
        [@ocaml.doc "The resource type that a readiness rule applies to."]}
    let make ?maxResults =
      fun ?nextToken ->
        fun ?resourceType ->
          fun () -> { maxResults; nextToken; resourceType }
    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));
        ("resourceType", (Option.map x.resourceType ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceType =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "resourceType") 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 ?resourceType ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceType = field_map json__ "ResourceType" 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 ?resourceType ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all readiness rules, or lists the readiness rules for a specific resource type."]
module ListResourceSetsResponse =
  struct
    type nonrec t =
      {
      nextToken: Zz__string.t option
        [@ocaml.doc
          "The token that identifies which batch of results you want to see."];
      resourceSets: Zz__listOfResourceSetOutput.t option
        [@ocaml.doc "A list of resource sets associated with the account."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?resourceSets -> fun () -> { nextToken; resourceSets }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("nextToken", (Option.map x.nextToken ~f:Zz__string.to_value));
        ("resourceSets",
          (Option.map x.resourceSets ~f:Zz__listOfResourceSetOutput.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceSets =
        (Option.map ~f:Zz__listOfResourceSetOutput.of_xml)
          (Xml.child xml_arg0 "resourceSets") in
      let nextToken =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "nextToken") in
      make ?resourceSets ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceSets =
        field_map json__ "ResourceSets" Zz__listOfResourceSetOutput.of_json in
      let nextToken = field_map json__ "NextToken" Zz__string.of_json in
      make ?resourceSets ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the resource sets in an account."]
module ListResourceSetsRequest =
  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 "Lists the resource sets in an account."]
module ListRecoveryGroupsResponse =
  struct
    type nonrec t =
      {
      nextToken: Zz__string.t option
        [@ocaml.doc
          "The token that identifies which batch of results you want to see."];
      recoveryGroups: Zz__listOfRecoveryGroupOutput.t option
        [@ocaml.doc "A list of recovery groups."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?recoveryGroups -> fun () -> { nextToken; recoveryGroups }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("nextToken", (Option.map x.nextToken ~f:Zz__string.to_value));
        ("recoveryGroups",
          (Option.map x.recoveryGroups
             ~f:Zz__listOfRecoveryGroupOutput.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let recoveryGroups =
        (Option.map ~f:Zz__listOfRecoveryGroupOutput.of_xml)
          (Xml.child xml_arg0 "recoveryGroups") in
      let nextToken =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "nextToken") in
      make ?recoveryGroups ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let recoveryGroups =
        field_map json__ "RecoveryGroups"
          Zz__listOfRecoveryGroupOutput.of_json in
      let nextToken = field_map json__ "NextToken" Zz__string.of_json in
      make ?recoveryGroups ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the recovery groups in an account."]
module ListRecoveryGroupsRequest =
  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 "Lists the recovery groups in an account."]
module ListReadinessChecksResponse =
  struct
    type nonrec t =
      {
      nextToken: Zz__string.t option
        [@ocaml.doc
          "The token that identifies which batch of results you want to see."];
      readinessChecks: Zz__listOfReadinessCheckOutput.t option
        [@ocaml.doc
          "A list of readiness checks associated with the account."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?readinessChecks -> fun () -> { nextToken; readinessChecks }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("nextToken", (Option.map x.nextToken ~f:Zz__string.to_value));
        ("readinessChecks",
          (Option.map x.readinessChecks
             ~f:Zz__listOfReadinessCheckOutput.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let readinessChecks =
        (Option.map ~f:Zz__listOfReadinessCheckOutput.of_xml)
          (Xml.child xml_arg0 "readinessChecks") in
      let nextToken =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "nextToken") in
      make ?readinessChecks ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let readinessChecks =
        field_map json__ "ReadinessChecks"
          Zz__listOfReadinessCheckOutput.of_json in
      let nextToken = field_map json__ "NextToken" Zz__string.of_json in
      make ?readinessChecks ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the readiness checks for an account."]
module ListReadinessChecksRequest =
  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 "Lists the readiness checks for an account."]
module ListCrossAccountAuthorizationsResponse =
  struct
    type nonrec t =
      {
      crossAccountAuthorizations:
        Zz__listOfCrossAccountAuthorization.t option
        [@ocaml.doc "A list of cross-account authorizations."];
      nextToken: Zz__string.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 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?crossAccountAuthorizations =
      fun ?nextToken -> fun () -> { crossAccountAuthorizations; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("crossAccountAuthorizations",
           (Option.map x.crossAccountAuthorizations
              ~f:Zz__listOfCrossAccountAuthorization.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 crossAccountAuthorizations =
        (Option.map ~f:Zz__listOfCrossAccountAuthorization.of_xml)
          (Xml.child xml_arg0 "crossAccountAuthorizations") in
      make ?nextToken ?crossAccountAuthorizations ()
    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 crossAccountAuthorizations =
        field_map json__ "CrossAccountAuthorizations"
          Zz__listOfCrossAccountAuthorization.of_json in
      make ?nextToken ?crossAccountAuthorizations ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the cross-account readiness authorizations that are in place for an account."]
module ListCrossAccountAuthorizationsRequest =
  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
       "Lists the cross-account readiness authorizations that are in place for an account."]
module ListCellsResponse =
  struct
    type nonrec t =
      {
      cells: Zz__listOfCellOutput.t option [@ocaml.doc "A list of cells."];
      nextToken: Zz__string.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 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?cells = fun ?nextToken -> fun () -> { cells; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("cells", (Option.map x.cells ~f:Zz__listOfCellOutput.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 cells =
        (Option.map ~f:Zz__listOfCellOutput.of_xml)
          (Xml.child xml_arg0 "cells") in
      make ?nextToken ?cells ()
    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 cells = field_map json__ "Cells" Zz__listOfCellOutput.of_json in
      make ?nextToken ?cells ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the cells for an account."]
module ListCellsRequest =
  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 "Lists the cells for an account."]
module GetResourceSetResponse =
  struct
    type nonrec t =
      {
      resourceSetArn: Zz__stringMax256.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) for the resource set."];
      resourceSetName: Zz__stringMax64PatternAAZAZ09Z.t option
        [@ocaml.doc "The name of the resource set."];
      resourceSetType: Zz__stringPatternAWSAZaZ09AZaZ09.t option
        [@ocaml.doc
          "The resource type of the resources in the resource set. Enter one of the following values for resource type: AWS::ApiGateway::Stage, AWS::ApiGatewayV2::Stage, AWS::AutoScaling::AutoScalingGroup, AWS::CloudWatch::Alarm, AWS::EC2::CustomerGateway, AWS::DynamoDB::Table, AWS::EC2::Volume, AWS::ElasticLoadBalancing::LoadBalancer, AWS::ElasticLoadBalancingV2::LoadBalancer, AWS::Lambda::Function, AWS::MSK::Cluster, AWS::RDS::DBCluster, AWS::Route53::HealthCheck, AWS::SQS::Queue, AWS::SNS::Topic, AWS::SNS::Subscription, AWS::EC2::VPC, AWS::EC2::VPNConnection, AWS::EC2::VPNGateway, AWS::Route53RecoveryReadiness::DNSTargetResource"];
      resources: Zz__listOfResource.t option
        [@ocaml.doc "A list of resource objects."];
      tags: Tags.t option }
    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 ?resourceSetArn =
      fun ?resourceSetName ->
        fun ?resourceSetType ->
          fun ?resources ->
            fun ?tags ->
              fun () ->
                {
                  resourceSetArn;
                  resourceSetName;
                  resourceSetType;
                  resources;
                  tags
                }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("resourceSetArn",
           (Option.map x.resourceSetArn ~f:Zz__stringMax256.to_value));
        ("resourceSetName",
          (Option.map x.resourceSetName
             ~f:Zz__stringMax64PatternAAZAZ09Z.to_value));
        ("resourceSetType",
          (Option.map x.resourceSetType
             ~f:Zz__stringPatternAWSAZaZ09AZaZ09.to_value));
        ("resources",
          (Option.map x.resources ~f:Zz__listOfResource.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let resources =
        (Option.map ~f:Zz__listOfResource.of_xml)
          (Xml.child xml_arg0 "resources") in
      let resourceSetType =
        (Option.map ~f:Zz__stringPatternAWSAZaZ09AZaZ09.of_xml)
          (Xml.child xml_arg0 "resourceSetType") in
      let resourceSetName =
        (Option.map ~f:Zz__stringMax64PatternAAZAZ09Z.of_xml)
          (Xml.child xml_arg0 "resourceSetName") in
      let resourceSetArn =
        (Option.map ~f:Zz__stringMax256.of_xml)
          (Xml.child xml_arg0 "resourceSetArn") in
      make ?tags ?resources ?resourceSetType ?resourceSetName ?resourceSetArn
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in
      let resources = field_map json__ "Resources" Zz__listOfResource.of_json in
      let resourceSetType =
        field_map json__ "ResourceSetType"
          Zz__stringPatternAWSAZaZ09AZaZ09.of_json in
      let resourceSetName =
        field_map json__ "ResourceSetName"
          Zz__stringMax64PatternAAZAZ09Z.of_json in
      let resourceSetArn =
        field_map json__ "ResourceSetArn" Zz__stringMax256.of_json in
      make ?tags ?resources ?resourceSetType ?resourceSetName ?resourceSetArn
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Displays the details about a resource set, including a list of the resources in the set."]
module GetResourceSetRequest =
  struct
    type nonrec t =
      {
      resourceSetName: Zz__string.t [@ocaml.doc "Name of a resource set."]}
    let context_ = "GetResourceSetRequest"
    let make ~resourceSetName = fun () -> { resourceSetName }
    let to_value x =
      structure_to_value
        [("resourceSetName", (Some (Zz__string.to_value x.resourceSetName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceSetName =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceSetName") in
      make ~resourceSetName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceSetName =
        field_map_exn json__ "ResourceSetName" Zz__string.of_json in
      make ~resourceSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Displays the details about a resource set, including a list of the resources in the set."]
module GetRecoveryGroupResponse =
  struct
    type nonrec t =
      {
      cells: Zz__listOf__string.t option
        [@ocaml.doc "A list of a cell's Amazon Resource Names (ARNs)."];
      recoveryGroupArn: Zz__stringMax256.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) for the recovery group."];
      recoveryGroupName: Zz__stringMax64PatternAAZAZ09Z.t option
        [@ocaml.doc "The name of the recovery group."];
      tags: Tags.t option
        [@ocaml.doc "The tags associated with the recovery group."]}
    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 ?cells =
      fun ?recoveryGroupArn ->
        fun ?recoveryGroupName ->
          fun ?tags ->
            fun () -> { cells; recoveryGroupArn; recoveryGroupName; tags }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("cells", (Option.map x.cells ~f:Zz__listOf__string.to_value));
        ("recoveryGroupArn",
          (Option.map x.recoveryGroupArn ~f:Zz__stringMax256.to_value));
        ("recoveryGroupName",
          (Option.map x.recoveryGroupName
             ~f:Zz__stringMax64PatternAAZAZ09Z.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let recoveryGroupName =
        (Option.map ~f:Zz__stringMax64PatternAAZAZ09Z.of_xml)
          (Xml.child xml_arg0 "recoveryGroupName") in
      let recoveryGroupArn =
        (Option.map ~f:Zz__stringMax256.of_xml)
          (Xml.child xml_arg0 "recoveryGroupArn") in
      let cells =
        (Option.map ~f:Zz__listOf__string.of_xml)
          (Xml.child xml_arg0 "cells") in
      make ?tags ?recoveryGroupName ?recoveryGroupArn ?cells ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in
      let recoveryGroupName =
        field_map json__ "RecoveryGroupName"
          Zz__stringMax64PatternAAZAZ09Z.of_json in
      let recoveryGroupArn =
        field_map json__ "RecoveryGroupArn" Zz__stringMax256.of_json in
      let cells = field_map json__ "Cells" Zz__listOf__string.of_json in
      make ?tags ?recoveryGroupName ?recoveryGroupArn ?cells ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets details about a recovery group, including a list of the cells that are included in it."]
module GetRecoveryGroupRequest =
  struct
    type nonrec t =
      {
      recoveryGroupName: Zz__string.t
        [@ocaml.doc "The name of a recovery group."]}
    let context_ = "GetRecoveryGroupRequest"
    let make ~recoveryGroupName = fun () -> { recoveryGroupName }
    let to_value x =
      structure_to_value
        [("recoveryGroupName",
           (Some (Zz__string.to_value x.recoveryGroupName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let recoveryGroupName =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "recoveryGroupName") in
      make ~recoveryGroupName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let recoveryGroupName =
        field_map_exn json__ "RecoveryGroupName" Zz__string.of_json in
      make ~recoveryGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets details about a recovery group, including a list of the cells that are included in it."]
module GetRecoveryGroupReadinessSummaryResponse =
  struct
    type nonrec t =
      {
      nextToken: Zz__string.t option
        [@ocaml.doc
          "The token that identifies which batch of results you want to see."];
      readiness: Readiness.t option
        [@ocaml.doc "The readiness status at a recovery group level."];
      readinessChecks: Zz__listOfReadinessCheckSummary.t option
        [@ocaml.doc
          "Summaries of the readiness checks for the recovery group."]}
    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 ?readiness ->
        fun ?readinessChecks ->
          fun () -> { nextToken; readiness; readinessChecks }
    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__string.to_value));
        ("readiness", (Option.map x.readiness ~f:Readiness.to_value));
        ("readinessChecks",
          (Option.map x.readinessChecks
             ~f:Zz__listOfReadinessCheckSummary.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let readinessChecks =
        (Option.map ~f:Zz__listOfReadinessCheckSummary.of_xml)
          (Xml.child xml_arg0 "readinessChecks") in
      let readiness =
        (Option.map ~f:Readiness.of_xml) (Xml.child xml_arg0 "readiness") in
      let nextToken =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "nextToken") in
      make ?readinessChecks ?readiness ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let readinessChecks =
        field_map json__ "ReadinessChecks"
          Zz__listOfReadinessCheckSummary.of_json in
      let readiness = field_map json__ "Readiness" Readiness.of_json in
      let nextToken = field_map json__ "NextToken" Zz__string.of_json in
      make ?readinessChecks ?readiness ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Displays a summary of information about a recovery group's readiness status. Includes the readiness checks for resources in the recovery group and the readiness status of each one."]
module GetRecoveryGroupReadinessSummaryRequest =
  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."];
      recoveryGroupName: Zz__string.t
        [@ocaml.doc "The name of a recovery group."]}
    let context_ = "GetRecoveryGroupReadinessSummaryRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~recoveryGroupName ->
          fun () -> { maxResults; nextToken; recoveryGroupName }
    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));
        ("recoveryGroupName",
          (Some (Zz__string.to_value x.recoveryGroupName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let recoveryGroupName =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "recoveryGroupName") 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 ~recoveryGroupName ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let recoveryGroupName =
        field_map_exn json__ "RecoveryGroupName" 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 ~recoveryGroupName ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Displays a summary of information about a recovery group's readiness status. Includes the readiness checks for resources in the recovery group and the readiness status of each one."]
module GetReadinessCheckStatusResponse =
  struct
    type nonrec t =
      {
      messages: Zz__listOfMessage.t option
        [@ocaml.doc "Top level messages for readiness check status"];
      nextToken: Zz__string.t option
        [@ocaml.doc
          "The token that identifies which batch of results you want to see."];
      readiness: Readiness.t option
        [@ocaml.doc "The readiness at rule level."];
      resources: Zz__listOfResourceResult.t option
        [@ocaml.doc "Summary of the readiness of resources."]}
    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 ?messages =
      fun ?nextToken ->
        fun ?readiness ->
          fun ?resources ->
            fun () -> { messages; nextToken; readiness; resources }
    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
        [("messages", (Option.map x.messages ~f:Zz__listOfMessage.to_value));
        ("nextToken", (Option.map x.nextToken ~f:Zz__string.to_value));
        ("readiness", (Option.map x.readiness ~f:Readiness.to_value));
        ("resources",
          (Option.map x.resources ~f:Zz__listOfResourceResult.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resources =
        (Option.map ~f:Zz__listOfResourceResult.of_xml)
          (Xml.child xml_arg0 "resources") in
      let readiness =
        (Option.map ~f:Readiness.of_xml) (Xml.child xml_arg0 "readiness") in
      let nextToken =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "nextToken") in
      let messages =
        (Option.map ~f:Zz__listOfMessage.of_xml)
          (Xml.child xml_arg0 "messages") in
      make ?resources ?readiness ?nextToken ?messages ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resources =
        field_map json__ "Resources" Zz__listOfResourceResult.of_json in
      let readiness = field_map json__ "Readiness" Readiness.of_json in
      let nextToken = field_map json__ "NextToken" Zz__string.of_json in
      let messages = field_map json__ "Messages" Zz__listOfMessage.of_json in
      make ?resources ?readiness ?nextToken ?messages ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the readiness status for an individual readiness check. To see the overall readiness status for a recovery group, that considers the readiness status for all the readiness checks in a recovery group, use GetRecoveryGroupReadinessSummary."]
module GetReadinessCheckStatusRequest =
  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."];
      readinessCheckName: Zz__string.t
        [@ocaml.doc "Name of a readiness check."]}
    let context_ = "GetReadinessCheckStatusRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~readinessCheckName ->
          fun () -> { maxResults; nextToken; readinessCheckName }
    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));
        ("readinessCheckName",
          (Some (Zz__string.to_value x.readinessCheckName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let readinessCheckName =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "readinessCheckName") 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 ~readinessCheckName ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let readinessCheckName =
        field_map_exn json__ "ReadinessCheckName" 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 ~readinessCheckName ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the readiness status for an individual readiness check. To see the overall readiness status for a recovery group, that considers the readiness status for all the readiness checks in a recovery group, use GetRecoveryGroupReadinessSummary."]
module GetReadinessCheckResponse =
  struct
    type nonrec t =
      {
      readinessCheckArn: Zz__stringMax256.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) associated with a readiness check."];
      readinessCheckName: Zz__stringMax64PatternAAZAZ09Z.t option
        [@ocaml.doc "Name of a readiness check."];
      resourceSet: Zz__stringMax64PatternAAZAZ09Z.t option
        [@ocaml.doc "Name of the resource set to be checked."];
      tags: Tags.t option }
    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 ?readinessCheckArn =
      fun ?readinessCheckName ->
        fun ?resourceSet ->
          fun ?tags ->
            fun () ->
              { readinessCheckArn; readinessCheckName; resourceSet; tags }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("readinessCheckArn",
           (Option.map x.readinessCheckArn ~f:Zz__stringMax256.to_value));
        ("readinessCheckName",
          (Option.map x.readinessCheckName
             ~f:Zz__stringMax64PatternAAZAZ09Z.to_value));
        ("resourceSet",
          (Option.map x.resourceSet
             ~f:Zz__stringMax64PatternAAZAZ09Z.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let resourceSet =
        (Option.map ~f:Zz__stringMax64PatternAAZAZ09Z.of_xml)
          (Xml.child xml_arg0 "resourceSet") in
      let readinessCheckName =
        (Option.map ~f:Zz__stringMax64PatternAAZAZ09Z.of_xml)
          (Xml.child xml_arg0 "readinessCheckName") in
      let readinessCheckArn =
        (Option.map ~f:Zz__stringMax256.of_xml)
          (Xml.child xml_arg0 "readinessCheckArn") in
      make ?tags ?resourceSet ?readinessCheckName ?readinessCheckArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in
      let resourceSet =
        field_map json__ "ResourceSet" Zz__stringMax64PatternAAZAZ09Z.of_json in
      let readinessCheckName =
        field_map json__ "ReadinessCheckName"
          Zz__stringMax64PatternAAZAZ09Z.of_json in
      let readinessCheckArn =
        field_map json__ "ReadinessCheckArn" Zz__stringMax256.of_json in
      make ?tags ?resourceSet ?readinessCheckName ?readinessCheckArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets details about a readiness check."]
module GetReadinessCheckResourceStatusResponse =
  struct
    type nonrec t =
      {
      nextToken: Zz__string.t option
        [@ocaml.doc
          "The token that identifies which batch of results you want to see."];
      readiness: Readiness.t option
        [@ocaml.doc "The readiness at a rule level."];
      rules: Zz__listOfRuleResult.t option
        [@ocaml.doc "Details of the rule's results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?readiness ->
        fun ?rules -> fun () -> { nextToken; readiness; rules }
    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__string.to_value));
        ("readiness", (Option.map x.readiness ~f:Readiness.to_value));
        ("rules", (Option.map x.rules ~f:Zz__listOfRuleResult.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let rules =
        (Option.map ~f:Zz__listOfRuleResult.of_xml)
          (Xml.child xml_arg0 "rules") in
      let readiness =
        (Option.map ~f:Readiness.of_xml) (Xml.child xml_arg0 "readiness") in
      let nextToken =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "nextToken") in
      make ?rules ?readiness ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let rules = field_map json__ "Rules" Zz__listOfRuleResult.of_json in
      let readiness = field_map json__ "Readiness" Readiness.of_json in
      let nextToken = field_map json__ "NextToken" Zz__string.of_json in
      make ?rules ?readiness ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets individual readiness status for a readiness check. To see the overall readiness status for a recovery group, that considers the readiness status for all the readiness checks in the recovery group, use GetRecoveryGroupReadinessSummary."]
module GetReadinessCheckResourceStatusRequest =
  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."];
      readinessCheckName: Zz__string.t
        [@ocaml.doc "Name of a readiness check."];
      resourceIdentifier: Zz__string.t
        [@ocaml.doc
          "The resource identifier, which is the Amazon Resource Name (ARN) or the identifier generated for the resource by Application Recovery Controller (for example, for a DNS target resource)."]}
    let context_ = "GetReadinessCheckResourceStatusRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~readinessCheckName ->
          fun ~resourceIdentifier ->
            fun () ->
              { maxResults; nextToken; readinessCheckName; resourceIdentifier
              }
    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));
        ("readinessCheckName",
          (Some (Zz__string.to_value x.readinessCheckName)));
        ("resourceIdentifier",
          (Some (Zz__string.to_value x.resourceIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceIdentifier =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceIdentifier") in
      let readinessCheckName =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "readinessCheckName") 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 ~resourceIdentifier ~readinessCheckName ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceIdentifier =
        field_map_exn json__ "ResourceIdentifier" Zz__string.of_json in
      let readinessCheckName =
        field_map_exn json__ "ReadinessCheckName" 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 ~resourceIdentifier ~readinessCheckName ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets individual readiness status for a readiness check. To see the overall readiness status for a recovery group, that considers the readiness status for all the readiness checks in the recovery group, use GetRecoveryGroupReadinessSummary."]
module GetReadinessCheckRequest =
  struct
    type nonrec t =
      {
      readinessCheckName: Zz__string.t
        [@ocaml.doc "Name of a readiness check."]}
    let context_ = "GetReadinessCheckRequest"
    let make ~readinessCheckName = fun () -> { readinessCheckName }
    let to_value x =
      structure_to_value
        [("readinessCheckName",
           (Some (Zz__string.to_value x.readinessCheckName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let readinessCheckName =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "readinessCheckName") in
      make ~readinessCheckName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let readinessCheckName =
        field_map_exn json__ "ReadinessCheckName" Zz__string.of_json in
      make ~readinessCheckName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets details about a readiness check."]
module GetCellResponse =
  struct
    type nonrec t =
      {
      cellArn: Zz__stringMax256.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) for the cell."];
      cellName: Zz__stringMax64PatternAAZAZ09Z.t option
        [@ocaml.doc "The name of the cell."];
      cells: Zz__listOf__string.t option [@ocaml.doc "A list of cell ARNs."];
      parentReadinessScopes: Zz__listOf__string.t option
        [@ocaml.doc
          "The readiness scope for the cell, which can be a cell Amazon Resource Name (ARN) or a recovery group ARN. This is a list but currently can have only one element."];
      tags: Tags.t option [@ocaml.doc "Tags on the resources."]}
    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 ?cellArn =
      fun ?cellName ->
        fun ?cells ->
          fun ?parentReadinessScopes ->
            fun ?tags ->
              fun () ->
                { cellArn; cellName; cells; parentReadinessScopes; tags }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("cellArn", (Option.map x.cellArn ~f:Zz__stringMax256.to_value));
        ("cellName",
          (Option.map x.cellName ~f:Zz__stringMax64PatternAAZAZ09Z.to_value));
        ("cells", (Option.map x.cells ~f:Zz__listOf__string.to_value));
        ("parentReadinessScopes",
          (Option.map x.parentReadinessScopes ~f:Zz__listOf__string.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let parentReadinessScopes =
        (Option.map ~f:Zz__listOf__string.of_xml)
          (Xml.child xml_arg0 "parentReadinessScopes") in
      let cells =
        (Option.map ~f:Zz__listOf__string.of_xml)
          (Xml.child xml_arg0 "cells") in
      let cellName =
        (Option.map ~f:Zz__stringMax64PatternAAZAZ09Z.of_xml)
          (Xml.child xml_arg0 "cellName") in
      let cellArn =
        (Option.map ~f:Zz__stringMax256.of_xml)
          (Xml.child xml_arg0 "cellArn") in
      make ?tags ?parentReadinessScopes ?cells ?cellName ?cellArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in
      let parentReadinessScopes =
        field_map json__ "ParentReadinessScopes" Zz__listOf__string.of_json in
      let cells = field_map json__ "Cells" Zz__listOf__string.of_json in
      let cellName =
        field_map json__ "CellName" Zz__stringMax64PatternAAZAZ09Z.of_json in
      let cellArn = field_map json__ "CellArn" Zz__stringMax256.of_json in
      make ?tags ?parentReadinessScopes ?cells ?cellName ?cellArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets information about a cell including cell name, cell Amazon Resource Name (ARN), ARNs of nested cells for this cell, and a list of those cell ARNs with their associated recovery group ARNs."]
module GetCellRequest =
  struct
    type nonrec t =
      {
      cellName: Zz__string.t [@ocaml.doc "The name of the cell."]}
    let context_ = "GetCellRequest"
    let make ~cellName = fun () -> { cellName }
    let to_value x =
      structure_to_value
        [("cellName", (Some (Zz__string.to_value x.cellName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let cellName =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "cellName") in
      make ~cellName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let cellName = field_map_exn json__ "CellName" Zz__string.of_json in
      make ~cellName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets information about a cell including cell name, cell Amazon Resource Name (ARN), ARNs of nested cells for this cell, and a list of those cell ARNs with their associated recovery group ARNs."]
module GetCellReadinessSummaryResponse =
  struct
    type nonrec t =
      {
      nextToken: Zz__string.t option
        [@ocaml.doc
          "The token that identifies which batch of results you want to see."];
      readiness: Readiness.t option
        [@ocaml.doc "The readiness at a cell level."];
      readinessChecks: Zz__listOfReadinessCheckSummary.t option
        [@ocaml.doc
          "Summaries for the readiness checks that make up the cell."]}
    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 ?readiness ->
        fun ?readinessChecks ->
          fun () -> { nextToken; readiness; readinessChecks }
    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__string.to_value));
        ("readiness", (Option.map x.readiness ~f:Readiness.to_value));
        ("readinessChecks",
          (Option.map x.readinessChecks
             ~f:Zz__listOfReadinessCheckSummary.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let readinessChecks =
        (Option.map ~f:Zz__listOfReadinessCheckSummary.of_xml)
          (Xml.child xml_arg0 "readinessChecks") in
      let readiness =
        (Option.map ~f:Readiness.of_xml) (Xml.child xml_arg0 "readiness") in
      let nextToken =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "nextToken") in
      make ?readinessChecks ?readiness ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let readinessChecks =
        field_map json__ "ReadinessChecks"
          Zz__listOfReadinessCheckSummary.of_json in
      let readiness = field_map json__ "Readiness" Readiness.of_json in
      let nextToken = field_map json__ "NextToken" Zz__string.of_json in
      make ?readinessChecks ?readiness ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets readiness for a cell. Aggregates the readiness of all the resources that are associated with the cell into a single value."]
module GetCellReadinessSummaryRequest =
  struct
    type nonrec t =
      {
      cellName: Zz__string.t [@ocaml.doc "The name of the cell."];
      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_ = "GetCellReadinessSummaryRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~cellName -> fun () -> { maxResults; nextToken; cellName }
    let to_value x =
      structure_to_value
        [("cellName", (Some (Zz__string.to_value x.cellName)));
        ("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 cellName =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "cellName") in
      make ?nextToken ?maxResults ~cellName ()
    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 cellName = field_map_exn json__ "CellName" Zz__string.of_json in
      make ?nextToken ?maxResults ~cellName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets readiness for a cell. Aggregates the readiness of all the resources that are associated with the cell into a single value."]
module GetArchitectureRecommendationsResponse =
  struct
    type nonrec t =
      {
      lastAuditTimestamp: LastAuditTimestamp.t option
        [@ocaml.doc
          "The time that a recovery group was last assessed for recommendations, in UTC ISO-8601 format."];
      nextToken: Zz__string.t option
        [@ocaml.doc
          "The token that identifies which batch of results you want to see."];
      recommendations: Zz__listOfRecommendation.t option
        [@ocaml.doc
          "A list of the recommendations for the customer's application."]}
    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 ?lastAuditTimestamp =
      fun ?nextToken ->
        fun ?recommendations ->
          fun () -> { lastAuditTimestamp; nextToken; recommendations }
    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
        [("lastAuditTimestamp",
           (Option.map x.lastAuditTimestamp ~f:LastAuditTimestamp.to_value));
        ("nextToken", (Option.map x.nextToken ~f:Zz__string.to_value));
        ("recommendations",
          (Option.map x.recommendations ~f:Zz__listOfRecommendation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let recommendations =
        (Option.map ~f:Zz__listOfRecommendation.of_xml)
          (Xml.child xml_arg0 "recommendations") in
      let nextToken =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "nextToken") in
      let lastAuditTimestamp =
        (Option.map ~f:LastAuditTimestamp.of_xml)
          (Xml.child xml_arg0 "lastAuditTimestamp") in
      make ?recommendations ?nextToken ?lastAuditTimestamp ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let recommendations =
        field_map json__ "Recommendations" Zz__listOfRecommendation.of_json in
      let nextToken = field_map json__ "NextToken" Zz__string.of_json in
      let lastAuditTimestamp =
        field_map json__ "LastAuditTimestamp" LastAuditTimestamp.of_json in
      make ?recommendations ?nextToken ?lastAuditTimestamp ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets recommendations about architecture designs for improving resiliency for an application, based on a recovery group."]
module GetArchitectureRecommendationsRequest =
  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."];
      recoveryGroupName: Zz__string.t
        [@ocaml.doc "The name of a recovery group."]}
    let context_ = "GetArchitectureRecommendationsRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~recoveryGroupName ->
          fun () -> { maxResults; nextToken; recoveryGroupName }
    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));
        ("recoveryGroupName",
          (Some (Zz__string.to_value x.recoveryGroupName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let recoveryGroupName =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "recoveryGroupName") 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 ~recoveryGroupName ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let recoveryGroupName =
        field_map_exn json__ "RecoveryGroupName" 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 ~recoveryGroupName ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets recommendations about architecture designs for improving resiliency for an application, based on a recovery group."]
module DeleteResourceSetRequest =
  struct
    type nonrec t =
      {
      resourceSetName: Zz__string.t [@ocaml.doc "Name of a resource set."]}
    let context_ = "DeleteResourceSetRequest"
    let make ~resourceSetName = fun () -> { resourceSetName }
    let to_value x =
      structure_to_value
        [("resourceSetName", (Some (Zz__string.to_value x.resourceSetName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceSetName =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceSetName") in
      make ~resourceSetName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceSetName =
        field_map_exn json__ "ResourceSetName" Zz__string.of_json in
      make ~resourceSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes a resource set."]
module DeleteRecoveryGroupRequest =
  struct
    type nonrec t =
      {
      recoveryGroupName: Zz__string.t
        [@ocaml.doc "The name of a recovery group."]}
    let context_ = "DeleteRecoveryGroupRequest"
    let make ~recoveryGroupName = fun () -> { recoveryGroupName }
    let to_value x =
      structure_to_value
        [("recoveryGroupName",
           (Some (Zz__string.to_value x.recoveryGroupName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let recoveryGroupName =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "recoveryGroupName") in
      make ~recoveryGroupName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let recoveryGroupName =
        field_map_exn json__ "RecoveryGroupName" Zz__string.of_json in
      make ~recoveryGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes a recovery group."]
module DeleteReadinessCheckRequest =
  struct
    type nonrec t =
      {
      readinessCheckName: Zz__string.t
        [@ocaml.doc "Name of a readiness check."]}
    let context_ = "DeleteReadinessCheckRequest"
    let make ~readinessCheckName = fun () -> { readinessCheckName }
    let to_value x =
      structure_to_value
        [("readinessCheckName",
           (Some (Zz__string.to_value x.readinessCheckName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let readinessCheckName =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "readinessCheckName") in
      make ~readinessCheckName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let readinessCheckName =
        field_map_exn json__ "ReadinessCheckName" Zz__string.of_json in
      make ~readinessCheckName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes a readiness check."]
module DeleteCrossAccountAuthorizationResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let 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 cross account readiness authorization."]
module DeleteCrossAccountAuthorizationRequest =
  struct
    type nonrec t =
      {
      crossAccountAuthorization: Zz__string.t
        [@ocaml.doc "The cross-account authorization."]}
    let context_ = "DeleteCrossAccountAuthorizationRequest"
    let make ~crossAccountAuthorization =
      fun () -> { crossAccountAuthorization }
    let to_value x =
      structure_to_value
        [("crossAccountAuthorization",
           (Some (Zz__string.to_value x.crossAccountAuthorization)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let crossAccountAuthorization =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "crossAccountAuthorization") in
      make ~crossAccountAuthorization ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let crossAccountAuthorization =
        field_map_exn json__ "CrossAccountAuthorization" Zz__string.of_json in
      make ~crossAccountAuthorization ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes cross account readiness authorization."]
module DeleteCellRequest =
  struct
    type nonrec t =
      {
      cellName: Zz__string.t [@ocaml.doc "The name of the cell."]}
    let context_ = "DeleteCellRequest"
    let make ~cellName = fun () -> { cellName }
    let to_value x =
      structure_to_value
        [("cellName", (Some (Zz__string.to_value x.cellName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let cellName =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "cellName") in
      make ~cellName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let cellName = field_map_exn json__ "CellName" Zz__string.of_json in
      make ~cellName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Delete a cell. When successful, the response code is 204, with no response body."]
module CreateResourceSetResponse =
  struct
    type nonrec t =
      {
      resourceSetArn: Zz__stringMax256.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) for the resource set."];
      resourceSetName: Zz__stringMax64PatternAAZAZ09Z.t option
        [@ocaml.doc "The name of the resource set."];
      resourceSetType: Zz__stringPatternAWSAZaZ09AZaZ09.t option
        [@ocaml.doc
          "The resource type of the resources in the resource set. Enter one of the following values for resource type: AWS::ApiGateway::Stage, AWS::ApiGatewayV2::Stage, AWS::AutoScaling::AutoScalingGroup, AWS::CloudWatch::Alarm, AWS::EC2::CustomerGateway, AWS::DynamoDB::Table, AWS::EC2::Volume, AWS::ElasticLoadBalancing::LoadBalancer, AWS::ElasticLoadBalancingV2::LoadBalancer, AWS::Lambda::Function, AWS::MSK::Cluster, AWS::RDS::DBCluster, AWS::Route53::HealthCheck, AWS::SQS::Queue, AWS::SNS::Topic, AWS::SNS::Subscription, AWS::EC2::VPC, AWS::EC2::VPNConnection, AWS::EC2::VPNGateway, AWS::Route53RecoveryReadiness::DNSTargetResource"];
      resources: Zz__listOfResource.t option
        [@ocaml.doc "A list of resource objects."];
      tags: Tags.t option }
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?resourceSetArn =
      fun ?resourceSetName ->
        fun ?resourceSetType ->
          fun ?resources ->
            fun ?tags ->
              fun () ->
                {
                  resourceSetArn;
                  resourceSetName;
                  resourceSetType;
                  resources;
                  tags
                }
    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)
      | "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)
      | "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))]
      | `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
        [("resourceSetArn",
           (Option.map x.resourceSetArn ~f:Zz__stringMax256.to_value));
        ("resourceSetName",
          (Option.map x.resourceSetName
             ~f:Zz__stringMax64PatternAAZAZ09Z.to_value));
        ("resourceSetType",
          (Option.map x.resourceSetType
             ~f:Zz__stringPatternAWSAZaZ09AZaZ09.to_value));
        ("resources",
          (Option.map x.resources ~f:Zz__listOfResource.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let resources =
        (Option.map ~f:Zz__listOfResource.of_xml)
          (Xml.child xml_arg0 "resources") in
      let resourceSetType =
        (Option.map ~f:Zz__stringPatternAWSAZaZ09AZaZ09.of_xml)
          (Xml.child xml_arg0 "resourceSetType") in
      let resourceSetName =
        (Option.map ~f:Zz__stringMax64PatternAAZAZ09Z.of_xml)
          (Xml.child xml_arg0 "resourceSetName") in
      let resourceSetArn =
        (Option.map ~f:Zz__stringMax256.of_xml)
          (Xml.child xml_arg0 "resourceSetArn") in
      make ?tags ?resources ?resourceSetType ?resourceSetName ?resourceSetArn
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in
      let resources = field_map json__ "Resources" Zz__listOfResource.of_json in
      let resourceSetType =
        field_map json__ "ResourceSetType"
          Zz__stringPatternAWSAZaZ09AZaZ09.of_json in
      let resourceSetName =
        field_map json__ "ResourceSetName"
          Zz__stringMax64PatternAAZAZ09Z.of_json in
      let resourceSetArn =
        field_map json__ "ResourceSetArn" Zz__stringMax256.of_json in
      make ?tags ?resources ?resourceSetType ?resourceSetName ?resourceSetArn
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a resource set. A resource set is a set of resources of one type that span multiple cells. You can associate a resource set with a readiness check to monitor the resources for failover readiness."]
module CreateResourceSetRequest =
  struct
    type nonrec t =
      {
      resourceSetName: Zz__string.t
        [@ocaml.doc "The name of the resource set to create."];
      resourceSetType: Zz__stringPatternAWSAZaZ09AZaZ09.t
        [@ocaml.doc
          "The resource type of the resources in the resource set. Enter one of the following values for resource type: AWS::ApiGateway::Stage, AWS::ApiGatewayV2::Stage, AWS::AutoScaling::AutoScalingGroup, AWS::CloudWatch::Alarm, AWS::EC2::CustomerGateway, AWS::DynamoDB::Table, AWS::EC2::Volume, AWS::ElasticLoadBalancing::LoadBalancer, AWS::ElasticLoadBalancingV2::LoadBalancer, AWS::Lambda::Function, AWS::MSK::Cluster, AWS::RDS::DBCluster, AWS::Route53::HealthCheck, AWS::SQS::Queue, AWS::SNS::Topic, AWS::SNS::Subscription, AWS::EC2::VPC, AWS::EC2::VPNConnection, AWS::EC2::VPNGateway, AWS::Route53RecoveryReadiness::DNSTargetResource"];
      resources: Zz__listOfResource.t
        [@ocaml.doc "A list of resource objects in the resource set."];
      tags: Tags.t option
        [@ocaml.doc
          "A tag to associate with the parameters for a resource set."]}
    let context_ = "CreateResourceSetRequest"
    let make ?tags =
      fun ~resourceSetName ->
        fun ~resourceSetType ->
          fun ~resources ->
            fun () -> { tags; resourceSetName; resourceSetType; resources }
    let to_value x =
      structure_to_value
        [("resourceSetName", (Some (Zz__string.to_value x.resourceSetName)));
        ("resourceSetType",
          (Some (Zz__stringPatternAWSAZaZ09AZaZ09.to_value x.resourceSetType)));
        ("resources", (Some (Zz__listOfResource.to_value x.resources)));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let resources =
        Zz__listOfResource.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resources") in
      let resourceSetType =
        Zz__stringPatternAWSAZaZ09AZaZ09.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceSetType") in
      let resourceSetName =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceSetName") in
      make ?tags ~resources ~resourceSetType ~resourceSetName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in
      let resources =
        field_map_exn json__ "Resources" Zz__listOfResource.of_json in
      let resourceSetType =
        field_map_exn json__ "ResourceSetType"
          Zz__stringPatternAWSAZaZ09AZaZ09.of_json in
      let resourceSetName =
        field_map_exn json__ "ResourceSetName" Zz__string.of_json in
      make ?tags ~resources ~resourceSetType ~resourceSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a resource set. A resource set is a set of resources of one type that span multiple cells. You can associate a resource set with a readiness check to monitor the resources for failover readiness."]
module CreateRecoveryGroupResponse =
  struct
    type nonrec t =
      {
      cells: Zz__listOf__string.t option
        [@ocaml.doc "A list of a cell's Amazon Resource Names (ARNs)."];
      recoveryGroupArn: Zz__stringMax256.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) for the recovery group."];
      recoveryGroupName: Zz__stringMax64PatternAAZAZ09Z.t option
        [@ocaml.doc "The name of the recovery group."];
      tags: Tags.t option
        [@ocaml.doc "The tags associated with the recovery group."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?cells =
      fun ?recoveryGroupArn ->
        fun ?recoveryGroupName ->
          fun ?tags ->
            fun () -> { cells; recoveryGroupArn; recoveryGroupName; tags }
    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)
      | "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)
      | "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))]
      | `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
        [("cells", (Option.map x.cells ~f:Zz__listOf__string.to_value));
        ("recoveryGroupArn",
          (Option.map x.recoveryGroupArn ~f:Zz__stringMax256.to_value));
        ("recoveryGroupName",
          (Option.map x.recoveryGroupName
             ~f:Zz__stringMax64PatternAAZAZ09Z.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let recoveryGroupName =
        (Option.map ~f:Zz__stringMax64PatternAAZAZ09Z.of_xml)
          (Xml.child xml_arg0 "recoveryGroupName") in
      let recoveryGroupArn =
        (Option.map ~f:Zz__stringMax256.of_xml)
          (Xml.child xml_arg0 "recoveryGroupArn") in
      let cells =
        (Option.map ~f:Zz__listOf__string.of_xml)
          (Xml.child xml_arg0 "cells") in
      make ?tags ?recoveryGroupName ?recoveryGroupArn ?cells ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in
      let recoveryGroupName =
        field_map json__ "RecoveryGroupName"
          Zz__stringMax64PatternAAZAZ09Z.of_json in
      let recoveryGroupArn =
        field_map json__ "RecoveryGroupArn" Zz__stringMax256.of_json in
      let cells = field_map json__ "Cells" Zz__listOf__string.of_json in
      make ?tags ?recoveryGroupName ?recoveryGroupArn ?cells ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a recovery group in an account. A recovery group corresponds to an application and includes a list of the cells that make up the application."]
module CreateRecoveryGroupRequest =
  struct
    type nonrec t =
      {
      cells: Zz__listOf__string.t option
        [@ocaml.doc
          "A list of the cell Amazon Resource Names (ARNs) in the recovery group."];
      recoveryGroupName: Zz__string.t
        [@ocaml.doc "The name of the recovery group to create."];
      tags: Tags.t option }
    let context_ = "CreateRecoveryGroupRequest"
    let make ?cells =
      fun ?tags ->
        fun ~recoveryGroupName ->
          fun () -> { cells; tags; recoveryGroupName }
    let to_value x =
      structure_to_value
        [("cells", (Option.map x.cells ~f:Zz__listOf__string.to_value));
        ("recoveryGroupName",
          (Some (Zz__string.to_value x.recoveryGroupName)));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let recoveryGroupName =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "recoveryGroupName") in
      let cells =
        (Option.map ~f:Zz__listOf__string.of_xml)
          (Xml.child xml_arg0 "cells") in
      make ?tags ~recoveryGroupName ?cells ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in
      let recoveryGroupName =
        field_map_exn json__ "RecoveryGroupName" Zz__string.of_json in
      let cells = field_map json__ "Cells" Zz__listOf__string.of_json in
      make ?tags ~recoveryGroupName ?cells ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a recovery group in an account. A recovery group corresponds to an application and includes a list of the cells that make up the application."]
module CreateReadinessCheckResponse =
  struct
    type nonrec t =
      {
      readinessCheckArn: Zz__stringMax256.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) associated with a readiness check."];
      readinessCheckName: Zz__stringMax64PatternAAZAZ09Z.t option
        [@ocaml.doc "Name of a readiness check."];
      resourceSet: Zz__stringMax64PatternAAZAZ09Z.t option
        [@ocaml.doc "Name of the resource set to be checked."];
      tags: Tags.t option }
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?readinessCheckArn =
      fun ?readinessCheckName ->
        fun ?resourceSet ->
          fun ?tags ->
            fun () ->
              { readinessCheckArn; readinessCheckName; resourceSet; tags }
    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)
      | "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)
      | "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))]
      | `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
        [("readinessCheckArn",
           (Option.map x.readinessCheckArn ~f:Zz__stringMax256.to_value));
        ("readinessCheckName",
          (Option.map x.readinessCheckName
             ~f:Zz__stringMax64PatternAAZAZ09Z.to_value));
        ("resourceSet",
          (Option.map x.resourceSet
             ~f:Zz__stringMax64PatternAAZAZ09Z.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let resourceSet =
        (Option.map ~f:Zz__stringMax64PatternAAZAZ09Z.of_xml)
          (Xml.child xml_arg0 "resourceSet") in
      let readinessCheckName =
        (Option.map ~f:Zz__stringMax64PatternAAZAZ09Z.of_xml)
          (Xml.child xml_arg0 "readinessCheckName") in
      let readinessCheckArn =
        (Option.map ~f:Zz__stringMax256.of_xml)
          (Xml.child xml_arg0 "readinessCheckArn") in
      make ?tags ?resourceSet ?readinessCheckName ?readinessCheckArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in
      let resourceSet =
        field_map json__ "ResourceSet" Zz__stringMax64PatternAAZAZ09Z.of_json in
      let readinessCheckName =
        field_map json__ "ReadinessCheckName"
          Zz__stringMax64PatternAAZAZ09Z.of_json in
      let readinessCheckArn =
        field_map json__ "ReadinessCheckArn" Zz__stringMax256.of_json in
      make ?tags ?resourceSet ?readinessCheckName ?readinessCheckArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a readiness check in an account. A readiness check monitors a resource set in your application, such as a set of Amazon Aurora instances, that Application Recovery Controller is auditing recovery readiness for. The audits run once every minute on every resource that's associated with a readiness check."]
module CreateReadinessCheckRequest =
  struct
    type nonrec t =
      {
      readinessCheckName: Zz__string.t
        [@ocaml.doc "The name of the readiness check to create."];
      resourceSetName: Zz__string.t
        [@ocaml.doc "The name of the resource set to check."];
      tags: Tags.t option }
    let context_ = "CreateReadinessCheckRequest"
    let make ?tags =
      fun ~readinessCheckName ->
        fun ~resourceSetName ->
          fun () -> { tags; readinessCheckName; resourceSetName }
    let to_value x =
      structure_to_value
        [("readinessCheckName",
           (Some (Zz__string.to_value x.readinessCheckName)));
        ("resourceSetName", (Some (Zz__string.to_value x.resourceSetName)));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let resourceSetName =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceSetName") in
      let readinessCheckName =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "readinessCheckName") in
      make ?tags ~resourceSetName ~readinessCheckName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in
      let resourceSetName =
        field_map_exn json__ "ResourceSetName" Zz__string.of_json in
      let readinessCheckName =
        field_map_exn json__ "ReadinessCheckName" Zz__string.of_json in
      make ?tags ~resourceSetName ~readinessCheckName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a readiness check in an account. A readiness check monitors a resource set in your application, such as a set of Amazon Aurora instances, that Application Recovery Controller is auditing recovery readiness for. The audits run once every minute on every resource that's associated with a readiness check."]
module CreateCrossAccountAuthorizationResponse =
  struct
    type nonrec t =
      {
      crossAccountAuthorization: CrossAccountAuthorization.t option
        [@ocaml.doc "The cross-account authorization."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?crossAccountAuthorization =
      fun () -> { crossAccountAuthorization }
    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)
      | "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)
      | "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))]
      | `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
        [("crossAccountAuthorization",
           (Option.map x.crossAccountAuthorization
              ~f:CrossAccountAuthorization.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let crossAccountAuthorization =
        (Option.map ~f:CrossAccountAuthorization.of_xml)
          (Xml.child xml_arg0 "crossAccountAuthorization") in
      make ?crossAccountAuthorization ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let crossAccountAuthorization =
        field_map json__ "CrossAccountAuthorization"
          CrossAccountAuthorization.of_json in
      make ?crossAccountAuthorization ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a cross-account readiness authorization. This lets you authorize another account to work with Route 53 Application Recovery Controller, for example, to check the readiness status of resources in a separate account."]
module CreateCrossAccountAuthorizationRequest =
  struct
    type nonrec t =
      {
      crossAccountAuthorization: CrossAccountAuthorization.t
        [@ocaml.doc "The cross-account authorization."]}
    let context_ = "CreateCrossAccountAuthorizationRequest"
    let make ~crossAccountAuthorization =
      fun () -> { crossAccountAuthorization }
    let to_value x =
      structure_to_value
        [("crossAccountAuthorization",
           (Some
              (CrossAccountAuthorization.to_value x.crossAccountAuthorization)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let crossAccountAuthorization =
        CrossAccountAuthorization.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "crossAccountAuthorization") in
      make ~crossAccountAuthorization ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let crossAccountAuthorization =
        field_map_exn json__ "CrossAccountAuthorization"
          CrossAccountAuthorization.of_json in
      make ~crossAccountAuthorization ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a cross-account readiness authorization. This lets you authorize another account to work with Route 53 Application Recovery Controller, for example, to check the readiness status of resources in a separate account."]
module CreateCellResponse =
  struct
    type nonrec t =
      {
      cellArn: Zz__stringMax256.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) for the cell."];
      cellName: Zz__stringMax64PatternAAZAZ09Z.t option
        [@ocaml.doc "The name of the cell."];
      cells: Zz__listOf__string.t option [@ocaml.doc "A list of cell ARNs."];
      parentReadinessScopes: Zz__listOf__string.t option
        [@ocaml.doc
          "The readiness scope for the cell, which can be a cell Amazon Resource Name (ARN) or a recovery group ARN. This is a list but currently can have only one element."];
      tags: Tags.t option [@ocaml.doc "Tags on the resources."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?cellArn =
      fun ?cellName ->
        fun ?cells ->
          fun ?parentReadinessScopes ->
            fun ?tags ->
              fun () ->
                { cellArn; cellName; cells; parentReadinessScopes; tags }
    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)
      | "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)
      | "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))]
      | `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
        [("cellArn", (Option.map x.cellArn ~f:Zz__stringMax256.to_value));
        ("cellName",
          (Option.map x.cellName ~f:Zz__stringMax64PatternAAZAZ09Z.to_value));
        ("cells", (Option.map x.cells ~f:Zz__listOf__string.to_value));
        ("parentReadinessScopes",
          (Option.map x.parentReadinessScopes ~f:Zz__listOf__string.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let parentReadinessScopes =
        (Option.map ~f:Zz__listOf__string.of_xml)
          (Xml.child xml_arg0 "parentReadinessScopes") in
      let cells =
        (Option.map ~f:Zz__listOf__string.of_xml)
          (Xml.child xml_arg0 "cells") in
      let cellName =
        (Option.map ~f:Zz__stringMax64PatternAAZAZ09Z.of_xml)
          (Xml.child xml_arg0 "cellName") in
      let cellArn =
        (Option.map ~f:Zz__stringMax256.of_xml)
          (Xml.child xml_arg0 "cellArn") in
      make ?tags ?parentReadinessScopes ?cells ?cellName ?cellArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in
      let parentReadinessScopes =
        field_map json__ "ParentReadinessScopes" Zz__listOf__string.of_json in
      let cells = field_map json__ "Cells" Zz__listOf__string.of_json in
      let cellName =
        field_map json__ "CellName" Zz__stringMax64PatternAAZAZ09Z.of_json in
      let cellArn = field_map json__ "CellArn" Zz__stringMax256.of_json in
      make ?tags ?parentReadinessScopes ?cells ?cellName ?cellArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a cell in an account."]
module CreateCellRequest =
  struct
    type nonrec t =
      {
      cellName: Zz__string.t [@ocaml.doc "The name of the cell to create."];
      cells: Zz__listOf__string.t option
        [@ocaml.doc
          "A list of cell Amazon Resource Names (ARNs) contained within this cell, for use in nested cells. For example, Availability Zones within specific Amazon Web Services Regions."];
      tags: Tags.t option }
    let context_ = "CreateCellRequest"
    let make ?cells =
      fun ?tags -> fun ~cellName -> fun () -> { cells; tags; cellName }
    let to_value x =
      structure_to_value
        [("cellName", (Some (Zz__string.to_value x.cellName)));
        ("cells", (Option.map x.cells ~f:Zz__listOf__string.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let cells =
        (Option.map ~f:Zz__listOf__string.of_xml)
          (Xml.child xml_arg0 "cells") in
      let cellName =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "cellName") in
      make ?tags ?cells ~cellName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in
      let cells = field_map json__ "Cells" Zz__listOf__string.of_json in
      let cellName = field_map_exn json__ "CellName" Zz__string.of_json in
      make ?tags ?cells ~cellName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a cell in an account."]