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.route53resolver
let apiVersion = "2018-04-01"
let endpointPrefix = "route53resolver"
let serviceFullName = "Amazon Route 53 Resolver"
let signatureVersion = "v4"
let protocol = "json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let serviceAbbreviation = "Route53Resolver"
let targetPrefix = "Route53Resolver"
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 Ip =
  struct
    type nonrec t = string
    let context_ = "Ip"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:36) >>=
             (fun () -> check_string_min i ~min:7));
        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:"Ip" j
    let to_json = simple_to_json to_value
  end
module Ipv6 =
  struct
    type nonrec t = string
    let context_ = "Ipv6"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:39) >>=
             (fun () -> check_string_min i ~min:7));
        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:"Ipv6" j
    let to_json = simple_to_json to_value
  end
module Port =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:65535) >>=
             (fun () -> check_int_min i ~min:0));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string (string_of_xml ~kind:"an integer for Port" 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 Protocol =
  struct
    type nonrec t =
      | DoH 
      | Do53 
      | DoH_FIPS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DoH -> "DoH"
      | Do53 -> "Do53"
      | DoH_FIPS -> "DoH-FIPS"
      | Non_static_id s -> s
    let of_string =
      function
      | "DoH" -> DoH
      | "Do53" -> Do53
      | "DoH-FIPS" -> DoH_FIPS
      | 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 Protocol" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Protocol" j)
    let to_json = simple_to_json to_value
  end
module ServerNameIndication =
  struct
    type nonrec t = string
    let context_ = "ServerNameIndication"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ServerNameIndication" j
    let to_json = simple_to_json to_value
  end
module TargetAddress =
  struct
    type nonrec t =
      {
      ip: Ip.t option
        [@ocaml.doc
          "One IPv4 address that you want to forward DNS queries to."];
      port: Port.t option
        [@ocaml.doc
          "The port at Ip that you want to forward DNS queries to."];
      ipv6: Ipv6.t option
        [@ocaml.doc
          "One IPv6 address that you want to forward DNS queries to."];
      protocol: Protocol.t option
        [@ocaml.doc
          "The protocols for the target address. The protocol you choose needs to be supported by the outbound endpoint of the Resolver rule."];
      serverNameIndication: ServerNameIndication.t option
        [@ocaml.doc
          "The Server Name Indication of the DoH server that you want to forward queries to. This is only used if the Protocol of the TargetAddress is DoH."]}
    let make ?ip =
      fun ?port ->
        fun ?ipv6 ->
          fun ?protocol ->
            fun ?serverNameIndication ->
              fun () -> { ip; port; ipv6; protocol; serverNameIndication }
    let to_value x =
      structure_to_value
        [("Ip", (Option.map x.ip ~f:Ip.to_value));
        ("Port", (Option.map x.port ~f:Port.to_value));
        ("Ipv6", (Option.map x.ipv6 ~f:Ipv6.to_value));
        ("Protocol", (Option.map x.protocol ~f:Protocol.to_value));
        ("ServerNameIndication",
          (Option.map x.serverNameIndication ~f:ServerNameIndication.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let serverNameIndication =
        (Option.map ~f:ServerNameIndication.of_xml)
          (Xml.child xml_arg0 "ServerNameIndication") in
      let protocol =
        (Option.map ~f:Protocol.of_xml) (Xml.child xml_arg0 "Protocol") in
      let ipv6 = (Option.map ~f:Ipv6.of_xml) (Xml.child xml_arg0 "Ipv6") in
      let port = (Option.map ~f:Port.of_xml) (Xml.child xml_arg0 "Port") in
      let ip = (Option.map ~f:Ip.of_xml) (Xml.child xml_arg0 "Ip") in
      make ?serverNameIndication ?protocol ?ipv6 ?port ?ip ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let serverNameIndication =
        field_map json__ "ServerNameIndication" ServerNameIndication.of_json in
      let protocol = field_map json__ "Protocol" Protocol.of_json in
      let ipv6 = field_map json__ "Ipv6" Ipv6.of_json in
      let port = field_map json__ "Port" Port.of_json in
      let ip = field_map json__ "Ip" Ip.of_json in
      make ?serverNameIndication ?protocol ?ipv6 ?port ?ip ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "In a CreateResolverRule request, an array of the IPs that you want to forward DNS queries to."]
module FilterValue =
  struct
    type nonrec t = string
    let context_ = "FilterValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:600) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"FilterValue" j
    let to_json = simple_to_json to_value
  end
module ResourceId =
  struct
    type nonrec t = string
    let context_ = "ResourceId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:64) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ResourceId" j
    let to_json = simple_to_json to_value
  end
module TagKey =
  struct
    type nonrec t = string
    let context_ = "TagKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagKey" j
    let to_json = simple_to_json to_value
  end
module TagValue =
  struct
    type nonrec t = string
    let context_ = "TagValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagValue" j
    let to_json = simple_to_json to_value
  end
module AccountId =
  struct
    type nonrec t = string
    let context_ = "AccountId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:32) >>=
             (fun () -> check_string_min i ~min:12));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AccountId" j
    let to_json = simple_to_json to_value
  end
module Arn =
  struct
    type nonrec t = string
    let context_ = "Arn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Arn" j
    let to_json = simple_to_json to_value
  end
module CreatorRequestId =
  struct
    type nonrec t = string
    let context_ = "CreatorRequestId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"CreatorRequestId" j
    let to_json = simple_to_json to_value
  end
module DelegationRecord =
  struct
    type nonrec t = string
    let context_ = "DelegationRecord"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DelegationRecord" j
    let to_json = simple_to_json to_value
  end
module DomainName =
  struct
    type nonrec t = string
    let context_ = "DomainName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DomainName" j
    let to_json = simple_to_json to_value
  end
module Name =
  struct
    type nonrec t = string
    let context_ = "Name"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:64) >>=
             (fun () ->
                check_pattern i ~pattern:"(?!^[0-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:"Name" j
    let to_json = simple_to_json to_value
  end
module ResolverRuleStatus =
  struct
    type nonrec t =
      | COMPLETE 
      | DELETING 
      | UPDATING 
      | FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | COMPLETE -> "COMPLETE"
      | DELETING -> "DELETING"
      | UPDATING -> "UPDATING"
      | FAILED -> "FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "COMPLETE" -> COMPLETE
      | "DELETING" -> DELETING
      | "UPDATING" -> UPDATING
      | "FAILED" -> FAILED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration ResolverRuleStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ResolverRuleStatus" j)
    let to_json = simple_to_json to_value
  end
module Rfc3339TimeString =
  struct
    type nonrec t = string
    let context_ = "Rfc3339TimeString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:40) >>=
             (fun () -> check_string_min i ~min:20));
        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:"Rfc3339TimeString" j
    let to_json = simple_to_json to_value
  end
module RuleTypeOption =
  struct
    type nonrec t =
      | FORWARD 
      | SYSTEM 
      | RECURSIVE 
      | DELEGATE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | FORWARD -> "FORWARD"
      | SYSTEM -> "SYSTEM"
      | RECURSIVE -> "RECURSIVE"
      | DELEGATE -> "DELEGATE"
      | Non_static_id s -> s
    let of_string =
      function
      | "FORWARD" -> FORWARD
      | "SYSTEM" -> SYSTEM
      | "RECURSIVE" -> RECURSIVE
      | "DELEGATE" -> DELEGATE
      | 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 RuleTypeOption" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RuleTypeOption" j)
    let to_json = simple_to_json to_value
  end
module ShareStatus =
  struct
    type nonrec t =
      | NOT_SHARED 
      | SHARED_WITH_ME 
      | SHARED_BY_ME 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | NOT_SHARED -> "NOT_SHARED"
      | SHARED_WITH_ME -> "SHARED_WITH_ME"
      | SHARED_BY_ME -> "SHARED_BY_ME"
      | Non_static_id s -> s
    let of_string =
      function
      | "NOT_SHARED" -> NOT_SHARED
      | "SHARED_WITH_ME" -> SHARED_WITH_ME
      | "SHARED_BY_ME" -> SHARED_BY_ME
      | 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 ShareStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ShareStatus" j)
    let to_json = simple_to_json to_value
  end
module StatusMessage =
  struct
    type nonrec t = string
    let context_ = "StatusMessage"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:255); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"StatusMessage" j
    let to_json = simple_to_json to_value
  end
module TargetList =
  struct
    type nonrec t = TargetAddress.t list
    let make i =
      let open Result in ok_or_failwith (check_list_min i ~min:1); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:TargetAddress.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:TargetAddress.of_xml)
    let of_json j =
      list_of_json ~kind:"TargetList" ~of_json:TargetAddress.of_json j
    let to_json v = composed_to_json to_value v
  end
module FilterName =
  struct
    type nonrec t = string
    let context_ = "FilterName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:64) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"FilterName" j
    let to_json = simple_to_json to_value
  end
module FilterValues =
  struct
    type nonrec t = FilterValue.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:FilterValue.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:FilterValue.of_xml)
    let of_json j =
      list_of_json ~kind:"FilterValues" ~of_json:FilterValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module ResolverRuleAssociationStatus =
  struct
    type nonrec t =
      | CREATING 
      | COMPLETE 
      | DELETING 
      | FAILED 
      | OVERRIDDEN 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATING -> "CREATING"
      | COMPLETE -> "COMPLETE"
      | DELETING -> "DELETING"
      | FAILED -> "FAILED"
      | OVERRIDDEN -> "OVERRIDDEN"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATING" -> CREATING
      | "COMPLETE" -> COMPLETE
      | "DELETING" -> DELETING
      | "FAILED" -> FAILED
      | "OVERRIDDEN" -> OVERRIDDEN
      | 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 ResolverRuleAssociationStatus"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ResolverRuleAssociationStatus" j)
    let to_json = simple_to_json to_value
  end
module Count =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string (string_of_xml ~kind:"an integer for Count" 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 DestinationArn =
  struct
    type nonrec t = string
    let context_ = "DestinationArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:600) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DestinationArn" j
    let to_json = simple_to_json to_value
  end
module ResolverQueryLogConfigName =
  struct
    type nonrec t = string
    let context_ = "ResolverQueryLogConfigName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"(?!^[0-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:"ResolverQueryLogConfigName" j
    let to_json = simple_to_json to_value
  end
module ResolverQueryLogConfigStatus =
  struct
    type nonrec t =
      | CREATING 
      | CREATED 
      | DELETING 
      | FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATING -> "CREATING"
      | CREATED -> "CREATED"
      | DELETING -> "DELETING"
      | FAILED -> "FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATING" -> CREATING
      | "CREATED" -> CREATED
      | "DELETING" -> DELETING
      | "FAILED" -> FAILED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration ResolverQueryLogConfigStatus"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ResolverQueryLogConfigStatus" j)
    let to_json = simple_to_json to_value
  end
module ResolverQueryLogConfigAssociationError =
  struct
    type nonrec t =
      | NONE 
      | DESTINATION_NOT_FOUND 
      | ACCESS_DENIED 
      | INTERNAL_SERVICE_ERROR 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | NONE -> "NONE"
      | DESTINATION_NOT_FOUND -> "DESTINATION_NOT_FOUND"
      | ACCESS_DENIED -> "ACCESS_DENIED"
      | INTERNAL_SERVICE_ERROR -> "INTERNAL_SERVICE_ERROR"
      | Non_static_id s -> s
    let of_string =
      function
      | "NONE" -> NONE
      | "DESTINATION_NOT_FOUND" -> DESTINATION_NOT_FOUND
      | "ACCESS_DENIED" -> ACCESS_DENIED
      | "INTERNAL_SERVICE_ERROR" -> INTERNAL_SERVICE_ERROR
      | 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 ResolverQueryLogConfigAssociationError"
           xml_arg0)
    let of_json j =
      of_string
        (string_of_json ~kind:"ResolverQueryLogConfigAssociationError" j)
    let to_json = simple_to_json to_value
  end
module ResolverQueryLogConfigAssociationErrorMessage =
  struct
    type nonrec t = string
    let context_ = "ResolverQueryLogConfigAssociationErrorMessage"
    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:"ResolverQueryLogConfigAssociationErrorMessage" j
    let to_json = simple_to_json to_value
  end
module ResolverQueryLogConfigAssociationStatus =
  struct
    type nonrec t =
      | CREATING 
      | ACTIVE 
      | ACTION_NEEDED 
      | DELETING 
      | FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATING -> "CREATING"
      | ACTIVE -> "ACTIVE"
      | ACTION_NEEDED -> "ACTION_NEEDED"
      | DELETING -> "DELETING"
      | FAILED -> "FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATING" -> CREATING
      | "ACTIVE" -> ACTIVE
      | "ACTION_NEEDED" -> ACTION_NEEDED
      | "DELETING" -> DELETING
      | "FAILED" -> FAILED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml
           ~kind:"enumeration ResolverQueryLogConfigAssociationStatus"
           xml_arg0)
    let of_json j =
      of_string
        (string_of_json ~kind:"ResolverQueryLogConfigAssociationStatus" j)
    let to_json = simple_to_json to_value
  end
module Dns64Enabled =
  struct
    type nonrec t = bool
    let make i = i
    let of_string = Bool.of_string
    let to_value x = `Boolean x
    let to_query v = to_query to_value v
    let to_header x = Bool.to_string x
    let of_xml xml_arg0 =
      Bool.of_string (string_of_xml ~kind:"a boolean" xml_arg0)
    let of_json = bool_of_json
    let to_json = simple_to_json to_value
  end
module IpAddressCount =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for IpAddressCount" 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 Ipv6InternetAccessEnabled =
  struct
    type nonrec t = bool
    let make i = i
    let of_string = Bool.of_string
    let to_value x = `Boolean x
    let to_query v = to_query to_value v
    let to_header x = Bool.to_string x
    let of_xml xml_arg0 =
      Bool.of_string (string_of_xml ~kind:"a boolean" xml_arg0)
    let of_json = bool_of_json
    let to_json = simple_to_json to_value
  end
module OutpostArn =
  struct
    type nonrec t = string
    let context_ = "OutpostArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:255) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^arn:aws([a-z-]+)?:outposts:[a-z\\d-]+:\\d{12}:outpost/op-[a-f0-9]{17}$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"OutpostArn" j
    let to_json = simple_to_json to_value
  end
module OutpostInstanceType =
  struct
    type nonrec t = string
    let context_ = "OutpostInstanceType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"OutpostInstanceType" j
    let to_json = simple_to_json to_value
  end
module ProtocolList =
  struct
    type nonrec t = Protocol.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:2) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Protocol.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:Protocol.of_xml)
    let of_json j =
      list_of_json ~kind:"ProtocolList" ~of_json:Protocol.of_json j
    let to_json v = composed_to_json to_value v
  end
module ResolverEndpointDirection =
  struct
    type nonrec t =
      | INBOUND 
      | OUTBOUND 
      | INBOUND_DELEGATION 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | INBOUND -> "INBOUND"
      | OUTBOUND -> "OUTBOUND"
      | INBOUND_DELEGATION -> "INBOUND_DELEGATION"
      | Non_static_id s -> s
    let of_string =
      function
      | "INBOUND" -> INBOUND
      | "OUTBOUND" -> OUTBOUND
      | "INBOUND_DELEGATION" -> INBOUND_DELEGATION
      | 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 ResolverEndpointDirection" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ResolverEndpointDirection" j)
    let to_json = simple_to_json to_value
  end
module ResolverEndpointStatus =
  struct
    type nonrec t =
      | CREATING 
      | OPERATIONAL 
      | UPDATING 
      | AUTO_RECOVERING 
      | ACTION_NEEDED 
      | DELETING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATING -> "CREATING"
      | OPERATIONAL -> "OPERATIONAL"
      | UPDATING -> "UPDATING"
      | AUTO_RECOVERING -> "AUTO_RECOVERING"
      | ACTION_NEEDED -> "ACTION_NEEDED"
      | DELETING -> "DELETING"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATING" -> CREATING
      | "OPERATIONAL" -> OPERATIONAL
      | "UPDATING" -> UPDATING
      | "AUTO_RECOVERING" -> AUTO_RECOVERING
      | "ACTION_NEEDED" -> ACTION_NEEDED
      | "DELETING" -> DELETING
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration ResolverEndpointStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ResolverEndpointStatus" j)
    let to_json = simple_to_json to_value
  end
module ResolverEndpointType =
  struct
    type nonrec t =
      | IPV6 
      | IPV4 
      | DUALSTACK 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | IPV6 -> "IPV6"
      | IPV4 -> "IPV4"
      | DUALSTACK -> "DUALSTACK"
      | Non_static_id s -> s
    let of_string =
      function
      | "IPV6" -> IPV6
      | "IPV4" -> IPV4
      | "DUALSTACK" -> DUALSTACK
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration ResolverEndpointType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ResolverEndpointType" j)
    let to_json = simple_to_json to_value
  end
module RniEnhancedMetricsEnabled =
  struct
    type nonrec t = bool
    let make i = i
    let of_string = Bool.of_string
    let to_value x = `Boolean x
    let to_query v = to_query to_value v
    let to_header x = Bool.to_string x
    let of_xml xml_arg0 =
      Bool.of_string (string_of_xml ~kind:"a boolean" xml_arg0)
    let of_json = bool_of_json
    let to_json = simple_to_json to_value
  end
module SecurityGroupIds =
  struct
    type nonrec t = ResourceId.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:ResourceId.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:ResourceId.of_xml)
    let of_json j =
      list_of_json ~kind:"SecurityGroupIds" ~of_json:ResourceId.of_json j
    let to_json v = composed_to_json to_value v
  end
module TargetNameServerMetricsEnabled =
  struct
    type nonrec t = bool
    let make i = i
    let of_string = Bool.of_string
    let to_value x = `Boolean x
    let to_query v = to_query to_value v
    let to_header x = Bool.to_string x
    let of_xml xml_arg0 =
      Bool.of_string (string_of_xml ~kind:"a boolean" xml_arg0)
    let of_json = bool_of_json
    let to_json = simple_to_json to_value
  end
module IpAddressStatus =
  struct
    type nonrec t =
      | CREATING 
      | FAILED_CREATION 
      | ATTACHING 
      | ATTACHED 
      | REMAP_DETACHING 
      | REMAP_ATTACHING 
      | DETACHING 
      | FAILED_RESOURCE_GONE 
      | DELETING 
      | DELETE_FAILED_FAS_EXPIRED 
      | UPDATING 
      | UPDATE_FAILED 
      | ISOLATED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATING -> "CREATING"
      | FAILED_CREATION -> "FAILED_CREATION"
      | ATTACHING -> "ATTACHING"
      | ATTACHED -> "ATTACHED"
      | REMAP_DETACHING -> "REMAP_DETACHING"
      | REMAP_ATTACHING -> "REMAP_ATTACHING"
      | DETACHING -> "DETACHING"
      | FAILED_RESOURCE_GONE -> "FAILED_RESOURCE_GONE"
      | DELETING -> "DELETING"
      | DELETE_FAILED_FAS_EXPIRED -> "DELETE_FAILED_FAS_EXPIRED"
      | UPDATING -> "UPDATING"
      | UPDATE_FAILED -> "UPDATE_FAILED"
      | ISOLATED -> "ISOLATED"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATING" -> CREATING
      | "FAILED_CREATION" -> FAILED_CREATION
      | "ATTACHING" -> ATTACHING
      | "ATTACHED" -> ATTACHED
      | "REMAP_DETACHING" -> REMAP_DETACHING
      | "REMAP_ATTACHING" -> REMAP_ATTACHING
      | "DETACHING" -> DETACHING
      | "FAILED_RESOURCE_GONE" -> FAILED_RESOURCE_GONE
      | "DELETING" -> DELETING
      | "DELETE_FAILED_FAS_EXPIRED" -> DELETE_FAILED_FAS_EXPIRED
      | "UPDATING" -> UPDATING
      | "UPDATE_FAILED" -> UPDATE_FAILED
      | "ISOLATED" -> ISOLATED
      | 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 IpAddressStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"IpAddressStatus" j)
    let to_json = simple_to_json to_value
  end
module SubnetId =
  struct
    type nonrec t = string
    let context_ = "SubnetId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:32) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SubnetId" j
    let to_json = simple_to_json to_value
  end
module ResolverDNSSECValidationStatus =
  struct
    type nonrec t =
      | ENABLING 
      | ENABLED 
      | DISABLING 
      | DISABLED 
      | UPDATING_TO_USE_LOCAL_RESOURCE_SETTING 
      | USE_LOCAL_RESOURCE_SETTING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ENABLING -> "ENABLING"
      | ENABLED -> "ENABLED"
      | DISABLING -> "DISABLING"
      | DISABLED -> "DISABLED"
      | UPDATING_TO_USE_LOCAL_RESOURCE_SETTING ->
          "UPDATING_TO_USE_LOCAL_RESOURCE_SETTING"
      | USE_LOCAL_RESOURCE_SETTING -> "USE_LOCAL_RESOURCE_SETTING"
      | Non_static_id s -> s
    let of_string =
      function
      | "ENABLING" -> ENABLING
      | "ENABLED" -> ENABLED
      | "DISABLING" -> DISABLING
      | "DISABLED" -> DISABLED
      | "UPDATING_TO_USE_LOCAL_RESOURCE_SETTING" ->
          UPDATING_TO_USE_LOCAL_RESOURCE_SETTING
      | "USE_LOCAL_RESOURCE_SETTING" -> USE_LOCAL_RESOURCE_SETTING
      | 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 ResolverDNSSECValidationStatus"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ResolverDNSSECValidationStatus" j)
    let to_json = simple_to_json to_value
  end
module ResolverAutodefinedReverseStatus =
  struct
    type nonrec t =
      | ENABLING 
      | ENABLED 
      | DISABLING 
      | DISABLED 
      | UPDATING_TO_USE_LOCAL_RESOURCE_SETTING 
      | USE_LOCAL_RESOURCE_SETTING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ENABLING -> "ENABLING"
      | ENABLED -> "ENABLED"
      | DISABLING -> "DISABLING"
      | DISABLED -> "DISABLED"
      | UPDATING_TO_USE_LOCAL_RESOURCE_SETTING ->
          "UPDATING_TO_USE_LOCAL_RESOURCE_SETTING"
      | USE_LOCAL_RESOURCE_SETTING -> "USE_LOCAL_RESOURCE_SETTING"
      | Non_static_id s -> s
    let of_string =
      function
      | "ENABLING" -> ENABLING
      | "ENABLED" -> ENABLED
      | "DISABLING" -> DISABLING
      | "DISABLED" -> DISABLED
      | "UPDATING_TO_USE_LOCAL_RESOURCE_SETTING" ->
          UPDATING_TO_USE_LOCAL_RESOURCE_SETTING
      | "USE_LOCAL_RESOURCE_SETTING" -> USE_LOCAL_RESOURCE_SETTING
      | 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 ResolverAutodefinedReverseStatus"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ResolverAutodefinedReverseStatus" j)
    let to_json = simple_to_json to_value
  end
module InstanceCount =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for InstanceCount" 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 OutpostResolverName =
  struct
    type nonrec t = string
    let context_ = "OutpostResolverName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"OutpostResolverName" j
    let to_json = simple_to_json to_value
  end
module OutpostResolverStatus =
  struct
    type nonrec t =
      | CREATING 
      | OPERATIONAL 
      | UPDATING 
      | DELETING 
      | ACTION_NEEDED 
      | FAILED_CREATION 
      | FAILED_DELETION 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATING -> "CREATING"
      | OPERATIONAL -> "OPERATIONAL"
      | UPDATING -> "UPDATING"
      | DELETING -> "DELETING"
      | ACTION_NEEDED -> "ACTION_NEEDED"
      | FAILED_CREATION -> "FAILED_CREATION"
      | FAILED_DELETION -> "FAILED_DELETION"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATING" -> CREATING
      | "OPERATIONAL" -> OPERATIONAL
      | "UPDATING" -> UPDATING
      | "DELETING" -> DELETING
      | "ACTION_NEEDED" -> ACTION_NEEDED
      | "FAILED_CREATION" -> FAILED_CREATION
      | "FAILED_DELETION" -> FAILED_DELETION
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration OutpostResolverStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"OutpostResolverStatus" j)
    let to_json = simple_to_json to_value
  end
module OutpostResolverStatusMessage =
  struct
    type nonrec t = string
    let context_ = "OutpostResolverStatusMessage"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:4096); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"OutpostResolverStatusMessage" j
    let to_json = simple_to_json to_value
  end
module Action =
  struct
    type nonrec t =
      | ALLOW 
      | BLOCK 
      | ALERT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ALLOW -> "ALLOW"
      | BLOCK -> "BLOCK"
      | ALERT -> "ALERT"
      | Non_static_id s -> s
    let of_string =
      function
      | "ALLOW" -> ALLOW
      | "BLOCK" -> BLOCK
      | "ALERT" -> ALERT
      | 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 Action" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Action" j)
    let to_json = simple_to_json to_value
  end
module BlockOverrideDnsType =
  struct
    type nonrec t =
      | CNAME 
      | Non_static_id of string 
    let make i = i
    let to_string = function | CNAME -> "CNAME" | Non_static_id s -> s
    let of_string = function | "CNAME" -> CNAME | 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 BlockOverrideDnsType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"BlockOverrideDnsType" j)
    let to_json = simple_to_json to_value
  end
module BlockOverrideDomain =
  struct
    type nonrec t = string
    let context_ = "BlockOverrideDomain"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"BlockOverrideDomain" j
    let to_json = simple_to_json to_value
  end
module BlockResponse =
  struct
    type nonrec t =
      | NODATA 
      | NXDOMAIN 
      | OVERRIDE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | NODATA -> "NODATA"
      | NXDOMAIN -> "NXDOMAIN"
      | OVERRIDE -> "OVERRIDE"
      | Non_static_id s -> s
    let of_string =
      function
      | "NODATA" -> NODATA
      | "NXDOMAIN" -> NXDOMAIN
      | "OVERRIDE" -> OVERRIDE
      | 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 BlockResponse" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"BlockResponse" j)
    let to_json = simple_to_json to_value
  end
module ConfidenceThreshold =
  struct
    type nonrec t =
      | LOW 
      | MEDIUM 
      | HIGH 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | LOW -> "LOW"
      | MEDIUM -> "MEDIUM"
      | HIGH -> "HIGH"
      | Non_static_id s -> s
    let of_string =
      function
      | "LOW" -> LOW
      | "MEDIUM" -> MEDIUM
      | "HIGH" -> HIGH
      | 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 ConfidenceThreshold" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ConfidenceThreshold" j)
    let to_json = simple_to_json to_value
  end
module DnsThreatProtection =
  struct
    type nonrec t =
      | DGA 
      | DNS_TUNNELING 
      | DICTIONARY_DGA 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DGA -> "DGA"
      | DNS_TUNNELING -> "DNS_TUNNELING"
      | DICTIONARY_DGA -> "DICTIONARY_DGA"
      | Non_static_id s -> s
    let of_string =
      function
      | "DGA" -> DGA
      | "DNS_TUNNELING" -> DNS_TUNNELING
      | "DICTIONARY_DGA" -> DICTIONARY_DGA
      | 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 DnsThreatProtection" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DnsThreatProtection" j)
    let to_json = simple_to_json to_value
  end
module FirewallDomainRedirectionAction =
  struct
    type nonrec t =
      | INSPECT_REDIRECTION_DOMAIN 
      | TRUST_REDIRECTION_DOMAIN 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | INSPECT_REDIRECTION_DOMAIN -> "INSPECT_REDIRECTION_DOMAIN"
      | TRUST_REDIRECTION_DOMAIN -> "TRUST_REDIRECTION_DOMAIN"
      | Non_static_id s -> s
    let of_string =
      function
      | "INSPECT_REDIRECTION_DOMAIN" -> INSPECT_REDIRECTION_DOMAIN
      | "TRUST_REDIRECTION_DOMAIN" -> TRUST_REDIRECTION_DOMAIN
      | 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 FirewallDomainRedirectionAction"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"FirewallDomainRedirectionAction" j)
    let to_json = simple_to_json to_value
  end
module Priority =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string (string_of_xml ~kind:"an integer for Priority" 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 Qtype =
  struct
    type nonrec t = string
    let context_ = "Qtype"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:16) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Qtype" j
    let to_json = simple_to_json to_value
  end
module Unsigned =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string (string_of_xml ~kind:"an integer for Unsigned" 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 FirewallRuleGroupAssociationStatus =
  struct
    type nonrec t =
      | COMPLETE 
      | DELETING 
      | UPDATING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | COMPLETE -> "COMPLETE"
      | DELETING -> "DELETING"
      | UPDATING -> "UPDATING"
      | Non_static_id s -> s
    let of_string =
      function
      | "COMPLETE" -> COMPLETE
      | "DELETING" -> DELETING
      | "UPDATING" -> UPDATING
      | 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 FirewallRuleGroupAssociationStatus"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"FirewallRuleGroupAssociationStatus" j)
    let to_json = simple_to_json to_value
  end
module MutationProtectionStatus =
  struct
    type nonrec t =
      | ENABLED 
      | DISABLED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ENABLED -> "ENABLED"
      | DISABLED -> "DISABLED"
      | Non_static_id s -> s
    let of_string =
      function
      | "ENABLED" -> ENABLED
      | "DISABLED" -> DISABLED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration MutationProtectionStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"MutationProtectionStatus" j)
    let to_json = simple_to_json to_value
  end
module ServicePrinciple =
  struct
    type nonrec t = string
    let context_ = "ServicePrinciple"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:512) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ServicePrinciple" j
    let to_json = simple_to_json to_value
  end
module FirewallFailOpenStatus =
  struct
    type nonrec t =
      | ENABLED 
      | DISABLED 
      | USE_LOCAL_RESOURCE_SETTING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ENABLED -> "ENABLED"
      | DISABLED -> "DISABLED"
      | USE_LOCAL_RESOURCE_SETTING -> "USE_LOCAL_RESOURCE_SETTING"
      | Non_static_id s -> s
    let of_string =
      function
      | "ENABLED" -> ENABLED
      | "DISABLED" -> DISABLED
      | "USE_LOCAL_RESOURCE_SETTING" -> USE_LOCAL_RESOURCE_SETTING
      | 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 FirewallFailOpenStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"FirewallFailOpenStatus" j)
    let to_json = simple_to_json to_value
  end
module ExceptionMessage =
  struct
    type nonrec t = string
    let context_ = "ExceptionMessage"
    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:"ExceptionMessage" j
    let to_json = simple_to_json to_value
  end
module String_ =
  struct
    type nonrec t = string
    let context_ = "String"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"String" j
    let to_json = simple_to_json to_value
  end
module UpdateIpAddress =
  struct
    type nonrec t =
      {
      ipId: ResourceId.t
        [@ocaml.doc
          "The ID of the IP address, specified by the ResolverEndpointId."];
      ipv6: Ipv6.t
        [@ocaml.doc "The IPv6 address that you want to use for DNS queries."]}
    let context_ = "UpdateIpAddress"
    let make ~ipId = fun ~ipv6 -> fun () -> { ipId; ipv6 }
    let to_value x =
      structure_to_value
        [("IpId", (Some (ResourceId.to_value x.ipId)));
        ("Ipv6", (Some (Ipv6.to_value x.ipv6)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ipv6 =
        Ipv6.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Ipv6") in
      let ipId =
        ResourceId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "IpId") in
      make ~ipv6 ~ipId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ipv6 = field_map_exn json__ "Ipv6" Ipv6.of_json in
      let ipId = field_map_exn json__ "IpId" ResourceId.of_json in
      make ~ipv6 ~ipId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides information about the IP address type in response to UpdateResolverEndpoint."]
module FirewallDomainName =
  struct
    type nonrec t = string
    let context_ = "FirewallDomainName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"FirewallDomainName" j
    let to_json = simple_to_json to_value
  end
module Tag =
  struct
    type nonrec t =
      {
      key: TagKey.t
        [@ocaml.doc
          "The name for the tag. For example, if you want to associate Resolver resources with the account IDs of your customers for billing purposes, the value of Key might be account-id."];
      value: TagValue.t
        [@ocaml.doc
          "The value for the tag. For example, if Key is account-id, then Value might be the ID of the customer account that you're creating the resource for."]}
    let context_ = "Tag"
    let make ~key = fun ~value -> fun () -> { key; value }
    let to_value x =
      structure_to_value
        [("Key", (Some (TagKey.to_value x.key)));
        ("Value", (Some (TagValue.to_value x.value)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        TagValue.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Value") in
      let key =
        TagKey.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Key") in
      make ~value ~key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map_exn json__ "Value" TagValue.of_json in
      let key = field_map_exn json__ "Key" TagKey.of_json in
      make ~value ~key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "One tag that you want to add to the specified resource. A tag consists of a Key (a name for the tag) and a Value."]
module ResolverRule =
  struct
    type nonrec t =
      {
      id: ResourceId.t option
        [@ocaml.doc
          "The ID that Resolver assigned to the Resolver rule when you created it."];
      creatorRequestId: CreatorRequestId.t option
        [@ocaml.doc
          "A unique string that you specified when you created the Resolver rule. CreatorRequestId identifies the request and allows failed requests to be retried without the risk of running the operation twice."];
      arn: Arn.t option
        [@ocaml.doc
          "The ARN (Amazon Resource Name) for the Resolver rule specified by Id."];
      domainName: DomainName.t option
        [@ocaml.doc
          "DNS queries for this domain name are forwarded to the IP addresses that are specified in TargetIps. If a query matches multiple Resolver rules (example.com and www.example.com), the query is routed using the Resolver rule that contains the most specific domain name (www.example.com)."];
      status: ResolverRuleStatus.t option
        [@ocaml.doc
          "A code that specifies the current status of the Resolver rule."];
      statusMessage: StatusMessage.t option
        [@ocaml.doc
          "A detailed description of the status of a Resolver rule."];
      ruleType: RuleTypeOption.t option
        [@ocaml.doc
          "When you want to forward DNS queries for specified domain name to resolvers on your network, specify FORWARD or DELEGATE. If a query matches multiple Resolver rules (example.com and www.example.com), outbound DNS queries are routed using the Resolver rule that contains the most specific domain name (www.example.com). When you have a forwarding rule to forward DNS queries for a domain to your network and you want Resolver to process queries for a subdomain of that domain, specify SYSTEM. For example, to forward DNS queries for example.com to resolvers on your network, you create a rule and specify FORWARD for RuleType. To then have Resolver process queries for apex.example.com, you create a rule and specify SYSTEM for RuleType. Currently, only Resolver can create rules that have a value of RECURSIVE for RuleType."];
      name: Name.t option
        [@ocaml.doc
          "The name for the Resolver rule, which you specified when you created the Resolver rule. The name can be up to 64 characters long and can contain letters (a-z, A-Z), numbers (0-9), hyphens (-), underscores (_), and spaces. The name cannot consist of only numbers."];
      targetIps: TargetList.t option
        [@ocaml.doc
          "An array that contains the IP addresses and ports that an outbound endpoint forwards DNS queries to. Typically, these are the IP addresses of DNS resolvers on your network."];
      resolverEndpointId: ResourceId.t option
        [@ocaml.doc
          "The ID of the endpoint that the rule is associated with."];
      ownerId: AccountId.t option
        [@ocaml.doc
          "When a rule is shared with another Amazon Web Services account, the account ID of the account that the rule is shared with."];
      shareStatus: ShareStatus.t option
        [@ocaml.doc
          "Whether the rule is shared and, if so, whether the current account is sharing the rule with another account, or another account is sharing the rule with the current account."];
      creationTime: Rfc3339TimeString.t option
        [@ocaml.doc
          "The date and time that the Resolver rule was created, in Unix time format and Coordinated Universal Time (UTC)."];
      modificationTime: Rfc3339TimeString.t option
        [@ocaml.doc
          "The date and time that the Resolver rule was last updated, in Unix time format and Coordinated Universal Time (UTC)."];
      delegationRecord: DelegationRecord.t option
        [@ocaml.doc
          "DNS queries with delegation records that point to this domain name are forwarded to resolvers on your network."]}
    let make ?id =
      fun ?creatorRequestId ->
        fun ?arn ->
          fun ?domainName ->
            fun ?status ->
              fun ?statusMessage ->
                fun ?ruleType ->
                  fun ?name ->
                    fun ?targetIps ->
                      fun ?resolverEndpointId ->
                        fun ?ownerId ->
                          fun ?shareStatus ->
                            fun ?creationTime ->
                              fun ?modificationTime ->
                                fun ?delegationRecord ->
                                  fun () ->
                                    {
                                      id;
                                      creatorRequestId;
                                      arn;
                                      domainName;
                                      status;
                                      statusMessage;
                                      ruleType;
                                      name;
                                      targetIps;
                                      resolverEndpointId;
                                      ownerId;
                                      shareStatus;
                                      creationTime;
                                      modificationTime;
                                      delegationRecord
                                    }
    let to_value x =
      structure_to_value
        [("Id", (Option.map x.id ~f:ResourceId.to_value));
        ("CreatorRequestId",
          (Option.map x.creatorRequestId ~f:CreatorRequestId.to_value));
        ("Arn", (Option.map x.arn ~f:Arn.to_value));
        ("DomainName", (Option.map x.domainName ~f:DomainName.to_value));
        ("Status", (Option.map x.status ~f:ResolverRuleStatus.to_value));
        ("StatusMessage",
          (Option.map x.statusMessage ~f:StatusMessage.to_value));
        ("RuleType", (Option.map x.ruleType ~f:RuleTypeOption.to_value));
        ("Name", (Option.map x.name ~f:Name.to_value));
        ("TargetIps", (Option.map x.targetIps ~f:TargetList.to_value));
        ("ResolverEndpointId",
          (Option.map x.resolverEndpointId ~f:ResourceId.to_value));
        ("OwnerId", (Option.map x.ownerId ~f:AccountId.to_value));
        ("ShareStatus", (Option.map x.shareStatus ~f:ShareStatus.to_value));
        ("CreationTime",
          (Option.map x.creationTime ~f:Rfc3339TimeString.to_value));
        ("ModificationTime",
          (Option.map x.modificationTime ~f:Rfc3339TimeString.to_value));
        ("DelegationRecord",
          (Option.map x.delegationRecord ~f:DelegationRecord.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let delegationRecord =
        (Option.map ~f:DelegationRecord.of_xml)
          (Xml.child xml_arg0 "DelegationRecord") in
      let modificationTime =
        (Option.map ~f:Rfc3339TimeString.of_xml)
          (Xml.child xml_arg0 "ModificationTime") in
      let creationTime =
        (Option.map ~f:Rfc3339TimeString.of_xml)
          (Xml.child xml_arg0 "CreationTime") in
      let shareStatus =
        (Option.map ~f:ShareStatus.of_xml) (Xml.child xml_arg0 "ShareStatus") in
      let ownerId =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "OwnerId") in
      let resolverEndpointId =
        (Option.map ~f:ResourceId.of_xml)
          (Xml.child xml_arg0 "ResolverEndpointId") in
      let targetIps =
        (Option.map ~f:TargetList.of_xml) (Xml.child xml_arg0 "TargetIps") in
      let name = (Option.map ~f:Name.of_xml) (Xml.child xml_arg0 "Name") in
      let ruleType =
        (Option.map ~f:RuleTypeOption.of_xml) (Xml.child xml_arg0 "RuleType") in
      let statusMessage =
        (Option.map ~f:StatusMessage.of_xml)
          (Xml.child xml_arg0 "StatusMessage") in
      let status =
        (Option.map ~f:ResolverRuleStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let domainName =
        (Option.map ~f:DomainName.of_xml) (Xml.child xml_arg0 "DomainName") in
      let arn = (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "Arn") in
      let creatorRequestId =
        (Option.map ~f:CreatorRequestId.of_xml)
          (Xml.child xml_arg0 "CreatorRequestId") in
      let id = (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "Id") in
      make ?delegationRecord ?modificationTime ?creationTime ?shareStatus
        ?ownerId ?resolverEndpointId ?targetIps ?name ?ruleType
        ?statusMessage ?status ?domainName ?arn ?creatorRequestId ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let delegationRecord =
        field_map json__ "DelegationRecord" DelegationRecord.of_json in
      let modificationTime =
        field_map json__ "ModificationTime" Rfc3339TimeString.of_json in
      let creationTime =
        field_map json__ "CreationTime" Rfc3339TimeString.of_json in
      let shareStatus = field_map json__ "ShareStatus" ShareStatus.of_json in
      let ownerId = field_map json__ "OwnerId" AccountId.of_json in
      let resolverEndpointId =
        field_map json__ "ResolverEndpointId" ResourceId.of_json in
      let targetIps = field_map json__ "TargetIps" TargetList.of_json in
      let name = field_map json__ "Name" Name.of_json in
      let ruleType = field_map json__ "RuleType" RuleTypeOption.of_json in
      let statusMessage =
        field_map json__ "StatusMessage" StatusMessage.of_json in
      let status = field_map json__ "Status" ResolverRuleStatus.of_json in
      let domainName = field_map json__ "DomainName" DomainName.of_json in
      let arn = field_map json__ "Arn" Arn.of_json in
      let creatorRequestId =
        field_map json__ "CreatorRequestId" CreatorRequestId.of_json in
      let id = field_map json__ "Id" ResourceId.of_json in
      make ?delegationRecord ?modificationTime ?creationTime ?shareStatus
        ?ownerId ?resolverEndpointId ?targetIps ?name ?ruleType
        ?statusMessage ?status ?domainName ?arn ?creatorRequestId ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "For queries that originate in your VPC, detailed information about a Resolver rule, which specifies how to route DNS queries out of the VPC. The ResolverRule parameter appears in the response to a CreateResolverRule, DeleteResolverRule, GetResolverRule, ListResolverRules, or UpdateResolverRule request."]
module Filter =
  struct
    type nonrec t =
      {
      name: FilterName.t option
        [@ocaml.doc
          "The name of the parameter that you want to use to filter objects. The valid values for Name depend on the action that you're including the filter in, ListResolverEndpoints, ListResolverRules, ListResolverRuleAssociations, ListResolverQueryLogConfigs, or ListResolverQueryLogConfigAssociations. In early versions of Resolver, values for Name were listed as uppercase, with underscore (_) delimiters. For example, CreatorRequestId was originally listed as CREATOR_REQUEST_ID. Uppercase values for Name are still supported. ListResolverEndpoints Valid values for Name include the following: CreatorRequestId: The value that you specified when you created the Resolver endpoint. Direction: Whether you want to return inbound or outbound Resolver endpoints. If you specify DIRECTION for Name, specify INBOUND or OUTBOUND for Values. HostVPCId: The ID of the VPC that inbound DNS queries pass through on the way from your network to your VPCs in a region, or the VPC that outbound queries pass through on the way from your VPCs to your network. In a CreateResolverEndpoint request, SubnetId indirectly identifies the VPC. In a GetResolverEndpoint request, the VPC ID for a Resolver endpoint is returned in the HostVPCId element. IpAddressCount: The number of IP addresses that you have associated with the Resolver endpoint. Name: The name of the Resolver endpoint. SecurityGroupIds: The IDs of the VPC security groups that you specified when you created the Resolver endpoint. Status: The status of the Resolver endpoint. If you specify Status for Name, specify one of the following status codes for Values: CREATING, OPERATIONAL, UPDATING, AUTO_RECOVERING, ACTION_NEEDED, or DELETING. For more information, see Status in ResolverEndpoint. ListResolverRules Valid values for Name include the following: CreatorRequestId: The value that you specified when you created the Resolver rule. DomainName: The domain name for which Resolver is forwarding DNS queries to your network. In the value that you specify for Values, include a trailing dot (.) after the domain name. For example, if the domain name is example.com, specify the following value. Note the \".\" after com: example.com. Name: The name of the Resolver rule. ResolverEndpointId: The ID of the Resolver endpoint that the Resolver rule is associated with. You can filter on the Resolver endpoint only for rules that have a value of FORWARD for RuleType. Status: The status of the Resolver rule. If you specify Status for Name, specify one of the following status codes for Values: COMPLETE, DELETING, UPDATING, or FAILED. Type: The type of the Resolver rule. If you specify TYPE for Name, specify FORWARD or SYSTEM for Values. ListResolverRuleAssociations Valid values for Name include the following: Name: The name of the Resolver rule association. ResolverRuleId: The ID of the Resolver rule that is associated with one or more VPCs. Status: The status of the Resolver rule association. If you specify Status for Name, specify one of the following status codes for Values: CREATING, COMPLETE, DELETING, or FAILED. VPCId: The ID of the VPC that the Resolver rule is associated with. ListResolverQueryLogConfigs Valid values for Name include the following: Arn: The ARN for the query logging configuration. AssociationCount: The number of VPCs that are associated with the query logging configuration. CreationTime: The date and time that the query logging configuration was created, in Unix time format and Coordinated Universal Time (UTC). CreatorRequestId: A unique string that identifies the request that created the query logging configuration. Destination: The Amazon Web Services service that you want to forward query logs to. Valid values include the following: S3 CloudWatchLogs KinesisFirehose DestinationArn: The ARN of the location that Resolver is sending query logs to. This value can be the ARN for an S3 bucket, a CloudWatch Logs log group, or a Kinesis Data Firehose delivery stream. Id: The ID of the query logging configuration Name: The name of the query logging configuration OwnerId: The Amazon Web Services account ID for the account that created the query logging configuration. ShareStatus: An indication of whether the query logging configuration is shared with other Amazon Web Services accounts, or was shared with the current account by another Amazon Web Services account. Valid values include: NOT_SHARED, SHARED_WITH_ME, or SHARED_BY_ME. Status: The status of the query logging configuration. If you specify Status for Name, specify the applicable status code for Values: CREATING, CREATED, DELETING, or FAILED. For more information, see Status. ListResolverQueryLogConfigAssociations Valid values for Name include the following: CreationTime: The date and time that the VPC was associated with the query logging configuration, in Unix time format and Coordinated Universal Time (UTC). Error: If the value of Status is FAILED, specify the cause: DESTINATION_NOT_FOUND or ACCESS_DENIED. Id: The ID of the query logging association. ResolverQueryLogConfigId: The ID of the query logging configuration that a VPC is associated with. ResourceId: The ID of the Amazon VPC that is associated with the query logging configuration. Status: The status of the query logging association. If you specify Status for Name, specify the applicable status code for Values: CREATING, CREATED, DELETING, or FAILED. For more information, see Status."];
      values: FilterValues.t option
        [@ocaml.doc
          "When you're using a List operation and you want the operation to return a subset of objects, such as Resolver endpoints or Resolver rules, the value of the parameter that you want to use to filter objects. For example, to list only inbound Resolver endpoints, specify Direction for Name and specify INBOUND for Values."]}
    let make ?name = fun ?values -> fun () -> { name; values }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:FilterName.to_value));
        ("Values", (Option.map x.values ~f:FilterValues.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let values =
        (Option.map ~f:FilterValues.of_xml) (Xml.child xml_arg0 "Values") in
      let name =
        (Option.map ~f:FilterName.of_xml) (Xml.child xml_arg0 "Name") in
      make ?values ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let values = field_map json__ "Values" FilterValues.of_json in
      let name = field_map json__ "Name" FilterName.of_json in
      make ?values ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "For Resolver list operations (ListResolverEndpoints, ListResolverRules, ListResolverRuleAssociations, ListResolverQueryLogConfigs, ListResolverQueryLogConfigAssociations), and ListResolverDnssecConfigs), an optional specification to return a subset of objects. To filter objects, such as Resolver endpoints or Resolver rules, you specify Name and Values. For example, to list only inbound Resolver endpoints, specify Direction for Name and specify INBOUND for Values."]
module ResolverRuleAssociation =
  struct
    type nonrec t =
      {
      id: ResourceId.t option
        [@ocaml.doc
          "The ID of the association between a Resolver rule and a VPC. Resolver assigns this value when you submit an AssociateResolverRule request."];
      resolverRuleId: ResourceId.t option
        [@ocaml.doc
          "The ID of the Resolver rule that you associated with the VPC that is specified by VPCId."];
      name: Name.t option
        [@ocaml.doc
          "The name of an association between a Resolver rule and a VPC. The name can be up to 64 characters long and can contain letters (a-z, A-Z), numbers (0-9), hyphens (-), underscores (_), and spaces. The name cannot consist of only numbers."];
      vPCId: ResourceId.t option
        [@ocaml.doc
          "The ID of the VPC that you associated the Resolver rule with."];
      status: ResolverRuleAssociationStatus.t option
        [@ocaml.doc
          "A code that specifies the current status of the association between a Resolver rule and a VPC."];
      statusMessage: StatusMessage.t option
        [@ocaml.doc
          "A detailed description of the status of the association between a Resolver rule and a VPC."]}
    let make ?id =
      fun ?resolverRuleId ->
        fun ?name ->
          fun ?vPCId ->
            fun ?status ->
              fun ?statusMessage ->
                fun () ->
                  { id; resolverRuleId; name; vPCId; status; statusMessage }
    let to_value x =
      structure_to_value
        [("Id", (Option.map x.id ~f:ResourceId.to_value));
        ("ResolverRuleId",
          (Option.map x.resolverRuleId ~f:ResourceId.to_value));
        ("Name", (Option.map x.name ~f:Name.to_value));
        ("VPCId", (Option.map x.vPCId ~f:ResourceId.to_value));
        ("Status",
          (Option.map x.status ~f:ResolverRuleAssociationStatus.to_value));
        ("StatusMessage",
          (Option.map x.statusMessage ~f:StatusMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statusMessage =
        (Option.map ~f:StatusMessage.of_xml)
          (Xml.child xml_arg0 "StatusMessage") in
      let status =
        (Option.map ~f:ResolverRuleAssociationStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let vPCId =
        (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "VPCId") in
      let name = (Option.map ~f:Name.of_xml) (Xml.child xml_arg0 "Name") in
      let resolverRuleId =
        (Option.map ~f:ResourceId.of_xml)
          (Xml.child xml_arg0 "ResolverRuleId") in
      let id = (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "Id") in
      make ?statusMessage ?status ?vPCId ?name ?resolverRuleId ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statusMessage =
        field_map json__ "StatusMessage" StatusMessage.of_json in
      let status =
        field_map json__ "Status" ResolverRuleAssociationStatus.of_json in
      let vPCId = field_map json__ "VPCId" ResourceId.of_json in
      let name = field_map json__ "Name" Name.of_json in
      let resolverRuleId =
        field_map json__ "ResolverRuleId" ResourceId.of_json in
      let id = field_map json__ "Id" ResourceId.of_json in
      make ?statusMessage ?status ?vPCId ?name ?resolverRuleId ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "In the response to an AssociateResolverRule, DisassociateResolverRule, or ListResolverRuleAssociations request, provides information about an association between a Resolver rule and a VPC. The association determines which DNS queries that originate in the VPC are forwarded to your network."]
module ResolverQueryLogConfig =
  struct
    type nonrec t =
      {
      id: ResourceId.t option
        [@ocaml.doc "The ID for the query logging configuration."];
      ownerId: AccountId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID for the account that created the query logging configuration."];
      status: ResolverQueryLogConfigStatus.t option
        [@ocaml.doc
          "The status of the specified query logging configuration. Valid values include the following: CREATING: Resolver is creating the query logging configuration. CREATED: The query logging configuration was successfully created. Resolver is logging queries that originate in the specified VPC. DELETING: Resolver is deleting this query logging configuration. FAILED: Resolver can't deliver logs to the location that is specified in the query logging configuration. Here are two common causes: The specified destination (for example, an Amazon S3 bucket) was deleted. Permissions don't allow sending logs to the destination."];
      shareStatus: ShareStatus.t option
        [@ocaml.doc
          "An indication of whether the query logging configuration is shared with other Amazon Web Services accounts, or was shared with the current account by another Amazon Web Services account. Sharing is configured through Resource Access Manager (RAM)."];
      associationCount: Count.t option
        [@ocaml.doc
          "The number of VPCs that are associated with the query logging configuration."];
      arn: Arn.t option
        [@ocaml.doc "The ARN for the query logging configuration."];
      name: ResolverQueryLogConfigName.t option
        [@ocaml.doc "The name of the query logging configuration."];
      destinationArn: DestinationArn.t option
        [@ocaml.doc
          "The ARN of the resource that you want Resolver to send query logs: an Amazon S3 bucket, a CloudWatch Logs log group, or a Kinesis Data Firehose delivery stream."];
      creatorRequestId: CreatorRequestId.t option
        [@ocaml.doc
          "A unique string that identifies the request that created the query logging configuration. The CreatorRequestId allows failed requests to be retried without the risk of running the operation twice."];
      creationTime: Rfc3339TimeString.t option
        [@ocaml.doc
          "The date and time that the query logging configuration was created, in Unix time format and Coordinated Universal Time (UTC)."]}
    let make ?id =
      fun ?ownerId ->
        fun ?status ->
          fun ?shareStatus ->
            fun ?associationCount ->
              fun ?arn ->
                fun ?name ->
                  fun ?destinationArn ->
                    fun ?creatorRequestId ->
                      fun ?creationTime ->
                        fun () ->
                          {
                            id;
                            ownerId;
                            status;
                            shareStatus;
                            associationCount;
                            arn;
                            name;
                            destinationArn;
                            creatorRequestId;
                            creationTime
                          }
    let to_value x =
      structure_to_value
        [("Id", (Option.map x.id ~f:ResourceId.to_value));
        ("OwnerId", (Option.map x.ownerId ~f:AccountId.to_value));
        ("Status",
          (Option.map x.status ~f:ResolverQueryLogConfigStatus.to_value));
        ("ShareStatus", (Option.map x.shareStatus ~f:ShareStatus.to_value));
        ("AssociationCount",
          (Option.map x.associationCount ~f:Count.to_value));
        ("Arn", (Option.map x.arn ~f:Arn.to_value));
        ("Name", (Option.map x.name ~f:ResolverQueryLogConfigName.to_value));
        ("DestinationArn",
          (Option.map x.destinationArn ~f:DestinationArn.to_value));
        ("CreatorRequestId",
          (Option.map x.creatorRequestId ~f:CreatorRequestId.to_value));
        ("CreationTime",
          (Option.map x.creationTime ~f:Rfc3339TimeString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let creationTime =
        (Option.map ~f:Rfc3339TimeString.of_xml)
          (Xml.child xml_arg0 "CreationTime") in
      let creatorRequestId =
        (Option.map ~f:CreatorRequestId.of_xml)
          (Xml.child xml_arg0 "CreatorRequestId") in
      let destinationArn =
        (Option.map ~f:DestinationArn.of_xml)
          (Xml.child xml_arg0 "DestinationArn") in
      let name =
        (Option.map ~f:ResolverQueryLogConfigName.of_xml)
          (Xml.child xml_arg0 "Name") in
      let arn = (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "Arn") in
      let associationCount =
        (Option.map ~f:Count.of_xml) (Xml.child xml_arg0 "AssociationCount") in
      let shareStatus =
        (Option.map ~f:ShareStatus.of_xml) (Xml.child xml_arg0 "ShareStatus") in
      let status =
        (Option.map ~f:ResolverQueryLogConfigStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let ownerId =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "OwnerId") in
      let id = (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "Id") in
      make ?creationTime ?creatorRequestId ?destinationArn ?name ?arn
        ?associationCount ?shareStatus ?status ?ownerId ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let creationTime =
        field_map json__ "CreationTime" Rfc3339TimeString.of_json in
      let creatorRequestId =
        field_map json__ "CreatorRequestId" CreatorRequestId.of_json in
      let destinationArn =
        field_map json__ "DestinationArn" DestinationArn.of_json in
      let name = field_map json__ "Name" ResolverQueryLogConfigName.of_json in
      let arn = field_map json__ "Arn" Arn.of_json in
      let associationCount =
        field_map json__ "AssociationCount" Count.of_json in
      let shareStatus = field_map json__ "ShareStatus" ShareStatus.of_json in
      let status =
        field_map json__ "Status" ResolverQueryLogConfigStatus.of_json in
      let ownerId = field_map json__ "OwnerId" AccountId.of_json in
      let id = field_map json__ "Id" ResourceId.of_json in
      make ?creationTime ?creatorRequestId ?destinationArn ?name ?arn
        ?associationCount ?shareStatus ?status ?ownerId ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "In the response to a CreateResolverQueryLogConfig, DeleteResolverQueryLogConfig, GetResolverQueryLogConfig, or ListResolverQueryLogConfigs request, a complex type that contains settings for one query logging configuration."]
module ResolverQueryLogConfigAssociation =
  struct
    type nonrec t =
      {
      id: ResourceId.t option
        [@ocaml.doc "The ID of the query logging association."];
      resolverQueryLogConfigId: ResourceId.t option
        [@ocaml.doc
          "The ID of the query logging configuration that a VPC is associated with."];
      resourceId: ResourceId.t option
        [@ocaml.doc
          "The ID of the Amazon VPC that is associated with the query logging configuration."];
      status: ResolverQueryLogConfigAssociationStatus.t option
        [@ocaml.doc
          "The status of the specified query logging association. Valid values include the following: CREATING: Resolver is creating an association between an Amazon VPC and a query logging configuration. ACTIVE: The association between an Amazon VPC and a query logging configuration was successfully created. Resolver is logging queries that originate in the specified VPC. DELETING: Resolver is deleting this query logging association. FAILED: Resolver either couldn't create or couldn't delete the query logging association."];
      error: ResolverQueryLogConfigAssociationError.t option
        [@ocaml.doc
          "If the value of Status is FAILED, the value of Error indicates the cause: DESTINATION_NOT_FOUND: The specified destination (for example, an Amazon S3 bucket) was deleted. ACCESS_DENIED: Permissions don't allow sending logs to the destination. If the value of Status is a value other than FAILED, Error is null."];
      errorMessage: ResolverQueryLogConfigAssociationErrorMessage.t option
        [@ocaml.doc
          "Contains additional information about the error. If the value or Error is null, the value of ErrorMessage also is null."];
      creationTime: Rfc3339TimeString.t option
        [@ocaml.doc
          "The date and time that the VPC was associated with the query logging configuration, in Unix time format and Coordinated Universal Time (UTC)."]}
    let make ?id =
      fun ?resolverQueryLogConfigId ->
        fun ?resourceId ->
          fun ?status ->
            fun ?error ->
              fun ?errorMessage ->
                fun ?creationTime ->
                  fun () ->
                    {
                      id;
                      resolverQueryLogConfigId;
                      resourceId;
                      status;
                      error;
                      errorMessage;
                      creationTime
                    }
    let to_value x =
      structure_to_value
        [("Id", (Option.map x.id ~f:ResourceId.to_value));
        ("ResolverQueryLogConfigId",
          (Option.map x.resolverQueryLogConfigId ~f:ResourceId.to_value));
        ("ResourceId", (Option.map x.resourceId ~f:ResourceId.to_value));
        ("Status",
          (Option.map x.status
             ~f:ResolverQueryLogConfigAssociationStatus.to_value));
        ("Error",
          (Option.map x.error
             ~f:ResolverQueryLogConfigAssociationError.to_value));
        ("ErrorMessage",
          (Option.map x.errorMessage
             ~f:ResolverQueryLogConfigAssociationErrorMessage.to_value));
        ("CreationTime",
          (Option.map x.creationTime ~f:Rfc3339TimeString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let creationTime =
        (Option.map ~f:Rfc3339TimeString.of_xml)
          (Xml.child xml_arg0 "CreationTime") in
      let errorMessage =
        (Option.map ~f:ResolverQueryLogConfigAssociationErrorMessage.of_xml)
          (Xml.child xml_arg0 "ErrorMessage") in
      let error =
        (Option.map ~f:ResolverQueryLogConfigAssociationError.of_xml)
          (Xml.child xml_arg0 "Error") in
      let status =
        (Option.map ~f:ResolverQueryLogConfigAssociationStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let resourceId =
        (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "ResourceId") in
      let resolverQueryLogConfigId =
        (Option.map ~f:ResourceId.of_xml)
          (Xml.child xml_arg0 "ResolverQueryLogConfigId") in
      let id = (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "Id") in
      make ?creationTime ?errorMessage ?error ?status ?resourceId
        ?resolverQueryLogConfigId ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let creationTime =
        field_map json__ "CreationTime" Rfc3339TimeString.of_json in
      let errorMessage =
        field_map json__ "ErrorMessage"
          ResolverQueryLogConfigAssociationErrorMessage.of_json in
      let error =
        field_map json__ "Error"
          ResolverQueryLogConfigAssociationError.of_json in
      let status =
        field_map json__ "Status"
          ResolverQueryLogConfigAssociationStatus.of_json in
      let resourceId = field_map json__ "ResourceId" ResourceId.of_json in
      let resolverQueryLogConfigId =
        field_map json__ "ResolverQueryLogConfigId" ResourceId.of_json in
      let id = field_map json__ "Id" ResourceId.of_json in
      make ?creationTime ?errorMessage ?error ?status ?resourceId
        ?resolverQueryLogConfigId ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "In the response to an AssociateResolverQueryLogConfig, DisassociateResolverQueryLogConfig, GetResolverQueryLogConfigAssociation, or ListResolverQueryLogConfigAssociations, request, a complex type that contains settings for a specified association between an Amazon VPC and a query logging configuration."]
module ResolverEndpoint =
  struct
    type nonrec t =
      {
      id: ResourceId.t option [@ocaml.doc "The ID of the Resolver endpoint."];
      creatorRequestId: CreatorRequestId.t option
        [@ocaml.doc
          "A unique string that identifies the request that created the Resolver endpoint. The CreatorRequestId allows failed requests to be retried without the risk of running the operation twice."];
      arn: Arn.t option
        [@ocaml.doc
          "The ARN (Amazon Resource Name) for the Resolver endpoint."];
      name: Name.t option
        [@ocaml.doc
          "The name that you assigned to the Resolver endpoint when you submitted a CreateResolverEndpoint request."];
      securityGroupIds: SecurityGroupIds.t option
        [@ocaml.doc
          "The ID of one or more security groups that control access to this VPC. The security group must include one or more inbound rules (for inbound endpoints) or outbound rules (for outbound endpoints). Inbound and outbound rules must allow TCP and UDP access. For inbound access, open port 53. For outbound access, open the port that you're using for DNS queries on your network."];
      direction: ResolverEndpointDirection.t option
        [@ocaml.doc
          "Indicates whether the Resolver endpoint allows inbound or outbound DNS queries: INBOUND: allows DNS queries to your VPC from your network OUTBOUND: allows DNS queries from your VPC to your network INBOUND_DELEGATION: Resolver delegates queries to Route 53 private hosted zones from your network."];
      ipAddressCount: IpAddressCount.t option
        [@ocaml.doc
          "The number of IP addresses that the Resolver endpoint can use for DNS queries."];
      hostVPCId: ResourceId.t option
        [@ocaml.doc
          "The ID of the VPC that you want to create the Resolver endpoint in."];
      status: ResolverEndpointStatus.t option
        [@ocaml.doc
          "A code that specifies the current status of the Resolver endpoint. Valid values include the following: CREATING: Resolver is creating and configuring one or more Amazon VPC network interfaces for this endpoint. OPERATIONAL: The Amazon VPC network interfaces for this endpoint are correctly configured and able to pass inbound or outbound DNS queries between your network and Resolver. UPDATING: Resolver is associating or disassociating one or more network interfaces with this endpoint. AUTO_RECOVERING: Resolver is trying to recover one or more of the network interfaces that are associated with this endpoint. During the recovery process, the endpoint functions with limited capacity because of the limit on the number of DNS queries per IP address (per network interface). For the current limit, see Limits on Route 53 Resolver. ACTION_NEEDED: This endpoint is unhealthy, and Resolver can't automatically recover it. To resolve the problem, we recommend that you check each IP address that you associated with the endpoint. For each IP address that isn't available, add another IP address and then delete the IP address that isn't available. (An endpoint must always include at least two IP addresses.) A status of ACTION_NEEDED can have a variety of causes. Here are two common causes: One or more of the network interfaces that are associated with the endpoint were deleted using Amazon VPC. The network interface couldn't be created for some reason that's outside the control of Resolver. DELETING: Resolver is deleting this endpoint and the associated network interfaces."];
      statusMessage: StatusMessage.t option
        [@ocaml.doc
          "A detailed description of the status of the Resolver endpoint."];
      creationTime: Rfc3339TimeString.t option
        [@ocaml.doc
          "The date and time that the endpoint was created, in Unix time format and Coordinated Universal Time (UTC)."];
      modificationTime: Rfc3339TimeString.t option
        [@ocaml.doc
          "The date and time that the endpoint was last modified, in Unix time format and Coordinated Universal Time (UTC)."];
      outpostArn: OutpostArn.t option
        [@ocaml.doc "The ARN (Amazon Resource Name) for the Outpost."];
      preferredInstanceType: OutpostInstanceType.t option
        [@ocaml.doc "The Amazon EC2 instance type."];
      resolverEndpointType: ResolverEndpointType.t option
        [@ocaml.doc "The Resolver endpoint IP address type."];
      protocols: ProtocolList.t option
        [@ocaml.doc
          "Protocols used for the endpoint. DoH-FIPS is applicable for a default inbound endpoints only. For an inbound endpoint you can apply the protocols as follows: Do53 and DoH in combination. Do53 and DoH-FIPS in combination. Do53 alone. DoH alone. DoH-FIPS alone. None, which is treated as Do53. For a delegation inbound endpoint you can use Do53 only. For an outbound endpoint you can apply the protocols as follows: Do53 and DoH in combination. Do53 alone. DoH alone. None, which is treated as Do53."];
      rniEnhancedMetricsEnabled: RniEnhancedMetricsEnabled.t option
        [@ocaml.doc
          "Indicates whether RNI enhanced metrics are enabled for the Resolver endpoint. When enabled, one-minute granular metrics are published in CloudWatch for each RNI associated with this endpoint. When disabled, these metrics are not published."];
      targetNameServerMetricsEnabled: TargetNameServerMetricsEnabled.t option
        [@ocaml.doc
          "Indicates whether target name server metrics are enabled for the outbound Resolver endpoint. When enabled, one-minute granular metrics are published in CloudWatch for each target name server associated with this endpoint. When disabled, these metrics are not published. This feature is not supported for inbound Resolver endpoint."];
      dns64Enabled: Dns64Enabled.t option
        [@ocaml.doc
          "Indicates whether DNS64 is enabled for the inbound Resolver endpoint. When true, Route 53 Resolver synthesizes AAAA (IPv6) records for IPv4-only services by prepending the 64:ff9b::/96 prefix to the IPv4 address."];
      ipv6InternetAccessEnabled: Ipv6InternetAccessEnabled.t option
        [@ocaml.doc
          "Indicates whether IPv6 internet access is enabled for the outbound Resolver endpoint. When true, the endpoint elastic network interfaces (ENIs) can forward DNS queries to public IPv6 targets through an internet gateway."]}
    let make ?id =
      fun ?creatorRequestId ->
        fun ?arn ->
          fun ?name ->
            fun ?securityGroupIds ->
              fun ?direction ->
                fun ?ipAddressCount ->
                  fun ?hostVPCId ->
                    fun ?status ->
                      fun ?statusMessage ->
                        fun ?creationTime ->
                          fun ?modificationTime ->
                            fun ?outpostArn ->
                              fun ?preferredInstanceType ->
                                fun ?resolverEndpointType ->
                                  fun ?protocols ->
                                    fun ?rniEnhancedMetricsEnabled ->
                                      fun ?targetNameServerMetricsEnabled ->
                                        fun ?dns64Enabled ->
                                          fun ?ipv6InternetAccessEnabled ->
                                            fun () ->
                                              {
                                                id;
                                                creatorRequestId;
                                                arn;
                                                name;
                                                securityGroupIds;
                                                direction;
                                                ipAddressCount;
                                                hostVPCId;
                                                status;
                                                statusMessage;
                                                creationTime;
                                                modificationTime;
                                                outpostArn;
                                                preferredInstanceType;
                                                resolverEndpointType;
                                                protocols;
                                                rniEnhancedMetricsEnabled;
                                                targetNameServerMetricsEnabled;
                                                dns64Enabled;
                                                ipv6InternetAccessEnabled
                                              }
    let to_value x =
      structure_to_value
        [("Id", (Option.map x.id ~f:ResourceId.to_value));
        ("CreatorRequestId",
          (Option.map x.creatorRequestId ~f:CreatorRequestId.to_value));
        ("Arn", (Option.map x.arn ~f:Arn.to_value));
        ("Name", (Option.map x.name ~f:Name.to_value));
        ("SecurityGroupIds",
          (Option.map x.securityGroupIds ~f:SecurityGroupIds.to_value));
        ("Direction",
          (Option.map x.direction ~f:ResolverEndpointDirection.to_value));
        ("IpAddressCount",
          (Option.map x.ipAddressCount ~f:IpAddressCount.to_value));
        ("HostVPCId", (Option.map x.hostVPCId ~f:ResourceId.to_value));
        ("Status", (Option.map x.status ~f:ResolverEndpointStatus.to_value));
        ("StatusMessage",
          (Option.map x.statusMessage ~f:StatusMessage.to_value));
        ("CreationTime",
          (Option.map x.creationTime ~f:Rfc3339TimeString.to_value));
        ("ModificationTime",
          (Option.map x.modificationTime ~f:Rfc3339TimeString.to_value));
        ("OutpostArn", (Option.map x.outpostArn ~f:OutpostArn.to_value));
        ("PreferredInstanceType",
          (Option.map x.preferredInstanceType ~f:OutpostInstanceType.to_value));
        ("ResolverEndpointType",
          (Option.map x.resolverEndpointType ~f:ResolverEndpointType.to_value));
        ("Protocols", (Option.map x.protocols ~f:ProtocolList.to_value));
        ("RniEnhancedMetricsEnabled",
          (Option.map x.rniEnhancedMetricsEnabled
             ~f:RniEnhancedMetricsEnabled.to_value));
        ("TargetNameServerMetricsEnabled",
          (Option.map x.targetNameServerMetricsEnabled
             ~f:TargetNameServerMetricsEnabled.to_value));
        ("Dns64Enabled",
          (Option.map x.dns64Enabled ~f:Dns64Enabled.to_value));
        ("Ipv6InternetAccessEnabled",
          (Option.map x.ipv6InternetAccessEnabled
             ~f:Ipv6InternetAccessEnabled.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ipv6InternetAccessEnabled =
        (Option.map ~f:Ipv6InternetAccessEnabled.of_xml)
          (Xml.child xml_arg0 "Ipv6InternetAccessEnabled") in
      let dns64Enabled =
        (Option.map ~f:Dns64Enabled.of_xml)
          (Xml.child xml_arg0 "Dns64Enabled") in
      let targetNameServerMetricsEnabled =
        (Option.map ~f:TargetNameServerMetricsEnabled.of_xml)
          (Xml.child xml_arg0 "TargetNameServerMetricsEnabled") in
      let rniEnhancedMetricsEnabled =
        (Option.map ~f:RniEnhancedMetricsEnabled.of_xml)
          (Xml.child xml_arg0 "RniEnhancedMetricsEnabled") in
      let protocols =
        (Option.map ~f:ProtocolList.of_xml) (Xml.child xml_arg0 "Protocols") in
      let resolverEndpointType =
        (Option.map ~f:ResolverEndpointType.of_xml)
          (Xml.child xml_arg0 "ResolverEndpointType") in
      let preferredInstanceType =
        (Option.map ~f:OutpostInstanceType.of_xml)
          (Xml.child xml_arg0 "PreferredInstanceType") in
      let outpostArn =
        (Option.map ~f:OutpostArn.of_xml) (Xml.child xml_arg0 "OutpostArn") in
      let modificationTime =
        (Option.map ~f:Rfc3339TimeString.of_xml)
          (Xml.child xml_arg0 "ModificationTime") in
      let creationTime =
        (Option.map ~f:Rfc3339TimeString.of_xml)
          (Xml.child xml_arg0 "CreationTime") in
      let statusMessage =
        (Option.map ~f:StatusMessage.of_xml)
          (Xml.child xml_arg0 "StatusMessage") in
      let status =
        (Option.map ~f:ResolverEndpointStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let hostVPCId =
        (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "HostVPCId") in
      let ipAddressCount =
        (Option.map ~f:IpAddressCount.of_xml)
          (Xml.child xml_arg0 "IpAddressCount") in
      let direction =
        (Option.map ~f:ResolverEndpointDirection.of_xml)
          (Xml.child xml_arg0 "Direction") in
      let securityGroupIds =
        (Option.map ~f:SecurityGroupIds.of_xml)
          (Xml.child xml_arg0 "SecurityGroupIds") in
      let name = (Option.map ~f:Name.of_xml) (Xml.child xml_arg0 "Name") in
      let arn = (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "Arn") in
      let creatorRequestId =
        (Option.map ~f:CreatorRequestId.of_xml)
          (Xml.child xml_arg0 "CreatorRequestId") in
      let id = (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "Id") in
      make ?ipv6InternetAccessEnabled ?dns64Enabled
        ?targetNameServerMetricsEnabled ?rniEnhancedMetricsEnabled ?protocols
        ?resolverEndpointType ?preferredInstanceType ?outpostArn
        ?modificationTime ?creationTime ?statusMessage ?status ?hostVPCId
        ?ipAddressCount ?direction ?securityGroupIds ?name ?arn
        ?creatorRequestId ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ipv6InternetAccessEnabled =
        field_map json__ "Ipv6InternetAccessEnabled"
          Ipv6InternetAccessEnabled.of_json in
      let dns64Enabled = field_map json__ "Dns64Enabled" Dns64Enabled.of_json in
      let targetNameServerMetricsEnabled =
        field_map json__ "TargetNameServerMetricsEnabled"
          TargetNameServerMetricsEnabled.of_json in
      let rniEnhancedMetricsEnabled =
        field_map json__ "RniEnhancedMetricsEnabled"
          RniEnhancedMetricsEnabled.of_json in
      let protocols = field_map json__ "Protocols" ProtocolList.of_json in
      let resolverEndpointType =
        field_map json__ "ResolverEndpointType" ResolverEndpointType.of_json in
      let preferredInstanceType =
        field_map json__ "PreferredInstanceType" OutpostInstanceType.of_json in
      let outpostArn = field_map json__ "OutpostArn" OutpostArn.of_json in
      let modificationTime =
        field_map json__ "ModificationTime" Rfc3339TimeString.of_json in
      let creationTime =
        field_map json__ "CreationTime" Rfc3339TimeString.of_json in
      let statusMessage =
        field_map json__ "StatusMessage" StatusMessage.of_json in
      let status = field_map json__ "Status" ResolverEndpointStatus.of_json in
      let hostVPCId = field_map json__ "HostVPCId" ResourceId.of_json in
      let ipAddressCount =
        field_map json__ "IpAddressCount" IpAddressCount.of_json in
      let direction =
        field_map json__ "Direction" ResolverEndpointDirection.of_json in
      let securityGroupIds =
        field_map json__ "SecurityGroupIds" SecurityGroupIds.of_json in
      let name = field_map json__ "Name" Name.of_json in
      let arn = field_map json__ "Arn" Arn.of_json in
      let creatorRequestId =
        field_map json__ "CreatorRequestId" CreatorRequestId.of_json in
      let id = field_map json__ "Id" ResourceId.of_json in
      make ?ipv6InternetAccessEnabled ?dns64Enabled
        ?targetNameServerMetricsEnabled ?rniEnhancedMetricsEnabled ?protocols
        ?resolverEndpointType ?preferredInstanceType ?outpostArn
        ?modificationTime ?creationTime ?statusMessage ?status ?hostVPCId
        ?ipAddressCount ?direction ?securityGroupIds ?name ?arn
        ?creatorRequestId ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "In the response to a CreateResolverEndpoint, DeleteResolverEndpoint, GetResolverEndpoint, Updates the name, or ResolverEndpointType for an endpoint, or UpdateResolverEndpoint request, a complex type that contains settings for an existing inbound or outbound Resolver endpoint."]
module IpAddressResponse =
  struct
    type nonrec t =
      {
      ipId: ResourceId.t option [@ocaml.doc "The ID of one IP address."];
      subnetId: SubnetId.t option [@ocaml.doc "The ID of one subnet."];
      ip: Ip.t option
        [@ocaml.doc
          "One IPv4 address that the Resolver endpoint uses for DNS queries."];
      ipv6: Ipv6.t option
        [@ocaml.doc
          "One IPv6 address that the Resolver endpoint uses for DNS queries."];
      status: IpAddressStatus.t option
        [@ocaml.doc
          "A status code that gives the current status of the request."];
      statusMessage: StatusMessage.t option
        [@ocaml.doc
          "A message that provides additional information about the status of the request."];
      creationTime: Rfc3339TimeString.t option
        [@ocaml.doc
          "The date and time that the IP address was created, in Unix time format and Coordinated Universal Time (UTC)."];
      modificationTime: Rfc3339TimeString.t option
        [@ocaml.doc
          "The date and time that the IP address was last modified, in Unix time format and Coordinated Universal Time (UTC)."]}
    let make ?ipId =
      fun ?subnetId ->
        fun ?ip ->
          fun ?ipv6 ->
            fun ?status ->
              fun ?statusMessage ->
                fun ?creationTime ->
                  fun ?modificationTime ->
                    fun () ->
                      {
                        ipId;
                        subnetId;
                        ip;
                        ipv6;
                        status;
                        statusMessage;
                        creationTime;
                        modificationTime
                      }
    let to_value x =
      structure_to_value
        [("IpId", (Option.map x.ipId ~f:ResourceId.to_value));
        ("SubnetId", (Option.map x.subnetId ~f:SubnetId.to_value));
        ("Ip", (Option.map x.ip ~f:Ip.to_value));
        ("Ipv6", (Option.map x.ipv6 ~f:Ipv6.to_value));
        ("Status", (Option.map x.status ~f:IpAddressStatus.to_value));
        ("StatusMessage",
          (Option.map x.statusMessage ~f:StatusMessage.to_value));
        ("CreationTime",
          (Option.map x.creationTime ~f:Rfc3339TimeString.to_value));
        ("ModificationTime",
          (Option.map x.modificationTime ~f:Rfc3339TimeString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let modificationTime =
        (Option.map ~f:Rfc3339TimeString.of_xml)
          (Xml.child xml_arg0 "ModificationTime") in
      let creationTime =
        (Option.map ~f:Rfc3339TimeString.of_xml)
          (Xml.child xml_arg0 "CreationTime") in
      let statusMessage =
        (Option.map ~f:StatusMessage.of_xml)
          (Xml.child xml_arg0 "StatusMessage") in
      let status =
        (Option.map ~f:IpAddressStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let ipv6 = (Option.map ~f:Ipv6.of_xml) (Xml.child xml_arg0 "Ipv6") in
      let ip = (Option.map ~f:Ip.of_xml) (Xml.child xml_arg0 "Ip") in
      let subnetId =
        (Option.map ~f:SubnetId.of_xml) (Xml.child xml_arg0 "SubnetId") in
      let ipId =
        (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "IpId") in
      make ?modificationTime ?creationTime ?statusMessage ?status ?ipv6 ?ip
        ?subnetId ?ipId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let modificationTime =
        field_map json__ "ModificationTime" Rfc3339TimeString.of_json in
      let creationTime =
        field_map json__ "CreationTime" Rfc3339TimeString.of_json in
      let statusMessage =
        field_map json__ "StatusMessage" StatusMessage.of_json in
      let status = field_map json__ "Status" IpAddressStatus.of_json in
      let ipv6 = field_map json__ "Ipv6" Ipv6.of_json in
      let ip = field_map json__ "Ip" Ip.of_json in
      let subnetId = field_map json__ "SubnetId" SubnetId.of_json in
      let ipId = field_map json__ "IpId" ResourceId.of_json in
      make ?modificationTime ?creationTime ?statusMessage ?status ?ipv6 ?ip
        ?subnetId ?ipId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "In the response to a GetResolverEndpoint request, information about the IP addresses that the Resolver endpoint uses for DNS queries."]
module ResolverDnssecConfig =
  struct
    type nonrec t =
      {
      id: ResourceId.t option
        [@ocaml.doc "The ID for a configuration for DNSSEC validation."];
      ownerId: AccountId.t option
        [@ocaml.doc
          "The owner account ID of the virtual private cloud (VPC) for a configuration for DNSSEC validation."];
      resourceId: ResourceId.t option
        [@ocaml.doc
          "The ID of the virtual private cloud (VPC) that you're configuring the DNSSEC validation status for."];
      validationStatus: ResolverDNSSECValidationStatus.t option
        [@ocaml.doc
          "The validation status for a DNSSEC configuration. The status can be one of the following: ENABLING: DNSSEC validation is being enabled but is not complete. ENABLED: DNSSEC validation is enabled. DISABLING: DNSSEC validation is being disabled but is not complete. DISABLED DNSSEC validation is disabled."]}
    let make ?id =
      fun ?ownerId ->
        fun ?resourceId ->
          fun ?validationStatus ->
            fun () -> { id; ownerId; resourceId; validationStatus }
    let to_value x =
      structure_to_value
        [("Id", (Option.map x.id ~f:ResourceId.to_value));
        ("OwnerId", (Option.map x.ownerId ~f:AccountId.to_value));
        ("ResourceId", (Option.map x.resourceId ~f:ResourceId.to_value));
        ("ValidationStatus",
          (Option.map x.validationStatus
             ~f:ResolverDNSSECValidationStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let validationStatus =
        (Option.map ~f:ResolverDNSSECValidationStatus.of_xml)
          (Xml.child xml_arg0 "ValidationStatus") in
      let resourceId =
        (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "ResourceId") in
      let ownerId =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "OwnerId") in
      let id = (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "Id") in
      make ?validationStatus ?resourceId ?ownerId ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let validationStatus =
        field_map json__ "ValidationStatus"
          ResolverDNSSECValidationStatus.of_json in
      let resourceId = field_map json__ "ResourceId" ResourceId.of_json in
      let ownerId = field_map json__ "OwnerId" AccountId.of_json in
      let id = field_map json__ "Id" ResourceId.of_json in
      make ?validationStatus ?resourceId ?ownerId ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A complex type that contains information about a configuration for DNSSEC validation."]
module ResolverConfig =
  struct
    type nonrec t =
      {
      id: ResourceId.t option
        [@ocaml.doc "ID for the Resolver configuration."];
      resourceId: ResourceId.t option
        [@ocaml.doc
          "The ID of the Amazon Virtual Private Cloud VPC or a Route 53 Profile that you're configuring Resolver for."];
      ownerId: AccountId.t option
        [@ocaml.doc
          "The owner account ID of the Amazon Virtual Private Cloud VPC."];
      autodefinedReverse: ResolverAutodefinedReverseStatus.t option
        [@ocaml.doc
          "The status of whether or not the Resolver will create autodefined rules for reverse DNS lookups. This is enabled by default. The status can be one of following: ENABLING: Autodefined rules for reverse DNS lookups are being enabled but are not complete. ENABLED: Autodefined rules for reverse DNS lookups are enabled. DISABLING: Autodefined rules for reverse DNS lookups are being disabled but are not complete. DISABLED: Autodefined rules for reverse DNS lookups are disabled."]}
    let make ?id =
      fun ?resourceId ->
        fun ?ownerId ->
          fun ?autodefinedReverse ->
            fun () -> { id; resourceId; ownerId; autodefinedReverse }
    let to_value x =
      structure_to_value
        [("Id", (Option.map x.id ~f:ResourceId.to_value));
        ("ResourceId", (Option.map x.resourceId ~f:ResourceId.to_value));
        ("OwnerId", (Option.map x.ownerId ~f:AccountId.to_value));
        ("AutodefinedReverse",
          (Option.map x.autodefinedReverse
             ~f:ResolverAutodefinedReverseStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let autodefinedReverse =
        (Option.map ~f:ResolverAutodefinedReverseStatus.of_xml)
          (Xml.child xml_arg0 "AutodefinedReverse") in
      let ownerId =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "OwnerId") in
      let resourceId =
        (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "ResourceId") in
      let id = (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "Id") in
      make ?autodefinedReverse ?ownerId ?resourceId ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let autodefinedReverse =
        field_map json__ "AutodefinedReverse"
          ResolverAutodefinedReverseStatus.of_json in
      let ownerId = field_map json__ "OwnerId" AccountId.of_json in
      let resourceId = field_map json__ "ResourceId" ResourceId.of_json in
      let id = field_map json__ "Id" ResourceId.of_json in
      make ?autodefinedReverse ?ownerId ?resourceId ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A complex type that contains information about a Resolver configuration for a VPC."]
module OutpostResolver =
  struct
    type nonrec t =
      {
      arn: Arn.t option
        [@ocaml.doc
          "The ARN (Amazon Resource Name) for the Resolver on an Outpost."];
      creationTime: Rfc3339TimeString.t option
        [@ocaml.doc
          "The date and time that the Outpost Resolver was created, in Unix time format and Coordinated Universal Time (UTC)."];
      modificationTime: Rfc3339TimeString.t option
        [@ocaml.doc
          "The date and time that the Outpost Resolver was modified, in Unix time format and Coordinated Universal Time (UTC)."];
      creatorRequestId: CreatorRequestId.t option
        [@ocaml.doc
          "A unique string that identifies the request that created the Resolver endpoint. The CreatorRequestId allows failed requests to be retried without the risk of running the operation twice."];
      id: ResourceId.t option
        [@ocaml.doc "The ID of the Resolver on Outpost."];
      instanceCount: InstanceCount.t option
        [@ocaml.doc
          "Amazon EC2 instance count for the Resolver on the Outpost."];
      preferredInstanceType: OutpostInstanceType.t option
        [@ocaml.doc "The Amazon EC2 instance type."];
      name: OutpostResolverName.t option [@ocaml.doc "Name of the Resolver."];
      status: OutpostResolverStatus.t option
        [@ocaml.doc "Status of the Resolver."];
      statusMessage: OutpostResolverStatusMessage.t option
        [@ocaml.doc "A detailed description of the Resolver."];
      outpostArn: OutpostArn.t option
        [@ocaml.doc "The ARN (Amazon Resource Name) for the Outpost."]}
    let make ?arn =
      fun ?creationTime ->
        fun ?modificationTime ->
          fun ?creatorRequestId ->
            fun ?id ->
              fun ?instanceCount ->
                fun ?preferredInstanceType ->
                  fun ?name ->
                    fun ?status ->
                      fun ?statusMessage ->
                        fun ?outpostArn ->
                          fun () ->
                            {
                              arn;
                              creationTime;
                              modificationTime;
                              creatorRequestId;
                              id;
                              instanceCount;
                              preferredInstanceType;
                              name;
                              status;
                              statusMessage;
                              outpostArn
                            }
    let to_value x =
      structure_to_value
        [("Arn", (Option.map x.arn ~f:Arn.to_value));
        ("CreationTime",
          (Option.map x.creationTime ~f:Rfc3339TimeString.to_value));
        ("ModificationTime",
          (Option.map x.modificationTime ~f:Rfc3339TimeString.to_value));
        ("CreatorRequestId",
          (Option.map x.creatorRequestId ~f:CreatorRequestId.to_value));
        ("Id", (Option.map x.id ~f:ResourceId.to_value));
        ("InstanceCount",
          (Option.map x.instanceCount ~f:InstanceCount.to_value));
        ("PreferredInstanceType",
          (Option.map x.preferredInstanceType ~f:OutpostInstanceType.to_value));
        ("Name", (Option.map x.name ~f:OutpostResolverName.to_value));
        ("Status", (Option.map x.status ~f:OutpostResolverStatus.to_value));
        ("StatusMessage",
          (Option.map x.statusMessage
             ~f:OutpostResolverStatusMessage.to_value));
        ("OutpostArn", (Option.map x.outpostArn ~f:OutpostArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let outpostArn =
        (Option.map ~f:OutpostArn.of_xml) (Xml.child xml_arg0 "OutpostArn") in
      let statusMessage =
        (Option.map ~f:OutpostResolverStatusMessage.of_xml)
          (Xml.child xml_arg0 "StatusMessage") in
      let status =
        (Option.map ~f:OutpostResolverStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let name =
        (Option.map ~f:OutpostResolverName.of_xml)
          (Xml.child xml_arg0 "Name") in
      let preferredInstanceType =
        (Option.map ~f:OutpostInstanceType.of_xml)
          (Xml.child xml_arg0 "PreferredInstanceType") in
      let instanceCount =
        (Option.map ~f:InstanceCount.of_xml)
          (Xml.child xml_arg0 "InstanceCount") in
      let id = (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "Id") in
      let creatorRequestId =
        (Option.map ~f:CreatorRequestId.of_xml)
          (Xml.child xml_arg0 "CreatorRequestId") in
      let modificationTime =
        (Option.map ~f:Rfc3339TimeString.of_xml)
          (Xml.child xml_arg0 "ModificationTime") in
      let creationTime =
        (Option.map ~f:Rfc3339TimeString.of_xml)
          (Xml.child xml_arg0 "CreationTime") in
      let arn = (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "Arn") in
      make ?outpostArn ?statusMessage ?status ?name ?preferredInstanceType
        ?instanceCount ?id ?creatorRequestId ?modificationTime ?creationTime
        ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let outpostArn = field_map json__ "OutpostArn" OutpostArn.of_json in
      let statusMessage =
        field_map json__ "StatusMessage" OutpostResolverStatusMessage.of_json in
      let status = field_map json__ "Status" OutpostResolverStatus.of_json in
      let name = field_map json__ "Name" OutpostResolverName.of_json in
      let preferredInstanceType =
        field_map json__ "PreferredInstanceType" OutpostInstanceType.of_json in
      let instanceCount =
        field_map json__ "InstanceCount" InstanceCount.of_json in
      let id = field_map json__ "Id" ResourceId.of_json in
      let creatorRequestId =
        field_map json__ "CreatorRequestId" CreatorRequestId.of_json in
      let modificationTime =
        field_map json__ "ModificationTime" Rfc3339TimeString.of_json in
      let creationTime =
        field_map json__ "CreationTime" Rfc3339TimeString.of_json in
      let arn = field_map json__ "Arn" Arn.of_json in
      make ?outpostArn ?statusMessage ?status ?name ?preferredInstanceType
        ?instanceCount ?id ?creatorRequestId ?modificationTime ?creationTime
        ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A complex type that contains settings for an existing Resolver on an Outpost."]
module FirewallRule =
  struct
    type nonrec t =
      {
      firewallRuleGroupId: ResourceId.t option
        [@ocaml.doc
          "The unique identifier of the Firewall rule group of the rule."];
      firewallDomainListId: ResourceId.t option
        [@ocaml.doc "The ID of the domain list that's used in the rule."];
      firewallThreatProtectionId: ResourceId.t option
        [@ocaml.doc "ID of the DNS Firewall Advanced rule."];
      name: Name.t option [@ocaml.doc "The name of the rule."];
      priority: Priority.t option
        [@ocaml.doc
          "The priority of the rule in the rule group. This value must be unique within the rule group. DNS Firewall processes the rules in a rule group by order of priority, starting from the lowest setting."];
      action: Action.t option
        [@ocaml.doc
          "The action that DNS Firewall should take on a DNS query when it matches one of the domains in the rule's domain list, or a threat in a DNS Firewall Advanced rule: ALLOW - Permit the request to go through. Not available for DNS Firewall Advanced rules. ALERT - Permit the request to go through but send an alert to the logs. BLOCK - Disallow the request. If this is specified, additional handling details are provided in the rule's BlockResponse setting."];
      blockResponse: BlockResponse.t option
        [@ocaml.doc
          "The way that you want DNS Firewall to block the request. Used for the rule action setting BLOCK. NODATA - Respond indicating that the query was successful, but no response is available for it. NXDOMAIN - Respond indicating that the domain name that's in the query doesn't exist. OVERRIDE - Provide a custom override in the response. This option requires custom handling details in the rule's BlockOverride* settings."];
      blockOverrideDomain: BlockOverrideDomain.t option
        [@ocaml.doc
          "The custom DNS record to send back in response to the query. Used for the rule action BLOCK with a BlockResponse setting of OVERRIDE."];
      blockOverrideDnsType: BlockOverrideDnsType.t option
        [@ocaml.doc
          "The DNS record's type. This determines the format of the record value that you provided in BlockOverrideDomain. Used for the rule action BLOCK with a BlockResponse setting of OVERRIDE."];
      blockOverrideTtl: Unsigned.t option
        [@ocaml.doc
          "The recommended amount of time, in seconds, for the DNS resolver or web browser to cache the provided override record. Used for the rule action BLOCK with a BlockResponse setting of OVERRIDE."];
      creatorRequestId: CreatorRequestId.t option
        [@ocaml.doc
          "A unique string defined by you to identify the request. This allows you to retry failed requests without the risk of executing the operation twice. This can be any unique string, for example, a timestamp."];
      creationTime: Rfc3339TimeString.t option
        [@ocaml.doc
          "The date and time that the rule was created, in Unix time format and Coordinated Universal Time (UTC)."];
      modificationTime: Rfc3339TimeString.t option
        [@ocaml.doc
          "The date and time that the rule was last modified, in Unix time format and Coordinated Universal Time (UTC)."];
      firewallDomainRedirectionAction:
        FirewallDomainRedirectionAction.t option
        [@ocaml.doc
          "How you want the the rule to evaluate DNS redirection in the DNS redirection chain, such as CNAME or DNAME. INSPECT_REDIRECTION_DOMAIN: (Default) inspects all domains in the redirection chain. The individual domains in the redirection chain must be added to the domain list. TRUST_REDIRECTION_DOMAIN: Inspects only the first domain in the redirection chain. You don't need to add the subsequent domains in the domain in the redirection list to the domain list."];
      qtype: Qtype.t option
        [@ocaml.doc
          "The DNS query type you want the rule to evaluate. Allowed values are; A: Returns an IPv4 address. AAAA: Returns an Ipv6 address. CAA: Restricts CAs that can create SSL/TLS certifications for the domain. CNAME: Returns another domain name. DS: Record that identifies the DNSSEC signing key of a delegated zone. MX: Specifies mail servers. NAPTR: Regular-expression-based rewriting of domain names. NS: Authoritative name servers. PTR: Maps an IP address to a domain name. SOA: Start of authority record for the zone. SPF: Lists the servers authorized to send emails from a domain. SRV: Application specific values that identify servers. TXT: Verifies email senders and application-specific values. A query type you define by using the DNS type ID, for example 28 for AAAA. The values must be defined as TYPENUMBER, where the NUMBER can be 1-65334, for example, TYPE28. For more information, see List of DNS record types."];
      dnsThreatProtection: DnsThreatProtection.t option
        [@ocaml.doc
          "The type of the DNS Firewall Advanced rule. Valid values are: DGA: Domain generation algorithms detection. DGAs are used by attackers to generate a large number of domains to to launch malware attacks. DNS_TUNNELING: DNS tunneling detection. DNS tunneling is used by attackers to exfiltrate data from the client by using the DNS tunnel without making a network connection to the client."];
      confidenceThreshold: ConfidenceThreshold.t option
        [@ocaml.doc
          "The confidence threshold for DNS Firewall Advanced. You must provide this value when you create a DNS Firewall Advanced rule. The confidence level values mean: LOW: Provides the highest detection rate for threats, but also increases false positives. MEDIUM: Provides a balance between detecting threats and false positives. HIGH: Detects only the most well corroborated threats with a low rate of false positives."]}
    let make ?firewallRuleGroupId =
      fun ?firewallDomainListId ->
        fun ?firewallThreatProtectionId ->
          fun ?name ->
            fun ?priority ->
              fun ?action ->
                fun ?blockResponse ->
                  fun ?blockOverrideDomain ->
                    fun ?blockOverrideDnsType ->
                      fun ?blockOverrideTtl ->
                        fun ?creatorRequestId ->
                          fun ?creationTime ->
                            fun ?modificationTime ->
                              fun ?firewallDomainRedirectionAction ->
                                fun ?qtype ->
                                  fun ?dnsThreatProtection ->
                                    fun ?confidenceThreshold ->
                                      fun () ->
                                        {
                                          firewallRuleGroupId;
                                          firewallDomainListId;
                                          firewallThreatProtectionId;
                                          name;
                                          priority;
                                          action;
                                          blockResponse;
                                          blockOverrideDomain;
                                          blockOverrideDnsType;
                                          blockOverrideTtl;
                                          creatorRequestId;
                                          creationTime;
                                          modificationTime;
                                          firewallDomainRedirectionAction;
                                          qtype;
                                          dnsThreatProtection;
                                          confidenceThreshold
                                        }
    let to_value x =
      structure_to_value
        [("FirewallRuleGroupId",
           (Option.map x.firewallRuleGroupId ~f:ResourceId.to_value));
        ("FirewallDomainListId",
          (Option.map x.firewallDomainListId ~f:ResourceId.to_value));
        ("FirewallThreatProtectionId",
          (Option.map x.firewallThreatProtectionId ~f:ResourceId.to_value));
        ("Name", (Option.map x.name ~f:Name.to_value));
        ("Priority", (Option.map x.priority ~f:Priority.to_value));
        ("Action", (Option.map x.action ~f:Action.to_value));
        ("BlockResponse",
          (Option.map x.blockResponse ~f:BlockResponse.to_value));
        ("BlockOverrideDomain",
          (Option.map x.blockOverrideDomain ~f:BlockOverrideDomain.to_value));
        ("BlockOverrideDnsType",
          (Option.map x.blockOverrideDnsType ~f:BlockOverrideDnsType.to_value));
        ("BlockOverrideTtl",
          (Option.map x.blockOverrideTtl ~f:Unsigned.to_value));
        ("CreatorRequestId",
          (Option.map x.creatorRequestId ~f:CreatorRequestId.to_value));
        ("CreationTime",
          (Option.map x.creationTime ~f:Rfc3339TimeString.to_value));
        ("ModificationTime",
          (Option.map x.modificationTime ~f:Rfc3339TimeString.to_value));
        ("FirewallDomainRedirectionAction",
          (Option.map x.firewallDomainRedirectionAction
             ~f:FirewallDomainRedirectionAction.to_value));
        ("Qtype", (Option.map x.qtype ~f:Qtype.to_value));
        ("DnsThreatProtection",
          (Option.map x.dnsThreatProtection ~f:DnsThreatProtection.to_value));
        ("ConfidenceThreshold",
          (Option.map x.confidenceThreshold ~f:ConfidenceThreshold.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let confidenceThreshold =
        (Option.map ~f:ConfidenceThreshold.of_xml)
          (Xml.child xml_arg0 "ConfidenceThreshold") in
      let dnsThreatProtection =
        (Option.map ~f:DnsThreatProtection.of_xml)
          (Xml.child xml_arg0 "DnsThreatProtection") in
      let qtype = (Option.map ~f:Qtype.of_xml) (Xml.child xml_arg0 "Qtype") in
      let firewallDomainRedirectionAction =
        (Option.map ~f:FirewallDomainRedirectionAction.of_xml)
          (Xml.child xml_arg0 "FirewallDomainRedirectionAction") in
      let modificationTime =
        (Option.map ~f:Rfc3339TimeString.of_xml)
          (Xml.child xml_arg0 "ModificationTime") in
      let creationTime =
        (Option.map ~f:Rfc3339TimeString.of_xml)
          (Xml.child xml_arg0 "CreationTime") in
      let creatorRequestId =
        (Option.map ~f:CreatorRequestId.of_xml)
          (Xml.child xml_arg0 "CreatorRequestId") in
      let blockOverrideTtl =
        (Option.map ~f:Unsigned.of_xml)
          (Xml.child xml_arg0 "BlockOverrideTtl") in
      let blockOverrideDnsType =
        (Option.map ~f:BlockOverrideDnsType.of_xml)
          (Xml.child xml_arg0 "BlockOverrideDnsType") in
      let blockOverrideDomain =
        (Option.map ~f:BlockOverrideDomain.of_xml)
          (Xml.child xml_arg0 "BlockOverrideDomain") in
      let blockResponse =
        (Option.map ~f:BlockResponse.of_xml)
          (Xml.child xml_arg0 "BlockResponse") in
      let action =
        (Option.map ~f:Action.of_xml) (Xml.child xml_arg0 "Action") in
      let priority =
        (Option.map ~f:Priority.of_xml) (Xml.child xml_arg0 "Priority") in
      let name = (Option.map ~f:Name.of_xml) (Xml.child xml_arg0 "Name") in
      let firewallThreatProtectionId =
        (Option.map ~f:ResourceId.of_xml)
          (Xml.child xml_arg0 "FirewallThreatProtectionId") in
      let firewallDomainListId =
        (Option.map ~f:ResourceId.of_xml)
          (Xml.child xml_arg0 "FirewallDomainListId") in
      let firewallRuleGroupId =
        (Option.map ~f:ResourceId.of_xml)
          (Xml.child xml_arg0 "FirewallRuleGroupId") in
      make ?confidenceThreshold ?dnsThreatProtection ?qtype
        ?firewallDomainRedirectionAction ?modificationTime ?creationTime
        ?creatorRequestId ?blockOverrideTtl ?blockOverrideDnsType
        ?blockOverrideDomain ?blockResponse ?action ?priority ?name
        ?firewallThreatProtectionId ?firewallDomainListId
        ?firewallRuleGroupId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let confidenceThreshold =
        field_map json__ "ConfidenceThreshold" ConfidenceThreshold.of_json in
      let dnsThreatProtection =
        field_map json__ "DnsThreatProtection" DnsThreatProtection.of_json in
      let qtype = field_map json__ "Qtype" Qtype.of_json in
      let firewallDomainRedirectionAction =
        field_map json__ "FirewallDomainRedirectionAction"
          FirewallDomainRedirectionAction.of_json in
      let modificationTime =
        field_map json__ "ModificationTime" Rfc3339TimeString.of_json in
      let creationTime =
        field_map json__ "CreationTime" Rfc3339TimeString.of_json in
      let creatorRequestId =
        field_map json__ "CreatorRequestId" CreatorRequestId.of_json in
      let blockOverrideTtl =
        field_map json__ "BlockOverrideTtl" Unsigned.of_json in
      let blockOverrideDnsType =
        field_map json__ "BlockOverrideDnsType" BlockOverrideDnsType.of_json in
      let blockOverrideDomain =
        field_map json__ "BlockOverrideDomain" BlockOverrideDomain.of_json in
      let blockResponse =
        field_map json__ "BlockResponse" BlockResponse.of_json in
      let action = field_map json__ "Action" Action.of_json in
      let priority = field_map json__ "Priority" Priority.of_json in
      let name = field_map json__ "Name" Name.of_json in
      let firewallThreatProtectionId =
        field_map json__ "FirewallThreatProtectionId" ResourceId.of_json in
      let firewallDomainListId =
        field_map json__ "FirewallDomainListId" ResourceId.of_json in
      let firewallRuleGroupId =
        field_map json__ "FirewallRuleGroupId" ResourceId.of_json in
      make ?confidenceThreshold ?dnsThreatProtection ?qtype
        ?firewallDomainRedirectionAction ?modificationTime ?creationTime
        ?creatorRequestId ?blockOverrideTtl ?blockOverrideDnsType
        ?blockOverrideDomain ?blockResponse ?action ?priority ?name
        ?firewallThreatProtectionId ?firewallDomainListId
        ?firewallRuleGroupId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A single firewall rule in a rule group."]
module FirewallRuleGroupMetadata =
  struct
    type nonrec t =
      {
      id: ResourceId.t option [@ocaml.doc "The ID of the rule group."];
      arn: Arn.t option
        [@ocaml.doc "The ARN (Amazon Resource Name) of the rule group."];
      name: Name.t option [@ocaml.doc "The name of the rule group."];
      ownerId: AccountId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID for the account that created the rule group. When a rule group is shared with your account, this is the account that has shared the rule group with you."];
      creatorRequestId: CreatorRequestId.t option
        [@ocaml.doc
          "A unique string defined by you to identify the request. This allows you to retry failed requests without the risk of running the operation twice. This can be any unique string, for example, a timestamp."];
      shareStatus: ShareStatus.t option
        [@ocaml.doc
          "Whether the rule group is shared with other Amazon Web Services accounts, or was shared with the current account by another Amazon Web Services account. Sharing is configured through Resource Access Manager (RAM)."]}
    let make ?id =
      fun ?arn ->
        fun ?name ->
          fun ?ownerId ->
            fun ?creatorRequestId ->
              fun ?shareStatus ->
                fun () ->
                  { id; arn; name; ownerId; creatorRequestId; shareStatus }
    let to_value x =
      structure_to_value
        [("Id", (Option.map x.id ~f:ResourceId.to_value));
        ("Arn", (Option.map x.arn ~f:Arn.to_value));
        ("Name", (Option.map x.name ~f:Name.to_value));
        ("OwnerId", (Option.map x.ownerId ~f:AccountId.to_value));
        ("CreatorRequestId",
          (Option.map x.creatorRequestId ~f:CreatorRequestId.to_value));
        ("ShareStatus", (Option.map x.shareStatus ~f:ShareStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let shareStatus =
        (Option.map ~f:ShareStatus.of_xml) (Xml.child xml_arg0 "ShareStatus") in
      let creatorRequestId =
        (Option.map ~f:CreatorRequestId.of_xml)
          (Xml.child xml_arg0 "CreatorRequestId") in
      let ownerId =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "OwnerId") in
      let name = (Option.map ~f:Name.of_xml) (Xml.child xml_arg0 "Name") in
      let arn = (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "Arn") in
      let id = (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "Id") in
      make ?shareStatus ?creatorRequestId ?ownerId ?name ?arn ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let shareStatus = field_map json__ "ShareStatus" ShareStatus.of_json in
      let creatorRequestId =
        field_map json__ "CreatorRequestId" CreatorRequestId.of_json in
      let ownerId = field_map json__ "OwnerId" AccountId.of_json in
      let name = field_map json__ "Name" Name.of_json in
      let arn = field_map json__ "Arn" Arn.of_json in
      let id = field_map json__ "Id" ResourceId.of_json in
      make ?shareStatus ?creatorRequestId ?ownerId ?name ?arn ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Minimal high-level information for a firewall rule group. The action ListFirewallRuleGroups returns an array of these objects. To retrieve full information for a firewall rule group, call GetFirewallRuleGroup and ListFirewallRules."]
module FirewallRuleGroupAssociation =
  struct
    type nonrec t =
      {
      id: ResourceId.t option
        [@ocaml.doc "The identifier for the association."];
      arn: Arn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the firewall rule group association."];
      firewallRuleGroupId: ResourceId.t option
        [@ocaml.doc "The unique identifier of the firewall rule group."];
      vpcId: ResourceId.t option
        [@ocaml.doc
          "The unique identifier of the VPC that is associated with the rule group."];
      name: Name.t option [@ocaml.doc "The name of the association."];
      priority: Priority.t option
        [@ocaml.doc
          "The setting that determines the processing order of the rule group among the rule groups that are associated with a single VPC. DNS Firewall filters VPC traffic starting from rule group with the lowest numeric priority setting."];
      mutationProtection: MutationProtectionStatus.t option
        [@ocaml.doc
          "If enabled, this setting disallows modification or removal of the association, to help prevent against accidentally altering DNS firewall protections."];
      managedOwnerName: ServicePrinciple.t option
        [@ocaml.doc
          "The owner of the association, used only for associations that are not managed by you. If you use Firewall Manager to manage your DNS Firewalls, then this reports Firewall Manager as the managed owner."];
      status: FirewallRuleGroupAssociationStatus.t option
        [@ocaml.doc "The current status of the association."];
      statusMessage: StatusMessage.t option
        [@ocaml.doc
          "Additional information about the status of the response, if available."];
      creatorRequestId: CreatorRequestId.t option
        [@ocaml.doc
          "A unique string defined by you to identify the request. This allows you to retry failed requests without the risk of running the operation twice. This can be any unique string, for example, a timestamp."];
      creationTime: Rfc3339TimeString.t option
        [@ocaml.doc
          "The date and time that the association was created, in Unix time format and Coordinated Universal Time (UTC)."];
      modificationTime: Rfc3339TimeString.t option
        [@ocaml.doc
          "The date and time that the association was last modified, in Unix time format and Coordinated Universal Time (UTC)."]}
    let make ?id =
      fun ?arn ->
        fun ?firewallRuleGroupId ->
          fun ?vpcId ->
            fun ?name ->
              fun ?priority ->
                fun ?mutationProtection ->
                  fun ?managedOwnerName ->
                    fun ?status ->
                      fun ?statusMessage ->
                        fun ?creatorRequestId ->
                          fun ?creationTime ->
                            fun ?modificationTime ->
                              fun () ->
                                {
                                  id;
                                  arn;
                                  firewallRuleGroupId;
                                  vpcId;
                                  name;
                                  priority;
                                  mutationProtection;
                                  managedOwnerName;
                                  status;
                                  statusMessage;
                                  creatorRequestId;
                                  creationTime;
                                  modificationTime
                                }
    let to_value x =
      structure_to_value
        [("Id", (Option.map x.id ~f:ResourceId.to_value));
        ("Arn", (Option.map x.arn ~f:Arn.to_value));
        ("FirewallRuleGroupId",
          (Option.map x.firewallRuleGroupId ~f:ResourceId.to_value));
        ("VpcId", (Option.map x.vpcId ~f:ResourceId.to_value));
        ("Name", (Option.map x.name ~f:Name.to_value));
        ("Priority", (Option.map x.priority ~f:Priority.to_value));
        ("MutationProtection",
          (Option.map x.mutationProtection
             ~f:MutationProtectionStatus.to_value));
        ("ManagedOwnerName",
          (Option.map x.managedOwnerName ~f:ServicePrinciple.to_value));
        ("Status",
          (Option.map x.status ~f:FirewallRuleGroupAssociationStatus.to_value));
        ("StatusMessage",
          (Option.map x.statusMessage ~f:StatusMessage.to_value));
        ("CreatorRequestId",
          (Option.map x.creatorRequestId ~f:CreatorRequestId.to_value));
        ("CreationTime",
          (Option.map x.creationTime ~f:Rfc3339TimeString.to_value));
        ("ModificationTime",
          (Option.map x.modificationTime ~f:Rfc3339TimeString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let modificationTime =
        (Option.map ~f:Rfc3339TimeString.of_xml)
          (Xml.child xml_arg0 "ModificationTime") in
      let creationTime =
        (Option.map ~f:Rfc3339TimeString.of_xml)
          (Xml.child xml_arg0 "CreationTime") in
      let creatorRequestId =
        (Option.map ~f:CreatorRequestId.of_xml)
          (Xml.child xml_arg0 "CreatorRequestId") in
      let statusMessage =
        (Option.map ~f:StatusMessage.of_xml)
          (Xml.child xml_arg0 "StatusMessage") in
      let status =
        (Option.map ~f:FirewallRuleGroupAssociationStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let managedOwnerName =
        (Option.map ~f:ServicePrinciple.of_xml)
          (Xml.child xml_arg0 "ManagedOwnerName") in
      let mutationProtection =
        (Option.map ~f:MutationProtectionStatus.of_xml)
          (Xml.child xml_arg0 "MutationProtection") in
      let priority =
        (Option.map ~f:Priority.of_xml) (Xml.child xml_arg0 "Priority") in
      let name = (Option.map ~f:Name.of_xml) (Xml.child xml_arg0 "Name") in
      let vpcId =
        (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "VpcId") in
      let firewallRuleGroupId =
        (Option.map ~f:ResourceId.of_xml)
          (Xml.child xml_arg0 "FirewallRuleGroupId") in
      let arn = (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "Arn") in
      let id = (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "Id") in
      make ?modificationTime ?creationTime ?creatorRequestId ?statusMessage
        ?status ?managedOwnerName ?mutationProtection ?priority ?name ?vpcId
        ?firewallRuleGroupId ?arn ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let modificationTime =
        field_map json__ "ModificationTime" Rfc3339TimeString.of_json in
      let creationTime =
        field_map json__ "CreationTime" Rfc3339TimeString.of_json in
      let creatorRequestId =
        field_map json__ "CreatorRequestId" CreatorRequestId.of_json in
      let statusMessage =
        field_map json__ "StatusMessage" StatusMessage.of_json in
      let status =
        field_map json__ "Status" FirewallRuleGroupAssociationStatus.of_json in
      let managedOwnerName =
        field_map json__ "ManagedOwnerName" ServicePrinciple.of_json in
      let mutationProtection =
        field_map json__ "MutationProtection"
          MutationProtectionStatus.of_json in
      let priority = field_map json__ "Priority" Priority.of_json in
      let name = field_map json__ "Name" Name.of_json in
      let vpcId = field_map json__ "VpcId" ResourceId.of_json in
      let firewallRuleGroupId =
        field_map json__ "FirewallRuleGroupId" ResourceId.of_json in
      let arn = field_map json__ "Arn" Arn.of_json in
      let id = field_map json__ "Id" ResourceId.of_json in
      make ?modificationTime ?creationTime ?creatorRequestId ?statusMessage
        ?status ?managedOwnerName ?mutationProtection ?priority ?name ?vpcId
        ?firewallRuleGroupId ?arn ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An association between a firewall rule group and a VPC, which enables DNS filtering for the VPC."]
module FirewallDomainListMetadata =
  struct
    type nonrec t =
      {
      id: ResourceId.t option [@ocaml.doc "The ID of the domain list."];
      arn: Arn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the firewall domain list metadata."];
      name: Name.t option [@ocaml.doc "The name of the domain list."];
      creatorRequestId: CreatorRequestId.t option
        [@ocaml.doc
          "A unique string defined by you to identify the request. This allows you to retry failed requests without the risk of running the operation twice. This can be any unique string, for example, a timestamp."];
      managedOwnerName: ServicePrinciple.t option
        [@ocaml.doc
          "The owner of the list, used only for lists that are not managed by you. For example, the managed domain list AWSManagedDomainsMalwareDomainList has the managed owner name Route 53 Resolver DNS Firewall."]}
    let make ?id =
      fun ?arn ->
        fun ?name ->
          fun ?creatorRequestId ->
            fun ?managedOwnerName ->
              fun () -> { id; arn; name; creatorRequestId; managedOwnerName }
    let to_value x =
      structure_to_value
        [("Id", (Option.map x.id ~f:ResourceId.to_value));
        ("Arn", (Option.map x.arn ~f:Arn.to_value));
        ("Name", (Option.map x.name ~f:Name.to_value));
        ("CreatorRequestId",
          (Option.map x.creatorRequestId ~f:CreatorRequestId.to_value));
        ("ManagedOwnerName",
          (Option.map x.managedOwnerName ~f:ServicePrinciple.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let managedOwnerName =
        (Option.map ~f:ServicePrinciple.of_xml)
          (Xml.child xml_arg0 "ManagedOwnerName") in
      let creatorRequestId =
        (Option.map ~f:CreatorRequestId.of_xml)
          (Xml.child xml_arg0 "CreatorRequestId") in
      let name = (Option.map ~f:Name.of_xml) (Xml.child xml_arg0 "Name") in
      let arn = (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "Arn") in
      let id = (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "Id") in
      make ?managedOwnerName ?creatorRequestId ?name ?arn ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let managedOwnerName =
        field_map json__ "ManagedOwnerName" ServicePrinciple.of_json in
      let creatorRequestId =
        field_map json__ "CreatorRequestId" CreatorRequestId.of_json in
      let name = field_map json__ "Name" Name.of_json in
      let arn = field_map json__ "Arn" Arn.of_json in
      let id = field_map json__ "Id" ResourceId.of_json in
      make ?managedOwnerName ?creatorRequestId ?name ?arn ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Minimal high-level information for a firewall domain list. The action ListFirewallDomainLists returns an array of these objects. To retrieve full information for a firewall domain list, call GetFirewallDomainList and ListFirewallDomains."]
module FirewallConfig =
  struct
    type nonrec t =
      {
      id: ResourceId.t option
        [@ocaml.doc "The ID of the firewall configuration."];
      resourceId: ResourceId.t option
        [@ocaml.doc
          "The ID of the VPC that this firewall configuration applies to."];
      ownerId: AccountId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID of the owner of the VPC that this firewall configuration applies to."];
      firewallFailOpen: FirewallFailOpenStatus.t option
        [@ocaml.doc
          "Determines how DNS Firewall operates during failures, for example when all traffic that is sent to DNS Firewall fails to receive a reply. By default, fail open is disabled, which means the failure mode is closed. This approach favors security over availability. DNS Firewall returns a failure error when it is unable to properly evaluate a query. If you enable this option, the failure mode is open. This approach favors availability over security. DNS Firewall allows queries to proceed if it is unable to properly evaluate them. This behavior is only enforced for VPCs that have at least one DNS Firewall rule group association."]}
    let make ?id =
      fun ?resourceId ->
        fun ?ownerId ->
          fun ?firewallFailOpen ->
            fun () -> { id; resourceId; ownerId; firewallFailOpen }
    let to_value x =
      structure_to_value
        [("Id", (Option.map x.id ~f:ResourceId.to_value));
        ("ResourceId", (Option.map x.resourceId ~f:ResourceId.to_value));
        ("OwnerId", (Option.map x.ownerId ~f:AccountId.to_value));
        ("FirewallFailOpen",
          (Option.map x.firewallFailOpen ~f:FirewallFailOpenStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let firewallFailOpen =
        (Option.map ~f:FirewallFailOpenStatus.of_xml)
          (Xml.child xml_arg0 "FirewallFailOpen") in
      let ownerId =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "OwnerId") in
      let resourceId =
        (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "ResourceId") in
      let id = (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "Id") in
      make ?firewallFailOpen ?ownerId ?resourceId ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let firewallFailOpen =
        field_map json__ "FirewallFailOpen" FirewallFailOpenStatus.of_json in
      let ownerId = field_map json__ "OwnerId" AccountId.of_json in
      let resourceId = field_map json__ "ResourceId" ResourceId.of_json in
      let id = field_map json__ "Id" ResourceId.of_json in
      make ?firewallFailOpen ?ownerId ?resourceId ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Configuration of the firewall behavior provided by DNS Firewall for a single VPC from Amazon Virtual Private Cloud (Amazon VPC)."]
module FirewallRuleGroupStatus =
  struct
    type nonrec t =
      | COMPLETE 
      | DELETING 
      | UPDATING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | COMPLETE -> "COMPLETE"
      | DELETING -> "DELETING"
      | UPDATING -> "UPDATING"
      | Non_static_id s -> s
    let of_string =
      function
      | "COMPLETE" -> COMPLETE
      | "DELETING" -> DELETING
      | "UPDATING" -> UPDATING
      | 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 FirewallRuleGroupStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"FirewallRuleGroupStatus" j)
    let to_json = simple_to_json to_value
  end
module FirewallDomainListStatus =
  struct
    type nonrec t =
      | COMPLETE 
      | COMPLETE_IMPORT_FAILED 
      | IMPORTING 
      | DELETING 
      | UPDATING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | COMPLETE -> "COMPLETE"
      | COMPLETE_IMPORT_FAILED -> "COMPLETE_IMPORT_FAILED"
      | IMPORTING -> "IMPORTING"
      | DELETING -> "DELETING"
      | UPDATING -> "UPDATING"
      | Non_static_id s -> s
    let of_string =
      function
      | "COMPLETE" -> COMPLETE
      | "COMPLETE_IMPORT_FAILED" -> COMPLETE_IMPORT_FAILED
      | "IMPORTING" -> IMPORTING
      | "DELETING" -> DELETING
      | "UPDATING" -> UPDATING
      | 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 FirewallDomainListStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"FirewallDomainListStatus" j)
    let to_json = simple_to_json to_value
  end
module IpAddressRequest =
  struct
    type nonrec t =
      {
      subnetId: SubnetId.t
        [@ocaml.doc "The ID of the subnet that contains the IP address."];
      ip: Ip.t option
        [@ocaml.doc "The IPv4 address that you want to use for DNS queries."];
      ipv6: Ipv6.t option
        [@ocaml.doc "The IPv6 address that you want to use for DNS queries."]}
    let context_ = "IpAddressRequest"
    let make ?ip =
      fun ?ipv6 -> fun ~subnetId -> fun () -> { ip; ipv6; subnetId }
    let to_value x =
      structure_to_value
        [("SubnetId", (Some (SubnetId.to_value x.subnetId)));
        ("Ip", (Option.map x.ip ~f:Ip.to_value));
        ("Ipv6", (Option.map x.ipv6 ~f:Ipv6.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ipv6 = (Option.map ~f:Ipv6.of_xml) (Xml.child xml_arg0 "Ipv6") in
      let ip = (Option.map ~f:Ip.of_xml) (Xml.child xml_arg0 "Ip") in
      let subnetId =
        SubnetId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "SubnetId") in
      make ?ipv6 ?ip ~subnetId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ipv6 = field_map json__ "Ipv6" Ipv6.of_json in
      let ip = field_map json__ "Ip" Ip.of_json in
      let subnetId = field_map_exn json__ "SubnetId" SubnetId.of_json in
      make ?ipv6 ?ip ~subnetId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "In a CreateResolverEndpoint request, the IP address that DNS queries originate from (for outbound endpoints) or that you forward DNS queries to (for inbound endpoints). IpAddressRequest also includes the ID of the subnet that contains the IP address."]
module AccessDeniedException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The current account doesn't have the IAM permissions required to perform the specified Resolver operation. This error can also be thrown when a customer has reached the 5120 character limit for a resource policy for CloudWatch Logs."]
module InternalServiceErrorException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "We encountered an unknown error. Try again in a few minutes."]
module InvalidParameterException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option ;
      fieldName: String_.t option
        [@ocaml.doc
          "For an InvalidParameterException error, the name of the parameter that's invalid."]}
    let make ?message = fun ?fieldName -> fun () -> { message; fieldName }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value));
        ("FieldName", (Option.map x.fieldName ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fieldName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "FieldName") in
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?fieldName ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fieldName = field_map json__ "FieldName" String_.of_json in
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?fieldName ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "One or more parameters in this request are not valid."]
module InvalidRequestException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request is invalid."]
module LimitExceededException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      resourceType: String_.t option
        [@ocaml.doc
          "For a LimitExceededException error, the type of resource that exceeded the current limit."]}
    let make ?message =
      fun ?resourceType -> fun () -> { message; resourceType }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value));
        ("ResourceType", (Option.map x.resourceType ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ResourceType") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?resourceType ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceType = field_map json__ "ResourceType" String_.of_json in
      let message = field_map json__ "Message" String_.of_json in
      make ?resourceType ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request caused one or more limits to be exceeded."]
module ResourceNotFoundException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      resourceType: String_.t option
        [@ocaml.doc
          "For a ResourceNotFoundException error, the type of resource that doesn't exist."]}
    let make ?message =
      fun ?resourceType -> fun () -> { message; resourceType }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value));
        ("ResourceType", (Option.map x.resourceType ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ResourceType") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?resourceType ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceType = field_map json__ "ResourceType" String_.of_json in
      let message = field_map json__ "Message" String_.of_json in
      make ?resourceType ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The specified resource doesn't exist."]
module ResourceUnavailableException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      resourceType: String_.t option
        [@ocaml.doc
          "For a ResourceUnavailableException error, the type of resource that isn't available."]}
    let make ?message =
      fun ?resourceType -> fun () -> { message; resourceType }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value));
        ("ResourceType", (Option.map x.resourceType ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ResourceType") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?resourceType ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceType = field_map json__ "ResourceType" String_.of_json in
      let message = field_map json__ "Message" String_.of_json in
      make ?resourceType ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The specified resource isn't available."]
module ThrottlingException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request was throttled. Try again in a few minutes."]
module ResolverRuleConfig =
  struct
    type nonrec t =
      {
      name: Name.t option
        [@ocaml.doc
          "The new name for the Resolver rule. The name that you specify appears in the Resolver dashboard in the Route 53 console. The name can be up to 64 characters long and can contain letters (a-z, A-Z), numbers (0-9), hyphens (-), underscores (_), and spaces. The name cannot consist of only numbers."];
      targetIps: TargetList.t option
        [@ocaml.doc
          "For DNS queries that originate in your VPC, the new IP addresses that you want to route outbound DNS queries to."];
      resolverEndpointId: ResourceId.t option
        [@ocaml.doc
          "The ID of the new outbound Resolver endpoint that you want to use to route DNS queries to the IP addresses that you specify in TargetIps."]}
    let make ?name =
      fun ?targetIps ->
        fun ?resolverEndpointId ->
          fun () -> { name; targetIps; resolverEndpointId }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:Name.to_value));
        ("TargetIps", (Option.map x.targetIps ~f:TargetList.to_value));
        ("ResolverEndpointId",
          (Option.map x.resolverEndpointId ~f:ResourceId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resolverEndpointId =
        (Option.map ~f:ResourceId.of_xml)
          (Xml.child xml_arg0 "ResolverEndpointId") in
      let targetIps =
        (Option.map ~f:TargetList.of_xml) (Xml.child xml_arg0 "TargetIps") in
      let name = (Option.map ~f:Name.of_xml) (Xml.child xml_arg0 "Name") in
      make ?resolverEndpointId ?targetIps ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resolverEndpointId =
        field_map json__ "ResolverEndpointId" ResourceId.of_json in
      let targetIps = field_map json__ "TargetIps" TargetList.of_json in
      let name = field_map json__ "Name" Name.of_json in
      make ?resolverEndpointId ?targetIps ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "In an UpdateResolverRule request, information about the changes that you want to make."]
module UpdateIpAddresses =
  struct
    type nonrec t = UpdateIpAddress.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:50) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:UpdateIpAddress.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:UpdateIpAddress.of_xml)
    let of_json j =
      list_of_json ~kind:"UpdateIpAddresses" ~of_json:UpdateIpAddress.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module Validation =
  struct
    type nonrec t =
      | ENABLE 
      | DISABLE 
      | USE_LOCAL_RESOURCE_SETTING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ENABLE -> "ENABLE"
      | DISABLE -> "DISABLE"
      | USE_LOCAL_RESOURCE_SETTING -> "USE_LOCAL_RESOURCE_SETTING"
      | Non_static_id s -> s
    let of_string =
      function
      | "ENABLE" -> ENABLE
      | "DISABLE" -> DISABLE
      | "USE_LOCAL_RESOURCE_SETTING" -> USE_LOCAL_RESOURCE_SETTING
      | 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 Validation" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Validation" j)
    let to_json = simple_to_json to_value
  end
module ValidationException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "You have provided an invalid command. If you ran the UpdateFirewallDomains request. supported values are ADD, REMOVE, or REPLACE a domain."]
module AutodefinedReverseFlag =
  struct
    type nonrec t =
      | ENABLE 
      | DISABLE 
      | USE_LOCAL_RESOURCE_SETTING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ENABLE -> "ENABLE"
      | DISABLE -> "DISABLE"
      | USE_LOCAL_RESOURCE_SETTING -> "USE_LOCAL_RESOURCE_SETTING"
      | Non_static_id s -> s
    let of_string =
      function
      | "ENABLE" -> ENABLE
      | "DISABLE" -> DISABLE
      | "USE_LOCAL_RESOURCE_SETTING" -> USE_LOCAL_RESOURCE_SETTING
      | 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 AutodefinedReverseFlag" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"AutodefinedReverseFlag" j)
    let to_json = simple_to_json to_value
  end
module ConflictException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The requested state transition isn't valid. For example, you can't delete a firewall domain list if it is in the process of being deleted, or you can't import domains into a domain list that is in the process of being deleted."]
module ServiceQuotaExceededException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Fulfilling the request would cause one or more quotas to be exceeded."]
module BlockOverrideTtl =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:604800) >>=
             (fun () -> check_int_min i ~min:0));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for BlockOverrideTtl" 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 FirewallDomainUpdateOperation =
  struct
    type nonrec t =
      | ADD 
      | REMOVE 
      | REPLACE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ADD -> "ADD"
      | REMOVE -> "REMOVE"
      | REPLACE -> "REPLACE"
      | Non_static_id s -> s
    let of_string =
      function
      | "ADD" -> ADD
      | "REMOVE" -> REMOVE
      | "REPLACE" -> REPLACE
      | 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 FirewallDomainUpdateOperation"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"FirewallDomainUpdateOperation" j)
    let to_json = simple_to_json to_value
  end
module FirewallDomains =
  struct
    type nonrec t = FirewallDomainName.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:FirewallDomainName.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:FirewallDomainName.of_xml)
    let of_json j =
      list_of_json ~kind:"FirewallDomains"
        ~of_json:FirewallDomainName.of_json j
    let to_json v = composed_to_json to_value v
  end
module TagKeyList =
  struct
    type nonrec t = TagKey.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:200); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:TagKey.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:TagKey.of_xml)
    let of_json j = list_of_json ~kind:"TagKeyList" ~of_json:TagKey.of_json j
    let to_json v = composed_to_json to_value v
  end
module InvalidTagException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The specified tag is invalid."]
module TagList =
  struct
    type nonrec t = Tag.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:200); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Tag.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:Tag.of_xml)
    let of_json j = list_of_json ~kind:"TagList" ~of_json:Tag.of_json j
    let to_json v = composed_to_json to_value v
  end
module Boolean =
  struct
    type nonrec t = bool
    let make i = i
    let of_string = Bool.of_string
    let to_value x = `Boolean x
    let to_query v = to_query to_value v
    let to_header x = Bool.to_string x
    let of_xml xml_arg0 =
      Bool.of_string (string_of_xml ~kind:"a boolean" xml_arg0)
    let of_json = bool_of_json
    let to_json = simple_to_json to_value
  end
module InvalidPolicyDocument =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The specified Resolver rule policy is invalid."]
module UnknownResourceException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The specified resource doesn't exist."]
module ResolverRulePolicy =
  struct
    type nonrec t = string
    let context_ = "ResolverRulePolicy"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:30000); 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:"ResolverRulePolicy" j
    let to_json = simple_to_json to_value
  end
module ResolverQueryLogConfigPolicy =
  struct
    type nonrec t = string
    let context_ = "ResolverQueryLogConfigPolicy"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:30000); 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:"ResolverQueryLogConfigPolicy" j
    let to_json = simple_to_json to_value
  end
module FirewallRuleGroupPolicy =
  struct
    type nonrec t = string
    let context_ = "FirewallRuleGroupPolicy"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:30000); 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:"FirewallRuleGroupPolicy" j
    let to_json = simple_to_json to_value
  end
module InvalidNextTokenException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The value that you specified for NextToken in a List request isn't valid."]
module NextToken =
  struct
    type nonrec t = string
    let context_ = "NextToken"
    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:"NextToken" j
    let to_json = simple_to_json to_value
  end
module MaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:100) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for 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 ResolverRules =
  struct
    type nonrec t = ResolverRule.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:ResolverRule.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:ResolverRule.of_xml)
    let of_json j =
      list_of_json ~kind:"ResolverRules" ~of_json:ResolverRule.of_json j
    let to_json v = composed_to_json to_value v
  end
module Filters =
  struct
    type nonrec t = Filter.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:Filter.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:Filter.of_xml)
    let of_json j = list_of_json ~kind:"Filters" ~of_json:Filter.of_json j
    let to_json v = composed_to_json to_value v
  end
module ResolverRuleAssociations =
  struct
    type nonrec t = ResolverRuleAssociation.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:ResolverRuleAssociation.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:ResolverRuleAssociation.of_xml)
    let of_json j =
      list_of_json ~kind:"ResolverRuleAssociations"
        ~of_json:ResolverRuleAssociation.of_json j
    let to_json v = composed_to_json to_value v
  end
module ResolverQueryLogConfigList =
  struct
    type nonrec t = ResolverQueryLogConfig.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:ResolverQueryLogConfig.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:ResolverQueryLogConfig.of_xml)
    let of_json j =
      list_of_json ~kind:"ResolverQueryLogConfigList"
        ~of_json:ResolverQueryLogConfig.of_json j
    let to_json v = composed_to_json to_value v
  end
module SortByKey =
  struct
    type nonrec t = string
    let context_ = "SortByKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:64) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SortByKey" j
    let to_json = simple_to_json to_value
  end
module SortOrder =
  struct
    type nonrec t =
      | ASCENDING 
      | DESCENDING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ASCENDING -> "ASCENDING"
      | DESCENDING -> "DESCENDING"
      | Non_static_id s -> s
    let of_string =
      function
      | "ASCENDING" -> ASCENDING
      | "DESCENDING" -> DESCENDING
      | 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 SortOrder" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SortOrder" j)
    let to_json = simple_to_json to_value
  end
module ResolverQueryLogConfigAssociationList =
  struct
    type nonrec t = ResolverQueryLogConfigAssociation.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:ResolverQueryLogConfigAssociation.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:ResolverQueryLogConfigAssociation.of_xml)
    let of_json j =
      list_of_json ~kind:"ResolverQueryLogConfigAssociationList"
        ~of_json:ResolverQueryLogConfigAssociation.of_json j
    let to_json v = composed_to_json to_value v
  end
module ResolverEndpoints =
  struct
    type nonrec t = ResolverEndpoint.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:ResolverEndpoint.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:ResolverEndpoint.of_xml)
    let of_json j =
      list_of_json ~kind:"ResolverEndpoints"
        ~of_json:ResolverEndpoint.of_json j
    let to_json v = composed_to_json to_value v
  end
module IpAddressesResponse =
  struct
    type nonrec t = IpAddressResponse.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:IpAddressResponse.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:IpAddressResponse.of_xml)
    let of_json j =
      list_of_json ~kind:"IpAddressesResponse"
        ~of_json:IpAddressResponse.of_json j
    let to_json v = composed_to_json to_value v
  end
module ResolverDnssecConfigList =
  struct
    type nonrec t = ResolverDnssecConfig.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:ResolverDnssecConfig.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:ResolverDnssecConfig.of_xml)
    let of_json j =
      list_of_json ~kind:"ResolverDnssecConfigList"
        ~of_json:ResolverDnssecConfig.of_json j
    let to_json v = composed_to_json to_value v
  end
module ResolverConfigList =
  struct
    type nonrec t = ResolverConfig.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:ResolverConfig.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:ResolverConfig.of_xml)
    let of_json j =
      list_of_json ~kind:"ResolverConfigList" ~of_json:ResolverConfig.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module ListResolverConfigsMaxResult =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:100) >>= (fun () -> check_int_min i ~min:5));
        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 ListResolverConfigsMaxResult"
           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 OutpostResolverList =
  struct
    type nonrec t = OutpostResolver.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:OutpostResolver.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:OutpostResolver.of_xml)
    let of_json j =
      list_of_json ~kind:"OutpostResolverList"
        ~of_json:OutpostResolver.of_json j
    let to_json v = composed_to_json to_value v
  end
module FirewallRules =
  struct
    type nonrec t = FirewallRule.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:FirewallRule.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:FirewallRule.of_xml)
    let of_json j =
      list_of_json ~kind:"FirewallRules" ~of_json:FirewallRule.of_json j
    let to_json v = composed_to_json to_value v
  end
module FirewallRuleGroupMetadataList =
  struct
    type nonrec t = FirewallRuleGroupMetadata.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:FirewallRuleGroupMetadata.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:FirewallRuleGroupMetadata.of_xml)
    let of_json j =
      list_of_json ~kind:"FirewallRuleGroupMetadataList"
        ~of_json:FirewallRuleGroupMetadata.of_json j
    let to_json v = composed_to_json to_value v
  end
module FirewallRuleGroupAssociations =
  struct
    type nonrec t = FirewallRuleGroupAssociation.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:FirewallRuleGroupAssociation.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:FirewallRuleGroupAssociation.of_xml)
    let of_json j =
      list_of_json ~kind:"FirewallRuleGroupAssociations"
        ~of_json:FirewallRuleGroupAssociation.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListDomainMaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:5000) >>= (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 ListDomainMaxResults" 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 FirewallDomainListMetadataList =
  struct
    type nonrec t = FirewallDomainListMetadata.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:FirewallDomainListMetadata.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:FirewallDomainListMetadata.of_xml)
    let of_json j =
      list_of_json ~kind:"FirewallDomainListMetadataList"
        ~of_json:FirewallDomainListMetadata.of_json j
    let to_json v = composed_to_json to_value v
  end
module FirewallConfigList =
  struct
    type nonrec t = FirewallConfig.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:FirewallConfig.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:FirewallConfig.of_xml)
    let of_json j =
      list_of_json ~kind:"FirewallConfigList" ~of_json:FirewallConfig.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module ListFirewallConfigsMaxResult =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:10) >>= (fun () -> check_int_min i ~min:5));
        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 ListFirewallConfigsMaxResult"
           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 DomainListFileUrl =
  struct
    type nonrec t = string
    let context_ = "DomainListFileUrl"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DomainListFileUrl" j
    let to_json = simple_to_json to_value
  end
module FirewallDomainImportOperation =
  struct
    type nonrec t =
      | REPLACE 
      | Non_static_id of string 
    let make i = i
    let to_string = function | REPLACE -> "REPLACE" | Non_static_id s -> s
    let of_string = function | "REPLACE" -> REPLACE | 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 FirewallDomainImportOperation"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"FirewallDomainImportOperation" j)
    let to_json = simple_to_json to_value
  end
module FirewallRuleGroup =
  struct
    type nonrec t =
      {
      id: ResourceId.t option [@ocaml.doc "The ID of the rule group."];
      arn: Arn.t option
        [@ocaml.doc "The ARN (Amazon Resource Name) of the rule group."];
      name: Name.t option [@ocaml.doc "The name of the rule group."];
      ruleCount: Unsigned.t option
        [@ocaml.doc "The number of rules in the rule group."];
      status: FirewallRuleGroupStatus.t option
        [@ocaml.doc "The status of the domain list."];
      statusMessage: StatusMessage.t option
        [@ocaml.doc
          "Additional information about the status of the rule group, if available."];
      ownerId: AccountId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID for the account that created the rule group. When a rule group is shared with your account, this is the account that has shared the rule group with you."];
      creatorRequestId: CreatorRequestId.t option
        [@ocaml.doc
          "A unique string defined by you to identify the request. This allows you to retry failed requests without the risk of running the operation twice. This can be any unique string, for example, a timestamp."];
      shareStatus: ShareStatus.t option
        [@ocaml.doc
          "Whether the rule group is shared with other Amazon Web Services accounts, or was shared with the current account by another Amazon Web Services account. Sharing is configured through Resource Access Manager (RAM)."];
      creationTime: Rfc3339TimeString.t option
        [@ocaml.doc
          "The date and time that the rule group was created, in Unix time format and Coordinated Universal Time (UTC)."];
      modificationTime: Rfc3339TimeString.t option
        [@ocaml.doc
          "The date and time that the rule group was last modified, in Unix time format and Coordinated Universal Time (UTC)."]}
    let make ?id =
      fun ?arn ->
        fun ?name ->
          fun ?ruleCount ->
            fun ?status ->
              fun ?statusMessage ->
                fun ?ownerId ->
                  fun ?creatorRequestId ->
                    fun ?shareStatus ->
                      fun ?creationTime ->
                        fun ?modificationTime ->
                          fun () ->
                            {
                              id;
                              arn;
                              name;
                              ruleCount;
                              status;
                              statusMessage;
                              ownerId;
                              creatorRequestId;
                              shareStatus;
                              creationTime;
                              modificationTime
                            }
    let to_value x =
      structure_to_value
        [("Id", (Option.map x.id ~f:ResourceId.to_value));
        ("Arn", (Option.map x.arn ~f:Arn.to_value));
        ("Name", (Option.map x.name ~f:Name.to_value));
        ("RuleCount", (Option.map x.ruleCount ~f:Unsigned.to_value));
        ("Status", (Option.map x.status ~f:FirewallRuleGroupStatus.to_value));
        ("StatusMessage",
          (Option.map x.statusMessage ~f:StatusMessage.to_value));
        ("OwnerId", (Option.map x.ownerId ~f:AccountId.to_value));
        ("CreatorRequestId",
          (Option.map x.creatorRequestId ~f:CreatorRequestId.to_value));
        ("ShareStatus", (Option.map x.shareStatus ~f:ShareStatus.to_value));
        ("CreationTime",
          (Option.map x.creationTime ~f:Rfc3339TimeString.to_value));
        ("ModificationTime",
          (Option.map x.modificationTime ~f:Rfc3339TimeString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let modificationTime =
        (Option.map ~f:Rfc3339TimeString.of_xml)
          (Xml.child xml_arg0 "ModificationTime") in
      let creationTime =
        (Option.map ~f:Rfc3339TimeString.of_xml)
          (Xml.child xml_arg0 "CreationTime") in
      let shareStatus =
        (Option.map ~f:ShareStatus.of_xml) (Xml.child xml_arg0 "ShareStatus") in
      let creatorRequestId =
        (Option.map ~f:CreatorRequestId.of_xml)
          (Xml.child xml_arg0 "CreatorRequestId") in
      let ownerId =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "OwnerId") in
      let statusMessage =
        (Option.map ~f:StatusMessage.of_xml)
          (Xml.child xml_arg0 "StatusMessage") in
      let status =
        (Option.map ~f:FirewallRuleGroupStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let ruleCount =
        (Option.map ~f:Unsigned.of_xml) (Xml.child xml_arg0 "RuleCount") in
      let name = (Option.map ~f:Name.of_xml) (Xml.child xml_arg0 "Name") in
      let arn = (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "Arn") in
      let id = (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "Id") in
      make ?modificationTime ?creationTime ?shareStatus ?creatorRequestId
        ?ownerId ?statusMessage ?status ?ruleCount ?name ?arn ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let modificationTime =
        field_map json__ "ModificationTime" Rfc3339TimeString.of_json in
      let creationTime =
        field_map json__ "CreationTime" Rfc3339TimeString.of_json in
      let shareStatus = field_map json__ "ShareStatus" ShareStatus.of_json in
      let creatorRequestId =
        field_map json__ "CreatorRequestId" CreatorRequestId.of_json in
      let ownerId = field_map json__ "OwnerId" AccountId.of_json in
      let statusMessage =
        field_map json__ "StatusMessage" StatusMessage.of_json in
      let status = field_map json__ "Status" FirewallRuleGroupStatus.of_json in
      let ruleCount = field_map json__ "RuleCount" Unsigned.of_json in
      let name = field_map json__ "Name" Name.of_json in
      let arn = field_map json__ "Arn" Arn.of_json in
      let id = field_map json__ "Id" ResourceId.of_json in
      make ?modificationTime ?creationTime ?shareStatus ?creatorRequestId
        ?ownerId ?statusMessage ?status ?ruleCount ?name ?arn ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "High-level information for a firewall rule group. A firewall rule group is a collection of rules that DNS Firewall uses to filter DNS network traffic for a VPC. To retrieve the rules for the rule group, call ListFirewallRules."]
module FirewallDomainList =
  struct
    type nonrec t =
      {
      id: ResourceId.t option [@ocaml.doc "The ID of the domain list."];
      arn: Arn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the firewall domain list."];
      name: Name.t option [@ocaml.doc "The name of the domain list."];
      domainCount: Unsigned.t option
        [@ocaml.doc
          "The number of domain names that are specified in the domain list."];
      status: FirewallDomainListStatus.t option
        [@ocaml.doc "The status of the domain list."];
      statusMessage: StatusMessage.t option
        [@ocaml.doc
          "Additional information about the status of the list, if available."];
      managedOwnerName: ServicePrinciple.t option
        [@ocaml.doc
          "The owner of the list, used only for lists that are not managed by you. For example, the managed domain list AWSManagedDomainsMalwareDomainList has the managed owner name Route 53 Resolver DNS Firewall."];
      creatorRequestId: CreatorRequestId.t option
        [@ocaml.doc
          "A unique string defined by you to identify the request. This allows you to retry failed requests without the risk of running the operation twice. This can be any unique string, for example, a timestamp."];
      creationTime: Rfc3339TimeString.t option
        [@ocaml.doc
          "The date and time that the domain list was created, in Unix time format and Coordinated Universal Time (UTC)."];
      modificationTime: Rfc3339TimeString.t option
        [@ocaml.doc
          "The date and time that the domain list was last modified, in Unix time format and Coordinated Universal Time (UTC)."]}
    let make ?id =
      fun ?arn ->
        fun ?name ->
          fun ?domainCount ->
            fun ?status ->
              fun ?statusMessage ->
                fun ?managedOwnerName ->
                  fun ?creatorRequestId ->
                    fun ?creationTime ->
                      fun ?modificationTime ->
                        fun () ->
                          {
                            id;
                            arn;
                            name;
                            domainCount;
                            status;
                            statusMessage;
                            managedOwnerName;
                            creatorRequestId;
                            creationTime;
                            modificationTime
                          }
    let to_value x =
      structure_to_value
        [("Id", (Option.map x.id ~f:ResourceId.to_value));
        ("Arn", (Option.map x.arn ~f:Arn.to_value));
        ("Name", (Option.map x.name ~f:Name.to_value));
        ("DomainCount", (Option.map x.domainCount ~f:Unsigned.to_value));
        ("Status",
          (Option.map x.status ~f:FirewallDomainListStatus.to_value));
        ("StatusMessage",
          (Option.map x.statusMessage ~f:StatusMessage.to_value));
        ("ManagedOwnerName",
          (Option.map x.managedOwnerName ~f:ServicePrinciple.to_value));
        ("CreatorRequestId",
          (Option.map x.creatorRequestId ~f:CreatorRequestId.to_value));
        ("CreationTime",
          (Option.map x.creationTime ~f:Rfc3339TimeString.to_value));
        ("ModificationTime",
          (Option.map x.modificationTime ~f:Rfc3339TimeString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let modificationTime =
        (Option.map ~f:Rfc3339TimeString.of_xml)
          (Xml.child xml_arg0 "ModificationTime") in
      let creationTime =
        (Option.map ~f:Rfc3339TimeString.of_xml)
          (Xml.child xml_arg0 "CreationTime") in
      let creatorRequestId =
        (Option.map ~f:CreatorRequestId.of_xml)
          (Xml.child xml_arg0 "CreatorRequestId") in
      let managedOwnerName =
        (Option.map ~f:ServicePrinciple.of_xml)
          (Xml.child xml_arg0 "ManagedOwnerName") in
      let statusMessage =
        (Option.map ~f:StatusMessage.of_xml)
          (Xml.child xml_arg0 "StatusMessage") in
      let status =
        (Option.map ~f:FirewallDomainListStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let domainCount =
        (Option.map ~f:Unsigned.of_xml) (Xml.child xml_arg0 "DomainCount") in
      let name = (Option.map ~f:Name.of_xml) (Xml.child xml_arg0 "Name") in
      let arn = (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "Arn") in
      let id = (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "Id") in
      make ?modificationTime ?creationTime ?creatorRequestId
        ?managedOwnerName ?statusMessage ?status ?domainCount ?name ?arn ?id
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let modificationTime =
        field_map json__ "ModificationTime" Rfc3339TimeString.of_json in
      let creationTime =
        field_map json__ "CreationTime" Rfc3339TimeString.of_json in
      let creatorRequestId =
        field_map json__ "CreatorRequestId" CreatorRequestId.of_json in
      let managedOwnerName =
        field_map json__ "ManagedOwnerName" ServicePrinciple.of_json in
      let statusMessage =
        field_map json__ "StatusMessage" StatusMessage.of_json in
      let status = field_map json__ "Status" FirewallDomainListStatus.of_json in
      let domainCount = field_map json__ "DomainCount" Unsigned.of_json in
      let name = field_map json__ "Name" Name.of_json in
      let arn = field_map json__ "Arn" Arn.of_json in
      let id = field_map json__ "Id" ResourceId.of_json in
      make ?modificationTime ?creationTime ?creatorRequestId
        ?managedOwnerName ?statusMessage ?status ?domainCount ?name ?arn ?id
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "High-level information about a list of firewall domains for use in a FirewallRule. This is returned by GetFirewallDomainList. To retrieve the domains that are defined for this domain list, call ListFirewallDomains."]
module ResourceExistsException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      resourceType: String_.t option
        [@ocaml.doc
          "For a ResourceExistsException error, the type of resource that the error applies to."]}
    let make ?message =
      fun ?resourceType -> fun () -> { message; resourceType }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value));
        ("ResourceType", (Option.map x.resourceType ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ResourceType") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?resourceType ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceType = field_map json__ "ResourceType" String_.of_json in
      let message = field_map json__ "Message" String_.of_json in
      make ?resourceType ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The resource that you tried to create already exists."]
module IpAddressUpdate =
  struct
    type nonrec t =
      {
      ipId: ResourceId.t option
        [@ocaml.doc
          "Only when removing an IP address from a Resolver endpoint: The ID of the IP address that you want to remove. To get this ID, use GetResolverEndpoint."];
      subnetId: SubnetId.t option
        [@ocaml.doc
          "The ID of the subnet that includes the IP address that you want to update. To get this ID, use GetResolverEndpoint."];
      ip: Ip.t option [@ocaml.doc "The new IPv4 address."];
      ipv6: Ipv6.t option [@ocaml.doc "The new IPv6 address."]}
    let make ?ipId =
      fun ?subnetId ->
        fun ?ip -> fun ?ipv6 -> fun () -> { ipId; subnetId; ip; ipv6 }
    let to_value x =
      structure_to_value
        [("IpId", (Option.map x.ipId ~f:ResourceId.to_value));
        ("SubnetId", (Option.map x.subnetId ~f:SubnetId.to_value));
        ("Ip", (Option.map x.ip ~f:Ip.to_value));
        ("Ipv6", (Option.map x.ipv6 ~f:Ipv6.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ipv6 = (Option.map ~f:Ipv6.of_xml) (Xml.child xml_arg0 "Ipv6") in
      let ip = (Option.map ~f:Ip.of_xml) (Xml.child xml_arg0 "Ip") in
      let subnetId =
        (Option.map ~f:SubnetId.of_xml) (Xml.child xml_arg0 "SubnetId") in
      let ipId =
        (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "IpId") in
      make ?ipv6 ?ip ?subnetId ?ipId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ipv6 = field_map json__ "Ipv6" Ipv6.of_json in
      let ip = field_map json__ "Ip" Ip.of_json in
      let subnetId = field_map json__ "SubnetId" SubnetId.of_json in
      let ipId = field_map json__ "IpId" ResourceId.of_json in
      make ?ipv6 ?ip ?subnetId ?ipId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "In an UpdateResolverEndpoint request, information about an IP address to update."]
module ResourceInUseException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      resourceType: String_.t option
        [@ocaml.doc
          "For a ResourceInUseException error, the type of resource that is currently in use."]}
    let make ?message =
      fun ?resourceType -> fun () -> { message; resourceType }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value));
        ("ResourceType", (Option.map x.resourceType ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ResourceType") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?resourceType ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceType = field_map json__ "ResourceType" String_.of_json in
      let message = field_map json__ "Message" String_.of_json in
      make ?resourceType ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The resource that you tried to update or delete is currently in use."]
module IpAddressesRequest =
  struct
    type nonrec t = IpAddressRequest.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:20) >>= (fun () -> check_list_min i ~min:2));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:IpAddressRequest.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:IpAddressRequest.of_xml)
    let of_json j =
      list_of_json ~kind:"IpAddressesRequest"
        ~of_json:IpAddressRequest.of_json j
    let to_json v = composed_to_json to_value v
  end
module UpdateResolverRuleResponse =
  struct
    type nonrec t =
      {
      resolverRule: ResolverRule.t option
        [@ocaml.doc "The response to an UpdateResolverRule request."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ResourceUnavailableException of ResourceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?resolverRule = fun () -> { resolverRule }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ResourceUnavailableException" ->
          `ResourceUnavailableException
            (ResourceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ResourceUnavailableException" ->
          `ResourceUnavailableException
            (ResourceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ResourceUnavailableException e ->
          `Assoc
            [("error", (`String "ResourceUnavailableException"));
            ("details", (ResourceUnavailableException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ResolverRule",
           (Option.map x.resolverRule ~f:ResolverRule.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resolverRule =
        (Option.map ~f:ResolverRule.of_xml)
          (Xml.child xml_arg0 "ResolverRule") in
      make ?resolverRule ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resolverRule = field_map json__ "ResolverRule" ResolverRule.of_json in
      make ?resolverRule ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates settings for a specified Resolver rule. ResolverRuleId is required, and all other parameters are optional. If you don't specify a parameter, it retains its current value."]
module UpdateResolverRuleRequest =
  struct
    type nonrec t =
      {
      resolverRuleId: ResourceId.t
        [@ocaml.doc "The ID of the Resolver rule that you want to update."];
      config: ResolverRuleConfig.t
        [@ocaml.doc "The new settings for the Resolver rule."]}
    let context_ = "UpdateResolverRuleRequest"
    let make ~resolverRuleId =
      fun ~config -> fun () -> { resolverRuleId; config }
    let to_value x =
      structure_to_value
        [("ResolverRuleId", (Some (ResourceId.to_value x.resolverRuleId)));
        ("Config", (Some (ResolverRuleConfig.to_value x.config)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let config =
        ResolverRuleConfig.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Config") in
      let resolverRuleId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResolverRuleId") in
      make ~config ~resolverRuleId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let config = field_map_exn json__ "Config" ResolverRuleConfig.of_json in
      let resolverRuleId =
        field_map_exn json__ "ResolverRuleId" ResourceId.of_json in
      make ~config ~resolverRuleId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates settings for a specified Resolver rule. ResolverRuleId is required, and all other parameters are optional. If you don't specify a parameter, it retains its current value."]
module UpdateResolverEndpointResponse =
  struct
    type nonrec t =
      {
      resolverEndpoint: ResolverEndpoint.t option
        [@ocaml.doc "The response to an UpdateResolverEndpoint request."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?resolverEndpoint = fun () -> { resolverEndpoint }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ResolverEndpoint",
           (Option.map x.resolverEndpoint ~f:ResolverEndpoint.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resolverEndpoint =
        (Option.map ~f:ResolverEndpoint.of_xml)
          (Xml.child xml_arg0 "ResolverEndpoint") in
      make ?resolverEndpoint ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resolverEndpoint =
        field_map json__ "ResolverEndpoint" ResolverEndpoint.of_json in
      make ?resolverEndpoint ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the name, or endpoint type for an inbound or an outbound Resolver endpoint. You can only update between IPV4 and DUALSTACK, IPV6 endpoint type can't be updated to other type."]
module UpdateResolverEndpointRequest =
  struct
    type nonrec t =
      {
      resolverEndpointId: ResourceId.t
        [@ocaml.doc
          "The ID of the Resolver endpoint that you want to update."];
      name: Name.t option
        [@ocaml.doc
          "The name of the Resolver endpoint that you want to update."];
      resolverEndpointType: ResolverEndpointType.t option
        [@ocaml.doc
          "Specifies the endpoint type for what type of IP address the endpoint uses to forward DNS queries. Updating to IPV6 type isn't currently supported."];
      updateIpAddresses: UpdateIpAddresses.t option
        [@ocaml.doc
          "Specifies the IPv6 address when you update the Resolver endpoint from IPv4 to dual-stack. If you don't specify an IPv6 address, one will be automatically chosen from your subnet."];
      protocols: ProtocolList.t option
        [@ocaml.doc
          "The protocols you want to use for the endpoint. DoH-FIPS is applicable for default inbound endpoints only. For a default inbound endpoint you can apply the protocols as follows: Do53 and DoH in combination. Do53 and DoH-FIPS in combination. Do53 alone. DoH alone. DoH-FIPS alone. None, which is treated as Do53. For a delegation inbound endpoint you can use Do53 only. For an outbound endpoint you can apply the protocols as follows: Do53 and DoH in combination. Do53 alone. DoH alone. None, which is treated as Do53. You can't change the protocol of an inbound endpoint directly from only Do53 to only DoH, or DoH-FIPS. This is to prevent a sudden disruption to incoming traffic that relies on Do53. To change the protocol from Do53 to DoH, or DoH-FIPS, you must first enable both Do53 and DoH, or Do53 and DoH-FIPS, to make sure that all incoming traffic has transferred to using the DoH protocol, or DoH-FIPS, and then remove the Do53."];
      rniEnhancedMetricsEnabled: RniEnhancedMetricsEnabled.t option
        [@ocaml.doc
          "Updates whether RNI enhanced metrics are enabled for the Resolver endpoints. When set to true, one-minute granular metrics are published in CloudWatch for each RNI associated with this endpoint. When set to false, metrics are not published. Standard CloudWatch pricing and charges are applied for using the Route 53 Resolver endpoint RNI enhanced metrics. For more information, see Detailed metrics."];
      targetNameServerMetricsEnabled: TargetNameServerMetricsEnabled.t option
        [@ocaml.doc
          "Updates whether target name server metrics are enabled for the outbound Resolver endpoints. When set to true, one-minute granular metrics are published in CloudWatch for each target name server associated with this endpoint. When set to false, metrics are not published. This setting is not supported for inbound Resolver endpoints. Standard CloudWatch pricing and charges are applied for using the Route 53 Resolver endpoint target name server metrics. For more information, see Detailed metrics."];
      dns64Enabled: Dns64Enabled.t option
        [@ocaml.doc
          "Specifies whether DNS64 is enabled for the inbound Resolver endpoint. When set to true, Route 53 Resolver synthesizes AAAA (IPv6) records for IPv4-only services by prepending the 64:ff9b::/96 prefix to the IPv4 address. This enables IPv6-only clients that send queries through the inbound endpoint to reach IPv4-only services. DNS64 works with NAT64 to provide complete IPv6-to-IPv4 translation."];
      ipv6InternetAccessEnabled: Ipv6InternetAccessEnabled.t option
        [@ocaml.doc
          "Specifies whether IPv6 internet access is enabled for the outbound Resolver endpoint. When set to true, the endpoint elastic network interfaces (ENIs) can forward DNS queries to public IPv6 targets through an internet gateway. When you enable IPv6 internet access, use network controls like security groups, NACLs, or egress-only internet gateways to protect the endpoint ENIs from unsolicited ingress traffic. Be aware that some network controls can affect DNS query throughput due to connection tracking. For more information, see Amazon EC2 security group connection tracking and Resolver endpoint scaling."]}
    let context_ = "UpdateResolverEndpointRequest"
    let make ?name =
      fun ?resolverEndpointType ->
        fun ?updateIpAddresses ->
          fun ?protocols ->
            fun ?rniEnhancedMetricsEnabled ->
              fun ?targetNameServerMetricsEnabled ->
                fun ?dns64Enabled ->
                  fun ?ipv6InternetAccessEnabled ->
                    fun ~resolverEndpointId ->
                      fun () ->
                        {
                          name;
                          resolverEndpointType;
                          updateIpAddresses;
                          protocols;
                          rniEnhancedMetricsEnabled;
                          targetNameServerMetricsEnabled;
                          dns64Enabled;
                          ipv6InternetAccessEnabled;
                          resolverEndpointId
                        }
    let to_value x =
      structure_to_value
        [("ResolverEndpointId",
           (Some (ResourceId.to_value x.resolverEndpointId)));
        ("Name", (Option.map x.name ~f:Name.to_value));
        ("ResolverEndpointType",
          (Option.map x.resolverEndpointType ~f:ResolverEndpointType.to_value));
        ("UpdateIpAddresses",
          (Option.map x.updateIpAddresses ~f:UpdateIpAddresses.to_value));
        ("Protocols", (Option.map x.protocols ~f:ProtocolList.to_value));
        ("RniEnhancedMetricsEnabled",
          (Option.map x.rniEnhancedMetricsEnabled
             ~f:RniEnhancedMetricsEnabled.to_value));
        ("TargetNameServerMetricsEnabled",
          (Option.map x.targetNameServerMetricsEnabled
             ~f:TargetNameServerMetricsEnabled.to_value));
        ("Dns64Enabled",
          (Option.map x.dns64Enabled ~f:Dns64Enabled.to_value));
        ("Ipv6InternetAccessEnabled",
          (Option.map x.ipv6InternetAccessEnabled
             ~f:Ipv6InternetAccessEnabled.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ipv6InternetAccessEnabled =
        (Option.map ~f:Ipv6InternetAccessEnabled.of_xml)
          (Xml.child xml_arg0 "Ipv6InternetAccessEnabled") in
      let dns64Enabled =
        (Option.map ~f:Dns64Enabled.of_xml)
          (Xml.child xml_arg0 "Dns64Enabled") in
      let targetNameServerMetricsEnabled =
        (Option.map ~f:TargetNameServerMetricsEnabled.of_xml)
          (Xml.child xml_arg0 "TargetNameServerMetricsEnabled") in
      let rniEnhancedMetricsEnabled =
        (Option.map ~f:RniEnhancedMetricsEnabled.of_xml)
          (Xml.child xml_arg0 "RniEnhancedMetricsEnabled") in
      let protocols =
        (Option.map ~f:ProtocolList.of_xml) (Xml.child xml_arg0 "Protocols") in
      let updateIpAddresses =
        (Option.map ~f:UpdateIpAddresses.of_xml)
          (Xml.child xml_arg0 "UpdateIpAddresses") in
      let resolverEndpointType =
        (Option.map ~f:ResolverEndpointType.of_xml)
          (Xml.child xml_arg0 "ResolverEndpointType") in
      let name = (Option.map ~f:Name.of_xml) (Xml.child xml_arg0 "Name") in
      let resolverEndpointId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResolverEndpointId") in
      make ?ipv6InternetAccessEnabled ?dns64Enabled
        ?targetNameServerMetricsEnabled ?rniEnhancedMetricsEnabled ?protocols
        ?updateIpAddresses ?resolverEndpointType ?name ~resolverEndpointId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ipv6InternetAccessEnabled =
        field_map json__ "Ipv6InternetAccessEnabled"
          Ipv6InternetAccessEnabled.of_json in
      let dns64Enabled = field_map json__ "Dns64Enabled" Dns64Enabled.of_json in
      let targetNameServerMetricsEnabled =
        field_map json__ "TargetNameServerMetricsEnabled"
          TargetNameServerMetricsEnabled.of_json in
      let rniEnhancedMetricsEnabled =
        field_map json__ "RniEnhancedMetricsEnabled"
          RniEnhancedMetricsEnabled.of_json in
      let protocols = field_map json__ "Protocols" ProtocolList.of_json in
      let updateIpAddresses =
        field_map json__ "UpdateIpAddresses" UpdateIpAddresses.of_json in
      let resolverEndpointType =
        field_map json__ "ResolverEndpointType" ResolverEndpointType.of_json in
      let name = field_map json__ "Name" Name.of_json in
      let resolverEndpointId =
        field_map_exn json__ "ResolverEndpointId" ResourceId.of_json in
      make ?ipv6InternetAccessEnabled ?dns64Enabled
        ?targetNameServerMetricsEnabled ?rniEnhancedMetricsEnabled ?protocols
        ?updateIpAddresses ?resolverEndpointType ?name ~resolverEndpointId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the name, or endpoint type for an inbound or an outbound Resolver endpoint. You can only update between IPV4 and DUALSTACK, IPV6 endpoint type can't be updated to other type."]
module UpdateResolverDnssecConfigResponse =
  struct
    type nonrec t =
      {
      resolverDNSSECConfig: ResolverDnssecConfig.t option
        [@ocaml.doc
          "A complex type that contains settings for the specified DNSSEC configuration."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?resolverDNSSECConfig = fun () -> { resolverDNSSECConfig }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ResolverDNSSECConfig",
           (Option.map x.resolverDNSSECConfig
              ~f:ResolverDnssecConfig.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resolverDNSSECConfig =
        (Option.map ~f:ResolverDnssecConfig.of_xml)
          (Xml.child xml_arg0 "ResolverDNSSECConfig") in
      make ?resolverDNSSECConfig ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resolverDNSSECConfig =
        field_map json__ "ResolverDNSSECConfig" ResolverDnssecConfig.of_json in
      make ?resolverDNSSECConfig ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates an existing DNSSEC validation configuration. If there is no existing DNSSEC validation configuration, one is created."]
module UpdateResolverDnssecConfigRequest =
  struct
    type nonrec t =
      {
      resourceId: ResourceId.t
        [@ocaml.doc
          "The ID of the virtual private cloud (VPC) that you're updating the DNSSEC validation status for."];
      validation: Validation.t
        [@ocaml.doc
          "The new value that you are specifying for DNSSEC validation for the VPC. The value can be ENABLE or DISABLE. Be aware that it can take time for a validation status change to be completed."]}
    let context_ = "UpdateResolverDnssecConfigRequest"
    let make ~resourceId =
      fun ~validation -> fun () -> { resourceId; validation }
    let to_value x =
      structure_to_value
        [("ResourceId", (Some (ResourceId.to_value x.resourceId)));
        ("Validation", (Some (Validation.to_value x.validation)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let validation =
        Validation.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Validation") in
      let resourceId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceId") in
      make ~validation ~resourceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let validation = field_map_exn json__ "Validation" Validation.of_json in
      let resourceId = field_map_exn json__ "ResourceId" ResourceId.of_json in
      make ~validation ~resourceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates an existing DNSSEC validation configuration. If there is no existing DNSSEC validation configuration, one is created."]
module UpdateResolverConfigResponse =
  struct
    type nonrec t =
      {
      resolverConfig: ResolverConfig.t option
        [@ocaml.doc
          "An array that contains settings for the specified Resolver configuration."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ResourceUnavailableException of ResourceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?resolverConfig = fun () -> { resolverConfig }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ResourceUnavailableException" ->
          `ResourceUnavailableException
            (ResourceUnavailableException.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)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ResourceUnavailableException" ->
          `ResourceUnavailableException
            (ResourceUnavailableException.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))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ResourceUnavailableException e ->
          `Assoc
            [("error", (`String "ResourceUnavailableException"));
            ("details", (ResourceUnavailableException.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
        [("ResolverConfig",
           (Option.map x.resolverConfig ~f:ResolverConfig.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resolverConfig =
        (Option.map ~f:ResolverConfig.of_xml)
          (Xml.child xml_arg0 "ResolverConfig") in
      make ?resolverConfig ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resolverConfig =
        field_map json__ "ResolverConfig" ResolverConfig.of_json in
      make ?resolverConfig ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the behavior configuration of Route\194\16053 Resolver behavior for a single VPC from Amazon Virtual Private Cloud."]
module UpdateResolverConfigRequest =
  struct
    type nonrec t =
      {
      resourceId: ResourceId.t
        [@ocaml.doc
          "The ID of the Amazon Virtual Private Cloud VPC or a Route 53 Profile that you're configuring Resolver for."];
      autodefinedReverseFlag: AutodefinedReverseFlag.t
        [@ocaml.doc
          "Indicates whether or not the Resolver will create autodefined rules for reverse DNS lookups. This is enabled by default. Disabling this option will also affect EC2-Classic instances using ClassicLink. For more information, see ClassicLink in the Amazon EC2 guide. We are retiring EC2-Classic on August 15, 2022. We recommend that you migrate from EC2-Classic to a VPC. For more information, see Migrate from EC2-Classic to a VPC in the Amazon EC2 guide and the blog EC2-Classic Networking is Retiring \226\128\147 Here\226\128\153s How to Prepare. It can take some time for the status change to be completed."]}
    let context_ = "UpdateResolverConfigRequest"
    let make ~resourceId =
      fun ~autodefinedReverseFlag ->
        fun () -> { resourceId; autodefinedReverseFlag }
    let to_value x =
      structure_to_value
        [("ResourceId", (Some (ResourceId.to_value x.resourceId)));
        ("AutodefinedReverseFlag",
          (Some (AutodefinedReverseFlag.to_value x.autodefinedReverseFlag)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let autodefinedReverseFlag =
        AutodefinedReverseFlag.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AutodefinedReverseFlag") in
      let resourceId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceId") in
      make ~autodefinedReverseFlag ~resourceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let autodefinedReverseFlag =
        field_map_exn json__ "AutodefinedReverseFlag"
          AutodefinedReverseFlag.of_json in
      let resourceId = field_map_exn json__ "ResourceId" ResourceId.of_json in
      make ~autodefinedReverseFlag ~resourceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the behavior configuration of Route\194\16053 Resolver behavior for a single VPC from Amazon Virtual Private Cloud."]
module UpdateOutpostResolverResponse =
  struct
    type nonrec t =
      {
      outpostResolver: OutpostResolver.t option
        [@ocaml.doc "The response to an UpdateOutpostResolver request."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?outpostResolver = fun () -> { outpostResolver }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("OutpostResolver",
           (Option.map x.outpostResolver ~f:OutpostResolver.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let outpostResolver =
        (Option.map ~f:OutpostResolver.of_xml)
          (Xml.child xml_arg0 "OutpostResolver") in
      make ?outpostResolver ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let outpostResolver =
        field_map json__ "OutpostResolver" OutpostResolver.of_json in
      make ?outpostResolver ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "You can use UpdateOutpostResolver to update the instance count, type, or name of a Resolver on an Outpost."]
module UpdateOutpostResolverRequest =
  struct
    type nonrec t =
      {
      id: ResourceId.t
        [@ocaml.doc
          "A unique string that identifies Resolver on an Outpost."];
      name: OutpostResolverName.t option
        [@ocaml.doc "Name of the Resolver on the Outpost."];
      instanceCount: InstanceCount.t option
        [@ocaml.doc
          "The Amazon EC2 instance count for a Resolver on the Outpost."];
      preferredInstanceType: OutpostInstanceType.t option
        [@ocaml.doc "Amazon EC2 instance type."]}
    let context_ = "UpdateOutpostResolverRequest"
    let make ?name =
      fun ?instanceCount ->
        fun ?preferredInstanceType ->
          fun ~id ->
            fun () -> { name; instanceCount; preferredInstanceType; id }
    let to_value x =
      structure_to_value
        [("Id", (Some (ResourceId.to_value x.id)));
        ("Name", (Option.map x.name ~f:OutpostResolverName.to_value));
        ("InstanceCount",
          (Option.map x.instanceCount ~f:InstanceCount.to_value));
        ("PreferredInstanceType",
          (Option.map x.preferredInstanceType ~f:OutpostInstanceType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let preferredInstanceType =
        (Option.map ~f:OutpostInstanceType.of_xml)
          (Xml.child xml_arg0 "PreferredInstanceType") in
      let instanceCount =
        (Option.map ~f:InstanceCount.of_xml)
          (Xml.child xml_arg0 "InstanceCount") in
      let name =
        (Option.map ~f:OutpostResolverName.of_xml)
          (Xml.child xml_arg0 "Name") in
      let id =
        ResourceId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Id") in
      make ?preferredInstanceType ?instanceCount ?name ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let preferredInstanceType =
        field_map json__ "PreferredInstanceType" OutpostInstanceType.of_json in
      let instanceCount =
        field_map json__ "InstanceCount" InstanceCount.of_json in
      let name = field_map json__ "Name" OutpostResolverName.of_json in
      let id = field_map_exn json__ "Id" ResourceId.of_json in
      make ?preferredInstanceType ?instanceCount ?name ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "You can use UpdateOutpostResolver to update the instance count, type, or name of a Resolver on an Outpost."]
module UpdateFirewallRuleResponse =
  struct
    type nonrec t =
      {
      firewallRule: FirewallRule.t option
        [@ocaml.doc "The firewall rule that you just updated."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?firewallRule = fun () -> { firewallRule }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.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
        [("FirewallRule",
           (Option.map x.firewallRule ~f:FirewallRule.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let firewallRule =
        (Option.map ~f:FirewallRule.of_xml)
          (Xml.child xml_arg0 "FirewallRule") in
      make ?firewallRule ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let firewallRule = field_map json__ "FirewallRule" FirewallRule.of_json in
      make ?firewallRule ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the specified firewall rule."]
module UpdateFirewallRuleRequest =
  struct
    type nonrec t =
      {
      firewallRuleGroupId: ResourceId.t
        [@ocaml.doc
          "The unique identifier of the firewall rule group for the rule."];
      firewallDomainListId: ResourceId.t option
        [@ocaml.doc "The ID of the domain list to use in the rule."];
      firewallThreatProtectionId: ResourceId.t option
        [@ocaml.doc "The DNS Firewall Advanced rule ID."];
      priority: Priority.t option
        [@ocaml.doc
          "The setting that determines the processing order of the rule in the rule group. DNS Firewall processes the rules in a rule group by order of priority, starting from the lowest setting. You must specify a unique priority for each rule in a rule group. To make it easier to insert rules later, leave space between the numbers, for example, use 100, 200, and so on. You can change the priority setting for the rules in a rule group at any time."];
      action: Action.t option
        [@ocaml.doc
          "The action that DNS Firewall should take on a DNS query when it matches one of the domains in the rule's domain list, or a threat in a DNS Firewall Advanced rule: ALLOW - Permit the request to go through. Not available for DNS Firewall Advanced rules. ALERT - Permit the request to go through but send an alert to the logs. BLOCK - Disallow the request. This option requires additional details in the rule's BlockResponse."];
      blockResponse: BlockResponse.t option
        [@ocaml.doc
          "The way that you want DNS Firewall to block the request. Used for the rule action setting BLOCK. NODATA - Respond indicating that the query was successful, but no response is available for it. NXDOMAIN - Respond indicating that the domain name that's in the query doesn't exist. OVERRIDE - Provide a custom override in the response. This option requires custom handling details in the rule's BlockOverride* settings."];
      blockOverrideDomain: BlockOverrideDomain.t option
        [@ocaml.doc
          "The custom DNS record to send back in response to the query. Used for the rule action BLOCK with a BlockResponse setting of OVERRIDE."];
      blockOverrideDnsType: BlockOverrideDnsType.t option
        [@ocaml.doc
          "The DNS record's type. This determines the format of the record value that you provided in BlockOverrideDomain. Used for the rule action BLOCK with a BlockResponse setting of OVERRIDE."];
      blockOverrideTtl: BlockOverrideTtl.t option
        [@ocaml.doc
          "The recommended amount of time, in seconds, for the DNS resolver or web browser to cache the provided override record. Used for the rule action BLOCK with a BlockResponse setting of OVERRIDE."];
      name: Name.t option [@ocaml.doc "The name of the rule."];
      firewallDomainRedirectionAction:
        FirewallDomainRedirectionAction.t option
        [@ocaml.doc
          "How you want the the rule to evaluate DNS redirection in the DNS redirection chain, such as CNAME or DNAME. INSPECT_REDIRECTION_DOMAIN: (Default) inspects all domains in the redirection chain. The individual domains in the redirection chain must be added to the domain list. TRUST_REDIRECTION_DOMAIN: Inspects only the first domain in the redirection chain. You don't need to add the subsequent domains in the domain in the redirection list to the domain list."];
      qtype: Qtype.t option
        [@ocaml.doc
          "The DNS query type you want the rule to evaluate. Allowed values are; A: Returns an IPv4 address. AAAA: Returns an Ipv6 address. CAA: Restricts CAs that can create SSL/TLS certifications for the domain. CNAME: Returns another domain name. DS: Record that identifies the DNSSEC signing key of a delegated zone. MX: Specifies mail servers. NAPTR: Regular-expression-based rewriting of domain names. NS: Authoritative name servers. PTR: Maps an IP address to a domain name. SOA: Start of authority record for the zone. SPF: Lists the servers authorized to send emails from a domain. SRV: Application specific values that identify servers. TXT: Verifies email senders and application-specific values. A query type you define by using the DNS type ID, for example 28 for AAAA. The values must be defined as TYPENUMBER, where the NUMBER can be 1-65334, for example, TYPE28. For more information, see List of DNS record types. If you set up a firewall BLOCK rule with action NXDOMAIN on query type equals AAAA, this action will not be applied to synthetic IPv6 addresses generated when DNS64 is enabled."];
      dnsThreatProtection: DnsThreatProtection.t option
        [@ocaml.doc
          "The type of the DNS Firewall Advanced rule. Valid values are: DGA: Domain generation algorithms detection. DGAs are used by attackers to generate a large number of domains to to launch malware attacks. DNS_TUNNELING: DNS tunneling detection. DNS tunneling is used by attackers to exfiltrate data from the client by using the DNS tunnel without making a network connection to the client."];
      confidenceThreshold: ConfidenceThreshold.t option
        [@ocaml.doc
          "The confidence threshold for DNS Firewall Advanced. You must provide this value when you create a DNS Firewall Advanced rule. The confidence level values mean: LOW: Provides the highest detection rate for threats, but also increases false positives. MEDIUM: Provides a balance between detecting threats and false positives. HIGH: Detects only the most well corroborated threats with a low rate of false positives."]}
    let context_ = "UpdateFirewallRuleRequest"
    let make ?firewallDomainListId =
      fun ?firewallThreatProtectionId ->
        fun ?priority ->
          fun ?action ->
            fun ?blockResponse ->
              fun ?blockOverrideDomain ->
                fun ?blockOverrideDnsType ->
                  fun ?blockOverrideTtl ->
                    fun ?name ->
                      fun ?firewallDomainRedirectionAction ->
                        fun ?qtype ->
                          fun ?dnsThreatProtection ->
                            fun ?confidenceThreshold ->
                              fun ~firewallRuleGroupId ->
                                fun () ->
                                  {
                                    firewallDomainListId;
                                    firewallThreatProtectionId;
                                    priority;
                                    action;
                                    blockResponse;
                                    blockOverrideDomain;
                                    blockOverrideDnsType;
                                    blockOverrideTtl;
                                    name;
                                    firewallDomainRedirectionAction;
                                    qtype;
                                    dnsThreatProtection;
                                    confidenceThreshold;
                                    firewallRuleGroupId
                                  }
    let to_value x =
      structure_to_value
        [("FirewallRuleGroupId",
           (Some (ResourceId.to_value x.firewallRuleGroupId)));
        ("FirewallDomainListId",
          (Option.map x.firewallDomainListId ~f:ResourceId.to_value));
        ("FirewallThreatProtectionId",
          (Option.map x.firewallThreatProtectionId ~f:ResourceId.to_value));
        ("Priority", (Option.map x.priority ~f:Priority.to_value));
        ("Action", (Option.map x.action ~f:Action.to_value));
        ("BlockResponse",
          (Option.map x.blockResponse ~f:BlockResponse.to_value));
        ("BlockOverrideDomain",
          (Option.map x.blockOverrideDomain ~f:BlockOverrideDomain.to_value));
        ("BlockOverrideDnsType",
          (Option.map x.blockOverrideDnsType ~f:BlockOverrideDnsType.to_value));
        ("BlockOverrideTtl",
          (Option.map x.blockOverrideTtl ~f:BlockOverrideTtl.to_value));
        ("Name", (Option.map x.name ~f:Name.to_value));
        ("FirewallDomainRedirectionAction",
          (Option.map x.firewallDomainRedirectionAction
             ~f:FirewallDomainRedirectionAction.to_value));
        ("Qtype", (Option.map x.qtype ~f:Qtype.to_value));
        ("DnsThreatProtection",
          (Option.map x.dnsThreatProtection ~f:DnsThreatProtection.to_value));
        ("ConfidenceThreshold",
          (Option.map x.confidenceThreshold ~f:ConfidenceThreshold.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let confidenceThreshold =
        (Option.map ~f:ConfidenceThreshold.of_xml)
          (Xml.child xml_arg0 "ConfidenceThreshold") in
      let dnsThreatProtection =
        (Option.map ~f:DnsThreatProtection.of_xml)
          (Xml.child xml_arg0 "DnsThreatProtection") in
      let qtype = (Option.map ~f:Qtype.of_xml) (Xml.child xml_arg0 "Qtype") in
      let firewallDomainRedirectionAction =
        (Option.map ~f:FirewallDomainRedirectionAction.of_xml)
          (Xml.child xml_arg0 "FirewallDomainRedirectionAction") in
      let name = (Option.map ~f:Name.of_xml) (Xml.child xml_arg0 "Name") in
      let blockOverrideTtl =
        (Option.map ~f:BlockOverrideTtl.of_xml)
          (Xml.child xml_arg0 "BlockOverrideTtl") in
      let blockOverrideDnsType =
        (Option.map ~f:BlockOverrideDnsType.of_xml)
          (Xml.child xml_arg0 "BlockOverrideDnsType") in
      let blockOverrideDomain =
        (Option.map ~f:BlockOverrideDomain.of_xml)
          (Xml.child xml_arg0 "BlockOverrideDomain") in
      let blockResponse =
        (Option.map ~f:BlockResponse.of_xml)
          (Xml.child xml_arg0 "BlockResponse") in
      let action =
        (Option.map ~f:Action.of_xml) (Xml.child xml_arg0 "Action") in
      let priority =
        (Option.map ~f:Priority.of_xml) (Xml.child xml_arg0 "Priority") in
      let firewallThreatProtectionId =
        (Option.map ~f:ResourceId.of_xml)
          (Xml.child xml_arg0 "FirewallThreatProtectionId") in
      let firewallDomainListId =
        (Option.map ~f:ResourceId.of_xml)
          (Xml.child xml_arg0 "FirewallDomainListId") in
      let firewallRuleGroupId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FirewallRuleGroupId") in
      make ?confidenceThreshold ?dnsThreatProtection ?qtype
        ?firewallDomainRedirectionAction ?name ?blockOverrideTtl
        ?blockOverrideDnsType ?blockOverrideDomain ?blockResponse ?action
        ?priority ?firewallThreatProtectionId ?firewallDomainListId
        ~firewallRuleGroupId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let confidenceThreshold =
        field_map json__ "ConfidenceThreshold" ConfidenceThreshold.of_json in
      let dnsThreatProtection =
        field_map json__ "DnsThreatProtection" DnsThreatProtection.of_json in
      let qtype = field_map json__ "Qtype" Qtype.of_json in
      let firewallDomainRedirectionAction =
        field_map json__ "FirewallDomainRedirectionAction"
          FirewallDomainRedirectionAction.of_json in
      let name = field_map json__ "Name" Name.of_json in
      let blockOverrideTtl =
        field_map json__ "BlockOverrideTtl" BlockOverrideTtl.of_json in
      let blockOverrideDnsType =
        field_map json__ "BlockOverrideDnsType" BlockOverrideDnsType.of_json in
      let blockOverrideDomain =
        field_map json__ "BlockOverrideDomain" BlockOverrideDomain.of_json in
      let blockResponse =
        field_map json__ "BlockResponse" BlockResponse.of_json in
      let action = field_map json__ "Action" Action.of_json in
      let priority = field_map json__ "Priority" Priority.of_json in
      let firewallThreatProtectionId =
        field_map json__ "FirewallThreatProtectionId" ResourceId.of_json in
      let firewallDomainListId =
        field_map json__ "FirewallDomainListId" ResourceId.of_json in
      let firewallRuleGroupId =
        field_map_exn json__ "FirewallRuleGroupId" ResourceId.of_json in
      make ?confidenceThreshold ?dnsThreatProtection ?qtype
        ?firewallDomainRedirectionAction ?name ?blockOverrideTtl
        ?blockOverrideDnsType ?blockOverrideDomain ?blockResponse ?action
        ?priority ?firewallThreatProtectionId ?firewallDomainListId
        ~firewallRuleGroupId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the specified firewall rule."]
module UpdateFirewallRuleGroupAssociationResponse =
  struct
    type nonrec t =
      {
      firewallRuleGroupAssociation: FirewallRuleGroupAssociation.t option
        [@ocaml.doc "The association that you just updated."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?firewallRuleGroupAssociation =
      fun () -> { firewallRuleGroupAssociation }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.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
        [("FirewallRuleGroupAssociation",
           (Option.map x.firewallRuleGroupAssociation
              ~f:FirewallRuleGroupAssociation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let firewallRuleGroupAssociation =
        (Option.map ~f:FirewallRuleGroupAssociation.of_xml)
          (Xml.child xml_arg0 "FirewallRuleGroupAssociation") in
      make ?firewallRuleGroupAssociation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let firewallRuleGroupAssociation =
        field_map json__ "FirewallRuleGroupAssociation"
          FirewallRuleGroupAssociation.of_json in
      make ?firewallRuleGroupAssociation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Changes the association of a FirewallRuleGroup with a VPC. The association enables DNS filtering for the VPC."]
module UpdateFirewallRuleGroupAssociationRequest =
  struct
    type nonrec t =
      {
      firewallRuleGroupAssociationId: ResourceId.t
        [@ocaml.doc "The identifier of the FirewallRuleGroupAssociation."];
      priority: Priority.t option
        [@ocaml.doc
          "The setting that determines the processing order of the rule group among the rule groups that you associate with the specified VPC. DNS Firewall filters VPC traffic starting from the rule group with the lowest numeric priority setting. You must specify a unique priority for each rule group that you associate with a single VPC. To make it easier to insert rule groups later, leave space between the numbers, for example, use 100, 200, and so on. You can change the priority setting for a rule group association after you create it."];
      mutationProtection: MutationProtectionStatus.t option
        [@ocaml.doc
          "If enabled, this setting disallows modification or removal of the association, to help prevent against accidentally altering DNS firewall protections."];
      name: Name.t option
        [@ocaml.doc "The name of the rule group association."]}
    let context_ = "UpdateFirewallRuleGroupAssociationRequest"
    let make ?priority =
      fun ?mutationProtection ->
        fun ?name ->
          fun ~firewallRuleGroupAssociationId ->
            fun () ->
              {
                priority;
                mutationProtection;
                name;
                firewallRuleGroupAssociationId
              }
    let to_value x =
      structure_to_value
        [("FirewallRuleGroupAssociationId",
           (Some (ResourceId.to_value x.firewallRuleGroupAssociationId)));
        ("Priority", (Option.map x.priority ~f:Priority.to_value));
        ("MutationProtection",
          (Option.map x.mutationProtection
             ~f:MutationProtectionStatus.to_value));
        ("Name", (Option.map x.name ~f:Name.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name = (Option.map ~f:Name.of_xml) (Xml.child xml_arg0 "Name") in
      let mutationProtection =
        (Option.map ~f:MutationProtectionStatus.of_xml)
          (Xml.child xml_arg0 "MutationProtection") in
      let priority =
        (Option.map ~f:Priority.of_xml) (Xml.child xml_arg0 "Priority") in
      let firewallRuleGroupAssociationId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "FirewallRuleGroupAssociationId") in
      make ?name ?mutationProtection ?priority
        ~firewallRuleGroupAssociationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map json__ "Name" Name.of_json in
      let mutationProtection =
        field_map json__ "MutationProtection"
          MutationProtectionStatus.of_json in
      let priority = field_map json__ "Priority" Priority.of_json in
      let firewallRuleGroupAssociationId =
        field_map_exn json__ "FirewallRuleGroupAssociationId"
          ResourceId.of_json in
      make ?name ?mutationProtection ?priority
        ~firewallRuleGroupAssociationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Changes the association of a FirewallRuleGroup with a VPC. The association enables DNS filtering for the VPC."]
module UpdateFirewallDomainsResponse =
  struct
    type nonrec t =
      {
      id: ResourceId.t option
        [@ocaml.doc
          "The ID of the firewall domain list that DNS Firewall just updated."];
      name: Name.t option [@ocaml.doc "The name of the domain list."];
      status: FirewallDomainListStatus.t option
        [@ocaml.doc "Status of the UpdateFirewallDomains request."];
      statusMessage: StatusMessage.t option
        [@ocaml.doc
          "Additional information about the status of the list, if available."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?id =
      fun ?name ->
        fun ?status ->
          fun ?statusMessage -> fun () -> { id; name; status; statusMessage }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `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
        [("Id", (Option.map x.id ~f:ResourceId.to_value));
        ("Name", (Option.map x.name ~f:Name.to_value));
        ("Status",
          (Option.map x.status ~f:FirewallDomainListStatus.to_value));
        ("StatusMessage",
          (Option.map x.statusMessage ~f:StatusMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statusMessage =
        (Option.map ~f:StatusMessage.of_xml)
          (Xml.child xml_arg0 "StatusMessage") in
      let status =
        (Option.map ~f:FirewallDomainListStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let name = (Option.map ~f:Name.of_xml) (Xml.child xml_arg0 "Name") in
      let id = (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "Id") in
      make ?statusMessage ?status ?name ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statusMessage =
        field_map json__ "StatusMessage" StatusMessage.of_json in
      let status = field_map json__ "Status" FirewallDomainListStatus.of_json in
      let name = field_map json__ "Name" Name.of_json in
      let id = field_map json__ "Id" ResourceId.of_json in
      make ?statusMessage ?status ?name ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the firewall domain list from an array of domain specifications."]
module UpdateFirewallDomainsRequest =
  struct
    type nonrec t =
      {
      firewallDomainListId: ResourceId.t
        [@ocaml.doc
          "The ID of the domain list whose domains you want to update."];
      operation: FirewallDomainUpdateOperation.t
        [@ocaml.doc
          "What you want DNS Firewall to do with the domains that you are providing: ADD - Add the domains to the ones that are already in the domain list. REMOVE - Search the domain list for the domains and remove them from the list. REPLACE - Update the domain list to exactly match the list that you are providing."];
      domains: FirewallDomains.t
        [@ocaml.doc
          "A list of domains to use in the update operation. There is a limit of 1000 domains per request. Each domain specification in your domain list must satisfy the following requirements: It can optionally start with * (asterisk). With the exception of the optional starting asterisk, it must only contain the following characters: A-Z, a-z, 0-9, - (hyphen). It must be from 1-255 characters in length."]}
    let context_ = "UpdateFirewallDomainsRequest"
    let make ~firewallDomainListId =
      fun ~operation ->
        fun ~domains ->
          fun () -> { firewallDomainListId; operation; domains }
    let to_value x =
      structure_to_value
        [("FirewallDomainListId",
           (Some (ResourceId.to_value x.firewallDomainListId)));
        ("Operation",
          (Some (FirewallDomainUpdateOperation.to_value x.operation)));
        ("Domains", (Some (FirewallDomains.to_value x.domains)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let domains =
        FirewallDomains.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Domains") in
      let operation =
        FirewallDomainUpdateOperation.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Operation") in
      let firewallDomainListId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FirewallDomainListId") in
      make ~domains ~operation ~firewallDomainListId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let domains = field_map_exn json__ "Domains" FirewallDomains.of_json in
      let operation =
        field_map_exn json__ "Operation"
          FirewallDomainUpdateOperation.of_json in
      let firewallDomainListId =
        field_map_exn json__ "FirewallDomainListId" ResourceId.of_json in
      make ~domains ~operation ~firewallDomainListId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the firewall domain list from an array of domain specifications."]
module UpdateFirewallConfigResponse =
  struct
    type nonrec t =
      {
      firewallConfig: FirewallConfig.t option
        [@ocaml.doc
          "Configuration of the firewall behavior provided by DNS Firewall for a single VPC."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?firewallConfig = fun () -> { firewallConfig }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.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)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.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))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.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
        [("FirewallConfig",
           (Option.map x.firewallConfig ~f:FirewallConfig.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let firewallConfig =
        (Option.map ~f:FirewallConfig.of_xml)
          (Xml.child xml_arg0 "FirewallConfig") in
      make ?firewallConfig ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let firewallConfig =
        field_map json__ "FirewallConfig" FirewallConfig.of_json in
      make ?firewallConfig ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the configuration of the firewall behavior provided by DNS Firewall for a single VPC from Amazon Virtual Private Cloud (Amazon VPC)."]
module UpdateFirewallConfigRequest =
  struct
    type nonrec t =
      {
      resourceId: ResourceId.t
        [@ocaml.doc "The ID of the VPC that the configuration is for."];
      firewallFailOpen: FirewallFailOpenStatus.t
        [@ocaml.doc
          "Determines how Route 53 Resolver handles queries during failures, for example when all traffic that is sent to DNS Firewall fails to receive a reply. By default, fail open is disabled, which means the failure mode is closed. This approach favors security over availability. DNS Firewall blocks queries that it is unable to evaluate properly. If you enable this option, the failure mode is open. This approach favors availability over security. DNS Firewall allows queries to proceed if it is unable to properly evaluate them. This behavior is only enforced for VPCs that have at least one DNS Firewall rule group association."]}
    let context_ = "UpdateFirewallConfigRequest"
    let make ~resourceId =
      fun ~firewallFailOpen -> fun () -> { resourceId; firewallFailOpen }
    let to_value x =
      structure_to_value
        [("ResourceId", (Some (ResourceId.to_value x.resourceId)));
        ("FirewallFailOpen",
          (Some (FirewallFailOpenStatus.to_value x.firewallFailOpen)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let firewallFailOpen =
        FirewallFailOpenStatus.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FirewallFailOpen") in
      let resourceId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceId") in
      make ~firewallFailOpen ~resourceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let firewallFailOpen =
        field_map_exn json__ "FirewallFailOpen"
          FirewallFailOpenStatus.of_json in
      let resourceId = field_map_exn json__ "ResourceId" ResourceId.of_json in
      make ~firewallFailOpen ~resourceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the configuration of the firewall behavior provided by DNS Firewall for a single VPC from Amazon Virtual Private Cloud (Amazon VPC)."]
module UntagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InternalServiceErrorException of InternalServiceErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Removes one or more tags from a specified resource."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the resource that you want to remove tags from. To get the ARN for a resource, use the applicable Get or List command: GetResolverEndpoint GetResolverRule GetResolverRuleAssociation ListResolverEndpoints ListResolverRuleAssociations ListResolverRules"];
      tagKeys: TagKeyList.t
        [@ocaml.doc
          "The tags that you want to remove to the specified resource."]}
    let context_ = "UntagResourceRequest"
    let make ~resourceArn =
      fun ~tagKeys -> fun () -> { resourceArn; tagKeys }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (Arn.to_value x.resourceArn)));
        ("TagKeys", (Some (TagKeyList.to_value x.tagKeys)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagKeys =
        TagKeyList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TagKeys") in
      let resourceArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "ResourceArn") in
      make ~tagKeys ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagKeys = field_map_exn json__ "TagKeys" TagKeyList.of_json in
      let resourceArn = field_map_exn json__ "ResourceArn" Arn.of_json in
      make ~tagKeys ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Removes one or more tags from a specified resource."]
module TagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InternalServiceErrorException of InternalServiceErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `InvalidTagException of InvalidTagException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "InvalidTagException" ->
          `InvalidTagException (InvalidTagException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "InvalidTagException" ->
          `InvalidTagException (InvalidTagException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `InvalidTagException e ->
          `Assoc
            [("error", (`String "InvalidTagException"));
            ("details", (InvalidTagException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let 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 one or more tags to a specified resource."]
module TagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the resource that you want to add tags to. To get the ARN for a resource, use the applicable Get or List command: GetResolverEndpoint GetResolverRule GetResolverRuleAssociation ListResolverEndpoints ListResolverRuleAssociations ListResolverRules"];
      tags: TagList.t
        [@ocaml.doc
          "The tags that you want to add to the specified resource."]}
    let context_ = "TagResourceRequest"
    let make ~resourceArn = fun ~tags -> fun () -> { resourceArn; tags }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (Arn.to_value x.resourceArn)));
        ("Tags", (Some (TagList.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        TagList.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Tags") in
      let resourceArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "ResourceArn") in
      make ~tags ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map_exn json__ "Tags" TagList.of_json in
      let resourceArn = field_map_exn json__ "ResourceArn" Arn.of_json in
      make ~tags ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Adds one or more tags to a specified resource."]
module PutResolverRulePolicyResponse =
  struct
    type nonrec t =
      {
      returnValue: Boolean.t option
        [@ocaml.doc
          "Whether the PutResolverRulePolicy request was successful."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `InvalidPolicyDocument of InvalidPolicyDocument.t 
      | `UnknownResourceException of UnknownResourceException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?returnValue = fun () -> { returnValue }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidPolicyDocument" ->
          `InvalidPolicyDocument (InvalidPolicyDocument.of_json json)
      | "UnknownResourceException" ->
          `UnknownResourceException (UnknownResourceException.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)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidPolicyDocument" ->
          `InvalidPolicyDocument (InvalidPolicyDocument.of_xml xml)
      | "UnknownResourceException" ->
          `UnknownResourceException (UnknownResourceException.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))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidPolicyDocument e ->
          `Assoc
            [("error", (`String "InvalidPolicyDocument"));
            ("details", (InvalidPolicyDocument.to_json e))]
      | `UnknownResourceException e ->
          `Assoc
            [("error", (`String "UnknownResourceException"));
            ("details", (UnknownResourceException.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
        [("ReturnValue", (Option.map x.returnValue ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let returnValue =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "ReturnValue") in
      make ?returnValue ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let returnValue = field_map json__ "ReturnValue" Boolean.of_json in
      make ?returnValue ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The response to a PutResolverRulePolicy request."]
module PutResolverRulePolicyRequest =
  struct
    type nonrec t =
      {
      arn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the rule that you want to share with another account."];
      resolverRulePolicy: ResolverRulePolicy.t
        [@ocaml.doc
          "An Identity and Access Management policy statement that lists the rules that you want to share with another Amazon Web Services account and the operations that you want the account to be able to perform. You can specify the following operations in the Action section of the statement: route53resolver:GetResolverRule route53resolver:AssociateResolverRule route53resolver:DisassociateResolverRule route53resolver:ListResolverRules route53resolver:ListResolverRuleAssociations In the Resource section of the statement, specify the ARN for the rule that you want to share with another account. Specify the same ARN that you specified in Arn."]}
    let context_ = "PutResolverRulePolicyRequest"
    let make ~arn =
      fun ~resolverRulePolicy -> fun () -> { arn; resolverRulePolicy }
    let to_value x =
      structure_to_value
        [("Arn", (Some (Arn.to_value x.arn)));
        ("ResolverRulePolicy",
          (Some (ResolverRulePolicy.to_value x.resolverRulePolicy)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resolverRulePolicy =
        ResolverRulePolicy.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResolverRulePolicy") in
      let arn = Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Arn") in
      make ~resolverRulePolicy ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resolverRulePolicy =
        field_map_exn json__ "ResolverRulePolicy" ResolverRulePolicy.of_json in
      let arn = field_map_exn json__ "Arn" Arn.of_json in
      make ~resolverRulePolicy ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies an Amazon Web Services rule that you want to share with another account, the account that you want to share the rule with, and the operations that you want the account to be able to perform on the rule."]
module PutResolverQueryLogConfigPolicyResponse =
  struct
    type nonrec t =
      {
      returnValue: Boolean.t option
        [@ocaml.doc
          "Whether the PutResolverQueryLogConfigPolicy request was successful."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `InvalidPolicyDocument of InvalidPolicyDocument.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `UnknownResourceException of UnknownResourceException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?returnValue = fun () -> { returnValue }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidPolicyDocument" ->
          `InvalidPolicyDocument (InvalidPolicyDocument.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "UnknownResourceException" ->
          `UnknownResourceException (UnknownResourceException.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)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidPolicyDocument" ->
          `InvalidPolicyDocument (InvalidPolicyDocument.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "UnknownResourceException" ->
          `UnknownResourceException (UnknownResourceException.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))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidPolicyDocument e ->
          `Assoc
            [("error", (`String "InvalidPolicyDocument"));
            ("details", (InvalidPolicyDocument.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `UnknownResourceException e ->
          `Assoc
            [("error", (`String "UnknownResourceException"));
            ("details", (UnknownResourceException.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
        [("ReturnValue", (Option.map x.returnValue ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let returnValue =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "ReturnValue") in
      make ?returnValue ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let returnValue = field_map json__ "ReturnValue" Boolean.of_json in
      make ?returnValue ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The response to a PutResolverQueryLogConfigPolicy request."]
module PutResolverQueryLogConfigPolicyRequest =
  struct
    type nonrec t =
      {
      arn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the account that you want to share rules with."];
      resolverQueryLogConfigPolicy: ResolverQueryLogConfigPolicy.t
        [@ocaml.doc
          "An Identity and Access Management policy statement that lists the query logging configurations that you want to share with another Amazon Web Services account and the operations that you want the account to be able to perform. You can specify the following operations in the Actions section of the statement: route53resolver:AssociateResolverQueryLogConfig route53resolver:DisassociateResolverQueryLogConfig route53resolver:ListResolverQueryLogConfigs In the Resource section of the statement, you specify the ARNs for the query logging configurations that you want to share with the account that you specified in Arn."]}
    let context_ = "PutResolverQueryLogConfigPolicyRequest"
    let make ~arn =
      fun ~resolverQueryLogConfigPolicy ->
        fun () -> { arn; resolverQueryLogConfigPolicy }
    let to_value x =
      structure_to_value
        [("Arn", (Some (Arn.to_value x.arn)));
        ("ResolverQueryLogConfigPolicy",
          (Some
             (ResolverQueryLogConfigPolicy.to_value
                x.resolverQueryLogConfigPolicy)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resolverQueryLogConfigPolicy =
        ResolverQueryLogConfigPolicy.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "ResolverQueryLogConfigPolicy") in
      let arn = Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Arn") in
      make ~resolverQueryLogConfigPolicy ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resolverQueryLogConfigPolicy =
        field_map_exn json__ "ResolverQueryLogConfigPolicy"
          ResolverQueryLogConfigPolicy.of_json in
      let arn = field_map_exn json__ "Arn" Arn.of_json in
      make ~resolverQueryLogConfigPolicy ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies an Amazon Web Services account that you want to share a query logging configuration with, the query logging configuration that you want to share, and the operations that you want the account to be able to perform on the configuration."]
module PutFirewallRuleGroupPolicyResponse =
  struct
    type nonrec t = {
      returnValue: Boolean.t option }
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?returnValue = fun () -> { returnValue }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.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)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.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))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.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
        [("ReturnValue", (Option.map x.returnValue ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let returnValue =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "ReturnValue") in
      make ?returnValue ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let returnValue = field_map json__ "ReturnValue" Boolean.of_json in
      make ?returnValue ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Attaches an Identity and Access Management (Amazon Web Services IAM) policy for sharing the rule group. You can use the policy to share the rule group using Resource Access Manager (RAM)."]
module PutFirewallRuleGroupPolicyRequest =
  struct
    type nonrec t =
      {
      arn: Arn.t
        [@ocaml.doc
          "The ARN (Amazon Resource Name) for the rule group that you want to share."];
      firewallRuleGroupPolicy: FirewallRuleGroupPolicy.t
        [@ocaml.doc
          "The Identity and Access Management (Amazon Web Services IAM) policy to attach to the rule group."]}
    let context_ = "PutFirewallRuleGroupPolicyRequest"
    let make ~arn =
      fun ~firewallRuleGroupPolicy ->
        fun () -> { arn; firewallRuleGroupPolicy }
    let to_value x =
      structure_to_value
        [("Arn", (Some (Arn.to_value x.arn)));
        ("FirewallRuleGroupPolicy",
          (Some (FirewallRuleGroupPolicy.to_value x.firewallRuleGroupPolicy)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let firewallRuleGroupPolicy =
        FirewallRuleGroupPolicy.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FirewallRuleGroupPolicy") in
      let arn = Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Arn") in
      make ~firewallRuleGroupPolicy ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let firewallRuleGroupPolicy =
        field_map_exn json__ "FirewallRuleGroupPolicy"
          FirewallRuleGroupPolicy.of_json in
      let arn = field_map_exn json__ "Arn" Arn.of_json in
      make ~firewallRuleGroupPolicy ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Attaches an Identity and Access Management (Amazon Web Services IAM) policy for sharing the rule group. You can use the policy to share the rule group using Resource Access Manager (RAM)."]
module ListTagsForResourceResponse =
  struct
    type nonrec t =
      {
      tags: TagList.t option
        [@ocaml.doc
          "The tags that are associated with the resource that you specified in the ListTagsForResource request."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If more than MaxResults tags match the specified criteria, you can submit another ListTagsForResource request to get the next group of results. In the next request, specify the value of NextToken from the previous response."]}
    type nonrec error =
      [ `InternalServiceErrorException of InternalServiceErrorException.t 
      | `InvalidNextTokenException of InvalidNextTokenException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tags = fun ?nextToken -> fun () -> { tags; nextToken }
    let error_of_json name json =
      match name with
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      make ?nextToken ?tags ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      make ?nextToken ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the tags that you associated with the specified resource."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the resource that you want to list tags for."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of tags that you want to return in the response to a ListTagsForResource request. If you don't specify a value for MaxResults, Resolver returns up to 100 tags."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "For the first ListTagsForResource request, omit this value. If you have more than MaxResults tags, you can submit another ListTagsForResource request to get the next group of tags for the resource. In the next request, specify the value of NextToken from the previous response."]}
    let context_ = "ListTagsForResourceRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~resourceArn -> fun () -> { maxResults; nextToken; resourceArn }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (Arn.to_value x.resourceArn)));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let resourceArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "ResourceArn") in
      make ?nextToken ?maxResults ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let resourceArn = field_map_exn json__ "ResourceArn" Arn.of_json in
      make ?nextToken ?maxResults ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the tags that you associated with the specified resource."]
module ListResolverRulesResponse =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "If more than MaxResults Resolver rules match the specified criteria, you can submit another ListResolverRules request to get the next group of results. In the next request, specify the value of NextToken from the previous response."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The value that you specified for MaxResults in the request."];
      resolverRules: ResolverRules.t option
        [@ocaml.doc
          "The Resolver rules that were created using the current Amazon Web Services account and that match the specified filters, if any."]}
    type nonrec error =
      [ `InternalServiceErrorException of InternalServiceErrorException.t 
      | `InvalidNextTokenException of InvalidNextTokenException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?maxResults ->
        fun ?resolverRules ->
          fun () -> { nextToken; maxResults; resolverRules }
    let error_of_json name json =
      match name with
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("ResolverRules",
          (Option.map x.resolverRules ~f:ResolverRules.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resolverRules =
        (Option.map ~f:ResolverRules.of_xml)
          (Xml.child xml_arg0 "ResolverRules") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?resolverRules ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resolverRules =
        field_map json__ "ResolverRules" ResolverRules.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      make ?resolverRules ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the Resolver rules that were created using the current Amazon Web Services account."]
module ListResolverRulesRequest =
  struct
    type nonrec t =
      {
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of Resolver rules that you want to return in the response to a ListResolverRules request. If you don't specify a value for MaxResults, Resolver returns up to 100 Resolver rules."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "For the first ListResolverRules request, omit this value. If you have more than MaxResults Resolver rules, you can submit another ListResolverRules request to get the next group of Resolver rules. In the next request, specify the value of NextToken from the previous response."];
      filters: Filters.t option
        [@ocaml.doc
          "An optional specification to return a subset of Resolver rules, such as all Resolver rules that are associated with the same Resolver endpoint. If you submit a second or subsequent ListResolverRules request and specify the NextToken parameter, you must use the same values for Filters, if any, as in the previous request."]}
    let make ?maxResults =
      fun ?nextToken ->
        fun ?filters -> fun () -> { maxResults; nextToken; filters }
    let to_value x =
      structure_to_value
        [("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("Filters", (Option.map x.filters ~f:Filters.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let filters =
        (Option.map ~f:Filters.of_xml) (Xml.child xml_arg0 "Filters") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      make ?filters ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let filters = field_map json__ "Filters" Filters.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      make ?filters ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the Resolver rules that were created using the current Amazon Web Services account."]
module ListResolverRuleAssociationsResponse =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "If more than MaxResults rule associations match the specified criteria, you can submit another ListResolverRuleAssociation request to get the next group of results. In the next request, specify the value of NextToken from the previous response."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The value that you specified for MaxResults in the request."];
      resolverRuleAssociations: ResolverRuleAssociations.t option
        [@ocaml.doc
          "The associations that were created between Resolver rules and VPCs using the current Amazon Web Services account, and that match the specified filters, if any."]}
    type nonrec error =
      [ `InternalServiceErrorException of InternalServiceErrorException.t 
      | `InvalidNextTokenException of InvalidNextTokenException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?maxResults ->
        fun ?resolverRuleAssociations ->
          fun () -> { nextToken; maxResults; resolverRuleAssociations }
    let error_of_json name json =
      match name with
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("ResolverRuleAssociations",
          (Option.map x.resolverRuleAssociations
             ~f:ResolverRuleAssociations.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resolverRuleAssociations =
        (Option.map ~f:ResolverRuleAssociations.of_xml)
          (Xml.child xml_arg0 "ResolverRuleAssociations") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?resolverRuleAssociations ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resolverRuleAssociations =
        field_map json__ "ResolverRuleAssociations"
          ResolverRuleAssociations.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      make ?resolverRuleAssociations ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the associations that were created between Resolver rules and VPCs using the current Amazon Web Services account."]
module ListResolverRuleAssociationsRequest =
  struct
    type nonrec t =
      {
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of rule associations that you want to return in the response to a ListResolverRuleAssociations request. If you don't specify a value for MaxResults, Resolver returns up to 100 rule associations."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "For the first ListResolverRuleAssociation request, omit this value. If you have more than MaxResults rule associations, you can submit another ListResolverRuleAssociation request to get the next group of rule associations. In the next request, specify the value of NextToken from the previous response."];
      filters: Filters.t option
        [@ocaml.doc
          "An optional specification to return a subset of Resolver rules, such as Resolver rules that are associated with the same VPC ID. If you submit a second or subsequent ListResolverRuleAssociations request and specify the NextToken parameter, you must use the same values for Filters, if any, as in the previous request."]}
    let make ?maxResults =
      fun ?nextToken ->
        fun ?filters -> fun () -> { maxResults; nextToken; filters }
    let to_value x =
      structure_to_value
        [("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("Filters", (Option.map x.filters ~f:Filters.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let filters =
        (Option.map ~f:Filters.of_xml) (Xml.child xml_arg0 "Filters") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      make ?filters ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let filters = field_map json__ "Filters" Filters.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      make ?filters ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the associations that were created between Resolver rules and VPCs using the current Amazon Web Services account."]
module ListResolverQueryLogConfigsResponse =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "If there are more than MaxResults query logging configurations, you can submit another ListResolverQueryLogConfigs request to get the next group of configurations. In the next request, specify the value of NextToken from the previous response."];
      totalCount: Count.t option
        [@ocaml.doc
          "The total number of query logging configurations that were created by the current account in the specified Region. This count can differ from the number of query logging configurations that are returned in a ListResolverQueryLogConfigs response, depending on the values that you specify in the request."];
      totalFilteredCount: Count.t option
        [@ocaml.doc
          "The total number of query logging configurations that were created by the current account in the specified Region and that match the filters that were specified in the ListResolverQueryLogConfigs request. For the total number of query logging configurations that were created by the current account in the specified Region, see TotalCount."];
      resolverQueryLogConfigs: ResolverQueryLogConfigList.t option
        [@ocaml.doc
          "A list that contains one ResolverQueryLogConfig element for each query logging configuration that matches the values that you specified for Filter."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `InvalidNextTokenException of InvalidNextTokenException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?totalCount ->
        fun ?totalFilteredCount ->
          fun ?resolverQueryLogConfigs ->
            fun () ->
              {
                nextToken;
                totalCount;
                totalFilteredCount;
                resolverQueryLogConfigs
              }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("TotalCount", (Option.map x.totalCount ~f:Count.to_value));
        ("TotalFilteredCount",
          (Option.map x.totalFilteredCount ~f:Count.to_value));
        ("ResolverQueryLogConfigs",
          (Option.map x.resolverQueryLogConfigs
             ~f:ResolverQueryLogConfigList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resolverQueryLogConfigs =
        (Option.map ~f:ResolverQueryLogConfigList.of_xml)
          (Xml.child xml_arg0 "ResolverQueryLogConfigs") in
      let totalFilteredCount =
        (Option.map ~f:Count.of_xml)
          (Xml.child xml_arg0 "TotalFilteredCount") in
      let totalCount =
        (Option.map ~f:Count.of_xml) (Xml.child xml_arg0 "TotalCount") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?resolverQueryLogConfigs ?totalFilteredCount ?totalCount
        ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resolverQueryLogConfigs =
        field_map json__ "ResolverQueryLogConfigs"
          ResolverQueryLogConfigList.of_json in
      let totalFilteredCount =
        field_map json__ "TotalFilteredCount" Count.of_json in
      let totalCount = field_map json__ "TotalCount" Count.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      make ?resolverQueryLogConfigs ?totalFilteredCount ?totalCount
        ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists information about the specified query logging configurations. Each configuration defines where you want Resolver to save DNS query logs and specifies the VPCs that you want to log queries for."]
module ListResolverQueryLogConfigsRequest =
  struct
    type nonrec t =
      {
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of query logging configurations that you want to return in the response to a ListResolverQueryLogConfigs request. If you don't specify a value for MaxResults, Resolver returns up to 100 query logging configurations."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "For the first ListResolverQueryLogConfigs request, omit this value. If there are more than MaxResults query logging configurations that match the values that you specify for Filters, you can submit another ListResolverQueryLogConfigs request to get the next group of configurations. In the next request, specify the value of NextToken from the previous response."];
      filters: Filters.t option
        [@ocaml.doc
          "An optional specification to return a subset of query logging configurations. If you submit a second or subsequent ListResolverQueryLogConfigs request and specify the NextToken parameter, you must use the same values for Filters, if any, as in the previous request."];
      sortBy: SortByKey.t option
        [@ocaml.doc
          "The element that you want Resolver to sort query logging configurations by. If you submit a second or subsequent ListResolverQueryLogConfigs request and specify the NextToken parameter, you must use the same value for SortBy, if any, as in the previous request. Valid values include the following elements: Arn: The ARN of the query logging configuration AssociationCount: The number of VPCs that are associated with the specified configuration CreationTime: The date and time that Resolver returned when the configuration was created CreatorRequestId: The value that was specified for CreatorRequestId when the configuration was created DestinationArn: The location that logs are sent to Id: The ID of the configuration Name: The name of the configuration OwnerId: The Amazon Web Services account number of the account that created the configuration ShareStatus: Whether the configuration is shared with other Amazon Web Services accounts or shared with the current account by another Amazon Web Services account. Sharing is configured through Resource Access Manager (RAM). Status: The current status of the configuration. Valid values include the following: CREATING: Resolver is creating the query logging configuration. CREATED: The query logging configuration was successfully created. Resolver is logging queries that originate in the specified VPC. DELETING: Resolver is deleting this query logging configuration. FAILED: Resolver either couldn't create or couldn't delete the query logging configuration. Here are two common causes: The specified destination (for example, an Amazon S3 bucket) was deleted. Permissions don't allow sending logs to the destination."];
      sortOrder: SortOrder.t option
        [@ocaml.doc
          "If you specified a value for SortBy, the order that you want query logging configurations to be listed in, ASCENDING or DESCENDING. If you submit a second or subsequent ListResolverQueryLogConfigs request and specify the NextToken parameter, you must use the same value for SortOrder, if any, as in the previous request."]}
    let make ?maxResults =
      fun ?nextToken ->
        fun ?filters ->
          fun ?sortBy ->
            fun ?sortOrder ->
              fun () -> { maxResults; nextToken; filters; sortBy; sortOrder }
    let to_value x =
      structure_to_value
        [("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("Filters", (Option.map x.filters ~f:Filters.to_value));
        ("SortBy", (Option.map x.sortBy ~f:SortByKey.to_value));
        ("SortOrder", (Option.map x.sortOrder ~f:SortOrder.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sortOrder =
        (Option.map ~f:SortOrder.of_xml) (Xml.child xml_arg0 "SortOrder") in
      let sortBy =
        (Option.map ~f:SortByKey.of_xml) (Xml.child xml_arg0 "SortBy") in
      let filters =
        (Option.map ~f:Filters.of_xml) (Xml.child xml_arg0 "Filters") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      make ?sortOrder ?sortBy ?filters ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sortOrder = field_map json__ "SortOrder" SortOrder.of_json in
      let sortBy = field_map json__ "SortBy" SortByKey.of_json in
      let filters = field_map json__ "Filters" Filters.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      make ?sortOrder ?sortBy ?filters ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists information about the specified query logging configurations. Each configuration defines where you want Resolver to save DNS query logs and specifies the VPCs that you want to log queries for."]
module ListResolverQueryLogConfigAssociationsResponse =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "If there are more than MaxResults query logging associations, you can submit another ListResolverQueryLogConfigAssociations request to get the next group of associations. In the next request, specify the value of NextToken from the previous response."];
      totalCount: Count.t option
        [@ocaml.doc
          "The total number of query logging associations that were created by the current account in the specified Region. This count can differ from the number of associations that are returned in a ListResolverQueryLogConfigAssociations response, depending on the values that you specify in the request."];
      totalFilteredCount: Count.t option
        [@ocaml.doc
          "The total number of query logging associations that were created by the current account in the specified Region and that match the filters that were specified in the ListResolverQueryLogConfigAssociations request. For the total number of associations that were created by the current account in the specified Region, see TotalCount."];
      resolverQueryLogConfigAssociations:
        ResolverQueryLogConfigAssociationList.t option
        [@ocaml.doc
          "A list that contains one ResolverQueryLogConfigAssociations element for each query logging association that matches the values that you specified for Filter."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?totalCount ->
        fun ?totalFilteredCount ->
          fun ?resolverQueryLogConfigAssociations ->
            fun () ->
              {
                nextToken;
                totalCount;
                totalFilteredCount;
                resolverQueryLogConfigAssociations
              }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("TotalCount", (Option.map x.totalCount ~f:Count.to_value));
        ("TotalFilteredCount",
          (Option.map x.totalFilteredCount ~f:Count.to_value));
        ("ResolverQueryLogConfigAssociations",
          (Option.map x.resolverQueryLogConfigAssociations
             ~f:ResolverQueryLogConfigAssociationList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resolverQueryLogConfigAssociations =
        (Option.map ~f:ResolverQueryLogConfigAssociationList.of_xml)
          (Xml.child xml_arg0 "ResolverQueryLogConfigAssociations") in
      let totalFilteredCount =
        (Option.map ~f:Count.of_xml)
          (Xml.child xml_arg0 "TotalFilteredCount") in
      let totalCount =
        (Option.map ~f:Count.of_xml) (Xml.child xml_arg0 "TotalCount") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?resolverQueryLogConfigAssociations ?totalFilteredCount
        ?totalCount ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resolverQueryLogConfigAssociations =
        field_map json__ "ResolverQueryLogConfigAssociations"
          ResolverQueryLogConfigAssociationList.of_json in
      let totalFilteredCount =
        field_map json__ "TotalFilteredCount" Count.of_json in
      let totalCount = field_map json__ "TotalCount" Count.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      make ?resolverQueryLogConfigAssociations ?totalFilteredCount
        ?totalCount ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists information about associations between Amazon VPCs and query logging configurations."]
module ListResolverQueryLogConfigAssociationsRequest =
  struct
    type nonrec t =
      {
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of query logging associations that you want to return in the response to a ListResolverQueryLogConfigAssociations request. If you don't specify a value for MaxResults, Resolver returns up to 100 query logging associations."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "For the first ListResolverQueryLogConfigAssociations request, omit this value. If there are more than MaxResults query logging associations that match the values that you specify for Filters, you can submit another ListResolverQueryLogConfigAssociations request to get the next group of associations. In the next request, specify the value of NextToken from the previous response."];
      filters: Filters.t option
        [@ocaml.doc
          "An optional specification to return a subset of query logging associations. If you submit a second or subsequent ListResolverQueryLogConfigAssociations request and specify the NextToken parameter, you must use the same values for Filters, if any, as in the previous request."];
      sortBy: SortByKey.t option
        [@ocaml.doc
          "The element that you want Resolver to sort query logging associations by. If you submit a second or subsequent ListResolverQueryLogConfigAssociations request and specify the NextToken parameter, you must use the same value for SortBy, if any, as in the previous request. Valid values include the following elements: CreationTime: The ID of the query logging association. Error: If the value of Status is FAILED, the value of Error indicates the cause: DESTINATION_NOT_FOUND: The specified destination (for example, an Amazon S3 bucket) was deleted. ACCESS_DENIED: Permissions don't allow sending logs to the destination. If Status is a value other than FAILED, ERROR is null. Id: The ID of the query logging association ResolverQueryLogConfigId: The ID of the query logging configuration ResourceId: The ID of the VPC that is associated with the query logging configuration Status: The current status of the configuration. Valid values include the following: CREATING: Resolver is creating an association between an Amazon VPC and a query logging configuration. CREATED: The association between an Amazon VPC and a query logging configuration was successfully created. Resolver is logging queries that originate in the specified VPC. DELETING: Resolver is deleting this query logging association. FAILED: Resolver either couldn't create or couldn't delete the query logging association. Here are two common causes: The specified destination (for example, an Amazon S3 bucket) was deleted. Permissions don't allow sending logs to the destination."];
      sortOrder: SortOrder.t option
        [@ocaml.doc
          "If you specified a value for SortBy, the order that you want query logging associations to be listed in, ASCENDING or DESCENDING. If you submit a second or subsequent ListResolverQueryLogConfigAssociations request and specify the NextToken parameter, you must use the same value for SortOrder, if any, as in the previous request."]}
    let make ?maxResults =
      fun ?nextToken ->
        fun ?filters ->
          fun ?sortBy ->
            fun ?sortOrder ->
              fun () -> { maxResults; nextToken; filters; sortBy; sortOrder }
    let to_value x =
      structure_to_value
        [("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("Filters", (Option.map x.filters ~f:Filters.to_value));
        ("SortBy", (Option.map x.sortBy ~f:SortByKey.to_value));
        ("SortOrder", (Option.map x.sortOrder ~f:SortOrder.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sortOrder =
        (Option.map ~f:SortOrder.of_xml) (Xml.child xml_arg0 "SortOrder") in
      let sortBy =
        (Option.map ~f:SortByKey.of_xml) (Xml.child xml_arg0 "SortBy") in
      let filters =
        (Option.map ~f:Filters.of_xml) (Xml.child xml_arg0 "Filters") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      make ?sortOrder ?sortBy ?filters ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sortOrder = field_map json__ "SortOrder" SortOrder.of_json in
      let sortBy = field_map json__ "SortBy" SortByKey.of_json in
      let filters = field_map json__ "Filters" Filters.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      make ?sortOrder ?sortBy ?filters ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists information about associations between Amazon VPCs and query logging configurations."]
module ListResolverEndpointsResponse =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "If more than MaxResults IP addresses match the specified criteria, you can submit another ListResolverEndpoint request to get the next group of results. In the next request, specify the value of NextToken from the previous response."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The value that you specified for MaxResults in the request."];
      resolverEndpoints: ResolverEndpoints.t option
        [@ocaml.doc
          "The Resolver endpoints that were created by using the current Amazon Web Services account, and that match the specified filters, if any."]}
    type nonrec error =
      [ `InternalServiceErrorException of InternalServiceErrorException.t 
      | `InvalidNextTokenException of InvalidNextTokenException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?maxResults ->
        fun ?resolverEndpoints ->
          fun () -> { nextToken; maxResults; resolverEndpoints }
    let error_of_json name json =
      match name with
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("ResolverEndpoints",
          (Option.map x.resolverEndpoints ~f:ResolverEndpoints.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resolverEndpoints =
        (Option.map ~f:ResolverEndpoints.of_xml)
          (Xml.child xml_arg0 "ResolverEndpoints") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?resolverEndpoints ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resolverEndpoints =
        field_map json__ "ResolverEndpoints" ResolverEndpoints.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      make ?resolverEndpoints ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all the Resolver endpoints that were created using the current Amazon Web Services account."]
module ListResolverEndpointsRequest =
  struct
    type nonrec t =
      {
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of Resolver endpoints that you want to return in the response to a ListResolverEndpoints request. If you don't specify a value for MaxResults, Resolver returns up to 100 Resolver endpoints."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "For the first ListResolverEndpoints request, omit this value. If you have more than MaxResults Resolver endpoints, you can submit another ListResolverEndpoints request to get the next group of Resolver endpoints. In the next request, specify the value of NextToken from the previous response."];
      filters: Filters.t option
        [@ocaml.doc
          "An optional specification to return a subset of Resolver endpoints, such as all inbound Resolver endpoints. If you submit a second or subsequent ListResolverEndpoints request and specify the NextToken parameter, you must use the same values for Filters, if any, as in the previous request."]}
    let make ?maxResults =
      fun ?nextToken ->
        fun ?filters -> fun () -> { maxResults; nextToken; filters }
    let to_value x =
      structure_to_value
        [("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("Filters", (Option.map x.filters ~f:Filters.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let filters =
        (Option.map ~f:Filters.of_xml) (Xml.child xml_arg0 "Filters") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      make ?filters ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let filters = field_map json__ "Filters" Filters.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      make ?filters ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all the Resolver endpoints that were created using the current Amazon Web Services account."]
module ListResolverEndpointIpAddressesResponse =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "If the specified endpoint has more than MaxResults IP addresses, you can submit another ListResolverEndpointIpAddresses request to get the next group of IP addresses. In the next request, specify the value of NextToken from the previous response."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The value that you specified for MaxResults in the request."];
      ipAddresses: IpAddressesResponse.t option
        [@ocaml.doc
          "Information about the IP addresses in your VPC that DNS queries originate from (for outbound endpoints) or that you forward DNS queries to (for inbound endpoints)."]}
    type nonrec error =
      [ `InternalServiceErrorException of InternalServiceErrorException.t 
      | `InvalidNextTokenException of InvalidNextTokenException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?maxResults ->
        fun ?ipAddresses -> fun () -> { nextToken; maxResults; ipAddresses }
    let error_of_json name json =
      match name with
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("IpAddresses",
          (Option.map x.ipAddresses ~f:IpAddressesResponse.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ipAddresses =
        (Option.map ~f:IpAddressesResponse.of_xml)
          (Xml.child xml_arg0 "IpAddresses") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?ipAddresses ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ipAddresses =
        field_map json__ "IpAddresses" IpAddressesResponse.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      make ?ipAddresses ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets the IP addresses for a specified Resolver endpoint."]
module ListResolverEndpointIpAddressesRequest =
  struct
    type nonrec t =
      {
      resolverEndpointId: ResourceId.t
        [@ocaml.doc
          "The ID of the Resolver endpoint that you want to get IP addresses for."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of IP addresses that you want to return in the response to a ListResolverEndpointIpAddresses request. If you don't specify a value for MaxResults, Resolver returns up to 100 IP addresses."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "For the first ListResolverEndpointIpAddresses request, omit this value. If the specified Resolver endpoint has more than MaxResults IP addresses, you can submit another ListResolverEndpointIpAddresses request to get the next group of IP addresses. In the next request, specify the value of NextToken from the previous response."]}
    let context_ = "ListResolverEndpointIpAddressesRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~resolverEndpointId ->
          fun () -> { maxResults; nextToken; resolverEndpointId }
    let to_value x =
      structure_to_value
        [("ResolverEndpointId",
           (Some (ResourceId.to_value x.resolverEndpointId)));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let resolverEndpointId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResolverEndpointId") in
      make ?nextToken ?maxResults ~resolverEndpointId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let resolverEndpointId =
        field_map_exn json__ "ResolverEndpointId" ResourceId.of_json in
      make ?nextToken ?maxResults ~resolverEndpointId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets the IP addresses for a specified Resolver endpoint."]
module ListResolverDnssecConfigsResponse =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "If a response includes the last of the DNSSEC configurations that are associated with the current Amazon Web Services account, NextToken doesn't appear in the response. If a response doesn't include the last of the configurations, you can get more configurations by submitting another ListResolverDnssecConfigs request. Get the value of NextToken that Amazon Route 53 returned in the previous response and include it in NextToken in the next request."];
      resolverDnssecConfigs: ResolverDnssecConfigList.t option
        [@ocaml.doc
          "An array that contains one ResolverDnssecConfig element for each configuration for DNSSEC validation that is associated with the current Amazon Web Services account. It doesn't contain disabled DNSSEC configurations for the resource."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `InvalidNextTokenException of InvalidNextTokenException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?resolverDnssecConfigs ->
        fun () -> { nextToken; resolverDnssecConfigs }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("ResolverDnssecConfigs",
          (Option.map x.resolverDnssecConfigs
             ~f:ResolverDnssecConfigList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resolverDnssecConfigs =
        (Option.map ~f:ResolverDnssecConfigList.of_xml)
          (Xml.child xml_arg0 "ResolverDnssecConfigs") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?resolverDnssecConfigs ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resolverDnssecConfigs =
        field_map json__ "ResolverDnssecConfigs"
          ResolverDnssecConfigList.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      make ?resolverDnssecConfigs ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the configurations for DNSSEC validation that are associated with the current Amazon Web Services account."]
module ListResolverDnssecConfigsRequest =
  struct
    type nonrec t =
      {
      maxResults: MaxResults.t option
        [@ocaml.doc
          "Optional: An integer that specifies the maximum number of DNSSEC configuration results that you want Amazon Route 53 to return. If you don't specify a value for MaxResults, Route 53 returns up to 100 configuration per page."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "(Optional) If the current Amazon Web Services account has more than MaxResults DNSSEC configurations, use NextToken to get the second and subsequent pages of results. For the first ListResolverDnssecConfigs request, omit this value. For the second and subsequent requests, get the value of NextToken from the previous response and specify that value for NextToken in the request."];
      filters: Filters.t option
        [@ocaml.doc
          "An optional specification to return a subset of objects."]}
    let make ?maxResults =
      fun ?nextToken ->
        fun ?filters -> fun () -> { maxResults; nextToken; filters }
    let to_value x =
      structure_to_value
        [("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("Filters", (Option.map x.filters ~f:Filters.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let filters =
        (Option.map ~f:Filters.of_xml) (Xml.child xml_arg0 "Filters") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      make ?filters ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let filters = field_map json__ "Filters" Filters.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      make ?filters ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the configurations for DNSSEC validation that are associated with the current Amazon Web Services account."]
module ListResolverConfigsResponse =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "If a response includes the last of the Resolver configurations that are associated with the current Amazon Web Services account, NextToken doesn't appear in the response. If a response doesn't include the last of the configurations, you can get more configurations by submitting another ListResolverConfigs request. Get the value of NextToken that Amazon Route\194\16053 returned in the previous response and include it in NextToken in the next request."];
      resolverConfigs: ResolverConfigList.t option
        [@ocaml.doc
          "An array that contains one ResolverConfigs element for each Resolver configuration that is associated with the current Amazon Web Services account."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `InvalidNextTokenException of InvalidNextTokenException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?resolverConfigs -> fun () -> { nextToken; resolverConfigs }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.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)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.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))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("ResolverConfigs",
          (Option.map x.resolverConfigs ~f:ResolverConfigList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resolverConfigs =
        (Option.map ~f:ResolverConfigList.of_xml)
          (Xml.child xml_arg0 "ResolverConfigs") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?resolverConfigs ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resolverConfigs =
        field_map json__ "ResolverConfigs" ResolverConfigList.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      make ?resolverConfigs ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the Resolver configurations that you have defined. Route\194\16053 Resolver uses the configurations to manage DNS resolution behavior for your VPCs."]
module ListResolverConfigsRequest =
  struct
    type nonrec t =
      {
      maxResults: ListResolverConfigsMaxResult.t option
        [@ocaml.doc
          "The maximum number of Resolver configurations that you want to return in the response to a ListResolverConfigs request. If you don't specify a value for MaxResults, up to 100 Resolver configurations are returned."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "(Optional) If the current Amazon Web Services account has more than MaxResults Resolver configurations, use NextToken to get the second and subsequent pages of results. For the first ListResolverConfigs request, omit this value. For the second and subsequent requests, get the value of NextToken from the previous response and specify that value for NextToken in the request."]}
    let make ?maxResults =
      fun ?nextToken -> fun () -> { maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("MaxResults",
           (Option.map x.maxResults ~f:ListResolverConfigsMaxResult.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:ListResolverConfigsMaxResult.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      make ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let maxResults =
        field_map json__ "MaxResults" ListResolverConfigsMaxResult.of_json in
      make ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the Resolver configurations that you have defined. Route\194\16053 Resolver uses the configurations to manage DNS resolution behavior for your VPCs."]
module ListOutpostResolversResponse =
  struct
    type nonrec t =
      {
      outpostResolvers: OutpostResolverList.t option
        [@ocaml.doc
          "The Resolvers on Outposts that were created by using the current Amazon Web Services account, and that match the specified filters, if any."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If more than MaxResults Resolvers match the specified criteria, you can submit another ListOutpostResolver request to get the next group of results. In the next request, specify the value of NextToken from the previous response."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?outpostResolvers =
      fun ?nextToken -> fun () -> { outpostResolvers; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.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)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.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))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.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
        [("OutpostResolvers",
           (Option.map x.outpostResolvers ~f:OutpostResolverList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let outpostResolvers =
        (Option.map ~f:OutpostResolverList.of_xml)
          (Xml.child xml_arg0 "OutpostResolvers") in
      make ?nextToken ?outpostResolvers ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let outpostResolvers =
        field_map json__ "OutpostResolvers" OutpostResolverList.of_json in
      make ?nextToken ?outpostResolvers ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all the Resolvers on Outposts that were created using the current Amazon Web Services account."]
module ListOutpostResolversRequest =
  struct
    type nonrec t =
      {
      outpostArn: OutpostArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the Outpost."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of Resolvers on the Outpost that you want to return in the response to a ListOutpostResolver request. If you don't specify a value for MaxResults, the request returns up to 100 Resolvers."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "For the first ListOutpostResolver request, omit this value."]}
    let make ?outpostArn =
      fun ?maxResults ->
        fun ?nextToken -> fun () -> { outpostArn; maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("OutpostArn", (Option.map x.outpostArn ~f:OutpostArn.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let outpostArn =
        (Option.map ~f:OutpostArn.of_xml) (Xml.child xml_arg0 "OutpostArn") in
      make ?nextToken ?maxResults ?outpostArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let outpostArn = field_map json__ "OutpostArn" OutpostArn.of_json in
      make ?nextToken ?maxResults ?outpostArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all the Resolvers on Outposts that were created using the current Amazon Web Services account."]
module ListFirewallRulesResponse =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "If objects are still available for retrieval, Resolver returns this token in the response. To retrieve the next batch of objects, provide this token in your next request."];
      firewallRules: FirewallRules.t option
        [@ocaml.doc
          "A list of the rules that you have defined. This might be a partial list of the firewall rules that you've defined. For information, see MaxResults."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?firewallRules -> fun () -> { nextToken; firewallRules }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.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)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.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))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("FirewallRules",
          (Option.map x.firewallRules ~f:FirewallRules.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let firewallRules =
        (Option.map ~f:FirewallRules.of_xml)
          (Xml.child xml_arg0 "FirewallRules") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?firewallRules ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let firewallRules =
        field_map json__ "FirewallRules" FirewallRules.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      make ?firewallRules ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the firewall rules that you have defined for the specified firewall rule group. DNS Firewall uses the rules in a rule group to filter DNS network traffic for a VPC. A single call might return only a partial list of the rules. For information, see MaxResults."]
module ListFirewallRulesRequest =
  struct
    type nonrec t =
      {
      firewallRuleGroupId: ResourceId.t
        [@ocaml.doc
          "The unique identifier of the firewall rule group that you want to retrieve the rules for."];
      priority: Priority.t option
        [@ocaml.doc
          "Optional additional filter for the rules to retrieve. The setting that determines the processing order of the rules in a rule group. DNS Firewall processes the rules in a rule group by order of priority, starting from the lowest setting."];
      action: Action.t option
        [@ocaml.doc
          "Optional additional filter for the rules to retrieve. The action that DNS Firewall should take on a DNS query when it matches one of the domains in the rule's domain list, or a threat in a DNS Firewall Advanced rule: ALLOW - Permit the request to go through. Not availabe for DNS Firewall Advanced rules. ALERT - Permit the request to go through but send an alert to the logs. BLOCK - Disallow the request. If this is specified, additional handling details are provided in the rule's BlockResponse setting."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of objects that you want Resolver to return for this request. If more objects are available, in the response, Resolver provides a NextToken value that you can use in a subsequent call to get the next batch of objects. If you don't specify a value for MaxResults, Resolver returns up to 100 objects."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "For the first call to this list request, omit this value. When you request a list of objects, Resolver returns at most the number of objects specified in MaxResults. If more objects are available for retrieval, Resolver returns a NextToken value in the response. To retrieve the next batch of objects, use the token that was returned for the prior request in your next request."]}
    let context_ = "ListFirewallRulesRequest"
    let make ?priority =
      fun ?action ->
        fun ?maxResults ->
          fun ?nextToken ->
            fun ~firewallRuleGroupId ->
              fun () ->
                {
                  priority;
                  action;
                  maxResults;
                  nextToken;
                  firewallRuleGroupId
                }
    let to_value x =
      structure_to_value
        [("FirewallRuleGroupId",
           (Some (ResourceId.to_value x.firewallRuleGroupId)));
        ("Priority", (Option.map x.priority ~f:Priority.to_value));
        ("Action", (Option.map x.action ~f:Action.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let action =
        (Option.map ~f:Action.of_xml) (Xml.child xml_arg0 "Action") in
      let priority =
        (Option.map ~f:Priority.of_xml) (Xml.child xml_arg0 "Priority") in
      let firewallRuleGroupId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FirewallRuleGroupId") in
      make ?nextToken ?maxResults ?action ?priority ~firewallRuleGroupId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let action = field_map json__ "Action" Action.of_json in
      let priority = field_map json__ "Priority" Priority.of_json in
      let firewallRuleGroupId =
        field_map_exn json__ "FirewallRuleGroupId" ResourceId.of_json in
      make ?nextToken ?maxResults ?action ?priority ~firewallRuleGroupId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the firewall rules that you have defined for the specified firewall rule group. DNS Firewall uses the rules in a rule group to filter DNS network traffic for a VPC. A single call might return only a partial list of the rules. For information, see MaxResults."]
module ListFirewallRuleGroupsResponse =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "If objects are still available for retrieval, Resolver returns this token in the response. To retrieve the next batch of objects, provide this token in your next request."];
      firewallRuleGroups: FirewallRuleGroupMetadataList.t option
        [@ocaml.doc
          "A list of your firewall rule groups. This might be a partial list of the rule groups that you have defined. For information, see MaxResults."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?firewallRuleGroups -> fun () -> { nextToken; firewallRuleGroups }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.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)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.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))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("FirewallRuleGroups",
          (Option.map x.firewallRuleGroups
             ~f:FirewallRuleGroupMetadataList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let firewallRuleGroups =
        (Option.map ~f:FirewallRuleGroupMetadataList.of_xml)
          (Xml.child xml_arg0 "FirewallRuleGroups") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?firewallRuleGroups ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let firewallRuleGroups =
        field_map json__ "FirewallRuleGroups"
          FirewallRuleGroupMetadataList.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      make ?firewallRuleGroups ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the minimal high-level information for the rule groups that you have defined. A single call might return only a partial list of the rule groups. For information, see MaxResults."]
module ListFirewallRuleGroupsRequest =
  struct
    type nonrec t =
      {
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of objects that you want Resolver to return for this request. If more objects are available, in the response, Resolver provides a NextToken value that you can use in a subsequent call to get the next batch of objects. If you don't specify a value for MaxResults, Resolver returns up to 100 objects."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "For the first call to this list request, omit this value. When you request a list of objects, Resolver returns at most the number of objects specified in MaxResults. If more objects are available for retrieval, Resolver returns a NextToken value in the response. To retrieve the next batch of objects, use the token that was returned for the prior request in your next request."]}
    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:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f: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" NextToken.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
       "Retrieves the minimal high-level information for the rule groups that you have defined. A single call might return only a partial list of the rule groups. For information, see MaxResults."]
module ListFirewallRuleGroupAssociationsResponse =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "If objects are still available for retrieval, Resolver returns this token in the response. To retrieve the next batch of objects, provide this token in your next request."];
      firewallRuleGroupAssociations: FirewallRuleGroupAssociations.t option
        [@ocaml.doc
          "A list of your firewall rule group associations. This might be a partial list of the associations that you have defined. For information, see MaxResults."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?firewallRuleGroupAssociations ->
        fun () -> { nextToken; firewallRuleGroupAssociations }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.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)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.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))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("FirewallRuleGroupAssociations",
          (Option.map x.firewallRuleGroupAssociations
             ~f:FirewallRuleGroupAssociations.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let firewallRuleGroupAssociations =
        (Option.map ~f:FirewallRuleGroupAssociations.of_xml)
          (Xml.child xml_arg0 "FirewallRuleGroupAssociations") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?firewallRuleGroupAssociations ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let firewallRuleGroupAssociations =
        field_map json__ "FirewallRuleGroupAssociations"
          FirewallRuleGroupAssociations.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      make ?firewallRuleGroupAssociations ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the firewall rule group associations that you have defined. Each association enables DNS filtering for a VPC with one rule group. A single call might return only a partial list of the associations. For information, see MaxResults."]
module ListFirewallRuleGroupAssociationsRequest =
  struct
    type nonrec t =
      {
      firewallRuleGroupId: ResourceId.t option
        [@ocaml.doc
          "The unique identifier of the firewall rule group that you want to retrieve the associations for. Leave this blank to retrieve associations for any rule group."];
      vpcId: ResourceId.t option
        [@ocaml.doc
          "The unique identifier of the VPC that you want to retrieve the associations for. Leave this blank to retrieve associations for any VPC."];
      priority: Priority.t option
        [@ocaml.doc
          "The setting that determines the processing order of the rule group among the rule groups that are associated with a single VPC. DNS Firewall filters VPC traffic starting from the rule group with the lowest numeric priority setting."];
      status: FirewallRuleGroupAssociationStatus.t option
        [@ocaml.doc
          "The association Status setting that you want DNS Firewall to filter on for the list. If you don't specify this, then DNS Firewall returns all associations, regardless of status."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of objects that you want Resolver to return for this request. If more objects are available, in the response, Resolver provides a NextToken value that you can use in a subsequent call to get the next batch of objects. If you don't specify a value for MaxResults, Resolver returns up to 100 objects."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "For the first call to this list request, omit this value. When you request a list of objects, Resolver returns at most the number of objects specified in MaxResults. If more objects are available for retrieval, Resolver returns a NextToken value in the response. To retrieve the next batch of objects, use the token that was returned for the prior request in your next request."]}
    let make ?firewallRuleGroupId =
      fun ?vpcId ->
        fun ?priority ->
          fun ?status ->
            fun ?maxResults ->
              fun ?nextToken ->
                fun () ->
                  {
                    firewallRuleGroupId;
                    vpcId;
                    priority;
                    status;
                    maxResults;
                    nextToken
                  }
    let to_value x =
      structure_to_value
        [("FirewallRuleGroupId",
           (Option.map x.firewallRuleGroupId ~f:ResourceId.to_value));
        ("VpcId", (Option.map x.vpcId ~f:ResourceId.to_value));
        ("Priority", (Option.map x.priority ~f:Priority.to_value));
        ("Status",
          (Option.map x.status ~f:FirewallRuleGroupAssociationStatus.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let status =
        (Option.map ~f:FirewallRuleGroupAssociationStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let priority =
        (Option.map ~f:Priority.of_xml) (Xml.child xml_arg0 "Priority") in
      let vpcId =
        (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "VpcId") in
      let firewallRuleGroupId =
        (Option.map ~f:ResourceId.of_xml)
          (Xml.child xml_arg0 "FirewallRuleGroupId") in
      make ?nextToken ?maxResults ?status ?priority ?vpcId
        ?firewallRuleGroupId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let status =
        field_map json__ "Status" FirewallRuleGroupAssociationStatus.of_json in
      let priority = field_map json__ "Priority" Priority.of_json in
      let vpcId = field_map json__ "VpcId" ResourceId.of_json in
      let firewallRuleGroupId =
        field_map json__ "FirewallRuleGroupId" ResourceId.of_json in
      make ?nextToken ?maxResults ?status ?priority ?vpcId
        ?firewallRuleGroupId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the firewall rule group associations that you have defined. Each association enables DNS filtering for a VPC with one rule group. A single call might return only a partial list of the associations. For information, see MaxResults."]
module ListFirewallDomainsResponse =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "If objects are still available for retrieval, Resolver returns this token in the response. To retrieve the next batch of objects, provide this token in your next request."];
      domains: FirewallDomains.t option
        [@ocaml.doc
          "A list of the domains in the firewall domain list. This might be a partial list of the domains that you've defined in the domain list. For information, see MaxResults."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken = fun ?domains -> fun () -> { nextToken; domains }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.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)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.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))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("Domains", (Option.map x.domains ~f:FirewallDomains.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let domains =
        (Option.map ~f:FirewallDomains.of_xml) (Xml.child xml_arg0 "Domains") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?domains ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let domains = field_map json__ "Domains" FirewallDomains.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      make ?domains ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the domains that you have defined for the specified firewall domain list. A single call might return only a partial list of the domains. For information, see MaxResults."]
module ListFirewallDomainsRequest =
  struct
    type nonrec t =
      {
      firewallDomainListId: ResourceId.t
        [@ocaml.doc
          "The ID of the domain list whose domains you want to retrieve."];
      maxResults: ListDomainMaxResults.t option
        [@ocaml.doc
          "The maximum number of objects that you want Resolver to return for this request. If more objects are available, in the response, Resolver provides a NextToken value that you can use in a subsequent call to get the next batch of objects. If you don't specify a value for MaxResults, Resolver returns up to 100 objects."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "For the first call to this list request, omit this value. When you request a list of objects, Resolver returns at most the number of objects specified in MaxResults. If more objects are available for retrieval, Resolver returns a NextToken value in the response. To retrieve the next batch of objects, use the token that was returned for the prior request in your next request."]}
    let context_ = "ListFirewallDomainsRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~firewallDomainListId ->
          fun () -> { maxResults; nextToken; firewallDomainListId }
    let to_value x =
      structure_to_value
        [("FirewallDomainListId",
           (Some (ResourceId.to_value x.firewallDomainListId)));
        ("MaxResults",
          (Option.map x.maxResults ~f:ListDomainMaxResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:ListDomainMaxResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let firewallDomainListId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FirewallDomainListId") in
      make ?nextToken ?maxResults ~firewallDomainListId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let maxResults =
        field_map json__ "MaxResults" ListDomainMaxResults.of_json in
      let firewallDomainListId =
        field_map_exn json__ "FirewallDomainListId" ResourceId.of_json in
      make ?nextToken ?maxResults ~firewallDomainListId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the domains that you have defined for the specified firewall domain list. A single call might return only a partial list of the domains. For information, see MaxResults."]
module ListFirewallDomainListsResponse =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "If objects are still available for retrieval, Resolver returns this token in the response. To retrieve the next batch of objects, provide this token in your next request."];
      firewallDomainLists: FirewallDomainListMetadataList.t option
        [@ocaml.doc
          "A list of the domain lists that you have defined. This might be a partial list of the domain lists that you've defined. For information, see MaxResults."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?firewallDomainLists ->
        fun () -> { nextToken; firewallDomainLists }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.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)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.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))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("FirewallDomainLists",
          (Option.map x.firewallDomainLists
             ~f:FirewallDomainListMetadataList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let firewallDomainLists =
        (Option.map ~f:FirewallDomainListMetadataList.of_xml)
          (Xml.child xml_arg0 "FirewallDomainLists") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?firewallDomainLists ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let firewallDomainLists =
        field_map json__ "FirewallDomainLists"
          FirewallDomainListMetadataList.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      make ?firewallDomainLists ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the firewall domain lists that you have defined. For each firewall domain list, you can retrieve the domains that are defined for a list by calling ListFirewallDomains. A single call to this list operation might return only a partial list of the domain lists. For information, see MaxResults."]
module ListFirewallDomainListsRequest =
  struct
    type nonrec t =
      {
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of objects that you want Resolver to return for this request. If more objects are available, in the response, Resolver provides a NextToken value that you can use in a subsequent call to get the next batch of objects. If you don't specify a value for MaxResults, Resolver returns up to 100 objects."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "For the first call to this list request, omit this value. When you request a list of objects, Resolver returns at most the number of objects specified in MaxResults. If more objects are available for retrieval, Resolver returns a NextToken value in the response. To retrieve the next batch of objects, use the token that was returned for the prior request in your next request."]}
    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:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f: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" NextToken.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
       "Retrieves the firewall domain lists that you have defined. For each firewall domain list, you can retrieve the domains that are defined for a list by calling ListFirewallDomains. A single call to this list operation might return only a partial list of the domain lists. For information, see MaxResults."]
module ListFirewallConfigsResponse =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "If objects are still available for retrieval, Resolver returns this token in the response. To retrieve the next batch of objects, provide this token in your next request."];
      firewallConfigs: FirewallConfigList.t option
        [@ocaml.doc
          "The configurations for the firewall behavior provided by DNS Firewall for VPCs from Amazon Virtual Private Cloud (Amazon VPC)."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?firewallConfigs -> fun () -> { nextToken; firewallConfigs }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.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)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.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))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("FirewallConfigs",
          (Option.map x.firewallConfigs ~f:FirewallConfigList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let firewallConfigs =
        (Option.map ~f:FirewallConfigList.of_xml)
          (Xml.child xml_arg0 "FirewallConfigs") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?firewallConfigs ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let firewallConfigs =
        field_map json__ "FirewallConfigs" FirewallConfigList.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      make ?firewallConfigs ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the firewall configurations that you have defined. DNS Firewall uses the configurations to manage firewall behavior for your VPCs. A single call might return only a partial list of the configurations. For information, see MaxResults."]
module ListFirewallConfigsRequest =
  struct
    type nonrec t =
      {
      maxResults: ListFirewallConfigsMaxResult.t option
        [@ocaml.doc
          "The maximum number of objects that you want Resolver to return for this request. If more objects are available, in the response, Resolver provides a NextToken value that you can use in a subsequent call to get the next batch of objects. If you don't specify a value for MaxResults, Resolver returns up to 100 objects."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "For the first call to this list request, omit this value. When you request a list of objects, Resolver returns at most the number of objects specified in MaxResults. If more objects are available for retrieval, Resolver returns a NextToken value in the response. To retrieve the next batch of objects, use the token that was returned for the prior request in your next request."]}
    let make ?maxResults =
      fun ?nextToken -> fun () -> { maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("MaxResults",
           (Option.map x.maxResults ~f:ListFirewallConfigsMaxResult.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:ListFirewallConfigsMaxResult.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      make ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let maxResults =
        field_map json__ "MaxResults" ListFirewallConfigsMaxResult.of_json in
      make ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the firewall configurations that you have defined. DNS Firewall uses the configurations to manage firewall behavior for your VPCs. A single call might return only a partial list of the configurations. For information, see MaxResults."]
module ImportFirewallDomainsResponse =
  struct
    type nonrec t =
      {
      id: ResourceId.t option
        [@ocaml.doc
          "The Id of the firewall domain list that DNS Firewall just updated."];
      name: Name.t option [@ocaml.doc "The name of the domain list."];
      status: FirewallDomainListStatus.t option
        [@ocaml.doc "Status of the import request."];
      statusMessage: StatusMessage.t option
        [@ocaml.doc
          "Additional information about the status of the list, if available."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?id =
      fun ?name ->
        fun ?status ->
          fun ?statusMessage -> fun () -> { id; name; status; statusMessage }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `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
        [("Id", (Option.map x.id ~f:ResourceId.to_value));
        ("Name", (Option.map x.name ~f:Name.to_value));
        ("Status",
          (Option.map x.status ~f:FirewallDomainListStatus.to_value));
        ("StatusMessage",
          (Option.map x.statusMessage ~f:StatusMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statusMessage =
        (Option.map ~f:StatusMessage.of_xml)
          (Xml.child xml_arg0 "StatusMessage") in
      let status =
        (Option.map ~f:FirewallDomainListStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let name = (Option.map ~f:Name.of_xml) (Xml.child xml_arg0 "Name") in
      let id = (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "Id") in
      make ?statusMessage ?status ?name ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statusMessage =
        field_map json__ "StatusMessage" StatusMessage.of_json in
      let status = field_map json__ "Status" FirewallDomainListStatus.of_json in
      let name = field_map json__ "Name" Name.of_json in
      let id = field_map json__ "Id" ResourceId.of_json in
      make ?statusMessage ?status ?name ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Imports domain names from a file into a domain list, for use in a DNS firewall rule group. Each domain specification in your domain list must satisfy the following requirements: It can optionally start with * (asterisk). With the exception of the optional starting asterisk, it must only contain the following characters: A-Z, a-z, 0-9, - (hyphen). It must be from 1-255 characters in length."]
module ImportFirewallDomainsRequest =
  struct
    type nonrec t =
      {
      firewallDomainListId: ResourceId.t
        [@ocaml.doc
          "The ID of the domain list that you want to modify with the import operation."];
      operation: FirewallDomainImportOperation.t
        [@ocaml.doc
          "What you want DNS Firewall to do with the domains that are listed in the file. This must be set to REPLACE, which updates the domain list to exactly match the list in the file."];
      domainFileUrl: DomainListFileUrl.t
        [@ocaml.doc
          "The fully qualified URL or URI of the file stored in Amazon Simple Storage Service (Amazon S3) that contains the list of domains to import. The file must be in an S3 bucket that's in the same Region as your DNS Firewall. The file must be a text file and must contain a single domain per line."]}
    let context_ = "ImportFirewallDomainsRequest"
    let make ~firewallDomainListId =
      fun ~operation ->
        fun ~domainFileUrl ->
          fun () -> { firewallDomainListId; operation; domainFileUrl }
    let to_value x =
      structure_to_value
        [("FirewallDomainListId",
           (Some (ResourceId.to_value x.firewallDomainListId)));
        ("Operation",
          (Some (FirewallDomainImportOperation.to_value x.operation)));
        ("DomainFileUrl",
          (Some (DomainListFileUrl.to_value x.domainFileUrl)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let domainFileUrl =
        DomainListFileUrl.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainFileUrl") in
      let operation =
        FirewallDomainImportOperation.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Operation") in
      let firewallDomainListId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FirewallDomainListId") in
      make ~domainFileUrl ~operation ~firewallDomainListId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let domainFileUrl =
        field_map_exn json__ "DomainFileUrl" DomainListFileUrl.of_json in
      let operation =
        field_map_exn json__ "Operation"
          FirewallDomainImportOperation.of_json in
      let firewallDomainListId =
        field_map_exn json__ "FirewallDomainListId" ResourceId.of_json in
      make ~domainFileUrl ~operation ~firewallDomainListId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Imports domain names from a file into a domain list, for use in a DNS firewall rule group. Each domain specification in your domain list must satisfy the following requirements: It can optionally start with * (asterisk). With the exception of the optional starting asterisk, it must only contain the following characters: A-Z, a-z, 0-9, - (hyphen). It must be from 1-255 characters in length."]
module GetResolverRuleResponse =
  struct
    type nonrec t =
      {
      resolverRule: ResolverRule.t option
        [@ocaml.doc
          "Information about the Resolver rule that you specified in a GetResolverRule request."]}
    type nonrec error =
      [ `InternalServiceErrorException of InternalServiceErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?resolverRule = fun () -> { resolverRule }
    let error_of_json name json =
      match name with
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ResolverRule",
           (Option.map x.resolverRule ~f:ResolverRule.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resolverRule =
        (Option.map ~f:ResolverRule.of_xml)
          (Xml.child xml_arg0 "ResolverRule") in
      make ?resolverRule ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resolverRule = field_map json__ "ResolverRule" ResolverRule.of_json in
      make ?resolverRule ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets information about a specified Resolver rule, such as the domain name that the rule forwards DNS queries for and the ID of the outbound Resolver endpoint that the rule is associated with."]
module GetResolverRuleRequest =
  struct
    type nonrec t =
      {
      resolverRuleId: ResourceId.t
        [@ocaml.doc
          "The ID of the Resolver rule that you want to get information about."]}
    let context_ = "GetResolverRuleRequest"
    let make ~resolverRuleId = fun () -> { resolverRuleId }
    let to_value x =
      structure_to_value
        [("ResolverRuleId", (Some (ResourceId.to_value x.resolverRuleId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resolverRuleId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResolverRuleId") in
      make ~resolverRuleId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resolverRuleId =
        field_map_exn json__ "ResolverRuleId" ResourceId.of_json in
      make ~resolverRuleId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets information about a specified Resolver rule, such as the domain name that the rule forwards DNS queries for and the ID of the outbound Resolver endpoint that the rule is associated with."]
module GetResolverRulePolicyResponse =
  struct
    type nonrec t =
      {
      resolverRulePolicy: ResolverRulePolicy.t option
        [@ocaml.doc
          "The Resolver rule policy for the rule that you specified in a GetResolverRulePolicy request."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `UnknownResourceException of UnknownResourceException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?resolverRulePolicy = fun () -> { resolverRulePolicy }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "UnknownResourceException" ->
          `UnknownResourceException (UnknownResourceException.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)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "UnknownResourceException" ->
          `UnknownResourceException (UnknownResourceException.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))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `UnknownResourceException e ->
          `Assoc
            [("error", (`String "UnknownResourceException"));
            ("details", (UnknownResourceException.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
        [("ResolverRulePolicy",
           (Option.map x.resolverRulePolicy ~f:ResolverRulePolicy.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resolverRulePolicy =
        (Option.map ~f:ResolverRulePolicy.of_xml)
          (Xml.child xml_arg0 "ResolverRulePolicy") in
      make ?resolverRulePolicy ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resolverRulePolicy =
        field_map json__ "ResolverRulePolicy" ResolverRulePolicy.of_json in
      make ?resolverRulePolicy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets information about the Resolver rule policy for a specified rule. A Resolver rule policy includes the rule that you want to share with another account, the account that you want to share the rule with, and the Resolver operations that you want to allow the account to use."]
module GetResolverRulePolicyRequest =
  struct
    type nonrec t =
      {
      arn: Arn.t
        [@ocaml.doc
          "The ID of the Resolver rule that you want to get the Resolver rule policy for."]}
    let context_ = "GetResolverRulePolicyRequest"
    let make ~arn = fun () -> { arn }
    let to_value x =
      structure_to_value [("Arn", (Some (Arn.to_value x.arn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn = Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Arn") in
      make ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map_exn json__ "Arn" Arn.of_json in make ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets information about the Resolver rule policy for a specified rule. A Resolver rule policy includes the rule that you want to share with another account, the account that you want to share the rule with, and the Resolver operations that you want to allow the account to use."]
module GetResolverRuleAssociationResponse =
  struct
    type nonrec t =
      {
      resolverRuleAssociation: ResolverRuleAssociation.t option
        [@ocaml.doc
          "Information about the Resolver rule association that you specified in a GetResolverRuleAssociation request."]}
    type nonrec error =
      [ `InternalServiceErrorException of InternalServiceErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?resolverRuleAssociation = fun () -> { resolverRuleAssociation }
    let error_of_json name json =
      match name with
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ResolverRuleAssociation",
           (Option.map x.resolverRuleAssociation
              ~f:ResolverRuleAssociation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resolverRuleAssociation =
        (Option.map ~f:ResolverRuleAssociation.of_xml)
          (Xml.child xml_arg0 "ResolverRuleAssociation") in
      make ?resolverRuleAssociation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resolverRuleAssociation =
        field_map json__ "ResolverRuleAssociation"
          ResolverRuleAssociation.of_json in
      make ?resolverRuleAssociation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets information about an association between a specified Resolver rule and a VPC. You associate a Resolver rule and a VPC using AssociateResolverRule."]
module GetResolverRuleAssociationRequest =
  struct
    type nonrec t =
      {
      resolverRuleAssociationId: ResourceId.t
        [@ocaml.doc
          "The ID of the Resolver rule association that you want to get information about."]}
    let context_ = "GetResolverRuleAssociationRequest"
    let make ~resolverRuleAssociationId =
      fun () -> { resolverRuleAssociationId }
    let to_value x =
      structure_to_value
        [("ResolverRuleAssociationId",
           (Some (ResourceId.to_value x.resolverRuleAssociationId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resolverRuleAssociationId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "ResolverRuleAssociationId") in
      make ~resolverRuleAssociationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resolverRuleAssociationId =
        field_map_exn json__ "ResolverRuleAssociationId" ResourceId.of_json in
      make ~resolverRuleAssociationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets information about an association between a specified Resolver rule and a VPC. You associate a Resolver rule and a VPC using AssociateResolverRule."]
module GetResolverQueryLogConfigResponse =
  struct
    type nonrec t =
      {
      resolverQueryLogConfig: ResolverQueryLogConfig.t option
        [@ocaml.doc
          "Information about the Resolver query logging configuration that you specified in a GetQueryLogConfig request."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?resolverQueryLogConfig = fun () -> { resolverQueryLogConfig }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ResolverQueryLogConfig",
           (Option.map x.resolverQueryLogConfig
              ~f:ResolverQueryLogConfig.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resolverQueryLogConfig =
        (Option.map ~f:ResolverQueryLogConfig.of_xml)
          (Xml.child xml_arg0 "ResolverQueryLogConfig") in
      make ?resolverQueryLogConfig ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resolverQueryLogConfig =
        field_map json__ "ResolverQueryLogConfig"
          ResolverQueryLogConfig.of_json in
      make ?resolverQueryLogConfig ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets information about a specified Resolver query logging configuration, such as the number of VPCs that the configuration is logging queries for and the location that logs are sent to."]
module GetResolverQueryLogConfigRequest =
  struct
    type nonrec t =
      {
      resolverQueryLogConfigId: ResourceId.t
        [@ocaml.doc
          "The ID of the Resolver query logging configuration that you want to get information about."]}
    let context_ = "GetResolverQueryLogConfigRequest"
    let make ~resolverQueryLogConfigId =
      fun () -> { resolverQueryLogConfigId }
    let to_value x =
      structure_to_value
        [("ResolverQueryLogConfigId",
           (Some (ResourceId.to_value x.resolverQueryLogConfigId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resolverQueryLogConfigId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "ResolverQueryLogConfigId") in
      make ~resolverQueryLogConfigId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resolverQueryLogConfigId =
        field_map_exn json__ "ResolverQueryLogConfigId" ResourceId.of_json in
      make ~resolverQueryLogConfigId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets information about a specified Resolver query logging configuration, such as the number of VPCs that the configuration is logging queries for and the location that logs are sent to."]
module GetResolverQueryLogConfigPolicyResponse =
  struct
    type nonrec t =
      {
      resolverQueryLogConfigPolicy: ResolverQueryLogConfigPolicy.t option
        [@ocaml.doc
          "Information about the query logging policy for the query logging configuration that you specified in a GetResolverQueryLogConfigPolicy request."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `UnknownResourceException of UnknownResourceException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?resolverQueryLogConfigPolicy =
      fun () -> { resolverQueryLogConfigPolicy }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "UnknownResourceException" ->
          `UnknownResourceException (UnknownResourceException.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)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "UnknownResourceException" ->
          `UnknownResourceException (UnknownResourceException.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))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `UnknownResourceException e ->
          `Assoc
            [("error", (`String "UnknownResourceException"));
            ("details", (UnknownResourceException.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
        [("ResolverQueryLogConfigPolicy",
           (Option.map x.resolverQueryLogConfigPolicy
              ~f:ResolverQueryLogConfigPolicy.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resolverQueryLogConfigPolicy =
        (Option.map ~f:ResolverQueryLogConfigPolicy.of_xml)
          (Xml.child xml_arg0 "ResolverQueryLogConfigPolicy") in
      make ?resolverQueryLogConfigPolicy ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resolverQueryLogConfigPolicy =
        field_map json__ "ResolverQueryLogConfigPolicy"
          ResolverQueryLogConfigPolicy.of_json in
      make ?resolverQueryLogConfigPolicy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets information about a query logging policy. A query logging policy specifies the Resolver query logging operations and resources that you want to allow another Amazon Web Services account to be able to use."]
module GetResolverQueryLogConfigPolicyRequest =
  struct
    type nonrec t =
      {
      arn: Arn.t
        [@ocaml.doc
          "The ARN of the query logging configuration that you want to get the query logging policy for."]}
    let context_ = "GetResolverQueryLogConfigPolicyRequest"
    let make ~arn = fun () -> { arn }
    let to_value x =
      structure_to_value [("Arn", (Some (Arn.to_value x.arn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn = Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Arn") in
      make ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map_exn json__ "Arn" Arn.of_json in make ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets information about a query logging policy. A query logging policy specifies the Resolver query logging operations and resources that you want to allow another Amazon Web Services account to be able to use."]
module GetResolverQueryLogConfigAssociationResponse =
  struct
    type nonrec t =
      {
      resolverQueryLogConfigAssociation:
        ResolverQueryLogConfigAssociation.t option
        [@ocaml.doc
          "Information about the Resolver query logging configuration association that you specified in a GetQueryLogConfigAssociation request."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?resolverQueryLogConfigAssociation =
      fun () -> { resolverQueryLogConfigAssociation }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ResolverQueryLogConfigAssociation",
           (Option.map x.resolverQueryLogConfigAssociation
              ~f:ResolverQueryLogConfigAssociation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resolverQueryLogConfigAssociation =
        (Option.map ~f:ResolverQueryLogConfigAssociation.of_xml)
          (Xml.child xml_arg0 "ResolverQueryLogConfigAssociation") in
      make ?resolverQueryLogConfigAssociation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resolverQueryLogConfigAssociation =
        field_map json__ "ResolverQueryLogConfigAssociation"
          ResolverQueryLogConfigAssociation.of_json in
      make ?resolverQueryLogConfigAssociation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets information about a specified association between a Resolver query logging configuration and an Amazon VPC. When you associate a VPC with a query logging configuration, Resolver logs DNS queries that originate in that VPC."]
module GetResolverQueryLogConfigAssociationRequest =
  struct
    type nonrec t =
      {
      resolverQueryLogConfigAssociationId: ResourceId.t
        [@ocaml.doc
          "The ID of the Resolver query logging configuration association that you want to get information about."]}
    let context_ = "GetResolverQueryLogConfigAssociationRequest"
    let make ~resolverQueryLogConfigAssociationId =
      fun () -> { resolverQueryLogConfigAssociationId }
    let to_value x =
      structure_to_value
        [("ResolverQueryLogConfigAssociationId",
           (Some (ResourceId.to_value x.resolverQueryLogConfigAssociationId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resolverQueryLogConfigAssociationId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "ResolverQueryLogConfigAssociationId") in
      make ~resolverQueryLogConfigAssociationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resolverQueryLogConfigAssociationId =
        field_map_exn json__ "ResolverQueryLogConfigAssociationId"
          ResourceId.of_json in
      make ~resolverQueryLogConfigAssociationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets information about a specified association between a Resolver query logging configuration and an Amazon VPC. When you associate a VPC with a query logging configuration, Resolver logs DNS queries that originate in that VPC."]
module GetResolverEndpointResponse =
  struct
    type nonrec t =
      {
      resolverEndpoint: ResolverEndpoint.t option
        [@ocaml.doc
          "Information about the Resolver endpoint that you specified in a GetResolverEndpoint request."]}
    type nonrec error =
      [ `InternalServiceErrorException of InternalServiceErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?resolverEndpoint = fun () -> { resolverEndpoint }
    let error_of_json name json =
      match name with
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ResolverEndpoint",
           (Option.map x.resolverEndpoint ~f:ResolverEndpoint.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resolverEndpoint =
        (Option.map ~f:ResolverEndpoint.of_xml)
          (Xml.child xml_arg0 "ResolverEndpoint") in
      make ?resolverEndpoint ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resolverEndpoint =
        field_map json__ "ResolverEndpoint" ResolverEndpoint.of_json in
      make ?resolverEndpoint ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets information about a specified Resolver endpoint, such as whether it's an inbound or an outbound Resolver endpoint, and the current status of the endpoint."]
module GetResolverEndpointRequest =
  struct
    type nonrec t =
      {
      resolverEndpointId: ResourceId.t
        [@ocaml.doc
          "The ID of the Resolver endpoint that you want to get information about."]}
    let context_ = "GetResolverEndpointRequest"
    let make ~resolverEndpointId = fun () -> { resolverEndpointId }
    let to_value x =
      structure_to_value
        [("ResolverEndpointId",
           (Some (ResourceId.to_value x.resolverEndpointId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resolverEndpointId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResolverEndpointId") in
      make ~resolverEndpointId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resolverEndpointId =
        field_map_exn json__ "ResolverEndpointId" ResourceId.of_json in
      make ~resolverEndpointId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets information about a specified Resolver endpoint, such as whether it's an inbound or an outbound Resolver endpoint, and the current status of the endpoint."]
module GetResolverDnssecConfigResponse =
  struct
    type nonrec t =
      {
      resolverDNSSECConfig: ResolverDnssecConfig.t option
        [@ocaml.doc
          "The information about a configuration for DNSSEC validation."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?resolverDNSSECConfig = fun () -> { resolverDNSSECConfig }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ResolverDNSSECConfig",
           (Option.map x.resolverDNSSECConfig
              ~f:ResolverDnssecConfig.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resolverDNSSECConfig =
        (Option.map ~f:ResolverDnssecConfig.of_xml)
          (Xml.child xml_arg0 "ResolverDNSSECConfig") in
      make ?resolverDNSSECConfig ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resolverDNSSECConfig =
        field_map json__ "ResolverDNSSECConfig" ResolverDnssecConfig.of_json in
      make ?resolverDNSSECConfig ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets DNSSEC validation information for a specified resource."]
module GetResolverDnssecConfigRequest =
  struct
    type nonrec t =
      {
      resourceId: ResourceId.t
        [@ocaml.doc
          "The ID of the virtual private cloud (VPC) for the DNSSEC validation status."]}
    let context_ = "GetResolverDnssecConfigRequest"
    let make ~resourceId = fun () -> { resourceId }
    let to_value x =
      structure_to_value
        [("ResourceId", (Some (ResourceId.to_value x.resourceId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceId") in
      make ~resourceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceId = field_map_exn json__ "ResourceId" ResourceId.of_json in
      make ~resourceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets DNSSEC validation information for a specified resource."]
module GetResolverConfigResponse =
  struct
    type nonrec t =
      {
      resolverConfig: ResolverConfig.t option
        [@ocaml.doc
          "Information about the behavior configuration of Route\194\16053 Resolver behavior for the VPC you specified in the GetResolverConfig request."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?resolverConfig = fun () -> { resolverConfig }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.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
        [("ResolverConfig",
           (Option.map x.resolverConfig ~f:ResolverConfig.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resolverConfig =
        (Option.map ~f:ResolverConfig.of_xml)
          (Xml.child xml_arg0 "ResolverConfig") in
      make ?resolverConfig ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resolverConfig =
        field_map json__ "ResolverConfig" ResolverConfig.of_json in
      make ?resolverConfig ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the behavior configuration of Route\194\16053 Resolver behavior for a single VPC from Amazon Virtual Private Cloud."]
module GetResolverConfigRequest =
  struct
    type nonrec t =
      {
      resourceId: ResourceId.t
        [@ocaml.doc
          "Resource ID of the Amazon VPC that you want to get information about."]}
    let context_ = "GetResolverConfigRequest"
    let make ~resourceId = fun () -> { resourceId }
    let to_value x =
      structure_to_value
        [("ResourceId", (Some (ResourceId.to_value x.resourceId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceId") in
      make ~resourceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceId = field_map_exn json__ "ResourceId" ResourceId.of_json in
      make ~resourceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the behavior configuration of Route\194\16053 Resolver behavior for a single VPC from Amazon Virtual Private Cloud."]
module GetOutpostResolverResponse =
  struct
    type nonrec t =
      {
      outpostResolver: OutpostResolver.t option
        [@ocaml.doc
          "Information about the GetOutpostResolver request, including the status of the request."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?outpostResolver = fun () -> { outpostResolver }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.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)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.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))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.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
        [("OutpostResolver",
           (Option.map x.outpostResolver ~f:OutpostResolver.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let outpostResolver =
        (Option.map ~f:OutpostResolver.of_xml)
          (Xml.child xml_arg0 "OutpostResolver") in
      make ?outpostResolver ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let outpostResolver =
        field_map json__ "OutpostResolver" OutpostResolver.of_json in
      make ?outpostResolver ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets information about a specified Resolver on the Outpost, such as its instance count and type, name, and the current status of the Resolver."]
module GetOutpostResolverRequest =
  struct
    type nonrec t =
      {
      id: ResourceId.t [@ocaml.doc "The ID of the Resolver on the Outpost."]}
    let context_ = "GetOutpostResolverRequest"
    let make ~id = fun () -> { id }
    let to_value x =
      structure_to_value [("Id", (Some (ResourceId.to_value x.id)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let id =
        ResourceId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Id") in
      make ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let id = field_map_exn json__ "Id" ResourceId.of_json in make ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets information about a specified Resolver on the Outpost, such as its instance count and type, name, and the current status of the Resolver."]
module GetFirewallRuleGroupResponse =
  struct
    type nonrec t =
      {
      firewallRuleGroup: FirewallRuleGroup.t option
        [@ocaml.doc
          "A collection of rules used to filter DNS network traffic."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?firewallRuleGroup = fun () -> { firewallRuleGroup }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("FirewallRuleGroup",
           (Option.map x.firewallRuleGroup ~f:FirewallRuleGroup.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let firewallRuleGroup =
        (Option.map ~f:FirewallRuleGroup.of_xml)
          (Xml.child xml_arg0 "FirewallRuleGroup") in
      make ?firewallRuleGroup ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let firewallRuleGroup =
        field_map json__ "FirewallRuleGroup" FirewallRuleGroup.of_json in
      make ?firewallRuleGroup ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves the specified firewall rule group."]
module GetFirewallRuleGroupRequest =
  struct
    type nonrec t =
      {
      firewallRuleGroupId: ResourceId.t
        [@ocaml.doc "The unique identifier of the firewall rule group."]}
    let context_ = "GetFirewallRuleGroupRequest"
    let make ~firewallRuleGroupId = fun () -> { firewallRuleGroupId }
    let to_value x =
      structure_to_value
        [("FirewallRuleGroupId",
           (Some (ResourceId.to_value x.firewallRuleGroupId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let firewallRuleGroupId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FirewallRuleGroupId") in
      make ~firewallRuleGroupId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let firewallRuleGroupId =
        field_map_exn json__ "FirewallRuleGroupId" ResourceId.of_json in
      make ~firewallRuleGroupId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves the specified firewall rule group."]
module GetFirewallRuleGroupPolicyResponse =
  struct
    type nonrec t =
      {
      firewallRuleGroupPolicy: FirewallRuleGroupPolicy.t option
        [@ocaml.doc
          "The Identity and Access Management (Amazon Web Services IAM) policy for sharing the specified rule group. You can use the policy to share the rule group using Resource Access Manager (RAM)."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?firewallRuleGroupPolicy = fun () -> { firewallRuleGroupPolicy }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.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)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.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))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.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
        [("FirewallRuleGroupPolicy",
           (Option.map x.firewallRuleGroupPolicy
              ~f:FirewallRuleGroupPolicy.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let firewallRuleGroupPolicy =
        (Option.map ~f:FirewallRuleGroupPolicy.of_xml)
          (Xml.child xml_arg0 "FirewallRuleGroupPolicy") in
      make ?firewallRuleGroupPolicy ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let firewallRuleGroupPolicy =
        field_map json__ "FirewallRuleGroupPolicy"
          FirewallRuleGroupPolicy.of_json in
      make ?firewallRuleGroupPolicy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the Identity and Access Management (Amazon Web Services IAM) policy for sharing the specified rule group. You can use the policy to share the rule group using Resource Access Manager (RAM)."]
module GetFirewallRuleGroupPolicyRequest =
  struct
    type nonrec t =
      {
      arn: Arn.t
        [@ocaml.doc "The ARN (Amazon Resource Name) for the rule group."]}
    let context_ = "GetFirewallRuleGroupPolicyRequest"
    let make ~arn = fun () -> { arn }
    let to_value x =
      structure_to_value [("Arn", (Some (Arn.to_value x.arn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn = Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Arn") in
      make ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map_exn json__ "Arn" Arn.of_json in make ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the Identity and Access Management (Amazon Web Services IAM) policy for sharing the specified rule group. You can use the policy to share the rule group using Resource Access Manager (RAM)."]
module GetFirewallRuleGroupAssociationResponse =
  struct
    type nonrec t =
      {
      firewallRuleGroupAssociation: FirewallRuleGroupAssociation.t option
        [@ocaml.doc "The association that you requested."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?firewallRuleGroupAssociation =
      fun () -> { firewallRuleGroupAssociation }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("FirewallRuleGroupAssociation",
           (Option.map x.firewallRuleGroupAssociation
              ~f:FirewallRuleGroupAssociation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let firewallRuleGroupAssociation =
        (Option.map ~f:FirewallRuleGroupAssociation.of_xml)
          (Xml.child xml_arg0 "FirewallRuleGroupAssociation") in
      make ?firewallRuleGroupAssociation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let firewallRuleGroupAssociation =
        field_map json__ "FirewallRuleGroupAssociation"
          FirewallRuleGroupAssociation.of_json in
      make ?firewallRuleGroupAssociation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a firewall rule group association, which enables DNS filtering for a VPC with one rule group. A VPC can have more than one firewall rule group association, and a rule group can be associated with more than one VPC."]
module GetFirewallRuleGroupAssociationRequest =
  struct
    type nonrec t =
      {
      firewallRuleGroupAssociationId: ResourceId.t
        [@ocaml.doc "The identifier of the FirewallRuleGroupAssociation."]}
    let context_ = "GetFirewallRuleGroupAssociationRequest"
    let make ~firewallRuleGroupAssociationId =
      fun () -> { firewallRuleGroupAssociationId }
    let to_value x =
      structure_to_value
        [("FirewallRuleGroupAssociationId",
           (Some (ResourceId.to_value x.firewallRuleGroupAssociationId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let firewallRuleGroupAssociationId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "FirewallRuleGroupAssociationId") in
      make ~firewallRuleGroupAssociationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let firewallRuleGroupAssociationId =
        field_map_exn json__ "FirewallRuleGroupAssociationId"
          ResourceId.of_json in
      make ~firewallRuleGroupAssociationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a firewall rule group association, which enables DNS filtering for a VPC with one rule group. A VPC can have more than one firewall rule group association, and a rule group can be associated with more than one VPC."]
module GetFirewallDomainListResponse =
  struct
    type nonrec t =
      {
      firewallDomainList: FirewallDomainList.t option
        [@ocaml.doc "The domain list that you requested."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?firewallDomainList = fun () -> { firewallDomainList }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("FirewallDomainList",
           (Option.map x.firewallDomainList ~f:FirewallDomainList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let firewallDomainList =
        (Option.map ~f:FirewallDomainList.of_xml)
          (Xml.child xml_arg0 "FirewallDomainList") in
      make ?firewallDomainList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let firewallDomainList =
        field_map json__ "FirewallDomainList" FirewallDomainList.of_json in
      make ?firewallDomainList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves the specified firewall domain list."]
module GetFirewallDomainListRequest =
  struct
    type nonrec t =
      {
      firewallDomainListId: ResourceId.t
        [@ocaml.doc "The ID of the domain list."]}
    let context_ = "GetFirewallDomainListRequest"
    let make ~firewallDomainListId = fun () -> { firewallDomainListId }
    let to_value x =
      structure_to_value
        [("FirewallDomainListId",
           (Some (ResourceId.to_value x.firewallDomainListId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let firewallDomainListId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FirewallDomainListId") in
      make ~firewallDomainListId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let firewallDomainListId =
        field_map_exn json__ "FirewallDomainListId" ResourceId.of_json in
      make ~firewallDomainListId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves the specified firewall domain list."]
module GetFirewallConfigResponse =
  struct
    type nonrec t =
      {
      firewallConfig: FirewallConfig.t option
        [@ocaml.doc
          "Configuration of the firewall behavior provided by DNS Firewall for a single VPC from AmazonVPC."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?firewallConfig = fun () -> { firewallConfig }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.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)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.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))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.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
        [("FirewallConfig",
           (Option.map x.firewallConfig ~f:FirewallConfig.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let firewallConfig =
        (Option.map ~f:FirewallConfig.of_xml)
          (Xml.child xml_arg0 "FirewallConfig") in
      make ?firewallConfig ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let firewallConfig =
        field_map json__ "FirewallConfig" FirewallConfig.of_json in
      make ?firewallConfig ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the configuration of the firewall behavior provided by DNS Firewall for a single VPC from Amazon Virtual Private Cloud (Amazon VPC)."]
module GetFirewallConfigRequest =
  struct
    type nonrec t =
      {
      resourceId: ResourceId.t
        [@ocaml.doc
          "The ID of the VPC from Amazon VPC that the configuration is for."]}
    let context_ = "GetFirewallConfigRequest"
    let make ~resourceId = fun () -> { resourceId }
    let to_value x =
      structure_to_value
        [("ResourceId", (Some (ResourceId.to_value x.resourceId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceId") in
      make ~resourceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceId = field_map_exn json__ "ResourceId" ResourceId.of_json in
      make ~resourceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the configuration of the firewall behavior provided by DNS Firewall for a single VPC from Amazon Virtual Private Cloud (Amazon VPC)."]
module DisassociateResolverRuleResponse =
  struct
    type nonrec t =
      {
      resolverRuleAssociation: ResolverRuleAssociation.t option
        [@ocaml.doc
          "Information about the DisassociateResolverRule request, including the status of the request."]}
    type nonrec error =
      [ `InternalServiceErrorException of InternalServiceErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?resolverRuleAssociation = fun () -> { resolverRuleAssociation }
    let error_of_json name json =
      match name with
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ResolverRuleAssociation",
           (Option.map x.resolverRuleAssociation
              ~f:ResolverRuleAssociation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resolverRuleAssociation =
        (Option.map ~f:ResolverRuleAssociation.of_xml)
          (Xml.child xml_arg0 "ResolverRuleAssociation") in
      make ?resolverRuleAssociation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resolverRuleAssociation =
        field_map json__ "ResolverRuleAssociation"
          ResolverRuleAssociation.of_json in
      make ?resolverRuleAssociation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes the association between a specified Resolver rule and a specified VPC. If you disassociate a Resolver rule from a VPC, Resolver stops forwarding DNS queries for the domain name that you specified in the Resolver rule."]
module DisassociateResolverRuleRequest =
  struct
    type nonrec t =
      {
      vPCId: ResourceId.t
        [@ocaml.doc
          "The ID of the VPC that you want to disassociate the Resolver rule from."];
      resolverRuleId: ResourceId.t
        [@ocaml.doc
          "The ID of the Resolver rule that you want to disassociate from the specified VPC."]}
    let context_ = "DisassociateResolverRuleRequest"
    let make ~vPCId =
      fun ~resolverRuleId -> fun () -> { vPCId; resolverRuleId }
    let to_value x =
      structure_to_value
        [("VPCId", (Some (ResourceId.to_value x.vPCId)));
        ("ResolverRuleId", (Some (ResourceId.to_value x.resolverRuleId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resolverRuleId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResolverRuleId") in
      let vPCId =
        ResourceId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "VPCId") in
      make ~resolverRuleId ~vPCId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resolverRuleId =
        field_map_exn json__ "ResolverRuleId" ResourceId.of_json in
      let vPCId = field_map_exn json__ "VPCId" ResourceId.of_json in
      make ~resolverRuleId ~vPCId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes the association between a specified Resolver rule and a specified VPC. If you disassociate a Resolver rule from a VPC, Resolver stops forwarding DNS queries for the domain name that you specified in the Resolver rule."]
module DisassociateResolverQueryLogConfigResponse =
  struct
    type nonrec t =
      {
      resolverQueryLogConfigAssociation:
        ResolverQueryLogConfigAssociation.t option
        [@ocaml.doc
          "A complex type that contains settings for the association that you deleted between an Amazon VPC and a query logging configuration."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?resolverQueryLogConfigAssociation =
      fun () -> { resolverQueryLogConfigAssociation }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ResolverQueryLogConfigAssociation",
           (Option.map x.resolverQueryLogConfigAssociation
              ~f:ResolverQueryLogConfigAssociation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resolverQueryLogConfigAssociation =
        (Option.map ~f:ResolverQueryLogConfigAssociation.of_xml)
          (Xml.child xml_arg0 "ResolverQueryLogConfigAssociation") in
      make ?resolverQueryLogConfigAssociation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resolverQueryLogConfigAssociation =
        field_map json__ "ResolverQueryLogConfigAssociation"
          ResolverQueryLogConfigAssociation.of_json in
      make ?resolverQueryLogConfigAssociation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disassociates a VPC from a query logging configuration. Before you can delete a query logging configuration, you must first disassociate all VPCs from the configuration. If you used Resource Access Manager (RAM) to share a query logging configuration with other accounts, VPCs can be disassociated from the configuration in the following ways: The accounts that you shared the configuration with can disassociate VPCs from the configuration. You can stop sharing the configuration."]
module DisassociateResolverQueryLogConfigRequest =
  struct
    type nonrec t =
      {
      resolverQueryLogConfigId: ResourceId.t
        [@ocaml.doc
          "The ID of the query logging configuration that you want to disassociate a specified VPC from."];
      resourceId: ResourceId.t
        [@ocaml.doc
          "The ID of the Amazon VPC that you want to disassociate from a specified query logging configuration."]}
    let context_ = "DisassociateResolverQueryLogConfigRequest"
    let make ~resolverQueryLogConfigId =
      fun ~resourceId -> fun () -> { resolverQueryLogConfigId; resourceId }
    let to_value x =
      structure_to_value
        [("ResolverQueryLogConfigId",
           (Some (ResourceId.to_value x.resolverQueryLogConfigId)));
        ("ResourceId", (Some (ResourceId.to_value x.resourceId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceId") in
      let resolverQueryLogConfigId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "ResolverQueryLogConfigId") in
      make ~resourceId ~resolverQueryLogConfigId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceId = field_map_exn json__ "ResourceId" ResourceId.of_json in
      let resolverQueryLogConfigId =
        field_map_exn json__ "ResolverQueryLogConfigId" ResourceId.of_json in
      make ~resourceId ~resolverQueryLogConfigId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disassociates a VPC from a query logging configuration. Before you can delete a query logging configuration, you must first disassociate all VPCs from the configuration. If you used Resource Access Manager (RAM) to share a query logging configuration with other accounts, VPCs can be disassociated from the configuration in the following ways: The accounts that you shared the configuration with can disassociate VPCs from the configuration. You can stop sharing the configuration."]
module DisassociateResolverEndpointIpAddressResponse =
  struct
    type nonrec t =
      {
      resolverEndpoint: ResolverEndpoint.t option
        [@ocaml.doc
          "The response to an DisassociateResolverEndpointIpAddress request."]}
    type nonrec error =
      [ `InternalServiceErrorException of InternalServiceErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceExistsException of ResourceExistsException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?resolverEndpoint = fun () -> { resolverEndpoint }
    let error_of_json name json =
      match name with
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "ResourceExistsException" ->
          `ResourceExistsException (ResourceExistsException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "ResourceExistsException" ->
          `ResourceExistsException (ResourceExistsException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `ResourceExistsException e ->
          `Assoc
            [("error", (`String "ResourceExistsException"));
            ("details", (ResourceExistsException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ResolverEndpoint",
           (Option.map x.resolverEndpoint ~f:ResolverEndpoint.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resolverEndpoint =
        (Option.map ~f:ResolverEndpoint.of_xml)
          (Xml.child xml_arg0 "ResolverEndpoint") in
      make ?resolverEndpoint ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resolverEndpoint =
        field_map json__ "ResolverEndpoint" ResolverEndpoint.of_json in
      make ?resolverEndpoint ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes IP addresses from an inbound or an outbound Resolver endpoint. If you want to remove more than one IP address, submit one DisassociateResolverEndpointIpAddress request for each IP address. To add an IP address to an endpoint, see AssociateResolverEndpointIpAddress."]
module DisassociateResolverEndpointIpAddressRequest =
  struct
    type nonrec t =
      {
      resolverEndpointId: ResourceId.t
        [@ocaml.doc
          "The ID of the Resolver endpoint that you want to disassociate an IP address from."];
      ipAddress: IpAddressUpdate.t
        [@ocaml.doc
          "The IPv4 address that you want to remove from a Resolver endpoint."]}
    let context_ = "DisassociateResolverEndpointIpAddressRequest"
    let make ~resolverEndpointId =
      fun ~ipAddress -> fun () -> { resolverEndpointId; ipAddress }
    let to_value x =
      structure_to_value
        [("ResolverEndpointId",
           (Some (ResourceId.to_value x.resolverEndpointId)));
        ("IpAddress", (Some (IpAddressUpdate.to_value x.ipAddress)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ipAddress =
        IpAddressUpdate.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IpAddress") in
      let resolverEndpointId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResolverEndpointId") in
      make ~ipAddress ~resolverEndpointId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ipAddress =
        field_map_exn json__ "IpAddress" IpAddressUpdate.of_json in
      let resolverEndpointId =
        field_map_exn json__ "ResolverEndpointId" ResourceId.of_json in
      make ~ipAddress ~resolverEndpointId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes IP addresses from an inbound or an outbound Resolver endpoint. If you want to remove more than one IP address, submit one DisassociateResolverEndpointIpAddress request for each IP address. To add an IP address to an endpoint, see AssociateResolverEndpointIpAddress."]
module DisassociateFirewallRuleGroupResponse =
  struct
    type nonrec t =
      {
      firewallRuleGroupAssociation: FirewallRuleGroupAssociation.t option
        [@ocaml.doc
          "The firewall rule group association that you just removed."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?firewallRuleGroupAssociation =
      fun () -> { firewallRuleGroupAssociation }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.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
        [("FirewallRuleGroupAssociation",
           (Option.map x.firewallRuleGroupAssociation
              ~f:FirewallRuleGroupAssociation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let firewallRuleGroupAssociation =
        (Option.map ~f:FirewallRuleGroupAssociation.of_xml)
          (Xml.child xml_arg0 "FirewallRuleGroupAssociation") in
      make ?firewallRuleGroupAssociation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let firewallRuleGroupAssociation =
        field_map json__ "FirewallRuleGroupAssociation"
          FirewallRuleGroupAssociation.of_json in
      make ?firewallRuleGroupAssociation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disassociates a FirewallRuleGroup from a VPC, to remove DNS filtering from the VPC."]
module DisassociateFirewallRuleGroupRequest =
  struct
    type nonrec t =
      {
      firewallRuleGroupAssociationId: ResourceId.t
        [@ocaml.doc "The identifier of the FirewallRuleGroupAssociation."]}
    let context_ = "DisassociateFirewallRuleGroupRequest"
    let make ~firewallRuleGroupAssociationId =
      fun () -> { firewallRuleGroupAssociationId }
    let to_value x =
      structure_to_value
        [("FirewallRuleGroupAssociationId",
           (Some (ResourceId.to_value x.firewallRuleGroupAssociationId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let firewallRuleGroupAssociationId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "FirewallRuleGroupAssociationId") in
      make ~firewallRuleGroupAssociationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let firewallRuleGroupAssociationId =
        field_map_exn json__ "FirewallRuleGroupAssociationId"
          ResourceId.of_json in
      make ~firewallRuleGroupAssociationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disassociates a FirewallRuleGroup from a VPC, to remove DNS filtering from the VPC."]
module DeleteResolverRuleResponse =
  struct
    type nonrec t =
      {
      resolverRule: ResolverRule.t option
        [@ocaml.doc
          "Information about the DeleteResolverRule request, including the status of the request."]}
    type nonrec error =
      [ `InternalServiceErrorException of InternalServiceErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceInUseException of ResourceInUseException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?resolverRule = fun () -> { resolverRule }
    let error_of_json name json =
      match name with
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "ResourceInUseException" ->
          `ResourceInUseException (ResourceInUseException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "ResourceInUseException" ->
          `ResourceInUseException (ResourceInUseException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `ResourceInUseException e ->
          `Assoc
            [("error", (`String "ResourceInUseException"));
            ("details", (ResourceInUseException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ResolverRule",
           (Option.map x.resolverRule ~f:ResolverRule.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resolverRule =
        (Option.map ~f:ResolverRule.of_xml)
          (Xml.child xml_arg0 "ResolverRule") in
      make ?resolverRule ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resolverRule = field_map json__ "ResolverRule" ResolverRule.of_json in
      make ?resolverRule ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a Resolver rule. Before you can delete a Resolver rule, you must disassociate it from all the VPCs that you associated the Resolver rule with. For more information, see DisassociateResolverRule."]
module DeleteResolverRuleRequest =
  struct
    type nonrec t =
      {
      resolverRuleId: ResourceId.t
        [@ocaml.doc "The ID of the Resolver rule that you want to delete."]}
    let context_ = "DeleteResolverRuleRequest"
    let make ~resolverRuleId = fun () -> { resolverRuleId }
    let to_value x =
      structure_to_value
        [("ResolverRuleId", (Some (ResourceId.to_value x.resolverRuleId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resolverRuleId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResolverRuleId") in
      make ~resolverRuleId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resolverRuleId =
        field_map_exn json__ "ResolverRuleId" ResourceId.of_json in
      make ~resolverRuleId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a Resolver rule. Before you can delete a Resolver rule, you must disassociate it from all the VPCs that you associated the Resolver rule with. For more information, see DisassociateResolverRule."]
module DeleteResolverQueryLogConfigResponse =
  struct
    type nonrec t =
      {
      resolverQueryLogConfig: ResolverQueryLogConfig.t option
        [@ocaml.doc
          "Information about the query logging configuration that you deleted, including the status of the request."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?resolverQueryLogConfig = fun () -> { resolverQueryLogConfig }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ResolverQueryLogConfig",
           (Option.map x.resolverQueryLogConfig
              ~f:ResolverQueryLogConfig.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resolverQueryLogConfig =
        (Option.map ~f:ResolverQueryLogConfig.of_xml)
          (Xml.child xml_arg0 "ResolverQueryLogConfig") in
      make ?resolverQueryLogConfig ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resolverQueryLogConfig =
        field_map json__ "ResolverQueryLogConfig"
          ResolverQueryLogConfig.of_json in
      make ?resolverQueryLogConfig ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a query logging configuration. When you delete a configuration, Resolver stops logging DNS queries for all of the Amazon VPCs that are associated with the configuration. This also applies if the query logging configuration is shared with other Amazon Web Services accounts, and the other accounts have associated VPCs with the shared configuration. Before you can delete a query logging configuration, you must first disassociate all VPCs from the configuration. See DisassociateResolverQueryLogConfig. If you used Resource Access Manager (RAM) to share a query logging configuration with other accounts, you must stop sharing the configuration before you can delete a configuration. The accounts that you shared the configuration with can first disassociate VPCs that they associated with the configuration, but that's not necessary. If you stop sharing the configuration, those VPCs are automatically disassociated from the configuration."]
module DeleteResolverQueryLogConfigRequest =
  struct
    type nonrec t =
      {
      resolverQueryLogConfigId: ResourceId.t
        [@ocaml.doc
          "The ID of the query logging configuration that you want to delete."]}
    let context_ = "DeleteResolverQueryLogConfigRequest"
    let make ~resolverQueryLogConfigId =
      fun () -> { resolverQueryLogConfigId }
    let to_value x =
      structure_to_value
        [("ResolverQueryLogConfigId",
           (Some (ResourceId.to_value x.resolverQueryLogConfigId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resolverQueryLogConfigId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "ResolverQueryLogConfigId") in
      make ~resolverQueryLogConfigId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resolverQueryLogConfigId =
        field_map_exn json__ "ResolverQueryLogConfigId" ResourceId.of_json in
      make ~resolverQueryLogConfigId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a query logging configuration. When you delete a configuration, Resolver stops logging DNS queries for all of the Amazon VPCs that are associated with the configuration. This also applies if the query logging configuration is shared with other Amazon Web Services accounts, and the other accounts have associated VPCs with the shared configuration. Before you can delete a query logging configuration, you must first disassociate all VPCs from the configuration. See DisassociateResolverQueryLogConfig. If you used Resource Access Manager (RAM) to share a query logging configuration with other accounts, you must stop sharing the configuration before you can delete a configuration. The accounts that you shared the configuration with can first disassociate VPCs that they associated with the configuration, but that's not necessary. If you stop sharing the configuration, those VPCs are automatically disassociated from the configuration."]
module DeleteResolverEndpointResponse =
  struct
    type nonrec t =
      {
      resolverEndpoint: ResolverEndpoint.t option
        [@ocaml.doc
          "Information about the DeleteResolverEndpoint request, including the status of the request."]}
    type nonrec error =
      [ `InternalServiceErrorException of InternalServiceErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?resolverEndpoint = fun () -> { resolverEndpoint }
    let error_of_json name json =
      match name with
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ResolverEndpoint",
           (Option.map x.resolverEndpoint ~f:ResolverEndpoint.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resolverEndpoint =
        (Option.map ~f:ResolverEndpoint.of_xml)
          (Xml.child xml_arg0 "ResolverEndpoint") in
      make ?resolverEndpoint ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resolverEndpoint =
        field_map json__ "ResolverEndpoint" ResolverEndpoint.of_json in
      make ?resolverEndpoint ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a Resolver endpoint. The effect of deleting a Resolver endpoint depends on whether it's an inbound or an outbound Resolver endpoint: Inbound: DNS queries from your network are no longer routed to the DNS service for the specified VPC. Outbound: DNS queries from a VPC are no longer routed to your network."]
module DeleteResolverEndpointRequest =
  struct
    type nonrec t =
      {
      resolverEndpointId: ResourceId.t
        [@ocaml.doc
          "The ID of the Resolver endpoint that you want to delete."]}
    let context_ = "DeleteResolverEndpointRequest"
    let make ~resolverEndpointId = fun () -> { resolverEndpointId }
    let to_value x =
      structure_to_value
        [("ResolverEndpointId",
           (Some (ResourceId.to_value x.resolverEndpointId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resolverEndpointId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResolverEndpointId") in
      make ~resolverEndpointId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resolverEndpointId =
        field_map_exn json__ "ResolverEndpointId" ResourceId.of_json in
      make ~resolverEndpointId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a Resolver endpoint. The effect of deleting a Resolver endpoint depends on whether it's an inbound or an outbound Resolver endpoint: Inbound: DNS queries from your network are no longer routed to the DNS service for the specified VPC. Outbound: DNS queries from a VPC are no longer routed to your network."]
module DeleteOutpostResolverResponse =
  struct
    type nonrec t =
      {
      outpostResolver: OutpostResolver.t option
        [@ocaml.doc
          "Information about the DeleteOutpostResolver request, including the status of the request."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?outpostResolver = fun () -> { outpostResolver }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.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
        [("OutpostResolver",
           (Option.map x.outpostResolver ~f:OutpostResolver.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let outpostResolver =
        (Option.map ~f:OutpostResolver.of_xml)
          (Xml.child xml_arg0 "OutpostResolver") in
      make ?outpostResolver ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let outpostResolver =
        field_map json__ "OutpostResolver" OutpostResolver.of_json in
      make ?outpostResolver ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes a Resolver on the Outpost."]
module DeleteOutpostResolverRequest =
  struct
    type nonrec t =
      {
      id: ResourceId.t
        [@ocaml.doc
          "A unique string that identifies the Resolver on the Outpost."]}
    let context_ = "DeleteOutpostResolverRequest"
    let make ~id = fun () -> { id }
    let to_value x =
      structure_to_value [("Id", (Some (ResourceId.to_value x.id)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let id =
        ResourceId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Id") in
      make ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let id = field_map_exn json__ "Id" ResourceId.of_json in make ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes a Resolver on the Outpost."]
module DeleteFirewallRuleResponse =
  struct
    type nonrec t =
      {
      firewallRule: FirewallRule.t option
        [@ocaml.doc
          "The specification for the firewall rule that you just deleted."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?firewallRule = fun () -> { firewallRule }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.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)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.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))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.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
        [("FirewallRule",
           (Option.map x.firewallRule ~f:FirewallRule.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let firewallRule =
        (Option.map ~f:FirewallRule.of_xml)
          (Xml.child xml_arg0 "FirewallRule") in
      make ?firewallRule ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let firewallRule = field_map json__ "FirewallRule" FirewallRule.of_json in
      make ?firewallRule ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes the specified firewall rule."]
module DeleteFirewallRuleRequest =
  struct
    type nonrec t =
      {
      firewallRuleGroupId: ResourceId.t
        [@ocaml.doc
          "The unique identifier of the firewall rule group that you want to delete the rule from."];
      firewallDomainListId: ResourceId.t option
        [@ocaml.doc "The ID of the domain list that's used in the rule."];
      firewallThreatProtectionId: ResourceId.t option
        [@ocaml.doc
          "The ID that is created for a DNS Firewall Advanced rule."];
      qtype: Qtype.t option
        [@ocaml.doc
          "The DNS query type that the rule you are deleting evaluates. Allowed values are; A: Returns an IPv4 address. AAAA: Returns an Ipv6 address. CAA: Restricts CAs that can create SSL/TLS certifications for the domain. CNAME: Returns another domain name. DS: Record that identifies the DNSSEC signing key of a delegated zone. MX: Specifies mail servers. NAPTR: Regular-expression-based rewriting of domain names. NS: Authoritative name servers. PTR: Maps an IP address to a domain name. SOA: Start of authority record for the zone. SPF: Lists the servers authorized to send emails from a domain. SRV: Application specific values that identify servers. TXT: Verifies email senders and application-specific values. A query type you define by using the DNS type ID, for example 28 for AAAA. The values must be defined as TYPENUMBER, where the NUMBER can be 1-65334, for example, TYPE28. For more information, see List of DNS record types."]}
    let context_ = "DeleteFirewallRuleRequest"
    let make ?firewallDomainListId =
      fun ?firewallThreatProtectionId ->
        fun ?qtype ->
          fun ~firewallRuleGroupId ->
            fun () ->
              {
                firewallDomainListId;
                firewallThreatProtectionId;
                qtype;
                firewallRuleGroupId
              }
    let to_value x =
      structure_to_value
        [("FirewallRuleGroupId",
           (Some (ResourceId.to_value x.firewallRuleGroupId)));
        ("FirewallDomainListId",
          (Option.map x.firewallDomainListId ~f:ResourceId.to_value));
        ("FirewallThreatProtectionId",
          (Option.map x.firewallThreatProtectionId ~f:ResourceId.to_value));
        ("Qtype", (Option.map x.qtype ~f:Qtype.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let qtype = (Option.map ~f:Qtype.of_xml) (Xml.child xml_arg0 "Qtype") in
      let firewallThreatProtectionId =
        (Option.map ~f:ResourceId.of_xml)
          (Xml.child xml_arg0 "FirewallThreatProtectionId") in
      let firewallDomainListId =
        (Option.map ~f:ResourceId.of_xml)
          (Xml.child xml_arg0 "FirewallDomainListId") in
      let firewallRuleGroupId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FirewallRuleGroupId") in
      make ?qtype ?firewallThreatProtectionId ?firewallDomainListId
        ~firewallRuleGroupId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let qtype = field_map json__ "Qtype" Qtype.of_json in
      let firewallThreatProtectionId =
        field_map json__ "FirewallThreatProtectionId" ResourceId.of_json in
      let firewallDomainListId =
        field_map json__ "FirewallDomainListId" ResourceId.of_json in
      let firewallRuleGroupId =
        field_map_exn json__ "FirewallRuleGroupId" ResourceId.of_json in
      make ?qtype ?firewallThreatProtectionId ?firewallDomainListId
        ~firewallRuleGroupId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes the specified firewall rule."]
module DeleteFirewallRuleGroupResponse =
  struct
    type nonrec t =
      {
      firewallRuleGroup: FirewallRuleGroup.t option
        [@ocaml.doc
          "A collection of rules used to filter DNS network traffic."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?firewallRuleGroup = fun () -> { firewallRuleGroup }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.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
        [("FirewallRuleGroup",
           (Option.map x.firewallRuleGroup ~f:FirewallRuleGroup.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let firewallRuleGroup =
        (Option.map ~f:FirewallRuleGroup.of_xml)
          (Xml.child xml_arg0 "FirewallRuleGroup") in
      make ?firewallRuleGroup ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let firewallRuleGroup =
        field_map json__ "FirewallRuleGroup" FirewallRuleGroup.of_json in
      make ?firewallRuleGroup ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes the specified firewall rule group."]
module DeleteFirewallRuleGroupRequest =
  struct
    type nonrec t =
      {
      firewallRuleGroupId: ResourceId.t
        [@ocaml.doc
          "The unique identifier of the firewall rule group that you want to delete."]}
    let context_ = "DeleteFirewallRuleGroupRequest"
    let make ~firewallRuleGroupId = fun () -> { firewallRuleGroupId }
    let to_value x =
      structure_to_value
        [("FirewallRuleGroupId",
           (Some (ResourceId.to_value x.firewallRuleGroupId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let firewallRuleGroupId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FirewallRuleGroupId") in
      make ~firewallRuleGroupId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let firewallRuleGroupId =
        field_map_exn json__ "FirewallRuleGroupId" ResourceId.of_json in
      make ~firewallRuleGroupId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes the specified firewall rule group."]
module DeleteFirewallDomainListResponse =
  struct
    type nonrec t =
      {
      firewallDomainList: FirewallDomainList.t option
        [@ocaml.doc "The domain list that you just deleted."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?firewallDomainList = fun () -> { firewallDomainList }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("FirewallDomainList",
           (Option.map x.firewallDomainList ~f:FirewallDomainList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let firewallDomainList =
        (Option.map ~f:FirewallDomainList.of_xml)
          (Xml.child xml_arg0 "FirewallDomainList") in
      make ?firewallDomainList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let firewallDomainList =
        field_map json__ "FirewallDomainList" FirewallDomainList.of_json in
      make ?firewallDomainList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes the specified domain list."]
module DeleteFirewallDomainListRequest =
  struct
    type nonrec t =
      {
      firewallDomainListId: ResourceId.t
        [@ocaml.doc "The ID of the domain list that you want to delete."]}
    let context_ = "DeleteFirewallDomainListRequest"
    let make ~firewallDomainListId = fun () -> { firewallDomainListId }
    let to_value x =
      structure_to_value
        [("FirewallDomainListId",
           (Some (ResourceId.to_value x.firewallDomainListId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let firewallDomainListId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FirewallDomainListId") in
      make ~firewallDomainListId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let firewallDomainListId =
        field_map_exn json__ "FirewallDomainListId" ResourceId.of_json in
      make ~firewallDomainListId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes the specified domain list."]
module CreateResolverRuleResponse =
  struct
    type nonrec t =
      {
      resolverRule: ResolverRule.t option
        [@ocaml.doc
          "Information about the CreateResolverRule request, including the status of the request."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceExistsException of ResourceExistsException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ResourceUnavailableException of ResourceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?resolverRule = fun () -> { resolverRule }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceExistsException" ->
          `ResourceExistsException (ResourceExistsException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ResourceUnavailableException" ->
          `ResourceUnavailableException
            (ResourceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceExistsException" ->
          `ResourceExistsException (ResourceExistsException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ResourceUnavailableException" ->
          `ResourceUnavailableException
            (ResourceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceExistsException e ->
          `Assoc
            [("error", (`String "ResourceExistsException"));
            ("details", (ResourceExistsException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ResourceUnavailableException e ->
          `Assoc
            [("error", (`String "ResourceUnavailableException"));
            ("details", (ResourceUnavailableException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ResolverRule",
           (Option.map x.resolverRule ~f:ResolverRule.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resolverRule =
        (Option.map ~f:ResolverRule.of_xml)
          (Xml.child xml_arg0 "ResolverRule") in
      make ?resolverRule ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resolverRule = field_map json__ "ResolverRule" ResolverRule.of_json in
      make ?resolverRule ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "For DNS queries that originate in your VPCs, specifies which Resolver endpoint the queries pass through, one domain name that you want to forward to your network, and the IP addresses of the DNS resolvers in your network."]
module CreateResolverRuleRequest =
  struct
    type nonrec t =
      {
      creatorRequestId: CreatorRequestId.t
        [@ocaml.doc
          "A unique string that identifies the request and that allows failed requests to be retried without the risk of running the operation twice. CreatorRequestId can be any unique string, for example, a date/time stamp."];
      name: Name.t option
        [@ocaml.doc
          "A friendly name that lets you easily find a rule in the Resolver dashboard in the Route 53 console. The name can be up to 64 characters long and can contain letters (a-z, A-Z), numbers (0-9), hyphens (-), underscores (_), and spaces. The name cannot consist of only numbers."];
      ruleType: RuleTypeOption.t
        [@ocaml.doc
          "When you want to forward DNS queries for specified domain name to resolvers on your network, specify FORWARD or DELEGATE. When you have a forwarding rule to forward DNS queries for a domain to your network and you want Resolver to process queries for a subdomain of that domain, specify SYSTEM. For example, to forward DNS queries for example.com to resolvers on your network, you create a rule and specify FORWARD for RuleType. To then have Resolver process queries for apex.example.com, you create a rule and specify SYSTEM for RuleType. Currently, only Resolver can create rules that have a value of RECURSIVE for RuleType."];
      domainName: DomainName.t option
        [@ocaml.doc
          "DNS queries for this domain name are forwarded to the IP addresses that you specify in TargetIps. If a query matches multiple Resolver rules (example.com and www.example.com), outbound DNS queries are routed using the Resolver rule that contains the most specific domain name (www.example.com)."];
      targetIps: TargetList.t option
        [@ocaml.doc
          "The IPs that you want Resolver to forward DNS queries to. You can specify either Ipv4 or Ipv6 addresses but not both in the same rule. Separate IP addresses with a space. TargetIps is available only when the value of Rule type is FORWARD. You should not provide TargetIps when the Rule type is DELEGATE. when creating a DELEGATE rule, you must not provide the TargetIps parameter. If you provide the TargetIps, you may receive an ERROR message similar to \"Delegate resolver rules need to specify a nameserver name\". This error means you should not provide TargetIps."];
      resolverEndpointId: ResourceId.t option
        [@ocaml.doc
          "The ID of the outbound Resolver endpoint that you want to use to route DNS queries to the IP addresses that you specify in TargetIps."];
      tags: TagList.t option
        [@ocaml.doc
          "A list of the tag keys and values that you want to associate with the endpoint."];
      delegationRecord: DelegationRecord.t option
        [@ocaml.doc
          "DNS queries with the delegation records that match this domain name are forwarded to the resolvers on your network."]}
    let context_ = "CreateResolverRuleRequest"
    let make ?name =
      fun ?domainName ->
        fun ?targetIps ->
          fun ?resolverEndpointId ->
            fun ?tags ->
              fun ?delegationRecord ->
                fun ~creatorRequestId ->
                  fun ~ruleType ->
                    fun () ->
                      {
                        name;
                        domainName;
                        targetIps;
                        resolverEndpointId;
                        tags;
                        delegationRecord;
                        creatorRequestId;
                        ruleType
                      }
    let to_value x =
      structure_to_value
        [("CreatorRequestId",
           (Some (CreatorRequestId.to_value x.creatorRequestId)));
        ("Name", (Option.map x.name ~f:Name.to_value));
        ("RuleType", (Some (RuleTypeOption.to_value x.ruleType)));
        ("DomainName", (Option.map x.domainName ~f:DomainName.to_value));
        ("TargetIps", (Option.map x.targetIps ~f:TargetList.to_value));
        ("ResolverEndpointId",
          (Option.map x.resolverEndpointId ~f:ResourceId.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("DelegationRecord",
          (Option.map x.delegationRecord ~f:DelegationRecord.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let delegationRecord =
        (Option.map ~f:DelegationRecord.of_xml)
          (Xml.child xml_arg0 "DelegationRecord") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let resolverEndpointId =
        (Option.map ~f:ResourceId.of_xml)
          (Xml.child xml_arg0 "ResolverEndpointId") in
      let targetIps =
        (Option.map ~f:TargetList.of_xml) (Xml.child xml_arg0 "TargetIps") in
      let domainName =
        (Option.map ~f:DomainName.of_xml) (Xml.child xml_arg0 "DomainName") in
      let ruleType =
        RuleTypeOption.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RuleType") in
      let name = (Option.map ~f:Name.of_xml) (Xml.child xml_arg0 "Name") in
      let creatorRequestId =
        CreatorRequestId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "CreatorRequestId") in
      make ?delegationRecord ?tags ?resolverEndpointId ?targetIps ?domainName
        ~ruleType ?name ~creatorRequestId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let delegationRecord =
        field_map json__ "DelegationRecord" DelegationRecord.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let resolverEndpointId =
        field_map json__ "ResolverEndpointId" ResourceId.of_json in
      let targetIps = field_map json__ "TargetIps" TargetList.of_json in
      let domainName = field_map json__ "DomainName" DomainName.of_json in
      let ruleType = field_map_exn json__ "RuleType" RuleTypeOption.of_json in
      let name = field_map json__ "Name" Name.of_json in
      let creatorRequestId =
        field_map_exn json__ "CreatorRequestId" CreatorRequestId.of_json in
      make ?delegationRecord ?tags ?resolverEndpointId ?targetIps ?domainName
        ~ruleType ?name ~creatorRequestId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "For DNS queries that originate in your VPCs, specifies which Resolver endpoint the queries pass through, one domain name that you want to forward to your network, and the IP addresses of the DNS resolvers in your network."]
module CreateResolverQueryLogConfigResponse =
  struct
    type nonrec t =
      {
      resolverQueryLogConfig: ResolverQueryLogConfig.t option
        [@ocaml.doc
          "Information about the CreateResolverQueryLogConfig request, including the status of the request."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceExistsException of ResourceExistsException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?resolverQueryLogConfig = fun () -> { resolverQueryLogConfig }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceExistsException" ->
          `ResourceExistsException (ResourceExistsException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceExistsException" ->
          `ResourceExistsException (ResourceExistsException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceExistsException e ->
          `Assoc
            [("error", (`String "ResourceExistsException"));
            ("details", (ResourceExistsException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ResolverQueryLogConfig",
           (Option.map x.resolverQueryLogConfig
              ~f:ResolverQueryLogConfig.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resolverQueryLogConfig =
        (Option.map ~f:ResolverQueryLogConfig.of_xml)
          (Xml.child xml_arg0 "ResolverQueryLogConfig") in
      make ?resolverQueryLogConfig ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resolverQueryLogConfig =
        field_map json__ "ResolverQueryLogConfig"
          ResolverQueryLogConfig.of_json in
      make ?resolverQueryLogConfig ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a Resolver query logging configuration, which defines where you want Resolver to save DNS query logs that originate in your VPCs. Resolver can log queries only for VPCs that are in the same Region as the query logging configuration. To specify which VPCs you want to log queries for, you use AssociateResolverQueryLogConfig. For more information, see AssociateResolverQueryLogConfig. You can optionally use Resource Access Manager (RAM) to share a query logging configuration with other Amazon Web Services accounts. The other accounts can then associate VPCs with the configuration. The query logs that Resolver creates for a configuration include all DNS queries that originate in all VPCs that are associated with the configuration."]
module CreateResolverQueryLogConfigRequest =
  struct
    type nonrec t =
      {
      name: ResolverQueryLogConfigName.t
        [@ocaml.doc
          "The name that you want to give the query logging configuration."];
      destinationArn: DestinationArn.t
        [@ocaml.doc
          "The ARN of the resource that you want Resolver to send query logs. You can send query logs to an S3 bucket, a CloudWatch Logs log group, or a Kinesis Data Firehose delivery stream. Examples of valid values include the following: S3 bucket: arn:aws:s3:::amzn-s3-demo-bucket You can optionally append a file prefix to the end of the ARN. arn:aws:s3:::amzn-s3-demo-bucket/development/ CloudWatch Logs log group: arn:aws:logs:us-west-1:123456789012:log-group:/mystack-testgroup-12ABC1AB12A1:* Kinesis Data Firehose delivery stream: arn:aws:kinesis:us-east-2:0123456789:stream/my_stream_name"];
      creatorRequestId: CreatorRequestId.t
        [@ocaml.doc
          "A unique string that identifies the request and that allows failed requests to be retried without the risk of running the operation twice. CreatorRequestId can be any unique string, for example, a date/time stamp."];
      tags: TagList.t option
        [@ocaml.doc
          "A list of the tag keys and values that you want to associate with the query logging configuration."]}
    let context_ = "CreateResolverQueryLogConfigRequest"
    let make ?tags =
      fun ~name ->
        fun ~destinationArn ->
          fun ~creatorRequestId ->
            fun () -> { tags; name; destinationArn; creatorRequestId }
    let to_value x =
      structure_to_value
        [("Name", (Some (ResolverQueryLogConfigName.to_value x.name)));
        ("DestinationArn", (Some (DestinationArn.to_value x.destinationArn)));
        ("CreatorRequestId",
          (Some (CreatorRequestId.to_value x.creatorRequestId)));
        ("Tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let creatorRequestId =
        CreatorRequestId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "CreatorRequestId") in
      let destinationArn =
        DestinationArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DestinationArn") in
      let name =
        ResolverQueryLogConfigName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ?tags ~creatorRequestId ~destinationArn ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagList.of_json in
      let creatorRequestId =
        field_map_exn json__ "CreatorRequestId" CreatorRequestId.of_json in
      let destinationArn =
        field_map_exn json__ "DestinationArn" DestinationArn.of_json in
      let name =
        field_map_exn json__ "Name" ResolverQueryLogConfigName.of_json in
      make ?tags ~creatorRequestId ~destinationArn ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a Resolver query logging configuration, which defines where you want Resolver to save DNS query logs that originate in your VPCs. Resolver can log queries only for VPCs that are in the same Region as the query logging configuration. To specify which VPCs you want to log queries for, you use AssociateResolverQueryLogConfig. For more information, see AssociateResolverQueryLogConfig. You can optionally use Resource Access Manager (RAM) to share a query logging configuration with other Amazon Web Services accounts. The other accounts can then associate VPCs with the configuration. The query logs that Resolver creates for a configuration include all DNS queries that originate in all VPCs that are associated with the configuration."]
module CreateResolverEndpointResponse =
  struct
    type nonrec t =
      {
      resolverEndpoint: ResolverEndpoint.t option
        [@ocaml.doc
          "Information about the CreateResolverEndpoint request, including the status of the request."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceExistsException of ResourceExistsException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?resolverEndpoint = fun () -> { resolverEndpoint }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceExistsException" ->
          `ResourceExistsException (ResourceExistsException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceExistsException" ->
          `ResourceExistsException (ResourceExistsException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceExistsException e ->
          `Assoc
            [("error", (`String "ResourceExistsException"));
            ("details", (ResourceExistsException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ResolverEndpoint",
           (Option.map x.resolverEndpoint ~f:ResolverEndpoint.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resolverEndpoint =
        (Option.map ~f:ResolverEndpoint.of_xml)
          (Xml.child xml_arg0 "ResolverEndpoint") in
      make ?resolverEndpoint ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resolverEndpoint =
        field_map json__ "ResolverEndpoint" ResolverEndpoint.of_json in
      make ?resolverEndpoint ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a Resolver endpoint. There are two types of Resolver endpoints, inbound and outbound: An inbound Resolver endpoint forwards DNS queries to the DNS service for a VPC from your network. An outbound Resolver endpoint forwards DNS queries from the DNS service for a VPC to your network."]
module CreateResolverEndpointRequest =
  struct
    type nonrec t =
      {
      creatorRequestId: CreatorRequestId.t
        [@ocaml.doc
          "A unique string that identifies the request and that allows failed requests to be retried without the risk of running the operation twice. CreatorRequestId can be any unique string, for example, a date/time stamp."];
      name: Name.t option
        [@ocaml.doc
          "A friendly name that lets you easily find a configuration in the Resolver dashboard in the Route 53 console."];
      securityGroupIds: SecurityGroupIds.t
        [@ocaml.doc
          "The ID of one or more security groups that you want to use to control access to this VPC. The security group that you specify must include one or more inbound rules (for inbound Resolver endpoints) or outbound rules (for outbound Resolver endpoints). Inbound and outbound rules must allow TCP and UDP access. For inbound access, open port 53. For outbound access, open the port that you're using for DNS queries on your network. Some security group rules will cause your connection to be tracked. For outbound resolver endpoint, it can potentially impact the maximum queries per second from outbound endpoint to your target name server. For inbound resolver endpoint, it can bring down the overall maximum queries per second per IP address to as low as 1500. To avoid connection tracking caused by security group, see Untracked connections."];
      direction: ResolverEndpointDirection.t
        [@ocaml.doc
          "Specify the applicable value: INBOUND: Resolver forwards DNS queries to the DNS service for a VPC from your network. OUTBOUND: Resolver forwards DNS queries from the DNS service for a VPC to your network. INBOUND_DELEGATION: Resolver delegates queries to Route 53 private hosted zones from your network."];
      ipAddresses: IpAddressesRequest.t
        [@ocaml.doc
          "The subnets and IP addresses in your VPC that DNS queries originate from (for outbound endpoints) or that you forward DNS queries to (for inbound endpoints). The subnet ID uniquely identifies a VPC. Even though the minimum is 1, Route\194\16053 requires that you create at least two."];
      outpostArn: OutpostArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Outpost. If you specify this, you must also specify a value for the PreferredInstanceType."];
      preferredInstanceType: OutpostInstanceType.t option
        [@ocaml.doc
          "The instance type. If you specify this, you must also specify a value for the OutpostArn."];
      tags: TagList.t option
        [@ocaml.doc
          "A list of the tag keys and values that you want to associate with the endpoint."];
      resolverEndpointType: ResolverEndpointType.t option
        [@ocaml.doc
          "For the endpoint type you can choose either IPv4, IPv6, or dual-stack. A dual-stack endpoint means that it will resolve via both IPv4 and IPv6. This endpoint type is applied to all IP addresses."];
      protocols: ProtocolList.t option
        [@ocaml.doc
          "The protocols you want to use for the endpoint. DoH-FIPS is applicable for default inbound endpoints only. For a default inbound endpoint you can apply the protocols as follows: Do53 and DoH in combination. Do53 and DoH-FIPS in combination. Do53 alone. DoH alone. DoH-FIPS alone. None, which is treated as Do53. For a delegation inbound endpoint you can use Do53 only. For an outbound endpoint you can apply the protocols as follows: Do53 and DoH in combination. Do53 alone. DoH alone. None, which is treated as Do53."];
      rniEnhancedMetricsEnabled: RniEnhancedMetricsEnabled.t option
        [@ocaml.doc
          "Specifies whether RNI enhanced metrics are enabled for the Resolver endpoints. When set to true, one-minute granular metrics are published in CloudWatch for each RNI associated with this endpoint. When set to false, metrics are not published. Default is false. Standard CloudWatch pricing and charges are applied for using the Route 53 Resolver endpoint RNI enhanced metrics. For more information, see Detailed metrics."];
      targetNameServerMetricsEnabled: TargetNameServerMetricsEnabled.t option
        [@ocaml.doc
          "Specifies whether target name server metrics are enabled for the outbound Resolver endpoints. When set to true, one-minute granular metrics are published in CloudWatch for each target name server associated with this endpoint. When set to false, metrics are not published. Default is false. This is not supported for inbound Resolver endpoints. Standard CloudWatch pricing and charges are applied for using the Route 53 Resolver endpoint target name server metrics. For more information, see Detailed metrics."];
      dns64Enabled: Dns64Enabled.t option
        [@ocaml.doc
          "Specifies whether DNS64 is enabled for the inbound Resolver endpoint. When set to true, Route 53 Resolver synthesizes AAAA (IPv6) records for IPv4-only services by prepending the 64:ff9b::/96 prefix to the IPv4 address. This enables IPv6-only clients that send queries through the inbound endpoint to reach IPv4-only services. DNS64 works with NAT64 to provide complete IPv6-to-IPv4 translation. Default is false."];
      ipv6InternetAccessEnabled: Ipv6InternetAccessEnabled.t option
        [@ocaml.doc
          "Specifies whether IPv6 internet access is enabled for the outbound Resolver endpoint. When set to true, the endpoint elastic network interfaces (ENIs) can forward DNS queries to public IPv6 targets through an internet gateway. Default is false. When you enable IPv6 internet access, use network controls like security groups, NACLs, or egress-only internet gateways to protect the endpoint ENIs from unsolicited ingress traffic. Be aware that some network controls can affect DNS query throughput due to connection tracking. For more information, see Amazon EC2 security group connection tracking and Resolver endpoint scaling."]}
    let context_ = "CreateResolverEndpointRequest"
    let make ?name =
      fun ?outpostArn ->
        fun ?preferredInstanceType ->
          fun ?tags ->
            fun ?resolverEndpointType ->
              fun ?protocols ->
                fun ?rniEnhancedMetricsEnabled ->
                  fun ?targetNameServerMetricsEnabled ->
                    fun ?dns64Enabled ->
                      fun ?ipv6InternetAccessEnabled ->
                        fun ~creatorRequestId ->
                          fun ~securityGroupIds ->
                            fun ~direction ->
                              fun ~ipAddresses ->
                                fun () ->
                                  {
                                    name;
                                    outpostArn;
                                    preferredInstanceType;
                                    tags;
                                    resolverEndpointType;
                                    protocols;
                                    rniEnhancedMetricsEnabled;
                                    targetNameServerMetricsEnabled;
                                    dns64Enabled;
                                    ipv6InternetAccessEnabled;
                                    creatorRequestId;
                                    securityGroupIds;
                                    direction;
                                    ipAddresses
                                  }
    let to_value x =
      structure_to_value
        [("CreatorRequestId",
           (Some (CreatorRequestId.to_value x.creatorRequestId)));
        ("Name", (Option.map x.name ~f:Name.to_value));
        ("SecurityGroupIds",
          (Some (SecurityGroupIds.to_value x.securityGroupIds)));
        ("Direction",
          (Some (ResolverEndpointDirection.to_value x.direction)));
        ("IpAddresses", (Some (IpAddressesRequest.to_value x.ipAddresses)));
        ("OutpostArn", (Option.map x.outpostArn ~f:OutpostArn.to_value));
        ("PreferredInstanceType",
          (Option.map x.preferredInstanceType ~f:OutpostInstanceType.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("ResolverEndpointType",
          (Option.map x.resolverEndpointType ~f:ResolverEndpointType.to_value));
        ("Protocols", (Option.map x.protocols ~f:ProtocolList.to_value));
        ("RniEnhancedMetricsEnabled",
          (Option.map x.rniEnhancedMetricsEnabled
             ~f:RniEnhancedMetricsEnabled.to_value));
        ("TargetNameServerMetricsEnabled",
          (Option.map x.targetNameServerMetricsEnabled
             ~f:TargetNameServerMetricsEnabled.to_value));
        ("Dns64Enabled",
          (Option.map x.dns64Enabled ~f:Dns64Enabled.to_value));
        ("Ipv6InternetAccessEnabled",
          (Option.map x.ipv6InternetAccessEnabled
             ~f:Ipv6InternetAccessEnabled.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ipv6InternetAccessEnabled =
        (Option.map ~f:Ipv6InternetAccessEnabled.of_xml)
          (Xml.child xml_arg0 "Ipv6InternetAccessEnabled") in
      let dns64Enabled =
        (Option.map ~f:Dns64Enabled.of_xml)
          (Xml.child xml_arg0 "Dns64Enabled") in
      let targetNameServerMetricsEnabled =
        (Option.map ~f:TargetNameServerMetricsEnabled.of_xml)
          (Xml.child xml_arg0 "TargetNameServerMetricsEnabled") in
      let rniEnhancedMetricsEnabled =
        (Option.map ~f:RniEnhancedMetricsEnabled.of_xml)
          (Xml.child xml_arg0 "RniEnhancedMetricsEnabled") in
      let protocols =
        (Option.map ~f:ProtocolList.of_xml) (Xml.child xml_arg0 "Protocols") in
      let resolverEndpointType =
        (Option.map ~f:ResolverEndpointType.of_xml)
          (Xml.child xml_arg0 "ResolverEndpointType") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let preferredInstanceType =
        (Option.map ~f:OutpostInstanceType.of_xml)
          (Xml.child xml_arg0 "PreferredInstanceType") in
      let outpostArn =
        (Option.map ~f:OutpostArn.of_xml) (Xml.child xml_arg0 "OutpostArn") in
      let ipAddresses =
        IpAddressesRequest.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IpAddresses") in
      let direction =
        ResolverEndpointDirection.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Direction") in
      let securityGroupIds =
        SecurityGroupIds.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SecurityGroupIds") in
      let name = (Option.map ~f:Name.of_xml) (Xml.child xml_arg0 "Name") in
      let creatorRequestId =
        CreatorRequestId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "CreatorRequestId") in
      make ?ipv6InternetAccessEnabled ?dns64Enabled
        ?targetNameServerMetricsEnabled ?rniEnhancedMetricsEnabled ?protocols
        ?resolverEndpointType ?tags ?preferredInstanceType ?outpostArn
        ~ipAddresses ~direction ~securityGroupIds ?name ~creatorRequestId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ipv6InternetAccessEnabled =
        field_map json__ "Ipv6InternetAccessEnabled"
          Ipv6InternetAccessEnabled.of_json in
      let dns64Enabled = field_map json__ "Dns64Enabled" Dns64Enabled.of_json in
      let targetNameServerMetricsEnabled =
        field_map json__ "TargetNameServerMetricsEnabled"
          TargetNameServerMetricsEnabled.of_json in
      let rniEnhancedMetricsEnabled =
        field_map json__ "RniEnhancedMetricsEnabled"
          RniEnhancedMetricsEnabled.of_json in
      let protocols = field_map json__ "Protocols" ProtocolList.of_json in
      let resolverEndpointType =
        field_map json__ "ResolverEndpointType" ResolverEndpointType.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let preferredInstanceType =
        field_map json__ "PreferredInstanceType" OutpostInstanceType.of_json in
      let outpostArn = field_map json__ "OutpostArn" OutpostArn.of_json in
      let ipAddresses =
        field_map_exn json__ "IpAddresses" IpAddressesRequest.of_json in
      let direction =
        field_map_exn json__ "Direction" ResolverEndpointDirection.of_json in
      let securityGroupIds =
        field_map_exn json__ "SecurityGroupIds" SecurityGroupIds.of_json in
      let name = field_map json__ "Name" Name.of_json in
      let creatorRequestId =
        field_map_exn json__ "CreatorRequestId" CreatorRequestId.of_json in
      make ?ipv6InternetAccessEnabled ?dns64Enabled
        ?targetNameServerMetricsEnabled ?rniEnhancedMetricsEnabled ?protocols
        ?resolverEndpointType ?tags ?preferredInstanceType ?outpostArn
        ~ipAddresses ~direction ~securityGroupIds ?name ~creatorRequestId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a Resolver endpoint. There are two types of Resolver endpoints, inbound and outbound: An inbound Resolver endpoint forwards DNS queries to the DNS service for a VPC from your network. An outbound Resolver endpoint forwards DNS queries from the DNS service for a VPC to your network."]
module CreateOutpostResolverResponse =
  struct
    type nonrec t =
      {
      outpostResolver: OutpostResolver.t option
        [@ocaml.doc
          "Information about the CreateOutpostResolver request, including the status of the request."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?outpostResolver = fun () -> { outpostResolver }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("OutpostResolver",
           (Option.map x.outpostResolver ~f:OutpostResolver.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let outpostResolver =
        (Option.map ~f:OutpostResolver.of_xml)
          (Xml.child xml_arg0 "OutpostResolver") in
      make ?outpostResolver ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let outpostResolver =
        field_map json__ "OutpostResolver" OutpostResolver.of_json in
      make ?outpostResolver ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a Route\194\16053 Resolver on an Outpost."]
module CreateOutpostResolverRequest =
  struct
    type nonrec t =
      {
      creatorRequestId: CreatorRequestId.t
        [@ocaml.doc
          "A unique string that identifies the request and that allows failed requests to be retried without the risk of running the operation twice. CreatorRequestId can be any unique string, for example, a date/time stamp."];
      name: OutpostResolverName.t
        [@ocaml.doc
          "A friendly name that lets you easily find a configuration in the Resolver dashboard in the Route\194\16053 console."];
      instanceCount: InstanceCount.t option
        [@ocaml.doc
          "Number of Amazon EC2 instances for the Resolver on Outpost. The default and minimal value is 4."];
      preferredInstanceType: OutpostInstanceType.t
        [@ocaml.doc
          "The Amazon EC2 instance type. If you specify this, you must also specify a value for the OutpostArn."];
      outpostArn: OutpostArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Outpost. If you specify this, you must also specify a value for the PreferredInstanceType."];
      tags: TagList.t option
        [@ocaml.doc
          "A string that helps identify the Route\194\16053 Resolvers on Outpost."]}
    let context_ = "CreateOutpostResolverRequest"
    let make ?instanceCount =
      fun ?tags ->
        fun ~creatorRequestId ->
          fun ~name ->
            fun ~preferredInstanceType ->
              fun ~outpostArn ->
                fun () ->
                  {
                    instanceCount;
                    tags;
                    creatorRequestId;
                    name;
                    preferredInstanceType;
                    outpostArn
                  }
    let to_value x =
      structure_to_value
        [("CreatorRequestId",
           (Some (CreatorRequestId.to_value x.creatorRequestId)));
        ("Name", (Some (OutpostResolverName.to_value x.name)));
        ("InstanceCount",
          (Option.map x.instanceCount ~f:InstanceCount.to_value));
        ("PreferredInstanceType",
          (Some (OutpostInstanceType.to_value x.preferredInstanceType)));
        ("OutpostArn", (Some (OutpostArn.to_value x.outpostArn)));
        ("Tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let outpostArn =
        OutpostArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "OutpostArn") in
      let preferredInstanceType =
        OutpostInstanceType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PreferredInstanceType") in
      let instanceCount =
        (Option.map ~f:InstanceCount.of_xml)
          (Xml.child xml_arg0 "InstanceCount") in
      let name =
        OutpostResolverName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      let creatorRequestId =
        CreatorRequestId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "CreatorRequestId") in
      make ?tags ~outpostArn ~preferredInstanceType ?instanceCount ~name
        ~creatorRequestId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagList.of_json in
      let outpostArn = field_map_exn json__ "OutpostArn" OutpostArn.of_json in
      let preferredInstanceType =
        field_map_exn json__ "PreferredInstanceType"
          OutpostInstanceType.of_json in
      let instanceCount =
        field_map json__ "InstanceCount" InstanceCount.of_json in
      let name = field_map_exn json__ "Name" OutpostResolverName.of_json in
      let creatorRequestId =
        field_map_exn json__ "CreatorRequestId" CreatorRequestId.of_json in
      make ?tags ~outpostArn ~preferredInstanceType ?instanceCount ~name
        ~creatorRequestId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a Route\194\16053 Resolver on an Outpost."]
module CreateFirewallRuleResponse =
  struct
    type nonrec t =
      {
      firewallRule: FirewallRule.t option
        [@ocaml.doc "The firewall rule that you just created."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?firewallRule = fun () -> { firewallRule }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.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)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.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))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `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
        [("FirewallRule",
           (Option.map x.firewallRule ~f:FirewallRule.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let firewallRule =
        (Option.map ~f:FirewallRule.of_xml)
          (Xml.child xml_arg0 "FirewallRule") in
      make ?firewallRule ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let firewallRule = field_map json__ "FirewallRule" FirewallRule.of_json in
      make ?firewallRule ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a single DNS Firewall rule in the specified rule group, using the specified domain list."]
module CreateFirewallRuleRequest =
  struct
    type nonrec t =
      {
      creatorRequestId: CreatorRequestId.t
        [@ocaml.doc
          "A unique string that identifies the request and that allows you to retry failed requests without the risk of running the operation twice. CreatorRequestId can be any unique string, for example, a date/time stamp."];
      firewallRuleGroupId: ResourceId.t
        [@ocaml.doc
          "The unique identifier of the firewall rule group where you want to create the rule."];
      firewallDomainListId: ResourceId.t option
        [@ocaml.doc
          "The ID of the domain list that you want to use in the rule. Can't be used together with DnsThreatProtecton."];
      priority: Priority.t
        [@ocaml.doc
          "The setting that determines the processing order of the rule in the rule group. DNS Firewall processes the rules in a rule group by order of priority, starting from the lowest setting. You must specify a unique priority for each rule in a rule group. To make it easier to insert rules later, leave space between the numbers, for example, use 100, 200, and so on. You can change the priority setting for the rules in a rule group at any time."];
      action: Action.t
        [@ocaml.doc
          "The action that DNS Firewall should take on a DNS query when it matches one of the domains in the rule's domain list, or a threat in a DNS Firewall Advanced rule: ALLOW - Permit the request to go through. Not available for DNS Firewall Advanced rules. ALERT - Permit the request and send metrics and logs to Cloud Watch. BLOCK - Disallow the request. This option requires additional details in the rule's BlockResponse."];
      blockResponse: BlockResponse.t option
        [@ocaml.doc
          "The way that you want DNS Firewall to block the request, used with the rule action setting BLOCK. NODATA - Respond indicating that the query was successful, but no response is available for it. NXDOMAIN - Respond indicating that the domain name that's in the query doesn't exist. OVERRIDE - Provide a custom override in the response. This option requires custom handling details in the rule's BlockOverride* settings. This setting is required if the rule action setting is BLOCK."];
      blockOverrideDomain: BlockOverrideDomain.t option
        [@ocaml.doc
          "The custom DNS record to send back in response to the query. Used for the rule action BLOCK with a BlockResponse setting of OVERRIDE. This setting is required if the BlockResponse setting is OVERRIDE."];
      blockOverrideDnsType: BlockOverrideDnsType.t option
        [@ocaml.doc
          "The DNS record's type. This determines the format of the record value that you provided in BlockOverrideDomain. Used for the rule action BLOCK with a BlockResponse setting of OVERRIDE. This setting is required if the BlockResponse setting is OVERRIDE."];
      blockOverrideTtl: BlockOverrideTtl.t option
        [@ocaml.doc
          "The recommended amount of time, in seconds, for the DNS resolver or web browser to cache the provided override record. Used for the rule action BLOCK with a BlockResponse setting of OVERRIDE. This setting is required if the BlockResponse setting is OVERRIDE."];
      name: Name.t
        [@ocaml.doc
          "A name that lets you identify the rule in the rule group."];
      firewallDomainRedirectionAction:
        FirewallDomainRedirectionAction.t option
        [@ocaml.doc
          "How you want the the rule to evaluate DNS redirection in the DNS redirection chain, such as CNAME or DNAME. INSPECT_REDIRECTION_DOMAIN: (Default) inspects all domains in the redirection chain. The individual domains in the redirection chain must be added to the domain list. TRUST_REDIRECTION_DOMAIN: Inspects only the first domain in the redirection chain. You don't need to add the subsequent domains in the domain in the redirection list to the domain list."];
      qtype: Qtype.t option
        [@ocaml.doc
          "The DNS query type you want the rule to evaluate. Allowed values are; A: Returns an IPv4 address. AAAA: Returns an Ipv6 address. CAA: Restricts CAs that can create SSL/TLS certifications for the domain. CNAME: Returns another domain name. DS: Record that identifies the DNSSEC signing key of a delegated zone. MX: Specifies mail servers. NAPTR: Regular-expression-based rewriting of domain names. NS: Authoritative name servers. PTR: Maps an IP address to a domain name. SOA: Start of authority record for the zone. SPF: Lists the servers authorized to send emails from a domain. SRV: Application specific values that identify servers. TXT: Verifies email senders and application-specific values. A query type you define by using the DNS type ID, for example 28 for AAAA. The values must be defined as TYPENUMBER, where the NUMBER can be 1-65334, for example, TYPE28. For more information, see List of DNS record types."];
      dnsThreatProtection: DnsThreatProtection.t option
        [@ocaml.doc "Use to create a DNS Firewall Advanced rule."];
      confidenceThreshold: ConfidenceThreshold.t option
        [@ocaml.doc
          "The confidence threshold for DNS Firewall Advanced. You must provide this value when you create a DNS Firewall Advanced rule. The confidence level values mean: LOW: Provides the highest detection rate for threats, but also increases false positives. MEDIUM: Provides a balance between detecting threats and false positives. HIGH: Detects only the most well corroborated threats with a low rate of false positives."]}
    let context_ = "CreateFirewallRuleRequest"
    let make ?firewallDomainListId =
      fun ?blockResponse ->
        fun ?blockOverrideDomain ->
          fun ?blockOverrideDnsType ->
            fun ?blockOverrideTtl ->
              fun ?firewallDomainRedirectionAction ->
                fun ?qtype ->
                  fun ?dnsThreatProtection ->
                    fun ?confidenceThreshold ->
                      fun ~creatorRequestId ->
                        fun ~firewallRuleGroupId ->
                          fun ~priority ->
                            fun ~action ->
                              fun ~name ->
                                fun () ->
                                  {
                                    firewallDomainListId;
                                    blockResponse;
                                    blockOverrideDomain;
                                    blockOverrideDnsType;
                                    blockOverrideTtl;
                                    firewallDomainRedirectionAction;
                                    qtype;
                                    dnsThreatProtection;
                                    confidenceThreshold;
                                    creatorRequestId;
                                    firewallRuleGroupId;
                                    priority;
                                    action;
                                    name
                                  }
    let to_value x =
      structure_to_value
        [("CreatorRequestId",
           (Some (CreatorRequestId.to_value x.creatorRequestId)));
        ("FirewallRuleGroupId",
          (Some (ResourceId.to_value x.firewallRuleGroupId)));
        ("FirewallDomainListId",
          (Option.map x.firewallDomainListId ~f:ResourceId.to_value));
        ("Priority", (Some (Priority.to_value x.priority)));
        ("Action", (Some (Action.to_value x.action)));
        ("BlockResponse",
          (Option.map x.blockResponse ~f:BlockResponse.to_value));
        ("BlockOverrideDomain",
          (Option.map x.blockOverrideDomain ~f:BlockOverrideDomain.to_value));
        ("BlockOverrideDnsType",
          (Option.map x.blockOverrideDnsType ~f:BlockOverrideDnsType.to_value));
        ("BlockOverrideTtl",
          (Option.map x.blockOverrideTtl ~f:BlockOverrideTtl.to_value));
        ("Name", (Some (Name.to_value x.name)));
        ("FirewallDomainRedirectionAction",
          (Option.map x.firewallDomainRedirectionAction
             ~f:FirewallDomainRedirectionAction.to_value));
        ("Qtype", (Option.map x.qtype ~f:Qtype.to_value));
        ("DnsThreatProtection",
          (Option.map x.dnsThreatProtection ~f:DnsThreatProtection.to_value));
        ("ConfidenceThreshold",
          (Option.map x.confidenceThreshold ~f:ConfidenceThreshold.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let confidenceThreshold =
        (Option.map ~f:ConfidenceThreshold.of_xml)
          (Xml.child xml_arg0 "ConfidenceThreshold") in
      let dnsThreatProtection =
        (Option.map ~f:DnsThreatProtection.of_xml)
          (Xml.child xml_arg0 "DnsThreatProtection") in
      let qtype = (Option.map ~f:Qtype.of_xml) (Xml.child xml_arg0 "Qtype") in
      let firewallDomainRedirectionAction =
        (Option.map ~f:FirewallDomainRedirectionAction.of_xml)
          (Xml.child xml_arg0 "FirewallDomainRedirectionAction") in
      let name =
        Name.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      let blockOverrideTtl =
        (Option.map ~f:BlockOverrideTtl.of_xml)
          (Xml.child xml_arg0 "BlockOverrideTtl") in
      let blockOverrideDnsType =
        (Option.map ~f:BlockOverrideDnsType.of_xml)
          (Xml.child xml_arg0 "BlockOverrideDnsType") in
      let blockOverrideDomain =
        (Option.map ~f:BlockOverrideDomain.of_xml)
          (Xml.child xml_arg0 "BlockOverrideDomain") in
      let blockResponse =
        (Option.map ~f:BlockResponse.of_xml)
          (Xml.child xml_arg0 "BlockResponse") in
      let action =
        Action.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Action") in
      let priority =
        Priority.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Priority") in
      let firewallDomainListId =
        (Option.map ~f:ResourceId.of_xml)
          (Xml.child xml_arg0 "FirewallDomainListId") in
      let firewallRuleGroupId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FirewallRuleGroupId") in
      let creatorRequestId =
        CreatorRequestId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "CreatorRequestId") in
      make ?confidenceThreshold ?dnsThreatProtection ?qtype
        ?firewallDomainRedirectionAction ~name ?blockOverrideTtl
        ?blockOverrideDnsType ?blockOverrideDomain ?blockResponse ~action
        ~priority ?firewallDomainListId ~firewallRuleGroupId
        ~creatorRequestId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let confidenceThreshold =
        field_map json__ "ConfidenceThreshold" ConfidenceThreshold.of_json in
      let dnsThreatProtection =
        field_map json__ "DnsThreatProtection" DnsThreatProtection.of_json in
      let qtype = field_map json__ "Qtype" Qtype.of_json in
      let firewallDomainRedirectionAction =
        field_map json__ "FirewallDomainRedirectionAction"
          FirewallDomainRedirectionAction.of_json in
      let name = field_map_exn json__ "Name" Name.of_json in
      let blockOverrideTtl =
        field_map json__ "BlockOverrideTtl" BlockOverrideTtl.of_json in
      let blockOverrideDnsType =
        field_map json__ "BlockOverrideDnsType" BlockOverrideDnsType.of_json in
      let blockOverrideDomain =
        field_map json__ "BlockOverrideDomain" BlockOverrideDomain.of_json in
      let blockResponse =
        field_map json__ "BlockResponse" BlockResponse.of_json in
      let action = field_map_exn json__ "Action" Action.of_json in
      let priority = field_map_exn json__ "Priority" Priority.of_json in
      let firewallDomainListId =
        field_map json__ "FirewallDomainListId" ResourceId.of_json in
      let firewallRuleGroupId =
        field_map_exn json__ "FirewallRuleGroupId" ResourceId.of_json in
      let creatorRequestId =
        field_map_exn json__ "CreatorRequestId" CreatorRequestId.of_json in
      make ?confidenceThreshold ?dnsThreatProtection ?qtype
        ?firewallDomainRedirectionAction ~name ?blockOverrideTtl
        ?blockOverrideDnsType ?blockOverrideDomain ?blockResponse ~action
        ~priority ?firewallDomainListId ~firewallRuleGroupId
        ~creatorRequestId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a single DNS Firewall rule in the specified rule group, using the specified domain list."]
module CreateFirewallRuleGroupResponse =
  struct
    type nonrec t =
      {
      firewallRuleGroup: FirewallRuleGroup.t option
        [@ocaml.doc
          "A collection of rules used to filter DNS network traffic."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?firewallRuleGroup = fun () -> { firewallRuleGroup }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.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)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.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))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.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
        [("FirewallRuleGroup",
           (Option.map x.firewallRuleGroup ~f:FirewallRuleGroup.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let firewallRuleGroup =
        (Option.map ~f:FirewallRuleGroup.of_xml)
          (Xml.child xml_arg0 "FirewallRuleGroup") in
      make ?firewallRuleGroup ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let firewallRuleGroup =
        field_map json__ "FirewallRuleGroup" FirewallRuleGroup.of_json in
      make ?firewallRuleGroup ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an empty DNS Firewall rule group for filtering DNS network traffic in a VPC. You can add rules to the new rule group by calling CreateFirewallRule."]
module CreateFirewallRuleGroupRequest =
  struct
    type nonrec t =
      {
      creatorRequestId: CreatorRequestId.t
        [@ocaml.doc
          "A unique string defined by you to identify the request. This allows you to retry failed requests without the risk of running the operation twice. This can be any unique string, for example, a timestamp."];
      name: Name.t
        [@ocaml.doc
          "A name that lets you identify the rule group, to manage and use it."];
      tags: TagList.t option
        [@ocaml.doc
          "A list of the tag keys and values that you want to associate with the rule group."]}
    let context_ = "CreateFirewallRuleGroupRequest"
    let make ?tags =
      fun ~creatorRequestId ->
        fun ~name -> fun () -> { tags; creatorRequestId; name }
    let to_value x =
      structure_to_value
        [("CreatorRequestId",
           (Some (CreatorRequestId.to_value x.creatorRequestId)));
        ("Name", (Some (Name.to_value x.name)));
        ("Tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let name =
        Name.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      let creatorRequestId =
        CreatorRequestId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "CreatorRequestId") in
      make ?tags ~name ~creatorRequestId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagList.of_json in
      let name = field_map_exn json__ "Name" Name.of_json in
      let creatorRequestId =
        field_map_exn json__ "CreatorRequestId" CreatorRequestId.of_json in
      make ?tags ~name ~creatorRequestId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an empty DNS Firewall rule group for filtering DNS network traffic in a VPC. You can add rules to the new rule group by calling CreateFirewallRule."]
module CreateFirewallDomainListResponse =
  struct
    type nonrec t =
      {
      firewallDomainList: FirewallDomainList.t option
        [@ocaml.doc "The domain list that you just created."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?firewallDomainList = fun () -> { firewallDomainList }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.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)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.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))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.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
        [("FirewallDomainList",
           (Option.map x.firewallDomainList ~f:FirewallDomainList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let firewallDomainList =
        (Option.map ~f:FirewallDomainList.of_xml)
          (Xml.child xml_arg0 "FirewallDomainList") in
      make ?firewallDomainList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let firewallDomainList =
        field_map json__ "FirewallDomainList" FirewallDomainList.of_json in
      make ?firewallDomainList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an empty firewall domain list for use in DNS Firewall rules. You can populate the domains for the new list with a file, using ImportFirewallDomains, or with domain strings, using UpdateFirewallDomains."]
module CreateFirewallDomainListRequest =
  struct
    type nonrec t =
      {
      creatorRequestId: CreatorRequestId.t
        [@ocaml.doc
          "A unique string that identifies the request and that allows you to retry failed requests without the risk of running the operation twice. CreatorRequestId can be any unique string, for example, a date/time stamp."];
      name: Name.t
        [@ocaml.doc
          "A name that lets you identify the domain list to manage and use it."];
      tags: TagList.t option
        [@ocaml.doc
          "A list of the tag keys and values that you want to associate with the domain list."]}
    let context_ = "CreateFirewallDomainListRequest"
    let make ?tags =
      fun ~creatorRequestId ->
        fun ~name -> fun () -> { tags; creatorRequestId; name }
    let to_value x =
      structure_to_value
        [("CreatorRequestId",
           (Some (CreatorRequestId.to_value x.creatorRequestId)));
        ("Name", (Some (Name.to_value x.name)));
        ("Tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let name =
        Name.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      let creatorRequestId =
        CreatorRequestId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "CreatorRequestId") in
      make ?tags ~name ~creatorRequestId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagList.of_json in
      let name = field_map_exn json__ "Name" Name.of_json in
      let creatorRequestId =
        field_map_exn json__ "CreatorRequestId" CreatorRequestId.of_json in
      make ?tags ~name ~creatorRequestId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an empty firewall domain list for use in DNS Firewall rules. You can populate the domains for the new list with a file, using ImportFirewallDomains, or with domain strings, using UpdateFirewallDomains."]
module AssociateResolverRuleResponse =
  struct
    type nonrec t =
      {
      resolverRuleAssociation: ResolverRuleAssociation.t option
        [@ocaml.doc
          "Information about the AssociateResolverRule request, including the status of the request."]}
    type nonrec error =
      [ `InternalServiceErrorException of InternalServiceErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceExistsException of ResourceExistsException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ResourceUnavailableException of ResourceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?resolverRuleAssociation = fun () -> { resolverRuleAssociation }
    let error_of_json name json =
      match name with
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceExistsException" ->
          `ResourceExistsException (ResourceExistsException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ResourceUnavailableException" ->
          `ResourceUnavailableException
            (ResourceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceExistsException" ->
          `ResourceExistsException (ResourceExistsException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ResourceUnavailableException" ->
          `ResourceUnavailableException
            (ResourceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceExistsException e ->
          `Assoc
            [("error", (`String "ResourceExistsException"));
            ("details", (ResourceExistsException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ResourceUnavailableException e ->
          `Assoc
            [("error", (`String "ResourceUnavailableException"));
            ("details", (ResourceUnavailableException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ResolverRuleAssociation",
           (Option.map x.resolverRuleAssociation
              ~f:ResolverRuleAssociation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resolverRuleAssociation =
        (Option.map ~f:ResolverRuleAssociation.of_xml)
          (Xml.child xml_arg0 "ResolverRuleAssociation") in
      make ?resolverRuleAssociation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resolverRuleAssociation =
        field_map json__ "ResolverRuleAssociation"
          ResolverRuleAssociation.of_json in
      make ?resolverRuleAssociation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates a Resolver rule with a VPC. When you associate a rule with a VPC, Resolver forwards all DNS queries for the domain name that is specified in the rule and that originate in the VPC. The queries are forwarded to the IP addresses for the DNS resolvers that are specified in the rule. For more information about rules, see CreateResolverRule."]
module AssociateResolverRuleRequest =
  struct
    type nonrec t =
      {
      resolverRuleId: ResourceId.t
        [@ocaml.doc
          "The ID of the Resolver rule that you want to associate with the VPC. To list the existing Resolver rules, use ListResolverRules."];
      name: Name.t option
        [@ocaml.doc
          "A name for the association that you're creating between a Resolver rule and a VPC. The name can be up to 64 characters long and can contain letters (a-z, A-Z), numbers (0-9), hyphens (-), underscores (_), and spaces. The name cannot consist of only numbers."];
      vPCId: ResourceId.t
        [@ocaml.doc
          "The ID of the VPC that you want to associate the Resolver rule with."]}
    let context_ = "AssociateResolverRuleRequest"
    let make ?name =
      fun ~resolverRuleId ->
        fun ~vPCId -> fun () -> { name; resolverRuleId; vPCId }
    let to_value x =
      structure_to_value
        [("ResolverRuleId", (Some (ResourceId.to_value x.resolverRuleId)));
        ("Name", (Option.map x.name ~f:Name.to_value));
        ("VPCId", (Some (ResourceId.to_value x.vPCId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vPCId =
        ResourceId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "VPCId") in
      let name = (Option.map ~f:Name.of_xml) (Xml.child xml_arg0 "Name") in
      let resolverRuleId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResolverRuleId") in
      make ~vPCId ?name ~resolverRuleId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vPCId = field_map_exn json__ "VPCId" ResourceId.of_json in
      let name = field_map json__ "Name" Name.of_json in
      let resolverRuleId =
        field_map_exn json__ "ResolverRuleId" ResourceId.of_json in
      make ~vPCId ?name ~resolverRuleId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates a Resolver rule with a VPC. When you associate a rule with a VPC, Resolver forwards all DNS queries for the domain name that is specified in the rule and that originate in the VPC. The queries are forwarded to the IP addresses for the DNS resolvers that are specified in the rule. For more information about rules, see CreateResolverRule."]
module AssociateResolverQueryLogConfigResponse =
  struct
    type nonrec t =
      {
      resolverQueryLogConfigAssociation:
        ResolverQueryLogConfigAssociation.t option
        [@ocaml.doc
          "A complex type that contains settings for a specified association between an Amazon VPC and a query logging configuration."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceExistsException of ResourceExistsException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?resolverQueryLogConfigAssociation =
      fun () -> { resolverQueryLogConfigAssociation }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceExistsException" ->
          `ResourceExistsException (ResourceExistsException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceExistsException" ->
          `ResourceExistsException (ResourceExistsException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceExistsException e ->
          `Assoc
            [("error", (`String "ResourceExistsException"));
            ("details", (ResourceExistsException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ResolverQueryLogConfigAssociation",
           (Option.map x.resolverQueryLogConfigAssociation
              ~f:ResolverQueryLogConfigAssociation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resolverQueryLogConfigAssociation =
        (Option.map ~f:ResolverQueryLogConfigAssociation.of_xml)
          (Xml.child xml_arg0 "ResolverQueryLogConfigAssociation") in
      make ?resolverQueryLogConfigAssociation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resolverQueryLogConfigAssociation =
        field_map json__ "ResolverQueryLogConfigAssociation"
          ResolverQueryLogConfigAssociation.of_json in
      make ?resolverQueryLogConfigAssociation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates an Amazon VPC with a specified query logging configuration. Route 53 Resolver logs DNS queries that originate in all of the Amazon VPCs that are associated with a specified query logging configuration. To associate more than one VPC with a configuration, submit one AssociateResolverQueryLogConfig request for each VPC. The VPCs that you associate with a query logging configuration must be in the same Region as the configuration. To remove a VPC from a query logging configuration, see DisassociateResolverQueryLogConfig."]
module AssociateResolverQueryLogConfigRequest =
  struct
    type nonrec t =
      {
      resolverQueryLogConfigId: ResourceId.t
        [@ocaml.doc
          "The ID of the query logging configuration that you want to associate a VPC with."];
      resourceId: ResourceId.t
        [@ocaml.doc
          "The ID of an Amazon VPC that you want this query logging configuration to log queries for. The VPCs and the query logging configuration must be in the same Region."]}
    let context_ = "AssociateResolverQueryLogConfigRequest"
    let make ~resolverQueryLogConfigId =
      fun ~resourceId -> fun () -> { resolverQueryLogConfigId; resourceId }
    let to_value x =
      structure_to_value
        [("ResolverQueryLogConfigId",
           (Some (ResourceId.to_value x.resolverQueryLogConfigId)));
        ("ResourceId", (Some (ResourceId.to_value x.resourceId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceId") in
      let resolverQueryLogConfigId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "ResolverQueryLogConfigId") in
      make ~resourceId ~resolverQueryLogConfigId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceId = field_map_exn json__ "ResourceId" ResourceId.of_json in
      let resolverQueryLogConfigId =
        field_map_exn json__ "ResolverQueryLogConfigId" ResourceId.of_json in
      make ~resourceId ~resolverQueryLogConfigId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates an Amazon VPC with a specified query logging configuration. Route 53 Resolver logs DNS queries that originate in all of the Amazon VPCs that are associated with a specified query logging configuration. To associate more than one VPC with a configuration, submit one AssociateResolverQueryLogConfig request for each VPC. The VPCs that you associate with a query logging configuration must be in the same Region as the configuration. To remove a VPC from a query logging configuration, see DisassociateResolverQueryLogConfig."]
module AssociateResolverEndpointIpAddressResponse =
  struct
    type nonrec t =
      {
      resolverEndpoint: ResolverEndpoint.t option
        [@ocaml.doc
          "The response to an AssociateResolverEndpointIpAddress request."]}
    type nonrec error =
      [ `InternalServiceErrorException of InternalServiceErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceExistsException of ResourceExistsException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?resolverEndpoint = fun () -> { resolverEndpoint }
    let error_of_json name json =
      match name with
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceExistsException" ->
          `ResourceExistsException (ResourceExistsException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceExistsException" ->
          `ResourceExistsException (ResourceExistsException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceExistsException e ->
          `Assoc
            [("error", (`String "ResourceExistsException"));
            ("details", (ResourceExistsException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ResolverEndpoint",
           (Option.map x.resolverEndpoint ~f:ResolverEndpoint.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resolverEndpoint =
        (Option.map ~f:ResolverEndpoint.of_xml)
          (Xml.child xml_arg0 "ResolverEndpoint") in
      make ?resolverEndpoint ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resolverEndpoint =
        field_map json__ "ResolverEndpoint" ResolverEndpoint.of_json in
      make ?resolverEndpoint ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds IP addresses to an inbound or an outbound Resolver endpoint. If you want to add more than one IP address, submit one AssociateResolverEndpointIpAddress request for each IP address. To remove an IP address from an endpoint, see DisassociateResolverEndpointIpAddress."]
module AssociateResolverEndpointIpAddressRequest =
  struct
    type nonrec t =
      {
      resolverEndpointId: ResourceId.t
        [@ocaml.doc
          "The ID of the Resolver endpoint that you want to associate IP addresses with."];
      ipAddress: IpAddressUpdate.t
        [@ocaml.doc
          "Either the IPv4 address that you want to add to a Resolver endpoint or a subnet ID. If you specify a subnet ID, Resolver chooses an IP address for you from the available IPs in the specified subnet."]}
    let context_ = "AssociateResolverEndpointIpAddressRequest"
    let make ~resolverEndpointId =
      fun ~ipAddress -> fun () -> { resolverEndpointId; ipAddress }
    let to_value x =
      structure_to_value
        [("ResolverEndpointId",
           (Some (ResourceId.to_value x.resolverEndpointId)));
        ("IpAddress", (Some (IpAddressUpdate.to_value x.ipAddress)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ipAddress =
        IpAddressUpdate.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IpAddress") in
      let resolverEndpointId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResolverEndpointId") in
      make ~ipAddress ~resolverEndpointId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ipAddress =
        field_map_exn json__ "IpAddress" IpAddressUpdate.of_json in
      let resolverEndpointId =
        field_map_exn json__ "ResolverEndpointId" ResourceId.of_json in
      make ~ipAddress ~resolverEndpointId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds IP addresses to an inbound or an outbound Resolver endpoint. If you want to add more than one IP address, submit one AssociateResolverEndpointIpAddress request for each IP address. To remove an IP address from an endpoint, see DisassociateResolverEndpointIpAddress."]
module AssociateFirewallRuleGroupResponse =
  struct
    type nonrec t =
      {
      firewallRuleGroupAssociation: FirewallRuleGroupAssociation.t option
        [@ocaml.doc
          "The association that you just created. The association has an ID that you can use to identify it in other requests, like update and delete."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?firewallRuleGroupAssociation =
      fun () -> { firewallRuleGroupAssociation }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `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
        [("FirewallRuleGroupAssociation",
           (Option.map x.firewallRuleGroupAssociation
              ~f:FirewallRuleGroupAssociation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let firewallRuleGroupAssociation =
        (Option.map ~f:FirewallRuleGroupAssociation.of_xml)
          (Xml.child xml_arg0 "FirewallRuleGroupAssociation") in
      make ?firewallRuleGroupAssociation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let firewallRuleGroupAssociation =
        field_map json__ "FirewallRuleGroupAssociation"
          FirewallRuleGroupAssociation.of_json in
      make ?firewallRuleGroupAssociation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates a FirewallRuleGroup with a VPC, to provide DNS filtering for the VPC."]
module AssociateFirewallRuleGroupRequest =
  struct
    type nonrec t =
      {
      creatorRequestId: CreatorRequestId.t
        [@ocaml.doc
          "A unique string that identifies the request and that allows failed requests to be retried without the risk of running the operation twice. CreatorRequestId can be any unique string, for example, a date/time stamp."];
      firewallRuleGroupId: ResourceId.t
        [@ocaml.doc "The unique identifier of the firewall rule group."];
      vpcId: ResourceId.t
        [@ocaml.doc
          "The unique identifier of the VPC that you want to associate with the rule group."];
      priority: Priority.t
        [@ocaml.doc
          "The setting that determines the processing order of the rule group among the rule groups that you associate with the specified VPC. DNS Firewall filters VPC traffic starting from the rule group with the lowest numeric priority setting. You must specify a unique priority for each rule group that you associate with a single VPC. To make it easier to insert rule groups later, leave space between the numbers, for example, use 101, 200, and so on. You can change the priority setting for a rule group association after you create it. The allowed values for Priority are between 100 and 9900."];
      name: Name.t
        [@ocaml.doc
          "A name that lets you identify the association, to manage and use it."];
      mutationProtection: MutationProtectionStatus.t option
        [@ocaml.doc
          "If enabled, this setting disallows modification or removal of the association, to help prevent against accidentally altering DNS firewall protections. When you create the association, the default setting is DISABLED."];
      tags: TagList.t option
        [@ocaml.doc
          "A list of the tag keys and values that you want to associate with the rule group association."]}
    let context_ = "AssociateFirewallRuleGroupRequest"
    let make ?mutationProtection =
      fun ?tags ->
        fun ~creatorRequestId ->
          fun ~firewallRuleGroupId ->
            fun ~vpcId ->
              fun ~priority ->
                fun ~name ->
                  fun () ->
                    {
                      mutationProtection;
                      tags;
                      creatorRequestId;
                      firewallRuleGroupId;
                      vpcId;
                      priority;
                      name
                    }
    let to_value x =
      structure_to_value
        [("CreatorRequestId",
           (Some (CreatorRequestId.to_value x.creatorRequestId)));
        ("FirewallRuleGroupId",
          (Some (ResourceId.to_value x.firewallRuleGroupId)));
        ("VpcId", (Some (ResourceId.to_value x.vpcId)));
        ("Priority", (Some (Priority.to_value x.priority)));
        ("Name", (Some (Name.to_value x.name)));
        ("MutationProtection",
          (Option.map x.mutationProtection
             ~f:MutationProtectionStatus.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let mutationProtection =
        (Option.map ~f:MutationProtectionStatus.of_xml)
          (Xml.child xml_arg0 "MutationProtection") in
      let name =
        Name.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      let priority =
        Priority.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Priority") in
      let vpcId =
        ResourceId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "VpcId") in
      let firewallRuleGroupId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FirewallRuleGroupId") in
      let creatorRequestId =
        CreatorRequestId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "CreatorRequestId") in
      make ?tags ?mutationProtection ~name ~priority ~vpcId
        ~firewallRuleGroupId ~creatorRequestId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagList.of_json in
      let mutationProtection =
        field_map json__ "MutationProtection"
          MutationProtectionStatus.of_json in
      let name = field_map_exn json__ "Name" Name.of_json in
      let priority = field_map_exn json__ "Priority" Priority.of_json in
      let vpcId = field_map_exn json__ "VpcId" ResourceId.of_json in
      let firewallRuleGroupId =
        field_map_exn json__ "FirewallRuleGroupId" ResourceId.of_json in
      let creatorRequestId =
        field_map_exn json__ "CreatorRequestId" CreatorRequestId.of_json in
      make ?tags ?mutationProtection ~name ~priority ~vpcId
        ~firewallRuleGroupId ~creatorRequestId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates a FirewallRuleGroup with a VPC, to provide DNS filtering for the VPC."]