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.network_firewall
let apiVersion = "2020-11-12"
let endpointPrefix = "network-firewall"
let serviceFullName = "AWS Network Firewall"
let signatureVersion = "v4"
let protocol = "json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let serviceAbbreviation = "Network Firewall"
let targetPrefix = "NetworkFirewall_20201112"
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 TCPFlag =
  struct
    type nonrec t =
      | FIN 
      | SYN 
      | RST 
      | PSH 
      | ACK 
      | URG 
      | ECE 
      | CWR 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | FIN -> "FIN"
      | SYN -> "SYN"
      | RST -> "RST"
      | PSH -> "PSH"
      | ACK -> "ACK"
      | URG -> "URG"
      | ECE -> "ECE"
      | CWR -> "CWR"
      | Non_static_id s -> s
    let of_string =
      function
      | "FIN" -> FIN
      | "SYN" -> SYN
      | "RST" -> RST
      | "PSH" -> PSH
      | "ACK" -> ACK
      | "URG" -> URG
      | "ECE" -> ECE
      | "CWR" -> CWR
      | 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 TCPFlag" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TCPFlag" j)
    let to_json = simple_to_json to_value
  end
module DimensionValue =
  struct
    type nonrec t = string
    let context_ = "DimensionValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () -> check_pattern i ~pattern:"^[a-zA-Z0-9-_ ]+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DimensionValue" j
    let to_json = simple_to_json to_value
  end
module AddressDefinition =
  struct
    type nonrec t = string
    let context_ = "AddressDefinition"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:255) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^([a-fA-F\\d:\\.]+($|/\\d{1,3}))$")));
        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:"AddressDefinition" j
    let to_json = simple_to_json to_value
  end
module PortRangeBound =
  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 PortRangeBound" 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 Flags =
  struct
    type nonrec t = TCPFlag.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:TCPFlag.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:TCPFlag.of_xml)
    let of_json j = list_of_json ~kind:"Flags" ~of_json:TCPFlag.of_json j
    let to_json v = composed_to_json to_value v
  end
module Dimension =
  struct
    type nonrec t =
      {
      value: DimensionValue.t
        [@ocaml.doc "The value to use in the custom metric dimension."]}
    let context_ = "Dimension"
    let make ~value = fun () -> { value }
    let to_value x =
      structure_to_value
        [("Value", (Some (DimensionValue.to_value x.value)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        DimensionValue.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Value") in
      make ~value ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map_exn json__ "Value" DimensionValue.of_json in
      make ~value ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The value to use in an Amazon CloudWatch custom metric dimension. This is used in the PublishMetrics CustomAction. A CloudWatch custom metric dimension is a name/value pair that's part of the identity of a metric. Network Firewall sets the dimension name to CustomAction and you provide the dimension value. For more information about CloudWatch custom metric dimensions, see Publishing Custom Metrics in the Amazon CloudWatch User Guide."]
module Address =
  struct
    type nonrec t =
      {
      addressDefinition: AddressDefinition.t
        [@ocaml.doc
          "Specify an IP address or a block of IP addresses in Classless Inter-Domain Routing (CIDR) notation. Network Firewall supports all address ranges for IPv4 and IPv6. Examples: To configure Network Firewall to inspect for the IP address 192.0.2.44, specify 192.0.2.44/32. To configure Network Firewall to inspect for IP addresses from 192.0.2.0 to 192.0.2.255, specify 192.0.2.0/24. To configure Network Firewall to inspect for the IP address 1111:0000:0000:0000:0000:0000:0000:0111, specify 1111:0000:0000:0000:0000:0000:0000:0111/128. To configure Network Firewall to inspect for IP addresses from 1111:0000:0000:0000:0000:0000:0000:0000 to 1111:0000:0000:0000:ffff:ffff:ffff:ffff, specify 1111:0000:0000:0000:0000:0000:0000:0000/64. For more information about CIDR notation, see the Wikipedia entry Classless Inter-Domain Routing."]}
    let context_ = "Address"
    let make ~addressDefinition = fun () -> { addressDefinition }
    let to_value x =
      structure_to_value
        [("AddressDefinition",
           (Some (AddressDefinition.to_value x.addressDefinition)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let addressDefinition =
        AddressDefinition.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AddressDefinition") in
      make ~addressDefinition ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let addressDefinition =
        field_map_exn json__ "AddressDefinition" AddressDefinition.of_json in
      make ~addressDefinition ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A single IP address specification. This is used in the MatchAttributes source and destination specifications."]
module PortRange =
  struct
    type nonrec t =
      {
      fromPort: PortRangeBound.t
        [@ocaml.doc
          "The lower limit of the port range. This must be less than or equal to the ToPort specification."];
      toPort: PortRangeBound.t
        [@ocaml.doc
          "The upper limit of the port range. This must be greater than or equal to the FromPort specification."]}
    let context_ = "PortRange"
    let make ~fromPort = fun ~toPort -> fun () -> { fromPort; toPort }
    let to_value x =
      structure_to_value
        [("FromPort", (Some (PortRangeBound.to_value x.fromPort)));
        ("ToPort", (Some (PortRangeBound.to_value x.toPort)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let toPort =
        PortRangeBound.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ToPort") in
      let fromPort =
        PortRangeBound.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FromPort") in
      make ~toPort ~fromPort ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let toPort = field_map_exn json__ "ToPort" PortRangeBound.of_json in
      let fromPort = field_map_exn json__ "FromPort" PortRangeBound.of_json in
      make ~toPort ~fromPort ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A single port range specification. This is used for source and destination port ranges in the stateless rule MatchAttributes, SourcePorts, and DestinationPorts settings."]
module ProtocolNumber =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:255) >>= (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 ProtocolNumber" 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 TCPFlagField =
  struct
    type nonrec t =
      {
      flags: Flags.t
        [@ocaml.doc
          "Used in conjunction with the Masks setting to define the flags that must be set and flags that must not be set in order for the packet to match. This setting can only specify values that are also specified in the Masks setting. For the flags that are specified in the masks setting, the following must be true for the packet to match: The ones that are set in this flags setting must be set in the packet. The ones that are not set in this flags setting must also not be set in the packet."];
      masks: Flags.t option
        [@ocaml.doc
          "The set of flags to consider in the inspection. To inspect all flags in the valid values list, leave this with no setting."]}
    let context_ = "TCPFlagField"
    let make ?masks = fun ~flags -> fun () -> { masks; flags }
    let to_value x =
      structure_to_value
        [("Flags", (Some (Flags.to_value x.flags)));
        ("Masks", (Option.map x.masks ~f:Flags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let masks = (Option.map ~f:Flags.of_xml) (Xml.child xml_arg0 "Masks") in
      let flags =
        Flags.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Flags") in
      make ?masks ~flags ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let masks = field_map json__ "Masks" Flags.of_json in
      let flags = field_map_exn json__ "Flags" Flags.of_json in
      make ?masks ~flags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "TCP flags and masks to inspect packets for, used in stateless rules MatchAttributes settings."]
module Setting =
  struct
    type nonrec t = string
    let context_ = "Setting"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:8192) >>=
                  (fun () -> check_pattern i ~pattern:".*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Setting" j
    let to_json = simple_to_json to_value
  end
module Dimensions =
  struct
    type nonrec t = Dimension.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:1) >>= (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:Dimension.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:Dimension.of_xml)
    let of_json j =
      list_of_json ~kind:"Dimensions" ~of_json:Dimension.of_json j
    let to_json v = composed_to_json to_value v
  end
module Addresses =
  struct
    type nonrec t = Address.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:Address.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:Address.of_xml)
    let of_json j = list_of_json ~kind:"Addresses" ~of_json:Address.of_json j
    let to_json v = composed_to_json to_value v
  end
module PortRanges =
  struct
    type nonrec t = PortRange.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:PortRange.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:PortRange.of_xml)
    let of_json j =
      list_of_json ~kind:"PortRanges" ~of_json:PortRange.of_json j
    let to_json v = composed_to_json to_value v
  end
module ProtocolNumbers =
  struct
    type nonrec t = ProtocolNumber.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:ProtocolNumber.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:ProtocolNumber.of_xml)
    let of_json j =
      list_of_json ~kind:"ProtocolNumbers" ~of_json:ProtocolNumber.of_json j
    let to_json v = composed_to_json to_value v
  end
module TCPFlags =
  struct
    type nonrec t = TCPFlagField.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:TCPFlagField.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:TCPFlagField.of_xml)
    let of_json j =
      list_of_json ~kind:"TCPFlags" ~of_json:TCPFlagField.of_json j
    let to_json v = composed_to_json to_value v
  end
module CollectionMember_String =
  struct
    type nonrec t = string
    let context_ = "CollectionMember_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:"CollectionMember_String" j
    let to_json = simple_to_json to_value
  end
module ProxyConditionValue =
  struct
    type nonrec t = string
    let context_ = "ProxyConditionValue"
    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:"ProxyConditionValue" j
    let to_json = simple_to_json to_value
  end
module Keyword =
  struct
    type nonrec t = string
    let context_ = "Keyword"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () -> check_pattern i ~pattern:".*")));
        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:"Keyword" j
    let to_json = simple_to_json to_value
  end
module Settings =
  struct
    type nonrec t = Setting.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:Setting.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:Setting.of_xml)
    let of_json j = list_of_json ~kind:"Settings" ~of_json:Setting.of_json j
    let to_json v = composed_to_json to_value v
  end
module PublishMetricAction =
  struct
    type nonrec t = {
      dimensions: Dimensions.t }
    let context_ = "PublishMetricAction"
    let make ~dimensions = fun () -> { dimensions }
    let to_value x =
      structure_to_value
        [("Dimensions", (Some (Dimensions.to_value x.dimensions)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dimensions =
        Dimensions.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Dimensions") in
      make ~dimensions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dimensions = field_map_exn json__ "Dimensions" Dimensions.of_json in
      make ~dimensions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Stateless inspection criteria that publishes the specified metrics to Amazon CloudWatch for the matching packet. This setting defines a CloudWatch dimension value to be published."]
module MatchAttributes =
  struct
    type nonrec t =
      {
      sources: Addresses.t option
        [@ocaml.doc
          "The source IP addresses and address ranges to inspect for, in CIDR notation. If not specified, this matches with any source address."];
      destinations: Addresses.t option
        [@ocaml.doc
          "The destination IP addresses and address ranges to inspect for, in CIDR notation. If not specified, this matches with any destination address."];
      sourcePorts: PortRanges.t option
        [@ocaml.doc
          "The source port to inspect for. You can specify an individual port, for example 1994 and you can specify a port range, for example 1990:1994. To match with any port, specify ANY. If not specified, this matches with any source port. This setting is only used for protocols 6 (TCP) and 17 (UDP)."];
      destinationPorts: PortRanges.t option
        [@ocaml.doc
          "The destination port to inspect for. You can specify an individual port, for example 1994 and you can specify a port range, for example 1990:1994. To match with any port, specify ANY. This setting is only used for protocols 6 (TCP) and 17 (UDP)."];
      protocols: ProtocolNumbers.t option
        [@ocaml.doc
          "The protocols to inspect for, specified using the assigned internet protocol number (IANA) for each protocol. If not specified, this matches with any protocol."];
      tCPFlags: TCPFlags.t option
        [@ocaml.doc
          "The TCP flags and masks to inspect for. If not specified, this matches with any settings. This setting is only used for protocol 6 (TCP)."]}
    let make ?sources =
      fun ?destinations ->
        fun ?sourcePorts ->
          fun ?destinationPorts ->
            fun ?protocols ->
              fun ?tCPFlags ->
                fun () ->
                  {
                    sources;
                    destinations;
                    sourcePorts;
                    destinationPorts;
                    protocols;
                    tCPFlags
                  }
    let to_value x =
      structure_to_value
        [("Sources", (Option.map x.sources ~f:Addresses.to_value));
        ("Destinations", (Option.map x.destinations ~f:Addresses.to_value));
        ("SourcePorts", (Option.map x.sourcePorts ~f:PortRanges.to_value));
        ("DestinationPorts",
          (Option.map x.destinationPorts ~f:PortRanges.to_value));
        ("Protocols", (Option.map x.protocols ~f:ProtocolNumbers.to_value));
        ("TCPFlags", (Option.map x.tCPFlags ~f:TCPFlags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tCPFlags =
        (Option.map ~f:TCPFlags.of_xml) (Xml.child xml_arg0 "TCPFlags") in
      let protocols =
        (Option.map ~f:ProtocolNumbers.of_xml)
          (Xml.child xml_arg0 "Protocols") in
      let destinationPorts =
        (Option.map ~f:PortRanges.of_xml)
          (Xml.child xml_arg0 "DestinationPorts") in
      let sourcePorts =
        (Option.map ~f:PortRanges.of_xml) (Xml.child xml_arg0 "SourcePorts") in
      let destinations =
        (Option.map ~f:Addresses.of_xml) (Xml.child xml_arg0 "Destinations") in
      let sources =
        (Option.map ~f:Addresses.of_xml) (Xml.child xml_arg0 "Sources") in
      make ?tCPFlags ?protocols ?destinationPorts ?sourcePorts ?destinations
        ?sources ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tCPFlags = field_map json__ "TCPFlags" TCPFlags.of_json in
      let protocols = field_map json__ "Protocols" ProtocolNumbers.of_json in
      let destinationPorts =
        field_map json__ "DestinationPorts" PortRanges.of_json in
      let sourcePorts = field_map json__ "SourcePorts" PortRanges.of_json in
      let destinations = field_map json__ "Destinations" Addresses.of_json in
      let sources = field_map json__ "Sources" Addresses.of_json in
      make ?tCPFlags ?protocols ?destinationPorts ?sourcePorts ?destinations
        ?sources ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Criteria for Network Firewall to use to inspect an individual packet in stateless rule inspection. Each match attributes set can include one or more items such as IP address, CIDR range, port number, protocol, and TCP flags."]
module StatelessActions =
  struct
    type nonrec t = CollectionMember_String.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:CollectionMember_String.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:CollectionMember_String.of_xml)
    let of_json j =
      list_of_json ~kind:"StatelessActions"
        ~of_json:CollectionMember_String.of_json j
    let to_json v = composed_to_json to_value v
  end
module ConditionKey =
  struct
    type nonrec t = string
    let context_ = "ConditionKey"
    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:"ConditionKey" j
    let to_json = simple_to_json to_value
  end
module ConditionOperator =
  struct
    type nonrec t = string
    let context_ = "ConditionOperator"
    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:"ConditionOperator" j
    let to_json = simple_to_json to_value
  end
module ProxyConditionValueList =
  struct
    type nonrec t = ProxyConditionValue.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:ProxyConditionValue.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:ProxyConditionValue.of_xml)
    let of_json j =
      list_of_json ~kind:"ProxyConditionValueList"
        ~of_json:ProxyConditionValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module ResourceArn =
  struct
    type nonrec t = string
    let context_ = "ResourceArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () -> check_pattern i ~pattern:"^arn:aws.*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ResourceArn" j
    let to_json = simple_to_json to_value
  end
module VariableDefinition =
  struct
    type nonrec t = string
    let context_ = "VariableDefinition"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () -> check_pattern i ~pattern:"^.*$"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"VariableDefinition" j
    let to_json = simple_to_json to_value
  end
module Destination =
  struct
    type nonrec t = string
    let context_ = "Destination"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (fun () -> check_pattern i ~pattern:"^.*$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Destination" j
    let to_json = simple_to_json to_value
  end
module Port =
  struct
    type nonrec t = string
    let context_ = "Port"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (fun () -> check_pattern i ~pattern:"^.*$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Port" j
    let to_json = simple_to_json to_value
  end
module Source =
  struct
    type nonrec t = string
    let context_ = "Source"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (fun () -> check_pattern i ~pattern:"^.*$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Source" j
    let to_json = simple_to_json to_value
  end
module StatefulRuleDirection =
  struct
    type nonrec t =
      | FORWARD 
      | ANY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | FORWARD -> "FORWARD" | ANY -> "ANY" | Non_static_id s -> s
    let of_string =
      function | "FORWARD" -> FORWARD | "ANY" -> ANY | 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 StatefulRuleDirection" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"StatefulRuleDirection" j)
    let to_json = simple_to_json to_value
  end
module StatefulRuleProtocol =
  struct
    type nonrec t =
      | IP 
      | TCP 
      | UDP 
      | ICMP 
      | HTTP 
      | FTP 
      | TLS 
      | SMB 
      | DNS 
      | DCERPC 
      | SSH 
      | SMTP 
      | IMAP 
      | MSN 
      | KRB5 
      | IKEV2 
      | TFTP 
      | NTP 
      | DHCP 
      | HTTP2 
      | QUIC 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | IP -> "IP"
      | TCP -> "TCP"
      | UDP -> "UDP"
      | ICMP -> "ICMP"
      | HTTP -> "HTTP"
      | FTP -> "FTP"
      | TLS -> "TLS"
      | SMB -> "SMB"
      | DNS -> "DNS"
      | DCERPC -> "DCERPC"
      | SSH -> "SSH"
      | SMTP -> "SMTP"
      | IMAP -> "IMAP"
      | MSN -> "MSN"
      | KRB5 -> "KRB5"
      | IKEV2 -> "IKEV2"
      | TFTP -> "TFTP"
      | NTP -> "NTP"
      | DHCP -> "DHCP"
      | HTTP2 -> "HTTP2"
      | QUIC -> "QUIC"
      | Non_static_id s -> s
    let of_string =
      function
      | "IP" -> IP
      | "TCP" -> TCP
      | "UDP" -> UDP
      | "ICMP" -> ICMP
      | "HTTP" -> HTTP
      | "FTP" -> FTP
      | "TLS" -> TLS
      | "SMB" -> SMB
      | "DNS" -> DNS
      | "DCERPC" -> DCERPC
      | "SSH" -> SSH
      | "SMTP" -> SMTP
      | "IMAP" -> IMAP
      | "MSN" -> MSN
      | "KRB5" -> KRB5
      | "IKEV2" -> IKEV2
      | "TFTP" -> TFTP
      | "NTP" -> NTP
      | "DHCP" -> DHCP
      | "HTTP2" -> HTTP2
      | "QUIC" -> QUIC
      | 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 StatefulRuleProtocol" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"StatefulRuleProtocol" j)
    let to_json = simple_to_json to_value
  end
module RuleOption =
  struct
    type nonrec t =
      {
      keyword: Keyword.t
        [@ocaml.doc
          "The keyword for the Suricata compatible rule option. You must include a sid (signature ID), and can optionally include other keywords. For information about Suricata compatible keywords, see Rule options in the Suricata documentation."];
      settings: Settings.t option
        [@ocaml.doc
          "The settings of the Suricata compatible rule option. Rule options have zero or more setting values, and the number of possible and required settings depends on the Keyword. For more information about the settings for specific options, see Rule options."]}
    let context_ = "RuleOption"
    let make ?settings = fun ~keyword -> fun () -> { settings; keyword }
    let to_value x =
      structure_to_value
        [("Keyword", (Some (Keyword.to_value x.keyword)));
        ("Settings", (Option.map x.settings ~f:Settings.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let settings =
        (Option.map ~f:Settings.of_xml) (Xml.child xml_arg0 "Settings") in
      let keyword =
        Keyword.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Keyword") in
      make ?settings ~keyword ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let settings = field_map json__ "Settings" Settings.of_json in
      let keyword = field_map_exn json__ "Keyword" Keyword.of_json in
      make ?settings ~keyword ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Additional settings for a stateful rule. This is part of the StatefulRule configuration."]
module ActionDefinition =
  struct
    type nonrec t =
      {
      publishMetricAction: PublishMetricAction.t option
        [@ocaml.doc
          "Stateless inspection criteria that publishes the specified metrics to Amazon CloudWatch for the matching packet. This setting defines a CloudWatch dimension value to be published. You can pair this custom action with any of the standard stateless rule actions. For example, you could pair this in a rule action with the standard action that forwards the packet for stateful inspection. Then, when a packet matches the rule, Network Firewall publishes metrics for the packet and forwards it."]}
    let make ?publishMetricAction = fun () -> { publishMetricAction }
    let to_value x =
      structure_to_value
        [("PublishMetricAction",
           (Option.map x.publishMetricAction ~f:PublishMetricAction.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let publishMetricAction =
        (Option.map ~f:PublishMetricAction.of_xml)
          (Xml.child xml_arg0 "PublishMetricAction") in
      make ?publishMetricAction ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let publishMetricAction =
        field_map json__ "PublishMetricAction" PublishMetricAction.of_json in
      make ?publishMetricAction ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A custom action to use in stateless rule actions settings. This is used in CustomAction."]
module ActionName =
  struct
    type nonrec t = string
    let context_ = "ActionName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () -> check_pattern i ~pattern:"^[a-zA-Z0-9]+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ActionName" j
    let to_json = simple_to_json to_value
  end
module Priority =
  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: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 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 RuleDefinition =
  struct
    type nonrec t =
      {
      matchAttributes: MatchAttributes.t
        [@ocaml.doc
          "Criteria for Network Firewall to use to inspect an individual packet in stateless rule inspection. Each match attributes set can include one or more items such as IP address, CIDR range, port number, protocol, and TCP flags."];
      actions: StatelessActions.t
        [@ocaml.doc
          "The actions to take on a packet that matches one of the stateless rule definition's match attributes. You must specify a standard action and you can add custom actions. Network Firewall only forwards a packet for stateful rule inspection if you specify aws:forward_to_sfe for a rule that the packet matches, or if the packet doesn't match any stateless rule and you specify aws:forward_to_sfe for the StatelessDefaultActions setting for the FirewallPolicy. For every rule, you must specify exactly one of the following standard actions. aws:pass - Discontinues all inspection of the packet and permits it to go to its intended destination. aws:drop - Discontinues all inspection of the packet and blocks it from going to its intended destination. aws:forward_to_sfe - Discontinues stateless inspection of the packet and forwards it to the stateful rule engine for inspection. Additionally, you can specify a custom action. To do this, you define a custom action by name and type, then provide the name you've assigned to the action in this Actions setting. For information about the options, see CustomAction. To provide more than one action in this setting, separate the settings with a comma. For example, if you have a custom PublishMetrics action that you've named MyMetricsAction, then you could specify the standard action aws:pass and the custom action with \\[\226\128\156aws:pass\226\128\157, \226\128\156MyMetricsAction\226\128\157\\]."]}
    let context_ = "RuleDefinition"
    let make ~matchAttributes =
      fun ~actions -> fun () -> { matchAttributes; actions }
    let to_value x =
      structure_to_value
        [("MatchAttributes",
           (Some (MatchAttributes.to_value x.matchAttributes)));
        ("Actions", (Some (StatelessActions.to_value x.actions)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let actions =
        StatelessActions.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Actions") in
      let matchAttributes =
        MatchAttributes.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MatchAttributes") in
      make ~actions ~matchAttributes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let actions = field_map_exn json__ "Actions" StatelessActions.of_json in
      let matchAttributes =
        field_map_exn json__ "MatchAttributes" MatchAttributes.of_json in
      make ~actions ~matchAttributes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The inspection criteria and action for a single stateless rule. Network Firewall inspects each packet for the specified matching criteria. When a packet matches the criteria, Network Firewall performs the rule's actions on the packet."]
module ProxyRuleCondition =
  struct
    type nonrec t =
      {
      conditionOperator: ConditionOperator.t option
        [@ocaml.doc "Defines how to perform a match."];
      conditionKey: ConditionKey.t option
        [@ocaml.doc "Defines what is to be matched."];
      conditionValues: ProxyConditionValueList.t option
        [@ocaml.doc
          "Specifes the exact value that needs to be matched against."]}
    let make ?conditionOperator =
      fun ?conditionKey ->
        fun ?conditionValues ->
          fun () -> { conditionOperator; conditionKey; conditionValues }
    let to_value x =
      structure_to_value
        [("ConditionOperator",
           (Option.map x.conditionOperator ~f:ConditionOperator.to_value));
        ("ConditionKey",
          (Option.map x.conditionKey ~f:ConditionKey.to_value));
        ("ConditionValues",
          (Option.map x.conditionValues ~f:ProxyConditionValueList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let conditionValues =
        (Option.map ~f:ProxyConditionValueList.of_xml)
          (Xml.child xml_arg0 "ConditionValues") in
      let conditionKey =
        (Option.map ~f:ConditionKey.of_xml)
          (Xml.child xml_arg0 "ConditionKey") in
      let conditionOperator =
        (Option.map ~f:ConditionOperator.of_xml)
          (Xml.child xml_arg0 "ConditionOperator") in
      make ?conditionValues ?conditionKey ?conditionOperator ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let conditionValues =
        field_map json__ "ConditionValues" ProxyConditionValueList.of_json in
      let conditionKey = field_map json__ "ConditionKey" ConditionKey.of_json in
      let conditionOperator =
        field_map json__ "ConditionOperator" ConditionOperator.of_json in
      make ?conditionValues ?conditionKey ?conditionOperator ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Match criteria that specify what traffic attributes to examine."]
module CIDRCount =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:1000000) >>=
             (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 CIDRCount" 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 PerObjectSyncStatus =
  struct
    type nonrec t =
      | PENDING 
      | IN_SYNC 
      | CAPACITY_CONSTRAINED 
      | NOT_SUBSCRIBED 
      | DEPRECATED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING -> "PENDING"
      | IN_SYNC -> "IN_SYNC"
      | CAPACITY_CONSTRAINED -> "CAPACITY_CONSTRAINED"
      | NOT_SUBSCRIBED -> "NOT_SUBSCRIBED"
      | DEPRECATED -> "DEPRECATED"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING" -> PENDING
      | "IN_SYNC" -> IN_SYNC
      | "CAPACITY_CONSTRAINED" -> CAPACITY_CONSTRAINED
      | "NOT_SUBSCRIBED" -> NOT_SUBSCRIBED
      | "DEPRECATED" -> DEPRECATED
      | 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 PerObjectSyncStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"PerObjectSyncStatus" j)
    let to_json = simple_to_json to_value
  end
module UpdateToken =
  struct
    type nonrec t = string
    let context_ = "UpdateToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^([0-9a-f]{8})-([0-9a-f]{4}-){3}([0-9a-f]{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:"UpdateToken" j
    let to_json = simple_to_json to_value
  end
module RevocationCheckAction =
  struct
    type nonrec t =
      | PASS 
      | DROP 
      | REJECT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PASS -> "PASS"
      | DROP -> "DROP"
      | REJECT -> "REJECT"
      | Non_static_id s -> s
    let of_string =
      function
      | "PASS" -> PASS
      | "DROP" -> DROP
      | "REJECT" -> REJECT
      | 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 RevocationCheckAction" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"RevocationCheckAction" j)
    let to_json = simple_to_json to_value
  end
module ServerCertificateScope =
  struct
    type nonrec t =
      {
      sources: Addresses.t option
        [@ocaml.doc
          "The source IP addresses and address ranges to decrypt for inspection, in CIDR notation. If not specified, this matches with any source address."];
      destinations: Addresses.t option
        [@ocaml.doc
          "The destination IP addresses and address ranges to decrypt for inspection, in CIDR notation. If not specified, this matches with any destination address."];
      sourcePorts: PortRanges.t option
        [@ocaml.doc
          "The source ports to decrypt for inspection, in Transmission Control Protocol (TCP) format. If not specified, this matches with any source port. You can specify individual ports, for example 1994, and you can specify port ranges, such as 1990:1994."];
      destinationPorts: PortRanges.t option
        [@ocaml.doc
          "The destination ports to decrypt for inspection, in Transmission Control Protocol (TCP) format. If not specified, this matches with any destination port. You can specify individual ports, for example 1994, and you can specify port ranges, such as 1990:1994."];
      protocols: ProtocolNumbers.t option
        [@ocaml.doc
          "The protocols to inspect for, specified using the assigned internet protocol number (IANA) for each protocol. If not specified, this matches with any protocol. Network Firewall currently supports only TCP."]}
    let make ?sources =
      fun ?destinations ->
        fun ?sourcePorts ->
          fun ?destinationPorts ->
            fun ?protocols ->
              fun () ->
                {
                  sources;
                  destinations;
                  sourcePorts;
                  destinationPorts;
                  protocols
                }
    let to_value x =
      structure_to_value
        [("Sources", (Option.map x.sources ~f:Addresses.to_value));
        ("Destinations", (Option.map x.destinations ~f:Addresses.to_value));
        ("SourcePorts", (Option.map x.sourcePorts ~f:PortRanges.to_value));
        ("DestinationPorts",
          (Option.map x.destinationPorts ~f:PortRanges.to_value));
        ("Protocols", (Option.map x.protocols ~f:ProtocolNumbers.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let protocols =
        (Option.map ~f:ProtocolNumbers.of_xml)
          (Xml.child xml_arg0 "Protocols") in
      let destinationPorts =
        (Option.map ~f:PortRanges.of_xml)
          (Xml.child xml_arg0 "DestinationPorts") in
      let sourcePorts =
        (Option.map ~f:PortRanges.of_xml) (Xml.child xml_arg0 "SourcePorts") in
      let destinations =
        (Option.map ~f:Addresses.of_xml) (Xml.child xml_arg0 "Destinations") in
      let sources =
        (Option.map ~f:Addresses.of_xml) (Xml.child xml_arg0 "Sources") in
      make ?protocols ?destinationPorts ?sourcePorts ?destinations ?sources
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let protocols = field_map json__ "Protocols" ProtocolNumbers.of_json in
      let destinationPorts =
        field_map json__ "DestinationPorts" PortRanges.of_json in
      let sourcePorts = field_map json__ "SourcePorts" PortRanges.of_json in
      let destinations = field_map json__ "Destinations" Addresses.of_json in
      let sources = field_map json__ "Sources" Addresses.of_json in
      make ?protocols ?destinationPorts ?sourcePorts ?destinations ?sources
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Settings that define the Secure Sockets Layer/Transport Layer Security (SSL/TLS) traffic that Network Firewall should decrypt for inspection by the stateful rule engine."]
module ServerCertificate =
  struct
    type nonrec t =
      {
      resourceArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Certificate Manager SSL/TLS server certificate that's used for inbound SSL/TLS inspection."]}
    let make ?resourceArn = fun () -> { resourceArn }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Option.map x.resourceArn ~f:ResourceArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "ResourceArn") in
      make ?resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceArn = field_map json__ "ResourceArn" ResourceArn.of_json in
      make ?resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Any Certificate Manager (ACM) Secure Sockets Layer/Transport Layer Security (SSL/TLS) server certificate that's associated with a ServerCertificateConfiguration. Used in a TLSInspectionConfiguration for inspection of inbound traffic to your firewall. You must request or import a SSL/TLS certificate into ACM for each domain Network Firewall needs to decrypt and inspect. Network Firewall uses the SSL/TLS certificates to decrypt specified inbound SSL/TLS traffic going to your firewall. For information about working with certificates in Certificate Manager, see Request a public certificate or Importing certificates in the Certificate Manager User Guide."]
module VariableDefinitionList =
  struct
    type nonrec t = VariableDefinition.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:VariableDefinition.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:VariableDefinition.of_xml)
    let of_json j =
      list_of_json ~kind:"VariableDefinitionList"
        ~of_json:VariableDefinition.of_json j
    let to_json v = composed_to_json to_value v
  end
module TargetType =
  struct
    type nonrec t =
      | TLS_SNI 
      | HTTP_HOST 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | TLS_SNI -> "TLS_SNI"
      | HTTP_HOST -> "HTTP_HOST"
      | Non_static_id s -> s
    let of_string =
      function
      | "TLS_SNI" -> TLS_SNI
      | "HTTP_HOST" -> HTTP_HOST
      | 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 TargetType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TargetType" j)
    let to_json = simple_to_json to_value
  end
module Header =
  struct
    type nonrec t =
      {
      protocol: StatefulRuleProtocol.t
        [@ocaml.doc
          "The protocol to inspect for. To specify all, you can use IP, because all traffic on Amazon Web Services and on the internet is IP."];
      source: Source.t
        [@ocaml.doc
          "The source IP address or address range to inspect for, in CIDR notation. To match with any address, specify ANY. Specify an IP address or a block of IP addresses in Classless Inter-Domain Routing (CIDR) notation. Network Firewall supports all address ranges for IPv4 and IPv6. Examples: To configure Network Firewall to inspect for the IP address 192.0.2.44, specify 192.0.2.44/32. To configure Network Firewall to inspect for IP addresses from 192.0.2.0 to 192.0.2.255, specify 192.0.2.0/24. To configure Network Firewall to inspect for the IP address 1111:0000:0000:0000:0000:0000:0000:0111, specify 1111:0000:0000:0000:0000:0000:0000:0111/128. To configure Network Firewall to inspect for IP addresses from 1111:0000:0000:0000:0000:0000:0000:0000 to 1111:0000:0000:0000:ffff:ffff:ffff:ffff, specify 1111:0000:0000:0000:0000:0000:0000:0000/64. For more information about CIDR notation, see the Wikipedia entry Classless Inter-Domain Routing."];
      sourcePort: Port.t
        [@ocaml.doc
          "The source port to inspect for. You can specify an individual port, for example 1994 and you can specify a port range, for example 1990:1994. To match with any port, specify ANY."];
      direction: StatefulRuleDirection.t
        [@ocaml.doc
          "The direction of traffic flow to inspect. If set to ANY, the inspection matches bidirectional traffic, both from the source to the destination and from the destination to the source. If set to FORWARD, the inspection only matches traffic going from the source to the destination."];
      destination: Destination.t
        [@ocaml.doc
          "The destination IP address or address range to inspect for, in CIDR notation. To match with any address, specify ANY. Specify an IP address or a block of IP addresses in Classless Inter-Domain Routing (CIDR) notation. Network Firewall supports all address ranges for IPv4 and IPv6. Examples: To configure Network Firewall to inspect for the IP address 192.0.2.44, specify 192.0.2.44/32. To configure Network Firewall to inspect for IP addresses from 192.0.2.0 to 192.0.2.255, specify 192.0.2.0/24. To configure Network Firewall to inspect for the IP address 1111:0000:0000:0000:0000:0000:0000:0111, specify 1111:0000:0000:0000:0000:0000:0000:0111/128. To configure Network Firewall to inspect for IP addresses from 1111:0000:0000:0000:0000:0000:0000:0000 to 1111:0000:0000:0000:ffff:ffff:ffff:ffff, specify 1111:0000:0000:0000:0000:0000:0000:0000/64. For more information about CIDR notation, see the Wikipedia entry Classless Inter-Domain Routing."];
      destinationPort: Port.t
        [@ocaml.doc
          "The destination port to inspect for. You can specify an individual port, for example 1994 and you can specify a port range, for example 1990:1994. To match with any port, specify ANY."]}
    let context_ = "Header"
    let make ~protocol =
      fun ~source ->
        fun ~sourcePort ->
          fun ~direction ->
            fun ~destination ->
              fun ~destinationPort ->
                fun () ->
                  {
                    protocol;
                    source;
                    sourcePort;
                    direction;
                    destination;
                    destinationPort
                  }
    let to_value x =
      structure_to_value
        [("Protocol", (Some (StatefulRuleProtocol.to_value x.protocol)));
        ("Source", (Some (Source.to_value x.source)));
        ("SourcePort", (Some (Port.to_value x.sourcePort)));
        ("Direction", (Some (StatefulRuleDirection.to_value x.direction)));
        ("Destination", (Some (Destination.to_value x.destination)));
        ("DestinationPort", (Some (Port.to_value x.destinationPort)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let destinationPort =
        Port.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DestinationPort") in
      let destination =
        Destination.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Destination") in
      let direction =
        StatefulRuleDirection.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Direction") in
      let sourcePort =
        Port.of_xml (Xml.child_exn ~context:context_ xml_arg0 "SourcePort") in
      let source =
        Source.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Source") in
      let protocol =
        StatefulRuleProtocol.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Protocol") in
      make ~destinationPort ~destination ~direction ~sourcePort ~source
        ~protocol ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let destinationPort =
        field_map_exn json__ "DestinationPort" Port.of_json in
      let destination =
        field_map_exn json__ "Destination" Destination.of_json in
      let direction =
        field_map_exn json__ "Direction" StatefulRuleDirection.of_json in
      let sourcePort = field_map_exn json__ "SourcePort" Port.of_json in
      let source = field_map_exn json__ "Source" Source.of_json in
      let protocol =
        field_map_exn json__ "Protocol" StatefulRuleProtocol.of_json in
      make ~destinationPort ~destination ~direction ~sourcePort ~source
        ~protocol ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The basic rule criteria for Network Firewall to use to inspect packet headers in stateful traffic flow inspection. Traffic flows that match the criteria are a match for the corresponding StatefulRule."]
module RuleOptions =
  struct
    type nonrec t = RuleOption.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:RuleOption.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:RuleOption.of_xml)
    let of_json j =
      list_of_json ~kind:"RuleOptions" ~of_json:RuleOption.of_json j
    let to_json v = composed_to_json to_value v
  end
module StatefulAction =
  struct
    type nonrec t =
      | PASS 
      | DROP 
      | ALERT 
      | REJECT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PASS -> "PASS"
      | DROP -> "DROP"
      | ALERT -> "ALERT"
      | REJECT -> "REJECT"
      | Non_static_id s -> s
    let of_string =
      function
      | "PASS" -> PASS
      | "DROP" -> DROP
      | "ALERT" -> ALERT
      | "REJECT" -> REJECT
      | 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 StatefulAction" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"StatefulAction" j)
    let to_json = simple_to_json to_value
  end
module CustomAction =
  struct
    type nonrec t =
      {
      actionName: ActionName.t
        [@ocaml.doc
          "The descriptive name of the custom action. You can't change the name of a custom action after you create it."];
      actionDefinition: ActionDefinition.t
        [@ocaml.doc "The custom action associated with the action name."]}
    let context_ = "CustomAction"
    let make ~actionName =
      fun ~actionDefinition -> fun () -> { actionName; actionDefinition }
    let to_value x =
      structure_to_value
        [("ActionName", (Some (ActionName.to_value x.actionName)));
        ("ActionDefinition",
          (Some (ActionDefinition.to_value x.actionDefinition)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let actionDefinition =
        ActionDefinition.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ActionDefinition") in
      let actionName =
        ActionName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ActionName") in
      make ~actionDefinition ~actionName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let actionDefinition =
        field_map_exn json__ "ActionDefinition" ActionDefinition.of_json in
      let actionName = field_map_exn json__ "ActionName" ActionName.of_json in
      make ~actionDefinition ~actionName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An optional, non-standard action to use for stateless packet handling. You can define this in addition to the standard action that you must specify. You define and name the custom actions that you want to be able to use, and then you reference them by name in your actions settings. You can use custom actions in the following places: In a rule group's StatelessRulesAndCustomActions specification. The custom actions are available for use by name inside the StatelessRulesAndCustomActions where you define them. You can use them for your stateless rule actions to specify what to do with a packet that matches the rule's match attributes. In a FirewallPolicy specification, in StatelessCustomActions. The custom actions are available for use inside the policy where you define them. You can use them for the policy's default stateless actions settings to specify what to do with packets that don't match any of the policy's stateless rules."]
module StatelessRule =
  struct
    type nonrec t =
      {
      ruleDefinition: RuleDefinition.t
        [@ocaml.doc
          "Defines the stateless 5-tuple packet inspection criteria and the action to take on a packet that matches the criteria."];
      priority: Priority.t
        [@ocaml.doc
          "Indicates the order in which to run this rule relative to all of the rules that are defined for a stateless rule group. Network Firewall evaluates the rules in a rule group starting with the lowest priority setting. You must ensure that the priority settings are unique for the rule group. Each stateless rule group uses exactly one StatelessRulesAndCustomActions object, and each StatelessRulesAndCustomActions contains exactly one StatelessRules object. To ensure unique priority settings for your rule groups, set unique priorities for the stateless rules that you define inside any single StatelessRules object. You can change the priority settings of your rules at any time. To make it easier to insert rules later, number them so there's a wide range in between, for example use 100, 200, and so on."]}
    let context_ = "StatelessRule"
    let make ~ruleDefinition =
      fun ~priority -> fun () -> { ruleDefinition; priority }
    let to_value x =
      structure_to_value
        [("RuleDefinition",
           (Some (RuleDefinition.to_value x.ruleDefinition)));
        ("Priority", (Some (Priority.to_value x.priority)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let priority =
        Priority.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Priority") in
      let ruleDefinition =
        RuleDefinition.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RuleDefinition") in
      make ~priority ~ruleDefinition ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let priority = field_map_exn json__ "Priority" Priority.of_json in
      let ruleDefinition =
        field_map_exn json__ "RuleDefinition" RuleDefinition.of_json in
      make ~priority ~ruleDefinition ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A single stateless rule. This is used in StatelessRulesAndCustomActions."]
module HashMapKey =
  struct
    type nonrec t = string
    let context_ = "HashMapKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:3) >>=
             (fun () ->
                (check_string_max i ~max:50) >>=
                  (fun () ->
                     check_pattern i ~pattern:"^[0-9A-Za-z.\\-_@\\/]+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"HashMapKey" j
    let to_json = simple_to_json to_value
  end
module HashMapValue =
  struct
    type nonrec t = string
    let context_ = "HashMapValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (fun () -> check_pattern i ~pattern:"[\\s\\S]*$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"HashMapValue" j
    let to_json = simple_to_json to_value
  end
module OverrideAction =
  struct
    type nonrec t =
      | DROP_TO_ALERT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | DROP_TO_ALERT -> "DROP_TO_ALERT" | Non_static_id s -> s
    let of_string =
      function | "DROP_TO_ALERT" -> DROP_TO_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 OverrideAction" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"OverrideAction" j)
    let to_json = simple_to_json to_value
  end
module AttachmentStatus =
  struct
    type nonrec t =
      | CREATING 
      | DELETING 
      | FAILED 
      | ERROR 
      | SCALING 
      | READY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATING -> "CREATING"
      | DELETING -> "DELETING"
      | FAILED -> "FAILED"
      | ERROR -> "ERROR"
      | SCALING -> "SCALING"
      | READY -> "READY"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATING" -> CREATING
      | "DELETING" -> DELETING
      | "FAILED" -> FAILED
      | "ERROR" -> ERROR
      | "SCALING" -> SCALING
      | "READY" -> READY
      | 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 AttachmentStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AttachmentStatus" j)
    let to_json = simple_to_json to_value
  end
module AzSubnet =
  struct
    type nonrec t = string
    let context_ = "AzSubnet"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () -> check_pattern i ~pattern:"^subnet-[0-9a-f]+$")));
        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:"AzSubnet" j
    let to_json = simple_to_json to_value
  end
module EndpointId =
  struct
    type nonrec t = string
    let context_ = "EndpointId"
    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:"EndpointId" j
    let to_json = simple_to_json to_value
  end
module StatusMessage =
  struct
    type nonrec t = string
    let context_ = "StatusMessage"
    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:"StatusMessage" j
    let to_json = simple_to_json to_value
  end
module Description =
  struct
    type nonrec t = string
    let context_ = "Description"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:512) >>=
             (fun () -> check_pattern i ~pattern:"^.*$"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Description" j
    let to_json = simple_to_json to_value
  end
module ProxyRuleConditionList =
  struct
    type nonrec t = ProxyRuleCondition.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:ProxyRuleCondition.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:ProxyRuleCondition.of_xml)
    let of_json j =
      list_of_json ~kind:"ProxyRuleConditionList"
        ~of_json:ProxyRuleCondition.of_json j
    let to_json v = composed_to_json to_value v
  end
module ProxyRulePhaseAction =
  struct
    type nonrec t =
      | ALLOW 
      | DENY 
      | ALERT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ALLOW -> "ALLOW"
      | DENY -> "DENY"
      | ALERT -> "ALERT"
      | Non_static_id s -> s
    let of_string =
      function
      | "ALLOW" -> ALLOW
      | "DENY" -> DENY
      | "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 ProxyRulePhaseAction" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ProxyRulePhaseAction" j)
    let to_json = simple_to_json to_value
  end
module ResourceName =
  struct
    type nonrec t = string
    let context_ = "ResourceName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () -> check_pattern i ~pattern:"^[a-zA-Z0-9-]+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ResourceName" j
    let to_json = simple_to_json to_value
  end
module ProtocolString =
  struct
    type nonrec t = string
    let context_ = "ProtocolString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:12) >>=
                  (fun () -> check_pattern i ~pattern:"^.*$")));
        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:"ProtocolString" j
    let to_json = simple_to_json to_value
  end
module IPSetArn =
  struct
    type nonrec t = string
    let context_ = "IPSetArn"
    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:"IPSetArn" j
    let to_json = simple_to_json to_value
  end
module IPSetMetadata =
  struct
    type nonrec t =
      {
      resolvedCIDRCount: CIDRCount.t option
        [@ocaml.doc
          "Describes the total number of CIDR blocks currently in use by the IP set references in a firewall. To determine how many CIDR blocks are available for you to use in a firewall, you can call AvailableCIDRCount."]}
    let make ?resolvedCIDRCount = fun () -> { resolvedCIDRCount }
    let to_value x =
      structure_to_value
        [("ResolvedCIDRCount",
           (Option.map x.resolvedCIDRCount ~f:CIDRCount.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resolvedCIDRCount =
        (Option.map ~f:CIDRCount.of_xml)
          (Xml.child xml_arg0 "ResolvedCIDRCount") in
      make ?resolvedCIDRCount ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resolvedCIDRCount =
        field_map json__ "ResolvedCIDRCount" CIDRCount.of_json in
      make ?resolvedCIDRCount ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "General information about the IP set."]
module PerObjectStatus =
  struct
    type nonrec t =
      {
      syncStatus: PerObjectSyncStatus.t option
        [@ocaml.doc
          "Indicates whether this object is in sync with the version indicated in the update token."];
      updateToken: UpdateToken.t option
        [@ocaml.doc
          "The current version of the object that is either in sync or pending synchronization."]}
    let make ?syncStatus =
      fun ?updateToken -> fun () -> { syncStatus; updateToken }
    let to_value x =
      structure_to_value
        [("SyncStatus",
           (Option.map x.syncStatus ~f:PerObjectSyncStatus.to_value));
        ("UpdateToken", (Option.map x.updateToken ~f:UpdateToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updateToken =
        (Option.map ~f:UpdateToken.of_xml) (Xml.child xml_arg0 "UpdateToken") in
      let syncStatus =
        (Option.map ~f:PerObjectSyncStatus.of_xml)
          (Xml.child xml_arg0 "SyncStatus") in
      make ?updateToken ?syncStatus ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updateToken = field_map json__ "UpdateToken" UpdateToken.of_json in
      let syncStatus =
        field_map json__ "SyncStatus" PerObjectSyncStatus.of_json in
      make ?updateToken ?syncStatus ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides configuration status for a single policy or rule group that is used for a firewall endpoint. Network Firewall provides each endpoint with the rules that are configured in the firewall policy. Each time you add a subnet or modify the associated firewall policy, Network Firewall synchronizes the rules in the endpoint, so it can properly filter network traffic. This is part of a SyncState for a firewall."]
module StatusReason =
  struct
    type nonrec t = string
    let context_ = "StatusReason"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () -> check_pattern i ~pattern:"^[a-zA-Z0-9- ]+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"StatusReason" 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_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () -> check_pattern i ~pattern:"^.*$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"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_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () -> check_pattern i ~pattern:"^.*$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagValue" j
    let to_json = simple_to_json to_value
  end
module CheckCertificateRevocationStatusActions =
  struct
    type nonrec t =
      {
      revokedStatusAction: RevocationCheckAction.t option
        [@ocaml.doc
          "Configures how Network Firewall processes traffic when it determines that the certificate presented by the server in the SSL/TLS connection has a revoked status. PASS - Allow the connection to continue, and pass subsequent packets to the stateful engine for inspection. DROP - Network Firewall closes the connection and drops subsequent packets for that connection. REJECT - Network Firewall sends a TCP reject packet back to your client. The service closes the connection and drops subsequent packets for that connection. REJECT is available only for TCP traffic."];
      unknownStatusAction: RevocationCheckAction.t option
        [@ocaml.doc
          "Configures how Network Firewall processes traffic when it determines that the certificate presented by the server in the SSL/TLS connection has an unknown status, or a status that cannot be determined for any other reason, including when the service is unable to connect to the OCSP and CRL endpoints for the certificate. PASS - Allow the connection to continue, and pass subsequent packets to the stateful engine for inspection. DROP - Network Firewall closes the connection and drops subsequent packets for that connection. REJECT - Network Firewall sends a TCP reject packet back to your client. The service closes the connection and drops subsequent packets for that connection. REJECT is available only for TCP traffic."]}
    let make ?revokedStatusAction =
      fun ?unknownStatusAction ->
        fun () -> { revokedStatusAction; unknownStatusAction }
    let to_value x =
      structure_to_value
        [("RevokedStatusAction",
           (Option.map x.revokedStatusAction
              ~f:RevocationCheckAction.to_value));
        ("UnknownStatusAction",
          (Option.map x.unknownStatusAction ~f:RevocationCheckAction.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let unknownStatusAction =
        (Option.map ~f:RevocationCheckAction.of_xml)
          (Xml.child xml_arg0 "UnknownStatusAction") in
      let revokedStatusAction =
        (Option.map ~f:RevocationCheckAction.of_xml)
          (Xml.child xml_arg0 "RevokedStatusAction") in
      make ?unknownStatusAction ?revokedStatusAction ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let unknownStatusAction =
        field_map json__ "UnknownStatusAction" RevocationCheckAction.of_json in
      let revokedStatusAction =
        field_map json__ "RevokedStatusAction" RevocationCheckAction.of_json in
      make ?unknownStatusAction ?revokedStatusAction ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Defines the actions to take on the SSL/TLS connection if the certificate presented by the server in the connection has a revoked or unknown status."]
module ServerCertificateScopes =
  struct
    type nonrec t = ServerCertificateScope.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:ServerCertificateScope.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:ServerCertificateScope.of_xml)
    let of_json j =
      list_of_json ~kind:"ServerCertificateScopes"
        ~of_json:ServerCertificateScope.of_json j
    let to_json v = composed_to_json to_value v
  end
module ServerCertificates =
  struct
    type nonrec t = ServerCertificate.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:ServerCertificate.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:ServerCertificate.of_xml)
    let of_json j =
      list_of_json ~kind:"ServerCertificates"
        ~of_json:ServerCertificate.of_json j
    let to_json v = composed_to_json to_value v
  end
module IdentifiedType =
  struct
    type nonrec t =
      | STATELESS_RULE_FORWARDING_ASYMMETRICALLY 
      | STATELESS_RULE_CONTAINS_TCP_FLAGS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | STATELESS_RULE_FORWARDING_ASYMMETRICALLY ->
          "STATELESS_RULE_FORWARDING_ASYMMETRICALLY"
      | STATELESS_RULE_CONTAINS_TCP_FLAGS ->
          "STATELESS_RULE_CONTAINS_TCP_FLAGS"
      | Non_static_id s -> s
    let of_string =
      function
      | "STATELESS_RULE_FORWARDING_ASYMMETRICALLY" ->
          STATELESS_RULE_FORWARDING_ASYMMETRICALLY
      | "STATELESS_RULE_CONTAINS_TCP_FLAGS" ->
          STATELESS_RULE_CONTAINS_TCP_FLAGS
      | 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 IdentifiedType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"IdentifiedType" j)
    let to_json = simple_to_json to_value
  end
module RuleIdList =
  struct
    type nonrec t = CollectionMember_String.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:CollectionMember_String.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:CollectionMember_String.of_xml)
    let of_json j =
      list_of_json ~kind:"RuleIdList"
        ~of_json:CollectionMember_String.of_json j
    let to_json v = composed_to_json to_value v
  end
module SummaryRuleOption =
  struct
    type nonrec t =
      | SID 
      | MSG 
      | METADATA 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SID -> "SID"
      | MSG -> "MSG"
      | METADATA -> "METADATA"
      | Non_static_id s -> s
    let of_string =
      function
      | "SID" -> SID
      | "MSG" -> MSG
      | "METADATA" -> METADATA
      | 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 SummaryRuleOption" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SummaryRuleOption" j)
    let to_json = simple_to_json to_value
  end
module IPSetReference =
  struct
    type nonrec t =
      {
      referenceArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource that you are referencing in your rule group."]}
    let make ?referenceArn = fun () -> { referenceArn }
    let to_value x =
      structure_to_value
        [("ReferenceArn",
           (Option.map x.referenceArn ~f:ResourceArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let referenceArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "ReferenceArn") in
      make ?referenceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let referenceArn = field_map json__ "ReferenceArn" ResourceArn.of_json in
      make ?referenceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Configures one or more IP set references for a Suricata-compatible rule group. This is used in CreateRuleGroup or UpdateRuleGroup. An IP set reference is a rule variable that references resources that you create and manage in another Amazon Web Services service, such as an Amazon VPC prefix list. Network Firewall IP set references enable you to dynamically update the contents of your rules. When you create, update, or delete the resource you are referencing in your rule, Network Firewall automatically updates the rule's content with the changes. For more information about IP set references in Network Firewall, see Using IP set references in the Network Firewall Developer Guide. Network Firewall currently supports Amazon VPC prefix lists and resource groups in IP set references."]
module IPSetReferenceName =
  struct
    type nonrec t = string
    let context_ = "IPSetReferenceName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:32) >>=
                  (fun () ->
                     check_pattern i ~pattern:"^[A-Za-z][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:"IPSetReferenceName" j
    let to_json = simple_to_json to_value
  end
module IPSet =
  struct
    type nonrec t =
      {
      definition: VariableDefinitionList.t
        [@ocaml.doc
          "The list of IP addresses and address ranges, in CIDR notation."]}
    let context_ = "IPSet"
    let make ~definition = fun () -> { definition }
    let to_value x =
      structure_to_value
        [("Definition",
           (Some (VariableDefinitionList.to_value x.definition)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let definition =
        VariableDefinitionList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Definition") in
      make ~definition ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let definition =
        field_map_exn json__ "Definition" VariableDefinitionList.of_json in
      make ~definition ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A list of IP addresses and address ranges, in CIDR notation. This is part of a RuleVariables."]
module RuleVariableName =
  struct
    type nonrec t = string
    let context_ = "RuleVariableName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:32) >>=
                  (fun () ->
                     check_pattern i ~pattern:"^[A-Za-z][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:"RuleVariableName" j
    let to_json = simple_to_json to_value
  end
module PortSet =
  struct
    type nonrec t =
      {
      definition: VariableDefinitionList.t option
        [@ocaml.doc "The set of port ranges."]}
    let make ?definition = fun () -> { definition }
    let to_value x =
      structure_to_value
        [("Definition",
           (Option.map x.definition ~f:VariableDefinitionList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let definition =
        (Option.map ~f:VariableDefinitionList.of_xml)
          (Xml.child xml_arg0 "Definition") in
      make ?definition ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let definition =
        field_map json__ "Definition" VariableDefinitionList.of_json in
      make ?definition ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A set of port ranges for use in the rules in a rule group."]
module GeneratedRulesType =
  struct
    type nonrec t =
      | ALLOWLIST 
      | DENYLIST 
      | REJECTLIST 
      | ALERTLIST 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ALLOWLIST -> "ALLOWLIST"
      | DENYLIST -> "DENYLIST"
      | REJECTLIST -> "REJECTLIST"
      | ALERTLIST -> "ALERTLIST"
      | Non_static_id s -> s
    let of_string =
      function
      | "ALLOWLIST" -> ALLOWLIST
      | "DENYLIST" -> DENYLIST
      | "REJECTLIST" -> REJECTLIST
      | "ALERTLIST" -> ALERTLIST
      | 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 GeneratedRulesType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"GeneratedRulesType" j)
    let to_json = simple_to_json to_value
  end
module RuleTargets =
  struct
    type nonrec t = CollectionMember_String.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:CollectionMember_String.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:CollectionMember_String.of_xml)
    let of_json j =
      list_of_json ~kind:"RuleTargets"
        ~of_json:CollectionMember_String.of_json j
    let to_json v = composed_to_json to_value v
  end
module TargetTypes =
  struct
    type nonrec t = TargetType.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:TargetType.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:TargetType.of_xml)
    let of_json j =
      list_of_json ~kind:"TargetTypes" ~of_json:TargetType.of_json j
    let to_json v = composed_to_json to_value v
  end
module StatefulRule =
  struct
    type nonrec t =
      {
      action: StatefulAction.t
        [@ocaml.doc
          "Defines what Network Firewall should do with the packets in a traffic flow when the flow matches the stateful rule criteria. For all actions, Network Firewall performs the specified action and discontinues stateful inspection of the traffic flow. The actions for a stateful rule are defined as follows: PASS - Permits the packets to go to the intended destination. DROP - Blocks the packets from going to the intended destination and sends an alert log message, if alert logging is configured in the Firewall LoggingConfiguration. ALERT - Sends an alert log message, if alert logging is configured in the Firewall LoggingConfiguration. You can use this action to test a rule that you intend to use to drop traffic. You can enable the rule with ALERT action, verify in the logs that the rule is filtering as you want, then change the action to DROP. REJECT - Drops traffic that matches the conditions of the stateful rule, and sends a TCP reset packet back to sender of the packet. A TCP reset packet is a packet with no payload and an RST bit contained in the TCP header flags. REJECT is available only for TCP traffic. This option doesn't support FTP or IMAP protocols."];
      header: Header.t
        [@ocaml.doc
          "The stateful inspection criteria for this rule, used to inspect traffic flows."];
      ruleOptions: RuleOptions.t
        [@ocaml.doc
          "Additional options for the rule. These are the Suricata RuleOptions settings."]}
    let context_ = "StatefulRule"
    let make ~action =
      fun ~header ->
        fun ~ruleOptions -> fun () -> { action; header; ruleOptions }
    let to_value x =
      structure_to_value
        [("Action", (Some (StatefulAction.to_value x.action)));
        ("Header", (Some (Header.to_value x.header)));
        ("RuleOptions", (Some (RuleOptions.to_value x.ruleOptions)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ruleOptions =
        RuleOptions.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RuleOptions") in
      let header =
        Header.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Header") in
      let action =
        StatefulAction.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Action") in
      make ~ruleOptions ~header ~action ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ruleOptions =
        field_map_exn json__ "RuleOptions" RuleOptions.of_json in
      let header = field_map_exn json__ "Header" Header.of_json in
      let action = field_map_exn json__ "Action" StatefulAction.of_json in
      make ~ruleOptions ~header ~action ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A single Suricata rules specification, for use in a stateful rule group. Use this option to specify a simple Suricata rule with protocol, source and destination, ports, direction, and rule options. For information about the Suricata Rules format, see Rules Format."]
module CustomActions =
  struct
    type nonrec t = CustomAction.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:CustomAction.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:CustomAction.of_xml)
    let of_json j =
      list_of_json ~kind:"CustomActions" ~of_json:CustomAction.of_json j
    let to_json v = composed_to_json to_value v
  end
module StatelessRules =
  struct
    type nonrec t = StatelessRule.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:StatelessRule.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:StatelessRule.of_xml)
    let of_json j =
      list_of_json ~kind:"StatelessRules" ~of_json:StatelessRule.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListenerPropertyType =
  struct
    type nonrec t =
      | HTTP 
      | HTTPS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | HTTP -> "HTTP" | HTTPS -> "HTTPS" | Non_static_id s -> s
    let of_string =
      function | "HTTP" -> HTTP | "HTTPS" -> HTTPS | 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 ListenerPropertyType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ListenerPropertyType" j)
    let to_json = simple_to_json to_value
  end
module NatGatewayPort =
  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 NatGatewayPort" 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 ProxyConfigRuleGroupPriority =
  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 ProxyConfigRuleGroupPriority"
           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 ProxyConfigRuleGroupType =
  struct
    type nonrec t = string
    let context_ = "ProxyConfigRuleGroupType"
    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:"ProxyConfigRuleGroupType" j
    let to_json = simple_to_json to_value
  end
module LogDestinationMap =
  struct
    type nonrec t = (HashMapKey.t * HashMapValue.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((HashMapKey.of_string chopped),
                              (HashMapValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (HashMapKey.to_value x) |>
                    (fun x -> (HashMapValue.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:HashMapKey.of_string
        ~of_json:HashMapValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module LogDestinationType =
  struct
    type nonrec t =
      | S3 
      | CloudWatchLogs 
      | KinesisDataFirehose 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | S3 -> "S3"
      | CloudWatchLogs -> "CloudWatchLogs"
      | KinesisDataFirehose -> "KinesisDataFirehose"
      | Non_static_id s -> s
    let of_string =
      function
      | "S3" -> S3
      | "CloudWatchLogs" -> CloudWatchLogs
      | "KinesisDataFirehose" -> KinesisDataFirehose
      | 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 LogDestinationType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"LogDestinationType" j)
    let to_json = simple_to_json to_value
  end
module LogType =
  struct
    type nonrec t =
      | ALERT 
      | FLOW 
      | TLS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ALERT -> "ALERT"
      | FLOW -> "FLOW"
      | TLS -> "TLS"
      | Non_static_id s -> s
    let of_string =
      function
      | "ALERT" -> ALERT
      | "FLOW" -> FLOW
      | "TLS" -> TLS
      | 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 LogType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"LogType" j)
    let to_json = simple_to_json to_value
  end
module TcpIdleTimeoutRangeBound =
  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 TcpIdleTimeoutRangeBound"
           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 DeepThreatInspection =
  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 StatefulRuleGroupOverride =
  struct
    type nonrec t =
      {
      action: OverrideAction.t option
        [@ocaml.doc
          "The action that changes the rule group from DROP to ALERT. This only applies to managed rule groups."]}
    let make ?action = fun () -> { action }
    let to_value x =
      structure_to_value
        [("Action", (Option.map x.action ~f:OverrideAction.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let action =
        (Option.map ~f:OverrideAction.of_xml) (Xml.child xml_arg0 "Action") in
      make ?action ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let action = field_map json__ "Action" OverrideAction.of_json in
      make ?action ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The setting that allows the policy owner to change the behavior of the rule group within a policy."]
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 Attachment =
  struct
    type nonrec t =
      {
      subnetId: AzSubnet.t option
        [@ocaml.doc
          "The unique identifier of the subnet that you've specified to be used for a firewall endpoint."];
      endpointId: EndpointId.t option
        [@ocaml.doc
          "The identifier of the firewall endpoint that Network Firewall has instantiated in the subnet. You use this to identify the firewall endpoint in the VPC route tables, when you redirect the VPC traffic through the endpoint."];
      status: AttachmentStatus.t option
        [@ocaml.doc
          "The current status of the firewall endpoint instantiation in the subnet. When this value is READY, the endpoint is available to handle network traffic. Otherwise, this value reflects its state, for example CREATING or DELETING."];
      statusMessage: StatusMessage.t option
        [@ocaml.doc
          "If Network Firewall fails to create or delete the firewall endpoint in the subnet, it populates this with the reason for the error or failure and how to resolve it. A FAILED status indicates a non-recoverable state, and a ERROR status indicates an issue that you can fix. Depending on the error, it can take as many as 15 minutes to populate this field. For more information about the causes for failiure or errors and solutions available for this field, see Troubleshooting firewall endpoint failures in the Network Firewall Developer Guide."]}
    let make ?subnetId =
      fun ?endpointId ->
        fun ?status ->
          fun ?statusMessage ->
            fun () -> { subnetId; endpointId; status; statusMessage }
    let to_value x =
      structure_to_value
        [("SubnetId", (Option.map x.subnetId ~f:AzSubnet.to_value));
        ("EndpointId", (Option.map x.endpointId ~f:EndpointId.to_value));
        ("Status", (Option.map x.status ~f:AttachmentStatus.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:AttachmentStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let endpointId =
        (Option.map ~f:EndpointId.of_xml) (Xml.child xml_arg0 "EndpointId") in
      let subnetId =
        (Option.map ~f:AzSubnet.of_xml) (Xml.child xml_arg0 "SubnetId") in
      make ?statusMessage ?status ?endpointId ?subnetId ()
    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" AttachmentStatus.of_json in
      let endpointId = field_map json__ "EndpointId" EndpointId.of_json in
      let subnetId = field_map json__ "SubnetId" AzSubnet.of_json in
      make ?statusMessage ?status ?endpointId ?subnetId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The definition and status of the firewall endpoint for a single subnet. In each configured subnet, Network Firewall instantiates a firewall endpoint to handle network traffic. This data type is used for any firewall endpoint type: For Firewall.SubnetMappings, this Attachment is part of the FirewallStatus sync states information. You define firewall subnets using CreateFirewall and AssociateSubnets. For VpcEndpointAssociation, this Attachment is part of the VpcEndpointAssociationStatus sync states information. You define these subnets using CreateVpcEndpointAssociation."]
module ProxyRule =
  struct
    type nonrec t =
      {
      proxyRuleName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the proxy rule. You can't change the name of a proxy rule after you create it."];
      description: Description.t option
        [@ocaml.doc "A description of the proxy rule."];
      action: ProxyRulePhaseAction.t option [@ocaml.doc "Action to take."];
      conditions: ProxyRuleConditionList.t option
        [@ocaml.doc
          "Match criteria that specify what traffic attributes to examine. Conditions include operators (StringEquals, StringLike) and values to match against."]}
    let make ?proxyRuleName =
      fun ?description ->
        fun ?action ->
          fun ?conditions ->
            fun () -> { proxyRuleName; description; action; conditions }
    let to_value x =
      structure_to_value
        [("ProxyRuleName",
           (Option.map x.proxyRuleName ~f:ResourceName.to_value));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("Action", (Option.map x.action ~f:ProxyRulePhaseAction.to_value));
        ("Conditions",
          (Option.map x.conditions ~f:ProxyRuleConditionList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let conditions =
        (Option.map ~f:ProxyRuleConditionList.of_xml)
          (Xml.child xml_arg0 "Conditions") in
      let action =
        (Option.map ~f:ProxyRulePhaseAction.of_xml)
          (Xml.child xml_arg0 "Action") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let proxyRuleName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "ProxyRuleName") in
      make ?conditions ?action ?description ?proxyRuleName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let conditions =
        field_map json__ "Conditions" ProxyRuleConditionList.of_json in
      let action = field_map json__ "Action" ProxyRulePhaseAction.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let proxyRuleName =
        field_map json__ "ProxyRuleName" ResourceName.of_json in
      make ?conditions ?action ?description ?proxyRuleName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Individual rules that define match conditions and actions for application-layer traffic. Rules specify what to inspect (domains, headers, methods) and what action to take (allow, deny, alert)."]
module ProtocolStrings =
  struct
    type nonrec t = ProtocolString.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:ProtocolString.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:ProtocolString.of_xml)
    let of_json j =
      list_of_json ~kind:"ProtocolStrings" ~of_json:ProtocolString.of_json j
    let to_json v = composed_to_json to_value v
  end
module AvailabilityZoneMappingString =
  struct
    type nonrec t = string
    let context_ = "AvailabilityZoneMappingString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () -> check_pattern i ~pattern:"\\S+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AvailabilityZoneMappingString" j
    let to_json = simple_to_json to_value
  end
module IPAddressType =
  struct
    type nonrec t =
      | DUALSTACK 
      | IPV4 
      | IPV6 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DUALSTACK -> "DUALSTACK"
      | IPV4 -> "IPV4"
      | IPV6 -> "IPV6"
      | Non_static_id s -> s
    let of_string =
      function
      | "DUALSTACK" -> DUALSTACK
      | "IPV4" -> IPV4
      | "IPV6" -> IPV6
      | 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 IPAddressType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"IPAddressType" j)
    let to_json = simple_to_json to_value
  end
module IPSetMetadataMap =
  struct
    type nonrec t = (IPSetArn.t * IPSetMetadata.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            let (_ : string) = v in
                            let (_ : string) = chopped in
                            failwith
                              "no of_header for complex types IPSetArn IPSetMetadata"))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (IPSetArn.to_value x) |>
                    (fun x -> (IPSetMetadata.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:IPSetArn.of_string
        ~of_json:IPSetMetadata.of_json j
    let to_json v = composed_to_json to_value v
  end
module SyncStateConfig =
  struct
    type nonrec t = (ResourceName.t * PerObjectStatus.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            let (_ : string) = v in
                            let (_ : string) = chopped in
                            failwith
                              "no of_header for complex types ResourceName PerObjectStatus"))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (ResourceName.to_value x) |>
                    (fun x ->
                       (PerObjectStatus.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:ResourceName.of_string
        ~of_json:PerObjectStatus.of_json j
    let to_json v = composed_to_json to_value v
  end
module InsertPosition =
  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 InsertPosition" 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 TlsCertificateData =
  struct
    type nonrec t =
      {
      certificateArn: ResourceArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the certificate."];
      certificateSerial: CollectionMember_String.t option
        [@ocaml.doc "The serial number of the certificate."];
      status: CollectionMember_String.t option
        [@ocaml.doc "The status of the certificate."];
      statusMessage: StatusReason.t option
        [@ocaml.doc
          "Contains details about the certificate status, including information about certificate errors."]}
    let make ?certificateArn =
      fun ?certificateSerial ->
        fun ?status ->
          fun ?statusMessage ->
            fun () ->
              { certificateArn; certificateSerial; status; statusMessage }
    let to_value x =
      structure_to_value
        [("CertificateArn",
           (Option.map x.certificateArn ~f:ResourceArn.to_value));
        ("CertificateSerial",
          (Option.map x.certificateSerial ~f:CollectionMember_String.to_value));
        ("Status", (Option.map x.status ~f:CollectionMember_String.to_value));
        ("StatusMessage",
          (Option.map x.statusMessage ~f:StatusReason.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statusMessage =
        (Option.map ~f:StatusReason.of_xml)
          (Xml.child xml_arg0 "StatusMessage") in
      let status =
        (Option.map ~f:CollectionMember_String.of_xml)
          (Xml.child xml_arg0 "Status") in
      let certificateSerial =
        (Option.map ~f:CollectionMember_String.of_xml)
          (Xml.child xml_arg0 "CertificateSerial") in
      let certificateArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "CertificateArn") in
      make ?statusMessage ?status ?certificateSerial ?certificateArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statusMessage =
        field_map json__ "StatusMessage" StatusReason.of_json in
      let status = field_map json__ "Status" CollectionMember_String.of_json in
      let certificateSerial =
        field_map json__ "CertificateSerial" CollectionMember_String.of_json in
      let certificateArn =
        field_map json__ "CertificateArn" ResourceArn.of_json in
      make ?statusMessage ?status ?certificateSerial ?certificateArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains metadata about an Certificate Manager certificate."]
module EncryptionType =
  struct
    type nonrec t =
      | CUSTOMER_KMS 
      | AWS_OWNED_KMS_KEY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CUSTOMER_KMS -> "CUSTOMER_KMS"
      | AWS_OWNED_KMS_KEY -> "AWS_OWNED_KMS_KEY"
      | Non_static_id s -> s
    let of_string =
      function
      | "CUSTOMER_KMS" -> CUSTOMER_KMS
      | "AWS_OWNED_KMS_KEY" -> AWS_OWNED_KMS_KEY
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration EncryptionType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"EncryptionType" j)
    let to_json = simple_to_json to_value
  end
module KeyId =
  struct
    type nonrec t = string
    let context_ = "KeyId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () -> check_pattern i ~pattern:".*\\S.*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"KeyId" j
    let to_json = simple_to_json to_value
  end
module Tag =
  struct
    type nonrec t =
      {
      key: TagKey.t
        [@ocaml.doc
          "The part of the key:value pair that defines a tag. You can use a tag key to describe a category of information, such as \"customer.\" Tag keys are case-sensitive."];
      value: TagValue.t
        [@ocaml.doc
          "The part of the key:value pair that defines a tag. You can use a tag value to describe a specific value within a category, such as \"companyA\" or \"companyB.\" Tag values are case-sensitive."]}
    let context_ = "Tag"
    let make ~key = fun ~value -> fun () -> { key; value }
    let to_value x =
      structure_to_value
        [("Key", (Some (TagKey.to_value x.key)));
        ("Value", (Some (TagValue.to_value x.value)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        TagValue.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Value") in
      let key =
        TagKey.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Key") in
      make ~value ~key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map_exn json__ "Value" TagValue.of_json in
      let key = field_map_exn json__ "Key" TagKey.of_json in
      make ~value ~key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A key:value pair associated with an Amazon Web Services resource. The key:value pair can be anything you define. Typically, the tag key represents a category (such as \"environment\") and the tag value represents a specific value within that category (such as \"test,\" \"development,\" or \"production\"). You can add up to 50 tags to each Amazon Web Services resource."]
module ServerCertificateConfiguration =
  struct
    type nonrec t =
      {
      serverCertificates: ServerCertificates.t option
        [@ocaml.doc
          "The list of server certificates to use for inbound SSL/TLS inspection."];
      scopes: ServerCertificateScopes.t option
        [@ocaml.doc "A list of scopes."];
      certificateAuthorityArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the imported certificate authority (CA) certificate within Certificate Manager (ACM) to use for outbound SSL/TLS inspection. The following limitations apply: You can use CA certificates that you imported into ACM, but you can't generate CA certificates with ACM. You can't use certificates issued by Private Certificate Authority. For more information about configuring certificates for outbound inspection, see Using SSL/TLS certificates with TLS inspection configurations in the Network Firewall Developer Guide. For information about working with certificates in ACM, see Importing certificates in the Certificate Manager User Guide."];
      checkCertificateRevocationStatus:
        CheckCertificateRevocationStatusActions.t option
        [@ocaml.doc
          "When enabled, Network Firewall checks if the server certificate presented by the server in the SSL/TLS connection has a revoked or unkown status. If the certificate has an unknown or revoked status, you must specify the actions that Network Firewall takes on outbound traffic. To check the certificate revocation status, you must also specify a CertificateAuthorityArn in ServerCertificateConfiguration."]}
    let make ?serverCertificates =
      fun ?scopes ->
        fun ?certificateAuthorityArn ->
          fun ?checkCertificateRevocationStatus ->
            fun () ->
              {
                serverCertificates;
                scopes;
                certificateAuthorityArn;
                checkCertificateRevocationStatus
              }
    let to_value x =
      structure_to_value
        [("ServerCertificates",
           (Option.map x.serverCertificates ~f:ServerCertificates.to_value));
        ("Scopes", (Option.map x.scopes ~f:ServerCertificateScopes.to_value));
        ("CertificateAuthorityArn",
          (Option.map x.certificateAuthorityArn ~f:ResourceArn.to_value));
        ("CheckCertificateRevocationStatus",
          (Option.map x.checkCertificateRevocationStatus
             ~f:CheckCertificateRevocationStatusActions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let checkCertificateRevocationStatus =
        (Option.map ~f:CheckCertificateRevocationStatusActions.of_xml)
          (Xml.child xml_arg0 "CheckCertificateRevocationStatus") in
      let certificateAuthorityArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "CertificateAuthorityArn") in
      let scopes =
        (Option.map ~f:ServerCertificateScopes.of_xml)
          (Xml.child xml_arg0 "Scopes") in
      let serverCertificates =
        (Option.map ~f:ServerCertificates.of_xml)
          (Xml.child xml_arg0 "ServerCertificates") in
      make ?checkCertificateRevocationStatus ?certificateAuthorityArn ?scopes
        ?serverCertificates ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let checkCertificateRevocationStatus =
        field_map json__ "CheckCertificateRevocationStatus"
          CheckCertificateRevocationStatusActions.of_json in
      let certificateAuthorityArn =
        field_map json__ "CertificateAuthorityArn" ResourceArn.of_json in
      let scopes = field_map json__ "Scopes" ServerCertificateScopes.of_json in
      let serverCertificates =
        field_map json__ "ServerCertificates" ServerCertificates.of_json in
      make ?checkCertificateRevocationStatus ?certificateAuthorityArn ?scopes
        ?serverCertificates ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Configures the Certificate Manager certificates and scope that Network Firewall uses to decrypt and re-encrypt traffic using a TLSInspectionConfiguration. You can configure ServerCertificates for inbound SSL/TLS inspection, a CertificateAuthorityArn for outbound SSL/TLS inspection, or both. For information about working with certificates for TLS inspection, see Using SSL/TLS server certficiates with TLS inspection configurations in the Network Firewall Developer Guide. If a server certificate that's associated with your TLSInspectionConfiguration is revoked, deleted, or expired it can result in client-side TLS errors."]
module AnalysisResult =
  struct
    type nonrec t =
      {
      identifiedRuleIds: RuleIdList.t option
        [@ocaml.doc
          "The priority number of the stateless rules identified in the analysis."];
      identifiedType: IdentifiedType.t option
        [@ocaml.doc
          "The types of rule configurations that Network Firewall analyzes your rule groups for. Network Firewall analyzes stateless rule groups for the following types of rule configurations: STATELESS_RULE_FORWARDING_ASYMMETRICALLY Cause: One or more stateless rules with the action pass or forward are forwarding traffic asymmetrically. Specifically, the rule's set of source IP addresses or their associated port numbers, don't match the set of destination IP addresses or their associated port numbers. To mitigate: Make sure that there's an existing return path. For example, if the rule allows traffic from source 10.1.0.0/24 to destination 20.1.0.0/24, you should allow return traffic from source 20.1.0.0/24 to destination 10.1.0.0/24. STATELESS_RULE_CONTAINS_TCP_FLAGS Cause: At least one stateless rule with the action pass orforward contains TCP flags that are inconsistent in the forward and return directions. To mitigate: Prevent asymmetric routing issues caused by TCP flags by following these actions: Remove unnecessary TCP flag inspections from the rules. If you need to inspect TCP flags, check that the rules correctly account for changes in TCP flags throughout the TCP connection cycle, for example SYN and ACK flags used in a 3-way TCP handshake."];
      analysisDetail: CollectionMember_String.t option
        [@ocaml.doc "Provides analysis details for the identified rule."]}
    let make ?identifiedRuleIds =
      fun ?identifiedType ->
        fun ?analysisDetail ->
          fun () -> { identifiedRuleIds; identifiedType; analysisDetail }
    let to_value x =
      structure_to_value
        [("IdentifiedRuleIds",
           (Option.map x.identifiedRuleIds ~f:RuleIdList.to_value));
        ("IdentifiedType",
          (Option.map x.identifiedType ~f:IdentifiedType.to_value));
        ("AnalysisDetail",
          (Option.map x.analysisDetail ~f:CollectionMember_String.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let analysisDetail =
        (Option.map ~f:CollectionMember_String.of_xml)
          (Xml.child xml_arg0 "AnalysisDetail") in
      let identifiedType =
        (Option.map ~f:IdentifiedType.of_xml)
          (Xml.child xml_arg0 "IdentifiedType") in
      let identifiedRuleIds =
        (Option.map ~f:RuleIdList.of_xml)
          (Xml.child xml_arg0 "IdentifiedRuleIds") in
      make ?analysisDetail ?identifiedType ?identifiedRuleIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let analysisDetail =
        field_map json__ "AnalysisDetail" CollectionMember_String.of_json in
      let identifiedType =
        field_map json__ "IdentifiedType" IdentifiedType.of_json in
      let identifiedRuleIds =
        field_map json__ "IdentifiedRuleIds" RuleIdList.of_json in
      make ?analysisDetail ?identifiedType ?identifiedRuleIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The analysis result for Network Firewall's stateless rule group analyzer. Every time you call CreateRuleGroup, UpdateRuleGroup, or DescribeRuleGroup on a stateless rule group, Network Firewall analyzes the stateless rule groups in your account and identifies the rules that might adversely effect your firewall's functionality. For example, if Network Firewall detects a rule that's routing traffic asymmetrically, which impacts the service's ability to properly process traffic, the service includes the rule in a list of analysis results. The AnalysisResult data type is not related to traffic analysis reports you generate using StartAnalysisReport. For information on traffic analysis report results, see AnalysisTypeReportResult."]
module SummaryRuleOptions =
  struct
    type nonrec t = SummaryRuleOption.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:SummaryRuleOption.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:SummaryRuleOption.of_xml)
    let of_json j =
      list_of_json ~kind:"SummaryRuleOptions"
        ~of_json:SummaryRuleOption.of_json j
    let to_json v = composed_to_json to_value v
  end
module IPSetReferenceMap =
  struct
    type nonrec t = (IPSetReferenceName.t * IPSetReference.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            let (_ : string) = v in
                            let (_ : string) = chopped in
                            failwith
                              "no of_header for complex types IPSetReferenceName IPSetReference"))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (IPSetReferenceName.to_value x) |>
                    (fun x ->
                       (IPSetReference.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:IPSetReferenceName.of_string
        ~of_json:IPSetReference.of_json j
    let to_json v = composed_to_json to_value v
  end
module IPSets =
  struct
    type nonrec t = (RuleVariableName.t * IPSet.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            let (_ : string) = v in
                            let (_ : string) = chopped in
                            failwith
                              "no of_header for complex types RuleVariableName IPSet"))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (RuleVariableName.to_value x) |>
                    (fun x -> (IPSet.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:RuleVariableName.of_string
        ~of_json:IPSet.of_json j
    let to_json v = composed_to_json to_value v
  end
module PortSets =
  struct
    type nonrec t = (RuleVariableName.t * PortSet.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            let (_ : string) = v in
                            let (_ : string) = chopped in
                            failwith
                              "no of_header for complex types RuleVariableName PortSet"))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (RuleVariableName.to_value x) |>
                    (fun x -> (PortSet.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:RuleVariableName.of_string
        ~of_json:PortSet.of_json j
    let to_json v = composed_to_json to_value v
  end
module RulesSourceList =
  struct
    type nonrec t =
      {
      targets: RuleTargets.t
        [@ocaml.doc
          "The domains that you want to inspect for in your traffic flows. Valid domain specifications are the following: Explicit names. For example, abc.example.com matches only the domain abc.example.com. Names that use a domain wildcard, which you indicate with an initial '.'. For example,.example.com matches example.com and matches all subdomains of example.com, such as abc.example.com and www.example.com."];
      targetTypes: TargetTypes.t
        [@ocaml.doc
          "The protocols you want to inspect. Specify TLS_SNI for HTTPS. Specify HTTP_HOST for HTTP. You can specify either or both."];
      generatedRulesType: GeneratedRulesType.t
        [@ocaml.doc
          "Whether you want to apply allow, reject, alert, or drop behavior to the domains in your target list. When logging is enabled and you choose Alert, traffic that matches the domain specifications generates an alert in the firewall's logs. Then, traffic either passes, is rejected, or drops based on other rules in the firewall policy."]}
    let context_ = "RulesSourceList"
    let make ~targets =
      fun ~targetTypes ->
        fun ~generatedRulesType ->
          fun () -> { targets; targetTypes; generatedRulesType }
    let to_value x =
      structure_to_value
        [("Targets", (Some (RuleTargets.to_value x.targets)));
        ("TargetTypes", (Some (TargetTypes.to_value x.targetTypes)));
        ("GeneratedRulesType",
          (Some (GeneratedRulesType.to_value x.generatedRulesType)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let generatedRulesType =
        GeneratedRulesType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GeneratedRulesType") in
      let targetTypes =
        TargetTypes.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TargetTypes") in
      let targets =
        RuleTargets.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Targets") in
      make ~generatedRulesType ~targetTypes ~targets ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let generatedRulesType =
        field_map_exn json__ "GeneratedRulesType" GeneratedRulesType.of_json in
      let targetTypes =
        field_map_exn json__ "TargetTypes" TargetTypes.of_json in
      let targets = field_map_exn json__ "Targets" RuleTargets.of_json in
      make ~generatedRulesType ~targetTypes ~targets ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Stateful inspection criteria for a domain list rule group. For HTTPS traffic, domain filtering is SNI-based. It uses the server name indicator extension of the TLS handshake. By default, Network Firewall domain list inspection only includes traffic coming from the VPC where you deploy the firewall. To inspect traffic from IP addresses outside of the deployment VPC, you set the HOME_NET rule variable to include the CIDR range of the deployment VPC plus the other CIDR ranges. For more information, see RuleVariables in this guide and Stateful domain list rule groups in Network Firewall in the Network Firewall Developer Guide."]
module RulesString =
  struct
    type nonrec t = string
    let context_ = "RulesString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2000000) >>=
             (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:"RulesString" j
    let to_json = simple_to_json to_value
  end
module StatefulRules =
  struct
    type nonrec t = StatefulRule.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:StatefulRule.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:StatefulRule.of_xml)
    let of_json j =
      list_of_json ~kind:"StatefulRules" ~of_json:StatefulRule.of_json j
    let to_json v = composed_to_json to_value v
  end
module StatelessRulesAndCustomActions =
  struct
    type nonrec t =
      {
      statelessRules: StatelessRules.t
        [@ocaml.doc
          "Defines the set of stateless rules for use in a stateless rule group."];
      customActions: CustomActions.t option
        [@ocaml.doc
          "Defines an array of individual custom action definitions that are available for use by the stateless rules in this StatelessRulesAndCustomActions specification. You name each custom action that you define, and then you can use it by name in your StatelessRule RuleDefinition Actions specification."]}
    let context_ = "StatelessRulesAndCustomActions"
    let make ?customActions =
      fun ~statelessRules -> fun () -> { customActions; statelessRules }
    let to_value x =
      structure_to_value
        [("StatelessRules",
           (Some (StatelessRules.to_value x.statelessRules)));
        ("CustomActions",
          (Option.map x.customActions ~f:CustomActions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let customActions =
        (Option.map ~f:CustomActions.of_xml)
          (Xml.child xml_arg0 "CustomActions") in
      let statelessRules =
        StatelessRules.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StatelessRules") in
      make ?customActions ~statelessRules ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let customActions =
        field_map json__ "CustomActions" CustomActions.of_json in
      let statelessRules =
        field_map_exn json__ "StatelessRules" StatelessRules.of_json in
      make ?customActions ~statelessRules ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Stateless inspection criteria. Each stateless rule group uses exactly one of these data types to define its stateless rules."]
module RuleOrder =
  struct
    type nonrec t =
      | DEFAULT_ACTION_ORDER 
      | STRICT_ORDER 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DEFAULT_ACTION_ORDER -> "DEFAULT_ACTION_ORDER"
      | STRICT_ORDER -> "STRICT_ORDER"
      | Non_static_id s -> s
    let of_string =
      function
      | "DEFAULT_ACTION_ORDER" -> DEFAULT_ACTION_ORDER
      | "STRICT_ORDER" -> STRICT_ORDER
      | 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 RuleOrder" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RuleOrder" j)
    let to_json = simple_to_json to_value
  end
module ProxyRuleGroupPriorityResultPriority =
  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 ProxyRuleGroupPriorityResultPriority"
           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 ListenerProperty =
  struct
    type nonrec t =
      {
      port: NatGatewayPort.t option
        [@ocaml.doc "Port for processing traffic."];
      type_: ListenerPropertyType.t option
        [@ocaml.doc "Selection of HTTP or HTTPS traffic."]}
    let make ?port = fun ?type_ -> fun () -> { port; type_ }
    let to_value x =
      structure_to_value
        [("Port", (Option.map x.port ~f:NatGatewayPort.to_value));
        ("Type", (Option.map x.type_ ~f:ListenerPropertyType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ =
        (Option.map ~f:ListenerPropertyType.of_xml)
          (Xml.child xml_arg0 "Type") in
      let port =
        (Option.map ~f:NatGatewayPort.of_xml) (Xml.child xml_arg0 "Port") in
      make ?type_ ?port ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map json__ "Type" ListenerPropertyType.of_json in
      let port = field_map json__ "Port" NatGatewayPort.of_json in
      make ?type_ ?port ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Open port for taking HTTP or HTTPS traffic."]
module TlsInterceptMode =
  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 TlsInterceptMode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TlsInterceptMode" j)
    let to_json = simple_to_json to_value
  end
module ProxyConfigRuleGroup =
  struct
    type nonrec t =
      {
      proxyRuleGroupName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the proxy rule group. You can't change the name of a proxy rule group after you create it."];
      proxyRuleGroupArn: ResourceArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of a proxy rule group."];
      type_: ProxyConfigRuleGroupType.t option
        [@ocaml.doc "Proxy rule group type."];
      priority: ProxyConfigRuleGroupPriority.t option
        [@ocaml.doc
          "Priority of the proxy rule group in the proxy configuration."]}
    let make ?proxyRuleGroupName =
      fun ?proxyRuleGroupArn ->
        fun ?type_ ->
          fun ?priority ->
            fun () ->
              { proxyRuleGroupName; proxyRuleGroupArn; type_; priority }
    let to_value x =
      structure_to_value
        [("ProxyRuleGroupName",
           (Option.map x.proxyRuleGroupName ~f:ResourceName.to_value));
        ("ProxyRuleGroupArn",
          (Option.map x.proxyRuleGroupArn ~f:ResourceArn.to_value));
        ("Type", (Option.map x.type_ ~f:ProxyConfigRuleGroupType.to_value));
        ("Priority",
          (Option.map x.priority ~f:ProxyConfigRuleGroupPriority.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let priority =
        (Option.map ~f:ProxyConfigRuleGroupPriority.of_xml)
          (Xml.child xml_arg0 "Priority") in
      let type_ =
        (Option.map ~f:ProxyConfigRuleGroupType.of_xml)
          (Xml.child xml_arg0 "Type") in
      let proxyRuleGroupArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "ProxyRuleGroupArn") in
      let proxyRuleGroupName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "ProxyRuleGroupName") in
      make ?priority ?type_ ?proxyRuleGroupArn ?proxyRuleGroupName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let priority =
        field_map json__ "Priority" ProxyConfigRuleGroupPriority.of_json in
      let type_ = field_map json__ "Type" ProxyConfigRuleGroupType.of_json in
      let proxyRuleGroupArn =
        field_map json__ "ProxyRuleGroupArn" ResourceArn.of_json in
      let proxyRuleGroupName =
        field_map json__ "ProxyRuleGroupName" ResourceName.of_json in
      make ?priority ?type_ ?proxyRuleGroupArn ?proxyRuleGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Proxy rule group contained within a proxy configuration."]
module LogDestinationConfig =
  struct
    type nonrec t =
      {
      logType: LogType.t
        [@ocaml.doc
          "The type of log to record. You can record the following types of logs from your Network Firewall stateful engine. ALERT - Logs for traffic that matches your stateful rules and that have an action that sends an alert. A stateful rule sends alerts for the rule actions DROP, ALERT, and REJECT. For more information, see StatefulRule. FLOW - Standard network traffic flow logs. The stateful rules engine records flow logs for all network traffic that it receives. Each flow log record captures the network flow for a specific standard stateless rule group. TLS - Logs for events that are related to TLS inspection. For more information, see Inspecting SSL/TLS traffic with TLS inspection configurations in the Network Firewall Developer Guide."];
      logDestinationType: LogDestinationType.t
        [@ocaml.doc
          "The type of storage destination to send these logs to. You can send logs to an Amazon S3 bucket, a CloudWatch log group, or a Firehose delivery stream."];
      logDestination: LogDestinationMap.t
        [@ocaml.doc
          "The named location for the logs, provided in a key:value mapping that is specific to the chosen destination type. For an Amazon S3 bucket, provide the name of the bucket, with key bucketName, and optionally provide a prefix, with key prefix. The following example specifies an Amazon S3 bucket named DOC-EXAMPLE-BUCKET and the prefix alerts: \"LogDestination\": \\{ \"bucketName\": \"DOC-EXAMPLE-BUCKET\", \"prefix\": \"alerts\" \\} For a CloudWatch log group, provide the name of the CloudWatch log group, with key logGroup. The following example specifies a log group named alert-log-group: \"LogDestination\": \\{ \"logGroup\": \"alert-log-group\" \\} For a Firehose delivery stream, provide the name of the delivery stream, with key deliveryStream. The following example specifies a delivery stream named alert-delivery-stream: \"LogDestination\": \\{ \"deliveryStream\": \"alert-delivery-stream\" \\}"]}
    let context_ = "LogDestinationConfig"
    let make ~logType =
      fun ~logDestinationType ->
        fun ~logDestination ->
          fun () -> { logType; logDestinationType; logDestination }
    let to_value x =
      structure_to_value
        [("LogType", (Some (LogType.to_value x.logType)));
        ("LogDestinationType",
          (Some (LogDestinationType.to_value x.logDestinationType)));
        ("LogDestination",
          (Some (LogDestinationMap.to_value x.logDestination)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let logDestination =
        LogDestinationMap.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "LogDestination") in
      let logDestinationType =
        LogDestinationType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "LogDestinationType") in
      let logType =
        LogType.of_xml (Xml.child_exn ~context:context_ xml_arg0 "LogType") in
      make ~logDestination ~logDestinationType ~logType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let logDestination =
        field_map_exn json__ "LogDestination" LogDestinationMap.of_json in
      let logDestinationType =
        field_map_exn json__ "LogDestinationType" LogDestinationType.of_json in
      let logType = field_map_exn json__ "LogType" LogType.of_json in
      make ~logDestination ~logDestinationType ~logType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Defines where Network Firewall sends logs for the firewall for one log type. This is used in LoggingConfiguration. You can send each type of log to an Amazon S3 bucket, a CloudWatch log group, or a Firehose delivery stream. Network Firewall generates logs for stateful rule groups. You can save alert, flow, and TLS log types."]
module FlowTimeouts =
  struct
    type nonrec t =
      {
      tcpIdleTimeoutSeconds: TcpIdleTimeoutRangeBound.t option
        [@ocaml.doc
          "The number of seconds that can pass without any TCP traffic sent through the firewall before the firewall determines that the connection is idle. After the idle timeout passes, data packets are dropped, however, the next TCP SYN packet is considered a new flow and is processed by the firewall. Clients or targets can use TCP keepalive packets to reset the idle timeout. You can define the TcpIdleTimeoutSeconds value to be between 60 and 6000 seconds. If no value is provided, it defaults to 350 seconds."]}
    let make ?tcpIdleTimeoutSeconds = fun () -> { tcpIdleTimeoutSeconds }
    let to_value x =
      structure_to_value
        [("TcpIdleTimeoutSeconds",
           (Option.map x.tcpIdleTimeoutSeconds
              ~f:TcpIdleTimeoutRangeBound.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tcpIdleTimeoutSeconds =
        (Option.map ~f:TcpIdleTimeoutRangeBound.of_xml)
          (Xml.child xml_arg0 "TcpIdleTimeoutSeconds") in
      make ?tcpIdleTimeoutSeconds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tcpIdleTimeoutSeconds =
        field_map json__ "TcpIdleTimeoutSeconds"
          TcpIdleTimeoutRangeBound.of_json in
      make ?tcpIdleTimeoutSeconds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the amount of time that can pass without any traffic sent through the firewall before the firewall determines that the connection is idle and Network Firewall removes the flow entry from its flow table. Existing connections and flows are not impacted when you update this value. Only new connections after you update this value are impacted."]
module StreamExceptionPolicy =
  struct
    type nonrec t =
      | DROP 
      | CONTINUE 
      | REJECT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DROP -> "DROP"
      | CONTINUE -> "CONTINUE"
      | REJECT -> "REJECT"
      | Non_static_id s -> s
    let of_string =
      function
      | "DROP" -> DROP
      | "CONTINUE" -> CONTINUE
      | "REJECT" -> REJECT
      | 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 StreamExceptionPolicy" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"StreamExceptionPolicy" j)
    let to_json = simple_to_json to_value
  end
module StatefulRuleGroupReference =
  struct
    type nonrec t =
      {
      resourceArn: ResourceArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the stateful rule group."];
      priority: Priority.t option
        [@ocaml.doc
          "An integer setting that indicates the order in which to run the stateful rule groups in a single FirewallPolicy. This setting only applies to firewall policies that specify the STRICT_ORDER rule order in the stateful engine options settings. Network Firewall evalutes each stateful rule group against a packet starting with the group that has the lowest priority setting. You must ensure that the priority settings are unique within each policy. You can change the priority settings of your rule groups at any time. To make it easier to insert rule groups later, number them so there's a wide range in between, for example use 100, 200, and so on."];
      override: StatefulRuleGroupOverride.t option
        [@ocaml.doc
          "The action that allows the policy owner to override the behavior of the rule group within a policy."];
      deepThreatInspection: DeepThreatInspection.t option
        [@ocaml.doc
          "Network Firewall plans to augment the active threat defense managed rule group with an additional deep threat inspection capability. When this capability is released, Amazon Web Services will analyze service logs of network traffic processed by these rule groups to identify threat indicators across customers. Amazon Web Services will use these threat indicators to improve the active threat defense managed rule groups and protect the security of Amazon Web Services customers and services. Customers can opt-out of deep threat inspection at any time through the Network Firewall console or API. When customers opt out, Network Firewall will not use the network traffic processed by those customers' active threat defense rule groups for rule group improvement."]}
    let context_ = "StatefulRuleGroupReference"
    let make ?priority =
      fun ?override ->
        fun ?deepThreatInspection ->
          fun ~resourceArn ->
            fun () ->
              { priority; override; deepThreatInspection; resourceArn }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (ResourceArn.to_value x.resourceArn)));
        ("Priority", (Option.map x.priority ~f:Priority.to_value));
        ("Override",
          (Option.map x.override ~f:StatefulRuleGroupOverride.to_value));
        ("DeepThreatInspection",
          (Option.map x.deepThreatInspection ~f:DeepThreatInspection.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deepThreatInspection =
        (Option.map ~f:DeepThreatInspection.of_xml)
          (Xml.child xml_arg0 "DeepThreatInspection") in
      let override =
        (Option.map ~f:StatefulRuleGroupOverride.of_xml)
          (Xml.child xml_arg0 "Override") in
      let priority =
        (Option.map ~f:Priority.of_xml) (Xml.child xml_arg0 "Priority") in
      let resourceArn =
        ResourceArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceArn") in
      make ?deepThreatInspection ?override ?priority ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deepThreatInspection =
        field_map json__ "DeepThreatInspection" DeepThreatInspection.of_json in
      let override =
        field_map json__ "Override" StatefulRuleGroupOverride.of_json in
      let priority = field_map json__ "Priority" Priority.of_json in
      let resourceArn =
        field_map_exn json__ "ResourceArn" ResourceArn.of_json in
      make ?deepThreatInspection ?override ?priority ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Identifier for a single stateful rule group, used in a firewall policy to refer to a rule group."]
module StatelessRuleGroupReference =
  struct
    type nonrec t =
      {
      resourceArn: ResourceArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the stateless rule group."];
      priority: Priority.t
        [@ocaml.doc
          "An integer setting that indicates the order in which to run the stateless rule groups in a single FirewallPolicy. Network Firewall applies each stateless rule group to a packet starting with the group that has the lowest priority setting. You must ensure that the priority settings are unique within each policy."]}
    let context_ = "StatelessRuleGroupReference"
    let make ~resourceArn =
      fun ~priority -> fun () -> { resourceArn; priority }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (ResourceArn.to_value x.resourceArn)));
        ("Priority", (Some (Priority.to_value x.priority)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let priority =
        Priority.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Priority") in
      let resourceArn =
        ResourceArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceArn") in
      make ~priority ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let priority = field_map_exn json__ "Priority" Priority.of_json in
      let resourceArn =
        field_map_exn json__ "ResourceArn" ResourceArn.of_json in
      make ~priority ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Identifier for a single stateless rule group, used in a firewall policy to refer to the rule group."]
module VendorName =
  struct
    type nonrec t = string
    let context_ = "VendorName"
    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:"VendorName" j
    let to_json = simple_to_json to_value
  end
module FlowOperationId =
  struct
    type nonrec t = string
    let context_ = "FlowOperationId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:36) >>=
             (fun () ->
                (check_string_max i ~max:36) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^([0-9a-f]{8})-([0-9a-f]{4}-){3}([0-9a-f]{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:"FlowOperationId" j
    let to_json = simple_to_json to_value
  end
module FlowOperationStatus =
  struct
    type nonrec t =
      | COMPLETED 
      | IN_PROGRESS 
      | FAILED 
      | COMPLETED_WITH_ERRORS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | COMPLETED -> "COMPLETED"
      | IN_PROGRESS -> "IN_PROGRESS"
      | FAILED -> "FAILED"
      | COMPLETED_WITH_ERRORS -> "COMPLETED_WITH_ERRORS"
      | Non_static_id s -> s
    let of_string =
      function
      | "COMPLETED" -> COMPLETED
      | "IN_PROGRESS" -> IN_PROGRESS
      | "FAILED" -> FAILED
      | "COMPLETED_WITH_ERRORS" -> COMPLETED_WITH_ERRORS
      | 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 FlowOperationStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"FlowOperationStatus" j)
    let to_json = simple_to_json to_value
  end
module FlowOperationType =
  struct
    type nonrec t =
      | FLOW_FLUSH 
      | FLOW_CAPTURE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | FLOW_FLUSH -> "FLOW_FLUSH"
      | FLOW_CAPTURE -> "FLOW_CAPTURE"
      | Non_static_id s -> s
    let of_string =
      function
      | "FLOW_FLUSH" -> FLOW_FLUSH
      | "FLOW_CAPTURE" -> FLOW_CAPTURE
      | 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 FlowOperationType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"FlowOperationType" j)
    let to_json = simple_to_json to_value
  end
module FlowRequestTimestamp =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module Age =
  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 Age" 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 ByteCount =
  struct
    type nonrec t = Int64.t
    let make i = i
    let of_string = Int64.of_string
    let to_value x = `Long x
    let to_query v = to_query to_value v
    let to_header x = Int64.to_string x
    let of_xml xml_arg0 =
      Int64.of_string (string_of_xml ~kind:"a long" xml_arg0)
    let of_json j = Int64.of_float (float_of_json ~kind:"a long" j)
    let to_json = simple_to_json to_value
  end
module PacketCount =
  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 PacketCount" 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 TransitGatewayAttachmentId =
  struct
    type nonrec t = string
    let context_ = "TransitGatewayAttachmentId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () ->
                     check_pattern i ~pattern:"^tgw-attach-[0-9a-z]+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TransitGatewayAttachmentId" j
    let to_json = simple_to_json to_value
  end
module AnalysisReportId =
  struct
    type nonrec t = string
    let context_ = "AnalysisReportId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () -> check_pattern i ~pattern:"\\S+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AnalysisReportId" j
    let to_json = simple_to_json to_value
  end
module EnabledAnalysisType =
  struct
    type nonrec t =
      | TLS_SNI 
      | HTTP_HOST 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | TLS_SNI -> "TLS_SNI"
      | HTTP_HOST -> "HTTP_HOST"
      | Non_static_id s -> s
    let of_string =
      function
      | "TLS_SNI" -> TLS_SNI
      | "HTTP_HOST" -> HTTP_HOST
      | 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 EnabledAnalysisType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"EnabledAnalysisType" j)
    let to_json = simple_to_json to_value
  end
module ReportTime =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module Status =
  struct
    type nonrec t = string
    let context_ = "Status"
    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:"Status" j
    let to_json = simple_to_json to_value
  end
module Domain =
  struct
    type nonrec t = string
    let context_ = "Domain"
    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:"Domain" j
    let to_json = simple_to_json to_value
  end
module FirstAccessed =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module Hits =
  struct
    type nonrec t =
      {
      count: Count.t option
        [@ocaml.doc "The number of attempts made to access a domain."]}
    let make ?count = fun () -> { count }
    let to_value x =
      structure_to_value [("Count", (Option.map x.count ~f:Count.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let count = (Option.map ~f:Count.of_xml) (Xml.child xml_arg0 "Count") in
      make ?count ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let count = field_map json__ "Count" Count.of_json in make ?count ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Attempts made to a access domain."]
module LastAccessed =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module UniqueSources =
  struct
    type nonrec t =
      {
      count: Count.t option
        [@ocaml.doc
          "The number of unique source IP addresses that connected to a domain."]}
    let make ?count = fun () -> { count }
    let to_value x =
      structure_to_value [("Count", (Option.map x.count ~f:Count.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let count = (Option.map ~f:Count.of_xml) (Xml.child xml_arg0 "Count") in
      make ?count ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let count = field_map json__ "Count" Count.of_json in make ?count ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A unique source IP address that connected to a domain."]
module AZSyncState =
  struct
    type nonrec t = {
      attachment: Attachment.t option }
    let make ?attachment = fun () -> { attachment }
    let to_value x =
      structure_to_value
        [("Attachment", (Option.map x.attachment ~f:Attachment.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attachment =
        (Option.map ~f:Attachment.of_xml) (Xml.child xml_arg0 "Attachment") in
      make ?attachment ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attachment = field_map json__ "Attachment" Attachment.of_json in
      make ?attachment ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The status of the firewall endpoint defined by a VpcEndpointAssociation."]
module AvailabilityZone =
  struct
    type nonrec t = string
    let context_ = "AvailabilityZone"
    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:"AvailabilityZone" j
    let to_json = simple_to_json to_value
  end
module RuleSummary =
  struct
    type nonrec t =
      {
      sID: CollectionMember_String.t option
        [@ocaml.doc
          "The unique identifier (Signature ID) of the Suricata rule."];
      msg: CollectionMember_String.t option
        [@ocaml.doc "The contents taken from the rule's msg field."];
      metadata: CollectionMember_String.t option
        [@ocaml.doc "The contents of the rule's metadata."]}
    let make ?sID =
      fun ?msg -> fun ?metadata -> fun () -> { sID; msg; metadata }
    let to_value x =
      structure_to_value
        [("SID", (Option.map x.sID ~f:CollectionMember_String.to_value));
        ("Msg", (Option.map x.msg ~f:CollectionMember_String.to_value));
        ("Metadata",
          (Option.map x.metadata ~f:CollectionMember_String.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let metadata =
        (Option.map ~f:CollectionMember_String.of_xml)
          (Xml.child xml_arg0 "Metadata") in
      let msg =
        (Option.map ~f:CollectionMember_String.of_xml)
          (Xml.child xml_arg0 "Msg") in
      let sID =
        (Option.map ~f:CollectionMember_String.of_xml)
          (Xml.child xml_arg0 "SID") in
      make ?metadata ?msg ?sID ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let metadata =
        field_map json__ "Metadata" CollectionMember_String.of_json in
      let msg = field_map json__ "Msg" CollectionMember_String.of_json in
      let sID = field_map json__ "SID" CollectionMember_String.of_json in
      make ?metadata ?msg ?sID ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A complex type containing details about a Suricata rule. Contains: SID Msg Metadata Summaries are available for rule groups you manage and for active threat defense Amazon Web Services managed rule groups."]
module ProxyRuleList =
  struct
    type nonrec t = ProxyRule.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:ProxyRule.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:ProxyRule.of_xml)
    let of_json j =
      list_of_json ~kind:"ProxyRuleList" ~of_json:ProxyRule.of_json j
    let to_json v = composed_to_json to_value v
  end
module FlowFilter =
  struct
    type nonrec t =
      {
      sourceAddress: Address.t option ;
      destinationAddress: Address.t option ;
      sourcePort: Port.t option
        [@ocaml.doc
          "The source port to inspect for. You can specify an individual port, for example 1994 and you can specify a port range, for example 1990:1994. To match with any port, specify ANY."];
      destinationPort: Port.t option
        [@ocaml.doc
          "The destination port to inspect for. You can specify an individual port, for example 1994 and you can specify a port range, for example 1990:1994. To match with any port, specify ANY."];
      protocols: ProtocolStrings.t option
        [@ocaml.doc
          "The protocols to inspect for, specified using the assigned internet protocol number (IANA) for each protocol. If not specified, this matches with any protocol."]}
    let make ?sourceAddress =
      fun ?destinationAddress ->
        fun ?sourcePort ->
          fun ?destinationPort ->
            fun ?protocols ->
              fun () ->
                {
                  sourceAddress;
                  destinationAddress;
                  sourcePort;
                  destinationPort;
                  protocols
                }
    let to_value x =
      structure_to_value
        [("SourceAddress", (Option.map x.sourceAddress ~f:Address.to_value));
        ("DestinationAddress",
          (Option.map x.destinationAddress ~f:Address.to_value));
        ("SourcePort", (Option.map x.sourcePort ~f:Port.to_value));
        ("DestinationPort", (Option.map x.destinationPort ~f:Port.to_value));
        ("Protocols", (Option.map x.protocols ~f:ProtocolStrings.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let protocols =
        (Option.map ~f:ProtocolStrings.of_xml)
          (Xml.child xml_arg0 "Protocols") in
      let destinationPort =
        (Option.map ~f:Port.of_xml) (Xml.child xml_arg0 "DestinationPort") in
      let sourcePort =
        (Option.map ~f:Port.of_xml) (Xml.child xml_arg0 "SourcePort") in
      let destinationAddress =
        (Option.map ~f:Address.of_xml)
          (Xml.child xml_arg0 "DestinationAddress") in
      let sourceAddress =
        (Option.map ~f:Address.of_xml) (Xml.child xml_arg0 "SourceAddress") in
      make ?protocols ?destinationPort ?sourcePort ?destinationAddress
        ?sourceAddress ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let protocols = field_map json__ "Protocols" ProtocolStrings.of_json in
      let destinationPort = field_map json__ "DestinationPort" Port.of_json in
      let sourcePort = field_map json__ "SourcePort" Port.of_json in
      let destinationAddress =
        field_map json__ "DestinationAddress" Address.of_json in
      let sourceAddress = field_map json__ "SourceAddress" Address.of_json in
      make ?protocols ?destinationPort ?sourcePort ?destinationAddress
        ?sourceAddress ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Defines the scope a flow operation. You can use up to 20 filters to configure a single flow operation."]
module AvailabilityZoneMapping =
  struct
    type nonrec t =
      {
      availabilityZone: AvailabilityZoneMappingString.t
        [@ocaml.doc
          "The ID of the Availability Zone where the firewall endpoint is located. For example, us-east-2a. The Availability Zone must be in the same Region as the transit gateway."]}
    let context_ = "AvailabilityZoneMapping"
    let make ~availabilityZone = fun () -> { availabilityZone }
    let to_value x =
      structure_to_value
        [("AvailabilityZone",
           (Some (AvailabilityZoneMappingString.to_value x.availabilityZone)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let availabilityZone =
        AvailabilityZoneMappingString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AvailabilityZone") in
      make ~availabilityZone ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let availabilityZone =
        field_map_exn json__ "AvailabilityZone"
          AvailabilityZoneMappingString.of_json in
      make ~availabilityZone ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Defines the mapping between an Availability Zone and a firewall endpoint for a transit gateway-attached firewall. Each mapping represents where the firewall can process traffic. You use these mappings when calling CreateFirewall, AssociateAvailabilityZones, and DisassociateAvailabilityZones. To retrieve the current Availability Zone mappings for a firewall, use DescribeFirewall."]
module SubnetMapping =
  struct
    type nonrec t =
      {
      subnetId: CollectionMember_String.t
        [@ocaml.doc "The unique identifier for the subnet."];
      iPAddressType: IPAddressType.t option
        [@ocaml.doc
          "The subnet's IP address type. You can't change the IP address type after you create the subnet."]}
    let context_ = "SubnetMapping"
    let make ?iPAddressType =
      fun ~subnetId -> fun () -> { iPAddressType; subnetId }
    let to_value x =
      structure_to_value
        [("SubnetId", (Some (CollectionMember_String.to_value x.subnetId)));
        ("IPAddressType",
          (Option.map x.iPAddressType ~f:IPAddressType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let iPAddressType =
        (Option.map ~f:IPAddressType.of_xml)
          (Xml.child xml_arg0 "IPAddressType") in
      let subnetId =
        CollectionMember_String.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SubnetId") in
      make ?iPAddressType ~subnetId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let iPAddressType =
        field_map json__ "IPAddressType" IPAddressType.of_json in
      let subnetId =
        field_map_exn json__ "SubnetId" CollectionMember_String.of_json in
      make ?iPAddressType ~subnetId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The ID for a subnet that's used in an association with a firewall. This is used in CreateFirewall, AssociateSubnets, and CreateVpcEndpointAssociation. Network Firewall creates an instance of the associated firewall in each subnet that you specify, to filter traffic in the subnet's Availability Zone."]
module CIDRSummary =
  struct
    type nonrec t =
      {
      availableCIDRCount: CIDRCount.t option
        [@ocaml.doc
          "The number of CIDR blocks available for use by the IP set references in a firewall."];
      utilizedCIDRCount: CIDRCount.t option
        [@ocaml.doc
          "The number of CIDR blocks used by the IP set references in a firewall."];
      iPSetReferences: IPSetMetadataMap.t option
        [@ocaml.doc "The list of the IP set references used by a firewall."]}
    let make ?availableCIDRCount =
      fun ?utilizedCIDRCount ->
        fun ?iPSetReferences ->
          fun () ->
            { availableCIDRCount; utilizedCIDRCount; iPSetReferences }
    let to_value x =
      structure_to_value
        [("AvailableCIDRCount",
           (Option.map x.availableCIDRCount ~f:CIDRCount.to_value));
        ("UtilizedCIDRCount",
          (Option.map x.utilizedCIDRCount ~f:CIDRCount.to_value));
        ("IPSetReferences",
          (Option.map x.iPSetReferences ~f:IPSetMetadataMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let iPSetReferences =
        (Option.map ~f:IPSetMetadataMap.of_xml)
          (Xml.child xml_arg0 "IPSetReferences") in
      let utilizedCIDRCount =
        (Option.map ~f:CIDRCount.of_xml)
          (Xml.child xml_arg0 "UtilizedCIDRCount") in
      let availableCIDRCount =
        (Option.map ~f:CIDRCount.of_xml)
          (Xml.child xml_arg0 "AvailableCIDRCount") in
      make ?iPSetReferences ?utilizedCIDRCount ?availableCIDRCount ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let iPSetReferences =
        field_map json__ "IPSetReferences" IPSetMetadataMap.of_json in
      let utilizedCIDRCount =
        field_map json__ "UtilizedCIDRCount" CIDRCount.of_json in
      let availableCIDRCount =
        field_map json__ "AvailableCIDRCount" CIDRCount.of_json in
      make ?iPSetReferences ?utilizedCIDRCount ?availableCIDRCount ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Summarizes the CIDR blocks used by the IP set references in a firewall. Network Firewall calculates the number of CIDRs by taking an aggregated count of all CIDRs used by the IP sets you are referencing."]
module SyncState =
  struct
    type nonrec t =
      {
      attachment: Attachment.t option
        [@ocaml.doc
          "The configuration and status for a single firewall subnet. For each configured subnet, Network Firewall creates the attachment by instantiating the firewall endpoint in the subnet so that it's ready to take traffic."];
      config: SyncStateConfig.t option
        [@ocaml.doc
          "The configuration status of the firewall endpoint in a single VPC subnet. Network Firewall provides each endpoint with the rules that are configured in the firewall policy. Each time you add a subnet or modify the associated firewall policy, Network Firewall synchronizes the rules in the endpoint, so it can properly filter network traffic."]}
    let make ?attachment = fun ?config -> fun () -> { attachment; config }
    let to_value x =
      structure_to_value
        [("Attachment", (Option.map x.attachment ~f:Attachment.to_value));
        ("Config", (Option.map x.config ~f:SyncStateConfig.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let config =
        (Option.map ~f:SyncStateConfig.of_xml) (Xml.child xml_arg0 "Config") in
      let attachment =
        (Option.map ~f:Attachment.of_xml) (Xml.child xml_arg0 "Attachment") in
      make ?config ?attachment ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let config = field_map json__ "Config" SyncStateConfig.of_json in
      let attachment = field_map json__ "Attachment" Attachment.of_json in
      make ?config ?attachment ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The status of the firewall endpoint and firewall policy configuration for a single VPC subnet. This is part of the FirewallStatus. For each VPC subnet that you associate with a firewall, Network Firewall does the following: Instantiates a firewall endpoint in the subnet, ready to take traffic. Configures the endpoint with the current firewall policy settings, to provide the filtering behavior for the endpoint. When you update a firewall, for example to add a subnet association or change a rule group in the firewall policy, the affected sync states reflect out-of-sync or not ready status until the changes are complete."]
module AttachmentId =
  struct
    type nonrec t = string
    let context_ = "AttachmentId"
    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:"AttachmentId" j
    let to_json = simple_to_json to_value
  end
module TransitGatewayAttachmentStatus =
  struct
    type nonrec t =
      | CREATING 
      | DELETING 
      | DELETED 
      | FAILED 
      | ERROR 
      | READY 
      | PENDING_ACCEPTANCE 
      | REJECTING 
      | REJECTED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATING -> "CREATING"
      | DELETING -> "DELETING"
      | DELETED -> "DELETED"
      | FAILED -> "FAILED"
      | ERROR -> "ERROR"
      | READY -> "READY"
      | PENDING_ACCEPTANCE -> "PENDING_ACCEPTANCE"
      | REJECTING -> "REJECTING"
      | REJECTED -> "REJECTED"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATING" -> CREATING
      | "DELETING" -> DELETING
      | "DELETED" -> DELETED
      | "FAILED" -> FAILED
      | "ERROR" -> ERROR
      | "READY" -> READY
      | "PENDING_ACCEPTANCE" -> PENDING_ACCEPTANCE
      | "REJECTING" -> REJECTING
      | "REJECTED" -> REJECTED
      | 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 TransitGatewayAttachmentStatus"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"TransitGatewayAttachmentStatus" j)
    let to_json = simple_to_json to_value
  end
module TransitGatewayAttachmentSyncStateMessage =
  struct
    type nonrec t = string
    let context_ = "TransitGatewayAttachmentSyncStateMessage"
    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:"TransitGatewayAttachmentSyncStateMessage" j
    let to_json = simple_to_json to_value
  end
module CreateProxyRule =
  struct
    type nonrec t =
      {
      proxyRuleName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the proxy rule. You can't change the name of a proxy rule after you create it."];
      description: Description.t option
        [@ocaml.doc "A description of the proxy rule."];
      action: ProxyRulePhaseAction.t option [@ocaml.doc "Action to take."];
      conditions: ProxyRuleConditionList.t option
        [@ocaml.doc
          "Match criteria that specify what traffic attributes to examine. Conditions include operators (StringEquals, StringLike) and values to match against."];
      insertPosition: InsertPosition.t option
        [@ocaml.doc "Where to insert a proxy rule in a proxy rule group."]}
    let make ?proxyRuleName =
      fun ?description ->
        fun ?action ->
          fun ?conditions ->
            fun ?insertPosition ->
              fun () ->
                {
                  proxyRuleName;
                  description;
                  action;
                  conditions;
                  insertPosition
                }
    let to_value x =
      structure_to_value
        [("ProxyRuleName",
           (Option.map x.proxyRuleName ~f:ResourceName.to_value));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("Action", (Option.map x.action ~f:ProxyRulePhaseAction.to_value));
        ("Conditions",
          (Option.map x.conditions ~f:ProxyRuleConditionList.to_value));
        ("InsertPosition",
          (Option.map x.insertPosition ~f:InsertPosition.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let insertPosition =
        (Option.map ~f:InsertPosition.of_xml)
          (Xml.child xml_arg0 "InsertPosition") in
      let conditions =
        (Option.map ~f:ProxyRuleConditionList.of_xml)
          (Xml.child xml_arg0 "Conditions") in
      let action =
        (Option.map ~f:ProxyRulePhaseAction.of_xml)
          (Xml.child xml_arg0 "Action") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let proxyRuleName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "ProxyRuleName") in
      make ?insertPosition ?conditions ?action ?description ?proxyRuleName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let insertPosition =
        field_map json__ "InsertPosition" InsertPosition.of_json in
      let conditions =
        field_map json__ "Conditions" ProxyRuleConditionList.of_json in
      let action = field_map json__ "Action" ProxyRulePhaseAction.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let proxyRuleName =
        field_map json__ "ProxyRuleName" ResourceName.of_json in
      make ?insertPosition ?conditions ?action ?description ?proxyRuleName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Individual rules that define match conditions and actions for application-layer traffic. Rules specify what to inspect (domains, headers, methods) and what action to take (allow, deny, alert)."]
module ErrorMessage =
  struct
    type nonrec t = string
    let context_ = "ErrorMessage"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ErrorMessage" j
    let to_json = simple_to_json to_value
  end
module Certificates =
  struct
    type nonrec t = TlsCertificateData.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:TlsCertificateData.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:TlsCertificateData.of_xml)
    let of_json j =
      list_of_json ~kind:"Certificates" ~of_json:TlsCertificateData.of_json j
    let to_json v = composed_to_json to_value v
  end
module EncryptionConfiguration =
  struct
    type nonrec t =
      {
      keyId: KeyId.t option
        [@ocaml.doc
          "The ID of the Amazon Web Services Key Management Service (KMS) customer managed key. You can use any of the key identifiers that KMS supports, unless you're using a key that's managed by another account. If you're using a key managed by another account, then specify the key ARN. For more information, see Key ID in the Amazon Web Services KMS Developer Guide."];
      type_: EncryptionType.t
        [@ocaml.doc
          "The type of Amazon Web Services KMS key to use for encryption of your Network Firewall resources."]}
    let context_ = "EncryptionConfiguration"
    let make ?keyId = fun ~type_ -> fun () -> { keyId; type_ }
    let to_value x =
      structure_to_value
        [("KeyId", (Option.map x.keyId ~f:KeyId.to_value));
        ("Type", (Some (EncryptionType.to_value x.type_)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ =
        EncryptionType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Type") in
      let keyId = (Option.map ~f:KeyId.of_xml) (Xml.child xml_arg0 "KeyId") in
      make ~type_ ?keyId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map_exn json__ "Type" EncryptionType.of_json in
      let keyId = field_map json__ "KeyId" KeyId.of_json in
      make ~type_ ?keyId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A complex type that contains optional Amazon Web Services Key Management Service (KMS) encryption settings for your Network Firewall resources. Your data is encrypted by default with an Amazon Web Services owned key that Amazon Web Services owns and manages for you. You can use either the Amazon Web Services owned key, or provide your own customer managed key. To learn more about KMS encryption of your Network Firewall resources, see Encryption at rest with Amazon Web Services Key Managment Service in the Network Firewall Developer Guide."]
module LastUpdateTime =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module NumberOfAssociations =
  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 NumberOfAssociations" 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 ResourceId =
  struct
    type nonrec t = string
    let context_ = "ResourceId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:36) >>=
             (fun () ->
                (check_string_max i ~max:36) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^([0-9a-f]{8})-([0-9a-f]{4}-){3}([0-9a-f]{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:"ResourceId" j
    let to_json = simple_to_json to_value
  end
module ResourceStatus =
  struct
    type nonrec t =
      | ACTIVE 
      | DELETING 
      | ERROR 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ACTIVE -> "ACTIVE"
      | DELETING -> "DELETING"
      | ERROR -> "ERROR"
      | Non_static_id s -> s
    let of_string =
      function
      | "ACTIVE" -> ACTIVE
      | "DELETING" -> DELETING
      | "ERROR" -> 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 ResourceStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ResourceStatus" j)
    let to_json = simple_to_json to_value
  end
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) >>=
             (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: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 ServerCertificateConfigurations =
  struct
    type nonrec t = ServerCertificateConfiguration.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:ServerCertificateConfiguration.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:ServerCertificateConfiguration.of_xml)
    let of_json j =
      list_of_json ~kind:"ServerCertificateConfigurations"
        ~of_json:ServerCertificateConfiguration.of_json j
    let to_json v = composed_to_json to_value v
  end
module AnalysisResultList =
  struct
    type nonrec t = AnalysisResult.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:AnalysisResult.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:AnalysisResult.of_xml)
    let of_json j =
      list_of_json ~kind:"AnalysisResultList" ~of_json:AnalysisResult.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module RuleCapacity =
  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 RuleCapacity" 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 RuleGroupType =
  struct
    type nonrec t =
      | STATELESS 
      | STATEFUL 
      | STATEFUL_DOMAIN 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | STATELESS -> "STATELESS"
      | STATEFUL -> "STATEFUL"
      | STATEFUL_DOMAIN -> "STATEFUL_DOMAIN"
      | Non_static_id s -> s
    let of_string =
      function
      | "STATELESS" -> STATELESS
      | "STATEFUL" -> STATEFUL
      | "STATEFUL_DOMAIN" -> STATEFUL_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 RuleGroupType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RuleGroupType" j)
    let to_json = simple_to_json to_value
  end
module SourceMetadata =
  struct
    type nonrec t =
      {
      sourceArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the rule group that your own rule group is copied from."];
      sourceUpdateToken: UpdateToken.t option
        [@ocaml.doc
          "The update token of the Amazon Web Services managed rule group that your own rule group is copied from. To determine the update token for the managed rule group, call DescribeRuleGroup."]}
    let make ?sourceArn =
      fun ?sourceUpdateToken -> fun () -> { sourceArn; sourceUpdateToken }
    let to_value x =
      structure_to_value
        [("SourceArn", (Option.map x.sourceArn ~f:ResourceArn.to_value));
        ("SourceUpdateToken",
          (Option.map x.sourceUpdateToken ~f:UpdateToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sourceUpdateToken =
        (Option.map ~f:UpdateToken.of_xml)
          (Xml.child xml_arg0 "SourceUpdateToken") in
      let sourceArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "SourceArn") in
      make ?sourceUpdateToken ?sourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sourceUpdateToken =
        field_map json__ "SourceUpdateToken" UpdateToken.of_json in
      let sourceArn = field_map json__ "SourceArn" ResourceArn.of_json in
      make ?sourceUpdateToken ?sourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "High-level information about the managed rule group that your own rule group is copied from. You can use the the metadata to track version updates made to the originating rule group. You can retrieve all objects for a rule group by calling DescribeRuleGroup."]
module SummaryConfiguration =
  struct
    type nonrec t =
      {
      ruleOptions: SummaryRuleOptions.t option
        [@ocaml.doc
          "Specifies the selected rule options returned by DescribeRuleGroupSummary."]}
    let make ?ruleOptions = fun () -> { ruleOptions }
    let to_value x =
      structure_to_value
        [("RuleOptions",
           (Option.map x.ruleOptions ~f:SummaryRuleOptions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ruleOptions =
        (Option.map ~f:SummaryRuleOptions.of_xml)
          (Xml.child xml_arg0 "RuleOptions") in
      make ?ruleOptions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ruleOptions =
        field_map json__ "RuleOptions" SummaryRuleOptions.of_json in
      make ?ruleOptions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A complex type that specifies which Suricata rule metadata fields to use when displaying threat information. Contains: RuleOptions - The Suricata rule options fields to extract and display These settings affect how threat information appears in both the console and API responses. Summaries are available for rule groups you manage and for active threat defense Amazon Web Services managed rule groups."]
module ReferenceSets =
  struct
    type nonrec t =
      {
      iPSetReferences: IPSetReferenceMap.t option
        [@ocaml.doc "The list of IP set references."]}
    let make ?iPSetReferences = fun () -> { iPSetReferences }
    let to_value x =
      structure_to_value
        [("IPSetReferences",
           (Option.map x.iPSetReferences ~f:IPSetReferenceMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let iPSetReferences =
        (Option.map ~f:IPSetReferenceMap.of_xml)
          (Xml.child xml_arg0 "IPSetReferences") in
      make ?iPSetReferences ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let iPSetReferences =
        field_map json__ "IPSetReferences" IPSetReferenceMap.of_json in
      make ?iPSetReferences ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains a set of IP set references."]
module RuleVariables =
  struct
    type nonrec t =
      {
      iPSets: IPSets.t option
        [@ocaml.doc
          "A list of IP addresses and address ranges, in CIDR notation."];
      portSets: PortSets.t option [@ocaml.doc "A list of port ranges."]}
    let make ?iPSets = fun ?portSets -> fun () -> { iPSets; portSets }
    let to_value x =
      structure_to_value
        [("IPSets", (Option.map x.iPSets ~f:IPSets.to_value));
        ("PortSets", (Option.map x.portSets ~f:PortSets.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let portSets =
        (Option.map ~f:PortSets.of_xml) (Xml.child xml_arg0 "PortSets") in
      let iPSets =
        (Option.map ~f:IPSets.of_xml) (Xml.child xml_arg0 "IPSets") in
      make ?portSets ?iPSets ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let portSets = field_map json__ "PortSets" PortSets.of_json in
      let iPSets = field_map json__ "IPSets" IPSets.of_json in
      make ?portSets ?iPSets ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Settings that are available for use in the rules in the RuleGroup where this is defined. See CreateRuleGroup or UpdateRuleGroup for usage."]
module RulesSource =
  struct
    type nonrec t =
      {
      rulesString: RulesString.t option
        [@ocaml.doc
          "Stateful inspection criteria, provided in Suricata compatible rules. Suricata is an open-source threat detection framework that includes a standard rule-based language for network traffic inspection. These rules contain the inspection criteria and the action to take for traffic that matches the criteria, so this type of rule group doesn't have a separate action setting. You can't use the priority keyword if the RuleOrder option in StatefulRuleOptions is set to STRICT_ORDER."];
      rulesSourceList: RulesSourceList.t option
        [@ocaml.doc
          "Stateful inspection criteria for a domain list rule group."];
      statefulRules: StatefulRules.t option
        [@ocaml.doc
          "An array of individual stateful rules inspection criteria to be used together in a stateful rule group. Use this option to specify simple Suricata rules with protocol, source and destination, ports, direction, and rule options. For information about the Suricata Rules format, see Rules Format."];
      statelessRulesAndCustomActions: StatelessRulesAndCustomActions.t option
        [@ocaml.doc
          "Stateless inspection criteria to be used in a stateless rule group."]}
    let make ?rulesString =
      fun ?rulesSourceList ->
        fun ?statefulRules ->
          fun ?statelessRulesAndCustomActions ->
            fun () ->
              {
                rulesString;
                rulesSourceList;
                statefulRules;
                statelessRulesAndCustomActions
              }
    let to_value x =
      structure_to_value
        [("RulesString", (Option.map x.rulesString ~f:RulesString.to_value));
        ("RulesSourceList",
          (Option.map x.rulesSourceList ~f:RulesSourceList.to_value));
        ("StatefulRules",
          (Option.map x.statefulRules ~f:StatefulRules.to_value));
        ("StatelessRulesAndCustomActions",
          (Option.map x.statelessRulesAndCustomActions
             ~f:StatelessRulesAndCustomActions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statelessRulesAndCustomActions =
        (Option.map ~f:StatelessRulesAndCustomActions.of_xml)
          (Xml.child xml_arg0 "StatelessRulesAndCustomActions") in
      let statefulRules =
        (Option.map ~f:StatefulRules.of_xml)
          (Xml.child xml_arg0 "StatefulRules") in
      let rulesSourceList =
        (Option.map ~f:RulesSourceList.of_xml)
          (Xml.child xml_arg0 "RulesSourceList") in
      let rulesString =
        (Option.map ~f:RulesString.of_xml) (Xml.child xml_arg0 "RulesString") in
      make ?statelessRulesAndCustomActions ?statefulRules ?rulesSourceList
        ?rulesString ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statelessRulesAndCustomActions =
        field_map json__ "StatelessRulesAndCustomActions"
          StatelessRulesAndCustomActions.of_json in
      let statefulRules =
        field_map json__ "StatefulRules" StatefulRules.of_json in
      let rulesSourceList =
        field_map json__ "RulesSourceList" RulesSourceList.of_json in
      let rulesString = field_map json__ "RulesString" RulesString.of_json in
      make ?statelessRulesAndCustomActions ?statefulRules ?rulesSourceList
        ?rulesString ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The stateless or stateful rules definitions for use in a single rule group. Each rule group requires a single RulesSource. You can use an instance of this for either stateless rules or stateful rules."]
module StatefulRuleOptions =
  struct
    type nonrec t =
      {
      ruleOrder: RuleOrder.t option
        [@ocaml.doc
          "Indicates how to manage the order of the rule evaluation for the rule group. DEFAULT_ACTION_ORDER is the default behavior. Stateful rules are provided to the rule engine as Suricata compatible strings, and Suricata evaluates them based on certain settings. For more information, see Evaluation order for stateful rules in the Network Firewall Developer Guide."]}
    let make ?ruleOrder = fun () -> { ruleOrder }
    let to_value x =
      structure_to_value
        [("RuleOrder", (Option.map x.ruleOrder ~f:RuleOrder.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ruleOrder =
        (Option.map ~f:RuleOrder.of_xml) (Xml.child xml_arg0 "RuleOrder") in
      make ?ruleOrder ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ruleOrder = field_map json__ "RuleOrder" RuleOrder.of_json in
      make ?ruleOrder ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Additional options governing how Network Firewall handles the rule group. You can only use these for stateful rule groups."]
module ProxyRulePriority =
  struct
    type nonrec t =
      {
      proxyRuleName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the proxy rule. You can't change the name of a proxy rule after you create it."];
      newPosition: InsertPosition.t option
        [@ocaml.doc "Where to move a proxy rule in a proxy rule group."]}
    let make ?proxyRuleName =
      fun ?newPosition -> fun () -> { proxyRuleName; newPosition }
    let to_value x =
      structure_to_value
        [("ProxyRuleName",
           (Option.map x.proxyRuleName ~f:ResourceName.to_value));
        ("NewPosition",
          (Option.map x.newPosition ~f:InsertPosition.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let newPosition =
        (Option.map ~f:InsertPosition.of_xml)
          (Xml.child xml_arg0 "NewPosition") in
      let proxyRuleName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "ProxyRuleName") in
      make ?newPosition ?proxyRuleName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let newPosition = field_map json__ "NewPosition" InsertPosition.of_json in
      let proxyRuleName =
        field_map json__ "ProxyRuleName" ResourceName.of_json in
      make ?newPosition ?proxyRuleName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Proxy rule name and new desired position."]
module ProxyRuleGroupPriorityResult =
  struct
    type nonrec t =
      {
      proxyRuleGroupName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the proxy rule group. You can't change the name of a proxy rule group after you create it."];
      priority: ProxyRuleGroupPriorityResultPriority.t option
        [@ocaml.doc
          "Priority of the proxy rule group in the proxy configuration."]}
    let make ?proxyRuleGroupName =
      fun ?priority -> fun () -> { proxyRuleGroupName; priority }
    let to_value x =
      structure_to_value
        [("ProxyRuleGroupName",
           (Option.map x.proxyRuleGroupName ~f:ResourceName.to_value));
        ("Priority",
          (Option.map x.priority
             ~f:ProxyRuleGroupPriorityResultPriority.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let priority =
        (Option.map ~f:ProxyRuleGroupPriorityResultPriority.of_xml)
          (Xml.child xml_arg0 "Priority") in
      let proxyRuleGroupName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "ProxyRuleGroupName") in
      make ?priority ?proxyRuleGroupName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let priority =
        field_map json__ "Priority"
          ProxyRuleGroupPriorityResultPriority.of_json in
      let proxyRuleGroupName =
        field_map json__ "ProxyRuleGroupName" ResourceName.of_json in
      make ?priority ?proxyRuleGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Proxy rule group along with its priority."]
module ProxyRuleGroupPriority =
  struct
    type nonrec t =
      {
      proxyRuleGroupName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the proxy rule group. You can't change the name of a proxy rule group after you create it."];
      newPosition: InsertPosition.t option
        [@ocaml.doc
          "Where to move a proxy rule group in a proxy configuration."]}
    let make ?proxyRuleGroupName =
      fun ?newPosition -> fun () -> { proxyRuleGroupName; newPosition }
    let to_value x =
      structure_to_value
        [("ProxyRuleGroupName",
           (Option.map x.proxyRuleGroupName ~f:ResourceName.to_value));
        ("NewPosition",
          (Option.map x.newPosition ~f:InsertPosition.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let newPosition =
        (Option.map ~f:InsertPosition.of_xml)
          (Xml.child xml_arg0 "NewPosition") in
      let proxyRuleGroupName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "ProxyRuleGroupName") in
      make ?newPosition ?proxyRuleGroupName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let newPosition = field_map json__ "NewPosition" InsertPosition.of_json in
      let proxyRuleGroupName =
        field_map json__ "ProxyRuleGroupName" ResourceName.of_json in
      make ?newPosition ?proxyRuleGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Proxy rule group name and new desired position."]
module CreateTime =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module DeleteTime =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module FailureCode =
  struct
    type nonrec t = string
    let context_ = "FailureCode"
    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:"FailureCode" j
    let to_json = simple_to_json to_value
  end
module FailureMessage =
  struct
    type nonrec t = string
    let context_ = "FailureMessage"
    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:"FailureMessage" j
    let to_json = simple_to_json to_value
  end
module ListenerProperties =
  struct
    type nonrec t = ListenerProperty.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:ListenerProperty.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:ListenerProperty.of_xml)
    let of_json j =
      list_of_json ~kind:"ListenerProperties"
        ~of_json:ListenerProperty.of_json j
    let to_json v = composed_to_json to_value v
  end
module NatGatewayId =
  struct
    type nonrec t = string
    let context_ = "NatGatewayId"
    let make i =
      let open Result in ok_or_failwith (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:"NatGatewayId" j
    let to_json = simple_to_json to_value
  end
module ProxyModifyState =
  struct
    type nonrec t =
      | MODIFYING 
      | COMPLETED 
      | FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | MODIFYING -> "MODIFYING"
      | COMPLETED -> "COMPLETED"
      | FAILED -> "FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "MODIFYING" -> MODIFYING
      | "COMPLETED" -> COMPLETED
      | "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 ProxyModifyState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ProxyModifyState" j)
    let to_json = simple_to_json to_value
  end
module ProxyState =
  struct
    type nonrec t =
      | ATTACHING 
      | ATTACHED 
      | DETACHING 
      | DETACHED 
      | ATTACH_FAILED 
      | DETACH_FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ATTACHING -> "ATTACHING"
      | ATTACHED -> "ATTACHED"
      | DETACHING -> "DETACHING"
      | DETACHED -> "DETACHED"
      | ATTACH_FAILED -> "ATTACH_FAILED"
      | DETACH_FAILED -> "DETACH_FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "ATTACHING" -> ATTACHING
      | "ATTACHED" -> ATTACHED
      | "DETACHING" -> DETACHING
      | "DETACHED" -> DETACHED
      | "ATTACH_FAILED" -> ATTACH_FAILED
      | "DETACH_FAILED" -> DETACH_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 ProxyState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ProxyState" j)
    let to_json = simple_to_json to_value
  end
module TlsInterceptProperties =
  struct
    type nonrec t =
      {
      pcaArn: ResourceArn.t option
        [@ocaml.doc
          "Private Certificate Authority (PCA) used to issue private TLS certificates so that the proxy can present PCA-signed certificates which applications trust through the same root, establishing a secure and consistent trust model for encrypted communication."];
      tlsInterceptMode: TlsInterceptMode.t option
        [@ocaml.doc
          "Specifies whether to enable or disable TLS Intercept Mode."]}
    let make ?pcaArn =
      fun ?tlsInterceptMode -> fun () -> { pcaArn; tlsInterceptMode }
    let to_value x =
      structure_to_value
        [("PcaArn", (Option.map x.pcaArn ~f:ResourceArn.to_value));
        ("TlsInterceptMode",
          (Option.map x.tlsInterceptMode ~f:TlsInterceptMode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tlsInterceptMode =
        (Option.map ~f:TlsInterceptMode.of_xml)
          (Xml.child xml_arg0 "TlsInterceptMode") in
      let pcaArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "PcaArn") in
      make ?tlsInterceptMode ?pcaArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tlsInterceptMode =
        field_map json__ "TlsInterceptMode" TlsInterceptMode.of_json in
      let pcaArn = field_map json__ "PcaArn" ResourceArn.of_json in
      make ?tlsInterceptMode ?pcaArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "TLS decryption on traffic to filter on attributes in the HTTP header."]
module UpdateTime =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module ListenerPropertyRequest =
  struct
    type nonrec t =
      {
      port: NatGatewayPort.t [@ocaml.doc "Port for processing traffic."];
      type_: ListenerPropertyType.t
        [@ocaml.doc "Selection of HTTP or HTTPS traffic."]}
    let context_ = "ListenerPropertyRequest"
    let make ~port = fun ~type_ -> fun () -> { port; type_ }
    let to_value x =
      structure_to_value
        [("Port", (Some (NatGatewayPort.to_value x.port)));
        ("Type", (Some (ListenerPropertyType.to_value x.type_)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ =
        ListenerPropertyType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Type") in
      let port =
        NatGatewayPort.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Port") in
      make ~type_ ~port ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map_exn json__ "Type" ListenerPropertyType.of_json in
      let port = field_map_exn json__ "Port" NatGatewayPort.of_json in
      make ~type_ ~port ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This data type is used specifically for the CreateProxy and UpdateProxy APIs. Open port for taking HTTP or HTTPS traffic."]
module ProxyConfigDefaultRulePhaseActionsRequest =
  struct
    type nonrec t =
      {
      preDNS: ProxyRulePhaseAction.t option
        [@ocaml.doc "Before domain resolution."];
      preREQUEST: ProxyRulePhaseAction.t option
        [@ocaml.doc "After DNS, before request."];
      postRESPONSE: ProxyRulePhaseAction.t option
        [@ocaml.doc "After receiving response."]}
    let make ?preDNS =
      fun ?preREQUEST ->
        fun ?postRESPONSE -> fun () -> { preDNS; preREQUEST; postRESPONSE }
    let to_value x =
      structure_to_value
        [("PreDNS", (Option.map x.preDNS ~f:ProxyRulePhaseAction.to_value));
        ("PreREQUEST",
          (Option.map x.preREQUEST ~f:ProxyRulePhaseAction.to_value));
        ("PostRESPONSE",
          (Option.map x.postRESPONSE ~f:ProxyRulePhaseAction.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let postRESPONSE =
        (Option.map ~f:ProxyRulePhaseAction.of_xml)
          (Xml.child xml_arg0 "PostRESPONSE") in
      let preREQUEST =
        (Option.map ~f:ProxyRulePhaseAction.of_xml)
          (Xml.child xml_arg0 "PreREQUEST") in
      let preDNS =
        (Option.map ~f:ProxyRulePhaseAction.of_xml)
          (Xml.child xml_arg0 "PreDNS") in
      make ?postRESPONSE ?preREQUEST ?preDNS ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let postRESPONSE =
        field_map json__ "PostRESPONSE" ProxyRulePhaseAction.of_json in
      let preREQUEST =
        field_map json__ "PreREQUEST" ProxyRulePhaseAction.of_json in
      let preDNS = field_map json__ "PreDNS" ProxyRulePhaseAction.of_json in
      make ?postRESPONSE ?preREQUEST ?preDNS ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Evaluation points in the traffic flow where rules are applied. There are three phases in a traffic where the rule match is applied. This data type is used specifically for the CreateProxyConfiguration and UpdateProxyConfiguration APIs."]
module ProxyConfigRuleGroupSet =
  struct
    type nonrec t = ProxyConfigRuleGroup.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:ProxyConfigRuleGroup.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:ProxyConfigRuleGroup.of_xml)
    let of_json j =
      list_of_json ~kind:"ProxyConfigRuleGroupSet"
        ~of_json:ProxyConfigRuleGroup.of_json j
    let to_json v = composed_to_json to_value v
  end
module LogDestinationConfigs =
  struct
    type nonrec t = LogDestinationConfig.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:LogDestinationConfig.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:LogDestinationConfig.of_xml)
    let of_json j =
      list_of_json ~kind:"LogDestinationConfigs"
        ~of_json:LogDestinationConfig.of_json j
    let to_json v = composed_to_json to_value v
  end
module EnableTLSSessionHolding =
  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 PolicyVariables =
  struct
    type nonrec t =
      {
      ruleVariables: IPSets.t option
        [@ocaml.doc
          "The IPv4 or IPv6 addresses in CIDR notation to use for the Suricata HOME_NET variable. If your firewall uses an inspection VPC, you might want to override the HOME_NET variable with the CIDRs of your home networks. If you don't override HOME_NET with your own CIDRs, Network Firewall by default uses the CIDR of your inspection VPC."]}
    let make ?ruleVariables = fun () -> { ruleVariables }
    let to_value x =
      structure_to_value
        [("RuleVariables", (Option.map x.ruleVariables ~f:IPSets.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ruleVariables =
        (Option.map ~f:IPSets.of_xml) (Xml.child xml_arg0 "RuleVariables") in
      make ?ruleVariables ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ruleVariables = field_map json__ "RuleVariables" IPSets.of_json in
      make ?ruleVariables ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains variables that you can use to override default Suricata settings in your firewall policy."]
module StatefulActions =
  struct
    type nonrec t = CollectionMember_String.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:CollectionMember_String.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:CollectionMember_String.of_xml)
    let of_json j =
      list_of_json ~kind:"StatefulActions"
        ~of_json:CollectionMember_String.of_json j
    let to_json v = composed_to_json to_value v
  end
module StatefulEngineOptions =
  struct
    type nonrec t =
      {
      ruleOrder: RuleOrder.t option
        [@ocaml.doc
          "Indicates how to manage the order of stateful rule evaluation for the policy. STRICT_ORDER is the recommended option, but DEFAULT_ACTION_ORDER is the default option. With STRICT_ORDER, provide your rules in the order that you want them to be evaluated. You can then choose one or more default actions for packets that don't match any rules. Choose STRICT_ORDER to have the stateful rules engine determine the evaluation order of your rules. The default action for this rule order is PASS, followed by DROP, REJECT, and ALERT actions. Stateful rules are provided to the rule engine as Suricata compatible strings, and Suricata evaluates them based on your settings. For more information, see Evaluation order for stateful rules in the Network Firewall Developer Guide."];
      streamExceptionPolicy: StreamExceptionPolicy.t option
        [@ocaml.doc
          "Configures how Network Firewall processes traffic when a network connection breaks midstream. Network connections can break due to disruptions in external networks or within the firewall itself. DROP - Network Firewall fails closed and drops all subsequent traffic going to the firewall. This is the default behavior. CONTINUE - Network Firewall continues to apply rules to the subsequent traffic without context from traffic before the break. This impacts the behavior of rules that depend on this context. For example, if you have a stateful rule to drop http traffic, Network Firewall won't match the traffic for this rule because the service won't have the context from session initialization defining the application layer protocol as HTTP. However, this behavior is rule dependent\226\128\148a TCP-layer rule using a flow:stateless rule would still match, as would the aws:drop_strict default action. REJECT - Network Firewall fails closed and drops all subsequent traffic going to the firewall. Network Firewall also sends a TCP reject packet back to your client so that the client can immediately establish a new session. Network Firewall will have context about the new session and will apply rules to the subsequent traffic."];
      flowTimeouts: FlowTimeouts.t option
        [@ocaml.doc
          "Configures the amount of time that can pass without any traffic sent through the firewall before the firewall determines that the connection is idle."]}
    let make ?ruleOrder =
      fun ?streamExceptionPolicy ->
        fun ?flowTimeouts ->
          fun () -> { ruleOrder; streamExceptionPolicy; flowTimeouts }
    let to_value x =
      structure_to_value
        [("RuleOrder", (Option.map x.ruleOrder ~f:RuleOrder.to_value));
        ("StreamExceptionPolicy",
          (Option.map x.streamExceptionPolicy
             ~f:StreamExceptionPolicy.to_value));
        ("FlowTimeouts",
          (Option.map x.flowTimeouts ~f:FlowTimeouts.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let flowTimeouts =
        (Option.map ~f:FlowTimeouts.of_xml)
          (Xml.child xml_arg0 "FlowTimeouts") in
      let streamExceptionPolicy =
        (Option.map ~f:StreamExceptionPolicy.of_xml)
          (Xml.child xml_arg0 "StreamExceptionPolicy") in
      let ruleOrder =
        (Option.map ~f:RuleOrder.of_xml) (Xml.child xml_arg0 "RuleOrder") in
      make ?flowTimeouts ?streamExceptionPolicy ?ruleOrder ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let flowTimeouts = field_map json__ "FlowTimeouts" FlowTimeouts.of_json in
      let streamExceptionPolicy =
        field_map json__ "StreamExceptionPolicy"
          StreamExceptionPolicy.of_json in
      let ruleOrder = field_map json__ "RuleOrder" RuleOrder.of_json in
      make ?flowTimeouts ?streamExceptionPolicy ?ruleOrder ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Configuration settings for the handling of the stateful rule groups in a firewall policy."]
module StatefulRuleGroupReferences =
  struct
    type nonrec t = StatefulRuleGroupReference.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:StatefulRuleGroupReference.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:StatefulRuleGroupReference.of_xml)
    let of_json j =
      list_of_json ~kind:"StatefulRuleGroupReferences"
        ~of_json:StatefulRuleGroupReference.of_json j
    let to_json v = composed_to_json to_value v
  end
module StatelessRuleGroupReferences =
  struct
    type nonrec t = StatelessRuleGroupReference.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:StatelessRuleGroupReference.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:StatelessRuleGroupReference.of_xml)
    let of_json j =
      list_of_json ~kind:"StatelessRuleGroupReferences"
        ~of_json:StatelessRuleGroupReference.of_json j
    let to_json v = composed_to_json to_value v
  end
module VpcEndpointAssociationMetadata =
  struct
    type nonrec t =
      {
      vpcEndpointAssociationArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of a VPC endpoint association."]}
    let make ?vpcEndpointAssociationArn =
      fun () -> { vpcEndpointAssociationArn }
    let to_value x =
      structure_to_value
        [("VpcEndpointAssociationArn",
           (Option.map x.vpcEndpointAssociationArn ~f:ResourceArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vpcEndpointAssociationArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "VpcEndpointAssociationArn") in
      make ?vpcEndpointAssociationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vpcEndpointAssociationArn =
        field_map json__ "VpcEndpointAssociationArn" ResourceArn.of_json in
      make ?vpcEndpointAssociationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "High-level information about a VPC endpoint association, returned by ListVpcEndpointAssociations. You can use the information provided in the metadata to retrieve and manage a VPC endpoint association."]
module TLSInspectionConfigurationMetadata =
  struct
    type nonrec t =
      {
      name: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the TLS inspection configuration. You can't change the name of a TLS inspection configuration after you create it."];
      arn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the TLS inspection configuration."]}
    let make ?name = fun ?arn -> fun () -> { name; arn }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:ResourceName.to_value));
        ("Arn", (Option.map x.arn ~f:ResourceArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn = (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "Arn") in
      let name =
        (Option.map ~f:ResourceName.of_xml) (Xml.child xml_arg0 "Name") in
      make ?arn ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map json__ "Arn" ResourceArn.of_json in
      let name = field_map json__ "Name" ResourceName.of_json in
      make ?arn ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "High-level information about a TLS inspection configuration, returned by ListTLSInspectionConfigurations. You can use the information provided in the metadata to retrieve and manage a TLS configuration."]
module RuleGroupMetadata =
  struct
    type nonrec t =
      {
      name: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the rule group. You can't change the name of a rule group after you create it."];
      arn: ResourceArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the rule group."];
      vendorName: VendorName.t option
        [@ocaml.doc
          "The name of the Amazon Web Services Marketplace seller that provides this rule group."]}
    let make ?name =
      fun ?arn -> fun ?vendorName -> fun () -> { name; arn; vendorName }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:ResourceName.to_value));
        ("Arn", (Option.map x.arn ~f:ResourceArn.to_value));
        ("VendorName", (Option.map x.vendorName ~f:VendorName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vendorName =
        (Option.map ~f:VendorName.of_xml) (Xml.child xml_arg0 "VendorName") in
      let arn = (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "Arn") in
      let name =
        (Option.map ~f:ResourceName.of_xml) (Xml.child xml_arg0 "Name") in
      make ?vendorName ?arn ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vendorName = field_map json__ "VendorName" VendorName.of_json in
      let arn = field_map json__ "Arn" ResourceArn.of_json in
      let name = field_map json__ "Name" ResourceName.of_json in
      make ?vendorName ?arn ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "High-level information about a rule group, returned by ListRuleGroups. You can use the information provided in the metadata to retrieve and manage a rule group."]
module ProxyRuleGroupMetadata =
  struct
    type nonrec t =
      {
      name: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the proxy rule group. You can't change the name of a proxy rule group after you create it."];
      arn: ResourceArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of a proxy rule group."]}
    let make ?name = fun ?arn -> fun () -> { name; arn }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:ResourceName.to_value));
        ("Arn", (Option.map x.arn ~f:ResourceArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn = (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "Arn") in
      let name =
        (Option.map ~f:ResourceName.of_xml) (Xml.child xml_arg0 "Name") in
      make ?arn ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map json__ "Arn" ResourceArn.of_json in
      let name = field_map json__ "Name" ResourceName.of_json in
      make ?arn ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "High-level information about a proxy rule group, returned by operations like create and describe. You can use the information provided in the metadata to retrieve and manage a proxy rule group. You can retrieve all objects for a proxy rule group by calling DescribeProxyRuleGroup."]
module ProxyConfigurationMetadata =
  struct
    type nonrec t =
      {
      name: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the proxy configuration. You can't change the name of a proxy configuration after you create it."];
      arn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of a proxy configuration."]}
    let make ?name = fun ?arn -> fun () -> { name; arn }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:ResourceName.to_value));
        ("Arn", (Option.map x.arn ~f:ResourceArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn = (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "Arn") in
      let name =
        (Option.map ~f:ResourceName.of_xml) (Xml.child xml_arg0 "Name") in
      make ?arn ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map json__ "Arn" ResourceArn.of_json in
      let name = field_map json__ "Name" ResourceName.of_json in
      make ?arn ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "High-level information about a proxy configuration, returned by operations like create and describe. You can use the information provided in the metadata to retrieve and manage a proxy configuration. You can retrieve all objects for a proxy configuration by calling DescribeProxyConfiguration."]
module ProxyMetadata =
  struct
    type nonrec t =
      {
      name: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the proxy. You can't change the name of a proxy after you create it."];
      arn: ResourceArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of a proxy."]}
    let make ?name = fun ?arn -> fun () -> { name; arn }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:ResourceName.to_value));
        ("Arn", (Option.map x.arn ~f:ResourceArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn = (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "Arn") in
      let name =
        (Option.map ~f:ResourceName.of_xml) (Xml.child xml_arg0 "Name") in
      make ?arn ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map json__ "Arn" ResourceArn.of_json in
      let name = field_map json__ "Name" ResourceName.of_json in
      make ?arn ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "High-level information about a proxy, returned by operations like create and describe. You can use the information provided in the metadata to retrieve and manage a proxy. You can retrieve all objects for a proxy by calling DescribeProxy."]
module FlowOperationMetadata =
  struct
    type nonrec t =
      {
      flowOperationId: FlowOperationId.t option
        [@ocaml.doc
          "A unique identifier for the flow operation. This ID is returned in the responses to start and list commands. You provide to describe commands."];
      flowOperationType: FlowOperationType.t option
        [@ocaml.doc "Defines the type of FlowOperation."];
      flowRequestTimestamp: FlowRequestTimestamp.t option
        [@ocaml.doc
          "A timestamp indicating when the Suricata engine identified flows impacted by an operation."];
      flowOperationStatus: FlowOperationStatus.t option
        [@ocaml.doc
          "Returns the status of the flow operation. This string is returned in the responses to start, list, and describe commands. If the status is COMPLETED_WITH_ERRORS, results may be returned with any number of Flows missing from the response. If the status is FAILED, Flows returned will be empty."]}
    let make ?flowOperationId =
      fun ?flowOperationType ->
        fun ?flowRequestTimestamp ->
          fun ?flowOperationStatus ->
            fun () ->
              {
                flowOperationId;
                flowOperationType;
                flowRequestTimestamp;
                flowOperationStatus
              }
    let to_value x =
      structure_to_value
        [("FlowOperationId",
           (Option.map x.flowOperationId ~f:FlowOperationId.to_value));
        ("FlowOperationType",
          (Option.map x.flowOperationType ~f:FlowOperationType.to_value));
        ("FlowRequestTimestamp",
          (Option.map x.flowRequestTimestamp ~f:FlowRequestTimestamp.to_value));
        ("FlowOperationStatus",
          (Option.map x.flowOperationStatus ~f:FlowOperationStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let flowOperationStatus =
        (Option.map ~f:FlowOperationStatus.of_xml)
          (Xml.child xml_arg0 "FlowOperationStatus") in
      let flowRequestTimestamp =
        (Option.map ~f:FlowRequestTimestamp.of_xml)
          (Xml.child xml_arg0 "FlowRequestTimestamp") in
      let flowOperationType =
        (Option.map ~f:FlowOperationType.of_xml)
          (Xml.child xml_arg0 "FlowOperationType") in
      let flowOperationId =
        (Option.map ~f:FlowOperationId.of_xml)
          (Xml.child xml_arg0 "FlowOperationId") in
      make ?flowOperationStatus ?flowRequestTimestamp ?flowOperationType
        ?flowOperationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let flowOperationStatus =
        field_map json__ "FlowOperationStatus" FlowOperationStatus.of_json in
      let flowRequestTimestamp =
        field_map json__ "FlowRequestTimestamp" FlowRequestTimestamp.of_json in
      let flowOperationType =
        field_map json__ "FlowOperationType" FlowOperationType.of_json in
      let flowOperationId =
        field_map json__ "FlowOperationId" FlowOperationId.of_json in
      make ?flowOperationStatus ?flowRequestTimestamp ?flowOperationType
        ?flowOperationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An array of objects with metadata about the requested FlowOperation."]
module Flow =
  struct
    type nonrec t =
      {
      sourceAddress: Address.t option ;
      destinationAddress: Address.t option ;
      sourcePort: Port.t option
        [@ocaml.doc
          "The source port to inspect for. You can specify an individual port, for example 1994 and you can specify a port range, for example 1990:1994. To match with any port, specify ANY."];
      destinationPort: Port.t option
        [@ocaml.doc
          "The destination port to inspect for. You can specify an individual port, for example 1994 and you can specify a port range, for example 1990:1994. To match with any port, specify ANY."];
      protocol: ProtocolString.t option
        [@ocaml.doc
          "The protocols to inspect for, specified using the assigned internet protocol number (IANA) for each protocol. If not specified, this matches with any protocol."];
      age: Age.t option
        [@ocaml.doc
          "Returned as info about age of the flows identified by the flow operation."];
      packetCount: PacketCount.t option
        [@ocaml.doc
          "Returns the total number of data packets received or transmitted in a flow."];
      byteCount: ByteCount.t option
        [@ocaml.doc
          "Returns the number of bytes received or transmitted in a specific flow."]}
    let make ?sourceAddress =
      fun ?destinationAddress ->
        fun ?sourcePort ->
          fun ?destinationPort ->
            fun ?protocol ->
              fun ?age ->
                fun ?packetCount ->
                  fun ?byteCount ->
                    fun () ->
                      {
                        sourceAddress;
                        destinationAddress;
                        sourcePort;
                        destinationPort;
                        protocol;
                        age;
                        packetCount;
                        byteCount
                      }
    let to_value x =
      structure_to_value
        [("SourceAddress", (Option.map x.sourceAddress ~f:Address.to_value));
        ("DestinationAddress",
          (Option.map x.destinationAddress ~f:Address.to_value));
        ("SourcePort", (Option.map x.sourcePort ~f:Port.to_value));
        ("DestinationPort", (Option.map x.destinationPort ~f:Port.to_value));
        ("Protocol", (Option.map x.protocol ~f:ProtocolString.to_value));
        ("Age", (Option.map x.age ~f:Age.to_value));
        ("PacketCount", (Option.map x.packetCount ~f:PacketCount.to_value));
        ("ByteCount", (Option.map x.byteCount ~f:ByteCount.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let byteCount =
        (Option.map ~f:ByteCount.of_xml) (Xml.child xml_arg0 "ByteCount") in
      let packetCount =
        (Option.map ~f:PacketCount.of_xml) (Xml.child xml_arg0 "PacketCount") in
      let age = (Option.map ~f:Age.of_xml) (Xml.child xml_arg0 "Age") in
      let protocol =
        (Option.map ~f:ProtocolString.of_xml) (Xml.child xml_arg0 "Protocol") in
      let destinationPort =
        (Option.map ~f:Port.of_xml) (Xml.child xml_arg0 "DestinationPort") in
      let sourcePort =
        (Option.map ~f:Port.of_xml) (Xml.child xml_arg0 "SourcePort") in
      let destinationAddress =
        (Option.map ~f:Address.of_xml)
          (Xml.child xml_arg0 "DestinationAddress") in
      let sourceAddress =
        (Option.map ~f:Address.of_xml) (Xml.child xml_arg0 "SourceAddress") in
      make ?byteCount ?packetCount ?age ?protocol ?destinationPort
        ?sourcePort ?destinationAddress ?sourceAddress ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let byteCount = field_map json__ "ByteCount" ByteCount.of_json in
      let packetCount = field_map json__ "PacketCount" PacketCount.of_json in
      let age = field_map json__ "Age" Age.of_json in
      let protocol = field_map json__ "Protocol" ProtocolString.of_json in
      let destinationPort = field_map json__ "DestinationPort" Port.of_json in
      let sourcePort = field_map json__ "SourcePort" Port.of_json in
      let destinationAddress =
        field_map json__ "DestinationAddress" Address.of_json in
      let sourceAddress = field_map json__ "SourceAddress" Address.of_json in
      make ?byteCount ?packetCount ?age ?protocol ?destinationPort
        ?sourcePort ?destinationAddress ?sourceAddress ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Any number of arrays, where each array is a single flow identified in the scope of the operation. If multiple flows were in the scope of the operation, multiple Flows arrays are returned."]
module FirewallMetadata =
  struct
    type nonrec t =
      {
      firewallName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the firewall. You can't change the name of a firewall after you create it."];
      firewallArn: ResourceArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the firewall."];
      transitGatewayAttachmentId: TransitGatewayAttachmentId.t option
        [@ocaml.doc
          "The unique identifier of the transit gateway attachment associated with this firewall. This field is only present for transit gateway-attached firewalls."]}
    let make ?firewallName =
      fun ?firewallArn ->
        fun ?transitGatewayAttachmentId ->
          fun () -> { firewallName; firewallArn; transitGatewayAttachmentId }
    let to_value x =
      structure_to_value
        [("FirewallName",
           (Option.map x.firewallName ~f:ResourceName.to_value));
        ("FirewallArn", (Option.map x.firewallArn ~f:ResourceArn.to_value));
        ("TransitGatewayAttachmentId",
          (Option.map x.transitGatewayAttachmentId
             ~f:TransitGatewayAttachmentId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let transitGatewayAttachmentId =
        (Option.map ~f:TransitGatewayAttachmentId.of_xml)
          (Xml.child xml_arg0 "TransitGatewayAttachmentId") in
      let firewallArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "FirewallArn") in
      let firewallName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "FirewallName") in
      make ?transitGatewayAttachmentId ?firewallArn ?firewallName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let transitGatewayAttachmentId =
        field_map json__ "TransitGatewayAttachmentId"
          TransitGatewayAttachmentId.of_json in
      let firewallArn = field_map json__ "FirewallArn" ResourceArn.of_json in
      let firewallName = field_map json__ "FirewallName" ResourceName.of_json in
      make ?transitGatewayAttachmentId ?firewallArn ?firewallName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "High-level information about a firewall, returned by operations like create and describe. You can use the information provided in the metadata to retrieve and manage a firewall."]
module VpcId =
  struct
    type nonrec t = string
    let context_ = "VpcId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () -> check_pattern i ~pattern:"^vpc-[0-9a-f]+$")));
        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:"VpcId" j
    let to_json = simple_to_json to_value
  end
module FirewallPolicyMetadata =
  struct
    type nonrec t =
      {
      name: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the firewall policy. You can't change the name of a firewall policy after you create it."];
      arn: ResourceArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the firewall policy."]}
    let make ?name = fun ?arn -> fun () -> { name; arn }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:ResourceName.to_value));
        ("Arn", (Option.map x.arn ~f:ResourceArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn = (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "Arn") in
      let name =
        (Option.map ~f:ResourceName.of_xml) (Xml.child xml_arg0 "Name") in
      make ?arn ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map json__ "Arn" ResourceArn.of_json in
      let name = field_map json__ "Name" ResourceName.of_json in
      make ?arn ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "High-level information about a firewall policy, returned by operations like create and describe. You can use the information provided in the metadata to retrieve and manage a firewall policy. You can retrieve all objects for a firewall policy by calling DescribeFirewallPolicy."]
module AnalysisReport =
  struct
    type nonrec t =
      {
      analysisReportId: AnalysisReportId.t option
        [@ocaml.doc
          "The unique ID of the query that ran when you requested an analysis report."];
      analysisType: EnabledAnalysisType.t option
        [@ocaml.doc
          "The type of traffic that will be used to generate a report."];
      reportTime: ReportTime.t option
        [@ocaml.doc "The date and time the analysis report was ran."];
      status: Status.t option
        [@ocaml.doc
          "The status of the analysis report you specify. Statuses include RUNNING, COMPLETED, or FAILED."]}
    let make ?analysisReportId =
      fun ?analysisType ->
        fun ?reportTime ->
          fun ?status ->
            fun () -> { analysisReportId; analysisType; reportTime; status }
    let to_value x =
      structure_to_value
        [("AnalysisReportId",
           (Option.map x.analysisReportId ~f:AnalysisReportId.to_value));
        ("AnalysisType",
          (Option.map x.analysisType ~f:EnabledAnalysisType.to_value));
        ("ReportTime", (Option.map x.reportTime ~f:ReportTime.to_value));
        ("Status", (Option.map x.status ~f:Status.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:Status.of_xml) (Xml.child xml_arg0 "Status") in
      let reportTime =
        (Option.map ~f:ReportTime.of_xml) (Xml.child xml_arg0 "ReportTime") in
      let analysisType =
        (Option.map ~f:EnabledAnalysisType.of_xml)
          (Xml.child xml_arg0 "AnalysisType") in
      let analysisReportId =
        (Option.map ~f:AnalysisReportId.of_xml)
          (Xml.child xml_arg0 "AnalysisReportId") in
      make ?status ?reportTime ?analysisType ?analysisReportId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" Status.of_json in
      let reportTime = field_map json__ "ReportTime" ReportTime.of_json in
      let analysisType =
        field_map json__ "AnalysisType" EnabledAnalysisType.of_json in
      let analysisReportId =
        field_map json__ "AnalysisReportId" AnalysisReportId.of_json in
      make ?status ?reportTime ?analysisType ?analysisReportId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A report that captures key activity from the last 30 days of network traffic monitored by your firewall. You can generate up to one report per traffic type, per 30 day period. For example, when you successfully create an HTTP traffic report, you cannot create another HTTP traffic report until 30 days pass. Alternatively, if you generate a report that combines metrics on both HTTP and HTTPS traffic, you cannot create another report for either traffic type until 30 days pass."]
module AnalysisTypeReportResult =
  struct
    type nonrec t =
      {
      protocol: CollectionMember_String.t option
        [@ocaml.doc "The type of traffic captured by the analysis report."];
      firstAccessed: FirstAccessed.t option
        [@ocaml.doc
          "The date and time any domain was first accessed (within the last 30 day period)."];
      lastAccessed: LastAccessed.t option
        [@ocaml.doc
          "The date and time any domain was last accessed (within the last 30 day period)."];
      domain: Domain.t option
        [@ocaml.doc "The most frequently accessed domains."];
      hits: Hits.t option
        [@ocaml.doc
          "The number of attempts made to access a observed domain."];
      uniqueSources: UniqueSources.t option
        [@ocaml.doc
          "The number of unique source IP addresses that connected to a domain."]}
    let make ?protocol =
      fun ?firstAccessed ->
        fun ?lastAccessed ->
          fun ?domain ->
            fun ?hits ->
              fun ?uniqueSources ->
                fun () ->
                  {
                    protocol;
                    firstAccessed;
                    lastAccessed;
                    domain;
                    hits;
                    uniqueSources
                  }
    let to_value x =
      structure_to_value
        [("Protocol",
           (Option.map x.protocol ~f:CollectionMember_String.to_value));
        ("FirstAccessed",
          (Option.map x.firstAccessed ~f:FirstAccessed.to_value));
        ("LastAccessed",
          (Option.map x.lastAccessed ~f:LastAccessed.to_value));
        ("Domain", (Option.map x.domain ~f:Domain.to_value));
        ("Hits", (Option.map x.hits ~f:Hits.to_value));
        ("UniqueSources",
          (Option.map x.uniqueSources ~f:UniqueSources.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let uniqueSources =
        (Option.map ~f:UniqueSources.of_xml)
          (Xml.child xml_arg0 "UniqueSources") in
      let hits = (Option.map ~f:Hits.of_xml) (Xml.child xml_arg0 "Hits") in
      let domain =
        (Option.map ~f:Domain.of_xml) (Xml.child xml_arg0 "Domain") in
      let lastAccessed =
        (Option.map ~f:LastAccessed.of_xml)
          (Xml.child xml_arg0 "LastAccessed") in
      let firstAccessed =
        (Option.map ~f:FirstAccessed.of_xml)
          (Xml.child xml_arg0 "FirstAccessed") in
      let protocol =
        (Option.map ~f:CollectionMember_String.of_xml)
          (Xml.child xml_arg0 "Protocol") in
      make ?uniqueSources ?hits ?domain ?lastAccessed ?firstAccessed
        ?protocol ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let uniqueSources =
        field_map json__ "UniqueSources" UniqueSources.of_json in
      let hits = field_map json__ "Hits" Hits.of_json in
      let domain = field_map json__ "Domain" Domain.of_json in
      let lastAccessed = field_map json__ "LastAccessed" LastAccessed.of_json in
      let firstAccessed =
        field_map json__ "FirstAccessed" FirstAccessed.of_json in
      let protocol =
        field_map json__ "Protocol" CollectionMember_String.of_json in
      make ?uniqueSources ?hits ?domain ?lastAccessed ?firstAccessed
        ?protocol ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The results of a COMPLETED analysis report generated with StartAnalysisReport. For an example of traffic analysis report results, see the response syntax of GetAnalysisReportResults."]
module AssociationSyncState =
  struct
    type nonrec t = (AvailabilityZone.t * AZSyncState.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            let (_ : string) = v in
                            let (_ : string) = chopped in
                            failwith
                              "no of_header for complex types AvailabilityZone AZSyncState"))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (AvailabilityZone.to_value x) |>
                    (fun x -> (AZSyncState.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:AvailabilityZone.of_string
        ~of_json:AZSyncState.of_json j
    let to_json v = composed_to_json to_value v
  end
module FirewallStatusValue =
  struct
    type nonrec t =
      | PROVISIONING 
      | DELETING 
      | READY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PROVISIONING -> "PROVISIONING"
      | DELETING -> "DELETING"
      | READY -> "READY"
      | Non_static_id s -> s
    let of_string =
      function
      | "PROVISIONING" -> PROVISIONING
      | "DELETING" -> DELETING
      | "READY" -> READY
      | 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 FirewallStatusValue" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"FirewallStatusValue" j)
    let to_json = simple_to_json to_value
  end
module RuleSummaries =
  struct
    type nonrec t = RuleSummary.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:RuleSummary.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:RuleSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"RuleSummaries" ~of_json:RuleSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ProxyRulesByRequestPhase =
  struct
    type nonrec t =
      {
      preDNS: ProxyRuleList.t option [@ocaml.doc "Before domain resolution."];
      preREQUEST: ProxyRuleList.t option
        [@ocaml.doc "After DNS, before request."];
      postRESPONSE: ProxyRuleList.t option
        [@ocaml.doc "After receiving response."]}
    let make ?preDNS =
      fun ?preREQUEST ->
        fun ?postRESPONSE -> fun () -> { preDNS; preREQUEST; postRESPONSE }
    let to_value x =
      structure_to_value
        [("PreDNS", (Option.map x.preDNS ~f:ProxyRuleList.to_value));
        ("PreREQUEST", (Option.map x.preREQUEST ~f:ProxyRuleList.to_value));
        ("PostRESPONSE",
          (Option.map x.postRESPONSE ~f:ProxyRuleList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let postRESPONSE =
        (Option.map ~f:ProxyRuleList.of_xml)
          (Xml.child xml_arg0 "PostRESPONSE") in
      let preREQUEST =
        (Option.map ~f:ProxyRuleList.of_xml)
          (Xml.child xml_arg0 "PreREQUEST") in
      let preDNS =
        (Option.map ~f:ProxyRuleList.of_xml) (Xml.child xml_arg0 "PreDNS") in
      make ?postRESPONSE ?preREQUEST ?preDNS ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let postRESPONSE =
        field_map json__ "PostRESPONSE" ProxyRuleList.of_json in
      let preREQUEST = field_map json__ "PreREQUEST" ProxyRuleList.of_json in
      let preDNS = field_map json__ "PreDNS" ProxyRuleList.of_json in
      make ?postRESPONSE ?preREQUEST ?preDNS ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Evaluation points in the traffic flow where rules are applied. There are three phases in a traffic where the rule match is applied."]
module PrivateDNSName =
  struct
    type nonrec t = string
    let context_ = "PrivateDNSName"
    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:"PrivateDNSName" j
    let to_json = simple_to_json to_value
  end
module VpcEndpointServiceName =
  struct
    type nonrec t = string
    let context_ = "VpcEndpointServiceName"
    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:"VpcEndpointServiceName" j
    let to_json = simple_to_json to_value
  end
module FlowFilters =
  struct
    type nonrec t = FlowFilter.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:FlowFilter.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:FlowFilter.of_xml)
    let of_json j =
      list_of_json ~kind:"FlowFilters" ~of_json:FlowFilter.of_json j
    let to_json v = composed_to_json to_value v
  end
module AWSAccountId =
  struct
    type nonrec t = string
    let context_ = "AWSAccountId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:12) >>=
             (fun () ->
                (check_string_max i ~max:12) >>=
                  (fun () -> check_pattern i ~pattern:"^\\d{12}$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AWSAccountId" j
    let to_json = simple_to_json to_value
  end
module AvailabilityZoneMappings =
  struct
    type nonrec t = AvailabilityZoneMapping.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:AvailabilityZoneMapping.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:AvailabilityZoneMapping.of_xml)
    let of_json j =
      list_of_json ~kind:"AvailabilityZoneMappings"
        ~of_json:AvailabilityZoneMapping.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 EnabledAnalysisTypes =
  struct
    type nonrec t = EnabledAnalysisType.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:EnabledAnalysisType.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:EnabledAnalysisType.of_xml)
    let of_json j =
      list_of_json ~kind:"EnabledAnalysisTypes"
        ~of_json:EnabledAnalysisType.of_json j
    let to_json v = composed_to_json to_value v
  end
module SubnetMappings =
  struct
    type nonrec t = SubnetMapping.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:SubnetMapping.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:SubnetMapping.of_xml)
    let of_json j =
      list_of_json ~kind:"SubnetMappings" ~of_json:SubnetMapping.of_json j
    let to_json v = composed_to_json to_value v
  end
module TransitGatewayId =
  struct
    type nonrec t = string
    let context_ = "TransitGatewayId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () -> check_pattern i ~pattern:"^tgw-[0-9a-z]+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TransitGatewayId" j
    let to_json = simple_to_json to_value
  end
module CapacityUsageSummary =
  struct
    type nonrec t =
      {
      cIDRs: CIDRSummary.t option
        [@ocaml.doc
          "Describes the capacity usage of the CIDR blocks used by the IP set references in a firewall."]}
    let make ?cIDRs = fun () -> { cIDRs }
    let to_value x =
      structure_to_value
        [("CIDRs", (Option.map x.cIDRs ~f:CIDRSummary.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let cIDRs =
        (Option.map ~f:CIDRSummary.of_xml) (Xml.child xml_arg0 "CIDRs") in
      make ?cIDRs ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let cIDRs = field_map json__ "CIDRs" CIDRSummary.of_json in
      make ?cIDRs ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The capacity usage summary of the resources used by the ReferenceSets in a firewall."]
module ConfigurationSyncState =
  struct
    type nonrec t =
      | PENDING 
      | IN_SYNC 
      | CAPACITY_CONSTRAINED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING -> "PENDING"
      | IN_SYNC -> "IN_SYNC"
      | CAPACITY_CONSTRAINED -> "CAPACITY_CONSTRAINED"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING" -> PENDING
      | "IN_SYNC" -> IN_SYNC
      | "CAPACITY_CONSTRAINED" -> CAPACITY_CONSTRAINED
      | 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 ConfigurationSyncState" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ConfigurationSyncState" j)
    let to_json = simple_to_json to_value
  end
module SyncStates =
  struct
    type nonrec t = (AvailabilityZone.t * SyncState.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            let (_ : string) = v in
                            let (_ : string) = chopped in
                            failwith
                              "no of_header for complex types AvailabilityZone SyncState"))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (AvailabilityZone.to_value x) |>
                    (fun x -> (SyncState.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:AvailabilityZone.of_string
        ~of_json:SyncState.of_json j
    let to_json v = composed_to_json to_value v
  end
module TransitGatewayAttachmentSyncState =
  struct
    type nonrec t =
      {
      attachmentId: AttachmentId.t option
        [@ocaml.doc
          "The unique identifier of the transit gateway attachment."];
      transitGatewayAttachmentStatus: TransitGatewayAttachmentStatus.t option
        [@ocaml.doc
          "The current status of the transit gateway attachment. Valid values are: CREATING - The attachment is being created DELETING - The attachment is being deleted DELETED - The attachment has been deleted FAILED - The attachment creation has failed and cannot be recovered ERROR - The attachment is in an error state that might be recoverable READY - The attachment is active and processing traffic PENDING_ACCEPTANCE - The attachment is waiting to be accepted REJECTING - The attachment is in the process of being rejected REJECTED - The attachment has been rejected"];
      statusMessage: TransitGatewayAttachmentSyncStateMessage.t option
        [@ocaml.doc
          "A message providing additional information about the current status, particularly useful when the transit gateway attachment is in a non-READY state. Valid values are: CREATING - The attachment is being created DELETING - The attachment is being deleted DELETED - The attachment has been deleted FAILED - The attachment creation has failed and cannot be recovered ERROR - The attachment is in an error state that might be recoverable READY - The attachment is active and processing traffic PENDING_ACCEPTANCE - The attachment is waiting to be accepted REJECTING - The attachment is in the process of being rejected REJECTED - The attachment has been rejected For information about troubleshooting endpoint failures, see Troubleshooting firewall endpoint failures in the Network Firewall Developer Guide."]}
    let make ?attachmentId =
      fun ?transitGatewayAttachmentStatus ->
        fun ?statusMessage ->
          fun () ->
            { attachmentId; transitGatewayAttachmentStatus; statusMessage }
    let to_value x =
      structure_to_value
        [("AttachmentId",
           (Option.map x.attachmentId ~f:AttachmentId.to_value));
        ("TransitGatewayAttachmentStatus",
          (Option.map x.transitGatewayAttachmentStatus
             ~f:TransitGatewayAttachmentStatus.to_value));
        ("StatusMessage",
          (Option.map x.statusMessage
             ~f:TransitGatewayAttachmentSyncStateMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statusMessage =
        (Option.map ~f:TransitGatewayAttachmentSyncStateMessage.of_xml)
          (Xml.child xml_arg0 "StatusMessage") in
      let transitGatewayAttachmentStatus =
        (Option.map ~f:TransitGatewayAttachmentStatus.of_xml)
          (Xml.child xml_arg0 "TransitGatewayAttachmentStatus") in
      let attachmentId =
        (Option.map ~f:AttachmentId.of_xml)
          (Xml.child xml_arg0 "AttachmentId") in
      make ?statusMessage ?transitGatewayAttachmentStatus ?attachmentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statusMessage =
        field_map json__ "StatusMessage"
          TransitGatewayAttachmentSyncStateMessage.of_json in
      let transitGatewayAttachmentStatus =
        field_map json__ "TransitGatewayAttachmentStatus"
          TransitGatewayAttachmentStatus.of_json in
      let attachmentId = field_map json__ "AttachmentId" AttachmentId.of_json in
      make ?statusMessage ?transitGatewayAttachmentStatus ?attachmentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about the synchronization state of a transit gateway attachment, including its current status and any error messages. Network Firewall uses this to track the state of your transit gateway configuration changes."]
module AvailabilityZoneMetadata =
  struct
    type nonrec t =
      {
      iPAddressType: IPAddressType.t option
        [@ocaml.doc
          "The IP address type of the Firewall subnet in the Availability Zone. You can't change the IP address type after you create the subnet."]}
    let make ?iPAddressType = fun () -> { iPAddressType }
    let to_value x =
      structure_to_value
        [("IPAddressType",
           (Option.map x.iPAddressType ~f:IPAddressType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let iPAddressType =
        (Option.map ~f:IPAddressType.of_xml)
          (Xml.child xml_arg0 "IPAddressType") in
      make ?iPAddressType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let iPAddressType =
        field_map json__ "IPAddressType" IPAddressType.of_json in
      make ?iPAddressType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "High-level information about an Availability Zone where the firewall has an endpoint defined."]
module CreateProxyRuleList =
  struct
    type nonrec t = CreateProxyRule.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:50) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:CreateProxyRule.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:CreateProxyRule.of_xml)
    let of_json j =
      list_of_json ~kind:"CreateProxyRuleList"
        ~of_json:CreateProxyRule.of_json j
    let to_json v = composed_to_json to_value v
  end
module ProxyRuleGroupAttachment =
  struct
    type nonrec t =
      {
      proxyRuleGroupName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the proxy rule group. You can't change the name of a proxy rule group after you create it."];
      insertPosition: InsertPosition.t option
        [@ocaml.doc
          "Where to insert a proxy rule group in a proxy configuration."]}
    let make ?proxyRuleGroupName =
      fun ?insertPosition -> fun () -> { proxyRuleGroupName; insertPosition }
    let to_value x =
      structure_to_value
        [("ProxyRuleGroupName",
           (Option.map x.proxyRuleGroupName ~f:ResourceName.to_value));
        ("InsertPosition",
          (Option.map x.insertPosition ~f:InsertPosition.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let insertPosition =
        (Option.map ~f:InsertPosition.of_xml)
          (Xml.child xml_arg0 "InsertPosition") in
      let proxyRuleGroupName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "ProxyRuleGroupName") in
      make ?insertPosition ?proxyRuleGroupName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let insertPosition =
        field_map json__ "InsertPosition" InsertPosition.of_json in
      let proxyRuleGroupName =
        field_map json__ "ProxyRuleGroupName" ResourceName.of_json in
      make ?insertPosition ?proxyRuleGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The proxy rule group(s) to attach to the proxy configuration"]
module InternalServerError =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Your request is valid, but Network Firewall couldn't perform the operation because of a system problem. Retry your request."]
module InvalidRequestException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The operation failed because of a problem with your request. Examples include: You specified an unsupported parameter name or value. You tried to update a property with a value that isn't among the available types. Your request references an ARN that is malformed, or corresponds to a resource that isn't valid in the context of the request."]
module InvalidTokenException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The token you provided is stale or isn't valid for the operation."]
module ResourceNotFoundException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Unable to locate a resource using the parameters that you provided."]
module TLSInspectionConfigurationResponse =
  struct
    type nonrec t =
      {
      tLSInspectionConfigurationArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the TLS inspection configuration."];
      tLSInspectionConfigurationName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the TLS inspection configuration. You can't change the name of a TLS inspection configuration after you create it."];
      tLSInspectionConfigurationId: ResourceId.t option
        [@ocaml.doc
          "A unique identifier for the TLS inspection configuration. This ID is returned in the responses to create and list commands. You provide it to operations such as update and delete."];
      tLSInspectionConfigurationStatus: ResourceStatus.t option
        [@ocaml.doc
          "Detailed information about the current status of a TLSInspectionConfiguration. You can retrieve this for a TLS inspection configuration by calling DescribeTLSInspectionConfiguration and providing the TLS inspection configuration name and ARN."];
      description: Description.t option
        [@ocaml.doc "A description of the TLS inspection configuration."];
      tags: TagList.t option
        [@ocaml.doc "The key:value pairs to associate with the resource."];
      lastModifiedTime: LastUpdateTime.t option
        [@ocaml.doc
          "The last time that the TLS inspection configuration was changed."];
      numberOfAssociations: NumberOfAssociations.t option
        [@ocaml.doc
          "The number of firewall policies that use this TLS inspection configuration."];
      encryptionConfiguration: EncryptionConfiguration.t option
        [@ocaml.doc
          "A complex type that contains the Amazon Web Services KMS encryption configuration settings for your TLS inspection configuration."];
      certificates: Certificates.t option
        [@ocaml.doc
          "A list of the certificates associated with the TLS inspection configuration."];
      certificateAuthority: TlsCertificateData.t option }
    let make ?tLSInspectionConfigurationArn =
      fun ?tLSInspectionConfigurationName ->
        fun ?tLSInspectionConfigurationId ->
          fun ?tLSInspectionConfigurationStatus ->
            fun ?description ->
              fun ?tags ->
                fun ?lastModifiedTime ->
                  fun ?numberOfAssociations ->
                    fun ?encryptionConfiguration ->
                      fun ?certificates ->
                        fun ?certificateAuthority ->
                          fun () ->
                            {
                              tLSInspectionConfigurationArn;
                              tLSInspectionConfigurationName;
                              tLSInspectionConfigurationId;
                              tLSInspectionConfigurationStatus;
                              description;
                              tags;
                              lastModifiedTime;
                              numberOfAssociations;
                              encryptionConfiguration;
                              certificates;
                              certificateAuthority
                            }
    let to_value x =
      structure_to_value
        [("TLSInspectionConfigurationArn",
           (Option.map x.tLSInspectionConfigurationArn
              ~f:ResourceArn.to_value));
        ("TLSInspectionConfigurationName",
          (Option.map x.tLSInspectionConfigurationName
             ~f:ResourceName.to_value));
        ("TLSInspectionConfigurationId",
          (Option.map x.tLSInspectionConfigurationId ~f:ResourceId.to_value));
        ("TLSInspectionConfigurationStatus",
          (Option.map x.tLSInspectionConfigurationStatus
             ~f:ResourceStatus.to_value));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("LastModifiedTime",
          (Option.map x.lastModifiedTime ~f:LastUpdateTime.to_value));
        ("NumberOfAssociations",
          (Option.map x.numberOfAssociations ~f:NumberOfAssociations.to_value));
        ("EncryptionConfiguration",
          (Option.map x.encryptionConfiguration
             ~f:EncryptionConfiguration.to_value));
        ("Certificates",
          (Option.map x.certificates ~f:Certificates.to_value));
        ("CertificateAuthority",
          (Option.map x.certificateAuthority ~f:TlsCertificateData.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let certificateAuthority =
        (Option.map ~f:TlsCertificateData.of_xml)
          (Xml.child xml_arg0 "CertificateAuthority") in
      let certificates =
        (Option.map ~f:Certificates.of_xml)
          (Xml.child xml_arg0 "Certificates") in
      let encryptionConfiguration =
        (Option.map ~f:EncryptionConfiguration.of_xml)
          (Xml.child xml_arg0 "EncryptionConfiguration") in
      let numberOfAssociations =
        (Option.map ~f:NumberOfAssociations.of_xml)
          (Xml.child xml_arg0 "NumberOfAssociations") in
      let lastModifiedTime =
        (Option.map ~f:LastUpdateTime.of_xml)
          (Xml.child xml_arg0 "LastModifiedTime") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let tLSInspectionConfigurationStatus =
        (Option.map ~f:ResourceStatus.of_xml)
          (Xml.child xml_arg0 "TLSInspectionConfigurationStatus") in
      let tLSInspectionConfigurationId =
        (Option.map ~f:ResourceId.of_xml)
          (Xml.child xml_arg0 "TLSInspectionConfigurationId") in
      let tLSInspectionConfigurationName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "TLSInspectionConfigurationName") in
      let tLSInspectionConfigurationArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "TLSInspectionConfigurationArn") in
      make ?certificateAuthority ?certificates ?encryptionConfiguration
        ?numberOfAssociations ?lastModifiedTime ?tags ?description
        ?tLSInspectionConfigurationStatus ?tLSInspectionConfigurationId
        ?tLSInspectionConfigurationName ?tLSInspectionConfigurationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let certificateAuthority =
        field_map json__ "CertificateAuthority" TlsCertificateData.of_json in
      let certificates = field_map json__ "Certificates" Certificates.of_json in
      let encryptionConfiguration =
        field_map json__ "EncryptionConfiguration"
          EncryptionConfiguration.of_json in
      let numberOfAssociations =
        field_map json__ "NumberOfAssociations" NumberOfAssociations.of_json in
      let lastModifiedTime =
        field_map json__ "LastModifiedTime" LastUpdateTime.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let tLSInspectionConfigurationStatus =
        field_map json__ "TLSInspectionConfigurationStatus"
          ResourceStatus.of_json in
      let tLSInspectionConfigurationId =
        field_map json__ "TLSInspectionConfigurationId" ResourceId.of_json in
      let tLSInspectionConfigurationName =
        field_map json__ "TLSInspectionConfigurationName"
          ResourceName.of_json in
      let tLSInspectionConfigurationArn =
        field_map json__ "TLSInspectionConfigurationArn" ResourceArn.of_json in
      make ?certificateAuthority ?certificates ?encryptionConfiguration
        ?numberOfAssociations ?lastModifiedTime ?tags ?description
        ?tLSInspectionConfigurationStatus ?tLSInspectionConfigurationId
        ?tLSInspectionConfigurationName ?tLSInspectionConfigurationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The high-level properties of a TLS inspection configuration. This, along with the TLSInspectionConfiguration, define the TLS inspection configuration. You can retrieve all objects for a TLS inspection configuration by calling DescribeTLSInspectionConfiguration."]
module ThrottlingException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Unable to process the request due to throttling limitations."]
module TLSInspectionConfiguration =
  struct
    type nonrec t =
      {
      serverCertificateConfigurations:
        ServerCertificateConfigurations.t option
        [@ocaml.doc
          "Lists the server certificate configurations that are associated with the TLS configuration."]}
    let make ?serverCertificateConfigurations =
      fun () -> { serverCertificateConfigurations }
    let to_value x =
      structure_to_value
        [("ServerCertificateConfigurations",
           (Option.map x.serverCertificateConfigurations
              ~f:ServerCertificateConfigurations.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let serverCertificateConfigurations =
        (Option.map ~f:ServerCertificateConfigurations.of_xml)
          (Xml.child xml_arg0 "ServerCertificateConfigurations") in
      make ?serverCertificateConfigurations ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let serverCertificateConfigurations =
        field_map json__ "ServerCertificateConfigurations"
          ServerCertificateConfigurations.of_json in
      make ?serverCertificateConfigurations ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The object that defines a TLS inspection configuration. This, along with TLSInspectionConfigurationResponse, define the TLS inspection configuration. You can retrieve all objects for a TLS inspection configuration by calling DescribeTLSInspectionConfiguration. Network Firewall uses a TLS inspection configuration to decrypt traffic. Network Firewall re-encrypts the traffic before sending it to its destination. To use a TLS inspection configuration, you add it to a new Network Firewall firewall policy, then you apply the firewall policy to a firewall. Network Firewall acts as a proxy service to decrypt and inspect the traffic traveling through your firewalls. You can reference a TLS inspection configuration from more than one firewall policy, and you can use a firewall policy in more than one firewall. For more information about using TLS inspection configurations, see Inspecting SSL/TLS traffic with TLS inspection configurations in the Network Firewall Developer Guide."]
module ResourceOwnerCheckException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Unable to change the resource because your account doesn't own it."]
module RuleGroupResponse =
  struct
    type nonrec t =
      {
      ruleGroupArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the rule group. If this response is for a create request that had DryRun set to TRUE, then this ARN is a placeholder that isn't attached to a valid resource."];
      ruleGroupName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the rule group. You can't change the name of a rule group after you create it."];
      ruleGroupId: ResourceId.t option
        [@ocaml.doc "The unique identifier for the rule group."];
      description: Description.t option
        [@ocaml.doc "A description of the rule group."];
      type_: RuleGroupType.t option
        [@ocaml.doc
          "Indicates whether the rule group is stateless or stateful. If the rule group is stateless, it contains stateless rules. If it is stateful, it contains stateful rules."];
      capacity: RuleCapacity.t option
        [@ocaml.doc
          "The maximum operating resources that this rule group can use. Rule group capacity is fixed at creation. When you update a rule group, you are limited to this capacity. When you reference a rule group from a firewall policy, Network Firewall reserves this capacity for the rule group. You can retrieve the capacity that would be required for a rule group before you create the rule group by calling CreateRuleGroup with DryRun set to TRUE."];
      ruleGroupStatus: ResourceStatus.t option
        [@ocaml.doc
          "Detailed information about the current status of a rule group."];
      tags: TagList.t option
        [@ocaml.doc "The key:value pairs to associate with the resource."];
      consumedCapacity: RuleCapacity.t option
        [@ocaml.doc
          "The number of capacity units currently consumed by the rule group rules."];
      numberOfAssociations: NumberOfAssociations.t option
        [@ocaml.doc
          "The number of firewall policies that use this rule group."];
      encryptionConfiguration: EncryptionConfiguration.t option
        [@ocaml.doc
          "A complex type that contains the Amazon Web Services KMS encryption configuration settings for your rule group."];
      sourceMetadata: SourceMetadata.t option
        [@ocaml.doc
          "A complex type that contains metadata about the rule group that your own rule group is copied from. You can use the metadata to track the version updates made to the originating rule group."];
      snsTopic: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Amazon Simple Notification Service SNS topic that's used to record changes to the managed rule group. You can subscribe to the SNS topic to receive notifications when the managed rule group is modified, such as for new versions and for version expiration. For more information, see the Amazon Simple Notification Service Developer Guide.."];
      lastModifiedTime: LastUpdateTime.t option
        [@ocaml.doc "The last time that the rule group was changed."];
      analysisResults: AnalysisResultList.t option
        [@ocaml.doc
          "The list of analysis results for AnalyzeRuleGroup. If you set AnalyzeRuleGroup to TRUE in CreateRuleGroup, UpdateRuleGroup, or DescribeRuleGroup, Network Firewall analyzes the rule group and identifies the rules that might adversely effect your firewall's functionality. For example, if Network Firewall detects a rule that's routing traffic asymmetrically, which impacts the service's ability to properly process traffic, the service includes the rule in the list of analysis results."];
      summaryConfiguration: SummaryConfiguration.t option
        [@ocaml.doc
          "A complex type containing the currently selected rule option fields that will be displayed for rule summarization returned by DescribeRuleGroupSummary. The RuleOptions specified in SummaryConfiguration Rule metadata organization preferences"]}
    let make ?ruleGroupArn =
      fun ?ruleGroupName ->
        fun ?ruleGroupId ->
          fun ?description ->
            fun ?type_ ->
              fun ?capacity ->
                fun ?ruleGroupStatus ->
                  fun ?tags ->
                    fun ?consumedCapacity ->
                      fun ?numberOfAssociations ->
                        fun ?encryptionConfiguration ->
                          fun ?sourceMetadata ->
                            fun ?snsTopic ->
                              fun ?lastModifiedTime ->
                                fun ?analysisResults ->
                                  fun ?summaryConfiguration ->
                                    fun () ->
                                      {
                                        ruleGroupArn;
                                        ruleGroupName;
                                        ruleGroupId;
                                        description;
                                        type_;
                                        capacity;
                                        ruleGroupStatus;
                                        tags;
                                        consumedCapacity;
                                        numberOfAssociations;
                                        encryptionConfiguration;
                                        sourceMetadata;
                                        snsTopic;
                                        lastModifiedTime;
                                        analysisResults;
                                        summaryConfiguration
                                      }
    let to_value x =
      structure_to_value
        [("RuleGroupArn",
           (Option.map x.ruleGroupArn ~f:ResourceArn.to_value));
        ("RuleGroupName",
          (Option.map x.ruleGroupName ~f:ResourceName.to_value));
        ("RuleGroupId", (Option.map x.ruleGroupId ~f:ResourceId.to_value));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("Type", (Option.map x.type_ ~f:RuleGroupType.to_value));
        ("Capacity", (Option.map x.capacity ~f:RuleCapacity.to_value));
        ("RuleGroupStatus",
          (Option.map x.ruleGroupStatus ~f:ResourceStatus.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("ConsumedCapacity",
          (Option.map x.consumedCapacity ~f:RuleCapacity.to_value));
        ("NumberOfAssociations",
          (Option.map x.numberOfAssociations ~f:NumberOfAssociations.to_value));
        ("EncryptionConfiguration",
          (Option.map x.encryptionConfiguration
             ~f:EncryptionConfiguration.to_value));
        ("SourceMetadata",
          (Option.map x.sourceMetadata ~f:SourceMetadata.to_value));
        ("SnsTopic", (Option.map x.snsTopic ~f:ResourceArn.to_value));
        ("LastModifiedTime",
          (Option.map x.lastModifiedTime ~f:LastUpdateTime.to_value));
        ("AnalysisResults",
          (Option.map x.analysisResults ~f:AnalysisResultList.to_value));
        ("SummaryConfiguration",
          (Option.map x.summaryConfiguration ~f:SummaryConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let summaryConfiguration =
        (Option.map ~f:SummaryConfiguration.of_xml)
          (Xml.child xml_arg0 "SummaryConfiguration") in
      let analysisResults =
        (Option.map ~f:AnalysisResultList.of_xml)
          (Xml.child xml_arg0 "AnalysisResults") in
      let lastModifiedTime =
        (Option.map ~f:LastUpdateTime.of_xml)
          (Xml.child xml_arg0 "LastModifiedTime") in
      let snsTopic =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "SnsTopic") in
      let sourceMetadata =
        (Option.map ~f:SourceMetadata.of_xml)
          (Xml.child xml_arg0 "SourceMetadata") in
      let encryptionConfiguration =
        (Option.map ~f:EncryptionConfiguration.of_xml)
          (Xml.child xml_arg0 "EncryptionConfiguration") in
      let numberOfAssociations =
        (Option.map ~f:NumberOfAssociations.of_xml)
          (Xml.child xml_arg0 "NumberOfAssociations") in
      let consumedCapacity =
        (Option.map ~f:RuleCapacity.of_xml)
          (Xml.child xml_arg0 "ConsumedCapacity") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let ruleGroupStatus =
        (Option.map ~f:ResourceStatus.of_xml)
          (Xml.child xml_arg0 "RuleGroupStatus") in
      let capacity =
        (Option.map ~f:RuleCapacity.of_xml) (Xml.child xml_arg0 "Capacity") in
      let type_ =
        (Option.map ~f:RuleGroupType.of_xml) (Xml.child xml_arg0 "Type") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let ruleGroupId =
        (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "RuleGroupId") in
      let ruleGroupName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "RuleGroupName") in
      let ruleGroupArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "RuleGroupArn") in
      make ?summaryConfiguration ?analysisResults ?lastModifiedTime ?snsTopic
        ?sourceMetadata ?encryptionConfiguration ?numberOfAssociations
        ?consumedCapacity ?tags ?ruleGroupStatus ?capacity ?type_
        ?description ?ruleGroupId ?ruleGroupName ?ruleGroupArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let summaryConfiguration =
        field_map json__ "SummaryConfiguration" SummaryConfiguration.of_json in
      let analysisResults =
        field_map json__ "AnalysisResults" AnalysisResultList.of_json in
      let lastModifiedTime =
        field_map json__ "LastModifiedTime" LastUpdateTime.of_json in
      let snsTopic = field_map json__ "SnsTopic" ResourceArn.of_json in
      let sourceMetadata =
        field_map json__ "SourceMetadata" SourceMetadata.of_json in
      let encryptionConfiguration =
        field_map json__ "EncryptionConfiguration"
          EncryptionConfiguration.of_json in
      let numberOfAssociations =
        field_map json__ "NumberOfAssociations" NumberOfAssociations.of_json in
      let consumedCapacity =
        field_map json__ "ConsumedCapacity" RuleCapacity.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let ruleGroupStatus =
        field_map json__ "RuleGroupStatus" ResourceStatus.of_json in
      let capacity = field_map json__ "Capacity" RuleCapacity.of_json in
      let type_ = field_map json__ "Type" RuleGroupType.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let ruleGroupId = field_map json__ "RuleGroupId" ResourceId.of_json in
      let ruleGroupName =
        field_map json__ "RuleGroupName" ResourceName.of_json in
      let ruleGroupArn = field_map json__ "RuleGroupArn" ResourceArn.of_json in
      make ?summaryConfiguration ?analysisResults ?lastModifiedTime ?snsTopic
        ?sourceMetadata ?encryptionConfiguration ?numberOfAssociations
        ?consumedCapacity ?tags ?ruleGroupStatus ?capacity ?type_
        ?description ?ruleGroupId ?ruleGroupName ?ruleGroupArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The high-level properties of a rule group. This, along with the RuleGroup, define the rule group. You can retrieve all objects for a rule group by calling DescribeRuleGroup."]
module RuleGroup =
  struct
    type nonrec t =
      {
      ruleVariables: RuleVariables.t option
        [@ocaml.doc
          "Settings that are available for use in the rules in the rule group. You can only use these for stateful rule groups."];
      referenceSets: ReferenceSets.t option
        [@ocaml.doc "The list of a rule group's reference sets."];
      rulesSource: RulesSource.t
        [@ocaml.doc
          "The stateful rules or stateless rules for the rule group."];
      statefulRuleOptions: StatefulRuleOptions.t option
        [@ocaml.doc
          "Additional options governing how Network Firewall handles stateful rules. The policies where you use your stateful rule group must have stateful rule options settings that are compatible with these settings. Some limitations apply; for more information, see Strict evaluation order in the Network Firewall Developer Guide."]}
    let context_ = "RuleGroup"
    let make ?ruleVariables =
      fun ?referenceSets ->
        fun ?statefulRuleOptions ->
          fun ~rulesSource ->
            fun () ->
              {
                ruleVariables;
                referenceSets;
                statefulRuleOptions;
                rulesSource
              }
    let to_value x =
      structure_to_value
        [("RuleVariables",
           (Option.map x.ruleVariables ~f:RuleVariables.to_value));
        ("ReferenceSets",
          (Option.map x.referenceSets ~f:ReferenceSets.to_value));
        ("RulesSource", (Some (RulesSource.to_value x.rulesSource)));
        ("StatefulRuleOptions",
          (Option.map x.statefulRuleOptions ~f:StatefulRuleOptions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statefulRuleOptions =
        (Option.map ~f:StatefulRuleOptions.of_xml)
          (Xml.child xml_arg0 "StatefulRuleOptions") in
      let rulesSource =
        RulesSource.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RulesSource") in
      let referenceSets =
        (Option.map ~f:ReferenceSets.of_xml)
          (Xml.child xml_arg0 "ReferenceSets") in
      let ruleVariables =
        (Option.map ~f:RuleVariables.of_xml)
          (Xml.child xml_arg0 "RuleVariables") in
      make ?statefulRuleOptions ~rulesSource ?referenceSets ?ruleVariables ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statefulRuleOptions =
        field_map json__ "StatefulRuleOptions" StatefulRuleOptions.of_json in
      let rulesSource =
        field_map_exn json__ "RulesSource" RulesSource.of_json in
      let referenceSets =
        field_map json__ "ReferenceSets" ReferenceSets.of_json in
      let ruleVariables =
        field_map json__ "RuleVariables" RuleVariables.of_json in
      make ?statefulRuleOptions ~rulesSource ?referenceSets ?ruleVariables ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The object that defines the rules in a rule group. This, along with RuleGroupResponse, define the rule group. You can retrieve all objects for a rule group by calling DescribeRuleGroup. Network Firewall uses a rule group to inspect and control network traffic. You define stateless rule groups to inspect individual packets and you define stateful rule groups to inspect packets in the context of their traffic flow. To use a rule group, you include it by reference in an Network Firewall firewall policy, then you use the policy in a firewall. You can reference a rule group from more than one firewall policy, and you can use a firewall policy in more than one firewall."]
module ProxyRulePriorityList =
  struct
    type nonrec t = ProxyRulePriority.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:ProxyRulePriority.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:ProxyRulePriority.of_xml)
    let of_json j =
      list_of_json ~kind:"ProxyRulePriorityList"
        ~of_json:ProxyRulePriority.of_json j
    let to_json v = composed_to_json to_value v
  end
module RuleGroupRequestPhase =
  struct
    type nonrec t =
      | PRE_DNS 
      | PRE_REQ 
      | POST_RES 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PRE_DNS -> "PRE_DNS"
      | PRE_REQ -> "PRE_REQ"
      | POST_RES -> "POST_RES"
      | Non_static_id s -> s
    let of_string =
      function
      | "PRE_DNS" -> PRE_DNS
      | "PRE_REQ" -> PRE_REQ
      | "POST_RES" -> POST_RES
      | 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 RuleGroupRequestPhase" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"RuleGroupRequestPhase" j)
    let to_json = simple_to_json to_value
  end
module ProxyRuleGroupPriorityResultList =
  struct
    type nonrec t = ProxyRuleGroupPriorityResult.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:ProxyRuleGroupPriorityResult.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:ProxyRuleGroupPriorityResult.of_xml)
    let of_json j =
      list_of_json ~kind:"ProxyRuleGroupPriorityResultList"
        ~of_json:ProxyRuleGroupPriorityResult.of_json j
    let to_json v = composed_to_json to_value v
  end
module ProxyRuleGroupPriorityList =
  struct
    type nonrec t = ProxyRuleGroupPriority.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:ProxyRuleGroupPriority.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:ProxyRuleGroupPriority.of_xml)
    let of_json j =
      list_of_json ~kind:"ProxyRuleGroupPriorityList"
        ~of_json:ProxyRuleGroupPriority.of_json j
    let to_json v = composed_to_json to_value v
  end
module Proxy =
  struct
    type nonrec t =
      {
      createTime: CreateTime.t option
        [@ocaml.doc "Time the Proxy was created."];
      deleteTime: DeleteTime.t option
        [@ocaml.doc "Time the Proxy was deleted."];
      updateTime: UpdateTime.t option
        [@ocaml.doc "Time the Proxy was updated."];
      failureCode: FailureCode.t option
        [@ocaml.doc
          "Failure code for cases when the Proxy fails to attach or update."];
      failureMessage: FailureMessage.t option
        [@ocaml.doc
          "Failure message for cases when the Proxy fails to attach or update."];
      proxyState: ProxyState.t option
        [@ocaml.doc "Current attachment/detachment status of the Proxy."];
      proxyModifyState: ProxyModifyState.t option
        [@ocaml.doc "Current modification status of the Proxy."];
      natGatewayId: NatGatewayId.t option
        [@ocaml.doc "The NAT Gateway for the proxy."];
      proxyConfigurationName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the proxy configuration. You can't change the name of a proxy configuration after you create it."];
      proxyConfigurationArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of a proxy configuration."];
      proxyName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the proxy. You can't change the name of a proxy after you create it."];
      proxyArn: ResourceArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of a proxy."];
      listenerProperties: ListenerProperties.t option
        [@ocaml.doc "Listener properties for HTTP and HTTPS traffic."];
      tlsInterceptProperties: TlsInterceptProperties.t option
        [@ocaml.doc
          "TLS decryption on traffic to filter on attributes in the HTTP header."];
      tags: TagList.t option
        [@ocaml.doc "The key:value pairs to associate with the resource."]}
    let make ?createTime =
      fun ?deleteTime ->
        fun ?updateTime ->
          fun ?failureCode ->
            fun ?failureMessage ->
              fun ?proxyState ->
                fun ?proxyModifyState ->
                  fun ?natGatewayId ->
                    fun ?proxyConfigurationName ->
                      fun ?proxyConfigurationArn ->
                        fun ?proxyName ->
                          fun ?proxyArn ->
                            fun ?listenerProperties ->
                              fun ?tlsInterceptProperties ->
                                fun ?tags ->
                                  fun () ->
                                    {
                                      createTime;
                                      deleteTime;
                                      updateTime;
                                      failureCode;
                                      failureMessage;
                                      proxyState;
                                      proxyModifyState;
                                      natGatewayId;
                                      proxyConfigurationName;
                                      proxyConfigurationArn;
                                      proxyName;
                                      proxyArn;
                                      listenerProperties;
                                      tlsInterceptProperties;
                                      tags
                                    }
    let to_value x =
      structure_to_value
        [("CreateTime", (Option.map x.createTime ~f:CreateTime.to_value));
        ("DeleteTime", (Option.map x.deleteTime ~f:DeleteTime.to_value));
        ("UpdateTime", (Option.map x.updateTime ~f:UpdateTime.to_value));
        ("FailureCode", (Option.map x.failureCode ~f:FailureCode.to_value));
        ("FailureMessage",
          (Option.map x.failureMessage ~f:FailureMessage.to_value));
        ("ProxyState", (Option.map x.proxyState ~f:ProxyState.to_value));
        ("ProxyModifyState",
          (Option.map x.proxyModifyState ~f:ProxyModifyState.to_value));
        ("NatGatewayId",
          (Option.map x.natGatewayId ~f:NatGatewayId.to_value));
        ("ProxyConfigurationName",
          (Option.map x.proxyConfigurationName ~f:ResourceName.to_value));
        ("ProxyConfigurationArn",
          (Option.map x.proxyConfigurationArn ~f:ResourceArn.to_value));
        ("ProxyName", (Option.map x.proxyName ~f:ResourceName.to_value));
        ("ProxyArn", (Option.map x.proxyArn ~f:ResourceArn.to_value));
        ("ListenerProperties",
          (Option.map x.listenerProperties ~f:ListenerProperties.to_value));
        ("TlsInterceptProperties",
          (Option.map x.tlsInterceptProperties
             ~f:TlsInterceptProperties.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 tlsInterceptProperties =
        (Option.map ~f:TlsInterceptProperties.of_xml)
          (Xml.child xml_arg0 "TlsInterceptProperties") in
      let listenerProperties =
        (Option.map ~f:ListenerProperties.of_xml)
          (Xml.child xml_arg0 "ListenerProperties") in
      let proxyArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "ProxyArn") in
      let proxyName =
        (Option.map ~f:ResourceName.of_xml) (Xml.child xml_arg0 "ProxyName") in
      let proxyConfigurationArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "ProxyConfigurationArn") in
      let proxyConfigurationName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "ProxyConfigurationName") in
      let natGatewayId =
        (Option.map ~f:NatGatewayId.of_xml)
          (Xml.child xml_arg0 "NatGatewayId") in
      let proxyModifyState =
        (Option.map ~f:ProxyModifyState.of_xml)
          (Xml.child xml_arg0 "ProxyModifyState") in
      let proxyState =
        (Option.map ~f:ProxyState.of_xml) (Xml.child xml_arg0 "ProxyState") in
      let failureMessage =
        (Option.map ~f:FailureMessage.of_xml)
          (Xml.child xml_arg0 "FailureMessage") in
      let failureCode =
        (Option.map ~f:FailureCode.of_xml) (Xml.child xml_arg0 "FailureCode") in
      let updateTime =
        (Option.map ~f:UpdateTime.of_xml) (Xml.child xml_arg0 "UpdateTime") in
      let deleteTime =
        (Option.map ~f:DeleteTime.of_xml) (Xml.child xml_arg0 "DeleteTime") in
      let createTime =
        (Option.map ~f:CreateTime.of_xml) (Xml.child xml_arg0 "CreateTime") in
      make ?tags ?tlsInterceptProperties ?listenerProperties ?proxyArn
        ?proxyName ?proxyConfigurationArn ?proxyConfigurationName
        ?natGatewayId ?proxyModifyState ?proxyState ?failureMessage
        ?failureCode ?updateTime ?deleteTime ?createTime ()
    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 tlsInterceptProperties =
        field_map json__ "TlsInterceptProperties"
          TlsInterceptProperties.of_json in
      let listenerProperties =
        field_map json__ "ListenerProperties" ListenerProperties.of_json in
      let proxyArn = field_map json__ "ProxyArn" ResourceArn.of_json in
      let proxyName = field_map json__ "ProxyName" ResourceName.of_json in
      let proxyConfigurationArn =
        field_map json__ "ProxyConfigurationArn" ResourceArn.of_json in
      let proxyConfigurationName =
        field_map json__ "ProxyConfigurationName" ResourceName.of_json in
      let natGatewayId = field_map json__ "NatGatewayId" NatGatewayId.of_json in
      let proxyModifyState =
        field_map json__ "ProxyModifyState" ProxyModifyState.of_json in
      let proxyState = field_map json__ "ProxyState" ProxyState.of_json in
      let failureMessage =
        field_map json__ "FailureMessage" FailureMessage.of_json in
      let failureCode = field_map json__ "FailureCode" FailureCode.of_json in
      let updateTime = field_map json__ "UpdateTime" UpdateTime.of_json in
      let deleteTime = field_map json__ "DeleteTime" DeleteTime.of_json in
      let createTime = field_map json__ "CreateTime" CreateTime.of_json in
      make ?tags ?tlsInterceptProperties ?listenerProperties ?proxyArn
        ?proxyName ?proxyConfigurationArn ?proxyConfigurationName
        ?natGatewayId ?proxyModifyState ?proxyState ?failureMessage
        ?failureCode ?updateTime ?deleteTime ?createTime ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Proxy attached to a NAT gateway."]
module UnsupportedOperationException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The operation you requested isn't supported by Network Firewall."]
module ListenerPropertiesRequest =
  struct
    type nonrec t = ListenerPropertyRequest.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:2) >>= (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:ListenerPropertyRequest.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:ListenerPropertyRequest.of_xml)
    let of_json j =
      list_of_json ~kind:"ListenerPropertiesRequest"
        ~of_json:ListenerPropertyRequest.of_json j
    let to_json v = composed_to_json to_value v
  end
module TlsInterceptPropertiesRequest =
  struct
    type nonrec t =
      {
      pcaArn: ResourceArn.t option
        [@ocaml.doc
          "Private Certificate Authority (PCA) used to issue private TLS certificates so that the proxy can present PCA-signed certificates which applications trust through the same root, establishing a secure and consistent trust model for encrypted communication."];
      tlsInterceptMode: TlsInterceptMode.t option
        [@ocaml.doc
          "Specifies whether to enable or disable TLS Intercept Mode."]}
    let make ?pcaArn =
      fun ?tlsInterceptMode -> fun () -> { pcaArn; tlsInterceptMode }
    let to_value x =
      structure_to_value
        [("PcaArn", (Option.map x.pcaArn ~f:ResourceArn.to_value));
        ("TlsInterceptMode",
          (Option.map x.tlsInterceptMode ~f:TlsInterceptMode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tlsInterceptMode =
        (Option.map ~f:TlsInterceptMode.of_xml)
          (Xml.child xml_arg0 "TlsInterceptMode") in
      let pcaArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "PcaArn") in
      make ?tlsInterceptMode ?pcaArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tlsInterceptMode =
        field_map json__ "TlsInterceptMode" TlsInterceptMode.of_json in
      let pcaArn = field_map json__ "PcaArn" ResourceArn.of_json in
      make ?tlsInterceptMode ?pcaArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This data type is used specifically for the CreateProxy and UpdateProxy APIs. TLS decryption on traffic to filter on attributes in the HTTP header."]
module ProxyConfiguration =
  struct
    type nonrec t =
      {
      proxyConfigurationName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the proxy configuration. You can't change the name of a proxy configuration after you create it."];
      proxyConfigurationArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of a proxy configuration."];
      description: Description.t option
        [@ocaml.doc "A description of the proxy configuration."];
      createTime: CreateTime.t option
        [@ocaml.doc "Time the Proxy Configuration was created."];
      deleteTime: DeleteTime.t option
        [@ocaml.doc "Time the Proxy Configuration was deleted."];
      ruleGroups: ProxyConfigRuleGroupSet.t option
        [@ocaml.doc "Proxy rule groups within the proxy configuration."];
      defaultRulePhaseActions:
        ProxyConfigDefaultRulePhaseActionsRequest.t option
        [@ocaml.doc
          "Evaluation points in the traffic flow where rules are applied. There are three phases in a traffic where the rule match is applied. Pre-DNS - before domain resolution. Pre-Request - after DNS, before request. Post-Response - after receiving response."];
      tags: TagList.t option
        [@ocaml.doc "The key:value pairs to associate with the resource."]}
    let make ?proxyConfigurationName =
      fun ?proxyConfigurationArn ->
        fun ?description ->
          fun ?createTime ->
            fun ?deleteTime ->
              fun ?ruleGroups ->
                fun ?defaultRulePhaseActions ->
                  fun ?tags ->
                    fun () ->
                      {
                        proxyConfigurationName;
                        proxyConfigurationArn;
                        description;
                        createTime;
                        deleteTime;
                        ruleGroups;
                        defaultRulePhaseActions;
                        tags
                      }
    let to_value x =
      structure_to_value
        [("ProxyConfigurationName",
           (Option.map x.proxyConfigurationName ~f:ResourceName.to_value));
        ("ProxyConfigurationArn",
          (Option.map x.proxyConfigurationArn ~f:ResourceArn.to_value));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("CreateTime", (Option.map x.createTime ~f:CreateTime.to_value));
        ("DeleteTime", (Option.map x.deleteTime ~f:DeleteTime.to_value));
        ("RuleGroups",
          (Option.map x.ruleGroups ~f:ProxyConfigRuleGroupSet.to_value));
        ("DefaultRulePhaseActions",
          (Option.map x.defaultRulePhaseActions
             ~f:ProxyConfigDefaultRulePhaseActionsRequest.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 defaultRulePhaseActions =
        (Option.map ~f:ProxyConfigDefaultRulePhaseActionsRequest.of_xml)
          (Xml.child xml_arg0 "DefaultRulePhaseActions") in
      let ruleGroups =
        (Option.map ~f:ProxyConfigRuleGroupSet.of_xml)
          (Xml.child xml_arg0 "RuleGroups") in
      let deleteTime =
        (Option.map ~f:DeleteTime.of_xml) (Xml.child xml_arg0 "DeleteTime") in
      let createTime =
        (Option.map ~f:CreateTime.of_xml) (Xml.child xml_arg0 "CreateTime") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let proxyConfigurationArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "ProxyConfigurationArn") in
      let proxyConfigurationName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "ProxyConfigurationName") in
      make ?tags ?defaultRulePhaseActions ?ruleGroups ?deleteTime ?createTime
        ?description ?proxyConfigurationArn ?proxyConfigurationName ()
    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 defaultRulePhaseActions =
        field_map json__ "DefaultRulePhaseActions"
          ProxyConfigDefaultRulePhaseActionsRequest.of_json in
      let ruleGroups =
        field_map json__ "RuleGroups" ProxyConfigRuleGroupSet.of_json in
      let deleteTime = field_map json__ "DeleteTime" DeleteTime.of_json in
      let createTime = field_map json__ "CreateTime" CreateTime.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let proxyConfigurationArn =
        field_map json__ "ProxyConfigurationArn" ResourceArn.of_json in
      let proxyConfigurationName =
        field_map json__ "ProxyConfigurationName" ResourceName.of_json in
      make ?tags ?defaultRulePhaseActions ?ruleGroups ?deleteTime ?createTime
        ?description ?proxyConfigurationArn ?proxyConfigurationName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A Proxy Configuration defines the monitoring and protection behavior for a Proxy. The details of the behavior are defined in the rule groups that you add to your configuration."]
module EnableMonitoringDashboard =
  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 LogDestinationPermissionException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Unable to send logs to a configured logging destination."]
module LoggingConfiguration =
  struct
    type nonrec t =
      {
      logDestinationConfigs: LogDestinationConfigs.t
        [@ocaml.doc
          "Defines the logging destinations for the logs for a firewall. Network Firewall generates logs for stateful rule groups."]}
    let context_ = "LoggingConfiguration"
    let make ~logDestinationConfigs = fun () -> { logDestinationConfigs }
    let to_value x =
      structure_to_value
        [("LogDestinationConfigs",
           (Some (LogDestinationConfigs.to_value x.logDestinationConfigs)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let logDestinationConfigs =
        LogDestinationConfigs.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "LogDestinationConfigs") in
      make ~logDestinationConfigs ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let logDestinationConfigs =
        field_map_exn json__ "LogDestinationConfigs"
          LogDestinationConfigs.of_json in
      make ~logDestinationConfigs ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Defines how Network Firewall performs logging for a Firewall."]
module FirewallPolicyResponse =
  struct
    type nonrec t =
      {
      firewallPolicyName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the firewall policy. You can't change the name of a firewall policy after you create it."];
      firewallPolicyArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the firewall policy. If this response is for a create request that had DryRun set to TRUE, then this ARN is a placeholder that isn't attached to a valid resource."];
      firewallPolicyId: ResourceId.t option
        [@ocaml.doc "The unique identifier for the firewall policy."];
      description: Description.t option
        [@ocaml.doc "A description of the firewall policy."];
      firewallPolicyStatus: ResourceStatus.t option
        [@ocaml.doc
          "The current status of the firewall policy. You can retrieve this for a firewall policy by calling DescribeFirewallPolicy and providing the firewall policy's name or ARN."];
      tags: TagList.t option
        [@ocaml.doc "The key:value pairs to associate with the resource."];
      consumedStatelessRuleCapacity: RuleCapacity.t option
        [@ocaml.doc
          "The number of capacity units currently consumed by the policy's stateless rules."];
      consumedStatefulRuleCapacity: RuleCapacity.t option
        [@ocaml.doc
          "The number of capacity units currently consumed by the policy's stateful rules."];
      consumedStatefulDomainCapacity: RuleCapacity.t option
        [@ocaml.doc
          "The total number of domain name specifications across all domain list rule groups in the firewall policy that use the stateful-domain-rulegroup resource type."];
      numberOfAssociations: NumberOfAssociations.t option
        [@ocaml.doc
          "The number of firewalls that are associated with this firewall policy."];
      encryptionConfiguration: EncryptionConfiguration.t option
        [@ocaml.doc
          "A complex type that contains the Amazon Web Services KMS encryption configuration settings for your firewall policy."];
      lastModifiedTime: LastUpdateTime.t option
        [@ocaml.doc "The last time that the firewall policy was changed."]}
    let make ?firewallPolicyName =
      fun ?firewallPolicyArn ->
        fun ?firewallPolicyId ->
          fun ?description ->
            fun ?firewallPolicyStatus ->
              fun ?tags ->
                fun ?consumedStatelessRuleCapacity ->
                  fun ?consumedStatefulRuleCapacity ->
                    fun ?consumedStatefulDomainCapacity ->
                      fun ?numberOfAssociations ->
                        fun ?encryptionConfiguration ->
                          fun ?lastModifiedTime ->
                            fun () ->
                              {
                                firewallPolicyName;
                                firewallPolicyArn;
                                firewallPolicyId;
                                description;
                                firewallPolicyStatus;
                                tags;
                                consumedStatelessRuleCapacity;
                                consumedStatefulRuleCapacity;
                                consumedStatefulDomainCapacity;
                                numberOfAssociations;
                                encryptionConfiguration;
                                lastModifiedTime
                              }
    let to_value x =
      structure_to_value
        [("FirewallPolicyName",
           (Option.map x.firewallPolicyName ~f:ResourceName.to_value));
        ("FirewallPolicyArn",
          (Option.map x.firewallPolicyArn ~f:ResourceArn.to_value));
        ("FirewallPolicyId",
          (Option.map x.firewallPolicyId ~f:ResourceId.to_value));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("FirewallPolicyStatus",
          (Option.map x.firewallPolicyStatus ~f:ResourceStatus.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("ConsumedStatelessRuleCapacity",
          (Option.map x.consumedStatelessRuleCapacity
             ~f:RuleCapacity.to_value));
        ("ConsumedStatefulRuleCapacity",
          (Option.map x.consumedStatefulRuleCapacity ~f:RuleCapacity.to_value));
        ("ConsumedStatefulDomainCapacity",
          (Option.map x.consumedStatefulDomainCapacity
             ~f:RuleCapacity.to_value));
        ("NumberOfAssociations",
          (Option.map x.numberOfAssociations ~f:NumberOfAssociations.to_value));
        ("EncryptionConfiguration",
          (Option.map x.encryptionConfiguration
             ~f:EncryptionConfiguration.to_value));
        ("LastModifiedTime",
          (Option.map x.lastModifiedTime ~f:LastUpdateTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastModifiedTime =
        (Option.map ~f:LastUpdateTime.of_xml)
          (Xml.child xml_arg0 "LastModifiedTime") in
      let encryptionConfiguration =
        (Option.map ~f:EncryptionConfiguration.of_xml)
          (Xml.child xml_arg0 "EncryptionConfiguration") in
      let numberOfAssociations =
        (Option.map ~f:NumberOfAssociations.of_xml)
          (Xml.child xml_arg0 "NumberOfAssociations") in
      let consumedStatefulDomainCapacity =
        (Option.map ~f:RuleCapacity.of_xml)
          (Xml.child xml_arg0 "ConsumedStatefulDomainCapacity") in
      let consumedStatefulRuleCapacity =
        (Option.map ~f:RuleCapacity.of_xml)
          (Xml.child xml_arg0 "ConsumedStatefulRuleCapacity") in
      let consumedStatelessRuleCapacity =
        (Option.map ~f:RuleCapacity.of_xml)
          (Xml.child xml_arg0 "ConsumedStatelessRuleCapacity") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let firewallPolicyStatus =
        (Option.map ~f:ResourceStatus.of_xml)
          (Xml.child xml_arg0 "FirewallPolicyStatus") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let firewallPolicyId =
        (Option.map ~f:ResourceId.of_xml)
          (Xml.child xml_arg0 "FirewallPolicyId") in
      let firewallPolicyArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "FirewallPolicyArn") in
      let firewallPolicyName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "FirewallPolicyName") in
      make ?lastModifiedTime ?encryptionConfiguration ?numberOfAssociations
        ?consumedStatefulDomainCapacity ?consumedStatefulRuleCapacity
        ?consumedStatelessRuleCapacity ?tags ?firewallPolicyStatus
        ?description ?firewallPolicyId ?firewallPolicyArn ?firewallPolicyName
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastModifiedTime =
        field_map json__ "LastModifiedTime" LastUpdateTime.of_json in
      let encryptionConfiguration =
        field_map json__ "EncryptionConfiguration"
          EncryptionConfiguration.of_json in
      let numberOfAssociations =
        field_map json__ "NumberOfAssociations" NumberOfAssociations.of_json in
      let consumedStatefulDomainCapacity =
        field_map json__ "ConsumedStatefulDomainCapacity"
          RuleCapacity.of_json in
      let consumedStatefulRuleCapacity =
        field_map json__ "ConsumedStatefulRuleCapacity" RuleCapacity.of_json in
      let consumedStatelessRuleCapacity =
        field_map json__ "ConsumedStatelessRuleCapacity" RuleCapacity.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let firewallPolicyStatus =
        field_map json__ "FirewallPolicyStatus" ResourceStatus.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let firewallPolicyId =
        field_map json__ "FirewallPolicyId" ResourceId.of_json in
      let firewallPolicyArn =
        field_map json__ "FirewallPolicyArn" ResourceArn.of_json in
      let firewallPolicyName =
        field_map json__ "FirewallPolicyName" ResourceName.of_json in
      make ?lastModifiedTime ?encryptionConfiguration ?numberOfAssociations
        ?consumedStatefulDomainCapacity ?consumedStatefulRuleCapacity
        ?consumedStatelessRuleCapacity ?tags ?firewallPolicyStatus
        ?description ?firewallPolicyId ?firewallPolicyArn ?firewallPolicyName
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The high-level properties of a firewall policy. This, along with the FirewallPolicy, define the policy. You can retrieve all objects for a firewall policy by calling DescribeFirewallPolicy."]
module FirewallPolicy =
  struct
    type nonrec t =
      {
      statelessRuleGroupReferences: StatelessRuleGroupReferences.t option
        [@ocaml.doc
          "References to the stateless rule groups that are used in the policy. These define the matching criteria in stateless rules."];
      statelessDefaultActions: StatelessActions.t
        [@ocaml.doc
          "The actions to take on a packet if it doesn't match any of the stateless rules in the policy. If you want non-matching packets to be forwarded for stateful inspection, specify aws:forward_to_sfe. You must specify one of the standard actions: aws:pass, aws:drop, or aws:forward_to_sfe. In addition, you can specify custom actions that are compatible with your standard section choice. For example, you could specify \\[\"aws:pass\"\\] or you could specify \\[\"aws:pass\", \226\128\156customActionName\226\128\157\\]. For information about compatibility, see the custom action descriptions under CustomAction."];
      statelessFragmentDefaultActions: StatelessActions.t
        [@ocaml.doc
          "The actions to take on a fragmented UDP packet if it doesn't match any of the stateless rules in the policy. Network Firewall only manages UDP packet fragments and silently drops packet fragments for other protocols. If you want non-matching fragmented UDP packets to be forwarded for stateful inspection, specify aws:forward_to_sfe. You must specify one of the standard actions: aws:pass, aws:drop, or aws:forward_to_sfe. In addition, you can specify custom actions that are compatible with your standard section choice. For example, you could specify \\[\"aws:pass\"\\] or you could specify \\[\"aws:pass\", \226\128\156customActionName\226\128\157\\]. For information about compatibility, see the custom action descriptions under CustomAction."];
      statelessCustomActions: CustomActions.t option
        [@ocaml.doc
          "The custom action definitions that are available for use in the firewall policy's StatelessDefaultActions setting. You name each custom action that you define, and then you can use it by name in your default actions specifications."];
      statefulRuleGroupReferences: StatefulRuleGroupReferences.t option
        [@ocaml.doc
          "References to the stateful rule groups that are used in the policy. These define the inspection criteria in stateful rules."];
      statefulDefaultActions: StatefulActions.t option
        [@ocaml.doc
          "The default actions to take on a packet that doesn't match any stateful rules. The stateful default action is optional, and is only valid when using the strict rule order. Valid values of the stateful default action: aws:drop_strict aws:drop_established aws:alert_strict aws:alert_established For more information, see Strict evaluation order in the Network Firewall Developer Guide."];
      statefulEngineOptions: StatefulEngineOptions.t option
        [@ocaml.doc
          "Additional options governing how Network Firewall handles stateful rules. The stateful rule groups that you use in your policy must have stateful rule options settings that are compatible with these settings."];
      tLSInspectionConfigurationArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the TLS inspection configuration."];
      policyVariables: PolicyVariables.t option
        [@ocaml.doc
          "Contains variables that you can use to override default Suricata settings in your firewall policy."];
      enableTLSSessionHolding: EnableTLSSessionHolding.t option
        [@ocaml.doc
          "When true, prevents TCP and TLS packets from reaching destination servers until TLS Inspection has evaluated Server Name Indication (SNI) rules. Requires an associated TLS Inspection configuration."]}
    let context_ = "FirewallPolicy"
    let make ?statelessRuleGroupReferences =
      fun ?statelessCustomActions ->
        fun ?statefulRuleGroupReferences ->
          fun ?statefulDefaultActions ->
            fun ?statefulEngineOptions ->
              fun ?tLSInspectionConfigurationArn ->
                fun ?policyVariables ->
                  fun ?enableTLSSessionHolding ->
                    fun ~statelessDefaultActions ->
                      fun ~statelessFragmentDefaultActions ->
                        fun () ->
                          {
                            statelessRuleGroupReferences;
                            statelessCustomActions;
                            statefulRuleGroupReferences;
                            statefulDefaultActions;
                            statefulEngineOptions;
                            tLSInspectionConfigurationArn;
                            policyVariables;
                            enableTLSSessionHolding;
                            statelessDefaultActions;
                            statelessFragmentDefaultActions
                          }
    let to_value x =
      structure_to_value
        [("StatelessRuleGroupReferences",
           (Option.map x.statelessRuleGroupReferences
              ~f:StatelessRuleGroupReferences.to_value));
        ("StatelessDefaultActions",
          (Some (StatelessActions.to_value x.statelessDefaultActions)));
        ("StatelessFragmentDefaultActions",
          (Some (StatelessActions.to_value x.statelessFragmentDefaultActions)));
        ("StatelessCustomActions",
          (Option.map x.statelessCustomActions ~f:CustomActions.to_value));
        ("StatefulRuleGroupReferences",
          (Option.map x.statefulRuleGroupReferences
             ~f:StatefulRuleGroupReferences.to_value));
        ("StatefulDefaultActions",
          (Option.map x.statefulDefaultActions ~f:StatefulActions.to_value));
        ("StatefulEngineOptions",
          (Option.map x.statefulEngineOptions
             ~f:StatefulEngineOptions.to_value));
        ("TLSInspectionConfigurationArn",
          (Option.map x.tLSInspectionConfigurationArn ~f:ResourceArn.to_value));
        ("PolicyVariables",
          (Option.map x.policyVariables ~f:PolicyVariables.to_value));
        ("EnableTLSSessionHolding",
          (Option.map x.enableTLSSessionHolding
             ~f:EnableTLSSessionHolding.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let enableTLSSessionHolding =
        (Option.map ~f:EnableTLSSessionHolding.of_xml)
          (Xml.child xml_arg0 "EnableTLSSessionHolding") in
      let policyVariables =
        (Option.map ~f:PolicyVariables.of_xml)
          (Xml.child xml_arg0 "PolicyVariables") in
      let tLSInspectionConfigurationArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "TLSInspectionConfigurationArn") in
      let statefulEngineOptions =
        (Option.map ~f:StatefulEngineOptions.of_xml)
          (Xml.child xml_arg0 "StatefulEngineOptions") in
      let statefulDefaultActions =
        (Option.map ~f:StatefulActions.of_xml)
          (Xml.child xml_arg0 "StatefulDefaultActions") in
      let statefulRuleGroupReferences =
        (Option.map ~f:StatefulRuleGroupReferences.of_xml)
          (Xml.child xml_arg0 "StatefulRuleGroupReferences") in
      let statelessCustomActions =
        (Option.map ~f:CustomActions.of_xml)
          (Xml.child xml_arg0 "StatelessCustomActions") in
      let statelessFragmentDefaultActions =
        StatelessActions.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "StatelessFragmentDefaultActions") in
      let statelessDefaultActions =
        StatelessActions.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StatelessDefaultActions") in
      let statelessRuleGroupReferences =
        (Option.map ~f:StatelessRuleGroupReferences.of_xml)
          (Xml.child xml_arg0 "StatelessRuleGroupReferences") in
      make ?enableTLSSessionHolding ?policyVariables
        ?tLSInspectionConfigurationArn ?statefulEngineOptions
        ?statefulDefaultActions ?statefulRuleGroupReferences
        ?statelessCustomActions ~statelessFragmentDefaultActions
        ~statelessDefaultActions ?statelessRuleGroupReferences ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let enableTLSSessionHolding =
        field_map json__ "EnableTLSSessionHolding"
          EnableTLSSessionHolding.of_json in
      let policyVariables =
        field_map json__ "PolicyVariables" PolicyVariables.of_json in
      let tLSInspectionConfigurationArn =
        field_map json__ "TLSInspectionConfigurationArn" ResourceArn.of_json in
      let statefulEngineOptions =
        field_map json__ "StatefulEngineOptions"
          StatefulEngineOptions.of_json in
      let statefulDefaultActions =
        field_map json__ "StatefulDefaultActions" StatefulActions.of_json in
      let statefulRuleGroupReferences =
        field_map json__ "StatefulRuleGroupReferences"
          StatefulRuleGroupReferences.of_json in
      let statelessCustomActions =
        field_map json__ "StatelessCustomActions" CustomActions.of_json in
      let statelessFragmentDefaultActions =
        field_map_exn json__ "StatelessFragmentDefaultActions"
          StatelessActions.of_json in
      let statelessDefaultActions =
        field_map_exn json__ "StatelessDefaultActions"
          StatelessActions.of_json in
      let statelessRuleGroupReferences =
        field_map json__ "StatelessRuleGroupReferences"
          StatelessRuleGroupReferences.of_json in
      make ?enableTLSSessionHolding ?policyVariables
        ?tLSInspectionConfigurationArn ?statefulEngineOptions
        ?statefulDefaultActions ?statefulRuleGroupReferences
        ?statelessCustomActions ~statelessFragmentDefaultActions
        ~statelessDefaultActions ?statelessRuleGroupReferences ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The firewall policy defines the behavior of a firewall using a collection of stateless and stateful rule groups and other settings. You can use one firewall policy for multiple firewalls. This, along with FirewallPolicyResponse, define the policy. You can retrieve all objects for a firewall policy by calling DescribeFirewallPolicy."]
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) >>=
             (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: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 VpcEndpointId =
  struct
    type nonrec t = string
    let context_ = "VpcEndpointId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:5) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () -> check_pattern i ~pattern:"^vpce-[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:"VpcEndpointId" j
    let to_json = simple_to_json to_value
  end
module InvalidResourcePolicyException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The policy statement failed validation."]
module PolicyString =
  struct
    type nonrec t = string
    let context_ = "PolicyString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:395000) >>=
                  (fun () -> check_pattern i ~pattern:".*\\S.*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PolicyString" j
    let to_json = simple_to_json to_value
  end
module PaginationToken =
  struct
    type nonrec t = string
    let context_ = "PaginationToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:4096) >>=
                  (fun () -> check_pattern i ~pattern:"[0-9A-Za-z:\\/+=]+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PaginationToken" j
    let to_json = simple_to_json to_value
  end
module VpcEndpointAssociations =
  struct
    type nonrec t = VpcEndpointAssociationMetadata.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:VpcEndpointAssociationMetadata.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:VpcEndpointAssociationMetadata.of_xml)
    let of_json j =
      list_of_json ~kind:"VpcEndpointAssociations"
        ~of_json:VpcEndpointAssociationMetadata.of_json j
    let to_json v = composed_to_json to_value v
  end
module PaginationMaxResults =
  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 PaginationMaxResults" 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 TagsPaginationMaxResults =
  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: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 TagsPaginationMaxResults"
           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 TLSInspectionConfigurations =
  struct
    type nonrec t = TLSInspectionConfigurationMetadata.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:TLSInspectionConfigurationMetadata.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:TLSInspectionConfigurationMetadata.of_xml)
    let of_json j =
      list_of_json ~kind:"TLSInspectionConfigurations"
        ~of_json:TLSInspectionConfigurationMetadata.of_json j
    let to_json v = composed_to_json to_value v
  end
module RuleGroups =
  struct
    type nonrec t = RuleGroupMetadata.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:RuleGroupMetadata.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:RuleGroupMetadata.of_xml)
    let of_json j =
      list_of_json ~kind:"RuleGroups" ~of_json:RuleGroupMetadata.of_json j
    let to_json v = composed_to_json to_value v
  end
module ResourceManagedStatus =
  struct
    type nonrec t =
      | MANAGED 
      | ACCOUNT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | MANAGED -> "MANAGED"
      | ACCOUNT -> "ACCOUNT"
      | Non_static_id s -> s
    let of_string =
      function
      | "MANAGED" -> MANAGED
      | "ACCOUNT" -> ACCOUNT
      | 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 ResourceManagedStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ResourceManagedStatus" j)
    let to_json = simple_to_json to_value
  end
module ResourceManagedType =
  struct
    type nonrec t =
      | AWS_MANAGED_THREAT_SIGNATURES 
      | AWS_MANAGED_DOMAIN_LISTS 
      | ACTIVE_THREAT_DEFENSE 
      | PARTNER_MANAGED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | AWS_MANAGED_THREAT_SIGNATURES -> "AWS_MANAGED_THREAT_SIGNATURES"
      | AWS_MANAGED_DOMAIN_LISTS -> "AWS_MANAGED_DOMAIN_LISTS"
      | ACTIVE_THREAT_DEFENSE -> "ACTIVE_THREAT_DEFENSE"
      | PARTNER_MANAGED -> "PARTNER_MANAGED"
      | Non_static_id s -> s
    let of_string =
      function
      | "AWS_MANAGED_THREAT_SIGNATURES" -> AWS_MANAGED_THREAT_SIGNATURES
      | "AWS_MANAGED_DOMAIN_LISTS" -> AWS_MANAGED_DOMAIN_LISTS
      | "ACTIVE_THREAT_DEFENSE" -> ACTIVE_THREAT_DEFENSE
      | "PARTNER_MANAGED" -> PARTNER_MANAGED
      | 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 ResourceManagedType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ResourceManagedType" j)
    let to_json = simple_to_json to_value
  end
module SubscriptionStatus =
  struct
    type nonrec t =
      | NOT_SUBSCRIBED 
      | SUBSCRIBED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | NOT_SUBSCRIBED -> "NOT_SUBSCRIBED"
      | SUBSCRIBED -> "SUBSCRIBED"
      | Non_static_id s -> s
    let of_string =
      function
      | "NOT_SUBSCRIBED" -> NOT_SUBSCRIBED
      | "SUBSCRIBED" -> SUBSCRIBED
      | 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 SubscriptionStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SubscriptionStatus" j)
    let to_json = simple_to_json to_value
  end
module ProxyRuleGroups =
  struct
    type nonrec t = ProxyRuleGroupMetadata.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:ProxyRuleGroupMetadata.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:ProxyRuleGroupMetadata.of_xml)
    let of_json j =
      list_of_json ~kind:"ProxyRuleGroups"
        ~of_json:ProxyRuleGroupMetadata.of_json j
    let to_json v = composed_to_json to_value v
  end
module ProxyConfigurations =
  struct
    type nonrec t = ProxyConfigurationMetadata.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:ProxyConfigurationMetadata.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:ProxyConfigurationMetadata.of_xml)
    let of_json j =
      list_of_json ~kind:"ProxyConfigurations"
        ~of_json:ProxyConfigurationMetadata.of_json j
    let to_json v = composed_to_json to_value v
  end
module Proxies =
  struct
    type nonrec t = ProxyMetadata.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:ProxyMetadata.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:ProxyMetadata.of_xml)
    let of_json j =
      list_of_json ~kind:"Proxies" ~of_json:ProxyMetadata.of_json j
    let to_json v = composed_to_json to_value v
  end
module FlowOperations =
  struct
    type nonrec t = FlowOperationMetadata.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:FlowOperationMetadata.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:FlowOperationMetadata.of_xml)
    let of_json j =
      list_of_json ~kind:"FlowOperations"
        ~of_json:FlowOperationMetadata.of_json j
    let to_json v = composed_to_json to_value v
  end
module Flows =
  struct
    type nonrec t = Flow.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:Flow.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:Flow.of_xml)
    let of_json j = list_of_json ~kind:"Flows" ~of_json:Flow.of_json j
    let to_json v = composed_to_json to_value v
  end
module Firewalls =
  struct
    type nonrec t = FirewallMetadata.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:FirewallMetadata.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:FirewallMetadata.of_xml)
    let of_json j =
      list_of_json ~kind:"Firewalls" ~of_json:FirewallMetadata.of_json j
    let to_json v = composed_to_json to_value v
  end
module VpcIds =
  struct
    type nonrec t = VpcId.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:VpcId.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:VpcId.of_xml)
    let of_json j = list_of_json ~kind:"VpcIds" ~of_json:VpcId.of_json j
    let to_json v = composed_to_json to_value v
  end
module FirewallPolicies =
  struct
    type nonrec t = FirewallPolicyMetadata.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:FirewallPolicyMetadata.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:FirewallPolicyMetadata.of_xml)
    let of_json j =
      list_of_json ~kind:"FirewallPolicies"
        ~of_json:FirewallPolicyMetadata.of_json j
    let to_json v = composed_to_json to_value v
  end
module AnalysisReports =
  struct
    type nonrec t = AnalysisReport.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:AnalysisReport.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:AnalysisReport.of_xml)
    let of_json j =
      list_of_json ~kind:"AnalysisReports" ~of_json:AnalysisReport.of_json j
    let to_json v = composed_to_json to_value v
  end
module AnalysisReportNextToken =
  struct
    type nonrec t = string
    let context_ = "AnalysisReportNextToken"
    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:"AnalysisReportNextToken" j
    let to_json = simple_to_json to_value
  end
module AnalysisReportResults =
  struct
    type nonrec t = AnalysisTypeReportResult.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:AnalysisTypeReportResult.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:AnalysisTypeReportResult.of_xml)
    let of_json j =
      list_of_json ~kind:"AnalysisReportResults"
        ~of_json:AnalysisTypeReportResult.of_json j
    let to_json v = composed_to_json to_value v
  end
module EndTime =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module StartTime =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module InvalidOperationException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The operation failed because it's not valid. For example, you might have tried to delete a rule group or firewall policy that's in use."]
module AzSubnets =
  struct
    type nonrec t = AzSubnet.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:AzSubnet.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:AzSubnet.of_xml)
    let of_json j =
      list_of_json ~kind:"AzSubnets" ~of_json:AzSubnet.of_json j
    let to_json v = composed_to_json to_value v
  end
module ResourceArnList =
  struct
    type nonrec t = ResourceArn.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:ResourceArn.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:ResourceArn.of_xml)
    let of_json j =
      list_of_json ~kind:"ResourceArnList" ~of_json:ResourceArn.of_json j
    let to_json v = composed_to_json to_value v
  end
module ResourceNameList =
  struct
    type nonrec t = ResourceName.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:ResourceName.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:ResourceName.of_xml)
    let of_json j =
      list_of_json ~kind:"ResourceNameList" ~of_json:ResourceName.of_json j
    let to_json v = composed_to_json to_value v
  end
module VpcEndpointAssociation =
  struct
    type nonrec t =
      {
      vpcEndpointAssociationId: ResourceId.t option
        [@ocaml.doc "The unique identifier of the VPC endpoint association."];
      vpcEndpointAssociationArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of a VPC endpoint association."];
      firewallArn: ResourceArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the firewall."];
      vpcId: VpcId.t option
        [@ocaml.doc
          "The unique identifier of the VPC for the endpoint association."];
      subnetMapping: SubnetMapping.t option ;
      description: Description.t option
        [@ocaml.doc "A description of the VPC endpoint association."];
      tags: TagList.t option
        [@ocaml.doc "The key:value pairs to associate with the resource."]}
    let make ?vpcEndpointAssociationId =
      fun ?vpcEndpointAssociationArn ->
        fun ?firewallArn ->
          fun ?vpcId ->
            fun ?subnetMapping ->
              fun ?description ->
                fun ?tags ->
                  fun () ->
                    {
                      vpcEndpointAssociationId;
                      vpcEndpointAssociationArn;
                      firewallArn;
                      vpcId;
                      subnetMapping;
                      description;
                      tags
                    }
    let to_value x =
      structure_to_value
        [("VpcEndpointAssociationId",
           (Option.map x.vpcEndpointAssociationId ~f:ResourceId.to_value));
        ("VpcEndpointAssociationArn",
          (Option.map x.vpcEndpointAssociationArn ~f:ResourceArn.to_value));
        ("FirewallArn", (Option.map x.firewallArn ~f:ResourceArn.to_value));
        ("VpcId", (Option.map x.vpcId ~f:VpcId.to_value));
        ("SubnetMapping",
          (Option.map x.subnetMapping ~f:SubnetMapping.to_value));
        ("Description", (Option.map x.description ~f:Description.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 description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let subnetMapping =
        (Option.map ~f:SubnetMapping.of_xml)
          (Xml.child xml_arg0 "SubnetMapping") in
      let vpcId = (Option.map ~f:VpcId.of_xml) (Xml.child xml_arg0 "VpcId") in
      let firewallArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "FirewallArn") in
      let vpcEndpointAssociationArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "VpcEndpointAssociationArn") in
      let vpcEndpointAssociationId =
        (Option.map ~f:ResourceId.of_xml)
          (Xml.child xml_arg0 "VpcEndpointAssociationId") in
      make ?tags ?description ?subnetMapping ?vpcId ?firewallArn
        ?vpcEndpointAssociationArn ?vpcEndpointAssociationId ()
    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 description = field_map json__ "Description" Description.of_json in
      let subnetMapping =
        field_map json__ "SubnetMapping" SubnetMapping.of_json in
      let vpcId = field_map json__ "VpcId" VpcId.of_json in
      let firewallArn = field_map json__ "FirewallArn" ResourceArn.of_json in
      let vpcEndpointAssociationArn =
        field_map json__ "VpcEndpointAssociationArn" ResourceArn.of_json in
      let vpcEndpointAssociationId =
        field_map json__ "VpcEndpointAssociationId" ResourceId.of_json in
      make ?tags ?description ?subnetMapping ?vpcId ?firewallArn
        ?vpcEndpointAssociationArn ?vpcEndpointAssociationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A VPC endpoint association defines a single subnet to use for a firewall endpoint for a Firewall. You can define VPC endpoint associations only in the Availability Zones that already have a subnet mapping defined in the Firewall resource. You can retrieve the list of Availability Zones that are available for use by calling DescribeFirewallMetadata. To manage firewall endpoints, first, in the Firewall specification, you specify a single VPC and one subnet for each of the Availability Zones where you want to use the firewall. Then you can define additional endpoints as VPC endpoint associations. You can use VPC endpoint associations to expand the protections of the firewall as follows: Protect multiple VPCs with a single firewall - You can use the firewall to protect other VPCs, either in your account or in accounts where the firewall is shared. You can only specify Availability Zones that already have a firewall endpoint defined in the Firewall subnet mappings. Define multiple firewall endpoints for a VPC in an Availability Zone - You can create additional firewall endpoints for the VPC that you have defined in the firewall, in any Availability Zone that already has an endpoint defined in the Firewall subnet mappings. You can create multiple VPC endpoint associations for any other VPC where you use the firewall. You can use Resource Access Manager to share a Firewall that you own with other accounts, which gives them the ability to use the firewall to create VPC endpoint associations. For information about sharing a firewall, see PutResourcePolicy in this guide and see Sharing Network Firewall resources in the Network Firewall Developer Guide. The status of the VPC endpoint association, which indicates whether it's ready to filter network traffic, is provided in the corresponding VpcEndpointAssociationStatus. You can retrieve both the association and its status by calling DescribeVpcEndpointAssociation."]
module VpcEndpointAssociationStatus =
  struct
    type nonrec t =
      {
      status: FirewallStatusValue.t option
        [@ocaml.doc
          "The readiness of the configured firewall endpoint to handle network traffic."];
      associationSyncState: AssociationSyncState.t option
        [@ocaml.doc
          "The list of the Availability Zone sync states for all subnets that are defined by the firewall."]}
    let make ?status =
      fun ?associationSyncState -> fun () -> { status; associationSyncState }
    let to_value x =
      structure_to_value
        [("Status", (Option.map x.status ~f:FirewallStatusValue.to_value));
        ("AssociationSyncState",
          (Option.map x.associationSyncState ~f:AssociationSyncState.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let associationSyncState =
        (Option.map ~f:AssociationSyncState.of_xml)
          (Xml.child xml_arg0 "AssociationSyncState") in
      let status =
        (Option.map ~f:FirewallStatusValue.of_xml)
          (Xml.child xml_arg0 "Status") in
      make ?associationSyncState ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let associationSyncState =
        field_map json__ "AssociationSyncState" AssociationSyncState.of_json in
      let status = field_map json__ "Status" FirewallStatusValue.of_json in
      make ?associationSyncState ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Detailed information about the current status of a VpcEndpointAssociation. You can retrieve this by calling DescribeVpcEndpointAssociation and providing the VPC endpoint association ARN."]
module Summary =
  struct
    type nonrec t =
      {
      ruleSummaries: RuleSummaries.t option
        [@ocaml.doc
          "An array of RuleSummary objects containing individual rule details that had been configured by the rulegroup's SummaryConfiguration."]}
    let make ?ruleSummaries = fun () -> { ruleSummaries }
    let to_value x =
      structure_to_value
        [("RuleSummaries",
           (Option.map x.ruleSummaries ~f:RuleSummaries.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ruleSummaries =
        (Option.map ~f:RuleSummaries.of_xml)
          (Xml.child xml_arg0 "RuleSummaries") in
      make ?ruleSummaries ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ruleSummaries =
        field_map json__ "RuleSummaries" RuleSummaries.of_json in
      make ?ruleSummaries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A complex type containing summaries of security protections provided by a rule group. Network Firewall extracts this information from selected fields in the rule group's Suricata rules, based on your SummaryConfiguration settings."]
module ListingName =
  struct
    type nonrec t = string
    let context_ = "ListingName"
    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:"ListingName" j
    let to_json = simple_to_json to_value
  end
module ProductId =
  struct
    type nonrec t = string
    let context_ = "ProductId"
    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:"ProductId" j
    let to_json = simple_to_json to_value
  end
module ProxyRuleGroup =
  struct
    type nonrec t =
      {
      proxyRuleGroupName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the proxy rule group. You can't change the name of a proxy rule group after you create it."];
      proxyRuleGroupArn: ResourceArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of a proxy rule group."];
      createTime: CreateTime.t option
        [@ocaml.doc "Time the Proxy Rule Group was created."];
      deleteTime: DeleteTime.t option
        [@ocaml.doc "Time the Proxy Rule Group was deleted."];
      rules: ProxyRulesByRequestPhase.t option
        [@ocaml.doc
          "Individual rules that define match conditions and actions for application-layer traffic. Rules specify what to inspect (domains, headers, methods) and what action to take (allow, deny, alert)."];
      description: Description.t option
        [@ocaml.doc "A description of the proxy rule group."];
      tags: TagList.t option
        [@ocaml.doc "The key:value pairs to associate with the resource."]}
    let make ?proxyRuleGroupName =
      fun ?proxyRuleGroupArn ->
        fun ?createTime ->
          fun ?deleteTime ->
            fun ?rules ->
              fun ?description ->
                fun ?tags ->
                  fun () ->
                    {
                      proxyRuleGroupName;
                      proxyRuleGroupArn;
                      createTime;
                      deleteTime;
                      rules;
                      description;
                      tags
                    }
    let to_value x =
      structure_to_value
        [("ProxyRuleGroupName",
           (Option.map x.proxyRuleGroupName ~f:ResourceName.to_value));
        ("ProxyRuleGroupArn",
          (Option.map x.proxyRuleGroupArn ~f:ResourceArn.to_value));
        ("CreateTime", (Option.map x.createTime ~f:CreateTime.to_value));
        ("DeleteTime", (Option.map x.deleteTime ~f:DeleteTime.to_value));
        ("Rules", (Option.map x.rules ~f:ProxyRulesByRequestPhase.to_value));
        ("Description", (Option.map x.description ~f:Description.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 description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let rules =
        (Option.map ~f:ProxyRulesByRequestPhase.of_xml)
          (Xml.child xml_arg0 "Rules") in
      let deleteTime =
        (Option.map ~f:DeleteTime.of_xml) (Xml.child xml_arg0 "DeleteTime") in
      let createTime =
        (Option.map ~f:CreateTime.of_xml) (Xml.child xml_arg0 "CreateTime") in
      let proxyRuleGroupArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "ProxyRuleGroupArn") in
      let proxyRuleGroupName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "ProxyRuleGroupName") in
      make ?tags ?description ?rules ?deleteTime ?createTime
        ?proxyRuleGroupArn ?proxyRuleGroupName ()
    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 description = field_map json__ "Description" Description.of_json in
      let rules = field_map json__ "Rules" ProxyRulesByRequestPhase.of_json in
      let deleteTime = field_map json__ "DeleteTime" DeleteTime.of_json in
      let createTime = field_map json__ "CreateTime" CreateTime.of_json in
      let proxyRuleGroupArn =
        field_map json__ "ProxyRuleGroupArn" ResourceArn.of_json in
      let proxyRuleGroupName =
        field_map json__ "ProxyRuleGroupName" ResourceName.of_json in
      make ?tags ?description ?rules ?deleteTime ?createTime
        ?proxyRuleGroupArn ?proxyRuleGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Collections of related proxy filtering rules. Rule groups help you manage and reuse sets of rules across multiple proxy configurations."]
module DescribeProxyResource =
  struct
    type nonrec t =
      {
      proxyName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the proxy. You can't change the name of a proxy after you create it."];
      proxyArn: ResourceArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of a proxy."];
      proxyConfigurationName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the proxy configuration. You can't change the name of a proxy configuration after you create it."];
      proxyConfigurationArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of a proxy configuration."];
      natGatewayId: NatGatewayId.t option
        [@ocaml.doc "The NAT Gateway for the proxy."];
      proxyState: ProxyState.t option
        [@ocaml.doc "Current attachment/detachment status of the Proxy."];
      proxyModifyState: ProxyModifyState.t option
        [@ocaml.doc "Current modification status of the Proxy."];
      listenerProperties: ListenerProperties.t option
        [@ocaml.doc "Listener properties for HTTP and HTTPS traffic."];
      tlsInterceptProperties: TlsInterceptProperties.t option
        [@ocaml.doc
          "TLS decryption on traffic to filter on attributes in the HTTP header."];
      vpcEndpointServiceName: VpcEndpointServiceName.t option
        [@ocaml.doc "The service endpoint created in the VPC."];
      privateDNSName: PrivateDNSName.t option
        [@ocaml.doc "The private DNS name of the Proxy."];
      createTime: CreateTime.t option
        [@ocaml.doc "Time the Proxy was created."];
      deleteTime: DeleteTime.t option
        [@ocaml.doc "Time the Proxy was deleted."];
      updateTime: UpdateTime.t option
        [@ocaml.doc "Time the Proxy was updated."];
      failureCode: FailureCode.t option
        [@ocaml.doc
          "Failure code for cases when the Proxy fails to attach or update."];
      failureMessage: FailureMessage.t option
        [@ocaml.doc
          "Failure message for cases when the Proxy fails to attach or update."];
      tags: TagList.t option
        [@ocaml.doc "The key:value pairs to associate with the resource."]}
    let make ?proxyName =
      fun ?proxyArn ->
        fun ?proxyConfigurationName ->
          fun ?proxyConfigurationArn ->
            fun ?natGatewayId ->
              fun ?proxyState ->
                fun ?proxyModifyState ->
                  fun ?listenerProperties ->
                    fun ?tlsInterceptProperties ->
                      fun ?vpcEndpointServiceName ->
                        fun ?privateDNSName ->
                          fun ?createTime ->
                            fun ?deleteTime ->
                              fun ?updateTime ->
                                fun ?failureCode ->
                                  fun ?failureMessage ->
                                    fun ?tags ->
                                      fun () ->
                                        {
                                          proxyName;
                                          proxyArn;
                                          proxyConfigurationName;
                                          proxyConfigurationArn;
                                          natGatewayId;
                                          proxyState;
                                          proxyModifyState;
                                          listenerProperties;
                                          tlsInterceptProperties;
                                          vpcEndpointServiceName;
                                          privateDNSName;
                                          createTime;
                                          deleteTime;
                                          updateTime;
                                          failureCode;
                                          failureMessage;
                                          tags
                                        }
    let to_value x =
      structure_to_value
        [("ProxyName", (Option.map x.proxyName ~f:ResourceName.to_value));
        ("ProxyArn", (Option.map x.proxyArn ~f:ResourceArn.to_value));
        ("ProxyConfigurationName",
          (Option.map x.proxyConfigurationName ~f:ResourceName.to_value));
        ("ProxyConfigurationArn",
          (Option.map x.proxyConfigurationArn ~f:ResourceArn.to_value));
        ("NatGatewayId",
          (Option.map x.natGatewayId ~f:NatGatewayId.to_value));
        ("ProxyState", (Option.map x.proxyState ~f:ProxyState.to_value));
        ("ProxyModifyState",
          (Option.map x.proxyModifyState ~f:ProxyModifyState.to_value));
        ("ListenerProperties",
          (Option.map x.listenerProperties ~f:ListenerProperties.to_value));
        ("TlsInterceptProperties",
          (Option.map x.tlsInterceptProperties
             ~f:TlsInterceptProperties.to_value));
        ("VpcEndpointServiceName",
          (Option.map x.vpcEndpointServiceName
             ~f:VpcEndpointServiceName.to_value));
        ("PrivateDNSName",
          (Option.map x.privateDNSName ~f:PrivateDNSName.to_value));
        ("CreateTime", (Option.map x.createTime ~f:CreateTime.to_value));
        ("DeleteTime", (Option.map x.deleteTime ~f:DeleteTime.to_value));
        ("UpdateTime", (Option.map x.updateTime ~f:UpdateTime.to_value));
        ("FailureCode", (Option.map x.failureCode ~f:FailureCode.to_value));
        ("FailureMessage",
          (Option.map x.failureMessage ~f:FailureMessage.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 failureMessage =
        (Option.map ~f:FailureMessage.of_xml)
          (Xml.child xml_arg0 "FailureMessage") in
      let failureCode =
        (Option.map ~f:FailureCode.of_xml) (Xml.child xml_arg0 "FailureCode") in
      let updateTime =
        (Option.map ~f:UpdateTime.of_xml) (Xml.child xml_arg0 "UpdateTime") in
      let deleteTime =
        (Option.map ~f:DeleteTime.of_xml) (Xml.child xml_arg0 "DeleteTime") in
      let createTime =
        (Option.map ~f:CreateTime.of_xml) (Xml.child xml_arg0 "CreateTime") in
      let privateDNSName =
        (Option.map ~f:PrivateDNSName.of_xml)
          (Xml.child xml_arg0 "PrivateDNSName") in
      let vpcEndpointServiceName =
        (Option.map ~f:VpcEndpointServiceName.of_xml)
          (Xml.child xml_arg0 "VpcEndpointServiceName") in
      let tlsInterceptProperties =
        (Option.map ~f:TlsInterceptProperties.of_xml)
          (Xml.child xml_arg0 "TlsInterceptProperties") in
      let listenerProperties =
        (Option.map ~f:ListenerProperties.of_xml)
          (Xml.child xml_arg0 "ListenerProperties") in
      let proxyModifyState =
        (Option.map ~f:ProxyModifyState.of_xml)
          (Xml.child xml_arg0 "ProxyModifyState") in
      let proxyState =
        (Option.map ~f:ProxyState.of_xml) (Xml.child xml_arg0 "ProxyState") in
      let natGatewayId =
        (Option.map ~f:NatGatewayId.of_xml)
          (Xml.child xml_arg0 "NatGatewayId") in
      let proxyConfigurationArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "ProxyConfigurationArn") in
      let proxyConfigurationName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "ProxyConfigurationName") in
      let proxyArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "ProxyArn") in
      let proxyName =
        (Option.map ~f:ResourceName.of_xml) (Xml.child xml_arg0 "ProxyName") in
      make ?tags ?failureMessage ?failureCode ?updateTime ?deleteTime
        ?createTime ?privateDNSName ?vpcEndpointServiceName
        ?tlsInterceptProperties ?listenerProperties ?proxyModifyState
        ?proxyState ?natGatewayId ?proxyConfigurationArn
        ?proxyConfigurationName ?proxyArn ?proxyName ()
    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 failureMessage =
        field_map json__ "FailureMessage" FailureMessage.of_json in
      let failureCode = field_map json__ "FailureCode" FailureCode.of_json in
      let updateTime = field_map json__ "UpdateTime" UpdateTime.of_json in
      let deleteTime = field_map json__ "DeleteTime" DeleteTime.of_json in
      let createTime = field_map json__ "CreateTime" CreateTime.of_json in
      let privateDNSName =
        field_map json__ "PrivateDNSName" PrivateDNSName.of_json in
      let vpcEndpointServiceName =
        field_map json__ "VpcEndpointServiceName"
          VpcEndpointServiceName.of_json in
      let tlsInterceptProperties =
        field_map json__ "TlsInterceptProperties"
          TlsInterceptProperties.of_json in
      let listenerProperties =
        field_map json__ "ListenerProperties" ListenerProperties.of_json in
      let proxyModifyState =
        field_map json__ "ProxyModifyState" ProxyModifyState.of_json in
      let proxyState = field_map json__ "ProxyState" ProxyState.of_json in
      let natGatewayId = field_map json__ "NatGatewayId" NatGatewayId.of_json in
      let proxyConfigurationArn =
        field_map json__ "ProxyConfigurationArn" ResourceArn.of_json in
      let proxyConfigurationName =
        field_map json__ "ProxyConfigurationName" ResourceName.of_json in
      let proxyArn = field_map json__ "ProxyArn" ResourceArn.of_json in
      let proxyName = field_map json__ "ProxyName" ResourceName.of_json in
      make ?tags ?failureMessage ?failureCode ?updateTime ?deleteTime
        ?createTime ?privateDNSName ?vpcEndpointServiceName
        ?tlsInterceptProperties ?listenerProperties ?proxyModifyState
        ?proxyState ?natGatewayId ?proxyConfigurationArn
        ?proxyConfigurationName ?proxyArn ?proxyName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Proxy attached to a NAT gateway."]
module FlowOperation =
  struct
    type nonrec t =
      {
      minimumFlowAgeInSeconds: Age.t option
        [@ocaml.doc
          "The reqested FlowOperation ignores flows with an age (in seconds) lower than MinimumFlowAgeInSeconds. You provide this for start commands."];
      flowFilters: FlowFilters.t option
        [@ocaml.doc
          "Defines the scope a flow operation. You can use up to 20 filters to configure a single flow operation."]}
    let make ?minimumFlowAgeInSeconds =
      fun ?flowFilters -> fun () -> { minimumFlowAgeInSeconds; flowFilters }
    let to_value x =
      structure_to_value
        [("MinimumFlowAgeInSeconds",
           (Option.map x.minimumFlowAgeInSeconds ~f:Age.to_value));
        ("FlowFilters", (Option.map x.flowFilters ~f:FlowFilters.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let flowFilters =
        (Option.map ~f:FlowFilters.of_xml) (Xml.child xml_arg0 "FlowFilters") in
      let minimumFlowAgeInSeconds =
        (Option.map ~f:Age.of_xml)
          (Xml.child xml_arg0 "MinimumFlowAgeInSeconds") in
      make ?flowFilters ?minimumFlowAgeInSeconds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let flowFilters = field_map json__ "FlowFilters" FlowFilters.of_json in
      let minimumFlowAgeInSeconds =
        field_map json__ "MinimumFlowAgeInSeconds" Age.of_json in
      make ?flowFilters ?minimumFlowAgeInSeconds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about a flow operation, such as related statuses, unique identifiers, and all filters defined in the operation. Flow operations let you manage the flows tracked in the flow table, also known as the firewall table. A flow is network traffic that is monitored by a firewall, either by stateful or stateless rules. For traffic to be considered part of a flow, it must share Destination, DestinationPort, Direction, Protocol, Source, and SourcePort."]
module Firewall =
  struct
    type nonrec t =
      {
      firewallName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the firewall. You can't change the name of a firewall after you create it."];
      firewallArn: ResourceArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the firewall."];
      firewallPolicyArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the firewall policy. The relationship of firewall to firewall policy is many to one. Each firewall requires one firewall policy association, and you can use the same firewall policy for multiple firewalls."];
      vpcId: VpcId.t option
        [@ocaml.doc
          "The unique identifier of the VPC where the firewall is in use."];
      subnetMappings: SubnetMappings.t option
        [@ocaml.doc
          "The primary public subnets that Network Firewall is using for the firewall. Network Firewall creates a firewall endpoint in each subnet. Create a subnet mapping for each Availability Zone where you want to use the firewall. These subnets are all defined for a single, primary VPC, and each must belong to a different Availability Zone. Each of these subnets establishes the availability of the firewall in its Availability Zone. In addition to these subnets, you can define other endpoints for the firewall in VpcEndpointAssociation resources. You can define these additional endpoints for any VPC, and for any of the Availability Zones where the firewall resource already has a subnet mapping. VPC endpoint associations give you the ability to protect multiple VPCs using a single firewall, and to define multiple firewall endpoints for a VPC in a single Availability Zone."];
      deleteProtection: Boolean.t option
        [@ocaml.doc
          "A flag indicating whether it is possible to delete the firewall. A setting of TRUE indicates that the firewall is protected against deletion. Use this setting to protect against accidentally deleting a firewall that is in use. When you create a firewall, the operation initializes this flag to TRUE."];
      subnetChangeProtection: Boolean.t option
        [@ocaml.doc
          "A setting indicating whether the firewall is protected against changes to the subnet associations. Use this setting to protect against accidentally modifying the subnet associations for a firewall that is in use. When you create a firewall, the operation initializes this setting to TRUE."];
      firewallPolicyChangeProtection: Boolean.t option
        [@ocaml.doc
          "A setting indicating whether the firewall is protected against a change to the firewall policy association. Use this setting to protect against accidentally modifying the firewall policy for a firewall that is in use. When you create a firewall, the operation initializes this setting to TRUE."];
      description: Description.t option
        [@ocaml.doc "A description of the firewall."];
      firewallId: ResourceId.t option
        [@ocaml.doc "The unique identifier for the firewall."];
      tags: TagList.t option ;
      encryptionConfiguration: EncryptionConfiguration.t option
        [@ocaml.doc
          "A complex type that contains the Amazon Web Services KMS encryption configuration settings for your firewall."];
      numberOfAssociations: NumberOfAssociations.t option
        [@ocaml.doc
          "The number of VpcEndpointAssociation resources that use this firewall."];
      enabledAnalysisTypes: EnabledAnalysisTypes.t option
        [@ocaml.doc
          "An optional setting indicating the specific traffic analysis types to enable on the firewall."];
      transitGatewayId: TransitGatewayId.t option
        [@ocaml.doc
          "The unique identifier of the transit gateway associated with this firewall. This field is only present for transit gateway-attached firewalls."];
      transitGatewayOwnerAccountId: AWSAccountId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID that owns the transit gateway. This may be different from the firewall owner's account ID when using a shared transit gateway."];
      availabilityZoneMappings: AvailabilityZoneMappings.t option
        [@ocaml.doc
          "The Availability Zones where the firewall endpoints are created for a transit gateway-attached firewall. Each mapping specifies an Availability Zone where the firewall processes traffic."];
      availabilityZoneChangeProtection: Boolean.t option
        [@ocaml.doc
          "A setting indicating whether the firewall is protected against changes to its Availability Zone configuration. When set to TRUE, you must first disable this protection before adding or removing Availability Zones."]}
    let make ?firewallName =
      fun ?firewallArn ->
        fun ?firewallPolicyArn ->
          fun ?vpcId ->
            fun ?subnetMappings ->
              fun ?deleteProtection ->
                fun ?subnetChangeProtection ->
                  fun ?firewallPolicyChangeProtection ->
                    fun ?description ->
                      fun ?firewallId ->
                        fun ?tags ->
                          fun ?encryptionConfiguration ->
                            fun ?numberOfAssociations ->
                              fun ?enabledAnalysisTypes ->
                                fun ?transitGatewayId ->
                                  fun ?transitGatewayOwnerAccountId ->
                                    fun ?availabilityZoneMappings ->
                                      fun ?availabilityZoneChangeProtection
                                        ->
                                        fun () ->
                                          {
                                            firewallName;
                                            firewallArn;
                                            firewallPolicyArn;
                                            vpcId;
                                            subnetMappings;
                                            deleteProtection;
                                            subnetChangeProtection;
                                            firewallPolicyChangeProtection;
                                            description;
                                            firewallId;
                                            tags;
                                            encryptionConfiguration;
                                            numberOfAssociations;
                                            enabledAnalysisTypes;
                                            transitGatewayId;
                                            transitGatewayOwnerAccountId;
                                            availabilityZoneMappings;
                                            availabilityZoneChangeProtection
                                          }
    let to_value x =
      structure_to_value
        [("FirewallName",
           (Option.map x.firewallName ~f:ResourceName.to_value));
        ("FirewallArn", (Option.map x.firewallArn ~f:ResourceArn.to_value));
        ("FirewallPolicyArn",
          (Option.map x.firewallPolicyArn ~f:ResourceArn.to_value));
        ("VpcId", (Option.map x.vpcId ~f:VpcId.to_value));
        ("SubnetMappings",
          (Option.map x.subnetMappings ~f:SubnetMappings.to_value));
        ("DeleteProtection",
          (Option.map x.deleteProtection ~f:Boolean.to_value));
        ("SubnetChangeProtection",
          (Option.map x.subnetChangeProtection ~f:Boolean.to_value));
        ("FirewallPolicyChangeProtection",
          (Option.map x.firewallPolicyChangeProtection ~f:Boolean.to_value));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("FirewallId", (Option.map x.firewallId ~f:ResourceId.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("EncryptionConfiguration",
          (Option.map x.encryptionConfiguration
             ~f:EncryptionConfiguration.to_value));
        ("NumberOfAssociations",
          (Option.map x.numberOfAssociations ~f:NumberOfAssociations.to_value));
        ("EnabledAnalysisTypes",
          (Option.map x.enabledAnalysisTypes ~f:EnabledAnalysisTypes.to_value));
        ("TransitGatewayId",
          (Option.map x.transitGatewayId ~f:TransitGatewayId.to_value));
        ("TransitGatewayOwnerAccountId",
          (Option.map x.transitGatewayOwnerAccountId ~f:AWSAccountId.to_value));
        ("AvailabilityZoneMappings",
          (Option.map x.availabilityZoneMappings
             ~f:AvailabilityZoneMappings.to_value));
        ("AvailabilityZoneChangeProtection",
          (Option.map x.availabilityZoneChangeProtection ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let availabilityZoneChangeProtection =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "AvailabilityZoneChangeProtection") in
      let availabilityZoneMappings =
        (Option.map ~f:AvailabilityZoneMappings.of_xml)
          (Xml.child xml_arg0 "AvailabilityZoneMappings") in
      let transitGatewayOwnerAccountId =
        (Option.map ~f:AWSAccountId.of_xml)
          (Xml.child xml_arg0 "TransitGatewayOwnerAccountId") in
      let transitGatewayId =
        (Option.map ~f:TransitGatewayId.of_xml)
          (Xml.child xml_arg0 "TransitGatewayId") in
      let enabledAnalysisTypes =
        (Option.map ~f:EnabledAnalysisTypes.of_xml)
          (Xml.child xml_arg0 "EnabledAnalysisTypes") in
      let numberOfAssociations =
        (Option.map ~f:NumberOfAssociations.of_xml)
          (Xml.child xml_arg0 "NumberOfAssociations") in
      let encryptionConfiguration =
        (Option.map ~f:EncryptionConfiguration.of_xml)
          (Xml.child xml_arg0 "EncryptionConfiguration") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let firewallId =
        (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "FirewallId") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let firewallPolicyChangeProtection =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "FirewallPolicyChangeProtection") in
      let subnetChangeProtection =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "SubnetChangeProtection") in
      let deleteProtection =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "DeleteProtection") in
      let subnetMappings =
        (Option.map ~f:SubnetMappings.of_xml)
          (Xml.child xml_arg0 "SubnetMappings") in
      let vpcId = (Option.map ~f:VpcId.of_xml) (Xml.child xml_arg0 "VpcId") in
      let firewallPolicyArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "FirewallPolicyArn") in
      let firewallArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "FirewallArn") in
      let firewallName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "FirewallName") in
      make ?availabilityZoneChangeProtection ?availabilityZoneMappings
        ?transitGatewayOwnerAccountId ?transitGatewayId ?enabledAnalysisTypes
        ?numberOfAssociations ?encryptionConfiguration ?tags ?firewallId
        ?description ?firewallPolicyChangeProtection ?subnetChangeProtection
        ?deleteProtection ?subnetMappings ?vpcId ?firewallPolicyArn
        ?firewallArn ?firewallName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let availabilityZoneChangeProtection =
        field_map json__ "AvailabilityZoneChangeProtection" Boolean.of_json in
      let availabilityZoneMappings =
        field_map json__ "AvailabilityZoneMappings"
          AvailabilityZoneMappings.of_json in
      let transitGatewayOwnerAccountId =
        field_map json__ "TransitGatewayOwnerAccountId" AWSAccountId.of_json in
      let transitGatewayId =
        field_map json__ "TransitGatewayId" TransitGatewayId.of_json in
      let enabledAnalysisTypes =
        field_map json__ "EnabledAnalysisTypes" EnabledAnalysisTypes.of_json in
      let numberOfAssociations =
        field_map json__ "NumberOfAssociations" NumberOfAssociations.of_json in
      let encryptionConfiguration =
        field_map json__ "EncryptionConfiguration"
          EncryptionConfiguration.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let firewallId = field_map json__ "FirewallId" ResourceId.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let firewallPolicyChangeProtection =
        field_map json__ "FirewallPolicyChangeProtection" Boolean.of_json in
      let subnetChangeProtection =
        field_map json__ "SubnetChangeProtection" Boolean.of_json in
      let deleteProtection =
        field_map json__ "DeleteProtection" Boolean.of_json in
      let subnetMappings =
        field_map json__ "SubnetMappings" SubnetMappings.of_json in
      let vpcId = field_map json__ "VpcId" VpcId.of_json in
      let firewallPolicyArn =
        field_map json__ "FirewallPolicyArn" ResourceArn.of_json in
      let firewallArn = field_map json__ "FirewallArn" ResourceArn.of_json in
      let firewallName = field_map json__ "FirewallName" ResourceName.of_json in
      make ?availabilityZoneChangeProtection ?availabilityZoneMappings
        ?transitGatewayOwnerAccountId ?transitGatewayId ?enabledAnalysisTypes
        ?numberOfAssociations ?encryptionConfiguration ?tags ?firewallId
        ?description ?firewallPolicyChangeProtection ?subnetChangeProtection
        ?deleteProtection ?subnetMappings ?vpcId ?firewallPolicyArn
        ?firewallArn ?firewallName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A firewall defines the behavior of a firewall, the main VPC where the firewall is used, the Availability Zones where the firewall can be used, and one subnet to use for a firewall endpoint within each of the Availability Zones. The Availability Zones are defined implicitly in the subnet specifications. In addition to the firewall endpoints that you define in this Firewall specification, you can create firewall endpoints in VpcEndpointAssociation resources for any VPC, in any Availability Zone where the firewall is already in use. The status of the firewall, for example whether it's ready to filter network traffic, is provided in the corresponding FirewallStatus. You can retrieve both the firewall and firewall status by calling DescribeFirewall."]
module FirewallStatus =
  struct
    type nonrec t =
      {
      status: FirewallStatusValue.t option
        [@ocaml.doc
          "The readiness of the configured firewall to handle network traffic across all of the Availability Zones where you have it configured. This setting is READY only when the ConfigurationSyncStateSummary value is IN_SYNC and the Attachment Status values for all of the configured subnets are READY."];
      configurationSyncStateSummary: ConfigurationSyncState.t option
        [@ocaml.doc
          "The configuration sync state for the firewall. This summarizes the Config settings in the SyncStates for this firewall status object. When you create a firewall or update its configuration, for example by adding a rule group to its firewall policy, Network Firewall distributes the configuration changes to all Availability Zones that have subnets defined for the firewall. This summary indicates whether the configuration changes have been applied everywhere. This status must be IN_SYNC for the firewall to be ready for use, but it doesn't indicate that the firewall is ready. The Status setting indicates firewall readiness. It's based on this setting and the readiness of the firewall endpoints to take traffic."];
      syncStates: SyncStates.t option
        [@ocaml.doc
          "Status for the subnets that you've configured in the firewall. This contains one array element per Availability Zone where you've configured a subnet in the firewall. These objects provide detailed information for the settings ConfigurationSyncStateSummary and Status."];
      capacityUsageSummary: CapacityUsageSummary.t option
        [@ocaml.doc
          "Describes the capacity usage of the resources contained in a firewall's reference sets. Network Firewall calculates the capacity usage by taking an aggregated count of all of the resources used by all of the reference sets in a firewall."];
      transitGatewayAttachmentSyncState:
        TransitGatewayAttachmentSyncState.t option
        [@ocaml.doc
          "The synchronization state of the transit gateway attachment. This indicates whether the firewall's transit gateway configuration is properly synchronized and operational. Use this to verify that your transit gateway configuration changes have been applied."]}
    let make ?status =
      fun ?configurationSyncStateSummary ->
        fun ?syncStates ->
          fun ?capacityUsageSummary ->
            fun ?transitGatewayAttachmentSyncState ->
              fun () ->
                {
                  status;
                  configurationSyncStateSummary;
                  syncStates;
                  capacityUsageSummary;
                  transitGatewayAttachmentSyncState
                }
    let to_value x =
      structure_to_value
        [("Status", (Option.map x.status ~f:FirewallStatusValue.to_value));
        ("ConfigurationSyncStateSummary",
          (Option.map x.configurationSyncStateSummary
             ~f:ConfigurationSyncState.to_value));
        ("SyncStates", (Option.map x.syncStates ~f:SyncStates.to_value));
        ("CapacityUsageSummary",
          (Option.map x.capacityUsageSummary ~f:CapacityUsageSummary.to_value));
        ("TransitGatewayAttachmentSyncState",
          (Option.map x.transitGatewayAttachmentSyncState
             ~f:TransitGatewayAttachmentSyncState.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let transitGatewayAttachmentSyncState =
        (Option.map ~f:TransitGatewayAttachmentSyncState.of_xml)
          (Xml.child xml_arg0 "TransitGatewayAttachmentSyncState") in
      let capacityUsageSummary =
        (Option.map ~f:CapacityUsageSummary.of_xml)
          (Xml.child xml_arg0 "CapacityUsageSummary") in
      let syncStates =
        (Option.map ~f:SyncStates.of_xml) (Xml.child xml_arg0 "SyncStates") in
      let configurationSyncStateSummary =
        (Option.map ~f:ConfigurationSyncState.of_xml)
          (Xml.child xml_arg0 "ConfigurationSyncStateSummary") in
      let status =
        (Option.map ~f:FirewallStatusValue.of_xml)
          (Xml.child xml_arg0 "Status") in
      make ?transitGatewayAttachmentSyncState ?capacityUsageSummary
        ?syncStates ?configurationSyncStateSummary ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let transitGatewayAttachmentSyncState =
        field_map json__ "TransitGatewayAttachmentSyncState"
          TransitGatewayAttachmentSyncState.of_json in
      let capacityUsageSummary =
        field_map json__ "CapacityUsageSummary" CapacityUsageSummary.of_json in
      let syncStates = field_map json__ "SyncStates" SyncStates.of_json in
      let configurationSyncStateSummary =
        field_map json__ "ConfigurationSyncStateSummary"
          ConfigurationSyncState.of_json in
      let status = field_map json__ "Status" FirewallStatusValue.of_json in
      make ?transitGatewayAttachmentSyncState ?capacityUsageSummary
        ?syncStates ?configurationSyncStateSummary ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Detailed information about the current status of a Firewall. You can retrieve this for a firewall by calling DescribeFirewall and providing the firewall name and ARN. The firewall status indicates a combined status. It indicates whether all subnets are up-to-date with the latest firewall configurations, which is based on the sync states config values, and also whether all subnets have their endpoints fully enabled, based on their sync states attachment values."]
module SupportedAvailabilityZones =
  struct
    type nonrec t = (AvailabilityZone.t * AvailabilityZoneMetadata.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            let (_ : string) = v in
                            let (_ : string) = chopped in
                            failwith
                              "no of_header for complex types AvailabilityZone AvailabilityZoneMetadata"))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (AvailabilityZone.to_value x) |>
                    (fun x ->
                       (AvailabilityZoneMetadata.to_value y) |>
                         (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:AvailabilityZone.of_string
        ~of_json:AvailabilityZoneMetadata.of_json j
    let to_json v = composed_to_json to_value v
  end
module InsufficientCapacityException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Amazon Web Services doesn't currently have enough available capacity to fulfill your request. Try your request later."]
module LimitExceededException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Unable to perform the operation because doing so would violate a limit setting."]
module CreateProxyRulesByRequestPhase =
  struct
    type nonrec t =
      {
      preDNS: CreateProxyRuleList.t option
        [@ocaml.doc "Before domain resolution."];
      preREQUEST: CreateProxyRuleList.t option
        [@ocaml.doc "After DNS, before request."];
      postRESPONSE: CreateProxyRuleList.t option
        [@ocaml.doc "After receiving response."]}
    let make ?preDNS =
      fun ?preREQUEST ->
        fun ?postRESPONSE -> fun () -> { preDNS; preREQUEST; postRESPONSE }
    let to_value x =
      structure_to_value
        [("PreDNS", (Option.map x.preDNS ~f:CreateProxyRuleList.to_value));
        ("PreREQUEST",
          (Option.map x.preREQUEST ~f:CreateProxyRuleList.to_value));
        ("PostRESPONSE",
          (Option.map x.postRESPONSE ~f:CreateProxyRuleList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let postRESPONSE =
        (Option.map ~f:CreateProxyRuleList.of_xml)
          (Xml.child xml_arg0 "PostRESPONSE") in
      let preREQUEST =
        (Option.map ~f:CreateProxyRuleList.of_xml)
          (Xml.child xml_arg0 "PreREQUEST") in
      let preDNS =
        (Option.map ~f:CreateProxyRuleList.of_xml)
          (Xml.child xml_arg0 "PreDNS") in
      make ?postRESPONSE ?preREQUEST ?preDNS ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let postRESPONSE =
        field_map json__ "PostRESPONSE" CreateProxyRuleList.of_json in
      let preREQUEST =
        field_map json__ "PreREQUEST" CreateProxyRuleList.of_json in
      let preDNS = field_map json__ "PreDNS" CreateProxyRuleList.of_json in
      make ?postRESPONSE ?preREQUEST ?preDNS ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Evaluation points in the traffic flow where rules are applied. There are three phases in a traffic where the rule match is applied. This data type is used specifically for the CreateProxyRules API. Pre-DNS - before domain resolution. Pre-Request - after DNS, before request. Post-Response - after receiving response."]
module ProxyRuleGroupAttachmentList =
  struct
    type nonrec t = ProxyRuleGroupAttachment.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:ProxyRuleGroupAttachment.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:ProxyRuleGroupAttachment.of_xml)
    let of_json j =
      list_of_json ~kind:"ProxyRuleGroupAttachmentList"
        ~of_json:ProxyRuleGroupAttachment.of_json j
    let to_json v = composed_to_json to_value v
  end
module UpdateTLSInspectionConfigurationResponse =
  struct
    type nonrec t =
      {
      updateToken: UpdateToken.t option
        [@ocaml.doc
          "A token used for optimistic locking. Network Firewall returns a token to your requests that access the TLS inspection configuration. The token marks the state of the TLS inspection configuration resource at the time of the request. To make changes to the TLS inspection configuration, you provide the token in your request. Network Firewall uses the token to ensure that the TLS inspection configuration hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the TLS inspection configuration again to get a current copy of it with a current token. Reapply your changes as needed, then try the operation again using the new token."];
      tLSInspectionConfigurationResponse:
        TLSInspectionConfigurationResponse.t option
        [@ocaml.doc
          "The high-level properties of a TLS inspection configuration. This, along with the TLSInspectionConfiguration, define the TLS inspection configuration. You can retrieve all objects for a TLS inspection configuration by calling DescribeTLSInspectionConfiguration."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `InvalidTokenException of InvalidTokenException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?updateToken =
      fun ?tLSInspectionConfigurationResponse ->
        fun () -> { updateToken; tLSInspectionConfigurationResponse }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `InvalidTokenException e ->
          `Assoc
            [("error", (`String "InvalidTokenException"));
            ("details", (InvalidTokenException.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
        [("UpdateToken", (Option.map x.updateToken ~f:UpdateToken.to_value));
        ("TLSInspectionConfigurationResponse",
          (Option.map x.tLSInspectionConfigurationResponse
             ~f:TLSInspectionConfigurationResponse.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tLSInspectionConfigurationResponse =
        (Option.map ~f:TLSInspectionConfigurationResponse.of_xml)
          (Xml.child xml_arg0 "TLSInspectionConfigurationResponse") in
      let updateToken =
        (Option.map ~f:UpdateToken.of_xml) (Xml.child xml_arg0 "UpdateToken") in
      make ?tLSInspectionConfigurationResponse ?updateToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tLSInspectionConfigurationResponse =
        field_map json__ "TLSInspectionConfigurationResponse"
          TLSInspectionConfigurationResponse.of_json in
      let updateToken = field_map json__ "UpdateToken" UpdateToken.of_json in
      make ?tLSInspectionConfigurationResponse ?updateToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the TLS inspection configuration settings for the specified TLS inspection configuration. You use a TLS inspection configuration by referencing it in one or more firewall policies. When you modify a TLS inspection configuration, you modify all firewall policies that use the TLS inspection configuration. To update a TLS inspection configuration, first call DescribeTLSInspectionConfiguration to retrieve the current TLSInspectionConfiguration object, update the object as needed, and then provide the updated object to this call."]
module UpdateTLSInspectionConfigurationRequest =
  struct
    type nonrec t =
      {
      tLSInspectionConfigurationArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the TLS inspection configuration."];
      tLSInspectionConfigurationName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the TLS inspection configuration. You can't change the name of a TLS inspection configuration after you create it."];
      tLSInspectionConfiguration: TLSInspectionConfiguration.t
        [@ocaml.doc
          "The object that defines a TLS inspection configuration. This, along with TLSInspectionConfigurationResponse, define the TLS inspection configuration. You can retrieve all objects for a TLS inspection configuration by calling DescribeTLSInspectionConfiguration. Network Firewall uses a TLS inspection configuration to decrypt traffic. Network Firewall re-encrypts the traffic before sending it to its destination. To use a TLS inspection configuration, you add it to a new Network Firewall firewall policy, then you apply the firewall policy to a firewall. Network Firewall acts as a proxy service to decrypt and inspect the traffic traveling through your firewalls. You can reference a TLS inspection configuration from more than one firewall policy, and you can use a firewall policy in more than one firewall. For more information about using TLS inspection configurations, see Inspecting SSL/TLS traffic with TLS inspection configurations in the Network Firewall Developer Guide."];
      description: Description.t option
        [@ocaml.doc "A description of the TLS inspection configuration."];
      encryptionConfiguration: EncryptionConfiguration.t option
        [@ocaml.doc
          "A complex type that contains the Amazon Web Services KMS encryption configuration settings for your TLS inspection configuration."];
      updateToken: UpdateToken.t
        [@ocaml.doc
          "A token used for optimistic locking. Network Firewall returns a token to your requests that access the TLS inspection configuration. The token marks the state of the TLS inspection configuration resource at the time of the request. To make changes to the TLS inspection configuration, you provide the token in your request. Network Firewall uses the token to ensure that the TLS inspection configuration hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the TLS inspection configuration again to get a current copy of it with a current token. Reapply your changes as needed, then try the operation again using the new token."]}
    let context_ = "UpdateTLSInspectionConfigurationRequest"
    let make ?tLSInspectionConfigurationArn =
      fun ?tLSInspectionConfigurationName ->
        fun ?description ->
          fun ?encryptionConfiguration ->
            fun ~tLSInspectionConfiguration ->
              fun ~updateToken ->
                fun () ->
                  {
                    tLSInspectionConfigurationArn;
                    tLSInspectionConfigurationName;
                    description;
                    encryptionConfiguration;
                    tLSInspectionConfiguration;
                    updateToken
                  }
    let to_value x =
      structure_to_value
        [("TLSInspectionConfigurationArn",
           (Option.map x.tLSInspectionConfigurationArn
              ~f:ResourceArn.to_value));
        ("TLSInspectionConfigurationName",
          (Option.map x.tLSInspectionConfigurationName
             ~f:ResourceName.to_value));
        ("TLSInspectionConfiguration",
          (Some
             (TLSInspectionConfiguration.to_value
                x.tLSInspectionConfiguration)));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("EncryptionConfiguration",
          (Option.map x.encryptionConfiguration
             ~f:EncryptionConfiguration.to_value));
        ("UpdateToken", (Some (UpdateToken.to_value x.updateToken)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updateToken =
        UpdateToken.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "UpdateToken") in
      let encryptionConfiguration =
        (Option.map ~f:EncryptionConfiguration.of_xml)
          (Xml.child xml_arg0 "EncryptionConfiguration") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let tLSInspectionConfiguration =
        TLSInspectionConfiguration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "TLSInspectionConfiguration") in
      let tLSInspectionConfigurationName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "TLSInspectionConfigurationName") in
      let tLSInspectionConfigurationArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "TLSInspectionConfigurationArn") in
      make ~updateToken ?encryptionConfiguration ?description
        ~tLSInspectionConfiguration ?tLSInspectionConfigurationName
        ?tLSInspectionConfigurationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updateToken =
        field_map_exn json__ "UpdateToken" UpdateToken.of_json in
      let encryptionConfiguration =
        field_map json__ "EncryptionConfiguration"
          EncryptionConfiguration.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let tLSInspectionConfiguration =
        field_map_exn json__ "TLSInspectionConfiguration"
          TLSInspectionConfiguration.of_json in
      let tLSInspectionConfigurationName =
        field_map json__ "TLSInspectionConfigurationName"
          ResourceName.of_json in
      let tLSInspectionConfigurationArn =
        field_map json__ "TLSInspectionConfigurationArn" ResourceArn.of_json in
      make ~updateToken ?encryptionConfiguration ?description
        ~tLSInspectionConfiguration ?tLSInspectionConfigurationName
        ?tLSInspectionConfigurationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the TLS inspection configuration settings for the specified TLS inspection configuration. You use a TLS inspection configuration by referencing it in one or more firewall policies. When you modify a TLS inspection configuration, you modify all firewall policies that use the TLS inspection configuration. To update a TLS inspection configuration, first call DescribeTLSInspectionConfiguration to retrieve the current TLSInspectionConfiguration object, update the object as needed, and then provide the updated object to this call."]
module UpdateSubnetChangeProtectionResponse =
  struct
    type nonrec t =
      {
      updateToken: UpdateToken.t option
        [@ocaml.doc
          "An optional token that you can use for optimistic locking. Network Firewall returns a token to your requests that access the firewall. The token marks the state of the firewall resource at the time of the request. To make an unconditional change to the firewall, omit the token in your update request. Without the token, Network Firewall performs your updates regardless of whether the firewall has changed since you last retrieved it. To make a conditional change to the firewall, provide the token in your update request. Network Firewall uses the token to ensure that the firewall hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the firewall again to get a current copy of it with a new token. Reapply your changes as needed, then try the operation again using the new token."];
      firewallArn: ResourceArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the firewall."];
      firewallName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the firewall. You can't change the name of a firewall after you create it."];
      subnetChangeProtection: Boolean.t option
        [@ocaml.doc
          "A setting indicating whether the firewall is protected against changes to the subnet associations. Use this setting to protect against accidentally modifying the subnet associations for a firewall that is in use. When you create a firewall, the operation initializes this setting to TRUE."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `InvalidTokenException of InvalidTokenException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ResourceOwnerCheckException of ResourceOwnerCheckException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?updateToken =
      fun ?firewallArn ->
        fun ?firewallName ->
          fun ?subnetChangeProtection ->
            fun () ->
              {
                updateToken;
                firewallArn;
                firewallName;
                subnetChangeProtection
              }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ResourceOwnerCheckException" ->
          `ResourceOwnerCheckException
            (ResourceOwnerCheckException.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ResourceOwnerCheckException" ->
          `ResourceOwnerCheckException
            (ResourceOwnerCheckException.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `InvalidTokenException e ->
          `Assoc
            [("error", (`String "InvalidTokenException"));
            ("details", (InvalidTokenException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ResourceOwnerCheckException e ->
          `Assoc
            [("error", (`String "ResourceOwnerCheckException"));
            ("details", (ResourceOwnerCheckException.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
        [("UpdateToken", (Option.map x.updateToken ~f:UpdateToken.to_value));
        ("FirewallArn", (Option.map x.firewallArn ~f:ResourceArn.to_value));
        ("FirewallName",
          (Option.map x.firewallName ~f:ResourceName.to_value));
        ("SubnetChangeProtection",
          (Option.map x.subnetChangeProtection ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let subnetChangeProtection =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "SubnetChangeProtection") in
      let firewallName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "FirewallName") in
      let firewallArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "FirewallArn") in
      let updateToken =
        (Option.map ~f:UpdateToken.of_xml) (Xml.child xml_arg0 "UpdateToken") in
      make ?subnetChangeProtection ?firewallName ?firewallArn ?updateToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let subnetChangeProtection =
        field_map json__ "SubnetChangeProtection" Boolean.of_json in
      let firewallName = field_map json__ "FirewallName" ResourceName.of_json in
      let firewallArn = field_map json__ "FirewallArn" ResourceArn.of_json in
      let updateToken = field_map json__ "UpdateToken" UpdateToken.of_json in
      make ?subnetChangeProtection ?firewallName ?firewallArn ?updateToken ()
    let to_json v = composed_to_json to_value v
  end
module UpdateSubnetChangeProtectionRequest =
  struct
    type nonrec t =
      {
      updateToken: UpdateToken.t option
        [@ocaml.doc
          "An optional token that you can use for optimistic locking. Network Firewall returns a token to your requests that access the firewall. The token marks the state of the firewall resource at the time of the request. To make an unconditional change to the firewall, omit the token in your update request. Without the token, Network Firewall performs your updates regardless of whether the firewall has changed since you last retrieved it. To make a conditional change to the firewall, provide the token in your update request. Network Firewall uses the token to ensure that the firewall hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the firewall again to get a current copy of it with a new token. Reapply your changes as needed, then try the operation again using the new token."];
      firewallArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the firewall. You must specify the ARN or the name, and you can specify both."];
      firewallName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the firewall. You can't change the name of a firewall after you create it. You must specify the ARN or the name, and you can specify both."];
      subnetChangeProtection: Boolean.t
        [@ocaml.doc
          "A setting indicating whether the firewall is protected against changes to the subnet associations. Use this setting to protect against accidentally modifying the subnet associations for a firewall that is in use. When you create a firewall, the operation initializes this setting to TRUE."]}
    let context_ = "UpdateSubnetChangeProtectionRequest"
    let make ?updateToken =
      fun ?firewallArn ->
        fun ?firewallName ->
          fun ~subnetChangeProtection ->
            fun () ->
              {
                updateToken;
                firewallArn;
                firewallName;
                subnetChangeProtection
              }
    let to_value x =
      structure_to_value
        [("UpdateToken", (Option.map x.updateToken ~f:UpdateToken.to_value));
        ("FirewallArn", (Option.map x.firewallArn ~f:ResourceArn.to_value));
        ("FirewallName",
          (Option.map x.firewallName ~f:ResourceName.to_value));
        ("SubnetChangeProtection",
          (Some (Boolean.to_value x.subnetChangeProtection)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let subnetChangeProtection =
        Boolean.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SubnetChangeProtection") in
      let firewallName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "FirewallName") in
      let firewallArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "FirewallArn") in
      let updateToken =
        (Option.map ~f:UpdateToken.of_xml) (Xml.child xml_arg0 "UpdateToken") in
      make ~subnetChangeProtection ?firewallName ?firewallArn ?updateToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let subnetChangeProtection =
        field_map_exn json__ "SubnetChangeProtection" Boolean.of_json in
      let firewallName = field_map json__ "FirewallName" ResourceName.of_json in
      let firewallArn = field_map json__ "FirewallArn" ResourceArn.of_json in
      let updateToken = field_map json__ "UpdateToken" UpdateToken.of_json in
      make ~subnetChangeProtection ?firewallName ?firewallArn ?updateToken ()
    let to_json v = composed_to_json to_value v
  end
module UpdateRuleGroupResponse =
  struct
    type nonrec t =
      {
      updateToken: UpdateToken.t option
        [@ocaml.doc
          "A token used for optimistic locking. Network Firewall returns a token to your requests that access the rule group. The token marks the state of the rule group resource at the time of the request. To make changes to the rule group, you provide the token in your request. Network Firewall uses the token to ensure that the rule group hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the rule group again to get a current copy of it with a current token. Reapply your changes as needed, then try the operation again using the new token."];
      ruleGroupResponse: RuleGroupResponse.t option
        [@ocaml.doc
          "The high-level properties of a rule group. This, along with the RuleGroup, define the rule group. You can retrieve all objects for a rule group by calling DescribeRuleGroup."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `InvalidTokenException of InvalidTokenException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?updateToken =
      fun ?ruleGroupResponse -> fun () -> { updateToken; ruleGroupResponse }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `InvalidTokenException e ->
          `Assoc
            [("error", (`String "InvalidTokenException"));
            ("details", (InvalidTokenException.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
        [("UpdateToken", (Option.map x.updateToken ~f:UpdateToken.to_value));
        ("RuleGroupResponse",
          (Option.map x.ruleGroupResponse ~f:RuleGroupResponse.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ruleGroupResponse =
        (Option.map ~f:RuleGroupResponse.of_xml)
          (Xml.child xml_arg0 "RuleGroupResponse") in
      let updateToken =
        (Option.map ~f:UpdateToken.of_xml) (Xml.child xml_arg0 "UpdateToken") in
      make ?ruleGroupResponse ?updateToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ruleGroupResponse =
        field_map json__ "RuleGroupResponse" RuleGroupResponse.of_json in
      let updateToken = field_map json__ "UpdateToken" UpdateToken.of_json in
      make ?ruleGroupResponse ?updateToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the rule settings for the specified rule group. You use a rule group by reference in one or more firewall policies. When you modify a rule group, you modify all firewall policies that use the rule group. To update a rule group, first call DescribeRuleGroup to retrieve the current RuleGroup object, update the object as needed, and then provide the updated object to this call."]
module UpdateRuleGroupRequest =
  struct
    type nonrec t =
      {
      updateToken: UpdateToken.t
        [@ocaml.doc
          "A token used for optimistic locking. Network Firewall returns a token to your requests that access the rule group. The token marks the state of the rule group resource at the time of the request. To make changes to the rule group, you provide the token in your request. Network Firewall uses the token to ensure that the rule group hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the rule group again to get a current copy of it with a current token. Reapply your changes as needed, then try the operation again using the new token."];
      ruleGroupArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the rule group. You must specify the ARN or the name, and you can specify both."];
      ruleGroupName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the rule group. You can't change the name of a rule group after you create it. You must specify the ARN or the name, and you can specify both."];
      ruleGroup: RuleGroup.t option
        [@ocaml.doc
          "An object that defines the rule group rules. You must provide either this rule group setting or a Rules setting, but not both."];
      rules: RulesString.t option
        [@ocaml.doc
          "A string containing stateful rule group rules specifications in Suricata flat format, with one rule per line. Use this to import your existing Suricata compatible rule groups. You must provide either this rules setting or a populated RuleGroup setting, but not both. You can provide your rule group specification in Suricata flat format through this setting when you create or update your rule group. The call response returns a RuleGroup object that Network Firewall has populated from your string."];
      type_: RuleGroupType.t option
        [@ocaml.doc
          "Indicates whether the rule group is stateless or stateful. If the rule group is stateless, it contains stateless rules. If it is stateful, it contains stateful rules. This setting is required for requests that do not include the RuleGroupARN."];
      description: Description.t option
        [@ocaml.doc "A description of the rule group."];
      dryRun: Boolean.t option
        [@ocaml.doc
          "Indicates whether you want Network Firewall to just check the validity of the request, rather than run the request. If set to TRUE, Network Firewall checks whether the request can run successfully, but doesn't actually make the requested changes. The call returns the value that the request would return if you ran it with dry run set to FALSE, but doesn't make additions or changes to your resources. This option allows you to make sure that you have the required permissions to run the request and that your request parameters are valid. If set to FALSE, Network Firewall makes the requested changes to your resources."];
      encryptionConfiguration: EncryptionConfiguration.t option
        [@ocaml.doc
          "A complex type that contains settings for encryption of your rule group resources."];
      sourceMetadata: SourceMetadata.t option
        [@ocaml.doc
          "A complex type that contains metadata about the rule group that your own rule group is copied from. You can use the metadata to keep track of updates made to the originating rule group."];
      analyzeRuleGroup: Boolean.t option
        [@ocaml.doc
          "Indicates whether you want Network Firewall to analyze the stateless rules in the rule group for rule behavior such as asymmetric routing. If set to TRUE, Network Firewall runs the analysis and then updates the rule group for you. To run the stateless rule group analyzer without updating the rule group, set DryRun to TRUE."];
      summaryConfiguration: SummaryConfiguration.t option
        [@ocaml.doc
          "Updates the selected summary configuration for a rule group. Changes affect subsequent responses from DescribeRuleGroupSummary."]}
    let context_ = "UpdateRuleGroupRequest"
    let make ?ruleGroupArn =
      fun ?ruleGroupName ->
        fun ?ruleGroup ->
          fun ?rules ->
            fun ?type_ ->
              fun ?description ->
                fun ?dryRun ->
                  fun ?encryptionConfiguration ->
                    fun ?sourceMetadata ->
                      fun ?analyzeRuleGroup ->
                        fun ?summaryConfiguration ->
                          fun ~updateToken ->
                            fun () ->
                              {
                                ruleGroupArn;
                                ruleGroupName;
                                ruleGroup;
                                rules;
                                type_;
                                description;
                                dryRun;
                                encryptionConfiguration;
                                sourceMetadata;
                                analyzeRuleGroup;
                                summaryConfiguration;
                                updateToken
                              }
    let to_value x =
      structure_to_value
        [("UpdateToken", (Some (UpdateToken.to_value x.updateToken)));
        ("RuleGroupArn", (Option.map x.ruleGroupArn ~f:ResourceArn.to_value));
        ("RuleGroupName",
          (Option.map x.ruleGroupName ~f:ResourceName.to_value));
        ("RuleGroup", (Option.map x.ruleGroup ~f:RuleGroup.to_value));
        ("Rules", (Option.map x.rules ~f:RulesString.to_value));
        ("Type", (Option.map x.type_ ~f:RuleGroupType.to_value));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("DryRun", (Option.map x.dryRun ~f:Boolean.to_value));
        ("EncryptionConfiguration",
          (Option.map x.encryptionConfiguration
             ~f:EncryptionConfiguration.to_value));
        ("SourceMetadata",
          (Option.map x.sourceMetadata ~f:SourceMetadata.to_value));
        ("AnalyzeRuleGroup",
          (Option.map x.analyzeRuleGroup ~f:Boolean.to_value));
        ("SummaryConfiguration",
          (Option.map x.summaryConfiguration ~f:SummaryConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let summaryConfiguration =
        (Option.map ~f:SummaryConfiguration.of_xml)
          (Xml.child xml_arg0 "SummaryConfiguration") in
      let analyzeRuleGroup =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "AnalyzeRuleGroup") in
      let sourceMetadata =
        (Option.map ~f:SourceMetadata.of_xml)
          (Xml.child xml_arg0 "SourceMetadata") in
      let encryptionConfiguration =
        (Option.map ~f:EncryptionConfiguration.of_xml)
          (Xml.child xml_arg0 "EncryptionConfiguration") in
      let dryRun =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "DryRun") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let type_ =
        (Option.map ~f:RuleGroupType.of_xml) (Xml.child xml_arg0 "Type") in
      let rules =
        (Option.map ~f:RulesString.of_xml) (Xml.child xml_arg0 "Rules") in
      let ruleGroup =
        (Option.map ~f:RuleGroup.of_xml) (Xml.child xml_arg0 "RuleGroup") in
      let ruleGroupName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "RuleGroupName") in
      let ruleGroupArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "RuleGroupArn") in
      let updateToken =
        UpdateToken.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "UpdateToken") in
      make ?summaryConfiguration ?analyzeRuleGroup ?sourceMetadata
        ?encryptionConfiguration ?dryRun ?description ?type_ ?rules
        ?ruleGroup ?ruleGroupName ?ruleGroupArn ~updateToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let summaryConfiguration =
        field_map json__ "SummaryConfiguration" SummaryConfiguration.of_json in
      let analyzeRuleGroup =
        field_map json__ "AnalyzeRuleGroup" Boolean.of_json in
      let sourceMetadata =
        field_map json__ "SourceMetadata" SourceMetadata.of_json in
      let encryptionConfiguration =
        field_map json__ "EncryptionConfiguration"
          EncryptionConfiguration.of_json in
      let dryRun = field_map json__ "DryRun" Boolean.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let type_ = field_map json__ "Type" RuleGroupType.of_json in
      let rules = field_map json__ "Rules" RulesString.of_json in
      let ruleGroup = field_map json__ "RuleGroup" RuleGroup.of_json in
      let ruleGroupName =
        field_map json__ "RuleGroupName" ResourceName.of_json in
      let ruleGroupArn = field_map json__ "RuleGroupArn" ResourceArn.of_json in
      let updateToken =
        field_map_exn json__ "UpdateToken" UpdateToken.of_json in
      make ?summaryConfiguration ?analyzeRuleGroup ?sourceMetadata
        ?encryptionConfiguration ?dryRun ?description ?type_ ?rules
        ?ruleGroup ?ruleGroupName ?ruleGroupArn ~updateToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the rule settings for the specified rule group. You use a rule group by reference in one or more firewall policies. When you modify a rule group, you modify all firewall policies that use the rule group. To update a rule group, first call DescribeRuleGroup to retrieve the current RuleGroup object, update the object as needed, and then provide the updated object to this call."]
module UpdateProxyRuleResponse =
  struct
    type nonrec t =
      {
      proxyRule: ProxyRule.t option
        [@ocaml.doc
          "The updated proxy rule resource that reflects the updates from the request."];
      removedConditions: ProxyRuleConditionList.t option
        [@ocaml.doc "Proxy rule conditions removed from the rule."];
      updateToken: UpdateToken.t option
        [@ocaml.doc
          "A token used for optimistic locking. Network Firewall returns a token to your requests that access the proxy rule. The token marks the state of the proxy rule resource at the time of the request. To make changes to the proxy rule, you provide the token in your request. Network Firewall uses the token to ensure that the proxy rule hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the proxy rule again to get a current copy of it with a current token. Reapply your changes as needed, then try the operation again using the new token."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?proxyRule =
      fun ?removedConditions ->
        fun ?updateToken ->
          fun () -> { proxyRule; removedConditions; updateToken }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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
        [("ProxyRule", (Option.map x.proxyRule ~f:ProxyRule.to_value));
        ("RemovedConditions",
          (Option.map x.removedConditions ~f:ProxyRuleConditionList.to_value));
        ("UpdateToken", (Option.map x.updateToken ~f:UpdateToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updateToken =
        (Option.map ~f:UpdateToken.of_xml) (Xml.child xml_arg0 "UpdateToken") in
      let removedConditions =
        (Option.map ~f:ProxyRuleConditionList.of_xml)
          (Xml.child xml_arg0 "RemovedConditions") in
      let proxyRule =
        (Option.map ~f:ProxyRule.of_xml) (Xml.child xml_arg0 "ProxyRule") in
      make ?updateToken ?removedConditions ?proxyRule ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updateToken = field_map json__ "UpdateToken" UpdateToken.of_json in
      let removedConditions =
        field_map json__ "RemovedConditions" ProxyRuleConditionList.of_json in
      let proxyRule = field_map json__ "ProxyRule" ProxyRule.of_json in
      make ?updateToken ?removedConditions ?proxyRule ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the properties of the specified proxy rule."]
module UpdateProxyRuleRequest =
  struct
    type nonrec t =
      {
      proxyRuleGroupName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the proxy rule group. You can't change the name of a proxy rule group after you create it. You must specify the ARN or the name, and you can specify both."];
      proxyRuleGroupArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of a proxy rule group. You must specify the ARN or the name, and you can specify both."];
      proxyRuleName: ResourceName.t
        [@ocaml.doc
          "The descriptive name of the proxy rule. You can't change the name of a proxy rule after you create it."];
      description: Description.t option
        [@ocaml.doc "A description of the proxy rule."];
      action: ProxyRulePhaseAction.t option
        [@ocaml.doc
          "Depending on the match action, the proxy either stops the evaluation (if the action is terminal - allow or deny), or continues it (if the action is alert) until it matches a rule with a terminal action."];
      addConditions: ProxyRuleConditionList.t option
        [@ocaml.doc
          "Proxy rule conditions to add. Match criteria that specify what traffic attributes to examine. Conditions include operators (StringEquals, StringLike) and values to match against."];
      removeConditions: ProxyRuleConditionList.t option
        [@ocaml.doc
          "Proxy rule conditions to remove. Match criteria that specify what traffic attributes to examine. Conditions include operators (StringEquals, StringLike) and values to match against."];
      updateToken: UpdateToken.t
        [@ocaml.doc
          "A token used for optimistic locking. Network Firewall returns a token to your requests that access the proxy rule. The token marks the state of the proxy rule resource at the time of the request. To make changes to the proxy rule, you provide the token in your request. Network Firewall uses the token to ensure that the proxy rule hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the proxy rule again to get a current copy of it with a current token. Reapply your changes as needed, then try the operation again using the new token."]}
    let context_ = "UpdateProxyRuleRequest"
    let make ?proxyRuleGroupName =
      fun ?proxyRuleGroupArn ->
        fun ?description ->
          fun ?action ->
            fun ?addConditions ->
              fun ?removeConditions ->
                fun ~proxyRuleName ->
                  fun ~updateToken ->
                    fun () ->
                      {
                        proxyRuleGroupName;
                        proxyRuleGroupArn;
                        description;
                        action;
                        addConditions;
                        removeConditions;
                        proxyRuleName;
                        updateToken
                      }
    let to_value x =
      structure_to_value
        [("ProxyRuleGroupName",
           (Option.map x.proxyRuleGroupName ~f:ResourceName.to_value));
        ("ProxyRuleGroupArn",
          (Option.map x.proxyRuleGroupArn ~f:ResourceArn.to_value));
        ("ProxyRuleName", (Some (ResourceName.to_value x.proxyRuleName)));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("Action", (Option.map x.action ~f:ProxyRulePhaseAction.to_value));
        ("AddConditions",
          (Option.map x.addConditions ~f:ProxyRuleConditionList.to_value));
        ("RemoveConditions",
          (Option.map x.removeConditions ~f:ProxyRuleConditionList.to_value));
        ("UpdateToken", (Some (UpdateToken.to_value x.updateToken)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updateToken =
        UpdateToken.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "UpdateToken") in
      let removeConditions =
        (Option.map ~f:ProxyRuleConditionList.of_xml)
          (Xml.child xml_arg0 "RemoveConditions") in
      let addConditions =
        (Option.map ~f:ProxyRuleConditionList.of_xml)
          (Xml.child xml_arg0 "AddConditions") in
      let action =
        (Option.map ~f:ProxyRulePhaseAction.of_xml)
          (Xml.child xml_arg0 "Action") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let proxyRuleName =
        ResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ProxyRuleName") in
      let proxyRuleGroupArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "ProxyRuleGroupArn") in
      let proxyRuleGroupName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "ProxyRuleGroupName") in
      make ~updateToken ?removeConditions ?addConditions ?action ?description
        ~proxyRuleName ?proxyRuleGroupArn ?proxyRuleGroupName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updateToken =
        field_map_exn json__ "UpdateToken" UpdateToken.of_json in
      let removeConditions =
        field_map json__ "RemoveConditions" ProxyRuleConditionList.of_json in
      let addConditions =
        field_map json__ "AddConditions" ProxyRuleConditionList.of_json in
      let action = field_map json__ "Action" ProxyRulePhaseAction.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let proxyRuleName =
        field_map_exn json__ "ProxyRuleName" ResourceName.of_json in
      let proxyRuleGroupArn =
        field_map json__ "ProxyRuleGroupArn" ResourceArn.of_json in
      let proxyRuleGroupName =
        field_map json__ "ProxyRuleGroupName" ResourceName.of_json in
      make ~updateToken ?removeConditions ?addConditions ?action ?description
        ~proxyRuleName ?proxyRuleGroupArn ?proxyRuleGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the properties of the specified proxy rule."]
module UpdateProxyRulePrioritiesResponse =
  struct
    type nonrec t =
      {
      proxyRuleGroupName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the proxy rule group. You can't change the name of a proxy rule group after you create it."];
      proxyRuleGroupArn: ResourceArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of a proxy rule group."];
      ruleGroupRequestPhase: RuleGroupRequestPhase.t option
        [@ocaml.doc
          "Evaluation points in the traffic flow where rules are applied. There are three phases in a traffic where the rule match is applied."];
      rules: ProxyRulePriorityList.t option
        [@ocaml.doc
          "The updated proxy rule hierarchy that reflects the updates from the request."];
      updateToken: UpdateToken.t option
        [@ocaml.doc
          "A token used for optimistic locking. Network Firewall returns a token to your requests that access the proxy rule group. The token marks the state of the proxy rule group resource at the time of the request. To make changes to the proxy rule group, you provide the token in your request. Network Firewall uses the token to ensure that the proxy rule group hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the proxy rule group again to get a current copy of it with a current token. Reapply your changes as needed, then try the operation again using the new token."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?proxyRuleGroupName =
      fun ?proxyRuleGroupArn ->
        fun ?ruleGroupRequestPhase ->
          fun ?rules ->
            fun ?updateToken ->
              fun () ->
                {
                  proxyRuleGroupName;
                  proxyRuleGroupArn;
                  ruleGroupRequestPhase;
                  rules;
                  updateToken
                }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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
        [("ProxyRuleGroupName",
           (Option.map x.proxyRuleGroupName ~f:ResourceName.to_value));
        ("ProxyRuleGroupArn",
          (Option.map x.proxyRuleGroupArn ~f:ResourceArn.to_value));
        ("RuleGroupRequestPhase",
          (Option.map x.ruleGroupRequestPhase
             ~f:RuleGroupRequestPhase.to_value));
        ("Rules", (Option.map x.rules ~f:ProxyRulePriorityList.to_value));
        ("UpdateToken", (Option.map x.updateToken ~f:UpdateToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updateToken =
        (Option.map ~f:UpdateToken.of_xml) (Xml.child xml_arg0 "UpdateToken") in
      let rules =
        (Option.map ~f:ProxyRulePriorityList.of_xml)
          (Xml.child xml_arg0 "Rules") in
      let ruleGroupRequestPhase =
        (Option.map ~f:RuleGroupRequestPhase.of_xml)
          (Xml.child xml_arg0 "RuleGroupRequestPhase") in
      let proxyRuleGroupArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "ProxyRuleGroupArn") in
      let proxyRuleGroupName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "ProxyRuleGroupName") in
      make ?updateToken ?rules ?ruleGroupRequestPhase ?proxyRuleGroupArn
        ?proxyRuleGroupName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updateToken = field_map json__ "UpdateToken" UpdateToken.of_json in
      let rules = field_map json__ "Rules" ProxyRulePriorityList.of_json in
      let ruleGroupRequestPhase =
        field_map json__ "RuleGroupRequestPhase"
          RuleGroupRequestPhase.of_json in
      let proxyRuleGroupArn =
        field_map json__ "ProxyRuleGroupArn" ResourceArn.of_json in
      let proxyRuleGroupName =
        field_map json__ "ProxyRuleGroupName" ResourceName.of_json in
      make ?updateToken ?rules ?ruleGroupRequestPhase ?proxyRuleGroupArn
        ?proxyRuleGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates proxy rule priorities within a proxy rule group."]
module UpdateProxyRulePrioritiesRequest =
  struct
    type nonrec t =
      {
      proxyRuleGroupName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the proxy rule group. You can't change the name of a proxy rule group after you create it. You must specify the ARN or the name, and you can specify both."];
      proxyRuleGroupArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of a proxy rule group. You must specify the ARN or the name, and you can specify both."];
      ruleGroupRequestPhase: RuleGroupRequestPhase.t
        [@ocaml.doc
          "Evaluation points in the traffic flow where rules are applied. There are three phases in a traffic where the rule match is applied."];
      rules: ProxyRulePriorityList.t
        [@ocaml.doc "proxy rule resources to update to new positions."];
      updateToken: UpdateToken.t
        [@ocaml.doc
          "A token used for optimistic locking. Network Firewall returns a token to your requests that access the proxy rule group. The token marks the state of the proxy rule group resource at the time of the request. To make changes to the proxy rule group, you provide the token in your request. Network Firewall uses the token to ensure that the proxy rule group hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the proxy rule group again to get a current copy of it with a current token. Reapply your changes as needed, then try the operation again using the new token."]}
    let context_ = "UpdateProxyRulePrioritiesRequest"
    let make ?proxyRuleGroupName =
      fun ?proxyRuleGroupArn ->
        fun ~ruleGroupRequestPhase ->
          fun ~rules ->
            fun ~updateToken ->
              fun () ->
                {
                  proxyRuleGroupName;
                  proxyRuleGroupArn;
                  ruleGroupRequestPhase;
                  rules;
                  updateToken
                }
    let to_value x =
      structure_to_value
        [("ProxyRuleGroupName",
           (Option.map x.proxyRuleGroupName ~f:ResourceName.to_value));
        ("ProxyRuleGroupArn",
          (Option.map x.proxyRuleGroupArn ~f:ResourceArn.to_value));
        ("RuleGroupRequestPhase",
          (Some (RuleGroupRequestPhase.to_value x.ruleGroupRequestPhase)));
        ("Rules", (Some (ProxyRulePriorityList.to_value x.rules)));
        ("UpdateToken", (Some (UpdateToken.to_value x.updateToken)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updateToken =
        UpdateToken.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "UpdateToken") in
      let rules =
        ProxyRulePriorityList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Rules") in
      let ruleGroupRequestPhase =
        RuleGroupRequestPhase.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RuleGroupRequestPhase") in
      let proxyRuleGroupArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "ProxyRuleGroupArn") in
      let proxyRuleGroupName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "ProxyRuleGroupName") in
      make ~updateToken ~rules ~ruleGroupRequestPhase ?proxyRuleGroupArn
        ?proxyRuleGroupName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updateToken =
        field_map_exn json__ "UpdateToken" UpdateToken.of_json in
      let rules = field_map_exn json__ "Rules" ProxyRulePriorityList.of_json in
      let ruleGroupRequestPhase =
        field_map_exn json__ "RuleGroupRequestPhase"
          RuleGroupRequestPhase.of_json in
      let proxyRuleGroupArn =
        field_map json__ "ProxyRuleGroupArn" ResourceArn.of_json in
      let proxyRuleGroupName =
        field_map json__ "ProxyRuleGroupName" ResourceName.of_json in
      make ~updateToken ~rules ~ruleGroupRequestPhase ?proxyRuleGroupArn
        ?proxyRuleGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates proxy rule priorities within a proxy rule group."]
module UpdateProxyRuleGroupPrioritiesResponse =
  struct
    type nonrec t =
      {
      proxyRuleGroups: ProxyRuleGroupPriorityResultList.t option
        [@ocaml.doc
          "The updated proxy rule group hierarchy that reflects the updates from the request."];
      updateToken: UpdateToken.t option
        [@ocaml.doc
          "A token used for optimistic locking. Network Firewall returns a token to your requests that access the proxy configuration. The token marks the state of the proxy configuration resource at the time of the request. To make changes to the proxy configuration, you provide the token in your request. Network Firewall uses the token to ensure that the proxy configuration hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the proxy configuration again to get a current copy of it with a current token. Reapply your changes as needed, then try the operation again using the new token."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?proxyRuleGroups =
      fun ?updateToken -> fun () -> { proxyRuleGroups; updateToken }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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
        [("ProxyRuleGroups",
           (Option.map x.proxyRuleGroups
              ~f:ProxyRuleGroupPriorityResultList.to_value));
        ("UpdateToken", (Option.map x.updateToken ~f:UpdateToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updateToken =
        (Option.map ~f:UpdateToken.of_xml) (Xml.child xml_arg0 "UpdateToken") in
      let proxyRuleGroups =
        (Option.map ~f:ProxyRuleGroupPriorityResultList.of_xml)
          (Xml.child xml_arg0 "ProxyRuleGroups") in
      make ?updateToken ?proxyRuleGroups ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updateToken = field_map json__ "UpdateToken" UpdateToken.of_json in
      let proxyRuleGroups =
        field_map json__ "ProxyRuleGroups"
          ProxyRuleGroupPriorityResultList.of_json in
      make ?updateToken ?proxyRuleGroups ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates proxy rule group priorities within a proxy configuration."]
module UpdateProxyRuleGroupPrioritiesRequest =
  struct
    type nonrec t =
      {
      proxyConfigurationName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the proxy configuration. You can't change the name of a proxy configuration after you create it. You must specify the ARN or the name, and you can specify both."];
      proxyConfigurationArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of a proxy configuration. You must specify the ARN or the name, and you can specify both."];
      ruleGroups: ProxyRuleGroupPriorityList.t
        [@ocaml.doc "proxy rule group resources to update to new positions."];
      updateToken: UpdateToken.t
        [@ocaml.doc
          "A token used for optimistic locking. Network Firewall returns a token to your requests that access the proxy configuration. The token marks the state of the proxy configuration resource at the time of the request. To make changes to the proxy configuration, you provide the token in your request. Network Firewall uses the token to ensure that the proxy configuration hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the proxy configuration again to get a current copy of it with a current token. Reapply your changes as needed, then try the operation again using the new token."]}
    let context_ = "UpdateProxyRuleGroupPrioritiesRequest"
    let make ?proxyConfigurationName =
      fun ?proxyConfigurationArn ->
        fun ~ruleGroups ->
          fun ~updateToken ->
            fun () ->
              {
                proxyConfigurationName;
                proxyConfigurationArn;
                ruleGroups;
                updateToken
              }
    let to_value x =
      structure_to_value
        [("ProxyConfigurationName",
           (Option.map x.proxyConfigurationName ~f:ResourceName.to_value));
        ("ProxyConfigurationArn",
          (Option.map x.proxyConfigurationArn ~f:ResourceArn.to_value));
        ("RuleGroups",
          (Some (ProxyRuleGroupPriorityList.to_value x.ruleGroups)));
        ("UpdateToken", (Some (UpdateToken.to_value x.updateToken)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updateToken =
        UpdateToken.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "UpdateToken") in
      let ruleGroups =
        ProxyRuleGroupPriorityList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RuleGroups") in
      let proxyConfigurationArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "ProxyConfigurationArn") in
      let proxyConfigurationName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "ProxyConfigurationName") in
      make ~updateToken ~ruleGroups ?proxyConfigurationArn
        ?proxyConfigurationName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updateToken =
        field_map_exn json__ "UpdateToken" UpdateToken.of_json in
      let ruleGroups =
        field_map_exn json__ "RuleGroups" ProxyRuleGroupPriorityList.of_json in
      let proxyConfigurationArn =
        field_map json__ "ProxyConfigurationArn" ResourceArn.of_json in
      let proxyConfigurationName =
        field_map json__ "ProxyConfigurationName" ResourceName.of_json in
      make ~updateToken ~ruleGroups ?proxyConfigurationArn
        ?proxyConfigurationName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates proxy rule group priorities within a proxy configuration."]
module UpdateProxyResponse =
  struct
    type nonrec t =
      {
      proxy: Proxy.t option
        [@ocaml.doc
          "The updated proxy resource that reflects the updates from the request."];
      updateToken: UpdateToken.t option
        [@ocaml.doc
          "A token used for optimistic locking. Network Firewall returns a token to your requests that access the proxy. The token marks the state of the proxy resource at the time of the request. To make changes to the proxy, you provide the token in your request. Network Firewall uses the token to ensure that the proxy hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the proxy again to get a current copy of it with a current token. Reapply your changes as needed, then try the operation again using the new token."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?proxy = fun ?updateToken -> fun () -> { proxy; updateToken }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.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
        [("Proxy", (Option.map x.proxy ~f:Proxy.to_value));
        ("UpdateToken", (Option.map x.updateToken ~f:UpdateToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updateToken =
        (Option.map ~f:UpdateToken.of_xml) (Xml.child xml_arg0 "UpdateToken") in
      let proxy = (Option.map ~f:Proxy.of_xml) (Xml.child xml_arg0 "Proxy") in
      make ?updateToken ?proxy ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updateToken = field_map json__ "UpdateToken" UpdateToken.of_json in
      let proxy = field_map json__ "Proxy" Proxy.of_json in
      make ?updateToken ?proxy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the properties of the specified proxy."]
module UpdateProxyRequest =
  struct
    type nonrec t =
      {
      natGatewayId: NatGatewayId.t
        [@ocaml.doc "The NAT Gateway the proxy is attached to."];
      proxyName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the proxy. You can't change the name of a proxy after you create it. You must specify the ARN or the name, and you can specify both."];
      proxyArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of a proxy. You must specify the ARN or the name, and you can specify both."];
      listenerPropertiesToAdd: ListenerPropertiesRequest.t option
        [@ocaml.doc "Listener properties for HTTP and HTTPS traffic to add."];
      listenerPropertiesToRemove: ListenerPropertiesRequest.t option
        [@ocaml.doc
          "Listener properties for HTTP and HTTPS traffic to remove."];
      tlsInterceptProperties: TlsInterceptPropertiesRequest.t option
        [@ocaml.doc
          "TLS decryption on traffic to filter on attributes in the HTTP header."];
      updateToken: UpdateToken.t
        [@ocaml.doc
          "A token used for optimistic locking. Network Firewall returns a token to your requests that access the proxy. The token marks the state of the proxy resource at the time of the request. To make changes to the proxy, you provide the token in your request. Network Firewall uses the token to ensure that the proxy hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the proxy again to get a current copy of it with a current token. Reapply your changes as needed, then try the operation again using the new token."]}
    let context_ = "UpdateProxyRequest"
    let make ?proxyName =
      fun ?proxyArn ->
        fun ?listenerPropertiesToAdd ->
          fun ?listenerPropertiesToRemove ->
            fun ?tlsInterceptProperties ->
              fun ~natGatewayId ->
                fun ~updateToken ->
                  fun () ->
                    {
                      proxyName;
                      proxyArn;
                      listenerPropertiesToAdd;
                      listenerPropertiesToRemove;
                      tlsInterceptProperties;
                      natGatewayId;
                      updateToken
                    }
    let to_value x =
      structure_to_value
        [("NatGatewayId", (Some (NatGatewayId.to_value x.natGatewayId)));
        ("ProxyName", (Option.map x.proxyName ~f:ResourceName.to_value));
        ("ProxyArn", (Option.map x.proxyArn ~f:ResourceArn.to_value));
        ("ListenerPropertiesToAdd",
          (Option.map x.listenerPropertiesToAdd
             ~f:ListenerPropertiesRequest.to_value));
        ("ListenerPropertiesToRemove",
          (Option.map x.listenerPropertiesToRemove
             ~f:ListenerPropertiesRequest.to_value));
        ("TlsInterceptProperties",
          (Option.map x.tlsInterceptProperties
             ~f:TlsInterceptPropertiesRequest.to_value));
        ("UpdateToken", (Some (UpdateToken.to_value x.updateToken)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updateToken =
        UpdateToken.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "UpdateToken") in
      let tlsInterceptProperties =
        (Option.map ~f:TlsInterceptPropertiesRequest.of_xml)
          (Xml.child xml_arg0 "TlsInterceptProperties") in
      let listenerPropertiesToRemove =
        (Option.map ~f:ListenerPropertiesRequest.of_xml)
          (Xml.child xml_arg0 "ListenerPropertiesToRemove") in
      let listenerPropertiesToAdd =
        (Option.map ~f:ListenerPropertiesRequest.of_xml)
          (Xml.child xml_arg0 "ListenerPropertiesToAdd") in
      let proxyArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "ProxyArn") in
      let proxyName =
        (Option.map ~f:ResourceName.of_xml) (Xml.child xml_arg0 "ProxyName") in
      let natGatewayId =
        NatGatewayId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "NatGatewayId") in
      make ~updateToken ?tlsInterceptProperties ?listenerPropertiesToRemove
        ?listenerPropertiesToAdd ?proxyArn ?proxyName ~natGatewayId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updateToken =
        field_map_exn json__ "UpdateToken" UpdateToken.of_json in
      let tlsInterceptProperties =
        field_map json__ "TlsInterceptProperties"
          TlsInterceptPropertiesRequest.of_json in
      let listenerPropertiesToRemove =
        field_map json__ "ListenerPropertiesToRemove"
          ListenerPropertiesRequest.of_json in
      let listenerPropertiesToAdd =
        field_map json__ "ListenerPropertiesToAdd"
          ListenerPropertiesRequest.of_json in
      let proxyArn = field_map json__ "ProxyArn" ResourceArn.of_json in
      let proxyName = field_map json__ "ProxyName" ResourceName.of_json in
      let natGatewayId =
        field_map_exn json__ "NatGatewayId" NatGatewayId.of_json in
      make ~updateToken ?tlsInterceptProperties ?listenerPropertiesToRemove
        ?listenerPropertiesToAdd ?proxyArn ?proxyName ~natGatewayId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the properties of the specified proxy."]
module UpdateProxyConfigurationResponse =
  struct
    type nonrec t =
      {
      proxyConfiguration: ProxyConfiguration.t option
        [@ocaml.doc
          "The updated proxy configuration resource that reflects the updates from the request."];
      updateToken: UpdateToken.t option
        [@ocaml.doc
          "A token used for optimistic locking. Network Firewall returns a token to your requests that access the proxy configuration. The token marks the state of the proxy configuration resource at the time of the request. To make changes to the proxy configuration, you provide the token in your request. Network Firewall uses the token to ensure that the proxy configuration hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the proxy configuration again to get a current copy of it with a current token. Reapply your changes as needed, then try the operation again using the new token."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?proxyConfiguration =
      fun ?updateToken -> fun () -> { proxyConfiguration; updateToken }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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
        [("ProxyConfiguration",
           (Option.map x.proxyConfiguration ~f:ProxyConfiguration.to_value));
        ("UpdateToken", (Option.map x.updateToken ~f:UpdateToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updateToken =
        (Option.map ~f:UpdateToken.of_xml) (Xml.child xml_arg0 "UpdateToken") in
      let proxyConfiguration =
        (Option.map ~f:ProxyConfiguration.of_xml)
          (Xml.child xml_arg0 "ProxyConfiguration") in
      make ?updateToken ?proxyConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updateToken = field_map json__ "UpdateToken" UpdateToken.of_json in
      let proxyConfiguration =
        field_map json__ "ProxyConfiguration" ProxyConfiguration.of_json in
      make ?updateToken ?proxyConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the properties of the specified proxy configuration."]
module UpdateProxyConfigurationRequest =
  struct
    type nonrec t =
      {
      proxyConfigurationName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the proxy configuration. You can't change the name of a proxy configuration after you create it. You must specify the ARN or the name, and you can specify both."];
      proxyConfigurationArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of a proxy configuration. You must specify the ARN or the name, and you can specify both."];
      defaultRulePhaseActions: ProxyConfigDefaultRulePhaseActionsRequest.t
        [@ocaml.doc
          "Evaluation points in the traffic flow where rules are applied. There are three phases in a traffic where the rule match is applied."];
      updateToken: UpdateToken.t
        [@ocaml.doc
          "A token used for optimistic locking. Network Firewall returns a token to your requests that access the proxy configuration. The token marks the state of the proxy configuration resource at the time of the request. To make changes to the proxy configuration, you provide the token in your request. Network Firewall uses the token to ensure that the proxy configuration hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the proxy configuration again to get a current copy of it with a current token. Reapply your changes as needed, then try the operation again using the new token."]}
    let context_ = "UpdateProxyConfigurationRequest"
    let make ?proxyConfigurationName =
      fun ?proxyConfigurationArn ->
        fun ~defaultRulePhaseActions ->
          fun ~updateToken ->
            fun () ->
              {
                proxyConfigurationName;
                proxyConfigurationArn;
                defaultRulePhaseActions;
                updateToken
              }
    let to_value x =
      structure_to_value
        [("ProxyConfigurationName",
           (Option.map x.proxyConfigurationName ~f:ResourceName.to_value));
        ("ProxyConfigurationArn",
          (Option.map x.proxyConfigurationArn ~f:ResourceArn.to_value));
        ("DefaultRulePhaseActions",
          (Some
             (ProxyConfigDefaultRulePhaseActionsRequest.to_value
                x.defaultRulePhaseActions)));
        ("UpdateToken", (Some (UpdateToken.to_value x.updateToken)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updateToken =
        UpdateToken.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "UpdateToken") in
      let defaultRulePhaseActions =
        ProxyConfigDefaultRulePhaseActionsRequest.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DefaultRulePhaseActions") in
      let proxyConfigurationArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "ProxyConfigurationArn") in
      let proxyConfigurationName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "ProxyConfigurationName") in
      make ~updateToken ~defaultRulePhaseActions ?proxyConfigurationArn
        ?proxyConfigurationName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updateToken =
        field_map_exn json__ "UpdateToken" UpdateToken.of_json in
      let defaultRulePhaseActions =
        field_map_exn json__ "DefaultRulePhaseActions"
          ProxyConfigDefaultRulePhaseActionsRequest.of_json in
      let proxyConfigurationArn =
        field_map json__ "ProxyConfigurationArn" ResourceArn.of_json in
      let proxyConfigurationName =
        field_map json__ "ProxyConfigurationName" ResourceName.of_json in
      make ~updateToken ~defaultRulePhaseActions ?proxyConfigurationArn
        ?proxyConfigurationName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the properties of the specified proxy configuration."]
module UpdateLoggingConfigurationResponse =
  struct
    type nonrec t =
      {
      firewallArn: ResourceArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the firewall."];
      firewallName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the firewall. You can't change the name of a firewall after you create it."];
      loggingConfiguration: LoggingConfiguration.t option ;
      enableMonitoringDashboard: EnableMonitoringDashboard.t option
        [@ocaml.doc
          "A boolean that reflects whether or not the firewall monitoring dashboard is enabled on a firewall. Returns TRUE when the firewall monitoring dashboard is enabled on the firewall. Returns FALSE when the firewall monitoring dashboard is not enabled on the firewall."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `InvalidTokenException of InvalidTokenException.t 
      | `LogDestinationPermissionException of
          LogDestinationPermissionException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?firewallArn =
      fun ?firewallName ->
        fun ?loggingConfiguration ->
          fun ?enableMonitoringDashboard ->
            fun () ->
              {
                firewallArn;
                firewallName;
                loggingConfiguration;
                enableMonitoringDashboard
              }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_json json)
      | "LogDestinationPermissionException" ->
          `LogDestinationPermissionException
            (LogDestinationPermissionException.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_xml xml)
      | "LogDestinationPermissionException" ->
          `LogDestinationPermissionException
            (LogDestinationPermissionException.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `InvalidTokenException e ->
          `Assoc
            [("error", (`String "InvalidTokenException"));
            ("details", (InvalidTokenException.to_json e))]
      | `LogDestinationPermissionException e ->
          `Assoc
            [("error", (`String "LogDestinationPermissionException"));
            ("details", (LogDestinationPermissionException.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
        [("FirewallArn", (Option.map x.firewallArn ~f:ResourceArn.to_value));
        ("FirewallName",
          (Option.map x.firewallName ~f:ResourceName.to_value));
        ("LoggingConfiguration",
          (Option.map x.loggingConfiguration ~f:LoggingConfiguration.to_value));
        ("EnableMonitoringDashboard",
          (Option.map x.enableMonitoringDashboard
             ~f:EnableMonitoringDashboard.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let enableMonitoringDashboard =
        (Option.map ~f:EnableMonitoringDashboard.of_xml)
          (Xml.child xml_arg0 "EnableMonitoringDashboard") in
      let loggingConfiguration =
        (Option.map ~f:LoggingConfiguration.of_xml)
          (Xml.child xml_arg0 "LoggingConfiguration") in
      let firewallName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "FirewallName") in
      let firewallArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "FirewallArn") in
      make ?enableMonitoringDashboard ?loggingConfiguration ?firewallName
        ?firewallArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let enableMonitoringDashboard =
        field_map json__ "EnableMonitoringDashboard"
          EnableMonitoringDashboard.of_json in
      let loggingConfiguration =
        field_map json__ "LoggingConfiguration" LoggingConfiguration.of_json in
      let firewallName = field_map json__ "FirewallName" ResourceName.of_json in
      let firewallArn = field_map json__ "FirewallArn" ResourceArn.of_json in
      make ?enableMonitoringDashboard ?loggingConfiguration ?firewallName
        ?firewallArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Sets the logging configuration for the specified firewall. To change the logging configuration, retrieve the LoggingConfiguration by calling DescribeLoggingConfiguration, then change it and provide the modified object to this update call. You must change the logging configuration one LogDestinationConfig at a time inside the retrieved LoggingConfiguration object. You can perform only one of the following actions in any call to UpdateLoggingConfiguration: Create a new log destination object by adding a single LogDestinationConfig array element to LogDestinationConfigs. Delete a log destination object by removing a single LogDestinationConfig array element from LogDestinationConfigs. Change the LogDestination setting in a single LogDestinationConfig array element. You can't change the LogDestinationType or LogType in a LogDestinationConfig. To change these settings, delete the existing LogDestinationConfig object and create a new one, using two separate calls to this update operation."]
module UpdateLoggingConfigurationRequest =
  struct
    type nonrec t =
      {
      firewallArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the firewall. You must specify the ARN or the name, and you can specify both."];
      firewallName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the firewall. You can't change the name of a firewall after you create it. You must specify the ARN or the name, and you can specify both."];
      loggingConfiguration: LoggingConfiguration.t option
        [@ocaml.doc
          "Defines how Network Firewall performs logging for a firewall. If you omit this setting, Network Firewall disables logging for the firewall."];
      enableMonitoringDashboard: EnableMonitoringDashboard.t option
        [@ocaml.doc
          "A boolean that lets you enable or disable the detailed firewall monitoring dashboard on the firewall. The monitoring dashboard provides comprehensive visibility into your firewall's flow logs and alert logs. After you enable detailed monitoring, you can access these dashboards directly from the Monitoring page of the Network Firewall console. Specify TRUE to enable the the detailed monitoring dashboard on the firewall. Specify FALSE to disable the the detailed monitoring dashboard on the firewall."]}
    let make ?firewallArn =
      fun ?firewallName ->
        fun ?loggingConfiguration ->
          fun ?enableMonitoringDashboard ->
            fun () ->
              {
                firewallArn;
                firewallName;
                loggingConfiguration;
                enableMonitoringDashboard
              }
    let to_value x =
      structure_to_value
        [("FirewallArn", (Option.map x.firewallArn ~f:ResourceArn.to_value));
        ("FirewallName",
          (Option.map x.firewallName ~f:ResourceName.to_value));
        ("LoggingConfiguration",
          (Option.map x.loggingConfiguration ~f:LoggingConfiguration.to_value));
        ("EnableMonitoringDashboard",
          (Option.map x.enableMonitoringDashboard
             ~f:EnableMonitoringDashboard.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let enableMonitoringDashboard =
        (Option.map ~f:EnableMonitoringDashboard.of_xml)
          (Xml.child xml_arg0 "EnableMonitoringDashboard") in
      let loggingConfiguration =
        (Option.map ~f:LoggingConfiguration.of_xml)
          (Xml.child xml_arg0 "LoggingConfiguration") in
      let firewallName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "FirewallName") in
      let firewallArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "FirewallArn") in
      make ?enableMonitoringDashboard ?loggingConfiguration ?firewallName
        ?firewallArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let enableMonitoringDashboard =
        field_map json__ "EnableMonitoringDashboard"
          EnableMonitoringDashboard.of_json in
      let loggingConfiguration =
        field_map json__ "LoggingConfiguration" LoggingConfiguration.of_json in
      let firewallName = field_map json__ "FirewallName" ResourceName.of_json in
      let firewallArn = field_map json__ "FirewallArn" ResourceArn.of_json in
      make ?enableMonitoringDashboard ?loggingConfiguration ?firewallName
        ?firewallArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Sets the logging configuration for the specified firewall. To change the logging configuration, retrieve the LoggingConfiguration by calling DescribeLoggingConfiguration, then change it and provide the modified object to this update call. You must change the logging configuration one LogDestinationConfig at a time inside the retrieved LoggingConfiguration object. You can perform only one of the following actions in any call to UpdateLoggingConfiguration: Create a new log destination object by adding a single LogDestinationConfig array element to LogDestinationConfigs. Delete a log destination object by removing a single LogDestinationConfig array element from LogDestinationConfigs. Change the LogDestination setting in a single LogDestinationConfig array element. You can't change the LogDestinationType or LogType in a LogDestinationConfig. To change these settings, delete the existing LogDestinationConfig object and create a new one, using two separate calls to this update operation."]
module UpdateFirewallPolicyResponse =
  struct
    type nonrec t =
      {
      updateToken: UpdateToken.t option
        [@ocaml.doc
          "A token used for optimistic locking. Network Firewall returns a token to your requests that access the firewall policy. The token marks the state of the policy resource at the time of the request. To make changes to the policy, you provide the token in your request. Network Firewall uses the token to ensure that the policy hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the firewall policy again to get a current copy of it with current token. Reapply your changes as needed, then try the operation again using the new token."];
      firewallPolicyResponse: FirewallPolicyResponse.t option
        [@ocaml.doc
          "The high-level properties of a firewall policy. This, along with the FirewallPolicy, define the policy. You can retrieve all objects for a firewall policy by calling DescribeFirewallPolicy."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `InvalidTokenException of InvalidTokenException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?updateToken =
      fun ?firewallPolicyResponse ->
        fun () -> { updateToken; firewallPolicyResponse }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `InvalidTokenException e ->
          `Assoc
            [("error", (`String "InvalidTokenException"));
            ("details", (InvalidTokenException.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
        [("UpdateToken", (Option.map x.updateToken ~f:UpdateToken.to_value));
        ("FirewallPolicyResponse",
          (Option.map x.firewallPolicyResponse
             ~f:FirewallPolicyResponse.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let firewallPolicyResponse =
        (Option.map ~f:FirewallPolicyResponse.of_xml)
          (Xml.child xml_arg0 "FirewallPolicyResponse") in
      let updateToken =
        (Option.map ~f:UpdateToken.of_xml) (Xml.child xml_arg0 "UpdateToken") in
      make ?firewallPolicyResponse ?updateToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let firewallPolicyResponse =
        field_map json__ "FirewallPolicyResponse"
          FirewallPolicyResponse.of_json in
      let updateToken = field_map json__ "UpdateToken" UpdateToken.of_json in
      make ?firewallPolicyResponse ?updateToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the properties of the specified firewall policy."]
module UpdateFirewallPolicyRequest =
  struct
    type nonrec t =
      {
      updateToken: UpdateToken.t
        [@ocaml.doc
          "A token used for optimistic locking. Network Firewall returns a token to your requests that access the firewall policy. The token marks the state of the policy resource at the time of the request. To make changes to the policy, you provide the token in your request. Network Firewall uses the token to ensure that the policy hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the firewall policy again to get a current copy of it with current token. Reapply your changes as needed, then try the operation again using the new token."];
      firewallPolicyArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the firewall policy. You must specify the ARN or the name, and you can specify both."];
      firewallPolicyName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the firewall policy. You can't change the name of a firewall policy after you create it. You must specify the ARN or the name, and you can specify both."];
      firewallPolicy: FirewallPolicy.t
        [@ocaml.doc
          "The updated firewall policy to use for the firewall. You can't add or remove a TLSInspectionConfiguration after you create a firewall policy. However, you can replace an existing TLS inspection configuration with another TLSInspectionConfiguration."];
      description: Description.t option
        [@ocaml.doc "A description of the firewall policy."];
      dryRun: Boolean.t option
        [@ocaml.doc
          "Indicates whether you want Network Firewall to just check the validity of the request, rather than run the request. If set to TRUE, Network Firewall checks whether the request can run successfully, but doesn't actually make the requested changes. The call returns the value that the request would return if you ran it with dry run set to FALSE, but doesn't make additions or changes to your resources. This option allows you to make sure that you have the required permissions to run the request and that your request parameters are valid. If set to FALSE, Network Firewall makes the requested changes to your resources."];
      encryptionConfiguration: EncryptionConfiguration.t option
        [@ocaml.doc
          "A complex type that contains settings for encryption of your firewall policy resources."]}
    let context_ = "UpdateFirewallPolicyRequest"
    let make ?firewallPolicyArn =
      fun ?firewallPolicyName ->
        fun ?description ->
          fun ?dryRun ->
            fun ?encryptionConfiguration ->
              fun ~updateToken ->
                fun ~firewallPolicy ->
                  fun () ->
                    {
                      firewallPolicyArn;
                      firewallPolicyName;
                      description;
                      dryRun;
                      encryptionConfiguration;
                      updateToken;
                      firewallPolicy
                    }
    let to_value x =
      structure_to_value
        [("UpdateToken", (Some (UpdateToken.to_value x.updateToken)));
        ("FirewallPolicyArn",
          (Option.map x.firewallPolicyArn ~f:ResourceArn.to_value));
        ("FirewallPolicyName",
          (Option.map x.firewallPolicyName ~f:ResourceName.to_value));
        ("FirewallPolicy", (Some (FirewallPolicy.to_value x.firewallPolicy)));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("DryRun", (Option.map x.dryRun ~f:Boolean.to_value));
        ("EncryptionConfiguration",
          (Option.map x.encryptionConfiguration
             ~f:EncryptionConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let encryptionConfiguration =
        (Option.map ~f:EncryptionConfiguration.of_xml)
          (Xml.child xml_arg0 "EncryptionConfiguration") in
      let dryRun =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "DryRun") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let firewallPolicy =
        FirewallPolicy.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FirewallPolicy") in
      let firewallPolicyName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "FirewallPolicyName") in
      let firewallPolicyArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "FirewallPolicyArn") in
      let updateToken =
        UpdateToken.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "UpdateToken") in
      make ?encryptionConfiguration ?dryRun ?description ~firewallPolicy
        ?firewallPolicyName ?firewallPolicyArn ~updateToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let encryptionConfiguration =
        field_map json__ "EncryptionConfiguration"
          EncryptionConfiguration.of_json in
      let dryRun = field_map json__ "DryRun" Boolean.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let firewallPolicy =
        field_map_exn json__ "FirewallPolicy" FirewallPolicy.of_json in
      let firewallPolicyName =
        field_map json__ "FirewallPolicyName" ResourceName.of_json in
      let firewallPolicyArn =
        field_map json__ "FirewallPolicyArn" ResourceArn.of_json in
      let updateToken =
        field_map_exn json__ "UpdateToken" UpdateToken.of_json in
      make ?encryptionConfiguration ?dryRun ?description ~firewallPolicy
        ?firewallPolicyName ?firewallPolicyArn ~updateToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the properties of the specified firewall policy."]
module UpdateFirewallPolicyChangeProtectionResponse =
  struct
    type nonrec t =
      {
      updateToken: UpdateToken.t option
        [@ocaml.doc
          "An optional token that you can use for optimistic locking. Network Firewall returns a token to your requests that access the firewall. The token marks the state of the firewall resource at the time of the request. To make an unconditional change to the firewall, omit the token in your update request. Without the token, Network Firewall performs your updates regardless of whether the firewall has changed since you last retrieved it. To make a conditional change to the firewall, provide the token in your update request. Network Firewall uses the token to ensure that the firewall hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the firewall again to get a current copy of it with a new token. Reapply your changes as needed, then try the operation again using the new token."];
      firewallArn: ResourceArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the firewall."];
      firewallName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the firewall. You can't change the name of a firewall after you create it."];
      firewallPolicyChangeProtection: Boolean.t option
        [@ocaml.doc
          "A setting indicating whether the firewall is protected against a change to the firewall policy association. Use this setting to protect against accidentally modifying the firewall policy for a firewall that is in use. When you create a firewall, the operation initializes this setting to TRUE."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `InvalidTokenException of InvalidTokenException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ResourceOwnerCheckException of ResourceOwnerCheckException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?updateToken =
      fun ?firewallArn ->
        fun ?firewallName ->
          fun ?firewallPolicyChangeProtection ->
            fun () ->
              {
                updateToken;
                firewallArn;
                firewallName;
                firewallPolicyChangeProtection
              }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ResourceOwnerCheckException" ->
          `ResourceOwnerCheckException
            (ResourceOwnerCheckException.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ResourceOwnerCheckException" ->
          `ResourceOwnerCheckException
            (ResourceOwnerCheckException.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `InvalidTokenException e ->
          `Assoc
            [("error", (`String "InvalidTokenException"));
            ("details", (InvalidTokenException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ResourceOwnerCheckException e ->
          `Assoc
            [("error", (`String "ResourceOwnerCheckException"));
            ("details", (ResourceOwnerCheckException.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
        [("UpdateToken", (Option.map x.updateToken ~f:UpdateToken.to_value));
        ("FirewallArn", (Option.map x.firewallArn ~f:ResourceArn.to_value));
        ("FirewallName",
          (Option.map x.firewallName ~f:ResourceName.to_value));
        ("FirewallPolicyChangeProtection",
          (Option.map x.firewallPolicyChangeProtection ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let firewallPolicyChangeProtection =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "FirewallPolicyChangeProtection") in
      let firewallName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "FirewallName") in
      let firewallArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "FirewallArn") in
      let updateToken =
        (Option.map ~f:UpdateToken.of_xml) (Xml.child xml_arg0 "UpdateToken") in
      make ?firewallPolicyChangeProtection ?firewallName ?firewallArn
        ?updateToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let firewallPolicyChangeProtection =
        field_map json__ "FirewallPolicyChangeProtection" Boolean.of_json in
      let firewallName = field_map json__ "FirewallName" ResourceName.of_json in
      let firewallArn = field_map json__ "FirewallArn" ResourceArn.of_json in
      let updateToken = field_map json__ "UpdateToken" UpdateToken.of_json in
      make ?firewallPolicyChangeProtection ?firewallName ?firewallArn
        ?updateToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Modifies the flag, ChangeProtection, which indicates whether it is possible to change the firewall. If the flag is set to TRUE, the firewall is protected from changes. This setting helps protect against accidentally changing a firewall that's in use."]
module UpdateFirewallPolicyChangeProtectionRequest =
  struct
    type nonrec t =
      {
      updateToken: UpdateToken.t option
        [@ocaml.doc
          "An optional token that you can use for optimistic locking. Network Firewall returns a token to your requests that access the firewall. The token marks the state of the firewall resource at the time of the request. To make an unconditional change to the firewall, omit the token in your update request. Without the token, Network Firewall performs your updates regardless of whether the firewall has changed since you last retrieved it. To make a conditional change to the firewall, provide the token in your update request. Network Firewall uses the token to ensure that the firewall hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the firewall again to get a current copy of it with a new token. Reapply your changes as needed, then try the operation again using the new token."];
      firewallArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the firewall. You must specify the ARN or the name, and you can specify both."];
      firewallName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the firewall. You can't change the name of a firewall after you create it. You must specify the ARN or the name, and you can specify both."];
      firewallPolicyChangeProtection: Boolean.t
        [@ocaml.doc
          "A setting indicating whether the firewall is protected against a change to the firewall policy association. Use this setting to protect against accidentally modifying the firewall policy for a firewall that is in use. When you create a firewall, the operation initializes this setting to TRUE."]}
    let context_ = "UpdateFirewallPolicyChangeProtectionRequest"
    let make ?updateToken =
      fun ?firewallArn ->
        fun ?firewallName ->
          fun ~firewallPolicyChangeProtection ->
            fun () ->
              {
                updateToken;
                firewallArn;
                firewallName;
                firewallPolicyChangeProtection
              }
    let to_value x =
      structure_to_value
        [("UpdateToken", (Option.map x.updateToken ~f:UpdateToken.to_value));
        ("FirewallArn", (Option.map x.firewallArn ~f:ResourceArn.to_value));
        ("FirewallName",
          (Option.map x.firewallName ~f:ResourceName.to_value));
        ("FirewallPolicyChangeProtection",
          (Some (Boolean.to_value x.firewallPolicyChangeProtection)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let firewallPolicyChangeProtection =
        Boolean.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "FirewallPolicyChangeProtection") in
      let firewallName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "FirewallName") in
      let firewallArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "FirewallArn") in
      let updateToken =
        (Option.map ~f:UpdateToken.of_xml) (Xml.child xml_arg0 "UpdateToken") in
      make ~firewallPolicyChangeProtection ?firewallName ?firewallArn
        ?updateToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let firewallPolicyChangeProtection =
        field_map_exn json__ "FirewallPolicyChangeProtection" Boolean.of_json in
      let firewallName = field_map json__ "FirewallName" ResourceName.of_json in
      let firewallArn = field_map json__ "FirewallArn" ResourceArn.of_json in
      let updateToken = field_map json__ "UpdateToken" UpdateToken.of_json in
      make ~firewallPolicyChangeProtection ?firewallName ?firewallArn
        ?updateToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Modifies the flag, ChangeProtection, which indicates whether it is possible to change the firewall. If the flag is set to TRUE, the firewall is protected from changes. This setting helps protect against accidentally changing a firewall that's in use."]
module UpdateFirewallEncryptionConfigurationResponse =
  struct
    type nonrec t =
      {
      firewallArn: ResourceArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the firewall."];
      firewallName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the firewall. You can't change the name of a firewall after you create it."];
      updateToken: UpdateToken.t option
        [@ocaml.doc
          "An optional token that you can use for optimistic locking. Network Firewall returns a token to your requests that access the firewall. The token marks the state of the firewall resource at the time of the request. To make an unconditional change to the firewall, omit the token in your update request. Without the token, Network Firewall performs your updates regardless of whether the firewall has changed since you last retrieved it. To make a conditional change to the firewall, provide the token in your update request. Network Firewall uses the token to ensure that the firewall hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the firewall again to get a current copy of it with a new token. Reapply your changes as needed, then try the operation again using the new token."];
      encryptionConfiguration: EncryptionConfiguration.t option }
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `InvalidTokenException of InvalidTokenException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ResourceOwnerCheckException of ResourceOwnerCheckException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?firewallArn =
      fun ?firewallName ->
        fun ?updateToken ->
          fun ?encryptionConfiguration ->
            fun () ->
              {
                firewallArn;
                firewallName;
                updateToken;
                encryptionConfiguration
              }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ResourceOwnerCheckException" ->
          `ResourceOwnerCheckException
            (ResourceOwnerCheckException.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ResourceOwnerCheckException" ->
          `ResourceOwnerCheckException
            (ResourceOwnerCheckException.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `InvalidTokenException e ->
          `Assoc
            [("error", (`String "InvalidTokenException"));
            ("details", (InvalidTokenException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ResourceOwnerCheckException e ->
          `Assoc
            [("error", (`String "ResourceOwnerCheckException"));
            ("details", (ResourceOwnerCheckException.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
        [("FirewallArn", (Option.map x.firewallArn ~f:ResourceArn.to_value));
        ("FirewallName",
          (Option.map x.firewallName ~f:ResourceName.to_value));
        ("UpdateToken", (Option.map x.updateToken ~f:UpdateToken.to_value));
        ("EncryptionConfiguration",
          (Option.map x.encryptionConfiguration
             ~f:EncryptionConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let encryptionConfiguration =
        (Option.map ~f:EncryptionConfiguration.of_xml)
          (Xml.child xml_arg0 "EncryptionConfiguration") in
      let updateToken =
        (Option.map ~f:UpdateToken.of_xml) (Xml.child xml_arg0 "UpdateToken") in
      let firewallName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "FirewallName") in
      let firewallArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "FirewallArn") in
      make ?encryptionConfiguration ?updateToken ?firewallName ?firewallArn
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let encryptionConfiguration =
        field_map json__ "EncryptionConfiguration"
          EncryptionConfiguration.of_json in
      let updateToken = field_map json__ "UpdateToken" UpdateToken.of_json in
      let firewallName = field_map json__ "FirewallName" ResourceName.of_json in
      let firewallArn = field_map json__ "FirewallArn" ResourceArn.of_json in
      make ?encryptionConfiguration ?updateToken ?firewallName ?firewallArn
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A complex type that contains settings for encryption of your firewall resources."]
module UpdateFirewallEncryptionConfigurationRequest =
  struct
    type nonrec t =
      {
      updateToken: UpdateToken.t option
        [@ocaml.doc
          "An optional token that you can use for optimistic locking. Network Firewall returns a token to your requests that access the firewall. The token marks the state of the firewall resource at the time of the request. To make an unconditional change to the firewall, omit the token in your update request. Without the token, Network Firewall performs your updates regardless of whether the firewall has changed since you last retrieved it. To make a conditional change to the firewall, provide the token in your update request. Network Firewall uses the token to ensure that the firewall hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the firewall again to get a current copy of it with a new token. Reapply your changes as needed, then try the operation again using the new token."];
      firewallArn: ResourceArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the firewall."];
      firewallName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the firewall. You can't change the name of a firewall after you create it."];
      encryptionConfiguration: EncryptionConfiguration.t option }
    let make ?updateToken =
      fun ?firewallArn ->
        fun ?firewallName ->
          fun ?encryptionConfiguration ->
            fun () ->
              {
                updateToken;
                firewallArn;
                firewallName;
                encryptionConfiguration
              }
    let to_value x =
      structure_to_value
        [("UpdateToken", (Option.map x.updateToken ~f:UpdateToken.to_value));
        ("FirewallArn", (Option.map x.firewallArn ~f:ResourceArn.to_value));
        ("FirewallName",
          (Option.map x.firewallName ~f:ResourceName.to_value));
        ("EncryptionConfiguration",
          (Option.map x.encryptionConfiguration
             ~f:EncryptionConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let encryptionConfiguration =
        (Option.map ~f:EncryptionConfiguration.of_xml)
          (Xml.child xml_arg0 "EncryptionConfiguration") in
      let firewallName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "FirewallName") in
      let firewallArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "FirewallArn") in
      let updateToken =
        (Option.map ~f:UpdateToken.of_xml) (Xml.child xml_arg0 "UpdateToken") in
      make ?encryptionConfiguration ?firewallName ?firewallArn ?updateToken
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let encryptionConfiguration =
        field_map json__ "EncryptionConfiguration"
          EncryptionConfiguration.of_json in
      let firewallName = field_map json__ "FirewallName" ResourceName.of_json in
      let firewallArn = field_map json__ "FirewallArn" ResourceArn.of_json in
      let updateToken = field_map json__ "UpdateToken" UpdateToken.of_json in
      make ?encryptionConfiguration ?firewallName ?firewallArn ?updateToken
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A complex type that contains settings for encryption of your firewall resources."]
module UpdateFirewallDescriptionResponse =
  struct
    type nonrec t =
      {
      firewallArn: ResourceArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the firewall."];
      firewallName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the firewall. You can't change the name of a firewall after you create it."];
      description: Description.t option
        [@ocaml.doc "A description of the firewall."];
      updateToken: UpdateToken.t option
        [@ocaml.doc
          "An optional token that you can use for optimistic locking. Network Firewall returns a token to your requests that access the firewall. The token marks the state of the firewall resource at the time of the request. To make an unconditional change to the firewall, omit the token in your update request. Without the token, Network Firewall performs your updates regardless of whether the firewall has changed since you last retrieved it. To make a conditional change to the firewall, provide the token in your update request. Network Firewall uses the token to ensure that the firewall hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the firewall again to get a current copy of it with a new token. Reapply your changes as needed, then try the operation again using the new token."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `InvalidTokenException of InvalidTokenException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?firewallArn =
      fun ?firewallName ->
        fun ?description ->
          fun ?updateToken ->
            fun () -> { firewallArn; firewallName; description; updateToken }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `InvalidTokenException e ->
          `Assoc
            [("error", (`String "InvalidTokenException"));
            ("details", (InvalidTokenException.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
        [("FirewallArn", (Option.map x.firewallArn ~f:ResourceArn.to_value));
        ("FirewallName",
          (Option.map x.firewallName ~f:ResourceName.to_value));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("UpdateToken", (Option.map x.updateToken ~f:UpdateToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updateToken =
        (Option.map ~f:UpdateToken.of_xml) (Xml.child xml_arg0 "UpdateToken") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let firewallName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "FirewallName") in
      let firewallArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "FirewallArn") in
      make ?updateToken ?description ?firewallName ?firewallArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updateToken = field_map json__ "UpdateToken" UpdateToken.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let firewallName = field_map json__ "FirewallName" ResourceName.of_json in
      let firewallArn = field_map json__ "FirewallArn" ResourceArn.of_json in
      make ?updateToken ?description ?firewallName ?firewallArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Modifies the description for the specified firewall. Use the description to help you identify the firewall when you're working with it."]
module UpdateFirewallDescriptionRequest =
  struct
    type nonrec t =
      {
      updateToken: UpdateToken.t option
        [@ocaml.doc
          "An optional token that you can use for optimistic locking. Network Firewall returns a token to your requests that access the firewall. The token marks the state of the firewall resource at the time of the request. To make an unconditional change to the firewall, omit the token in your update request. Without the token, Network Firewall performs your updates regardless of whether the firewall has changed since you last retrieved it. To make a conditional change to the firewall, provide the token in your update request. Network Firewall uses the token to ensure that the firewall hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the firewall again to get a current copy of it with a new token. Reapply your changes as needed, then try the operation again using the new token."];
      firewallArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the firewall. You must specify the ARN or the name, and you can specify both."];
      firewallName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the firewall. You can't change the name of a firewall after you create it. You must specify the ARN or the name, and you can specify both."];
      description: Description.t option
        [@ocaml.doc
          "The new description for the firewall. If you omit this setting, Network Firewall removes the description for the firewall."]}
    let make ?updateToken =
      fun ?firewallArn ->
        fun ?firewallName ->
          fun ?description ->
            fun () -> { updateToken; firewallArn; firewallName; description }
    let to_value x =
      structure_to_value
        [("UpdateToken", (Option.map x.updateToken ~f:UpdateToken.to_value));
        ("FirewallArn", (Option.map x.firewallArn ~f:ResourceArn.to_value));
        ("FirewallName",
          (Option.map x.firewallName ~f:ResourceName.to_value));
        ("Description", (Option.map x.description ~f:Description.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let firewallName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "FirewallName") in
      let firewallArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "FirewallArn") in
      let updateToken =
        (Option.map ~f:UpdateToken.of_xml) (Xml.child xml_arg0 "UpdateToken") in
      make ?description ?firewallName ?firewallArn ?updateToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let description = field_map json__ "Description" Description.of_json in
      let firewallName = field_map json__ "FirewallName" ResourceName.of_json in
      let firewallArn = field_map json__ "FirewallArn" ResourceArn.of_json in
      let updateToken = field_map json__ "UpdateToken" UpdateToken.of_json in
      make ?description ?firewallName ?firewallArn ?updateToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Modifies the description for the specified firewall. Use the description to help you identify the firewall when you're working with it."]
module UpdateFirewallDeleteProtectionResponse =
  struct
    type nonrec t =
      {
      firewallArn: ResourceArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the firewall."];
      firewallName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the firewall. You can't change the name of a firewall after you create it."];
      deleteProtection: Boolean.t option
        [@ocaml.doc
          "A flag indicating whether it is possible to delete the firewall. A setting of TRUE indicates that the firewall is protected against deletion. Use this setting to protect against accidentally deleting a firewall that is in use. When you create a firewall, the operation initializes this flag to TRUE."];
      updateToken: UpdateToken.t option
        [@ocaml.doc
          "An optional token that you can use for optimistic locking. Network Firewall returns a token to your requests that access the firewall. The token marks the state of the firewall resource at the time of the request. To make an unconditional change to the firewall, omit the token in your update request. Without the token, Network Firewall performs your updates regardless of whether the firewall has changed since you last retrieved it. To make a conditional change to the firewall, provide the token in your update request. Network Firewall uses the token to ensure that the firewall hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the firewall again to get a current copy of it with a new token. Reapply your changes as needed, then try the operation again using the new token."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `InvalidTokenException of InvalidTokenException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ResourceOwnerCheckException of ResourceOwnerCheckException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?firewallArn =
      fun ?firewallName ->
        fun ?deleteProtection ->
          fun ?updateToken ->
            fun () ->
              { firewallArn; firewallName; deleteProtection; updateToken }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ResourceOwnerCheckException" ->
          `ResourceOwnerCheckException
            (ResourceOwnerCheckException.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ResourceOwnerCheckException" ->
          `ResourceOwnerCheckException
            (ResourceOwnerCheckException.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `InvalidTokenException e ->
          `Assoc
            [("error", (`String "InvalidTokenException"));
            ("details", (InvalidTokenException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ResourceOwnerCheckException e ->
          `Assoc
            [("error", (`String "ResourceOwnerCheckException"));
            ("details", (ResourceOwnerCheckException.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
        [("FirewallArn", (Option.map x.firewallArn ~f:ResourceArn.to_value));
        ("FirewallName",
          (Option.map x.firewallName ~f:ResourceName.to_value));
        ("DeleteProtection",
          (Option.map x.deleteProtection ~f:Boolean.to_value));
        ("UpdateToken", (Option.map x.updateToken ~f:UpdateToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updateToken =
        (Option.map ~f:UpdateToken.of_xml) (Xml.child xml_arg0 "UpdateToken") in
      let deleteProtection =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "DeleteProtection") in
      let firewallName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "FirewallName") in
      let firewallArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "FirewallArn") in
      make ?updateToken ?deleteProtection ?firewallName ?firewallArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updateToken = field_map json__ "UpdateToken" UpdateToken.of_json in
      let deleteProtection =
        field_map json__ "DeleteProtection" Boolean.of_json in
      let firewallName = field_map json__ "FirewallName" ResourceName.of_json in
      let firewallArn = field_map json__ "FirewallArn" ResourceArn.of_json in
      make ?updateToken ?deleteProtection ?firewallName ?firewallArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Modifies the flag, DeleteProtection, which indicates whether it is possible to delete the firewall. If the flag is set to TRUE, the firewall is protected against deletion. This setting helps protect against accidentally deleting a firewall that's in use."]
module UpdateFirewallDeleteProtectionRequest =
  struct
    type nonrec t =
      {
      updateToken: UpdateToken.t option
        [@ocaml.doc
          "An optional token that you can use for optimistic locking. Network Firewall returns a token to your requests that access the firewall. The token marks the state of the firewall resource at the time of the request. To make an unconditional change to the firewall, omit the token in your update request. Without the token, Network Firewall performs your updates regardless of whether the firewall has changed since you last retrieved it. To make a conditional change to the firewall, provide the token in your update request. Network Firewall uses the token to ensure that the firewall hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the firewall again to get a current copy of it with a new token. Reapply your changes as needed, then try the operation again using the new token."];
      firewallArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the firewall. You must specify the ARN or the name, and you can specify both."];
      firewallName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the firewall. You can't change the name of a firewall after you create it. You must specify the ARN or the name, and you can specify both."];
      deleteProtection: Boolean.t
        [@ocaml.doc
          "A flag indicating whether it is possible to delete the firewall. A setting of TRUE indicates that the firewall is protected against deletion. Use this setting to protect against accidentally deleting a firewall that is in use. When you create a firewall, the operation initializes this flag to TRUE."]}
    let context_ = "UpdateFirewallDeleteProtectionRequest"
    let make ?updateToken =
      fun ?firewallArn ->
        fun ?firewallName ->
          fun ~deleteProtection ->
            fun () ->
              { updateToken; firewallArn; firewallName; deleteProtection }
    let to_value x =
      structure_to_value
        [("UpdateToken", (Option.map x.updateToken ~f:UpdateToken.to_value));
        ("FirewallArn", (Option.map x.firewallArn ~f:ResourceArn.to_value));
        ("FirewallName",
          (Option.map x.firewallName ~f:ResourceName.to_value));
        ("DeleteProtection", (Some (Boolean.to_value x.deleteProtection)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deleteProtection =
        Boolean.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DeleteProtection") in
      let firewallName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "FirewallName") in
      let firewallArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "FirewallArn") in
      let updateToken =
        (Option.map ~f:UpdateToken.of_xml) (Xml.child xml_arg0 "UpdateToken") in
      make ~deleteProtection ?firewallName ?firewallArn ?updateToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deleteProtection =
        field_map_exn json__ "DeleteProtection" Boolean.of_json in
      let firewallName = field_map json__ "FirewallName" ResourceName.of_json in
      let firewallArn = field_map json__ "FirewallArn" ResourceArn.of_json in
      let updateToken = field_map json__ "UpdateToken" UpdateToken.of_json in
      make ~deleteProtection ?firewallName ?firewallArn ?updateToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Modifies the flag, DeleteProtection, which indicates whether it is possible to delete the firewall. If the flag is set to TRUE, the firewall is protected against deletion. This setting helps protect against accidentally deleting a firewall that's in use."]
module UpdateFirewallAnalysisSettingsResponse =
  struct
    type nonrec t =
      {
      enabledAnalysisTypes: EnabledAnalysisTypes.t option
        [@ocaml.doc
          "An optional setting indicating the specific traffic analysis types to enable on the firewall."];
      firewallArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the firewall. You must specify the ARN or the name, and you can specify both."];
      firewallName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the firewall. You can't change the name of a firewall after you create it. You must specify the ARN or the name, and you can specify both."];
      updateToken: UpdateToken.t option
        [@ocaml.doc
          "An optional token that you can use for optimistic locking. Network Firewall returns a token to your requests that access the firewall. The token marks the state of the firewall resource at the time of the request. To make an unconditional change to the firewall, omit the token in your update request. Without the token, Network Firewall performs your updates regardless of whether the firewall has changed since you last retrieved it. To make a conditional change to the firewall, provide the token in your update request. Network Firewall uses the token to ensure that the firewall hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the firewall again to get a current copy of it with a new token. Reapply your changes as needed, then try the operation again using the new token."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `InvalidTokenException of InvalidTokenException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?enabledAnalysisTypes =
      fun ?firewallArn ->
        fun ?firewallName ->
          fun ?updateToken ->
            fun () ->
              { enabledAnalysisTypes; firewallArn; firewallName; updateToken
              }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `InvalidTokenException e ->
          `Assoc
            [("error", (`String "InvalidTokenException"));
            ("details", (InvalidTokenException.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
        [("EnabledAnalysisTypes",
           (Option.map x.enabledAnalysisTypes
              ~f:EnabledAnalysisTypes.to_value));
        ("FirewallArn", (Option.map x.firewallArn ~f:ResourceArn.to_value));
        ("FirewallName",
          (Option.map x.firewallName ~f:ResourceName.to_value));
        ("UpdateToken", (Option.map x.updateToken ~f:UpdateToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updateToken =
        (Option.map ~f:UpdateToken.of_xml) (Xml.child xml_arg0 "UpdateToken") in
      let firewallName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "FirewallName") in
      let firewallArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "FirewallArn") in
      let enabledAnalysisTypes =
        (Option.map ~f:EnabledAnalysisTypes.of_xml)
          (Xml.child xml_arg0 "EnabledAnalysisTypes") in
      make ?updateToken ?firewallName ?firewallArn ?enabledAnalysisTypes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updateToken = field_map json__ "UpdateToken" UpdateToken.of_json in
      let firewallName = field_map json__ "FirewallName" ResourceName.of_json in
      let firewallArn = field_map json__ "FirewallArn" ResourceArn.of_json in
      let enabledAnalysisTypes =
        field_map json__ "EnabledAnalysisTypes" EnabledAnalysisTypes.of_json in
      make ?updateToken ?firewallName ?firewallArn ?enabledAnalysisTypes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Enables specific types of firewall analysis on a specific firewall you define."]
module UpdateFirewallAnalysisSettingsRequest =
  struct
    type nonrec t =
      {
      enabledAnalysisTypes: EnabledAnalysisTypes.t option
        [@ocaml.doc
          "An optional setting indicating the specific traffic analysis types to enable on the firewall."];
      firewallArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the firewall. You must specify the ARN or the name, and you can specify both."];
      firewallName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the firewall. You can't change the name of a firewall after you create it. You must specify the ARN or the name, and you can specify both."];
      updateToken: UpdateToken.t option
        [@ocaml.doc
          "An optional token that you can use for optimistic locking. Network Firewall returns a token to your requests that access the firewall. The token marks the state of the firewall resource at the time of the request. To make an unconditional change to the firewall, omit the token in your update request. Without the token, Network Firewall performs your updates regardless of whether the firewall has changed since you last retrieved it. To make a conditional change to the firewall, provide the token in your update request. Network Firewall uses the token to ensure that the firewall hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the firewall again to get a current copy of it with a new token. Reapply your changes as needed, then try the operation again using the new token."]}
    let make ?enabledAnalysisTypes =
      fun ?firewallArn ->
        fun ?firewallName ->
          fun ?updateToken ->
            fun () ->
              { enabledAnalysisTypes; firewallArn; firewallName; updateToken
              }
    let to_value x =
      structure_to_value
        [("EnabledAnalysisTypes",
           (Option.map x.enabledAnalysisTypes
              ~f:EnabledAnalysisTypes.to_value));
        ("FirewallArn", (Option.map x.firewallArn ~f:ResourceArn.to_value));
        ("FirewallName",
          (Option.map x.firewallName ~f:ResourceName.to_value));
        ("UpdateToken", (Option.map x.updateToken ~f:UpdateToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updateToken =
        (Option.map ~f:UpdateToken.of_xml) (Xml.child xml_arg0 "UpdateToken") in
      let firewallName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "FirewallName") in
      let firewallArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "FirewallArn") in
      let enabledAnalysisTypes =
        (Option.map ~f:EnabledAnalysisTypes.of_xml)
          (Xml.child xml_arg0 "EnabledAnalysisTypes") in
      make ?updateToken ?firewallName ?firewallArn ?enabledAnalysisTypes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updateToken = field_map json__ "UpdateToken" UpdateToken.of_json in
      let firewallName = field_map json__ "FirewallName" ResourceName.of_json in
      let firewallArn = field_map json__ "FirewallArn" ResourceArn.of_json in
      let enabledAnalysisTypes =
        field_map json__ "EnabledAnalysisTypes" EnabledAnalysisTypes.of_json in
      make ?updateToken ?firewallName ?firewallArn ?enabledAnalysisTypes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Enables specific types of firewall analysis on a specific firewall you define."]
module UpdateAvailabilityZoneChangeProtectionResponse =
  struct
    type nonrec t =
      {
      updateToken: UpdateToken.t option
        [@ocaml.doc
          "An optional token that you can use for optimistic locking. Network Firewall returns a token to your requests that access the firewall. The token marks the state of the firewall resource at the time of the request. To make an unconditional change to the firewall, omit the token in your update request. Without the token, Network Firewall performs your updates regardless of whether the firewall has changed since you last retrieved it. To make a conditional change to the firewall, provide the token in your update request. Network Firewall uses the token to ensure that the firewall hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the firewall again to get a current copy of it with a new token. Reapply your changes as needed, then try the operation again using the new token."];
      firewallArn: ResourceArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the firewall."];
      firewallName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the firewall. You can't change the name of a firewall after you create it."];
      availabilityZoneChangeProtection: Boolean.t option
        [@ocaml.doc
          "A setting indicating whether the firewall is protected against changes to the subnet associations. Use this setting to protect against accidentally modifying the subnet associations for a firewall that is in use. When you create a firewall, the operation initializes this setting to TRUE."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `InvalidTokenException of InvalidTokenException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ResourceOwnerCheckException of ResourceOwnerCheckException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?updateToken =
      fun ?firewallArn ->
        fun ?firewallName ->
          fun ?availabilityZoneChangeProtection ->
            fun () ->
              {
                updateToken;
                firewallArn;
                firewallName;
                availabilityZoneChangeProtection
              }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ResourceOwnerCheckException" ->
          `ResourceOwnerCheckException
            (ResourceOwnerCheckException.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ResourceOwnerCheckException" ->
          `ResourceOwnerCheckException
            (ResourceOwnerCheckException.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `InvalidTokenException e ->
          `Assoc
            [("error", (`String "InvalidTokenException"));
            ("details", (InvalidTokenException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ResourceOwnerCheckException e ->
          `Assoc
            [("error", (`String "ResourceOwnerCheckException"));
            ("details", (ResourceOwnerCheckException.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
        [("UpdateToken", (Option.map x.updateToken ~f:UpdateToken.to_value));
        ("FirewallArn", (Option.map x.firewallArn ~f:ResourceArn.to_value));
        ("FirewallName",
          (Option.map x.firewallName ~f:ResourceName.to_value));
        ("AvailabilityZoneChangeProtection",
          (Option.map x.availabilityZoneChangeProtection ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let availabilityZoneChangeProtection =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "AvailabilityZoneChangeProtection") in
      let firewallName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "FirewallName") in
      let firewallArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "FirewallArn") in
      let updateToken =
        (Option.map ~f:UpdateToken.of_xml) (Xml.child xml_arg0 "UpdateToken") in
      make ?availabilityZoneChangeProtection ?firewallName ?firewallArn
        ?updateToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let availabilityZoneChangeProtection =
        field_map json__ "AvailabilityZoneChangeProtection" Boolean.of_json in
      let firewallName = field_map json__ "FirewallName" ResourceName.of_json in
      let firewallArn = field_map json__ "FirewallArn" ResourceArn.of_json in
      let updateToken = field_map json__ "UpdateToken" UpdateToken.of_json in
      make ?availabilityZoneChangeProtection ?firewallName ?firewallArn
        ?updateToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Modifies the AvailabilityZoneChangeProtection setting for a transit gateway-attached firewall. When enabled, this setting prevents accidental changes to the firewall's Availability Zone configuration. This helps protect against disrupting traffic flow in production environments. When enabled, you must disable this protection before using AssociateAvailabilityZones or DisassociateAvailabilityZones to modify the firewall's Availability Zone configuration."]
module UpdateAvailabilityZoneChangeProtectionRequest =
  struct
    type nonrec t =
      {
      updateToken: UpdateToken.t option
        [@ocaml.doc
          "An optional token that you can use for optimistic locking. Network Firewall returns a token to your requests that access the firewall. The token marks the state of the firewall resource at the time of the request. To make an unconditional change to the firewall, omit the token in your update request. Without the token, Network Firewall performs your updates regardless of whether the firewall has changed since you last retrieved it. To make a conditional change to the firewall, provide the token in your update request. Network Firewall uses the token to ensure that the firewall hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the firewall again to get a current copy of it with a new token. Reapply your changes as needed, then try the operation again using the new token."];
      firewallArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the firewall. You must specify the ARN or the name, and you can specify both."];
      firewallName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the firewall. You can't change the name of a firewall after you create it. You must specify the ARN or the name, and you can specify both."];
      availabilityZoneChangeProtection: Boolean.t
        [@ocaml.doc
          "A setting indicating whether the firewall is protected against changes to the subnet associations. Use this setting to protect against accidentally modifying the subnet associations for a firewall that is in use. When you create a firewall, the operation initializes this setting to TRUE."]}
    let context_ = "UpdateAvailabilityZoneChangeProtectionRequest"
    let make ?updateToken =
      fun ?firewallArn ->
        fun ?firewallName ->
          fun ~availabilityZoneChangeProtection ->
            fun () ->
              {
                updateToken;
                firewallArn;
                firewallName;
                availabilityZoneChangeProtection
              }
    let to_value x =
      structure_to_value
        [("UpdateToken", (Option.map x.updateToken ~f:UpdateToken.to_value));
        ("FirewallArn", (Option.map x.firewallArn ~f:ResourceArn.to_value));
        ("FirewallName",
          (Option.map x.firewallName ~f:ResourceName.to_value));
        ("AvailabilityZoneChangeProtection",
          (Some (Boolean.to_value x.availabilityZoneChangeProtection)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let availabilityZoneChangeProtection =
        Boolean.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "AvailabilityZoneChangeProtection") in
      let firewallName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "FirewallName") in
      let firewallArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "FirewallArn") in
      let updateToken =
        (Option.map ~f:UpdateToken.of_xml) (Xml.child xml_arg0 "UpdateToken") in
      make ~availabilityZoneChangeProtection ?firewallName ?firewallArn
        ?updateToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let availabilityZoneChangeProtection =
        field_map_exn json__ "AvailabilityZoneChangeProtection"
          Boolean.of_json in
      let firewallName = field_map json__ "FirewallName" ResourceName.of_json in
      let firewallArn = field_map json__ "FirewallArn" ResourceArn.of_json in
      let updateToken = field_map json__ "UpdateToken" UpdateToken.of_json in
      make ~availabilityZoneChangeProtection ?firewallName ?firewallArn
        ?updateToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Modifies the AvailabilityZoneChangeProtection setting for a transit gateway-attached firewall. When enabled, this setting prevents accidental changes to the firewall's Availability Zone configuration. This helps protect against disrupting traffic flow in production environments. When enabled, you must disable this protection before using AssociateAvailabilityZones or DisassociateAvailabilityZones to modify the firewall's Availability Zone configuration."]
module UntagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InternalServerError of InternalServerError.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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 the tags with the specified keys from the specified resource. Tags are key:value pairs that you can use to categorize and manage your resources, for purposes like billing. For example, you might set the tag key to \"customer\" and the value to the customer name or ID. You can specify one or more tags to add to each Amazon Web Services resource, up to 50 tags for a resource. You can manage tags for the Amazon Web Services resources that you manage through Network Firewall: firewalls, firewall policies, and rule groups."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: ResourceArn.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the resource."];
      tagKeys: TagKeyList.t }
    let context_ = "UntagResourceRequest"
    let make ~resourceArn =
      fun ~tagKeys -> fun () -> { resourceArn; tagKeys }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (ResourceArn.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 =
        ResourceArn.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" ResourceArn.of_json in
      make ~tagKeys ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes the tags with the specified keys from the specified resource. Tags are key:value pairs that you can use to categorize and manage your resources, for purposes like billing. For example, you might set the tag key to \"customer\" and the value to the customer name or ID. You can specify one or more tags to add to each Amazon Web Services resource, up to 50 tags for a resource. You can manage tags for the Amazon Web Services resources that you manage through Network Firewall: firewalls, firewall policies, and rule groups."]
module TagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InternalServerError of InternalServerError.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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
       "Adds the specified tags to the specified resource. Tags are key:value pairs that you can use to categorize and manage your resources, for purposes like billing. For example, you might set the tag key to \"customer\" and the value to the customer name or ID. You can specify one or more tags to add to each Amazon Web Services resource, up to 50 tags for a resource. You can tag the Amazon Web Services resources that you manage through Network Firewall: firewalls, firewall policies, and rule groups."]
module TagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: ResourceArn.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the resource."];
      tags: TagList.t }
    let context_ = "TagResourceRequest"
    let make ~resourceArn = fun ~tags -> fun () -> { resourceArn; tags }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (ResourceArn.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 =
        ResourceArn.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" ResourceArn.of_json in
      make ~tags ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds the specified tags to the specified resource. Tags are key:value pairs that you can use to categorize and manage your resources, for purposes like billing. For example, you might set the tag key to \"customer\" and the value to the customer name or ID. You can specify one or more tags to add to each Amazon Web Services resource, up to 50 tags for a resource. You can tag the Amazon Web Services resources that you manage through Network Firewall: firewalls, firewall policies, and rule groups."]
module StartFlowFlushResponse =
  struct
    type nonrec t =
      {
      firewallArn: ResourceArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the firewall."];
      flowOperationId: FlowOperationId.t option
        [@ocaml.doc
          "A unique identifier for the flow operation. This ID is returned in the responses to start and list commands. You provide to describe commands."];
      flowOperationStatus: FlowOperationStatus.t option
        [@ocaml.doc
          "Returns the status of the flow operation. This string is returned in the responses to start, list, and describe commands. If the status is COMPLETED_WITH_ERRORS, results may be returned with any number of Flows missing from the response. If the status is FAILED, Flows returned will be empty."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?firewallArn =
      fun ?flowOperationId ->
        fun ?flowOperationStatus ->
          fun () -> { firewallArn; flowOperationId; flowOperationStatus }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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
        [("FirewallArn", (Option.map x.firewallArn ~f:ResourceArn.to_value));
        ("FlowOperationId",
          (Option.map x.flowOperationId ~f:FlowOperationId.to_value));
        ("FlowOperationStatus",
          (Option.map x.flowOperationStatus ~f:FlowOperationStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let flowOperationStatus =
        (Option.map ~f:FlowOperationStatus.of_xml)
          (Xml.child xml_arg0 "FlowOperationStatus") in
      let flowOperationId =
        (Option.map ~f:FlowOperationId.of_xml)
          (Xml.child xml_arg0 "FlowOperationId") in
      let firewallArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "FirewallArn") in
      make ?flowOperationStatus ?flowOperationId ?firewallArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let flowOperationStatus =
        field_map json__ "FlowOperationStatus" FlowOperationStatus.of_json in
      let flowOperationId =
        field_map json__ "FlowOperationId" FlowOperationId.of_json in
      let firewallArn = field_map json__ "FirewallArn" ResourceArn.of_json in
      make ?flowOperationStatus ?flowOperationId ?firewallArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Begins the flushing of traffic from the firewall, according to the filters you define. When the operation starts, impacted flows are temporarily marked as timed out before the Suricata engine prunes, or flushes, the flows from the firewall table. While the flush completes, impacted flows are processed as midstream traffic. This may result in a temporary increase in midstream traffic metrics. We recommend that you double check your stream exception policy before you perform a flush operation."]
module StartFlowFlushRequest =
  struct
    type nonrec t =
      {
      firewallArn: ResourceArn.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the firewall."];
      availabilityZone: AvailabilityZone.t option
        [@ocaml.doc
          "The ID of the Availability Zone where the firewall is located. For example, us-east-2a. Defines the scope a flow operation. You can use up to 20 filters to configure a single flow operation."];
      vpcEndpointAssociationArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of a VPC endpoint association."];
      vpcEndpointId: VpcEndpointId.t option
        [@ocaml.doc
          "A unique identifier for the primary endpoint associated with a firewall."];
      minimumFlowAgeInSeconds: Age.t option
        [@ocaml.doc
          "The reqested FlowOperation ignores flows with an age (in seconds) lower than MinimumFlowAgeInSeconds. You provide this for start commands."];
      flowFilters: FlowFilters.t
        [@ocaml.doc
          "Defines the scope a flow operation. You can use up to 20 filters to configure a single flow operation."]}
    let context_ = "StartFlowFlushRequest"
    let make ?availabilityZone =
      fun ?vpcEndpointAssociationArn ->
        fun ?vpcEndpointId ->
          fun ?minimumFlowAgeInSeconds ->
            fun ~firewallArn ->
              fun ~flowFilters ->
                fun () ->
                  {
                    availabilityZone;
                    vpcEndpointAssociationArn;
                    vpcEndpointId;
                    minimumFlowAgeInSeconds;
                    firewallArn;
                    flowFilters
                  }
    let to_value x =
      structure_to_value
        [("FirewallArn", (Some (ResourceArn.to_value x.firewallArn)));
        ("AvailabilityZone",
          (Option.map x.availabilityZone ~f:AvailabilityZone.to_value));
        ("VpcEndpointAssociationArn",
          (Option.map x.vpcEndpointAssociationArn ~f:ResourceArn.to_value));
        ("VpcEndpointId",
          (Option.map x.vpcEndpointId ~f:VpcEndpointId.to_value));
        ("MinimumFlowAgeInSeconds",
          (Option.map x.minimumFlowAgeInSeconds ~f:Age.to_value));
        ("FlowFilters", (Some (FlowFilters.to_value x.flowFilters)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let flowFilters =
        FlowFilters.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FlowFilters") in
      let minimumFlowAgeInSeconds =
        (Option.map ~f:Age.of_xml)
          (Xml.child xml_arg0 "MinimumFlowAgeInSeconds") in
      let vpcEndpointId =
        (Option.map ~f:VpcEndpointId.of_xml)
          (Xml.child xml_arg0 "VpcEndpointId") in
      let vpcEndpointAssociationArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "VpcEndpointAssociationArn") in
      let availabilityZone =
        (Option.map ~f:AvailabilityZone.of_xml)
          (Xml.child xml_arg0 "AvailabilityZone") in
      let firewallArn =
        ResourceArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FirewallArn") in
      make ~flowFilters ?minimumFlowAgeInSeconds ?vpcEndpointId
        ?vpcEndpointAssociationArn ?availabilityZone ~firewallArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let flowFilters =
        field_map_exn json__ "FlowFilters" FlowFilters.of_json in
      let minimumFlowAgeInSeconds =
        field_map json__ "MinimumFlowAgeInSeconds" Age.of_json in
      let vpcEndpointId =
        field_map json__ "VpcEndpointId" VpcEndpointId.of_json in
      let vpcEndpointAssociationArn =
        field_map json__ "VpcEndpointAssociationArn" ResourceArn.of_json in
      let availabilityZone =
        field_map json__ "AvailabilityZone" AvailabilityZone.of_json in
      let firewallArn =
        field_map_exn json__ "FirewallArn" ResourceArn.of_json in
      make ~flowFilters ?minimumFlowAgeInSeconds ?vpcEndpointId
        ?vpcEndpointAssociationArn ?availabilityZone ~firewallArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Begins the flushing of traffic from the firewall, according to the filters you define. When the operation starts, impacted flows are temporarily marked as timed out before the Suricata engine prunes, or flushes, the flows from the firewall table. While the flush completes, impacted flows are processed as midstream traffic. This may result in a temporary increase in midstream traffic metrics. We recommend that you double check your stream exception policy before you perform a flush operation."]
module StartFlowCaptureResponse =
  struct
    type nonrec t =
      {
      firewallArn: ResourceArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the firewall."];
      flowOperationId: FlowOperationId.t option
        [@ocaml.doc
          "A unique identifier for the flow operation. This ID is returned in the responses to start and list commands. You provide to describe commands."];
      flowOperationStatus: FlowOperationStatus.t option
        [@ocaml.doc
          "Returns the status of the flow operation. This string is returned in the responses to start, list, and describe commands. If the status is COMPLETED_WITH_ERRORS, results may be returned with any number of Flows missing from the response. If the status is FAILED, Flows returned will be empty."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?firewallArn =
      fun ?flowOperationId ->
        fun ?flowOperationStatus ->
          fun () -> { firewallArn; flowOperationId; flowOperationStatus }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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
        [("FirewallArn", (Option.map x.firewallArn ~f:ResourceArn.to_value));
        ("FlowOperationId",
          (Option.map x.flowOperationId ~f:FlowOperationId.to_value));
        ("FlowOperationStatus",
          (Option.map x.flowOperationStatus ~f:FlowOperationStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let flowOperationStatus =
        (Option.map ~f:FlowOperationStatus.of_xml)
          (Xml.child xml_arg0 "FlowOperationStatus") in
      let flowOperationId =
        (Option.map ~f:FlowOperationId.of_xml)
          (Xml.child xml_arg0 "FlowOperationId") in
      let firewallArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "FirewallArn") in
      make ?flowOperationStatus ?flowOperationId ?firewallArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let flowOperationStatus =
        field_map json__ "FlowOperationStatus" FlowOperationStatus.of_json in
      let flowOperationId =
        field_map json__ "FlowOperationId" FlowOperationId.of_json in
      let firewallArn = field_map json__ "FirewallArn" ResourceArn.of_json in
      make ?flowOperationStatus ?flowOperationId ?firewallArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Begins capturing the flows in a firewall, according to the filters you define. Captures are similar, but not identical to snapshots. Capture operations provide visibility into flows that are not closed and are tracked by a firewall's flow table. Unlike snapshots, captures are a time-boxed view. A flow is network traffic that is monitored by a firewall, either by stateful or stateless rules. For traffic to be considered part of a flow, it must share Destination, DestinationPort, Direction, Protocol, Source, and SourcePort. To avoid encountering operation limits, you should avoid starting captures with broad filters, like wide IP ranges. Instead, we recommend you define more specific criteria with FlowFilters, like narrow IP ranges, ports, or protocols."]
module StartFlowCaptureRequest =
  struct
    type nonrec t =
      {
      firewallArn: ResourceArn.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the firewall."];
      availabilityZone: AvailabilityZone.t option
        [@ocaml.doc
          "The ID of the Availability Zone where the firewall is located. For example, us-east-2a. Defines the scope a flow operation. You can use up to 20 filters to configure a single flow operation."];
      vpcEndpointAssociationArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of a VPC endpoint association."];
      vpcEndpointId: VpcEndpointId.t option
        [@ocaml.doc
          "A unique identifier for the primary endpoint associated with a firewall."];
      minimumFlowAgeInSeconds: Age.t option
        [@ocaml.doc
          "The reqested FlowOperation ignores flows with an age (in seconds) lower than MinimumFlowAgeInSeconds. You provide this for start commands. We recommend setting this value to at least 1 minute (60 seconds) to reduce chance of capturing flows that are not yet established."];
      flowFilters: FlowFilters.t
        [@ocaml.doc
          "Defines the scope a flow operation. You can use up to 20 filters to configure a single flow operation."]}
    let context_ = "StartFlowCaptureRequest"
    let make ?availabilityZone =
      fun ?vpcEndpointAssociationArn ->
        fun ?vpcEndpointId ->
          fun ?minimumFlowAgeInSeconds ->
            fun ~firewallArn ->
              fun ~flowFilters ->
                fun () ->
                  {
                    availabilityZone;
                    vpcEndpointAssociationArn;
                    vpcEndpointId;
                    minimumFlowAgeInSeconds;
                    firewallArn;
                    flowFilters
                  }
    let to_value x =
      structure_to_value
        [("FirewallArn", (Some (ResourceArn.to_value x.firewallArn)));
        ("AvailabilityZone",
          (Option.map x.availabilityZone ~f:AvailabilityZone.to_value));
        ("VpcEndpointAssociationArn",
          (Option.map x.vpcEndpointAssociationArn ~f:ResourceArn.to_value));
        ("VpcEndpointId",
          (Option.map x.vpcEndpointId ~f:VpcEndpointId.to_value));
        ("MinimumFlowAgeInSeconds",
          (Option.map x.minimumFlowAgeInSeconds ~f:Age.to_value));
        ("FlowFilters", (Some (FlowFilters.to_value x.flowFilters)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let flowFilters =
        FlowFilters.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FlowFilters") in
      let minimumFlowAgeInSeconds =
        (Option.map ~f:Age.of_xml)
          (Xml.child xml_arg0 "MinimumFlowAgeInSeconds") in
      let vpcEndpointId =
        (Option.map ~f:VpcEndpointId.of_xml)
          (Xml.child xml_arg0 "VpcEndpointId") in
      let vpcEndpointAssociationArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "VpcEndpointAssociationArn") in
      let availabilityZone =
        (Option.map ~f:AvailabilityZone.of_xml)
          (Xml.child xml_arg0 "AvailabilityZone") in
      let firewallArn =
        ResourceArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FirewallArn") in
      make ~flowFilters ?minimumFlowAgeInSeconds ?vpcEndpointId
        ?vpcEndpointAssociationArn ?availabilityZone ~firewallArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let flowFilters =
        field_map_exn json__ "FlowFilters" FlowFilters.of_json in
      let minimumFlowAgeInSeconds =
        field_map json__ "MinimumFlowAgeInSeconds" Age.of_json in
      let vpcEndpointId =
        field_map json__ "VpcEndpointId" VpcEndpointId.of_json in
      let vpcEndpointAssociationArn =
        field_map json__ "VpcEndpointAssociationArn" ResourceArn.of_json in
      let availabilityZone =
        field_map json__ "AvailabilityZone" AvailabilityZone.of_json in
      let firewallArn =
        field_map_exn json__ "FirewallArn" ResourceArn.of_json in
      make ~flowFilters ?minimumFlowAgeInSeconds ?vpcEndpointId
        ?vpcEndpointAssociationArn ?availabilityZone ~firewallArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Begins capturing the flows in a firewall, according to the filters you define. Captures are similar, but not identical to snapshots. Capture operations provide visibility into flows that are not closed and are tracked by a firewall's flow table. Unlike snapshots, captures are a time-boxed view. A flow is network traffic that is monitored by a firewall, either by stateful or stateless rules. For traffic to be considered part of a flow, it must share Destination, DestinationPort, Direction, Protocol, Source, and SourcePort. To avoid encountering operation limits, you should avoid starting captures with broad filters, like wide IP ranges. Instead, we recommend you define more specific criteria with FlowFilters, like narrow IP ranges, ports, or protocols."]
module StartAnalysisReportResponse =
  struct
    type nonrec t =
      {
      analysisReportId: AnalysisReportId.t option
        [@ocaml.doc
          "The unique ID of the query that ran when you requested an analysis report."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?analysisReportId = fun () -> { analysisReportId }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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
        [("AnalysisReportId",
           (Option.map x.analysisReportId ~f:AnalysisReportId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let analysisReportId =
        (Option.map ~f:AnalysisReportId.of_xml)
          (Xml.child xml_arg0 "AnalysisReportId") in
      make ?analysisReportId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let analysisReportId =
        field_map json__ "AnalysisReportId" AnalysisReportId.of_json in
      make ?analysisReportId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Generates a traffic analysis report for the timeframe and traffic type you specify. For information on the contents of a traffic analysis report, see AnalysisReport."]
module StartAnalysisReportRequest =
  struct
    type nonrec t =
      {
      firewallName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the firewall. You can't change the name of a firewall after you create it. You must specify the ARN or the name, and you can specify both."];
      firewallArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the firewall. You must specify the ARN or the name, and you can specify both."];
      analysisType: EnabledAnalysisType.t
        [@ocaml.doc
          "The type of traffic that will be used to generate a report."]}
    let context_ = "StartAnalysisReportRequest"
    let make ?firewallName =
      fun ?firewallArn ->
        fun ~analysisType ->
          fun () -> { firewallName; firewallArn; analysisType }
    let to_value x =
      structure_to_value
        [("FirewallName",
           (Option.map x.firewallName ~f:ResourceName.to_value));
        ("FirewallArn", (Option.map x.firewallArn ~f:ResourceArn.to_value));
        ("AnalysisType",
          (Some (EnabledAnalysisType.to_value x.analysisType)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let analysisType =
        EnabledAnalysisType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AnalysisType") in
      let firewallArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "FirewallArn") in
      let firewallName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "FirewallName") in
      make ~analysisType ?firewallArn ?firewallName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let analysisType =
        field_map_exn json__ "AnalysisType" EnabledAnalysisType.of_json in
      let firewallArn = field_map json__ "FirewallArn" ResourceArn.of_json in
      let firewallName = field_map json__ "FirewallName" ResourceName.of_json in
      make ~analysisType ?firewallArn ?firewallName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Generates a traffic analysis report for the timeframe and traffic type you specify. For information on the contents of a traffic analysis report, see AnalysisReport."]
module RejectNetworkFirewallTransitGatewayAttachmentResponse =
  struct
    type nonrec t =
      {
      transitGatewayAttachmentId: TransitGatewayAttachmentId.t option
        [@ocaml.doc
          "The unique identifier of the transit gateway attachment that was rejected."];
      transitGatewayAttachmentStatus: TransitGatewayAttachmentStatus.t option
        [@ocaml.doc
          "The current status of the transit gateway attachment. Valid values are: CREATING - The attachment is being created DELETING - The attachment is being deleted DELETED - The attachment has been deleted FAILED - The attachment creation has failed and cannot be recovered ERROR - The attachment is in an error state that might be recoverable READY - The attachment is active and processing traffic PENDING_ACCEPTANCE - The attachment is waiting to be accepted REJECTING - The attachment is in the process of being rejected REJECTED - The attachment has been rejected For information about troubleshooting endpoint failures, see Troubleshooting firewall endpoint failures in the Network Firewall Developer Guide."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?transitGatewayAttachmentId =
      fun ?transitGatewayAttachmentStatus ->
        fun () ->
          { transitGatewayAttachmentId; transitGatewayAttachmentStatus }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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
        [("TransitGatewayAttachmentId",
           (Option.map x.transitGatewayAttachmentId
              ~f:TransitGatewayAttachmentId.to_value));
        ("TransitGatewayAttachmentStatus",
          (Option.map x.transitGatewayAttachmentStatus
             ~f:TransitGatewayAttachmentStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let transitGatewayAttachmentStatus =
        (Option.map ~f:TransitGatewayAttachmentStatus.of_xml)
          (Xml.child xml_arg0 "TransitGatewayAttachmentStatus") in
      let transitGatewayAttachmentId =
        (Option.map ~f:TransitGatewayAttachmentId.of_xml)
          (Xml.child xml_arg0 "TransitGatewayAttachmentId") in
      make ?transitGatewayAttachmentStatus ?transitGatewayAttachmentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let transitGatewayAttachmentStatus =
        field_map json__ "TransitGatewayAttachmentStatus"
          TransitGatewayAttachmentStatus.of_json in
      let transitGatewayAttachmentId =
        field_map json__ "TransitGatewayAttachmentId"
          TransitGatewayAttachmentId.of_json in
      make ?transitGatewayAttachmentStatus ?transitGatewayAttachmentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Rejects a transit gateway attachment request for Network Firewall. When you reject the attachment request, Network Firewall cancels the creation of routing components between the transit gateway and firewall endpoints. Only the transit gateway owner can reject the attachment. After rejection, no traffic will flow through the firewall endpoints for this attachment. Use DescribeFirewall to monitor the rejection status. To accept the attachment instead of rejecting it, use AcceptNetworkFirewallTransitGatewayAttachment. Once rejected, you cannot reverse this action. To establish connectivity, you must create a new transit gateway-attached firewall."]
module RejectNetworkFirewallTransitGatewayAttachmentRequest =
  struct
    type nonrec t =
      {
      transitGatewayAttachmentId: TransitGatewayAttachmentId.t
        [@ocaml.doc
          "Required. The unique identifier of the transit gateway attachment to reject. This ID is returned in the response when creating a transit gateway-attached firewall."]}
    let context_ = "RejectNetworkFirewallTransitGatewayAttachmentRequest"
    let make ~transitGatewayAttachmentId =
      fun () -> { transitGatewayAttachmentId }
    let to_value x =
      structure_to_value
        [("TransitGatewayAttachmentId",
           (Some
              (TransitGatewayAttachmentId.to_value
                 x.transitGatewayAttachmentId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let transitGatewayAttachmentId =
        TransitGatewayAttachmentId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "TransitGatewayAttachmentId") in
      make ~transitGatewayAttachmentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let transitGatewayAttachmentId =
        field_map_exn json__ "TransitGatewayAttachmentId"
          TransitGatewayAttachmentId.of_json in
      make ~transitGatewayAttachmentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Rejects a transit gateway attachment request for Network Firewall. When you reject the attachment request, Network Firewall cancels the creation of routing components between the transit gateway and firewall endpoints. Only the transit gateway owner can reject the attachment. After rejection, no traffic will flow through the firewall endpoints for this attachment. Use DescribeFirewall to monitor the rejection status. To accept the attachment instead of rejecting it, use AcceptNetworkFirewallTransitGatewayAttachment. Once rejected, you cannot reverse this action. To establish connectivity, you must create a new transit gateway-attached firewall."]
module PutResourcePolicyResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `InvalidResourcePolicyException of InvalidResourcePolicyException.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "InvalidResourcePolicyException" ->
          `InvalidResourcePolicyException
            (InvalidResourcePolicyException.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "InvalidResourcePolicyException" ->
          `InvalidResourcePolicyException
            (InvalidResourcePolicyException.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `InvalidResourcePolicyException e ->
          `Assoc
            [("error", (`String "InvalidResourcePolicyException"));
            ("details", (InvalidResourcePolicyException.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
       "Creates or updates an IAM policy for your rule group, firewall policy, or firewall. Use this to share these resources between accounts. This operation works in conjunction with the Amazon Web Services Resource Access Manager (RAM) service to manage resource sharing for Network Firewall. For information about using sharing with Network Firewall resources, see Sharing Network Firewall resources in the Network Firewall Developer Guide. Use this operation to create or update a resource policy for your Network Firewall rule group, firewall policy, or firewall. In the resource policy, you specify the accounts that you want to share the Network Firewall resource with and the operations that you want the accounts to be able to perform. When you add an account in the resource policy, you then run the following Resource Access Manager (RAM) operations to access and accept the shared resource. GetResourceShareInvitations - Returns the Amazon Resource Names (ARNs) of the resource share invitations. AcceptResourceShareInvitation - Accepts the share invitation for a specified resource share. For additional information about resource sharing using RAM, see Resource Access Manager User Guide."]
module PutResourcePolicyRequest =
  struct
    type nonrec t =
      {
      resourceArn: ResourceArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the account that you want to share your Network Firewall resources with."];
      policy: PolicyString.t
        [@ocaml.doc
          "The IAM policy statement that lists the accounts that you want to share your Network Firewall resources with and the operations that you want the accounts to be able to perform. For a rule group resource, you can specify the following operations in the Actions section of the statement: network-firewall:CreateFirewallPolicy network-firewall:UpdateFirewallPolicy network-firewall:ListRuleGroups For a firewall policy resource, you can specify the following operations in the Actions section of the statement: network-firewall:AssociateFirewallPolicy network-firewall:ListFirewallPolicies For a firewall resource, you can specify the following operations in the Actions section of the statement: network-firewall:CreateVpcEndpointAssociation network-firewall:DescribeFirewallMetadata network-firewall:ListFirewalls In the Resource section of the statement, you specify the ARNs for the Network Firewall resources that you want to share with the account that you specified in Arn."]}
    let context_ = "PutResourcePolicyRequest"
    let make ~resourceArn = fun ~policy -> fun () -> { resourceArn; policy }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (ResourceArn.to_value x.resourceArn)));
        ("Policy", (Some (PolicyString.to_value x.policy)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policy =
        PolicyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Policy") in
      let resourceArn =
        ResourceArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceArn") in
      make ~policy ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let policy = field_map_exn json__ "Policy" PolicyString.of_json in
      let resourceArn =
        field_map_exn json__ "ResourceArn" ResourceArn.of_json in
      make ~policy ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates or updates an IAM policy for your rule group, firewall policy, or firewall. Use this to share these resources between accounts. This operation works in conjunction with the Amazon Web Services Resource Access Manager (RAM) service to manage resource sharing for Network Firewall. For information about using sharing with Network Firewall resources, see Sharing Network Firewall resources in the Network Firewall Developer Guide. Use this operation to create or update a resource policy for your Network Firewall rule group, firewall policy, or firewall. In the resource policy, you specify the accounts that you want to share the Network Firewall resource with and the operations that you want the accounts to be able to perform. When you add an account in the resource policy, you then run the following Resource Access Manager (RAM) operations to access and accept the shared resource. GetResourceShareInvitations - Returns the Amazon Resource Names (ARNs) of the resource share invitations. AcceptResourceShareInvitation - Accepts the share invitation for a specified resource share. For additional information about resource sharing using RAM, see Resource Access Manager User Guide."]
module ListVpcEndpointAssociationsResponse =
  struct
    type nonrec t =
      {
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "When you request a list of objects with a MaxResults setting, if the number of objects that are still available for retrieval exceeds the maximum you requested, Network Firewall returns a NextToken value in the response. To retrieve the next batch of objects, use the token returned from the prior request in your next request."];
      vpcEndpointAssociations: VpcEndpointAssociations.t option
        [@ocaml.doc
          "The VPC endpoint assocation metadata objects for the firewall that you specified. If you didn't specify a firewall, this is all VPC endpoint associations that you have defined. Depending on your setting for max results and the number of firewalls you have, a single call might not be the full list."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?vpcEndpointAssociations ->
        fun () -> { nextToken; vpcEndpointAssociations }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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:PaginationToken.to_value));
        ("VpcEndpointAssociations",
          (Option.map x.vpcEndpointAssociations
             ~f:VpcEndpointAssociations.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vpcEndpointAssociations =
        (Option.map ~f:VpcEndpointAssociations.of_xml)
          (Xml.child xml_arg0 "VpcEndpointAssociations") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      make ?vpcEndpointAssociations ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vpcEndpointAssociations =
        field_map json__ "VpcEndpointAssociations"
          VpcEndpointAssociations.of_json in
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      make ?vpcEndpointAssociations ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the metadata for the VPC endpoint associations that you have defined. If you specify a fireawll, this returns only the endpoint associations for that firewall. Depending on your setting for max results and the number of associations, a single call might not return the full list."]
module ListVpcEndpointAssociationsRequest =
  struct
    type nonrec t =
      {
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "When you request a list of objects with a MaxResults setting, if the number of objects that are still available for retrieval exceeds the maximum you requested, Network Firewall returns a NextToken value in the response. To retrieve the next batch of objects, use the token returned from the prior request in your next request."];
      maxResults: PaginationMaxResults.t option
        [@ocaml.doc
          "The maximum number of objects that you want Network Firewall to return for this request. If more objects are available, in the response, Network Firewall provides a NextToken value that you can use in a subsequent call to get the next batch of objects."];
      firewallArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the firewall. If you don't specify this, Network Firewall retrieves all VPC endpoint associations that you have defined."]}
    let make ?nextToken =
      fun ?maxResults ->
        fun ?firewallArn -> fun () -> { nextToken; maxResults; firewallArn }
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("MaxResults",
          (Option.map x.maxResults ~f:PaginationMaxResults.to_value));
        ("FirewallArn", (Option.map x.firewallArn ~f:ResourceArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let firewallArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "FirewallArn") in
      let maxResults =
        (Option.map ~f:PaginationMaxResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      make ?firewallArn ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let firewallArn = field_map json__ "FirewallArn" ResourceArn.of_json in
      let maxResults =
        field_map json__ "MaxResults" PaginationMaxResults.of_json in
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      make ?firewallArn ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the metadata for the VPC endpoint associations that you have defined. If you specify a fireawll, this returns only the endpoint associations for that firewall. Depending on your setting for max results and the number of associations, a single call might not return the full list."]
module ListTagsForResourceResponse =
  struct
    type nonrec t =
      {
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "When you request a list of objects with a MaxResults setting, if the number of objects that are still available for retrieval exceeds the maximum you requested, Network Firewall returns a NextToken value in the response. To retrieve the next batch of objects, use the token returned from the prior request in your next request."];
      tags: TagList.t option
        [@ocaml.doc "The tags that are associated with the resource."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken = fun ?tags -> fun () -> { nextToken; tags }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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
        [("NextToken", (Option.map x.nextToken ~f:PaginationToken.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 nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      make ?tags ?nextToken ()
    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 nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      make ?tags ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the tags associated with the specified resource. Tags are key:value pairs that you can use to categorize and manage your resources, for purposes like billing. For example, you might set the tag key to \"customer\" and the value to the customer name or ID. You can specify one or more tags to add to each Amazon Web Services resource, up to 50 tags for a resource. You can tag the Amazon Web Services resources that you manage through Network Firewall: firewalls, firewall policies, and rule groups."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "When you request a list of objects with a MaxResults setting, if the number of objects that are still available for retrieval exceeds the maximum you requested, Network Firewall returns a NextToken value in the response. To retrieve the next batch of objects, use the token returned from the prior request in your next request."];
      maxResults: TagsPaginationMaxResults.t option
        [@ocaml.doc
          "The maximum number of objects that you want Network Firewall to return for this request. If more objects are available, in the response, Network Firewall provides a NextToken value that you can use in a subsequent call to get the next batch of objects."];
      resourceArn: ResourceArn.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the resource."]}
    let context_ = "ListTagsForResourceRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~resourceArn -> fun () -> { nextToken; maxResults; resourceArn }
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("MaxResults",
          (Option.map x.maxResults ~f:TagsPaginationMaxResults.to_value));
        ("ResourceArn", (Some (ResourceArn.to_value x.resourceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        ResourceArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceArn") in
      let maxResults =
        (Option.map ~f:TagsPaginationMaxResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      make ~resourceArn ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceArn =
        field_map_exn json__ "ResourceArn" ResourceArn.of_json in
      let maxResults =
        field_map json__ "MaxResults" TagsPaginationMaxResults.of_json in
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      make ~resourceArn ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the tags associated with the specified resource. Tags are key:value pairs that you can use to categorize and manage your resources, for purposes like billing. For example, you might set the tag key to \"customer\" and the value to the customer name or ID. You can specify one or more tags to add to each Amazon Web Services resource, up to 50 tags for a resource. You can tag the Amazon Web Services resources that you manage through Network Firewall: firewalls, firewall policies, and rule groups."]
module ListTLSInspectionConfigurationsResponse =
  struct
    type nonrec t =
      {
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "When you request a list of objects with a MaxResults setting, if the number of objects that are still available for retrieval exceeds the maximum you requested, Network Firewall returns a NextToken value in the response. To retrieve the next batch of objects, use the token returned from the prior request in your next request."];
      tLSInspectionConfigurations: TLSInspectionConfigurations.t option
        [@ocaml.doc
          "The TLS inspection configuration metadata objects that you've defined. Depending on your setting for max results and the number of TLS inspection configurations, this might not be the full list."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?tLSInspectionConfigurations ->
        fun () -> { nextToken; tLSInspectionConfigurations }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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:PaginationToken.to_value));
        ("TLSInspectionConfigurations",
          (Option.map x.tLSInspectionConfigurations
             ~f:TLSInspectionConfigurations.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tLSInspectionConfigurations =
        (Option.map ~f:TLSInspectionConfigurations.of_xml)
          (Xml.child xml_arg0 "TLSInspectionConfigurations") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      make ?tLSInspectionConfigurations ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tLSInspectionConfigurations =
        field_map json__ "TLSInspectionConfigurations"
          TLSInspectionConfigurations.of_json in
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      make ?tLSInspectionConfigurations ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the metadata for the TLS inspection configurations that you have defined. Depending on your setting for max results and the number of TLS inspection configurations, a single call might not return the full list."]
module ListTLSInspectionConfigurationsRequest =
  struct
    type nonrec t =
      {
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "When you request a list of objects with a MaxResults setting, if the number of objects that are still available for retrieval exceeds the maximum you requested, Network Firewall returns a NextToken value in the response. To retrieve the next batch of objects, use the token returned from the prior request in your next request."];
      maxResults: PaginationMaxResults.t option
        [@ocaml.doc
          "The maximum number of objects that you want Network Firewall to return for this request. If more objects are available, in the response, Network Firewall provides a NextToken value that you can use in a subsequent call to get the next batch of objects."]}
    let make ?nextToken =
      fun ?maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("MaxResults",
          (Option.map x.maxResults ~f:PaginationMaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:PaginationMaxResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      make ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "MaxResults" PaginationMaxResults.of_json in
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      make ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the metadata for the TLS inspection configurations that you have defined. Depending on your setting for max results and the number of TLS inspection configurations, a single call might not return the full list."]
module ListRuleGroupsResponse =
  struct
    type nonrec t =
      {
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "When you request a list of objects with a MaxResults setting, if the number of objects that are still available for retrieval exceeds the maximum you requested, Network Firewall returns a NextToken value in the response. To retrieve the next batch of objects, use the token returned from the prior request in your next request."];
      ruleGroups: RuleGroups.t option
        [@ocaml.doc
          "The rule group metadata objects that you've defined. Depending on your setting for max results and the number of rule groups, this might not be the full list."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?ruleGroups -> fun () -> { nextToken; ruleGroups }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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:PaginationToken.to_value));
        ("RuleGroups", (Option.map x.ruleGroups ~f:RuleGroups.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ruleGroups =
        (Option.map ~f:RuleGroups.of_xml) (Xml.child xml_arg0 "RuleGroups") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      make ?ruleGroups ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ruleGroups = field_map json__ "RuleGroups" RuleGroups.of_json in
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      make ?ruleGroups ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the metadata for the rule groups that you have defined. Depending on your setting for max results and the number of rule groups, a single call might not return the full list."]
module ListRuleGroupsRequest =
  struct
    type nonrec t =
      {
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "When you request a list of objects with a MaxResults setting, if the number of objects that are still available for retrieval exceeds the maximum you requested, Network Firewall returns a NextToken value in the response. To retrieve the next batch of objects, use the token returned from the prior request in your next request."];
      maxResults: PaginationMaxResults.t option
        [@ocaml.doc
          "The maximum number of objects that you want Network Firewall to return for this request. If more objects are available, in the response, Network Firewall provides a NextToken value that you can use in a subsequent call to get the next batch of objects."];
      scope: ResourceManagedStatus.t option
        [@ocaml.doc
          "The scope of the request. The default setting of ACCOUNT or a setting of NULL returns all of the rule groups in your account. A setting of MANAGED returns all available managed rule groups."];
      managedType: ResourceManagedType.t option
        [@ocaml.doc
          "Indicates the general category of the Amazon Web Services managed rule group."];
      subscriptionStatus: SubscriptionStatus.t option
        [@ocaml.doc
          "Filters the results to show only rule groups with the specified subscription status. Use this to find subscribed or unsubscribed rule groups."];
      type_: RuleGroupType.t option
        [@ocaml.doc
          "Indicates whether the rule group is stateless or stateful. If the rule group is stateless, it contains stateless rules. If it is stateful, it contains stateful rules."]}
    let make ?nextToken =
      fun ?maxResults ->
        fun ?scope ->
          fun ?managedType ->
            fun ?subscriptionStatus ->
              fun ?type_ ->
                fun () ->
                  {
                    nextToken;
                    maxResults;
                    scope;
                    managedType;
                    subscriptionStatus;
                    type_
                  }
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("MaxResults",
          (Option.map x.maxResults ~f:PaginationMaxResults.to_value));
        ("Scope", (Option.map x.scope ~f:ResourceManagedStatus.to_value));
        ("ManagedType",
          (Option.map x.managedType ~f:ResourceManagedType.to_value));
        ("SubscriptionStatus",
          (Option.map x.subscriptionStatus ~f:SubscriptionStatus.to_value));
        ("Type", (Option.map x.type_ ~f:RuleGroupType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ =
        (Option.map ~f:RuleGroupType.of_xml) (Xml.child xml_arg0 "Type") in
      let subscriptionStatus =
        (Option.map ~f:SubscriptionStatus.of_xml)
          (Xml.child xml_arg0 "SubscriptionStatus") in
      let managedType =
        (Option.map ~f:ResourceManagedType.of_xml)
          (Xml.child xml_arg0 "ManagedType") in
      let scope =
        (Option.map ~f:ResourceManagedStatus.of_xml)
          (Xml.child xml_arg0 "Scope") in
      let maxResults =
        (Option.map ~f:PaginationMaxResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      make ?type_ ?subscriptionStatus ?managedType ?scope ?maxResults
        ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map json__ "Type" RuleGroupType.of_json in
      let subscriptionStatus =
        field_map json__ "SubscriptionStatus" SubscriptionStatus.of_json in
      let managedType =
        field_map json__ "ManagedType" ResourceManagedType.of_json in
      let scope = field_map json__ "Scope" ResourceManagedStatus.of_json in
      let maxResults =
        field_map json__ "MaxResults" PaginationMaxResults.of_json in
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      make ?type_ ?subscriptionStatus ?managedType ?scope ?maxResults
        ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the metadata for the rule groups that you have defined. Depending on your setting for max results and the number of rule groups, a single call might not return the full list."]
module ListProxyRuleGroupsResponse =
  struct
    type nonrec t =
      {
      proxyRuleGroups: ProxyRuleGroups.t option
        [@ocaml.doc
          "The metadata for the proxy rule groups. Depending on your setting for max results and the number of proxy rule groups that you have, this might not be the full list."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "When you request a list of objects with a MaxResults setting, if the number of objects that are still available for retrieval exceeds the maximum you requested, Network Firewall returns a NextToken value in the response. To retrieve the next batch of objects, use the token returned from the prior request in your next request."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?proxyRuleGroups =
      fun ?nextToken -> fun () -> { proxyRuleGroups; nextToken }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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
        [("ProxyRuleGroups",
           (Option.map x.proxyRuleGroups ~f:ProxyRuleGroups.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let proxyRuleGroups =
        (Option.map ~f:ProxyRuleGroups.of_xml)
          (Xml.child xml_arg0 "ProxyRuleGroups") in
      make ?nextToken ?proxyRuleGroups ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let proxyRuleGroups =
        field_map json__ "ProxyRuleGroups" ProxyRuleGroups.of_json in
      make ?nextToken ?proxyRuleGroups ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the metadata for the proxy rule groups that you have defined. Depending on your setting for max results and the number of proxy rule groups, a single call might not return the full list."]
module ListProxyRuleGroupsRequest =
  struct
    type nonrec t =
      {
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "When you request a list of objects with a MaxResults setting, if the number of objects that are still available for retrieval exceeds the maximum you requested, Network Firewall returns a NextToken value in the response. To retrieve the next batch of objects, use the token returned from the prior request in your next request."];
      maxResults: PaginationMaxResults.t option
        [@ocaml.doc
          "The maximum number of objects that you want Network Firewall to return for this request. If more objects are available, in the response, Network Firewall provides a NextToken value that you can use in a subsequent call to get the next batch of objects."]}
    let make ?nextToken =
      fun ?maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("MaxResults",
          (Option.map x.maxResults ~f:PaginationMaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:PaginationMaxResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      make ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "MaxResults" PaginationMaxResults.of_json in
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      make ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the metadata for the proxy rule groups that you have defined. Depending on your setting for max results and the number of proxy rule groups, a single call might not return the full list."]
module ListProxyConfigurationsResponse =
  struct
    type nonrec t =
      {
      proxyConfigurations: ProxyConfigurations.t option
        [@ocaml.doc
          "The metadata for the proxy configurations. Depending on your setting for max results and the number of proxy configurations that you have, this might not be the full list."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "When you request a list of objects with a MaxResults setting, if the number of objects that are still available for retrieval exceeds the maximum you requested, Network Firewall returns a NextToken value in the response. To retrieve the next batch of objects, use the token returned from the prior request in your next request."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?proxyConfigurations =
      fun ?nextToken -> fun () -> { proxyConfigurations; nextToken }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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
        [("ProxyConfigurations",
           (Option.map x.proxyConfigurations ~f:ProxyConfigurations.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let proxyConfigurations =
        (Option.map ~f:ProxyConfigurations.of_xml)
          (Xml.child xml_arg0 "ProxyConfigurations") in
      make ?nextToken ?proxyConfigurations ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let proxyConfigurations =
        field_map json__ "ProxyConfigurations" ProxyConfigurations.of_json in
      make ?nextToken ?proxyConfigurations ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the metadata for the proxy configuration that you have defined. Depending on your setting for max results and the number of proxy configurations, a single call might not return the full list."]
module ListProxyConfigurationsRequest =
  struct
    type nonrec t =
      {
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "When you request a list of objects with a MaxResults setting, if the number of objects that are still available for retrieval exceeds the maximum you requested, Network Firewall returns a NextToken value in the response. To retrieve the next batch of objects, use the token returned from the prior request in your next request."];
      maxResults: PaginationMaxResults.t option
        [@ocaml.doc
          "The maximum number of objects that you want Network Firewall to return for this request. If more objects are available, in the response, Network Firewall provides a NextToken value that you can use in a subsequent call to get the next batch of objects."]}
    let make ?nextToken =
      fun ?maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("MaxResults",
          (Option.map x.maxResults ~f:PaginationMaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:PaginationMaxResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      make ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "MaxResults" PaginationMaxResults.of_json in
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      make ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the metadata for the proxy configuration that you have defined. Depending on your setting for max results and the number of proxy configurations, a single call might not return the full list."]
module ListProxiesResponse =
  struct
    type nonrec t =
      {
      proxies: Proxies.t option
        [@ocaml.doc
          "The metadata for the proxies. Depending on your setting for max results and the number of proxies that you have, this might not be the full list."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "When you request a list of objects with a MaxResults setting, if the number of objects that are still available for retrieval exceeds the maximum you requested, Network Firewall returns a NextToken value in the response. To retrieve the next batch of objects, use the token returned from the prior request in your next request."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?proxies = fun ?nextToken -> fun () -> { proxies; nextToken }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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
        [("Proxies", (Option.map x.proxies ~f:Proxies.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let proxies =
        (Option.map ~f:Proxies.of_xml) (Xml.child xml_arg0 "Proxies") in
      make ?nextToken ?proxies ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let proxies = field_map json__ "Proxies" Proxies.of_json in
      make ?nextToken ?proxies ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the metadata for the proxies that you have defined. Depending on your setting for max results and the number of proxies, a single call might not return the full list."]
module ListProxiesRequest =
  struct
    type nonrec t =
      {
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "When you request a list of objects with a MaxResults setting, if the number of objects that are still available for retrieval exceeds the maximum you requested, Network Firewall returns a NextToken value in the response. To retrieve the next batch of objects, use the token returned from the prior request in your next request."];
      maxResults: PaginationMaxResults.t option
        [@ocaml.doc
          "The maximum number of objects that you want Network Firewall to return for this request. If more objects are available, in the response, Network Firewall provides a NextToken value that you can use in a subsequent call to get the next batch of objects."]}
    let make ?nextToken =
      fun ?maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("MaxResults",
          (Option.map x.maxResults ~f:PaginationMaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:PaginationMaxResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      make ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "MaxResults" PaginationMaxResults.of_json in
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      make ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the metadata for the proxies that you have defined. Depending on your setting for max results and the number of proxies, a single call might not return the full list."]
module ListFlowOperationsResponse =
  struct
    type nonrec t =
      {
      flowOperations: FlowOperations.t option
        [@ocaml.doc
          "Flow operations let you manage the flows tracked in the flow table, also known as the firewall table. A flow is network traffic that is monitored by a firewall, either by stateful or stateless rules. For traffic to be considered part of a flow, it must share Destination, DestinationPort, Direction, Protocol, Source, and SourcePort."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "When you request a list of objects with a MaxResults setting, if the number of objects that are still available for retrieval exceeds the maximum you requested, Network Firewall returns a NextToken value in the response. To retrieve the next batch of objects, use the token returned from the prior request in your next request."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?flowOperations =
      fun ?nextToken -> fun () -> { flowOperations; nextToken }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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
        [("FlowOperations",
           (Option.map x.flowOperations ~f:FlowOperations.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let flowOperations =
        (Option.map ~f:FlowOperations.of_xml)
          (Xml.child xml_arg0 "FlowOperations") in
      make ?nextToken ?flowOperations ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let flowOperations =
        field_map json__ "FlowOperations" FlowOperations.of_json in
      make ?nextToken ?flowOperations ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of all flow operations ran in a specific firewall. You can optionally narrow the request scope by specifying the operation type or Availability Zone associated with a firewall's flow operations. Flow operations let you manage the flows tracked in the flow table, also known as the firewall table. A flow is network traffic that is monitored by a firewall, either by stateful or stateless rules. For traffic to be considered part of a flow, it must share Destination, DestinationPort, Direction, Protocol, Source, and SourcePort."]
module ListFlowOperationsRequest =
  struct
    type nonrec t =
      {
      firewallArn: ResourceArn.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the firewall."];
      availabilityZone: AvailabilityZone.t option
        [@ocaml.doc
          "The ID of the Availability Zone where the firewall is located. For example, us-east-2a. Defines the scope a flow operation. You can use up to 20 filters to configure a single flow operation."];
      vpcEndpointAssociationArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of a VPC endpoint association."];
      vpcEndpointId: VpcEndpointId.t option
        [@ocaml.doc
          "A unique identifier for the primary endpoint associated with a firewall."];
      flowOperationType: FlowOperationType.t option
        [@ocaml.doc
          "An optional string that defines whether any or all operation types are returned."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "When you request a list of objects with a MaxResults setting, if the number of objects that are still available for retrieval exceeds the maximum you requested, Network Firewall returns a NextToken value in the response. To retrieve the next batch of objects, use the token returned from the prior request in your next request."];
      maxResults: PaginationMaxResults.t option
        [@ocaml.doc
          "The maximum number of objects that you want Network Firewall to return for this request. If more objects are available, in the response, Network Firewall provides a NextToken value that you can use in a subsequent call to get the next batch of objects."]}
    let context_ = "ListFlowOperationsRequest"
    let make ?availabilityZone =
      fun ?vpcEndpointAssociationArn ->
        fun ?vpcEndpointId ->
          fun ?flowOperationType ->
            fun ?nextToken ->
              fun ?maxResults ->
                fun ~firewallArn ->
                  fun () ->
                    {
                      availabilityZone;
                      vpcEndpointAssociationArn;
                      vpcEndpointId;
                      flowOperationType;
                      nextToken;
                      maxResults;
                      firewallArn
                    }
    let to_value x =
      structure_to_value
        [("FirewallArn", (Some (ResourceArn.to_value x.firewallArn)));
        ("AvailabilityZone",
          (Option.map x.availabilityZone ~f:AvailabilityZone.to_value));
        ("VpcEndpointAssociationArn",
          (Option.map x.vpcEndpointAssociationArn ~f:ResourceArn.to_value));
        ("VpcEndpointId",
          (Option.map x.vpcEndpointId ~f:VpcEndpointId.to_value));
        ("FlowOperationType",
          (Option.map x.flowOperationType ~f:FlowOperationType.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("MaxResults",
          (Option.map x.maxResults ~f:PaginationMaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:PaginationMaxResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let flowOperationType =
        (Option.map ~f:FlowOperationType.of_xml)
          (Xml.child xml_arg0 "FlowOperationType") in
      let vpcEndpointId =
        (Option.map ~f:VpcEndpointId.of_xml)
          (Xml.child xml_arg0 "VpcEndpointId") in
      let vpcEndpointAssociationArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "VpcEndpointAssociationArn") in
      let availabilityZone =
        (Option.map ~f:AvailabilityZone.of_xml)
          (Xml.child xml_arg0 "AvailabilityZone") in
      let firewallArn =
        ResourceArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FirewallArn") in
      make ?maxResults ?nextToken ?flowOperationType ?vpcEndpointId
        ?vpcEndpointAssociationArn ?availabilityZone ~firewallArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "MaxResults" PaginationMaxResults.of_json in
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let flowOperationType =
        field_map json__ "FlowOperationType" FlowOperationType.of_json in
      let vpcEndpointId =
        field_map json__ "VpcEndpointId" VpcEndpointId.of_json in
      let vpcEndpointAssociationArn =
        field_map json__ "VpcEndpointAssociationArn" ResourceArn.of_json in
      let availabilityZone =
        field_map json__ "AvailabilityZone" AvailabilityZone.of_json in
      let firewallArn =
        field_map_exn json__ "FirewallArn" ResourceArn.of_json in
      make ?maxResults ?nextToken ?flowOperationType ?vpcEndpointId
        ?vpcEndpointAssociationArn ?availabilityZone ~firewallArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of all flow operations ran in a specific firewall. You can optionally narrow the request scope by specifying the operation type or Availability Zone associated with a firewall's flow operations. Flow operations let you manage the flows tracked in the flow table, also known as the firewall table. A flow is network traffic that is monitored by a firewall, either by stateful or stateless rules. For traffic to be considered part of a flow, it must share Destination, DestinationPort, Direction, Protocol, Source, and SourcePort."]
module ListFlowOperationResultsResponse =
  struct
    type nonrec t =
      {
      firewallArn: ResourceArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the firewall."];
      availabilityZone: AvailabilityZone.t option
        [@ocaml.doc
          "The ID of the Availability Zone where the firewall is located. For example, us-east-2a. Defines the scope a flow operation. You can use up to 20 filters to configure a single flow operation."];
      vpcEndpointAssociationArn: ResourceArn.t option ;
      vpcEndpointId: VpcEndpointId.t option ;
      flowOperationId: FlowOperationId.t option
        [@ocaml.doc
          "A unique identifier for the flow operation. This ID is returned in the responses to start and list commands. You provide to describe commands."];
      flowOperationStatus: FlowOperationStatus.t option
        [@ocaml.doc
          "Returns the status of the flow operation. This string is returned in the responses to start, list, and describe commands. If the status is COMPLETED_WITH_ERRORS, results may be returned with any number of Flows missing from the response. If the status is FAILED, Flows returned will be empty."];
      statusMessage: StatusReason.t option
        [@ocaml.doc
          "If the asynchronous operation fails, Network Firewall populates this with the reason for the error or failure. Options include Flow operation error and Flow timeout."];
      flowRequestTimestamp: FlowRequestTimestamp.t option
        [@ocaml.doc
          "A timestamp indicating when the Suricata engine identified flows impacted by an operation."];
      flows: Flows.t option
        [@ocaml.doc
          "Any number of arrays, where each array is a single flow identified in the scope of the operation. If multiple flows were in the scope of the operation, multiple Flows arrays are returned."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "When you request a list of objects with a MaxResults setting, if the number of objects that are still available for retrieval exceeds the maximum you requested, Network Firewall returns a NextToken value in the response. To retrieve the next batch of objects, use the token returned from the prior request in your next request."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?firewallArn =
      fun ?availabilityZone ->
        fun ?vpcEndpointAssociationArn ->
          fun ?vpcEndpointId ->
            fun ?flowOperationId ->
              fun ?flowOperationStatus ->
                fun ?statusMessage ->
                  fun ?flowRequestTimestamp ->
                    fun ?flows ->
                      fun ?nextToken ->
                        fun () ->
                          {
                            firewallArn;
                            availabilityZone;
                            vpcEndpointAssociationArn;
                            vpcEndpointId;
                            flowOperationId;
                            flowOperationStatus;
                            statusMessage;
                            flowRequestTimestamp;
                            flows;
                            nextToken
                          }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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
        [("FirewallArn", (Option.map x.firewallArn ~f:ResourceArn.to_value));
        ("AvailabilityZone",
          (Option.map x.availabilityZone ~f:AvailabilityZone.to_value));
        ("VpcEndpointAssociationArn",
          (Option.map x.vpcEndpointAssociationArn ~f:ResourceArn.to_value));
        ("VpcEndpointId",
          (Option.map x.vpcEndpointId ~f:VpcEndpointId.to_value));
        ("FlowOperationId",
          (Option.map x.flowOperationId ~f:FlowOperationId.to_value));
        ("FlowOperationStatus",
          (Option.map x.flowOperationStatus ~f:FlowOperationStatus.to_value));
        ("StatusMessage",
          (Option.map x.statusMessage ~f:StatusReason.to_value));
        ("FlowRequestTimestamp",
          (Option.map x.flowRequestTimestamp ~f:FlowRequestTimestamp.to_value));
        ("Flows", (Option.map x.flows ~f:Flows.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let flows = (Option.map ~f:Flows.of_xml) (Xml.child xml_arg0 "Flows") in
      let flowRequestTimestamp =
        (Option.map ~f:FlowRequestTimestamp.of_xml)
          (Xml.child xml_arg0 "FlowRequestTimestamp") in
      let statusMessage =
        (Option.map ~f:StatusReason.of_xml)
          (Xml.child xml_arg0 "StatusMessage") in
      let flowOperationStatus =
        (Option.map ~f:FlowOperationStatus.of_xml)
          (Xml.child xml_arg0 "FlowOperationStatus") in
      let flowOperationId =
        (Option.map ~f:FlowOperationId.of_xml)
          (Xml.child xml_arg0 "FlowOperationId") in
      let vpcEndpointId =
        (Option.map ~f:VpcEndpointId.of_xml)
          (Xml.child xml_arg0 "VpcEndpointId") in
      let vpcEndpointAssociationArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "VpcEndpointAssociationArn") in
      let availabilityZone =
        (Option.map ~f:AvailabilityZone.of_xml)
          (Xml.child xml_arg0 "AvailabilityZone") in
      let firewallArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "FirewallArn") in
      make ?nextToken ?flows ?flowRequestTimestamp ?statusMessage
        ?flowOperationStatus ?flowOperationId ?vpcEndpointId
        ?vpcEndpointAssociationArn ?availabilityZone ?firewallArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let flows = field_map json__ "Flows" Flows.of_json in
      let flowRequestTimestamp =
        field_map json__ "FlowRequestTimestamp" FlowRequestTimestamp.of_json in
      let statusMessage =
        field_map json__ "StatusMessage" StatusReason.of_json in
      let flowOperationStatus =
        field_map json__ "FlowOperationStatus" FlowOperationStatus.of_json in
      let flowOperationId =
        field_map json__ "FlowOperationId" FlowOperationId.of_json in
      let vpcEndpointId =
        field_map json__ "VpcEndpointId" VpcEndpointId.of_json in
      let vpcEndpointAssociationArn =
        field_map json__ "VpcEndpointAssociationArn" ResourceArn.of_json in
      let availabilityZone =
        field_map json__ "AvailabilityZone" AvailabilityZone.of_json in
      let firewallArn = field_map json__ "FirewallArn" ResourceArn.of_json in
      make ?nextToken ?flows ?flowRequestTimestamp ?statusMessage
        ?flowOperationStatus ?flowOperationId ?vpcEndpointId
        ?vpcEndpointAssociationArn ?availabilityZone ?firewallArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the results of a specific flow operation. Flow operations let you manage the flows tracked in the flow table, also known as the firewall table. A flow is network traffic that is monitored by a firewall, either by stateful or stateless rules. For traffic to be considered part of a flow, it must share Destination, DestinationPort, Direction, Protocol, Source, and SourcePort."]
module ListFlowOperationResultsRequest =
  struct
    type nonrec t =
      {
      firewallArn: ResourceArn.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the firewall."];
      flowOperationId: FlowOperationId.t
        [@ocaml.doc
          "A unique identifier for the flow operation. This ID is returned in the responses to start and list commands. You provide to describe commands."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "When you request a list of objects with a MaxResults setting, if the number of objects that are still available for retrieval exceeds the maximum you requested, Network Firewall returns a NextToken value in the response. To retrieve the next batch of objects, use the token returned from the prior request in your next request."];
      maxResults: PaginationMaxResults.t option
        [@ocaml.doc
          "The maximum number of objects that you want Network Firewall to return for this request. If more objects are available, in the response, Network Firewall provides a NextToken value that you can use in a subsequent call to get the next batch of objects."];
      availabilityZone: AvailabilityZone.t option
        [@ocaml.doc
          "The ID of the Availability Zone where the firewall is located. For example, us-east-2a. Defines the scope a flow operation. You can use up to 20 filters to configure a single flow operation."];
      vpcEndpointId: VpcEndpointId.t option
        [@ocaml.doc
          "A unique identifier for the primary endpoint associated with a firewall."];
      vpcEndpointAssociationArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of a VPC endpoint association."]}
    let context_ = "ListFlowOperationResultsRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ?availabilityZone ->
          fun ?vpcEndpointId ->
            fun ?vpcEndpointAssociationArn ->
              fun ~firewallArn ->
                fun ~flowOperationId ->
                  fun () ->
                    {
                      nextToken;
                      maxResults;
                      availabilityZone;
                      vpcEndpointId;
                      vpcEndpointAssociationArn;
                      firewallArn;
                      flowOperationId
                    }
    let to_value x =
      structure_to_value
        [("FirewallArn", (Some (ResourceArn.to_value x.firewallArn)));
        ("FlowOperationId",
          (Some (FlowOperationId.to_value x.flowOperationId)));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("MaxResults",
          (Option.map x.maxResults ~f:PaginationMaxResults.to_value));
        ("AvailabilityZone",
          (Option.map x.availabilityZone ~f:AvailabilityZone.to_value));
        ("VpcEndpointId",
          (Option.map x.vpcEndpointId ~f:VpcEndpointId.to_value));
        ("VpcEndpointAssociationArn",
          (Option.map x.vpcEndpointAssociationArn ~f:ResourceArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vpcEndpointAssociationArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "VpcEndpointAssociationArn") in
      let vpcEndpointId =
        (Option.map ~f:VpcEndpointId.of_xml)
          (Xml.child xml_arg0 "VpcEndpointId") in
      let availabilityZone =
        (Option.map ~f:AvailabilityZone.of_xml)
          (Xml.child xml_arg0 "AvailabilityZone") in
      let maxResults =
        (Option.map ~f:PaginationMaxResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let flowOperationId =
        FlowOperationId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FlowOperationId") in
      let firewallArn =
        ResourceArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FirewallArn") in
      make ?vpcEndpointAssociationArn ?vpcEndpointId ?availabilityZone
        ?maxResults ?nextToken ~flowOperationId ~firewallArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vpcEndpointAssociationArn =
        field_map json__ "VpcEndpointAssociationArn" ResourceArn.of_json in
      let vpcEndpointId =
        field_map json__ "VpcEndpointId" VpcEndpointId.of_json in
      let availabilityZone =
        field_map json__ "AvailabilityZone" AvailabilityZone.of_json in
      let maxResults =
        field_map json__ "MaxResults" PaginationMaxResults.of_json in
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let flowOperationId =
        field_map_exn json__ "FlowOperationId" FlowOperationId.of_json in
      let firewallArn =
        field_map_exn json__ "FirewallArn" ResourceArn.of_json in
      make ?vpcEndpointAssociationArn ?vpcEndpointId ?availabilityZone
        ?maxResults ?nextToken ~flowOperationId ~firewallArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the results of a specific flow operation. Flow operations let you manage the flows tracked in the flow table, also known as the firewall table. A flow is network traffic that is monitored by a firewall, either by stateful or stateless rules. For traffic to be considered part of a flow, it must share Destination, DestinationPort, Direction, Protocol, Source, and SourcePort."]
module ListFirewallsResponse =
  struct
    type nonrec t =
      {
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "When you request a list of objects with a MaxResults setting, if the number of objects that are still available for retrieval exceeds the maximum you requested, Network Firewall returns a NextToken value in the response. To retrieve the next batch of objects, use the token returned from the prior request in your next request."];
      firewalls: Firewalls.t option
        [@ocaml.doc
          "The firewall metadata objects for the VPCs that you specified. Depending on your setting for max results and the number of firewalls you have, a single call might not be the full list."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?firewalls -> fun () -> { nextToken; firewalls }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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:PaginationToken.to_value));
        ("Firewalls", (Option.map x.firewalls ~f:Firewalls.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let firewalls =
        (Option.map ~f:Firewalls.of_xml) (Xml.child xml_arg0 "Firewalls") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      make ?firewalls ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let firewalls = field_map json__ "Firewalls" Firewalls.of_json in
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      make ?firewalls ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the metadata for the firewalls that you have defined. If you provide VPC identifiers in your request, this returns only the firewalls for those VPCs. Depending on your setting for max results and the number of firewalls, a single call might not return the full list."]
module ListFirewallsRequest =
  struct
    type nonrec t =
      {
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "When you request a list of objects with a MaxResults setting, if the number of objects that are still available for retrieval exceeds the maximum you requested, Network Firewall returns a NextToken value in the response. To retrieve the next batch of objects, use the token returned from the prior request in your next request."];
      vpcIds: VpcIds.t option
        [@ocaml.doc
          "The unique identifiers of the VPCs that you want Network Firewall to retrieve the firewalls for. Leave this blank to retrieve all firewalls that you have defined."];
      maxResults: PaginationMaxResults.t option
        [@ocaml.doc
          "The maximum number of objects that you want Network Firewall to return for this request. If more objects are available, in the response, Network Firewall provides a NextToken value that you can use in a subsequent call to get the next batch of objects."]}
    let make ?nextToken =
      fun ?vpcIds ->
        fun ?maxResults -> fun () -> { nextToken; vpcIds; maxResults }
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("VpcIds", (Option.map x.vpcIds ~f:VpcIds.to_value));
        ("MaxResults",
          (Option.map x.maxResults ~f:PaginationMaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:PaginationMaxResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let vpcIds =
        (Option.map ~f:VpcIds.of_xml) (Xml.child xml_arg0 "VpcIds") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      make ?maxResults ?vpcIds ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "MaxResults" PaginationMaxResults.of_json in
      let vpcIds = field_map json__ "VpcIds" VpcIds.of_json in
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      make ?maxResults ?vpcIds ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the metadata for the firewalls that you have defined. If you provide VPC identifiers in your request, this returns only the firewalls for those VPCs. Depending on your setting for max results and the number of firewalls, a single call might not return the full list."]
module ListFirewallPoliciesResponse =
  struct
    type nonrec t =
      {
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "When you request a list of objects with a MaxResults setting, if the number of objects that are still available for retrieval exceeds the maximum you requested, Network Firewall returns a NextToken value in the response. To retrieve the next batch of objects, use the token returned from the prior request in your next request."];
      firewallPolicies: FirewallPolicies.t option
        [@ocaml.doc
          "The metadata for the firewall policies. Depending on your setting for max results and the number of firewall policies that you have, this might not be the full list."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?firewallPolicies -> fun () -> { nextToken; firewallPolicies }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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:PaginationToken.to_value));
        ("FirewallPolicies",
          (Option.map x.firewallPolicies ~f:FirewallPolicies.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let firewallPolicies =
        (Option.map ~f:FirewallPolicies.of_xml)
          (Xml.child xml_arg0 "FirewallPolicies") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      make ?firewallPolicies ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let firewallPolicies =
        field_map json__ "FirewallPolicies" FirewallPolicies.of_json in
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      make ?firewallPolicies ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the metadata for the firewall policies that you have defined. Depending on your setting for max results and the number of firewall policies, a single call might not return the full list."]
module ListFirewallPoliciesRequest =
  struct
    type nonrec t =
      {
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "When you request a list of objects with a MaxResults setting, if the number of objects that are still available for retrieval exceeds the maximum you requested, Network Firewall returns a NextToken value in the response. To retrieve the next batch of objects, use the token returned from the prior request in your next request."];
      maxResults: PaginationMaxResults.t option
        [@ocaml.doc
          "The maximum number of objects that you want Network Firewall to return for this request. If more objects are available, in the response, Network Firewall provides a NextToken value that you can use in a subsequent call to get the next batch of objects."]}
    let make ?nextToken =
      fun ?maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("MaxResults",
          (Option.map x.maxResults ~f:PaginationMaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:PaginationMaxResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      make ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "MaxResults" PaginationMaxResults.of_json in
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      make ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the metadata for the firewall policies that you have defined. Depending on your setting for max results and the number of firewall policies, a single call might not return the full list."]
module ListAnalysisReportsResponse =
  struct
    type nonrec t =
      {
      analysisReports: AnalysisReports.t option
        [@ocaml.doc
          "The id and ReportTime associated with a requested analysis report. Does not provide the status of the analysis report."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "When you request a list of objects with a MaxResults setting, if the number of objects that are still available for retrieval exceeds the maximum you requested, Network Firewall returns a NextToken value in the response. To retrieve the next batch of objects, use the token returned from the prior request in your next request."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?analysisReports =
      fun ?nextToken -> fun () -> { analysisReports; nextToken }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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
        [("AnalysisReports",
           (Option.map x.analysisReports ~f:AnalysisReports.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let analysisReports =
        (Option.map ~f:AnalysisReports.of_xml)
          (Xml.child xml_arg0 "AnalysisReports") in
      make ?nextToken ?analysisReports ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let analysisReports =
        field_map json__ "AnalysisReports" AnalysisReports.of_json in
      make ?nextToken ?analysisReports ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of all traffic analysis reports generated within the last 30 days."]
module ListAnalysisReportsRequest =
  struct
    type nonrec t =
      {
      firewallName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the firewall. You can't change the name of a firewall after you create it. You must specify the ARN or the name, and you can specify both."];
      firewallArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the firewall. You must specify the ARN or the name, and you can specify both."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "When you request a list of objects with a MaxResults setting, if the number of objects that are still available for retrieval exceeds the maximum you requested, Network Firewall returns a NextToken value in the response. To retrieve the next batch of objects, use the token returned from the prior request in your next request."];
      maxResults: PaginationMaxResults.t option
        [@ocaml.doc
          "The maximum number of objects that you want Network Firewall to return for this request. If more objects are available, in the response, Network Firewall provides a NextToken value that you can use in a subsequent call to get the next batch of objects."]}
    let make ?firewallName =
      fun ?firewallArn ->
        fun ?nextToken ->
          fun ?maxResults ->
            fun () -> { firewallName; firewallArn; nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("FirewallName",
           (Option.map x.firewallName ~f:ResourceName.to_value));
        ("FirewallArn", (Option.map x.firewallArn ~f:ResourceArn.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("MaxResults",
          (Option.map x.maxResults ~f:PaginationMaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:PaginationMaxResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let firewallArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "FirewallArn") in
      let firewallName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "FirewallName") in
      make ?maxResults ?nextToken ?firewallArn ?firewallName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "MaxResults" PaginationMaxResults.of_json in
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let firewallArn = field_map json__ "FirewallArn" ResourceArn.of_json in
      let firewallName = field_map json__ "FirewallName" ResourceName.of_json in
      make ?maxResults ?nextToken ?firewallArn ?firewallName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of all traffic analysis reports generated within the last 30 days."]
module GetAnalysisReportResultsResponse =
  struct
    type nonrec t =
      {
      status: Status.t option
        [@ocaml.doc
          "The status of the analysis report you specify. Statuses include RUNNING, COMPLETED, or FAILED."];
      startTime: StartTime.t option
        [@ocaml.doc
          "The date and time within the last 30 days from which to start retrieving analysis data, in UTC format (for example, YYYY-MM-DDTHH:MM:SSZ."];
      endTime: EndTime.t option
        [@ocaml.doc
          "The date and time, up to the current date, from which to stop retrieving analysis data, in UTC format (for example, YYYY-MM-DDTHH:MM:SSZ)."];
      reportTime: ReportTime.t option
        [@ocaml.doc "The date and time the analysis report was ran."];
      analysisType: EnabledAnalysisType.t option
        [@ocaml.doc
          "The type of traffic that will be used to generate a report."];
      nextToken: AnalysisReportNextToken.t option
        [@ocaml.doc
          "When you request a list of objects with a MaxResults setting, if the number of objects that are still available for retrieval exceeds the maximum you requested, Network Firewall returns a NextToken value in the response. To retrieve the next batch of objects, use the token returned from the prior request in your next request."];
      analysisReportResults: AnalysisReportResults.t option
        [@ocaml.doc "Retrieves the results of a traffic analysis report."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?status =
      fun ?startTime ->
        fun ?endTime ->
          fun ?reportTime ->
            fun ?analysisType ->
              fun ?nextToken ->
                fun ?analysisReportResults ->
                  fun () ->
                    {
                      status;
                      startTime;
                      endTime;
                      reportTime;
                      analysisType;
                      nextToken;
                      analysisReportResults
                    }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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
        [("Status", (Option.map x.status ~f:Status.to_value));
        ("StartTime", (Option.map x.startTime ~f:StartTime.to_value));
        ("EndTime", (Option.map x.endTime ~f:EndTime.to_value));
        ("ReportTime", (Option.map x.reportTime ~f:ReportTime.to_value));
        ("AnalysisType",
          (Option.map x.analysisType ~f:EnabledAnalysisType.to_value));
        ("NextToken",
          (Option.map x.nextToken ~f:AnalysisReportNextToken.to_value));
        ("AnalysisReportResults",
          (Option.map x.analysisReportResults
             ~f:AnalysisReportResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let analysisReportResults =
        (Option.map ~f:AnalysisReportResults.of_xml)
          (Xml.child xml_arg0 "AnalysisReportResults") in
      let nextToken =
        (Option.map ~f:AnalysisReportNextToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let analysisType =
        (Option.map ~f:EnabledAnalysisType.of_xml)
          (Xml.child xml_arg0 "AnalysisType") in
      let reportTime =
        (Option.map ~f:ReportTime.of_xml) (Xml.child xml_arg0 "ReportTime") in
      let endTime =
        (Option.map ~f:EndTime.of_xml) (Xml.child xml_arg0 "EndTime") in
      let startTime =
        (Option.map ~f:StartTime.of_xml) (Xml.child xml_arg0 "StartTime") in
      let status =
        (Option.map ~f:Status.of_xml) (Xml.child xml_arg0 "Status") in
      make ?analysisReportResults ?nextToken ?analysisType ?reportTime
        ?endTime ?startTime ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let analysisReportResults =
        field_map json__ "AnalysisReportResults"
          AnalysisReportResults.of_json in
      let nextToken =
        field_map json__ "NextToken" AnalysisReportNextToken.of_json in
      let analysisType =
        field_map json__ "AnalysisType" EnabledAnalysisType.of_json in
      let reportTime = field_map json__ "ReportTime" ReportTime.of_json in
      let endTime = field_map json__ "EndTime" EndTime.of_json in
      let startTime = field_map json__ "StartTime" StartTime.of_json in
      let status = field_map json__ "Status" Status.of_json in
      make ?analysisReportResults ?nextToken ?analysisType ?reportTime
        ?endTime ?startTime ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The results of a COMPLETED analysis report generated with StartAnalysisReport. For more information, see AnalysisTypeReportResult."]
module GetAnalysisReportResultsRequest =
  struct
    type nonrec t =
      {
      firewallName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the firewall. You can't change the name of a firewall after you create it. You must specify the ARN or the name, and you can specify both."];
      analysisReportId: AnalysisReportId.t
        [@ocaml.doc
          "The unique ID of the query that ran when you requested an analysis report."];
      firewallArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the firewall. You must specify the ARN or the name, and you can specify both."];
      nextToken: AnalysisReportNextToken.t option
        [@ocaml.doc
          "When you request a list of objects with a MaxResults setting, if the number of objects that are still available for retrieval exceeds the maximum you requested, Network Firewall returns a NextToken value in the response. To retrieve the next batch of objects, use the token returned from the prior request in your next request."];
      maxResults: PaginationMaxResults.t option
        [@ocaml.doc
          "The maximum number of objects that you want Network Firewall to return for this request. If more objects are available, in the response, Network Firewall provides a NextToken value that you can use in a subsequent call to get the next batch of objects."]}
    let context_ = "GetAnalysisReportResultsRequest"
    let make ?firewallName =
      fun ?firewallArn ->
        fun ?nextToken ->
          fun ?maxResults ->
            fun ~analysisReportId ->
              fun () ->
                {
                  firewallName;
                  firewallArn;
                  nextToken;
                  maxResults;
                  analysisReportId
                }
    let to_value x =
      structure_to_value
        [("FirewallName",
           (Option.map x.firewallName ~f:ResourceName.to_value));
        ("AnalysisReportId",
          (Some (AnalysisReportId.to_value x.analysisReportId)));
        ("FirewallArn", (Option.map x.firewallArn ~f:ResourceArn.to_value));
        ("NextToken",
          (Option.map x.nextToken ~f:AnalysisReportNextToken.to_value));
        ("MaxResults",
          (Option.map x.maxResults ~f:PaginationMaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:PaginationMaxResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:AnalysisReportNextToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let firewallArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "FirewallArn") in
      let analysisReportId =
        AnalysisReportId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AnalysisReportId") in
      let firewallName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "FirewallName") in
      make ?maxResults ?nextToken ?firewallArn ~analysisReportId
        ?firewallName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "MaxResults" PaginationMaxResults.of_json in
      let nextToken =
        field_map json__ "NextToken" AnalysisReportNextToken.of_json in
      let firewallArn = field_map json__ "FirewallArn" ResourceArn.of_json in
      let analysisReportId =
        field_map_exn json__ "AnalysisReportId" AnalysisReportId.of_json in
      let firewallName = field_map json__ "FirewallName" ResourceName.of_json in
      make ?maxResults ?nextToken ?firewallArn ~analysisReportId
        ?firewallName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The results of a COMPLETED analysis report generated with StartAnalysisReport. For more information, see AnalysisTypeReportResult."]
module DisassociateSubnetsResponse =
  struct
    type nonrec t =
      {
      firewallArn: ResourceArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the firewall."];
      firewallName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the firewall. You can't change the name of a firewall after you create it."];
      subnetMappings: SubnetMappings.t option
        [@ocaml.doc
          "The IDs of the subnets that are associated with the firewall."];
      updateToken: UpdateToken.t option
        [@ocaml.doc
          "An optional token that you can use for optimistic locking. Network Firewall returns a token to your requests that access the firewall. The token marks the state of the firewall resource at the time of the request. To make an unconditional change to the firewall, omit the token in your update request. Without the token, Network Firewall performs your updates regardless of whether the firewall has changed since you last retrieved it. To make a conditional change to the firewall, provide the token in your update request. Network Firewall uses the token to ensure that the firewall hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the firewall again to get a current copy of it with a new token. Reapply your changes as needed, then try the operation again using the new token."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidOperationException of InvalidOperationException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `InvalidTokenException of InvalidTokenException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?firewallArn =
      fun ?firewallName ->
        fun ?subnetMappings ->
          fun ?updateToken ->
            fun () ->
              { firewallArn; firewallName; subnetMappings; updateToken }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidOperationException" ->
          `InvalidOperationException (InvalidOperationException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidOperationException" ->
          `InvalidOperationException (InvalidOperationException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidOperationException e ->
          `Assoc
            [("error", (`String "InvalidOperationException"));
            ("details", (InvalidOperationException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `InvalidTokenException e ->
          `Assoc
            [("error", (`String "InvalidTokenException"));
            ("details", (InvalidTokenException.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
        [("FirewallArn", (Option.map x.firewallArn ~f:ResourceArn.to_value));
        ("FirewallName",
          (Option.map x.firewallName ~f:ResourceName.to_value));
        ("SubnetMappings",
          (Option.map x.subnetMappings ~f:SubnetMappings.to_value));
        ("UpdateToken", (Option.map x.updateToken ~f:UpdateToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updateToken =
        (Option.map ~f:UpdateToken.of_xml) (Xml.child xml_arg0 "UpdateToken") in
      let subnetMappings =
        (Option.map ~f:SubnetMappings.of_xml)
          (Xml.child xml_arg0 "SubnetMappings") in
      let firewallName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "FirewallName") in
      let firewallArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "FirewallArn") in
      make ?updateToken ?subnetMappings ?firewallName ?firewallArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updateToken = field_map json__ "UpdateToken" UpdateToken.of_json in
      let subnetMappings =
        field_map json__ "SubnetMappings" SubnetMappings.of_json in
      let firewallName = field_map json__ "FirewallName" ResourceName.of_json in
      let firewallArn = field_map json__ "FirewallArn" ResourceArn.of_json in
      make ?updateToken ?subnetMappings ?firewallName ?firewallArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes the specified subnet associations from the firewall. This removes the firewall endpoints from the subnets and removes any network filtering protections that the endpoints were providing."]
module DisassociateSubnetsRequest =
  struct
    type nonrec t =
      {
      updateToken: UpdateToken.t option
        [@ocaml.doc
          "An optional token that you can use for optimistic locking. Network Firewall returns a token to your requests that access the firewall. The token marks the state of the firewall resource at the time of the request. To make an unconditional change to the firewall, omit the token in your update request. Without the token, Network Firewall performs your updates regardless of whether the firewall has changed since you last retrieved it. To make a conditional change to the firewall, provide the token in your update request. Network Firewall uses the token to ensure that the firewall hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the firewall again to get a current copy of it with a new token. Reapply your changes as needed, then try the operation again using the new token."];
      firewallArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the firewall. You must specify the ARN or the name, and you can specify both."];
      firewallName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the firewall. You can't change the name of a firewall after you create it. You must specify the ARN or the name, and you can specify both."];
      subnetIds: AzSubnets.t
        [@ocaml.doc
          "The unique identifiers for the subnets that you want to disassociate."]}
    let context_ = "DisassociateSubnetsRequest"
    let make ?updateToken =
      fun ?firewallArn ->
        fun ?firewallName ->
          fun ~subnetIds ->
            fun () -> { updateToken; firewallArn; firewallName; subnetIds }
    let to_value x =
      structure_to_value
        [("UpdateToken", (Option.map x.updateToken ~f:UpdateToken.to_value));
        ("FirewallArn", (Option.map x.firewallArn ~f:ResourceArn.to_value));
        ("FirewallName",
          (Option.map x.firewallName ~f:ResourceName.to_value));
        ("SubnetIds", (Some (AzSubnets.to_value x.subnetIds)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let subnetIds =
        AzSubnets.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SubnetIds") in
      let firewallName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "FirewallName") in
      let firewallArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "FirewallArn") in
      let updateToken =
        (Option.map ~f:UpdateToken.of_xml) (Xml.child xml_arg0 "UpdateToken") in
      make ~subnetIds ?firewallName ?firewallArn ?updateToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let subnetIds = field_map_exn json__ "SubnetIds" AzSubnets.of_json in
      let firewallName = field_map json__ "FirewallName" ResourceName.of_json in
      let firewallArn = field_map json__ "FirewallArn" ResourceArn.of_json in
      let updateToken = field_map json__ "UpdateToken" UpdateToken.of_json in
      make ~subnetIds ?firewallName ?firewallArn ?updateToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes the specified subnet associations from the firewall. This removes the firewall endpoints from the subnets and removes any network filtering protections that the endpoints were providing."]
module DisassociateAvailabilityZonesResponse =
  struct
    type nonrec t =
      {
      firewallArn: ResourceArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the firewall."];
      firewallName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the firewall. You can't change the name of a firewall after you create it."];
      availabilityZoneMappings: AvailabilityZoneMappings.t option
        [@ocaml.doc
          "The remaining Availability Zones where the firewall has endpoints after the disassociation."];
      updateToken: UpdateToken.t option
        [@ocaml.doc
          "An optional token that you can use for optimistic locking. Network Firewall returns a token to your requests that access the firewall. The token marks the state of the firewall resource at the time of the request. To make an unconditional change to the firewall, omit the token in your update request. Without the token, Network Firewall performs your updates regardless of whether the firewall has changed since you last retrieved it. To make a conditional change to the firewall, provide the token in your update request. Network Firewall uses the token to ensure that the firewall hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the firewall again to get a current copy of it with a new token. Reapply your changes as needed, then try the operation again using the new token."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidOperationException of InvalidOperationException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `InvalidTokenException of InvalidTokenException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?firewallArn =
      fun ?firewallName ->
        fun ?availabilityZoneMappings ->
          fun ?updateToken ->
            fun () ->
              {
                firewallArn;
                firewallName;
                availabilityZoneMappings;
                updateToken
              }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidOperationException" ->
          `InvalidOperationException (InvalidOperationException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidOperationException" ->
          `InvalidOperationException (InvalidOperationException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidOperationException e ->
          `Assoc
            [("error", (`String "InvalidOperationException"));
            ("details", (InvalidOperationException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `InvalidTokenException e ->
          `Assoc
            [("error", (`String "InvalidTokenException"));
            ("details", (InvalidTokenException.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
        [("FirewallArn", (Option.map x.firewallArn ~f:ResourceArn.to_value));
        ("FirewallName",
          (Option.map x.firewallName ~f:ResourceName.to_value));
        ("AvailabilityZoneMappings",
          (Option.map x.availabilityZoneMappings
             ~f:AvailabilityZoneMappings.to_value));
        ("UpdateToken", (Option.map x.updateToken ~f:UpdateToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updateToken =
        (Option.map ~f:UpdateToken.of_xml) (Xml.child xml_arg0 "UpdateToken") in
      let availabilityZoneMappings =
        (Option.map ~f:AvailabilityZoneMappings.of_xml)
          (Xml.child xml_arg0 "AvailabilityZoneMappings") in
      let firewallName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "FirewallName") in
      let firewallArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "FirewallArn") in
      make ?updateToken ?availabilityZoneMappings ?firewallName ?firewallArn
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updateToken = field_map json__ "UpdateToken" UpdateToken.of_json in
      let availabilityZoneMappings =
        field_map json__ "AvailabilityZoneMappings"
          AvailabilityZoneMappings.of_json in
      let firewallName = field_map json__ "FirewallName" ResourceName.of_json in
      let firewallArn = field_map json__ "FirewallArn" ResourceArn.of_json in
      make ?updateToken ?availabilityZoneMappings ?firewallName ?firewallArn
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes the specified Availability Zone associations from a transit gateway-attached firewall. This removes the firewall endpoints from these Availability Zones and stops traffic filtering in those zones. Before removing an Availability Zone, ensure you've updated your transit gateway route tables to redirect traffic appropriately. If AvailabilityZoneChangeProtection is enabled, you must first disable it using UpdateAvailabilityZoneChangeProtection. To verify the status of your Availability Zone changes, use DescribeFirewall."]
module DisassociateAvailabilityZonesRequest =
  struct
    type nonrec t =
      {
      updateToken: UpdateToken.t option
        [@ocaml.doc
          "An optional token that you can use for optimistic locking. Network Firewall returns a token to your requests that access the firewall. The token marks the state of the firewall resource at the time of the request. To make an unconditional change to the firewall, omit the token in your update request. Without the token, Network Firewall performs your updates regardless of whether the firewall has changed since you last retrieved it. To make a conditional change to the firewall, provide the token in your update request. Network Firewall uses the token to ensure that the firewall hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the firewall again to get a current copy of it with a new token. Reapply your changes as needed, then try the operation again using the new token."];
      firewallArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the firewall. You must specify the ARN or the name, and you can specify both."];
      firewallName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the firewall. You can't change the name of a firewall after you create it. You must specify the ARN or the name, and you can specify both."];
      availabilityZoneMappings: AvailabilityZoneMappings.t
        [@ocaml.doc
          "Required. The Availability Zones to remove from the firewall's configuration."]}
    let context_ = "DisassociateAvailabilityZonesRequest"
    let make ?updateToken =
      fun ?firewallArn ->
        fun ?firewallName ->
          fun ~availabilityZoneMappings ->
            fun () ->
              {
                updateToken;
                firewallArn;
                firewallName;
                availabilityZoneMappings
              }
    let to_value x =
      structure_to_value
        [("UpdateToken", (Option.map x.updateToken ~f:UpdateToken.to_value));
        ("FirewallArn", (Option.map x.firewallArn ~f:ResourceArn.to_value));
        ("FirewallName",
          (Option.map x.firewallName ~f:ResourceName.to_value));
        ("AvailabilityZoneMappings",
          (Some
             (AvailabilityZoneMappings.to_value x.availabilityZoneMappings)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let availabilityZoneMappings =
        AvailabilityZoneMappings.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "AvailabilityZoneMappings") in
      let firewallName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "FirewallName") in
      let firewallArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "FirewallArn") in
      let updateToken =
        (Option.map ~f:UpdateToken.of_xml) (Xml.child xml_arg0 "UpdateToken") in
      make ~availabilityZoneMappings ?firewallName ?firewallArn ?updateToken
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let availabilityZoneMappings =
        field_map_exn json__ "AvailabilityZoneMappings"
          AvailabilityZoneMappings.of_json in
      let firewallName = field_map json__ "FirewallName" ResourceName.of_json in
      let firewallArn = field_map json__ "FirewallArn" ResourceArn.of_json in
      let updateToken = field_map json__ "UpdateToken" UpdateToken.of_json in
      make ~availabilityZoneMappings ?firewallName ?firewallArn ?updateToken
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes the specified Availability Zone associations from a transit gateway-attached firewall. This removes the firewall endpoints from these Availability Zones and stops traffic filtering in those zones. Before removing an Availability Zone, ensure you've updated your transit gateway route tables to redirect traffic appropriately. If AvailabilityZoneChangeProtection is enabled, you must first disable it using UpdateAvailabilityZoneChangeProtection. To verify the status of your Availability Zone changes, use DescribeFirewall."]
module DetachRuleGroupsFromProxyConfigurationResponse =
  struct
    type nonrec t =
      {
      proxyConfiguration: ProxyConfiguration.t option
        [@ocaml.doc
          "The updated proxy configuration resource that reflects the updates from the request."];
      updateToken: UpdateToken.t option
        [@ocaml.doc
          "A token used for optimistic locking. Network Firewall returns a token to your requests that access the proxy configuration. The token marks the state of the proxy configuration resource at the time of the request. To make changes to the proxy configuration, you provide the token in your request. Network Firewall uses the token to ensure that the proxy configuration hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the proxy configuration again to get a current copy of it with a current token. Reapply your changes as needed, then try the operation again using the new token."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?proxyConfiguration =
      fun ?updateToken -> fun () -> { proxyConfiguration; updateToken }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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
        [("ProxyConfiguration",
           (Option.map x.proxyConfiguration ~f:ProxyConfiguration.to_value));
        ("UpdateToken", (Option.map x.updateToken ~f:UpdateToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updateToken =
        (Option.map ~f:UpdateToken.of_xml) (Xml.child xml_arg0 "UpdateToken") in
      let proxyConfiguration =
        (Option.map ~f:ProxyConfiguration.of_xml)
          (Xml.child xml_arg0 "ProxyConfiguration") in
      make ?updateToken ?proxyConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updateToken = field_map json__ "UpdateToken" UpdateToken.of_json in
      let proxyConfiguration =
        field_map json__ "ProxyConfiguration" ProxyConfiguration.of_json in
      make ?updateToken ?proxyConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Detaches ProxyRuleGroup resources from a ProxyConfiguration A Proxy Configuration defines the monitoring and protection behavior for a Proxy. The details of the behavior are defined in the rule groups that you add to your configuration."]
module DetachRuleGroupsFromProxyConfigurationRequest =
  struct
    type nonrec t =
      {
      proxyConfigurationName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the proxy configuration. You can't change the name of a proxy configuration after you create it. You must specify the ARN or the name, and you can specify both."];
      proxyConfigurationArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of a proxy configuration. You must specify the ARN or the name, and you can specify both."];
      ruleGroupNames: ResourceNameList.t option
        [@ocaml.doc
          "The proxy rule group names to detach from the proxy configuration"];
      ruleGroupArns: ResourceArnList.t option
        [@ocaml.doc
          "The proxy rule group arns to detach from the proxy configuration"];
      updateToken: UpdateToken.t
        [@ocaml.doc
          "A token used for optimistic locking. Network Firewall returns a token to your requests that access the proxy configuration. The token marks the state of the proxy configuration resource at the time of the request. To make changes to the proxy configuration, you provide the token in your request. Network Firewall uses the token to ensure that the proxy configuration hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the proxy configuration again to get a current copy of it with a current token. Reapply your changes as needed, then try the operation again using the new token."]}
    let context_ = "DetachRuleGroupsFromProxyConfigurationRequest"
    let make ?proxyConfigurationName =
      fun ?proxyConfigurationArn ->
        fun ?ruleGroupNames ->
          fun ?ruleGroupArns ->
            fun ~updateToken ->
              fun () ->
                {
                  proxyConfigurationName;
                  proxyConfigurationArn;
                  ruleGroupNames;
                  ruleGroupArns;
                  updateToken
                }
    let to_value x =
      structure_to_value
        [("ProxyConfigurationName",
           (Option.map x.proxyConfigurationName ~f:ResourceName.to_value));
        ("ProxyConfigurationArn",
          (Option.map x.proxyConfigurationArn ~f:ResourceArn.to_value));
        ("RuleGroupNames",
          (Option.map x.ruleGroupNames ~f:ResourceNameList.to_value));
        ("RuleGroupArns",
          (Option.map x.ruleGroupArns ~f:ResourceArnList.to_value));
        ("UpdateToken", (Some (UpdateToken.to_value x.updateToken)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updateToken =
        UpdateToken.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "UpdateToken") in
      let ruleGroupArns =
        (Option.map ~f:ResourceArnList.of_xml)
          (Xml.child xml_arg0 "RuleGroupArns") in
      let ruleGroupNames =
        (Option.map ~f:ResourceNameList.of_xml)
          (Xml.child xml_arg0 "RuleGroupNames") in
      let proxyConfigurationArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "ProxyConfigurationArn") in
      let proxyConfigurationName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "ProxyConfigurationName") in
      make ~updateToken ?ruleGroupArns ?ruleGroupNames ?proxyConfigurationArn
        ?proxyConfigurationName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updateToken =
        field_map_exn json__ "UpdateToken" UpdateToken.of_json in
      let ruleGroupArns =
        field_map json__ "RuleGroupArns" ResourceArnList.of_json in
      let ruleGroupNames =
        field_map json__ "RuleGroupNames" ResourceNameList.of_json in
      let proxyConfigurationArn =
        field_map json__ "ProxyConfigurationArn" ResourceArn.of_json in
      let proxyConfigurationName =
        field_map json__ "ProxyConfigurationName" ResourceName.of_json in
      make ~updateToken ?ruleGroupArns ?ruleGroupNames ?proxyConfigurationArn
        ?proxyConfigurationName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Detaches ProxyRuleGroup resources from a ProxyConfiguration A Proxy Configuration defines the monitoring and protection behavior for a Proxy. The details of the behavior are defined in the rule groups that you add to your configuration."]
module DescribeVpcEndpointAssociationResponse =
  struct
    type nonrec t =
      {
      vpcEndpointAssociation: VpcEndpointAssociation.t option
        [@ocaml.doc
          "The configuration settings for the VPC endpoint association. These settings include the firewall and the VPC and subnet to use for the firewall endpoint."];
      vpcEndpointAssociationStatus: VpcEndpointAssociationStatus.t option
        [@ocaml.doc
          "Detailed information about the current status of a VpcEndpointAssociation. You can retrieve this by calling DescribeVpcEndpointAssociation and providing the VPC endpoint association ARN."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?vpcEndpointAssociation =
      fun ?vpcEndpointAssociationStatus ->
        fun () -> { vpcEndpointAssociation; vpcEndpointAssociationStatus }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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
        [("VpcEndpointAssociation",
           (Option.map x.vpcEndpointAssociation
              ~f:VpcEndpointAssociation.to_value));
        ("VpcEndpointAssociationStatus",
          (Option.map x.vpcEndpointAssociationStatus
             ~f:VpcEndpointAssociationStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vpcEndpointAssociationStatus =
        (Option.map ~f:VpcEndpointAssociationStatus.of_xml)
          (Xml.child xml_arg0 "VpcEndpointAssociationStatus") in
      let vpcEndpointAssociation =
        (Option.map ~f:VpcEndpointAssociation.of_xml)
          (Xml.child xml_arg0 "VpcEndpointAssociation") in
      make ?vpcEndpointAssociationStatus ?vpcEndpointAssociation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vpcEndpointAssociationStatus =
        field_map json__ "VpcEndpointAssociationStatus"
          VpcEndpointAssociationStatus.of_json in
      let vpcEndpointAssociation =
        field_map json__ "VpcEndpointAssociation"
          VpcEndpointAssociation.of_json in
      make ?vpcEndpointAssociationStatus ?vpcEndpointAssociation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the data object for the specified VPC endpoint association."]
module DescribeVpcEndpointAssociationRequest =
  struct
    type nonrec t =
      {
      vpcEndpointAssociationArn: ResourceArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of a VPC endpoint association."]}
    let context_ = "DescribeVpcEndpointAssociationRequest"
    let make ~vpcEndpointAssociationArn =
      fun () -> { vpcEndpointAssociationArn }
    let to_value x =
      structure_to_value
        [("VpcEndpointAssociationArn",
           (Some (ResourceArn.to_value x.vpcEndpointAssociationArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vpcEndpointAssociationArn =
        ResourceArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "VpcEndpointAssociationArn") in
      make ~vpcEndpointAssociationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vpcEndpointAssociationArn =
        field_map_exn json__ "VpcEndpointAssociationArn" ResourceArn.of_json in
      make ~vpcEndpointAssociationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the data object for the specified VPC endpoint association."]
module DescribeTLSInspectionConfigurationResponse =
  struct
    type nonrec t =
      {
      updateToken: UpdateToken.t option
        [@ocaml.doc
          "A token used for optimistic locking. Network Firewall returns a token to your requests that access the TLS inspection configuration. The token marks the state of the TLS inspection configuration resource at the time of the request. To make changes to the TLS inspection configuration, you provide the token in your request. Network Firewall uses the token to ensure that the TLS inspection configuration hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the TLS inspection configuration again to get a current copy of it with a current token. Reapply your changes as needed, then try the operation again using the new token."];
      tLSInspectionConfiguration: TLSInspectionConfiguration.t option
        [@ocaml.doc
          "The object that defines a TLS inspection configuration. This, along with TLSInspectionConfigurationResponse, define the TLS inspection configuration. You can retrieve all objects for a TLS inspection configuration by calling DescribeTLSInspectionConfiguration. Network Firewall uses a TLS inspection configuration to decrypt traffic. Network Firewall re-encrypts the traffic before sending it to its destination. To use a TLS inspection configuration, you add it to a new Network Firewall firewall policy, then you apply the firewall policy to a firewall. Network Firewall acts as a proxy service to decrypt and inspect the traffic traveling through your firewalls. You can reference a TLS inspection configuration from more than one firewall policy, and you can use a firewall policy in more than one firewall. For more information about using TLS inspection configurations, see Inspecting SSL/TLS traffic with TLS inspection configurations in the Network Firewall Developer Guide."];
      tLSInspectionConfigurationResponse:
        TLSInspectionConfigurationResponse.t option
        [@ocaml.doc
          "The high-level properties of a TLS inspection configuration. This, along with the TLSInspectionConfiguration, define the TLS inspection configuration. You can retrieve all objects for a TLS inspection configuration by calling DescribeTLSInspectionConfiguration."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?updateToken =
      fun ?tLSInspectionConfiguration ->
        fun ?tLSInspectionConfigurationResponse ->
          fun () ->
            {
              updateToken;
              tLSInspectionConfiguration;
              tLSInspectionConfigurationResponse
            }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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
        [("UpdateToken", (Option.map x.updateToken ~f:UpdateToken.to_value));
        ("TLSInspectionConfiguration",
          (Option.map x.tLSInspectionConfiguration
             ~f:TLSInspectionConfiguration.to_value));
        ("TLSInspectionConfigurationResponse",
          (Option.map x.tLSInspectionConfigurationResponse
             ~f:TLSInspectionConfigurationResponse.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tLSInspectionConfigurationResponse =
        (Option.map ~f:TLSInspectionConfigurationResponse.of_xml)
          (Xml.child xml_arg0 "TLSInspectionConfigurationResponse") in
      let tLSInspectionConfiguration =
        (Option.map ~f:TLSInspectionConfiguration.of_xml)
          (Xml.child xml_arg0 "TLSInspectionConfiguration") in
      let updateToken =
        (Option.map ~f:UpdateToken.of_xml) (Xml.child xml_arg0 "UpdateToken") in
      make ?tLSInspectionConfigurationResponse ?tLSInspectionConfiguration
        ?updateToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tLSInspectionConfigurationResponse =
        field_map json__ "TLSInspectionConfigurationResponse"
          TLSInspectionConfigurationResponse.of_json in
      let tLSInspectionConfiguration =
        field_map json__ "TLSInspectionConfiguration"
          TLSInspectionConfiguration.of_json in
      let updateToken = field_map json__ "UpdateToken" UpdateToken.of_json in
      make ?tLSInspectionConfigurationResponse ?tLSInspectionConfiguration
        ?updateToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the data objects for the specified TLS inspection configuration."]
module DescribeTLSInspectionConfigurationRequest =
  struct
    type nonrec t =
      {
      tLSInspectionConfigurationArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the TLS inspection configuration. You must specify the ARN or the name, and you can specify both."];
      tLSInspectionConfigurationName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the TLS inspection configuration. You can't change the name of a TLS inspection configuration after you create it. You must specify the ARN or the name, and you can specify both."]}
    let make ?tLSInspectionConfigurationArn =
      fun ?tLSInspectionConfigurationName ->
        fun () ->
          { tLSInspectionConfigurationArn; tLSInspectionConfigurationName }
    let to_value x =
      structure_to_value
        [("TLSInspectionConfigurationArn",
           (Option.map x.tLSInspectionConfigurationArn
              ~f:ResourceArn.to_value));
        ("TLSInspectionConfigurationName",
          (Option.map x.tLSInspectionConfigurationName
             ~f:ResourceName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tLSInspectionConfigurationName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "TLSInspectionConfigurationName") in
      let tLSInspectionConfigurationArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "TLSInspectionConfigurationArn") in
      make ?tLSInspectionConfigurationName ?tLSInspectionConfigurationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tLSInspectionConfigurationName =
        field_map json__ "TLSInspectionConfigurationName"
          ResourceName.of_json in
      let tLSInspectionConfigurationArn =
        field_map json__ "TLSInspectionConfigurationArn" ResourceArn.of_json in
      make ?tLSInspectionConfigurationName ?tLSInspectionConfigurationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the data objects for the specified TLS inspection configuration."]
module DescribeRuleGroupSummaryResponse =
  struct
    type nonrec t =
      {
      ruleGroupName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the rule group. You can't change the name of a rule group after you create it."];
      description: Description.t option
        [@ocaml.doc "A description of the rule group."];
      summary: Summary.t option
        [@ocaml.doc
          "A complex type that contains rule information based on the rule group's configured summary settings. The content varies depending on the fields that you specified to extract in your SummaryConfiguration. When you haven't configured any summary settings, this returns an empty array. The response might include: Rule identifiers Rule descriptions Any metadata fields that you specified in your SummaryConfiguration"]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?ruleGroupName =
      fun ?description ->
        fun ?summary -> fun () -> { ruleGroupName; description; summary }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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
        [("RuleGroupName",
           (Option.map x.ruleGroupName ~f:ResourceName.to_value));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("Summary", (Option.map x.summary ~f:Summary.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let summary =
        (Option.map ~f:Summary.of_xml) (Xml.child xml_arg0 "Summary") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let ruleGroupName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "RuleGroupName") in
      make ?summary ?description ?ruleGroupName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let summary = field_map json__ "Summary" Summary.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let ruleGroupName =
        field_map json__ "RuleGroupName" ResourceName.of_json in
      make ?summary ?description ?ruleGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns detailed information for a stateful rule group. For active threat defense Amazon Web Services managed rule groups, this operation provides insight into the protections enabled by the rule group, based on Suricata rule metadata fields. Summaries are available for rule groups you manage and for active threat defense Amazon Web Services managed rule groups. To modify how threat information appears in summaries, use the SummaryConfiguration parameter in UpdateRuleGroup."]
module DescribeRuleGroupSummaryRequest =
  struct
    type nonrec t =
      {
      ruleGroupName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the rule group. You can't change the name of a rule group after you create it. You must specify the ARN or the name, and you can specify both."];
      ruleGroupArn: ResourceArn.t option
        [@ocaml.doc
          "Required. The Amazon Resource Name (ARN) of the rule group. You must specify the ARN or the name, and you can specify both."];
      type_: RuleGroupType.t option
        [@ocaml.doc
          "The type of rule group you want a summary for. This is a required field. Valid value: STATEFUL Note that STATELESS exists but is not currently supported. If you provide STATELESS, an exception is returned."]}
    let make ?ruleGroupName =
      fun ?ruleGroupArn ->
        fun ?type_ -> fun () -> { ruleGroupName; ruleGroupArn; type_ }
    let to_value x =
      structure_to_value
        [("RuleGroupName",
           (Option.map x.ruleGroupName ~f:ResourceName.to_value));
        ("RuleGroupArn", (Option.map x.ruleGroupArn ~f:ResourceArn.to_value));
        ("Type", (Option.map x.type_ ~f:RuleGroupType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ =
        (Option.map ~f:RuleGroupType.of_xml) (Xml.child xml_arg0 "Type") in
      let ruleGroupArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "RuleGroupArn") in
      let ruleGroupName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "RuleGroupName") in
      make ?type_ ?ruleGroupArn ?ruleGroupName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map json__ "Type" RuleGroupType.of_json in
      let ruleGroupArn = field_map json__ "RuleGroupArn" ResourceArn.of_json in
      let ruleGroupName =
        field_map json__ "RuleGroupName" ResourceName.of_json in
      make ?type_ ?ruleGroupArn ?ruleGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns detailed information for a stateful rule group. For active threat defense Amazon Web Services managed rule groups, this operation provides insight into the protections enabled by the rule group, based on Suricata rule metadata fields. Summaries are available for rule groups you manage and for active threat defense Amazon Web Services managed rule groups. To modify how threat information appears in summaries, use the SummaryConfiguration parameter in UpdateRuleGroup."]
module DescribeRuleGroupResponse =
  struct
    type nonrec t =
      {
      updateToken: UpdateToken.t option
        [@ocaml.doc
          "A token used for optimistic locking. Network Firewall returns a token to your requests that access the rule group. The token marks the state of the rule group resource at the time of the request. To make changes to the rule group, you provide the token in your request. Network Firewall uses the token to ensure that the rule group hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the rule group again to get a current copy of it with a current token. Reapply your changes as needed, then try the operation again using the new token."];
      ruleGroup: RuleGroup.t option
        [@ocaml.doc
          "The object that defines the rules in a rule group. This, along with RuleGroupResponse, define the rule group. You can retrieve all objects for a rule group by calling DescribeRuleGroup. Network Firewall uses a rule group to inspect and control network traffic. You define stateless rule groups to inspect individual packets and you define stateful rule groups to inspect packets in the context of their traffic flow. To use a rule group, you include it by reference in an Network Firewall firewall policy, then you use the policy in a firewall. You can reference a rule group from more than one firewall policy, and you can use a firewall policy in more than one firewall."];
      ruleGroupResponse: RuleGroupResponse.t option
        [@ocaml.doc
          "The high-level properties of a rule group. This, along with the RuleGroup, define the rule group. You can retrieve all objects for a rule group by calling DescribeRuleGroup."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?updateToken =
      fun ?ruleGroup ->
        fun ?ruleGroupResponse ->
          fun () -> { updateToken; ruleGroup; ruleGroupResponse }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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
        [("UpdateToken", (Option.map x.updateToken ~f:UpdateToken.to_value));
        ("RuleGroup", (Option.map x.ruleGroup ~f:RuleGroup.to_value));
        ("RuleGroupResponse",
          (Option.map x.ruleGroupResponse ~f:RuleGroupResponse.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ruleGroupResponse =
        (Option.map ~f:RuleGroupResponse.of_xml)
          (Xml.child xml_arg0 "RuleGroupResponse") in
      let ruleGroup =
        (Option.map ~f:RuleGroup.of_xml) (Xml.child xml_arg0 "RuleGroup") in
      let updateToken =
        (Option.map ~f:UpdateToken.of_xml) (Xml.child xml_arg0 "UpdateToken") in
      make ?ruleGroupResponse ?ruleGroup ?updateToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ruleGroupResponse =
        field_map json__ "RuleGroupResponse" RuleGroupResponse.of_json in
      let ruleGroup = field_map json__ "RuleGroup" RuleGroup.of_json in
      let updateToken = field_map json__ "UpdateToken" UpdateToken.of_json in
      make ?ruleGroupResponse ?ruleGroup ?updateToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns the data objects for the specified rule group."]
module DescribeRuleGroupRequest =
  struct
    type nonrec t =
      {
      ruleGroupName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the rule group. You can't change the name of a rule group after you create it. You must specify the ARN or the name, and you can specify both."];
      ruleGroupArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the rule group. You must specify the ARN or the name, and you can specify both."];
      type_: RuleGroupType.t option
        [@ocaml.doc
          "Indicates whether the rule group is stateless or stateful. If the rule group is stateless, it contains stateless rules. If it is stateful, it contains stateful rules. This setting is required for requests that do not include the RuleGroupARN."];
      analyzeRuleGroup: Boolean.t option
        [@ocaml.doc
          "Indicates whether you want Network Firewall to analyze the stateless rules in the rule group for rule behavior such as asymmetric routing. If set to TRUE, Network Firewall runs the analysis."]}
    let make ?ruleGroupName =
      fun ?ruleGroupArn ->
        fun ?type_ ->
          fun ?analyzeRuleGroup ->
            fun () ->
              { ruleGroupName; ruleGroupArn; type_; analyzeRuleGroup }
    let to_value x =
      structure_to_value
        [("RuleGroupName",
           (Option.map x.ruleGroupName ~f:ResourceName.to_value));
        ("RuleGroupArn", (Option.map x.ruleGroupArn ~f:ResourceArn.to_value));
        ("Type", (Option.map x.type_ ~f:RuleGroupType.to_value));
        ("AnalyzeRuleGroup",
          (Option.map x.analyzeRuleGroup ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let analyzeRuleGroup =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "AnalyzeRuleGroup") in
      let type_ =
        (Option.map ~f:RuleGroupType.of_xml) (Xml.child xml_arg0 "Type") in
      let ruleGroupArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "RuleGroupArn") in
      let ruleGroupName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "RuleGroupName") in
      make ?analyzeRuleGroup ?type_ ?ruleGroupArn ?ruleGroupName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let analyzeRuleGroup =
        field_map json__ "AnalyzeRuleGroup" Boolean.of_json in
      let type_ = field_map json__ "Type" RuleGroupType.of_json in
      let ruleGroupArn = field_map json__ "RuleGroupArn" ResourceArn.of_json in
      let ruleGroupName =
        field_map json__ "RuleGroupName" ResourceName.of_json in
      make ?analyzeRuleGroup ?type_ ?ruleGroupArn ?ruleGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns the data objects for the specified rule group."]
module DescribeRuleGroupMetadataResponse =
  struct
    type nonrec t =
      {
      ruleGroupArn: ResourceArn.t option
        [@ocaml.doc
          "The descriptive name of the rule group. You can't change the name of a rule group after you create it. You must specify the ARN or the name, and you can specify both."];
      ruleGroupName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the rule group. You can't change the name of a rule group after you create it. You must specify the ARN or the name, and you can specify both."];
      description: Description.t option
        [@ocaml.doc
          "Returns the metadata objects for the specified rule group."];
      type_: RuleGroupType.t option
        [@ocaml.doc
          "Indicates whether the rule group is stateless or stateful. If the rule group is stateless, it contains stateless rules. If it is stateful, it contains stateful rules. This setting is required for requests that do not include the RuleGroupARN."];
      capacity: RuleCapacity.t option
        [@ocaml.doc
          "The maximum operating resources that this rule group can use. Rule group capacity is fixed at creation. When you update a rule group, you are limited to this capacity. When you reference a rule group from a firewall policy, Network Firewall reserves this capacity for the rule group. You can retrieve the capacity that would be required for a rule group before you create the rule group by calling CreateRuleGroup with DryRun set to TRUE."];
      statefulRuleOptions: StatefulRuleOptions.t option ;
      lastModifiedTime: LastUpdateTime.t option
        [@ocaml.doc
          "A timestamp indicating when the rule group was last modified."];
      vendorName: VendorName.t option
        [@ocaml.doc
          "The name of the Amazon Web Services Marketplace vendor that provides this rule group."];
      productId: ProductId.t option
        [@ocaml.doc
          "The unique identifier for the product listing associated with this rule group."];
      listingName: ListingName.t option
        [@ocaml.doc
          "The display name of the product listing for this rule group."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?ruleGroupArn =
      fun ?ruleGroupName ->
        fun ?description ->
          fun ?type_ ->
            fun ?capacity ->
              fun ?statefulRuleOptions ->
                fun ?lastModifiedTime ->
                  fun ?vendorName ->
                    fun ?productId ->
                      fun ?listingName ->
                        fun () ->
                          {
                            ruleGroupArn;
                            ruleGroupName;
                            description;
                            type_;
                            capacity;
                            statefulRuleOptions;
                            lastModifiedTime;
                            vendorName;
                            productId;
                            listingName
                          }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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
        [("RuleGroupArn",
           (Option.map x.ruleGroupArn ~f:ResourceArn.to_value));
        ("RuleGroupName",
          (Option.map x.ruleGroupName ~f:ResourceName.to_value));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("Type", (Option.map x.type_ ~f:RuleGroupType.to_value));
        ("Capacity", (Option.map x.capacity ~f:RuleCapacity.to_value));
        ("StatefulRuleOptions",
          (Option.map x.statefulRuleOptions ~f:StatefulRuleOptions.to_value));
        ("LastModifiedTime",
          (Option.map x.lastModifiedTime ~f:LastUpdateTime.to_value));
        ("VendorName", (Option.map x.vendorName ~f:VendorName.to_value));
        ("ProductId", (Option.map x.productId ~f:ProductId.to_value));
        ("ListingName", (Option.map x.listingName ~f:ListingName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let listingName =
        (Option.map ~f:ListingName.of_xml) (Xml.child xml_arg0 "ListingName") in
      let productId =
        (Option.map ~f:ProductId.of_xml) (Xml.child xml_arg0 "ProductId") in
      let vendorName =
        (Option.map ~f:VendorName.of_xml) (Xml.child xml_arg0 "VendorName") in
      let lastModifiedTime =
        (Option.map ~f:LastUpdateTime.of_xml)
          (Xml.child xml_arg0 "LastModifiedTime") in
      let statefulRuleOptions =
        (Option.map ~f:StatefulRuleOptions.of_xml)
          (Xml.child xml_arg0 "StatefulRuleOptions") in
      let capacity =
        (Option.map ~f:RuleCapacity.of_xml) (Xml.child xml_arg0 "Capacity") in
      let type_ =
        (Option.map ~f:RuleGroupType.of_xml) (Xml.child xml_arg0 "Type") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let ruleGroupName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "RuleGroupName") in
      let ruleGroupArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "RuleGroupArn") in
      make ?listingName ?productId ?vendorName ?lastModifiedTime
        ?statefulRuleOptions ?capacity ?type_ ?description ?ruleGroupName
        ?ruleGroupArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let listingName = field_map json__ "ListingName" ListingName.of_json in
      let productId = field_map json__ "ProductId" ProductId.of_json in
      let vendorName = field_map json__ "VendorName" VendorName.of_json in
      let lastModifiedTime =
        field_map json__ "LastModifiedTime" LastUpdateTime.of_json in
      let statefulRuleOptions =
        field_map json__ "StatefulRuleOptions" StatefulRuleOptions.of_json in
      let capacity = field_map json__ "Capacity" RuleCapacity.of_json in
      let type_ = field_map json__ "Type" RuleGroupType.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let ruleGroupName =
        field_map json__ "RuleGroupName" ResourceName.of_json in
      let ruleGroupArn = field_map json__ "RuleGroupArn" ResourceArn.of_json in
      make ?listingName ?productId ?vendorName ?lastModifiedTime
        ?statefulRuleOptions ?capacity ?type_ ?description ?ruleGroupName
        ?ruleGroupArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "High-level information about a rule group, returned by operations like create and describe. You can use the information provided in the metadata to retrieve and manage a rule group. You can retrieve all objects for a rule group by calling DescribeRuleGroup."]
module DescribeRuleGroupMetadataRequest =
  struct
    type nonrec t =
      {
      ruleGroupName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the rule group. You can't change the name of a rule group after you create it. You must specify the ARN or the name, and you can specify both."];
      ruleGroupArn: ResourceArn.t option
        [@ocaml.doc
          "The descriptive name of the rule group. You can't change the name of a rule group after you create it. You must specify the ARN or the name, and you can specify both."];
      type_: RuleGroupType.t option
        [@ocaml.doc
          "Indicates whether the rule group is stateless or stateful. If the rule group is stateless, it contains stateless rules. If it is stateful, it contains stateful rules. This setting is required for requests that do not include the RuleGroupARN."]}
    let make ?ruleGroupName =
      fun ?ruleGroupArn ->
        fun ?type_ -> fun () -> { ruleGroupName; ruleGroupArn; type_ }
    let to_value x =
      structure_to_value
        [("RuleGroupName",
           (Option.map x.ruleGroupName ~f:ResourceName.to_value));
        ("RuleGroupArn", (Option.map x.ruleGroupArn ~f:ResourceArn.to_value));
        ("Type", (Option.map x.type_ ~f:RuleGroupType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ =
        (Option.map ~f:RuleGroupType.of_xml) (Xml.child xml_arg0 "Type") in
      let ruleGroupArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "RuleGroupArn") in
      let ruleGroupName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "RuleGroupName") in
      make ?type_ ?ruleGroupArn ?ruleGroupName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map json__ "Type" RuleGroupType.of_json in
      let ruleGroupArn = field_map json__ "RuleGroupArn" ResourceArn.of_json in
      let ruleGroupName =
        field_map json__ "RuleGroupName" ResourceName.of_json in
      make ?type_ ?ruleGroupArn ?ruleGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "High-level information about a rule group, returned by operations like create and describe. You can use the information provided in the metadata to retrieve and manage a rule group. You can retrieve all objects for a rule group by calling DescribeRuleGroup."]
module DescribeResourcePolicyResponse =
  struct
    type nonrec t =
      {
      policy: PolicyString.t option
        [@ocaml.doc "The IAM policy for the resource."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?policy = fun () -> { policy }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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
        [("Policy", (Option.map x.policy ~f:PolicyString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policy =
        (Option.map ~f:PolicyString.of_xml) (Xml.child xml_arg0 "Policy") in
      make ?policy ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let policy = field_map json__ "Policy" PolicyString.of_json in
      make ?policy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a resource policy that you created in a PutResourcePolicy request."]
module DescribeResourcePolicyRequest =
  struct
    type nonrec t =
      {
      resourceArn: ResourceArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the rule group or firewall policy whose resource policy you want to retrieve."]}
    let context_ = "DescribeResourcePolicyRequest"
    let make ~resourceArn = fun () -> { resourceArn }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (ResourceArn.to_value x.resourceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        ResourceArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceArn") in
      make ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceArn =
        field_map_exn json__ "ResourceArn" ResourceArn.of_json in
      make ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a resource policy that you created in a PutResourcePolicy request."]
module DescribeProxyRuleResponse =
  struct
    type nonrec t =
      {
      proxyRule: ProxyRule.t option
        [@ocaml.doc "The configuration for the specified proxy rule."];
      updateToken: UpdateToken.t option
        [@ocaml.doc
          "A token used for optimistic locking. Network Firewall returns a token to your requests that access the proxy rule. The token marks the state of the proxy rule resource at the time of the request. To make changes to the proxy rule, you provide the token in your request. Network Firewall uses the token to ensure that the proxy rule hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the proxy rule again to get a current copy of it with a current token. Reapply your changes as needed, then try the operation again using the new token."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?proxyRule =
      fun ?updateToken -> fun () -> { proxyRule; updateToken }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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
        [("ProxyRule", (Option.map x.proxyRule ~f:ProxyRule.to_value));
        ("UpdateToken", (Option.map x.updateToken ~f:UpdateToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updateToken =
        (Option.map ~f:UpdateToken.of_xml) (Xml.child xml_arg0 "UpdateToken") in
      let proxyRule =
        (Option.map ~f:ProxyRule.of_xml) (Xml.child xml_arg0 "ProxyRule") in
      make ?updateToken ?proxyRule ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updateToken = field_map json__ "UpdateToken" UpdateToken.of_json in
      let proxyRule = field_map json__ "ProxyRule" ProxyRule.of_json in
      make ?updateToken ?proxyRule ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the data objects for the specified proxy configuration for the specified proxy rule group."]
module DescribeProxyRuleRequest =
  struct
    type nonrec t =
      {
      proxyRuleName: ResourceName.t
        [@ocaml.doc
          "The descriptive name of the proxy rule. You can't change the name of a proxy rule after you create it."];
      proxyRuleGroupName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the proxy rule group. You can't change the name of a proxy rule group after you create it. You must specify the ARN or the name, and you can specify both."];
      proxyRuleGroupArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of a proxy rule group. You must specify the ARN or the name, and you can specify both."]}
    let context_ = "DescribeProxyRuleRequest"
    let make ?proxyRuleGroupName =
      fun ?proxyRuleGroupArn ->
        fun ~proxyRuleName ->
          fun () -> { proxyRuleGroupName; proxyRuleGroupArn; proxyRuleName }
    let to_value x =
      structure_to_value
        [("ProxyRuleName", (Some (ResourceName.to_value x.proxyRuleName)));
        ("ProxyRuleGroupName",
          (Option.map x.proxyRuleGroupName ~f:ResourceName.to_value));
        ("ProxyRuleGroupArn",
          (Option.map x.proxyRuleGroupArn ~f:ResourceArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let proxyRuleGroupArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "ProxyRuleGroupArn") in
      let proxyRuleGroupName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "ProxyRuleGroupName") in
      let proxyRuleName =
        ResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ProxyRuleName") in
      make ?proxyRuleGroupArn ?proxyRuleGroupName ~proxyRuleName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let proxyRuleGroupArn =
        field_map json__ "ProxyRuleGroupArn" ResourceArn.of_json in
      let proxyRuleGroupName =
        field_map json__ "ProxyRuleGroupName" ResourceName.of_json in
      let proxyRuleName =
        field_map_exn json__ "ProxyRuleName" ResourceName.of_json in
      make ?proxyRuleGroupArn ?proxyRuleGroupName ~proxyRuleName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the data objects for the specified proxy configuration for the specified proxy rule group."]
module DescribeProxyRuleGroupResponse =
  struct
    type nonrec t =
      {
      proxyRuleGroup: ProxyRuleGroup.t option
        [@ocaml.doc "The configuration for the specified proxy rule group."];
      updateToken: UpdateToken.t option
        [@ocaml.doc
          "A token used for optimistic locking. Network Firewall returns a token to your requests that access the proxy rule group. The token marks the state of the proxy rule group resource at the time of the request. To make changes to the proxy rule group, you provide the token in your request. Network Firewall uses the token to ensure that the proxy rule group hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the proxy rule group again to get a current copy of it with a current token. Reapply your changes as needed, then try the operation again using the new token."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?proxyRuleGroup =
      fun ?updateToken -> fun () -> { proxyRuleGroup; updateToken }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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
        [("ProxyRuleGroup",
           (Option.map x.proxyRuleGroup ~f:ProxyRuleGroup.to_value));
        ("UpdateToken", (Option.map x.updateToken ~f:UpdateToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updateToken =
        (Option.map ~f:UpdateToken.of_xml) (Xml.child xml_arg0 "UpdateToken") in
      let proxyRuleGroup =
        (Option.map ~f:ProxyRuleGroup.of_xml)
          (Xml.child xml_arg0 "ProxyRuleGroup") in
      make ?updateToken ?proxyRuleGroup ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updateToken = field_map json__ "UpdateToken" UpdateToken.of_json in
      let proxyRuleGroup =
        field_map json__ "ProxyRuleGroup" ProxyRuleGroup.of_json in
      make ?updateToken ?proxyRuleGroup ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the data objects for the specified proxy rule group."]
module DescribeProxyRuleGroupRequest =
  struct
    type nonrec t =
      {
      proxyRuleGroupName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the proxy rule group. You can't change the name of a proxy rule group after you create it. You must specify the ARN or the name, and you can specify both."];
      proxyRuleGroupArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of a proxy rule group. You must specify the ARN or the name, and you can specify both."]}
    let make ?proxyRuleGroupName =
      fun ?proxyRuleGroupArn ->
        fun () -> { proxyRuleGroupName; proxyRuleGroupArn }
    let to_value x =
      structure_to_value
        [("ProxyRuleGroupName",
           (Option.map x.proxyRuleGroupName ~f:ResourceName.to_value));
        ("ProxyRuleGroupArn",
          (Option.map x.proxyRuleGroupArn ~f:ResourceArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let proxyRuleGroupArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "ProxyRuleGroupArn") in
      let proxyRuleGroupName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "ProxyRuleGroupName") in
      make ?proxyRuleGroupArn ?proxyRuleGroupName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let proxyRuleGroupArn =
        field_map json__ "ProxyRuleGroupArn" ResourceArn.of_json in
      let proxyRuleGroupName =
        field_map json__ "ProxyRuleGroupName" ResourceName.of_json in
      make ?proxyRuleGroupArn ?proxyRuleGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the data objects for the specified proxy rule group."]
module DescribeProxyResponse =
  struct
    type nonrec t =
      {
      proxy: DescribeProxyResource.t option
        [@ocaml.doc "Proxy attached to a NAT gateway."];
      updateToken: UpdateToken.t option
        [@ocaml.doc
          "A token used for optimistic locking. Network Firewall returns a token to your requests that access the proxy. The token marks the state of the proxy resource at the time of the request. To make changes to the proxy, you provide the token in your request. Network Firewall uses the token to ensure that the proxy hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the proxy again to get a current copy of it with a current token. Reapply your changes as needed, then try the operation again using the new token."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?proxy = fun ?updateToken -> fun () -> { proxy; updateToken }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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
        [("Proxy", (Option.map x.proxy ~f:DescribeProxyResource.to_value));
        ("UpdateToken", (Option.map x.updateToken ~f:UpdateToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updateToken =
        (Option.map ~f:UpdateToken.of_xml) (Xml.child xml_arg0 "UpdateToken") in
      let proxy =
        (Option.map ~f:DescribeProxyResource.of_xml)
          (Xml.child xml_arg0 "Proxy") in
      make ?updateToken ?proxy ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updateToken = field_map json__ "UpdateToken" UpdateToken.of_json in
      let proxy = field_map json__ "Proxy" DescribeProxyResource.of_json in
      make ?updateToken ?proxy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns the data objects for the specified proxy."]
module DescribeProxyRequest =
  struct
    type nonrec t =
      {
      proxyName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the proxy. You can't change the name of a proxy after you create it. You must specify the ARN or the name, and you can specify both."];
      proxyArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of a proxy. You must specify the ARN or the name, and you can specify both."]}
    let make ?proxyName = fun ?proxyArn -> fun () -> { proxyName; proxyArn }
    let to_value x =
      structure_to_value
        [("ProxyName", (Option.map x.proxyName ~f:ResourceName.to_value));
        ("ProxyArn", (Option.map x.proxyArn ~f:ResourceArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let proxyArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "ProxyArn") in
      let proxyName =
        (Option.map ~f:ResourceName.of_xml) (Xml.child xml_arg0 "ProxyName") in
      make ?proxyArn ?proxyName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let proxyArn = field_map json__ "ProxyArn" ResourceArn.of_json in
      let proxyName = field_map json__ "ProxyName" ResourceName.of_json in
      make ?proxyArn ?proxyName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns the data objects for the specified proxy."]
module DescribeProxyConfigurationResponse =
  struct
    type nonrec t =
      {
      proxyConfiguration: ProxyConfiguration.t option
        [@ocaml.doc
          "The configuration for the specified proxy configuration."];
      updateToken: UpdateToken.t option
        [@ocaml.doc
          "A token used for optimistic locking. Network Firewall returns a token to your requests that access the proxy configuration. The token marks the state of the proxy configuration resource at the time of the request. To make changes to the proxy configuration, you provide the token in your request. Network Firewall uses the token to ensure that the proxy configuration hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the proxy configuration again to get a current copy of it with a current token. Reapply your changes as needed, then try the operation again using the new token."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?proxyConfiguration =
      fun ?updateToken -> fun () -> { proxyConfiguration; updateToken }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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
        [("ProxyConfiguration",
           (Option.map x.proxyConfiguration ~f:ProxyConfiguration.to_value));
        ("UpdateToken", (Option.map x.updateToken ~f:UpdateToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updateToken =
        (Option.map ~f:UpdateToken.of_xml) (Xml.child xml_arg0 "UpdateToken") in
      let proxyConfiguration =
        (Option.map ~f:ProxyConfiguration.of_xml)
          (Xml.child xml_arg0 "ProxyConfiguration") in
      make ?updateToken ?proxyConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updateToken = field_map json__ "UpdateToken" UpdateToken.of_json in
      let proxyConfiguration =
        field_map json__ "ProxyConfiguration" ProxyConfiguration.of_json in
      make ?updateToken ?proxyConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the data objects for the specified proxy configuration."]
module DescribeProxyConfigurationRequest =
  struct
    type nonrec t =
      {
      proxyConfigurationName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the proxy configuration. You can't change the name of a proxy configuration after you create it. You must specify the ARN or the name, and you can specify both."];
      proxyConfigurationArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of a proxy configuration. You must specify the ARN or the name, and you can specify both."]}
    let make ?proxyConfigurationName =
      fun ?proxyConfigurationArn ->
        fun () -> { proxyConfigurationName; proxyConfigurationArn }
    let to_value x =
      structure_to_value
        [("ProxyConfigurationName",
           (Option.map x.proxyConfigurationName ~f:ResourceName.to_value));
        ("ProxyConfigurationArn",
          (Option.map x.proxyConfigurationArn ~f:ResourceArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let proxyConfigurationArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "ProxyConfigurationArn") in
      let proxyConfigurationName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "ProxyConfigurationName") in
      make ?proxyConfigurationArn ?proxyConfigurationName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let proxyConfigurationArn =
        field_map json__ "ProxyConfigurationArn" ResourceArn.of_json in
      let proxyConfigurationName =
        field_map json__ "ProxyConfigurationName" ResourceName.of_json in
      make ?proxyConfigurationArn ?proxyConfigurationName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the data objects for the specified proxy configuration."]
module DescribeLoggingConfigurationResponse =
  struct
    type nonrec t =
      {
      firewallArn: ResourceArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the firewall."];
      loggingConfiguration: LoggingConfiguration.t option ;
      enableMonitoringDashboard: EnableMonitoringDashboard.t option
        [@ocaml.doc
          "A boolean that reflects whether or not the firewall monitoring dashboard is enabled on a firewall. Returns TRUE when the firewall monitoring dashboard is enabled on the firewall. Returns FALSE when the firewall monitoring dashboard is not enabled on the firewall."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?firewallArn =
      fun ?loggingConfiguration ->
        fun ?enableMonitoringDashboard ->
          fun () ->
            { firewallArn; loggingConfiguration; enableMonitoringDashboard }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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
        [("FirewallArn", (Option.map x.firewallArn ~f:ResourceArn.to_value));
        ("LoggingConfiguration",
          (Option.map x.loggingConfiguration ~f:LoggingConfiguration.to_value));
        ("EnableMonitoringDashboard",
          (Option.map x.enableMonitoringDashboard
             ~f:EnableMonitoringDashboard.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let enableMonitoringDashboard =
        (Option.map ~f:EnableMonitoringDashboard.of_xml)
          (Xml.child xml_arg0 "EnableMonitoringDashboard") in
      let loggingConfiguration =
        (Option.map ~f:LoggingConfiguration.of_xml)
          (Xml.child xml_arg0 "LoggingConfiguration") in
      let firewallArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "FirewallArn") in
      make ?enableMonitoringDashboard ?loggingConfiguration ?firewallArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let enableMonitoringDashboard =
        field_map json__ "EnableMonitoringDashboard"
          EnableMonitoringDashboard.of_json in
      let loggingConfiguration =
        field_map json__ "LoggingConfiguration" LoggingConfiguration.of_json in
      let firewallArn = field_map json__ "FirewallArn" ResourceArn.of_json in
      make ?enableMonitoringDashboard ?loggingConfiguration ?firewallArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the logging configuration for the specified firewall."]
module DescribeLoggingConfigurationRequest =
  struct
    type nonrec t =
      {
      firewallArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the firewall. You must specify the ARN or the name, and you can specify both."];
      firewallName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the firewall. You can't change the name of a firewall after you create it. You must specify the ARN or the name, and you can specify both."]}
    let make ?firewallArn =
      fun ?firewallName -> fun () -> { firewallArn; firewallName }
    let to_value x =
      structure_to_value
        [("FirewallArn", (Option.map x.firewallArn ~f:ResourceArn.to_value));
        ("FirewallName",
          (Option.map x.firewallName ~f:ResourceName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let firewallName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "FirewallName") in
      let firewallArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "FirewallArn") in
      make ?firewallName ?firewallArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let firewallName = field_map json__ "FirewallName" ResourceName.of_json in
      let firewallArn = field_map json__ "FirewallArn" ResourceArn.of_json in
      make ?firewallName ?firewallArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the logging configuration for the specified firewall."]
module DescribeFlowOperationResponse =
  struct
    type nonrec t =
      {
      firewallArn: ResourceArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the firewall."];
      availabilityZone: AvailabilityZone.t option
        [@ocaml.doc
          "The ID of the Availability Zone where the firewall is located. For example, us-east-2a. Defines the scope a flow operation. You can use up to 20 filters to configure a single flow operation."];
      vpcEndpointAssociationArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of a VPC endpoint association."];
      vpcEndpointId: VpcEndpointId.t option
        [@ocaml.doc
          "A unique identifier for the primary endpoint associated with a firewall."];
      flowOperationId: FlowOperationId.t option
        [@ocaml.doc
          "A unique identifier for the flow operation. This ID is returned in the responses to start and list commands. You provide to describe commands."];
      flowOperationType: FlowOperationType.t option
        [@ocaml.doc "Defines the type of FlowOperation."];
      flowOperationStatus: FlowOperationStatus.t option
        [@ocaml.doc
          "Returns the status of the flow operation. This string is returned in the responses to start, list, and describe commands. If the status is COMPLETED_WITH_ERRORS, results may be returned with any number of Flows missing from the response. If the status is FAILED, Flows returned will be empty."];
      statusMessage: StatusReason.t option
        [@ocaml.doc
          "If the asynchronous operation fails, Network Firewall populates this with the reason for the error or failure. Options include Flow operation error and Flow timeout."];
      flowRequestTimestamp: FlowRequestTimestamp.t option
        [@ocaml.doc
          "A timestamp indicating when the Suricata engine identified flows impacted by an operation."];
      flowOperation: FlowOperation.t option
        [@ocaml.doc
          "Returns key information about a flow operation, such as related statuses, unique identifiers, and all filters defined in the operation."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?firewallArn =
      fun ?availabilityZone ->
        fun ?vpcEndpointAssociationArn ->
          fun ?vpcEndpointId ->
            fun ?flowOperationId ->
              fun ?flowOperationType ->
                fun ?flowOperationStatus ->
                  fun ?statusMessage ->
                    fun ?flowRequestTimestamp ->
                      fun ?flowOperation ->
                        fun () ->
                          {
                            firewallArn;
                            availabilityZone;
                            vpcEndpointAssociationArn;
                            vpcEndpointId;
                            flowOperationId;
                            flowOperationType;
                            flowOperationStatus;
                            statusMessage;
                            flowRequestTimestamp;
                            flowOperation
                          }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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
        [("FirewallArn", (Option.map x.firewallArn ~f:ResourceArn.to_value));
        ("AvailabilityZone",
          (Option.map x.availabilityZone ~f:AvailabilityZone.to_value));
        ("VpcEndpointAssociationArn",
          (Option.map x.vpcEndpointAssociationArn ~f:ResourceArn.to_value));
        ("VpcEndpointId",
          (Option.map x.vpcEndpointId ~f:VpcEndpointId.to_value));
        ("FlowOperationId",
          (Option.map x.flowOperationId ~f:FlowOperationId.to_value));
        ("FlowOperationType",
          (Option.map x.flowOperationType ~f:FlowOperationType.to_value));
        ("FlowOperationStatus",
          (Option.map x.flowOperationStatus ~f:FlowOperationStatus.to_value));
        ("StatusMessage",
          (Option.map x.statusMessage ~f:StatusReason.to_value));
        ("FlowRequestTimestamp",
          (Option.map x.flowRequestTimestamp ~f:FlowRequestTimestamp.to_value));
        ("FlowOperation",
          (Option.map x.flowOperation ~f:FlowOperation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let flowOperation =
        (Option.map ~f:FlowOperation.of_xml)
          (Xml.child xml_arg0 "FlowOperation") in
      let flowRequestTimestamp =
        (Option.map ~f:FlowRequestTimestamp.of_xml)
          (Xml.child xml_arg0 "FlowRequestTimestamp") in
      let statusMessage =
        (Option.map ~f:StatusReason.of_xml)
          (Xml.child xml_arg0 "StatusMessage") in
      let flowOperationStatus =
        (Option.map ~f:FlowOperationStatus.of_xml)
          (Xml.child xml_arg0 "FlowOperationStatus") in
      let flowOperationType =
        (Option.map ~f:FlowOperationType.of_xml)
          (Xml.child xml_arg0 "FlowOperationType") in
      let flowOperationId =
        (Option.map ~f:FlowOperationId.of_xml)
          (Xml.child xml_arg0 "FlowOperationId") in
      let vpcEndpointId =
        (Option.map ~f:VpcEndpointId.of_xml)
          (Xml.child xml_arg0 "VpcEndpointId") in
      let vpcEndpointAssociationArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "VpcEndpointAssociationArn") in
      let availabilityZone =
        (Option.map ~f:AvailabilityZone.of_xml)
          (Xml.child xml_arg0 "AvailabilityZone") in
      let firewallArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "FirewallArn") in
      make ?flowOperation ?flowRequestTimestamp ?statusMessage
        ?flowOperationStatus ?flowOperationType ?flowOperationId
        ?vpcEndpointId ?vpcEndpointAssociationArn ?availabilityZone
        ?firewallArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let flowOperation =
        field_map json__ "FlowOperation" FlowOperation.of_json in
      let flowRequestTimestamp =
        field_map json__ "FlowRequestTimestamp" FlowRequestTimestamp.of_json in
      let statusMessage =
        field_map json__ "StatusMessage" StatusReason.of_json in
      let flowOperationStatus =
        field_map json__ "FlowOperationStatus" FlowOperationStatus.of_json in
      let flowOperationType =
        field_map json__ "FlowOperationType" FlowOperationType.of_json in
      let flowOperationId =
        field_map json__ "FlowOperationId" FlowOperationId.of_json in
      let vpcEndpointId =
        field_map json__ "VpcEndpointId" VpcEndpointId.of_json in
      let vpcEndpointAssociationArn =
        field_map json__ "VpcEndpointAssociationArn" ResourceArn.of_json in
      let availabilityZone =
        field_map json__ "AvailabilityZone" AvailabilityZone.of_json in
      let firewallArn = field_map json__ "FirewallArn" ResourceArn.of_json in
      make ?flowOperation ?flowRequestTimestamp ?statusMessage
        ?flowOperationStatus ?flowOperationType ?flowOperationId
        ?vpcEndpointId ?vpcEndpointAssociationArn ?availabilityZone
        ?firewallArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns key information about a specific flow operation."]
module DescribeFlowOperationRequest =
  struct
    type nonrec t =
      {
      firewallArn: ResourceArn.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the firewall."];
      availabilityZone: AvailabilityZone.t option
        [@ocaml.doc
          "The ID of the Availability Zone where the firewall is located. For example, us-east-2a. Defines the scope a flow operation. You can use up to 20 filters to configure a single flow operation."];
      vpcEndpointAssociationArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of a VPC endpoint association."];
      vpcEndpointId: VpcEndpointId.t option
        [@ocaml.doc
          "A unique identifier for the primary endpoint associated with a firewall."];
      flowOperationId: FlowOperationId.t
        [@ocaml.doc
          "A unique identifier for the flow operation. This ID is returned in the responses to start and list commands. You provide to describe commands."]}
    let context_ = "DescribeFlowOperationRequest"
    let make ?availabilityZone =
      fun ?vpcEndpointAssociationArn ->
        fun ?vpcEndpointId ->
          fun ~firewallArn ->
            fun ~flowOperationId ->
              fun () ->
                {
                  availabilityZone;
                  vpcEndpointAssociationArn;
                  vpcEndpointId;
                  firewallArn;
                  flowOperationId
                }
    let to_value x =
      structure_to_value
        [("FirewallArn", (Some (ResourceArn.to_value x.firewallArn)));
        ("AvailabilityZone",
          (Option.map x.availabilityZone ~f:AvailabilityZone.to_value));
        ("VpcEndpointAssociationArn",
          (Option.map x.vpcEndpointAssociationArn ~f:ResourceArn.to_value));
        ("VpcEndpointId",
          (Option.map x.vpcEndpointId ~f:VpcEndpointId.to_value));
        ("FlowOperationId",
          (Some (FlowOperationId.to_value x.flowOperationId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let flowOperationId =
        FlowOperationId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FlowOperationId") in
      let vpcEndpointId =
        (Option.map ~f:VpcEndpointId.of_xml)
          (Xml.child xml_arg0 "VpcEndpointId") in
      let vpcEndpointAssociationArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "VpcEndpointAssociationArn") in
      let availabilityZone =
        (Option.map ~f:AvailabilityZone.of_xml)
          (Xml.child xml_arg0 "AvailabilityZone") in
      let firewallArn =
        ResourceArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FirewallArn") in
      make ~flowOperationId ?vpcEndpointId ?vpcEndpointAssociationArn
        ?availabilityZone ~firewallArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let flowOperationId =
        field_map_exn json__ "FlowOperationId" FlowOperationId.of_json in
      let vpcEndpointId =
        field_map json__ "VpcEndpointId" VpcEndpointId.of_json in
      let vpcEndpointAssociationArn =
        field_map json__ "VpcEndpointAssociationArn" ResourceArn.of_json in
      let availabilityZone =
        field_map json__ "AvailabilityZone" AvailabilityZone.of_json in
      let firewallArn =
        field_map_exn json__ "FirewallArn" ResourceArn.of_json in
      make ~flowOperationId ?vpcEndpointId ?vpcEndpointAssociationArn
        ?availabilityZone ~firewallArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns key information about a specific flow operation."]
module DescribeFirewallResponse =
  struct
    type nonrec t =
      {
      updateToken: UpdateToken.t option
        [@ocaml.doc
          "An optional token that you can use for optimistic locking. Network Firewall returns a token to your requests that access the firewall. The token marks the state of the firewall resource at the time of the request. To make an unconditional change to the firewall, omit the token in your update request. Without the token, Network Firewall performs your updates regardless of whether the firewall has changed since you last retrieved it. To make a conditional change to the firewall, provide the token in your update request. Network Firewall uses the token to ensure that the firewall hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the firewall again to get a current copy of it with a new token. Reapply your changes as needed, then try the operation again using the new token."];
      firewall: Firewall.t option
        [@ocaml.doc
          "The configuration settings for the firewall. These settings include the firewall policy and the subnets in your VPC to use for the firewall endpoints."];
      firewallStatus: FirewallStatus.t option
        [@ocaml.doc
          "Detailed information about the current status of a Firewall. You can retrieve this for a firewall by calling DescribeFirewall and providing the firewall name and ARN. The firewall status indicates a combined status. It indicates whether all subnets are up-to-date with the latest firewall configurations, which is based on the sync states config values, and also whether all subnets have their endpoints fully enabled, based on their sync states attachment values."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?updateToken =
      fun ?firewall ->
        fun ?firewallStatus ->
          fun () -> { updateToken; firewall; firewallStatus }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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
        [("UpdateToken", (Option.map x.updateToken ~f:UpdateToken.to_value));
        ("Firewall", (Option.map x.firewall ~f:Firewall.to_value));
        ("FirewallStatus",
          (Option.map x.firewallStatus ~f:FirewallStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let firewallStatus =
        (Option.map ~f:FirewallStatus.of_xml)
          (Xml.child xml_arg0 "FirewallStatus") in
      let firewall =
        (Option.map ~f:Firewall.of_xml) (Xml.child xml_arg0 "Firewall") in
      let updateToken =
        (Option.map ~f:UpdateToken.of_xml) (Xml.child xml_arg0 "UpdateToken") in
      make ?firewallStatus ?firewall ?updateToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let firewallStatus =
        field_map json__ "FirewallStatus" FirewallStatus.of_json in
      let firewall = field_map json__ "Firewall" Firewall.of_json in
      let updateToken = field_map json__ "UpdateToken" UpdateToken.of_json in
      make ?firewallStatus ?firewall ?updateToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns the data objects for the specified firewall."]
module DescribeFirewallRequest =
  struct
    type nonrec t =
      {
      firewallName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the firewall. You can't change the name of a firewall after you create it. You must specify the ARN or the name, and you can specify both."];
      firewallArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the firewall. You must specify the ARN or the name, and you can specify both."]}
    let make ?firewallName =
      fun ?firewallArn -> fun () -> { firewallName; firewallArn }
    let to_value x =
      structure_to_value
        [("FirewallName",
           (Option.map x.firewallName ~f:ResourceName.to_value));
        ("FirewallArn", (Option.map x.firewallArn ~f:ResourceArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let firewallArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "FirewallArn") in
      let firewallName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "FirewallName") in
      make ?firewallArn ?firewallName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let firewallArn = field_map json__ "FirewallArn" ResourceArn.of_json in
      let firewallName = field_map json__ "FirewallName" ResourceName.of_json in
      make ?firewallArn ?firewallName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns the data objects for the specified firewall."]
module DescribeFirewallPolicyResponse =
  struct
    type nonrec t =
      {
      updateToken: UpdateToken.t option
        [@ocaml.doc
          "A token used for optimistic locking. Network Firewall returns a token to your requests that access the firewall policy. The token marks the state of the policy resource at the time of the request. To make changes to the policy, you provide the token in your request. Network Firewall uses the token to ensure that the policy hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the firewall policy again to get a current copy of it with current token. Reapply your changes as needed, then try the operation again using the new token."];
      firewallPolicyResponse: FirewallPolicyResponse.t option
        [@ocaml.doc
          "The high-level properties of a firewall policy. This, along with the FirewallPolicy, define the policy. You can retrieve all objects for a firewall policy by calling DescribeFirewallPolicy."];
      firewallPolicy: FirewallPolicy.t option
        [@ocaml.doc "The policy for the specified firewall policy."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?updateToken =
      fun ?firewallPolicyResponse ->
        fun ?firewallPolicy ->
          fun () -> { updateToken; firewallPolicyResponse; firewallPolicy }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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
        [("UpdateToken", (Option.map x.updateToken ~f:UpdateToken.to_value));
        ("FirewallPolicyResponse",
          (Option.map x.firewallPolicyResponse
             ~f:FirewallPolicyResponse.to_value));
        ("FirewallPolicy",
          (Option.map x.firewallPolicy ~f:FirewallPolicy.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let firewallPolicy =
        (Option.map ~f:FirewallPolicy.of_xml)
          (Xml.child xml_arg0 "FirewallPolicy") in
      let firewallPolicyResponse =
        (Option.map ~f:FirewallPolicyResponse.of_xml)
          (Xml.child xml_arg0 "FirewallPolicyResponse") in
      let updateToken =
        (Option.map ~f:UpdateToken.of_xml) (Xml.child xml_arg0 "UpdateToken") in
      make ?firewallPolicy ?firewallPolicyResponse ?updateToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let firewallPolicy =
        field_map json__ "FirewallPolicy" FirewallPolicy.of_json in
      let firewallPolicyResponse =
        field_map json__ "FirewallPolicyResponse"
          FirewallPolicyResponse.of_json in
      let updateToken = field_map json__ "UpdateToken" UpdateToken.of_json in
      make ?firewallPolicy ?firewallPolicyResponse ?updateToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the data objects for the specified firewall policy."]
module DescribeFirewallPolicyRequest =
  struct
    type nonrec t =
      {
      firewallPolicyName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the firewall policy. You can't change the name of a firewall policy after you create it. You must specify the ARN or the name, and you can specify both."];
      firewallPolicyArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the firewall policy. You must specify the ARN or the name, and you can specify both."]}
    let make ?firewallPolicyName =
      fun ?firewallPolicyArn ->
        fun () -> { firewallPolicyName; firewallPolicyArn }
    let to_value x =
      structure_to_value
        [("FirewallPolicyName",
           (Option.map x.firewallPolicyName ~f:ResourceName.to_value));
        ("FirewallPolicyArn",
          (Option.map x.firewallPolicyArn ~f:ResourceArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let firewallPolicyArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "FirewallPolicyArn") in
      let firewallPolicyName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "FirewallPolicyName") in
      make ?firewallPolicyArn ?firewallPolicyName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let firewallPolicyArn =
        field_map json__ "FirewallPolicyArn" ResourceArn.of_json in
      let firewallPolicyName =
        field_map json__ "FirewallPolicyName" ResourceName.of_json in
      make ?firewallPolicyArn ?firewallPolicyName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the data objects for the specified firewall policy."]
module DescribeFirewallMetadataResponse =
  struct
    type nonrec t =
      {
      firewallArn: ResourceArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the firewall."];
      firewallPolicyArn: ResourceArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the firewall policy."];
      description: Description.t option
        [@ocaml.doc "A description of the firewall."];
      status: FirewallStatusValue.t option
        [@ocaml.doc
          "The readiness of the configured firewall to handle network traffic across all of the Availability Zones where you have it configured. This setting is READY only when the ConfigurationSyncStateSummary value is IN_SYNC and the Attachment Status values for all of the configured subnets are READY."];
      supportedAvailabilityZones: SupportedAvailabilityZones.t option
        [@ocaml.doc
          "The Availability Zones that the firewall currently supports. This includes all Availability Zones for which the firewall has a subnet defined."];
      transitGatewayAttachmentId: TransitGatewayAttachmentId.t option
        [@ocaml.doc
          "The unique identifier of the transit gateway attachment associated with this firewall. This field is only present for transit gateway-attached firewalls."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?firewallArn =
      fun ?firewallPolicyArn ->
        fun ?description ->
          fun ?status ->
            fun ?supportedAvailabilityZones ->
              fun ?transitGatewayAttachmentId ->
                fun () ->
                  {
                    firewallArn;
                    firewallPolicyArn;
                    description;
                    status;
                    supportedAvailabilityZones;
                    transitGatewayAttachmentId
                  }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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
        [("FirewallArn", (Option.map x.firewallArn ~f:ResourceArn.to_value));
        ("FirewallPolicyArn",
          (Option.map x.firewallPolicyArn ~f:ResourceArn.to_value));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("Status", (Option.map x.status ~f:FirewallStatusValue.to_value));
        ("SupportedAvailabilityZones",
          (Option.map x.supportedAvailabilityZones
             ~f:SupportedAvailabilityZones.to_value));
        ("TransitGatewayAttachmentId",
          (Option.map x.transitGatewayAttachmentId
             ~f:TransitGatewayAttachmentId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let transitGatewayAttachmentId =
        (Option.map ~f:TransitGatewayAttachmentId.of_xml)
          (Xml.child xml_arg0 "TransitGatewayAttachmentId") in
      let supportedAvailabilityZones =
        (Option.map ~f:SupportedAvailabilityZones.of_xml)
          (Xml.child xml_arg0 "SupportedAvailabilityZones") in
      let status =
        (Option.map ~f:FirewallStatusValue.of_xml)
          (Xml.child xml_arg0 "Status") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let firewallPolicyArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "FirewallPolicyArn") in
      let firewallArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "FirewallArn") in
      make ?transitGatewayAttachmentId ?supportedAvailabilityZones ?status
        ?description ?firewallPolicyArn ?firewallArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let transitGatewayAttachmentId =
        field_map json__ "TransitGatewayAttachmentId"
          TransitGatewayAttachmentId.of_json in
      let supportedAvailabilityZones =
        field_map json__ "SupportedAvailabilityZones"
          SupportedAvailabilityZones.of_json in
      let status = field_map json__ "Status" FirewallStatusValue.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let firewallPolicyArn =
        field_map json__ "FirewallPolicyArn" ResourceArn.of_json in
      let firewallArn = field_map json__ "FirewallArn" ResourceArn.of_json in
      make ?transitGatewayAttachmentId ?supportedAvailabilityZones ?status
        ?description ?firewallPolicyArn ?firewallArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the high-level information about a firewall, including the Availability Zones where the Firewall is currently in use."]
module DescribeFirewallMetadataRequest =
  struct
    type nonrec t =
      {
      firewallArn: ResourceArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the firewall."]}
    let make ?firewallArn = fun () -> { firewallArn }
    let to_value x =
      structure_to_value
        [("FirewallArn", (Option.map x.firewallArn ~f:ResourceArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let firewallArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "FirewallArn") in
      make ?firewallArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let firewallArn = field_map json__ "FirewallArn" ResourceArn.of_json in
      make ?firewallArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the high-level information about a firewall, including the Availability Zones where the Firewall is currently in use."]
module DeleteVpcEndpointAssociationResponse =
  struct
    type nonrec t =
      {
      vpcEndpointAssociation: VpcEndpointAssociation.t option
        [@ocaml.doc
          "The configuration settings for the VPC endpoint association. These settings include the firewall and the VPC and subnet to use for the firewall endpoint."];
      vpcEndpointAssociationStatus: VpcEndpointAssociationStatus.t option
        [@ocaml.doc
          "Detailed information about the current status of a VpcEndpointAssociation. You can retrieve this by calling DescribeVpcEndpointAssociation and providing the VPC endpoint association ARN."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidOperationException of InvalidOperationException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?vpcEndpointAssociation =
      fun ?vpcEndpointAssociationStatus ->
        fun () -> { vpcEndpointAssociation; vpcEndpointAssociationStatus }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidOperationException" ->
          `InvalidOperationException (InvalidOperationException.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidOperationException" ->
          `InvalidOperationException (InvalidOperationException.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidOperationException e ->
          `Assoc
            [("error", (`String "InvalidOperationException"));
            ("details", (InvalidOperationException.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
        [("VpcEndpointAssociation",
           (Option.map x.vpcEndpointAssociation
              ~f:VpcEndpointAssociation.to_value));
        ("VpcEndpointAssociationStatus",
          (Option.map x.vpcEndpointAssociationStatus
             ~f:VpcEndpointAssociationStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vpcEndpointAssociationStatus =
        (Option.map ~f:VpcEndpointAssociationStatus.of_xml)
          (Xml.child xml_arg0 "VpcEndpointAssociationStatus") in
      let vpcEndpointAssociation =
        (Option.map ~f:VpcEndpointAssociation.of_xml)
          (Xml.child xml_arg0 "VpcEndpointAssociation") in
      make ?vpcEndpointAssociationStatus ?vpcEndpointAssociation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vpcEndpointAssociationStatus =
        field_map json__ "VpcEndpointAssociationStatus"
          VpcEndpointAssociationStatus.of_json in
      let vpcEndpointAssociation =
        field_map json__ "VpcEndpointAssociation"
          VpcEndpointAssociation.of_json in
      make ?vpcEndpointAssociationStatus ?vpcEndpointAssociation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the specified VpcEndpointAssociation. You can check whether an endpoint association is in use by reviewing the route tables for the Availability Zones where you have the endpoint subnet mapping. You can retrieve the subnet mapping by calling DescribeVpcEndpointAssociation. You define and update the route tables through Amazon VPC. As needed, update the route tables for the Availability Zone to remove the firewall endpoint for the association. When the route tables no longer use the firewall endpoint, you can remove the endpoint association safely."]
module DeleteVpcEndpointAssociationRequest =
  struct
    type nonrec t =
      {
      vpcEndpointAssociationArn: ResourceArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of a VPC endpoint association."]}
    let context_ = "DeleteVpcEndpointAssociationRequest"
    let make ~vpcEndpointAssociationArn =
      fun () -> { vpcEndpointAssociationArn }
    let to_value x =
      structure_to_value
        [("VpcEndpointAssociationArn",
           (Some (ResourceArn.to_value x.vpcEndpointAssociationArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vpcEndpointAssociationArn =
        ResourceArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "VpcEndpointAssociationArn") in
      make ~vpcEndpointAssociationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vpcEndpointAssociationArn =
        field_map_exn json__ "VpcEndpointAssociationArn" ResourceArn.of_json in
      make ~vpcEndpointAssociationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the specified VpcEndpointAssociation. You can check whether an endpoint association is in use by reviewing the route tables for the Availability Zones where you have the endpoint subnet mapping. You can retrieve the subnet mapping by calling DescribeVpcEndpointAssociation. You define and update the route tables through Amazon VPC. As needed, update the route tables for the Availability Zone to remove the firewall endpoint for the association. When the route tables no longer use the firewall endpoint, you can remove the endpoint association safely."]
module DeleteTLSInspectionConfigurationResponse =
  struct
    type nonrec t =
      {
      tLSInspectionConfigurationResponse:
        TLSInspectionConfigurationResponse.t option
        [@ocaml.doc
          "The high-level properties of a TLS inspection configuration. This, along with the TLSInspectionConfiguration, define the TLS inspection configuration. You can retrieve all objects for a TLS inspection configuration by calling DescribeTLSInspectionConfiguration."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidOperationException of InvalidOperationException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tLSInspectionConfigurationResponse =
      fun () -> { tLSInspectionConfigurationResponse }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidOperationException" ->
          `InvalidOperationException (InvalidOperationException.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidOperationException" ->
          `InvalidOperationException (InvalidOperationException.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidOperationException e ->
          `Assoc
            [("error", (`String "InvalidOperationException"));
            ("details", (InvalidOperationException.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
        [("TLSInspectionConfigurationResponse",
           (Option.map x.tLSInspectionConfigurationResponse
              ~f:TLSInspectionConfigurationResponse.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tLSInspectionConfigurationResponse =
        (Option.map ~f:TLSInspectionConfigurationResponse.of_xml)
          (Xml.child xml_arg0 "TLSInspectionConfigurationResponse") in
      make ?tLSInspectionConfigurationResponse ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tLSInspectionConfigurationResponse =
        field_map json__ "TLSInspectionConfigurationResponse"
          TLSInspectionConfigurationResponse.of_json in
      make ?tLSInspectionConfigurationResponse ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes the specified TLSInspectionConfiguration."]
module DeleteTLSInspectionConfigurationRequest =
  struct
    type nonrec t =
      {
      tLSInspectionConfigurationArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the TLS inspection configuration. You must specify the ARN or the name, and you can specify both."];
      tLSInspectionConfigurationName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the TLS inspection configuration. You can't change the name of a TLS inspection configuration after you create it. You must specify the ARN or the name, and you can specify both."]}
    let make ?tLSInspectionConfigurationArn =
      fun ?tLSInspectionConfigurationName ->
        fun () ->
          { tLSInspectionConfigurationArn; tLSInspectionConfigurationName }
    let to_value x =
      structure_to_value
        [("TLSInspectionConfigurationArn",
           (Option.map x.tLSInspectionConfigurationArn
              ~f:ResourceArn.to_value));
        ("TLSInspectionConfigurationName",
          (Option.map x.tLSInspectionConfigurationName
             ~f:ResourceName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tLSInspectionConfigurationName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "TLSInspectionConfigurationName") in
      let tLSInspectionConfigurationArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "TLSInspectionConfigurationArn") in
      make ?tLSInspectionConfigurationName ?tLSInspectionConfigurationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tLSInspectionConfigurationName =
        field_map json__ "TLSInspectionConfigurationName"
          ResourceName.of_json in
      let tLSInspectionConfigurationArn =
        field_map json__ "TLSInspectionConfigurationArn" ResourceArn.of_json in
      make ?tLSInspectionConfigurationName ?tLSInspectionConfigurationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes the specified TLSInspectionConfiguration."]
module DeleteRuleGroupResponse =
  struct
    type nonrec t =
      {
      ruleGroupResponse: RuleGroupResponse.t option
        [@ocaml.doc
          "The high-level properties of a rule group. This, along with the RuleGroup, define the rule group. You can retrieve all objects for a rule group by calling DescribeRuleGroup."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidOperationException of InvalidOperationException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?ruleGroupResponse = fun () -> { ruleGroupResponse }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidOperationException" ->
          `InvalidOperationException (InvalidOperationException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidOperationException" ->
          `InvalidOperationException (InvalidOperationException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidOperationException e ->
          `Assoc
            [("error", (`String "InvalidOperationException"));
            ("details", (InvalidOperationException.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))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.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
        [("RuleGroupResponse",
           (Option.map x.ruleGroupResponse ~f:RuleGroupResponse.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ruleGroupResponse =
        (Option.map ~f:RuleGroupResponse.of_xml)
          (Xml.child xml_arg0 "RuleGroupResponse") in
      make ?ruleGroupResponse ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ruleGroupResponse =
        field_map json__ "RuleGroupResponse" RuleGroupResponse.of_json in
      make ?ruleGroupResponse ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes the specified RuleGroup."]
module DeleteRuleGroupRequest =
  struct
    type nonrec t =
      {
      ruleGroupName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the rule group. You can't change the name of a rule group after you create it. You must specify the ARN or the name, and you can specify both."];
      ruleGroupArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the rule group. You must specify the ARN or the name, and you can specify both."];
      type_: RuleGroupType.t option
        [@ocaml.doc
          "Indicates whether the rule group is stateless or stateful. If the rule group is stateless, it contains stateless rules. If it is stateful, it contains stateful rules. This setting is required for requests that do not include the RuleGroupARN."]}
    let make ?ruleGroupName =
      fun ?ruleGroupArn ->
        fun ?type_ -> fun () -> { ruleGroupName; ruleGroupArn; type_ }
    let to_value x =
      structure_to_value
        [("RuleGroupName",
           (Option.map x.ruleGroupName ~f:ResourceName.to_value));
        ("RuleGroupArn", (Option.map x.ruleGroupArn ~f:ResourceArn.to_value));
        ("Type", (Option.map x.type_ ~f:RuleGroupType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ =
        (Option.map ~f:RuleGroupType.of_xml) (Xml.child xml_arg0 "Type") in
      let ruleGroupArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "RuleGroupArn") in
      let ruleGroupName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "RuleGroupName") in
      make ?type_ ?ruleGroupArn ?ruleGroupName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map json__ "Type" RuleGroupType.of_json in
      let ruleGroupArn = field_map json__ "RuleGroupArn" ResourceArn.of_json in
      let ruleGroupName =
        field_map json__ "RuleGroupName" ResourceName.of_json in
      make ?type_ ?ruleGroupArn ?ruleGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes the specified RuleGroup."]
module DeleteResourcePolicyResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `InvalidResourcePolicyException of InvalidResourcePolicyException.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "InvalidResourcePolicyException" ->
          `InvalidResourcePolicyException
            (InvalidResourcePolicyException.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "InvalidResourcePolicyException" ->
          `InvalidResourcePolicyException
            (InvalidResourcePolicyException.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `InvalidResourcePolicyException e ->
          `Assoc
            [("error", (`String "InvalidResourcePolicyException"));
            ("details", (InvalidResourcePolicyException.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
       "Deletes a resource policy that you created in a PutResourcePolicy request."]
module DeleteResourcePolicyRequest =
  struct
    type nonrec t =
      {
      resourceArn: ResourceArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the rule group or firewall policy whose resource policy you want to delete."]}
    let context_ = "DeleteResourcePolicyRequest"
    let make ~resourceArn = fun () -> { resourceArn }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (ResourceArn.to_value x.resourceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        ResourceArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceArn") in
      make ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceArn =
        field_map_exn json__ "ResourceArn" ResourceArn.of_json in
      make ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a resource policy that you created in a PutResourcePolicy request."]
module DeleteProxyRulesResponse =
  struct
    type nonrec t =
      {
      proxyRuleGroup: ProxyRuleGroup.t option
        [@ocaml.doc
          "The properties that define the proxy rule group with the newly created proxy rule(s)."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?proxyRuleGroup = fun () -> { proxyRuleGroup }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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
        [("ProxyRuleGroup",
           (Option.map x.proxyRuleGroup ~f:ProxyRuleGroup.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let proxyRuleGroup =
        (Option.map ~f:ProxyRuleGroup.of_xml)
          (Xml.child xml_arg0 "ProxyRuleGroup") in
      make ?proxyRuleGroup ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let proxyRuleGroup =
        field_map json__ "ProxyRuleGroup" ProxyRuleGroup.of_json in
      make ?proxyRuleGroup ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the specified ProxyRule(s). currently attached to a ProxyRuleGroup"]
module DeleteProxyRulesRequest =
  struct
    type nonrec t =
      {
      proxyRuleGroupArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of a proxy rule group. You must specify the ARN or the name, and you can specify both."];
      proxyRuleGroupName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the proxy rule group. You can't change the name of a proxy rule group after you create it. You must specify the ARN or the name, and you can specify both."];
      rules: ResourceNameList.t
        [@ocaml.doc
          "The proxy rule(s) to remove from the existing proxy rule group."]}
    let context_ = "DeleteProxyRulesRequest"
    let make ?proxyRuleGroupArn =
      fun ?proxyRuleGroupName ->
        fun ~rules ->
          fun () -> { proxyRuleGroupArn; proxyRuleGroupName; rules }
    let to_value x =
      structure_to_value
        [("ProxyRuleGroupArn",
           (Option.map x.proxyRuleGroupArn ~f:ResourceArn.to_value));
        ("ProxyRuleGroupName",
          (Option.map x.proxyRuleGroupName ~f:ResourceName.to_value));
        ("Rules", (Some (ResourceNameList.to_value x.rules)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let rules =
        ResourceNameList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Rules") in
      let proxyRuleGroupName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "ProxyRuleGroupName") in
      let proxyRuleGroupArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "ProxyRuleGroupArn") in
      make ~rules ?proxyRuleGroupName ?proxyRuleGroupArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let rules = field_map_exn json__ "Rules" ResourceNameList.of_json in
      let proxyRuleGroupName =
        field_map json__ "ProxyRuleGroupName" ResourceName.of_json in
      let proxyRuleGroupArn =
        field_map json__ "ProxyRuleGroupArn" ResourceArn.of_json in
      make ~rules ?proxyRuleGroupName ?proxyRuleGroupArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the specified ProxyRule(s). currently attached to a ProxyRuleGroup"]
module DeleteProxyRuleGroupResponse =
  struct
    type nonrec t =
      {
      proxyRuleGroupName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the proxy rule group. You can't change the name of a proxy rule group after you create it."];
      proxyRuleGroupArn: ResourceArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of a proxy rule group."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?proxyRuleGroupName =
      fun ?proxyRuleGroupArn ->
        fun () -> { proxyRuleGroupName; proxyRuleGroupArn }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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
        [("ProxyRuleGroupName",
           (Option.map x.proxyRuleGroupName ~f:ResourceName.to_value));
        ("ProxyRuleGroupArn",
          (Option.map x.proxyRuleGroupArn ~f:ResourceArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let proxyRuleGroupArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "ProxyRuleGroupArn") in
      let proxyRuleGroupName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "ProxyRuleGroupName") in
      make ?proxyRuleGroupArn ?proxyRuleGroupName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let proxyRuleGroupArn =
        field_map json__ "ProxyRuleGroupArn" ResourceArn.of_json in
      let proxyRuleGroupName =
        field_map json__ "ProxyRuleGroupName" ResourceName.of_json in
      make ?proxyRuleGroupArn ?proxyRuleGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes the specified ProxyRuleGroup."]
module DeleteProxyRuleGroupRequest =
  struct
    type nonrec t =
      {
      proxyRuleGroupName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the proxy rule group. You can't change the name of a proxy rule group after you create it. You must specify the ARN or the name, and you can specify both."];
      proxyRuleGroupArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of a proxy rule group. You must specify the ARN or the name, and you can specify both."]}
    let make ?proxyRuleGroupName =
      fun ?proxyRuleGroupArn ->
        fun () -> { proxyRuleGroupName; proxyRuleGroupArn }
    let to_value x =
      structure_to_value
        [("ProxyRuleGroupName",
           (Option.map x.proxyRuleGroupName ~f:ResourceName.to_value));
        ("ProxyRuleGroupArn",
          (Option.map x.proxyRuleGroupArn ~f:ResourceArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let proxyRuleGroupArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "ProxyRuleGroupArn") in
      let proxyRuleGroupName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "ProxyRuleGroupName") in
      make ?proxyRuleGroupArn ?proxyRuleGroupName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let proxyRuleGroupArn =
        field_map json__ "ProxyRuleGroupArn" ResourceArn.of_json in
      let proxyRuleGroupName =
        field_map json__ "ProxyRuleGroupName" ResourceName.of_json in
      make ?proxyRuleGroupArn ?proxyRuleGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes the specified ProxyRuleGroup."]
module DeleteProxyResponse =
  struct
    type nonrec t =
      {
      natGatewayId: NatGatewayId.t option
        [@ocaml.doc "The NAT Gateway the Proxy was attached to."];
      proxyName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the proxy. You can't change the name of a proxy after you create it."];
      proxyArn: ResourceArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of a proxy."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?natGatewayId =
      fun ?proxyName ->
        fun ?proxyArn -> fun () -> { natGatewayId; proxyName; proxyArn }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.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
        [("NatGatewayId",
           (Option.map x.natGatewayId ~f:NatGatewayId.to_value));
        ("ProxyName", (Option.map x.proxyName ~f:ResourceName.to_value));
        ("ProxyArn", (Option.map x.proxyArn ~f:ResourceArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let proxyArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "ProxyArn") in
      let proxyName =
        (Option.map ~f:ResourceName.of_xml) (Xml.child xml_arg0 "ProxyName") in
      let natGatewayId =
        (Option.map ~f:NatGatewayId.of_xml)
          (Xml.child xml_arg0 "NatGatewayId") in
      make ?proxyArn ?proxyName ?natGatewayId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let proxyArn = field_map json__ "ProxyArn" ResourceArn.of_json in
      let proxyName = field_map json__ "ProxyName" ResourceName.of_json in
      let natGatewayId = field_map json__ "NatGatewayId" NatGatewayId.of_json in
      make ?proxyArn ?proxyName ?natGatewayId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the specified Proxy. Detaches a Proxy configuration from a NAT Gateway."]
module DeleteProxyRequest =
  struct
    type nonrec t =
      {
      natGatewayId: NatGatewayId.t
        [@ocaml.doc "The NAT Gateway the proxy is attached to."];
      proxyName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the proxy. You can't change the name of a proxy after you create it. You must specify the ARN or the name, and you can specify both."];
      proxyArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of a proxy. You must specify the ARN or the name, and you can specify both."]}
    let context_ = "DeleteProxyRequest"
    let make ?proxyName =
      fun ?proxyArn ->
        fun ~natGatewayId -> fun () -> { proxyName; proxyArn; natGatewayId }
    let to_value x =
      structure_to_value
        [("NatGatewayId", (Some (NatGatewayId.to_value x.natGatewayId)));
        ("ProxyName", (Option.map x.proxyName ~f:ResourceName.to_value));
        ("ProxyArn", (Option.map x.proxyArn ~f:ResourceArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let proxyArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "ProxyArn") in
      let proxyName =
        (Option.map ~f:ResourceName.of_xml) (Xml.child xml_arg0 "ProxyName") in
      let natGatewayId =
        NatGatewayId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "NatGatewayId") in
      make ?proxyArn ?proxyName ~natGatewayId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let proxyArn = field_map json__ "ProxyArn" ResourceArn.of_json in
      let proxyName = field_map json__ "ProxyName" ResourceName.of_json in
      let natGatewayId =
        field_map_exn json__ "NatGatewayId" NatGatewayId.of_json in
      make ?proxyArn ?proxyName ~natGatewayId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the specified Proxy. Detaches a Proxy configuration from a NAT Gateway."]
module DeleteProxyConfigurationResponse =
  struct
    type nonrec t =
      {
      proxyConfigurationName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the proxy configuration. You can't change the name of a proxy configuration after you create it."];
      proxyConfigurationArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of a proxy configuration."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?proxyConfigurationName =
      fun ?proxyConfigurationArn ->
        fun () -> { proxyConfigurationName; proxyConfigurationArn }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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
        [("ProxyConfigurationName",
           (Option.map x.proxyConfigurationName ~f:ResourceName.to_value));
        ("ProxyConfigurationArn",
          (Option.map x.proxyConfigurationArn ~f:ResourceArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let proxyConfigurationArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "ProxyConfigurationArn") in
      let proxyConfigurationName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "ProxyConfigurationName") in
      make ?proxyConfigurationArn ?proxyConfigurationName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let proxyConfigurationArn =
        field_map json__ "ProxyConfigurationArn" ResourceArn.of_json in
      let proxyConfigurationName =
        field_map json__ "ProxyConfigurationName" ResourceName.of_json in
      make ?proxyConfigurationArn ?proxyConfigurationName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes the specified ProxyConfiguration."]
module DeleteProxyConfigurationRequest =
  struct
    type nonrec t =
      {
      proxyConfigurationName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the proxy configuration. You can't change the name of a proxy configuration after you create it. You must specify the ARN or the name, and you can specify both."];
      proxyConfigurationArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of a proxy configuration. You must specify the ARN or the name, and you can specify both."]}
    let make ?proxyConfigurationName =
      fun ?proxyConfigurationArn ->
        fun () -> { proxyConfigurationName; proxyConfigurationArn }
    let to_value x =
      structure_to_value
        [("ProxyConfigurationName",
           (Option.map x.proxyConfigurationName ~f:ResourceName.to_value));
        ("ProxyConfigurationArn",
          (Option.map x.proxyConfigurationArn ~f:ResourceArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let proxyConfigurationArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "ProxyConfigurationArn") in
      let proxyConfigurationName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "ProxyConfigurationName") in
      make ?proxyConfigurationArn ?proxyConfigurationName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let proxyConfigurationArn =
        field_map json__ "ProxyConfigurationArn" ResourceArn.of_json in
      let proxyConfigurationName =
        field_map json__ "ProxyConfigurationName" ResourceName.of_json in
      make ?proxyConfigurationArn ?proxyConfigurationName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes the specified ProxyConfiguration."]
module DeleteNetworkFirewallTransitGatewayAttachmentResponse =
  struct
    type nonrec t =
      {
      transitGatewayAttachmentId: TransitGatewayAttachmentId.t option
        [@ocaml.doc
          "The ID of the transit gateway attachment that was deleted."];
      transitGatewayAttachmentStatus: TransitGatewayAttachmentStatus.t option
        [@ocaml.doc
          "The current status of the transit gateway attachment deletion process. Valid values are: CREATING - The attachment is being created DELETING - The attachment is being deleted DELETED - The attachment has been deleted FAILED - The attachment creation has failed and cannot be recovered ERROR - The attachment is in an error state that might be recoverable READY - The attachment is active and processing traffic PENDING_ACCEPTANCE - The attachment is waiting to be accepted REJECTING - The attachment is in the process of being rejected REJECTED - The attachment has been rejected"]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?transitGatewayAttachmentId =
      fun ?transitGatewayAttachmentStatus ->
        fun () ->
          { transitGatewayAttachmentId; transitGatewayAttachmentStatus }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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
        [("TransitGatewayAttachmentId",
           (Option.map x.transitGatewayAttachmentId
              ~f:TransitGatewayAttachmentId.to_value));
        ("TransitGatewayAttachmentStatus",
          (Option.map x.transitGatewayAttachmentStatus
             ~f:TransitGatewayAttachmentStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let transitGatewayAttachmentStatus =
        (Option.map ~f:TransitGatewayAttachmentStatus.of_xml)
          (Xml.child xml_arg0 "TransitGatewayAttachmentStatus") in
      let transitGatewayAttachmentId =
        (Option.map ~f:TransitGatewayAttachmentId.of_xml)
          (Xml.child xml_arg0 "TransitGatewayAttachmentId") in
      make ?transitGatewayAttachmentStatus ?transitGatewayAttachmentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let transitGatewayAttachmentStatus =
        field_map json__ "TransitGatewayAttachmentStatus"
          TransitGatewayAttachmentStatus.of_json in
      let transitGatewayAttachmentId =
        field_map json__ "TransitGatewayAttachmentId"
          TransitGatewayAttachmentId.of_json in
      make ?transitGatewayAttachmentStatus ?transitGatewayAttachmentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a transit gateway attachment from a Network Firewall. Either the firewall owner or the transit gateway owner can delete the attachment. After you delete a transit gateway attachment, traffic will no longer flow through the firewall endpoints. After you initiate the delete operation, use DescribeFirewall to monitor the deletion status."]
module DeleteNetworkFirewallTransitGatewayAttachmentRequest =
  struct
    type nonrec t =
      {
      transitGatewayAttachmentId: TransitGatewayAttachmentId.t
        [@ocaml.doc
          "Required. The unique identifier of the transit gateway attachment to delete."]}
    let context_ = "DeleteNetworkFirewallTransitGatewayAttachmentRequest"
    let make ~transitGatewayAttachmentId =
      fun () -> { transitGatewayAttachmentId }
    let to_value x =
      structure_to_value
        [("TransitGatewayAttachmentId",
           (Some
              (TransitGatewayAttachmentId.to_value
                 x.transitGatewayAttachmentId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let transitGatewayAttachmentId =
        TransitGatewayAttachmentId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "TransitGatewayAttachmentId") in
      make ~transitGatewayAttachmentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let transitGatewayAttachmentId =
        field_map_exn json__ "TransitGatewayAttachmentId"
          TransitGatewayAttachmentId.of_json in
      make ~transitGatewayAttachmentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a transit gateway attachment from a Network Firewall. Either the firewall owner or the transit gateway owner can delete the attachment. After you delete a transit gateway attachment, traffic will no longer flow through the firewall endpoints. After you initiate the delete operation, use DescribeFirewall to monitor the deletion status."]
module DeleteFirewallResponse =
  struct
    type nonrec t =
      {
      firewall: Firewall.t option ;
      firewallStatus: FirewallStatus.t option }
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidOperationException of InvalidOperationException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?firewall =
      fun ?firewallStatus -> fun () -> { firewall; firewallStatus }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidOperationException" ->
          `InvalidOperationException (InvalidOperationException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidOperationException" ->
          `InvalidOperationException (InvalidOperationException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidOperationException e ->
          `Assoc
            [("error", (`String "InvalidOperationException"));
            ("details", (InvalidOperationException.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))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.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
        [("Firewall", (Option.map x.firewall ~f:Firewall.to_value));
        ("FirewallStatus",
          (Option.map x.firewallStatus ~f:FirewallStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let firewallStatus =
        (Option.map ~f:FirewallStatus.of_xml)
          (Xml.child xml_arg0 "FirewallStatus") in
      let firewall =
        (Option.map ~f:Firewall.of_xml) (Xml.child xml_arg0 "Firewall") in
      make ?firewallStatus ?firewall ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let firewallStatus =
        field_map json__ "FirewallStatus" FirewallStatus.of_json in
      let firewall = field_map json__ "Firewall" Firewall.of_json in
      make ?firewallStatus ?firewall ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the specified Firewall and its FirewallStatus. This operation requires the firewall's DeleteProtection flag to be FALSE. You can't revert this operation. You can check whether a firewall is in use by reviewing the route tables for the Availability Zones where you have firewall subnet mappings. Retrieve the subnet mappings by calling DescribeFirewall. You define and update the route tables through Amazon VPC. As needed, update the route tables for the zones to remove the firewall endpoints. When the route tables no longer use the firewall endpoints, you can remove the firewall safely. To delete a firewall, remove the delete protection if you need to using UpdateFirewallDeleteProtection, then delete the firewall by calling DeleteFirewall."]
module DeleteFirewallRequest =
  struct
    type nonrec t =
      {
      firewallName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the firewall. You can't change the name of a firewall after you create it. You must specify the ARN or the name, and you can specify both."];
      firewallArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the firewall. You must specify the ARN or the name, and you can specify both."]}
    let make ?firewallName =
      fun ?firewallArn -> fun () -> { firewallName; firewallArn }
    let to_value x =
      structure_to_value
        [("FirewallName",
           (Option.map x.firewallName ~f:ResourceName.to_value));
        ("FirewallArn", (Option.map x.firewallArn ~f:ResourceArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let firewallArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "FirewallArn") in
      let firewallName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "FirewallName") in
      make ?firewallArn ?firewallName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let firewallArn = field_map json__ "FirewallArn" ResourceArn.of_json in
      let firewallName = field_map json__ "FirewallName" ResourceName.of_json in
      make ?firewallArn ?firewallName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the specified Firewall and its FirewallStatus. This operation requires the firewall's DeleteProtection flag to be FALSE. You can't revert this operation. You can check whether a firewall is in use by reviewing the route tables for the Availability Zones where you have firewall subnet mappings. Retrieve the subnet mappings by calling DescribeFirewall. You define and update the route tables through Amazon VPC. As needed, update the route tables for the zones to remove the firewall endpoints. When the route tables no longer use the firewall endpoints, you can remove the firewall safely. To delete a firewall, remove the delete protection if you need to using UpdateFirewallDeleteProtection, then delete the firewall by calling DeleteFirewall."]
module DeleteFirewallPolicyResponse =
  struct
    type nonrec t =
      {
      firewallPolicyResponse: FirewallPolicyResponse.t option
        [@ocaml.doc
          "The object containing the definition of the FirewallPolicyResponse that you asked to delete."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidOperationException of InvalidOperationException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?firewallPolicyResponse = fun () -> { firewallPolicyResponse }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidOperationException" ->
          `InvalidOperationException (InvalidOperationException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidOperationException" ->
          `InvalidOperationException (InvalidOperationException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidOperationException e ->
          `Assoc
            [("error", (`String "InvalidOperationException"));
            ("details", (InvalidOperationException.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))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.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
        [("FirewallPolicyResponse",
           (Option.map x.firewallPolicyResponse
              ~f:FirewallPolicyResponse.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let firewallPolicyResponse =
        (Option.map ~f:FirewallPolicyResponse.of_xml)
          (Xml.child xml_arg0 "FirewallPolicyResponse") in
      make ?firewallPolicyResponse ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let firewallPolicyResponse =
        field_map json__ "FirewallPolicyResponse"
          FirewallPolicyResponse.of_json in
      make ?firewallPolicyResponse ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes the specified FirewallPolicy."]
module DeleteFirewallPolicyRequest =
  struct
    type nonrec t =
      {
      firewallPolicyName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the firewall policy. You can't change the name of a firewall policy after you create it. You must specify the ARN or the name, and you can specify both."];
      firewallPolicyArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the firewall policy. You must specify the ARN or the name, and you can specify both."]}
    let make ?firewallPolicyName =
      fun ?firewallPolicyArn ->
        fun () -> { firewallPolicyName; firewallPolicyArn }
    let to_value x =
      structure_to_value
        [("FirewallPolicyName",
           (Option.map x.firewallPolicyName ~f:ResourceName.to_value));
        ("FirewallPolicyArn",
          (Option.map x.firewallPolicyArn ~f:ResourceArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let firewallPolicyArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "FirewallPolicyArn") in
      let firewallPolicyName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "FirewallPolicyName") in
      make ?firewallPolicyArn ?firewallPolicyName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let firewallPolicyArn =
        field_map json__ "FirewallPolicyArn" ResourceArn.of_json in
      let firewallPolicyName =
        field_map json__ "FirewallPolicyName" ResourceName.of_json in
      make ?firewallPolicyArn ?firewallPolicyName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes the specified FirewallPolicy."]
module CreateVpcEndpointAssociationResponse =
  struct
    type nonrec t =
      {
      vpcEndpointAssociation: VpcEndpointAssociation.t option
        [@ocaml.doc
          "The configuration settings for the VPC endpoint association. These settings include the firewall and the VPC and subnet to use for the firewall endpoint."];
      vpcEndpointAssociationStatus: VpcEndpointAssociationStatus.t option
        [@ocaml.doc
          "Detailed information about the current status of a VpcEndpointAssociation. You can retrieve this by calling DescribeVpcEndpointAssociation and providing the VPC endpoint association ARN."]}
    type nonrec error =
      [ `InsufficientCapacityException of InsufficientCapacityException.t 
      | `InternalServerError of InternalServerError.t 
      | `InvalidOperationException of InvalidOperationException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?vpcEndpointAssociation =
      fun ?vpcEndpointAssociationStatus ->
        fun () -> { vpcEndpointAssociation; vpcEndpointAssociationStatus }
    let error_of_json name json =
      match name with
      | "InsufficientCapacityException" ->
          `InsufficientCapacityException
            (InsufficientCapacityException.of_json json)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidOperationException" ->
          `InvalidOperationException (InvalidOperationException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.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
      | "InsufficientCapacityException" ->
          `InsufficientCapacityException
            (InsufficientCapacityException.of_xml xml)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidOperationException" ->
          `InvalidOperationException (InvalidOperationException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.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
      | `InsufficientCapacityException e ->
          `Assoc
            [("error", (`String "InsufficientCapacityException"));
            ("details", (InsufficientCapacityException.to_json e))]
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidOperationException e ->
          `Assoc
            [("error", (`String "InvalidOperationException"));
            ("details", (InvalidOperationException.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))]
      | `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
        [("VpcEndpointAssociation",
           (Option.map x.vpcEndpointAssociation
              ~f:VpcEndpointAssociation.to_value));
        ("VpcEndpointAssociationStatus",
          (Option.map x.vpcEndpointAssociationStatus
             ~f:VpcEndpointAssociationStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vpcEndpointAssociationStatus =
        (Option.map ~f:VpcEndpointAssociationStatus.of_xml)
          (Xml.child xml_arg0 "VpcEndpointAssociationStatus") in
      let vpcEndpointAssociation =
        (Option.map ~f:VpcEndpointAssociation.of_xml)
          (Xml.child xml_arg0 "VpcEndpointAssociation") in
      make ?vpcEndpointAssociationStatus ?vpcEndpointAssociation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vpcEndpointAssociationStatus =
        field_map json__ "VpcEndpointAssociationStatus"
          VpcEndpointAssociationStatus.of_json in
      let vpcEndpointAssociation =
        field_map json__ "VpcEndpointAssociation"
          VpcEndpointAssociation.of_json in
      make ?vpcEndpointAssociationStatus ?vpcEndpointAssociation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a firewall endpoint for an Network Firewall firewall. This type of firewall endpoint is independent of the firewall endpoints that you specify in the Firewall itself, and you define it in addition to those endpoints after the firewall has been created. You can define a VPC endpoint association using a different VPC than the one you used in the firewall specifications."]
module CreateVpcEndpointAssociationRequest =
  struct
    type nonrec t =
      {
      firewallArn: ResourceArn.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the firewall."];
      vpcId: VpcId.t
        [@ocaml.doc
          "The unique identifier of the VPC where you want to create a firewall endpoint."];
      subnetMapping: SubnetMapping.t ;
      description: Description.t option
        [@ocaml.doc "A description of the VPC endpoint association."];
      tags: TagList.t option
        [@ocaml.doc "The key:value pairs to associate with the resource."]}
    let context_ = "CreateVpcEndpointAssociationRequest"
    let make ?description =
      fun ?tags ->
        fun ~firewallArn ->
          fun ~vpcId ->
            fun ~subnetMapping ->
              fun () ->
                { description; tags; firewallArn; vpcId; subnetMapping }
    let to_value x =
      structure_to_value
        [("FirewallArn", (Some (ResourceArn.to_value x.firewallArn)));
        ("VpcId", (Some (VpcId.to_value x.vpcId)));
        ("SubnetMapping", (Some (SubnetMapping.to_value x.subnetMapping)));
        ("Description", (Option.map x.description ~f:Description.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 description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let subnetMapping =
        SubnetMapping.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SubnetMapping") in
      let vpcId =
        VpcId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "VpcId") in
      let firewallArn =
        ResourceArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FirewallArn") in
      make ?tags ?description ~subnetMapping ~vpcId ~firewallArn ()
    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 description = field_map json__ "Description" Description.of_json in
      let subnetMapping =
        field_map_exn json__ "SubnetMapping" SubnetMapping.of_json in
      let vpcId = field_map_exn json__ "VpcId" VpcId.of_json in
      let firewallArn =
        field_map_exn json__ "FirewallArn" ResourceArn.of_json in
      make ?tags ?description ~subnetMapping ~vpcId ~firewallArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a firewall endpoint for an Network Firewall firewall. This type of firewall endpoint is independent of the firewall endpoints that you specify in the Firewall itself, and you define it in addition to those endpoints after the firewall has been created. You can define a VPC endpoint association using a different VPC than the one you used in the firewall specifications."]
module CreateTLSInspectionConfigurationResponse =
  struct
    type nonrec t =
      {
      updateToken: UpdateToken.t option
        [@ocaml.doc
          "A token used for optimistic locking. Network Firewall returns a token to your requests that access the TLS inspection configuration. The token marks the state of the TLS inspection configuration resource at the time of the request. To make changes to the TLS inspection configuration, you provide the token in your request. Network Firewall uses the token to ensure that the TLS inspection configuration hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the TLS inspection configuration again to get a current copy of it with a current token. Reapply your changes as needed, then try the operation again using the new token."];
      tLSInspectionConfigurationResponse:
        TLSInspectionConfigurationResponse.t option
        [@ocaml.doc
          "The high-level properties of a TLS inspection configuration. This, along with the TLSInspectionConfiguration, define the TLS inspection configuration. You can retrieve all objects for a TLS inspection configuration by calling DescribeTLSInspectionConfiguration."]}
    type nonrec error =
      [ `InsufficientCapacityException of InsufficientCapacityException.t 
      | `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?updateToken =
      fun ?tLSInspectionConfigurationResponse ->
        fun () -> { updateToken; tLSInspectionConfigurationResponse }
    let error_of_json name json =
      match name with
      | "InsufficientCapacityException" ->
          `InsufficientCapacityException
            (InsufficientCapacityException.of_json json)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | "InsufficientCapacityException" ->
          `InsufficientCapacityException
            (InsufficientCapacityException.of_xml xml)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | `InsufficientCapacityException e ->
          `Assoc
            [("error", (`String "InsufficientCapacityException"));
            ("details", (InsufficientCapacityException.to_json e))]
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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
        [("UpdateToken", (Option.map x.updateToken ~f:UpdateToken.to_value));
        ("TLSInspectionConfigurationResponse",
          (Option.map x.tLSInspectionConfigurationResponse
             ~f:TLSInspectionConfigurationResponse.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tLSInspectionConfigurationResponse =
        (Option.map ~f:TLSInspectionConfigurationResponse.of_xml)
          (Xml.child xml_arg0 "TLSInspectionConfigurationResponse") in
      let updateToken =
        (Option.map ~f:UpdateToken.of_xml) (Xml.child xml_arg0 "UpdateToken") in
      make ?tLSInspectionConfigurationResponse ?updateToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tLSInspectionConfigurationResponse =
        field_map json__ "TLSInspectionConfigurationResponse"
          TLSInspectionConfigurationResponse.of_json in
      let updateToken = field_map json__ "UpdateToken" UpdateToken.of_json in
      make ?tLSInspectionConfigurationResponse ?updateToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an Network Firewall TLS inspection configuration. Network Firewall uses TLS inspection configurations to decrypt your firewall's inbound and outbound SSL/TLS traffic. After decryption, Network Firewall inspects the traffic according to your firewall policy's stateful rules, and then re-encrypts it before sending it to its destination. You can enable inspection of your firewall's inbound traffic, outbound traffic, or both. To use TLS inspection with your firewall, you must first import or provision certificates using ACM, create a TLS inspection configuration, add that configuration to a new firewall policy, and then associate that policy with your firewall. To update the settings for a TLS inspection configuration, use UpdateTLSInspectionConfiguration. To manage a TLS inspection configuration's tags, use the standard Amazon Web Services resource tagging operations, ListTagsForResource, TagResource, and UntagResource. To retrieve information about TLS inspection configurations, use ListTLSInspectionConfigurations and DescribeTLSInspectionConfiguration. For more information about TLS inspection configurations, see Inspecting SSL/TLS traffic with TLS inspection configurations in the Network Firewall Developer Guide."]
module CreateTLSInspectionConfigurationRequest =
  struct
    type nonrec t =
      {
      tLSInspectionConfigurationName: ResourceName.t
        [@ocaml.doc
          "The descriptive name of the TLS inspection configuration. You can't change the name of a TLS inspection configuration after you create it."];
      tLSInspectionConfiguration: TLSInspectionConfiguration.t
        [@ocaml.doc
          "The object that defines a TLS inspection configuration. This, along with TLSInspectionConfigurationResponse, define the TLS inspection configuration. You can retrieve all objects for a TLS inspection configuration by calling DescribeTLSInspectionConfiguration. Network Firewall uses a TLS inspection configuration to decrypt traffic. Network Firewall re-encrypts the traffic before sending it to its destination. To use a TLS inspection configuration, you add it to a new Network Firewall firewall policy, then you apply the firewall policy to a firewall. Network Firewall acts as a proxy service to decrypt and inspect the traffic traveling through your firewalls. You can reference a TLS inspection configuration from more than one firewall policy, and you can use a firewall policy in more than one firewall. For more information about using TLS inspection configurations, see Inspecting SSL/TLS traffic with TLS inspection configurations in the Network Firewall Developer Guide."];
      description: Description.t option
        [@ocaml.doc "A description of the TLS inspection configuration."];
      tags: TagList.t option
        [@ocaml.doc "The key:value pairs to associate with the resource."];
      encryptionConfiguration: EncryptionConfiguration.t option }
    let context_ = "CreateTLSInspectionConfigurationRequest"
    let make ?description =
      fun ?tags ->
        fun ?encryptionConfiguration ->
          fun ~tLSInspectionConfigurationName ->
            fun ~tLSInspectionConfiguration ->
              fun () ->
                {
                  description;
                  tags;
                  encryptionConfiguration;
                  tLSInspectionConfigurationName;
                  tLSInspectionConfiguration
                }
    let to_value x =
      structure_to_value
        [("TLSInspectionConfigurationName",
           (Some (ResourceName.to_value x.tLSInspectionConfigurationName)));
        ("TLSInspectionConfiguration",
          (Some
             (TLSInspectionConfiguration.to_value
                x.tLSInspectionConfiguration)));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("EncryptionConfiguration",
          (Option.map x.encryptionConfiguration
             ~f:EncryptionConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let encryptionConfiguration =
        (Option.map ~f:EncryptionConfiguration.of_xml)
          (Xml.child xml_arg0 "EncryptionConfiguration") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let tLSInspectionConfiguration =
        TLSInspectionConfiguration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "TLSInspectionConfiguration") in
      let tLSInspectionConfigurationName =
        ResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "TLSInspectionConfigurationName") in
      make ?encryptionConfiguration ?tags ?description
        ~tLSInspectionConfiguration ~tLSInspectionConfigurationName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let encryptionConfiguration =
        field_map json__ "EncryptionConfiguration"
          EncryptionConfiguration.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let tLSInspectionConfiguration =
        field_map_exn json__ "TLSInspectionConfiguration"
          TLSInspectionConfiguration.of_json in
      let tLSInspectionConfigurationName =
        field_map_exn json__ "TLSInspectionConfigurationName"
          ResourceName.of_json in
      make ?encryptionConfiguration ?tags ?description
        ~tLSInspectionConfiguration ~tLSInspectionConfigurationName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an Network Firewall TLS inspection configuration. Network Firewall uses TLS inspection configurations to decrypt your firewall's inbound and outbound SSL/TLS traffic. After decryption, Network Firewall inspects the traffic according to your firewall policy's stateful rules, and then re-encrypts it before sending it to its destination. You can enable inspection of your firewall's inbound traffic, outbound traffic, or both. To use TLS inspection with your firewall, you must first import or provision certificates using ACM, create a TLS inspection configuration, add that configuration to a new firewall policy, and then associate that policy with your firewall. To update the settings for a TLS inspection configuration, use UpdateTLSInspectionConfiguration. To manage a TLS inspection configuration's tags, use the standard Amazon Web Services resource tagging operations, ListTagsForResource, TagResource, and UntagResource. To retrieve information about TLS inspection configurations, use ListTLSInspectionConfigurations and DescribeTLSInspectionConfiguration. For more information about TLS inspection configurations, see Inspecting SSL/TLS traffic with TLS inspection configurations in the Network Firewall Developer Guide."]
module CreateRuleGroupResponse =
  struct
    type nonrec t =
      {
      updateToken: UpdateToken.t option
        [@ocaml.doc
          "A token used for optimistic locking. Network Firewall returns a token to your requests that access the rule group. The token marks the state of the rule group resource at the time of the request. To make changes to the rule group, you provide the token in your request. Network Firewall uses the token to ensure that the rule group hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the rule group again to get a current copy of it with a current token. Reapply your changes as needed, then try the operation again using the new token."];
      ruleGroupResponse: RuleGroupResponse.t option
        [@ocaml.doc
          "The high-level properties of a rule group. This, along with the RuleGroup, define the rule group. You can retrieve all objects for a rule group by calling DescribeRuleGroup."]}
    type nonrec error =
      [ `InsufficientCapacityException of InsufficientCapacityException.t 
      | `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?updateToken =
      fun ?ruleGroupResponse -> fun () -> { updateToken; ruleGroupResponse }
    let error_of_json name json =
      match name with
      | "InsufficientCapacityException" ->
          `InsufficientCapacityException
            (InsufficientCapacityException.of_json json)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | "InsufficientCapacityException" ->
          `InsufficientCapacityException
            (InsufficientCapacityException.of_xml xml)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | `InsufficientCapacityException e ->
          `Assoc
            [("error", (`String "InsufficientCapacityException"));
            ("details", (InsufficientCapacityException.to_json e))]
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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
        [("UpdateToken", (Option.map x.updateToken ~f:UpdateToken.to_value));
        ("RuleGroupResponse",
          (Option.map x.ruleGroupResponse ~f:RuleGroupResponse.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ruleGroupResponse =
        (Option.map ~f:RuleGroupResponse.of_xml)
          (Xml.child xml_arg0 "RuleGroupResponse") in
      let updateToken =
        (Option.map ~f:UpdateToken.of_xml) (Xml.child xml_arg0 "UpdateToken") in
      make ?ruleGroupResponse ?updateToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ruleGroupResponse =
        field_map json__ "RuleGroupResponse" RuleGroupResponse.of_json in
      let updateToken = field_map json__ "UpdateToken" UpdateToken.of_json in
      make ?ruleGroupResponse ?updateToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates the specified stateless or stateful rule group, which includes the rules for network traffic inspection, a capacity setting, and tags. You provide your rule group specification in your request using either RuleGroup or Rules."]
module CreateRuleGroupRequest =
  struct
    type nonrec t =
      {
      ruleGroupName: ResourceName.t
        [@ocaml.doc
          "The descriptive name of the rule group. You can't change the name of a rule group after you create it."];
      ruleGroup: RuleGroup.t option
        [@ocaml.doc
          "An object that defines the rule group rules. You must provide either this rule group setting or a Rules setting, but not both."];
      rules: RulesString.t option
        [@ocaml.doc
          "A string containing stateful rule group rules specifications in Suricata flat format, with one rule per line. Use this to import your existing Suricata compatible rule groups. You must provide either this rules setting or a populated RuleGroup setting, but not both. You can provide your rule group specification in Suricata flat format through this setting when you create or update your rule group. The call response returns a RuleGroup object that Network Firewall has populated from your string."];
      type_: RuleGroupType.t
        [@ocaml.doc
          "Indicates whether the rule group is stateless or stateful. If the rule group is stateless, it contains stateless rules. If it is stateful, it contains stateful rules."];
      description: Description.t option
        [@ocaml.doc "A description of the rule group."];
      capacity: RuleCapacity.t
        [@ocaml.doc
          "The maximum operating resources that this rule group can use. Rule group capacity is fixed at creation. When you update a rule group, you are limited to this capacity. When you reference a rule group from a firewall policy, Network Firewall reserves this capacity for the rule group. You can retrieve the capacity that would be required for a rule group before you create the rule group by calling CreateRuleGroup with DryRun set to TRUE. You can't change or exceed this capacity when you update the rule group, so leave room for your rule group to grow. Capacity for a stateless rule group For a stateless rule group, the capacity required is the sum of the capacity requirements of the individual rules that you expect to have in the rule group. To calculate the capacity requirement of a single rule, multiply the capacity requirement values of each of the rule's match settings: A match setting with no criteria specified has a value of 1. A match setting with Any specified has a value of 1. All other match settings have a value equal to the number of elements provided in the setting. For example, a protocol setting \\[\"UDP\"\\] and a source setting \\[\"10.0.0.0/24\"\\] each have a value of 1. A protocol setting \\[\"UDP\",\"TCP\"\\] has a value of 2. A source setting \\[\"10.0.0.0/24\",\"10.0.0.1/24\",\"10.0.0.2/24\"\\] has a value of 3. A rule with no criteria specified in any of its match settings has a capacity requirement of 1. A rule with protocol setting \\[\"UDP\",\"TCP\"\\], source setting \\[\"10.0.0.0/24\",\"10.0.0.1/24\",\"10.0.0.2/24\"\\], and a single specification or no specification for each of the other match settings has a capacity requirement of 6. Capacity for a stateful rule group For a stateful rule group, the minimum capacity required is the number of individual rules that you expect to have in the rule group."];
      tags: TagList.t option
        [@ocaml.doc "The key:value pairs to associate with the resource."];
      dryRun: Boolean.t option
        [@ocaml.doc
          "Indicates whether you want Network Firewall to just check the validity of the request, rather than run the request. If set to TRUE, Network Firewall checks whether the request can run successfully, but doesn't actually make the requested changes. The call returns the value that the request would return if you ran it with dry run set to FALSE, but doesn't make additions or changes to your resources. This option allows you to make sure that you have the required permissions to run the request and that your request parameters are valid. If set to FALSE, Network Firewall makes the requested changes to your resources."];
      encryptionConfiguration: EncryptionConfiguration.t option
        [@ocaml.doc
          "A complex type that contains settings for encryption of your rule group resources."];
      sourceMetadata: SourceMetadata.t option
        [@ocaml.doc
          "A complex type that contains metadata about the rule group that your own rule group is copied from. You can use the metadata to keep track of updates made to the originating rule group."];
      analyzeRuleGroup: Boolean.t option
        [@ocaml.doc
          "Indicates whether you want Network Firewall to analyze the stateless rules in the rule group for rule behavior such as asymmetric routing. If set to TRUE, Network Firewall runs the analysis and then creates the rule group for you. To run the stateless rule group analyzer without creating the rule group, set DryRun to TRUE."];
      summaryConfiguration: SummaryConfiguration.t option
        [@ocaml.doc
          "An object that contains a RuleOptions array of strings. You use RuleOptions to determine which of the following RuleSummary values are returned in response to DescribeRuleGroupSummary. Metadata - returns Msg SID"]}
    let context_ = "CreateRuleGroupRequest"
    let make ?ruleGroup =
      fun ?rules ->
        fun ?description ->
          fun ?tags ->
            fun ?dryRun ->
              fun ?encryptionConfiguration ->
                fun ?sourceMetadata ->
                  fun ?analyzeRuleGroup ->
                    fun ?summaryConfiguration ->
                      fun ~ruleGroupName ->
                        fun ~type_ ->
                          fun ~capacity ->
                            fun () ->
                              {
                                ruleGroup;
                                rules;
                                description;
                                tags;
                                dryRun;
                                encryptionConfiguration;
                                sourceMetadata;
                                analyzeRuleGroup;
                                summaryConfiguration;
                                ruleGroupName;
                                type_;
                                capacity
                              }
    let to_value x =
      structure_to_value
        [("RuleGroupName", (Some (ResourceName.to_value x.ruleGroupName)));
        ("RuleGroup", (Option.map x.ruleGroup ~f:RuleGroup.to_value));
        ("Rules", (Option.map x.rules ~f:RulesString.to_value));
        ("Type", (Some (RuleGroupType.to_value x.type_)));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("Capacity", (Some (RuleCapacity.to_value x.capacity)));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("DryRun", (Option.map x.dryRun ~f:Boolean.to_value));
        ("EncryptionConfiguration",
          (Option.map x.encryptionConfiguration
             ~f:EncryptionConfiguration.to_value));
        ("SourceMetadata",
          (Option.map x.sourceMetadata ~f:SourceMetadata.to_value));
        ("AnalyzeRuleGroup",
          (Option.map x.analyzeRuleGroup ~f:Boolean.to_value));
        ("SummaryConfiguration",
          (Option.map x.summaryConfiguration ~f:SummaryConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let summaryConfiguration =
        (Option.map ~f:SummaryConfiguration.of_xml)
          (Xml.child xml_arg0 "SummaryConfiguration") in
      let analyzeRuleGroup =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "AnalyzeRuleGroup") in
      let sourceMetadata =
        (Option.map ~f:SourceMetadata.of_xml)
          (Xml.child xml_arg0 "SourceMetadata") in
      let encryptionConfiguration =
        (Option.map ~f:EncryptionConfiguration.of_xml)
          (Xml.child xml_arg0 "EncryptionConfiguration") in
      let dryRun =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "DryRun") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let capacity =
        RuleCapacity.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Capacity") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let type_ =
        RuleGroupType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Type") in
      let rules =
        (Option.map ~f:RulesString.of_xml) (Xml.child xml_arg0 "Rules") in
      let ruleGroup =
        (Option.map ~f:RuleGroup.of_xml) (Xml.child xml_arg0 "RuleGroup") in
      let ruleGroupName =
        ResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RuleGroupName") in
      make ?summaryConfiguration ?analyzeRuleGroup ?sourceMetadata
        ?encryptionConfiguration ?dryRun ?tags ~capacity ?description ~type_
        ?rules ?ruleGroup ~ruleGroupName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let summaryConfiguration =
        field_map json__ "SummaryConfiguration" SummaryConfiguration.of_json in
      let analyzeRuleGroup =
        field_map json__ "AnalyzeRuleGroup" Boolean.of_json in
      let sourceMetadata =
        field_map json__ "SourceMetadata" SourceMetadata.of_json in
      let encryptionConfiguration =
        field_map json__ "EncryptionConfiguration"
          EncryptionConfiguration.of_json in
      let dryRun = field_map json__ "DryRun" Boolean.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let capacity = field_map_exn json__ "Capacity" RuleCapacity.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let type_ = field_map_exn json__ "Type" RuleGroupType.of_json in
      let rules = field_map json__ "Rules" RulesString.of_json in
      let ruleGroup = field_map json__ "RuleGroup" RuleGroup.of_json in
      let ruleGroupName =
        field_map_exn json__ "RuleGroupName" ResourceName.of_json in
      make ?summaryConfiguration ?analyzeRuleGroup ?sourceMetadata
        ?encryptionConfiguration ?dryRun ?tags ~capacity ?description ~type_
        ?rules ?ruleGroup ~ruleGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates the specified stateless or stateful rule group, which includes the rules for network traffic inspection, a capacity setting, and tags. You provide your rule group specification in your request using either RuleGroup or Rules."]
module CreateProxyRulesResponse =
  struct
    type nonrec t =
      {
      proxyRuleGroup: ProxyRuleGroup.t option
        [@ocaml.doc
          "The properties that define the proxy rule group with the newly created proxy rule(s)."];
      updateToken: UpdateToken.t option
        [@ocaml.doc
          "A token used for optimistic locking. Network Firewall returns a token to your requests that access the proxy rule. The token marks the state of the proxy rule resource at the time of the request. To make changes to the proxy rule, you provide the token in your request. Network Firewall uses the token to ensure that the proxy rule hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the proxy rule again to get a current copy of it with a current token. Reapply your changes as needed, then try the operation again using the new token."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?proxyRuleGroup =
      fun ?updateToken -> fun () -> { proxyRuleGroup; updateToken }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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
        [("ProxyRuleGroup",
           (Option.map x.proxyRuleGroup ~f:ProxyRuleGroup.to_value));
        ("UpdateToken", (Option.map x.updateToken ~f:UpdateToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updateToken =
        (Option.map ~f:UpdateToken.of_xml) (Xml.child xml_arg0 "UpdateToken") in
      let proxyRuleGroup =
        (Option.map ~f:ProxyRuleGroup.of_xml)
          (Xml.child xml_arg0 "ProxyRuleGroup") in
      make ?updateToken ?proxyRuleGroup ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updateToken = field_map json__ "UpdateToken" UpdateToken.of_json in
      let proxyRuleGroup =
        field_map json__ "ProxyRuleGroup" ProxyRuleGroup.of_json in
      make ?updateToken ?proxyRuleGroup ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates Network Firewall ProxyRule resources. Attaches new proxy rule(s) to an existing proxy rule group. To retrieve information about individual proxy rules, use DescribeProxyRuleGroup and DescribeProxyRule."]
module CreateProxyRulesRequest =
  struct
    type nonrec t =
      {
      proxyRuleGroupArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of a proxy rule group. You must specify the ARN or the name, and you can specify both."];
      proxyRuleGroupName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the proxy rule group. You can't change the name of a proxy rule group after you create it. You must specify the ARN or the name, and you can specify both."];
      rules: CreateProxyRulesByRequestPhase.t
        [@ocaml.doc
          "Individual rules that define match conditions and actions for application-layer traffic. Rules specify what to inspect (domains, headers, methods) and what action to take (allow, deny, alert)."]}
    let context_ = "CreateProxyRulesRequest"
    let make ?proxyRuleGroupArn =
      fun ?proxyRuleGroupName ->
        fun ~rules ->
          fun () -> { proxyRuleGroupArn; proxyRuleGroupName; rules }
    let to_value x =
      structure_to_value
        [("ProxyRuleGroupArn",
           (Option.map x.proxyRuleGroupArn ~f:ResourceArn.to_value));
        ("ProxyRuleGroupName",
          (Option.map x.proxyRuleGroupName ~f:ResourceName.to_value));
        ("Rules", (Some (CreateProxyRulesByRequestPhase.to_value x.rules)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let rules =
        CreateProxyRulesByRequestPhase.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Rules") in
      let proxyRuleGroupName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "ProxyRuleGroupName") in
      let proxyRuleGroupArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "ProxyRuleGroupArn") in
      make ~rules ?proxyRuleGroupName ?proxyRuleGroupArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let rules =
        field_map_exn json__ "Rules" CreateProxyRulesByRequestPhase.of_json in
      let proxyRuleGroupName =
        field_map json__ "ProxyRuleGroupName" ResourceName.of_json in
      let proxyRuleGroupArn =
        field_map json__ "ProxyRuleGroupArn" ResourceArn.of_json in
      make ~rules ?proxyRuleGroupName ?proxyRuleGroupArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates Network Firewall ProxyRule resources. Attaches new proxy rule(s) to an existing proxy rule group. To retrieve information about individual proxy rules, use DescribeProxyRuleGroup and DescribeProxyRule."]
module CreateProxyRuleGroupResponse =
  struct
    type nonrec t =
      {
      proxyRuleGroup: ProxyRuleGroup.t option
        [@ocaml.doc "The properties that define the proxy rule group."];
      updateToken: UpdateToken.t option
        [@ocaml.doc
          "A token used for optimistic locking. Network Firewall returns a token to your requests that access the proxy rule group. The token marks the state of the proxy rule group resource at the time of the request. To make changes to the proxy rule group, you provide the token in your request. Network Firewall uses the token to ensure that the proxy rule group hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the proxy rule group again to get a current copy of it with a current token. Reapply your changes as needed, then try the operation again using the new token."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?proxyRuleGroup =
      fun ?updateToken -> fun () -> { proxyRuleGroup; updateToken }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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
        [("ProxyRuleGroup",
           (Option.map x.proxyRuleGroup ~f:ProxyRuleGroup.to_value));
        ("UpdateToken", (Option.map x.updateToken ~f:UpdateToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updateToken =
        (Option.map ~f:UpdateToken.of_xml) (Xml.child xml_arg0 "UpdateToken") in
      let proxyRuleGroup =
        (Option.map ~f:ProxyRuleGroup.of_xml)
          (Xml.child xml_arg0 "ProxyRuleGroup") in
      make ?updateToken ?proxyRuleGroup ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updateToken = field_map json__ "UpdateToken" UpdateToken.of_json in
      let proxyRuleGroup =
        field_map json__ "ProxyRuleGroup" ProxyRuleGroup.of_json in
      make ?updateToken ?proxyRuleGroup ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an Network Firewall ProxyRuleGroup Collections of related proxy filtering rules. Rule groups help you manage and reuse sets of rules across multiple proxy configurations. To manage a proxy rule group's tags, use the standard Amazon Web Services resource tagging operations, ListTagsForResource, TagResource, and UntagResource. To retrieve information about proxy rule groups, use ListProxyRuleGroups and DescribeProxyRuleGroup. To retrieve information about individual proxy rules, use DescribeProxyRuleGroup and DescribeProxyRule."]
module CreateProxyRuleGroupRequest =
  struct
    type nonrec t =
      {
      proxyRuleGroupName: ResourceName.t
        [@ocaml.doc
          "The descriptive name of the proxy rule group. You can't change the name of a proxy rule group after you create it."];
      description: Description.t option
        [@ocaml.doc "A description of the proxy rule group."];
      rules: ProxyRulesByRequestPhase.t option
        [@ocaml.doc
          "Individual rules that define match conditions and actions for application-layer traffic. Rules specify what to inspect (domains, headers, methods) and what action to take (allow, deny, alert)."];
      tags: TagList.t option
        [@ocaml.doc "The key:value pairs to associate with the resource."]}
    let context_ = "CreateProxyRuleGroupRequest"
    let make ?description =
      fun ?rules ->
        fun ?tags ->
          fun ~proxyRuleGroupName ->
            fun () -> { description; rules; tags; proxyRuleGroupName }
    let to_value x =
      structure_to_value
        [("ProxyRuleGroupName",
           (Some (ResourceName.to_value x.proxyRuleGroupName)));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("Rules", (Option.map x.rules ~f:ProxyRulesByRequestPhase.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 rules =
        (Option.map ~f:ProxyRulesByRequestPhase.of_xml)
          (Xml.child xml_arg0 "Rules") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let proxyRuleGroupName =
        ResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ProxyRuleGroupName") in
      make ?tags ?rules ?description ~proxyRuleGroupName ()
    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 rules = field_map json__ "Rules" ProxyRulesByRequestPhase.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let proxyRuleGroupName =
        field_map_exn json__ "ProxyRuleGroupName" ResourceName.of_json in
      make ?tags ?rules ?description ~proxyRuleGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an Network Firewall ProxyRuleGroup Collections of related proxy filtering rules. Rule groups help you manage and reuse sets of rules across multiple proxy configurations. To manage a proxy rule group's tags, use the standard Amazon Web Services resource tagging operations, ListTagsForResource, TagResource, and UntagResource. To retrieve information about proxy rule groups, use ListProxyRuleGroups and DescribeProxyRuleGroup. To retrieve information about individual proxy rules, use DescribeProxyRuleGroup and DescribeProxyRule."]
module CreateProxyResponse =
  struct
    type nonrec t =
      {
      proxy: Proxy.t option [@ocaml.doc "Proxy attached to a NAT gateway."];
      updateToken: UpdateToken.t option
        [@ocaml.doc
          "A token used for optimistic locking. Network Firewall returns a token to your requests that access the proxy. The token marks the state of the proxy resource at the time of the request. To make changes to the proxy, you provide the token in your request. Network Firewall uses the token to ensure that the proxy hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the proxy again to get a current copy of it with a current token. Reapply your changes as needed, then try the operation again using the new token."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?proxy = fun ?updateToken -> fun () -> { proxy; updateToken }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.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
        [("Proxy", (Option.map x.proxy ~f:Proxy.to_value));
        ("UpdateToken", (Option.map x.updateToken ~f:UpdateToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updateToken =
        (Option.map ~f:UpdateToken.of_xml) (Xml.child xml_arg0 "UpdateToken") in
      let proxy = (Option.map ~f:Proxy.of_xml) (Xml.child xml_arg0 "Proxy") in
      make ?updateToken ?proxy ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updateToken = field_map json__ "UpdateToken" UpdateToken.of_json in
      let proxy = field_map json__ "Proxy" Proxy.of_json in
      make ?updateToken ?proxy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an Network Firewall Proxy Attaches a Proxy configuration to a NAT Gateway. To manage a proxy's tags, use the standard Amazon Web Services resource tagging operations, ListTagsForResource, TagResource, and UntagResource. To retrieve information about proxies, use ListProxies and DescribeProxy."]
module CreateProxyRequest =
  struct
    type nonrec t =
      {
      proxyName: ResourceName.t
        [@ocaml.doc
          "The descriptive name of the proxy. You can't change the name of a proxy after you create it."];
      natGatewayId: NatGatewayId.t
        [@ocaml.doc
          "A unique identifier for the NAT gateway to use with proxy resources."];
      proxyConfigurationName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the proxy configuration. You can't change the name of a proxy configuration after you create it. You must specify the ARN or the name, and you can specify both."];
      proxyConfigurationArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of a proxy configuration. You must specify the ARN or the name, and you can specify both."];
      listenerProperties: ListenerPropertiesRequest.t option
        [@ocaml.doc "Listener properties for HTTP and HTTPS traffic."];
      tlsInterceptProperties: TlsInterceptPropertiesRequest.t
        [@ocaml.doc
          "TLS decryption on traffic to filter on attributes in the HTTP header."];
      tags: TagList.t option
        [@ocaml.doc "The key:value pairs to associate with the resource."]}
    let context_ = "CreateProxyRequest"
    let make ?proxyConfigurationName =
      fun ?proxyConfigurationArn ->
        fun ?listenerProperties ->
          fun ?tags ->
            fun ~proxyName ->
              fun ~natGatewayId ->
                fun ~tlsInterceptProperties ->
                  fun () ->
                    {
                      proxyConfigurationName;
                      proxyConfigurationArn;
                      listenerProperties;
                      tags;
                      proxyName;
                      natGatewayId;
                      tlsInterceptProperties
                    }
    let to_value x =
      structure_to_value
        [("ProxyName", (Some (ResourceName.to_value x.proxyName)));
        ("NatGatewayId", (Some (NatGatewayId.to_value x.natGatewayId)));
        ("ProxyConfigurationName",
          (Option.map x.proxyConfigurationName ~f:ResourceName.to_value));
        ("ProxyConfigurationArn",
          (Option.map x.proxyConfigurationArn ~f:ResourceArn.to_value));
        ("ListenerProperties",
          (Option.map x.listenerProperties
             ~f:ListenerPropertiesRequest.to_value));
        ("TlsInterceptProperties",
          (Some
             (TlsInterceptPropertiesRequest.to_value x.tlsInterceptProperties)));
        ("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 tlsInterceptProperties =
        TlsInterceptPropertiesRequest.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TlsInterceptProperties") in
      let listenerProperties =
        (Option.map ~f:ListenerPropertiesRequest.of_xml)
          (Xml.child xml_arg0 "ListenerProperties") in
      let proxyConfigurationArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "ProxyConfigurationArn") in
      let proxyConfigurationName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "ProxyConfigurationName") in
      let natGatewayId =
        NatGatewayId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "NatGatewayId") in
      let proxyName =
        ResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ProxyName") in
      make ?tags ~tlsInterceptProperties ?listenerProperties
        ?proxyConfigurationArn ?proxyConfigurationName ~natGatewayId
        ~proxyName ()
    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 tlsInterceptProperties =
        field_map_exn json__ "TlsInterceptProperties"
          TlsInterceptPropertiesRequest.of_json in
      let listenerProperties =
        field_map json__ "ListenerProperties"
          ListenerPropertiesRequest.of_json in
      let proxyConfigurationArn =
        field_map json__ "ProxyConfigurationArn" ResourceArn.of_json in
      let proxyConfigurationName =
        field_map json__ "ProxyConfigurationName" ResourceName.of_json in
      let natGatewayId =
        field_map_exn json__ "NatGatewayId" NatGatewayId.of_json in
      let proxyName = field_map_exn json__ "ProxyName" ResourceName.of_json in
      make ?tags ~tlsInterceptProperties ?listenerProperties
        ?proxyConfigurationArn ?proxyConfigurationName ~natGatewayId
        ~proxyName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an Network Firewall Proxy Attaches a Proxy configuration to a NAT Gateway. To manage a proxy's tags, use the standard Amazon Web Services resource tagging operations, ListTagsForResource, TagResource, and UntagResource. To retrieve information about proxies, use ListProxies and DescribeProxy."]
module CreateProxyConfigurationResponse =
  struct
    type nonrec t =
      {
      proxyConfiguration: ProxyConfiguration.t option
        [@ocaml.doc "The properties that define the proxy configuration."];
      updateToken: UpdateToken.t option
        [@ocaml.doc
          "A token used for optimistic locking. Network Firewall returns a token to your requests that access the proxy configuration. The token marks the state of the proxy configuration resource at the time of the request. To make changes to the proxy configuration, you provide the token in your request. Network Firewall uses the token to ensure that the proxy configuration hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the proxy configuration again to get a current copy of it with a current token. Reapply your changes as needed, then try the operation again using the new token."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?proxyConfiguration =
      fun ?updateToken -> fun () -> { proxyConfiguration; updateToken }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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))]
      | `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
        [("ProxyConfiguration",
           (Option.map x.proxyConfiguration ~f:ProxyConfiguration.to_value));
        ("UpdateToken", (Option.map x.updateToken ~f:UpdateToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updateToken =
        (Option.map ~f:UpdateToken.of_xml) (Xml.child xml_arg0 "UpdateToken") in
      let proxyConfiguration =
        (Option.map ~f:ProxyConfiguration.of_xml)
          (Xml.child xml_arg0 "ProxyConfiguration") in
      make ?updateToken ?proxyConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updateToken = field_map json__ "UpdateToken" UpdateToken.of_json in
      let proxyConfiguration =
        field_map json__ "ProxyConfiguration" ProxyConfiguration.of_json in
      make ?updateToken ?proxyConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an Network Firewall ProxyConfiguration A Proxy Configuration defines the monitoring and protection behavior for a Proxy. The details of the behavior are defined in the rule groups that you add to your configuration. To manage a proxy configuration's tags, use the standard Amazon Web Services resource tagging operations, ListTagsForResource, TagResource, and UntagResource. To retrieve information about proxies, use ListProxyConfigurations and DescribeProxyConfiguration."]
module CreateProxyConfigurationRequest =
  struct
    type nonrec t =
      {
      proxyConfigurationName: ResourceName.t
        [@ocaml.doc
          "The descriptive name of the proxy configuration. You can't change the name of a proxy configuration after you create it."];
      description: Description.t option
        [@ocaml.doc "A description of the proxy configuration."];
      ruleGroupNames: ResourceNameList.t option
        [@ocaml.doc
          "The proxy rule group name(s) to attach to the proxy configuration. You must specify the ARNs or the names, and you can specify both."];
      ruleGroupArns: ResourceArnList.t option
        [@ocaml.doc
          "The proxy rule group arn(s) to attach to the proxy configuration. You must specify the ARNs or the names, and you can specify both."];
      defaultRulePhaseActions: ProxyConfigDefaultRulePhaseActionsRequest.t
        [@ocaml.doc
          "Evaluation points in the traffic flow where rules are applied. There are three phases in a traffic where the rule match is applied."];
      tags: TagList.t option
        [@ocaml.doc "The key:value pairs to associate with the resource."]}
    let context_ = "CreateProxyConfigurationRequest"
    let make ?description =
      fun ?ruleGroupNames ->
        fun ?ruleGroupArns ->
          fun ?tags ->
            fun ~proxyConfigurationName ->
              fun ~defaultRulePhaseActions ->
                fun () ->
                  {
                    description;
                    ruleGroupNames;
                    ruleGroupArns;
                    tags;
                    proxyConfigurationName;
                    defaultRulePhaseActions
                  }
    let to_value x =
      structure_to_value
        [("ProxyConfigurationName",
           (Some (ResourceName.to_value x.proxyConfigurationName)));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("RuleGroupNames",
          (Option.map x.ruleGroupNames ~f:ResourceNameList.to_value));
        ("RuleGroupArns",
          (Option.map x.ruleGroupArns ~f:ResourceArnList.to_value));
        ("DefaultRulePhaseActions",
          (Some
             (ProxyConfigDefaultRulePhaseActionsRequest.to_value
                x.defaultRulePhaseActions)));
        ("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 defaultRulePhaseActions =
        ProxyConfigDefaultRulePhaseActionsRequest.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DefaultRulePhaseActions") in
      let ruleGroupArns =
        (Option.map ~f:ResourceArnList.of_xml)
          (Xml.child xml_arg0 "RuleGroupArns") in
      let ruleGroupNames =
        (Option.map ~f:ResourceNameList.of_xml)
          (Xml.child xml_arg0 "RuleGroupNames") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let proxyConfigurationName =
        ResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ProxyConfigurationName") in
      make ?tags ~defaultRulePhaseActions ?ruleGroupArns ?ruleGroupNames
        ?description ~proxyConfigurationName ()
    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 defaultRulePhaseActions =
        field_map_exn json__ "DefaultRulePhaseActions"
          ProxyConfigDefaultRulePhaseActionsRequest.of_json in
      let ruleGroupArns =
        field_map json__ "RuleGroupArns" ResourceArnList.of_json in
      let ruleGroupNames =
        field_map json__ "RuleGroupNames" ResourceNameList.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let proxyConfigurationName =
        field_map_exn json__ "ProxyConfigurationName" ResourceName.of_json in
      make ?tags ~defaultRulePhaseActions ?ruleGroupArns ?ruleGroupNames
        ?description ~proxyConfigurationName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an Network Firewall ProxyConfiguration A Proxy Configuration defines the monitoring and protection behavior for a Proxy. The details of the behavior are defined in the rule groups that you add to your configuration. To manage a proxy configuration's tags, use the standard Amazon Web Services resource tagging operations, ListTagsForResource, TagResource, and UntagResource. To retrieve information about proxies, use ListProxyConfigurations and DescribeProxyConfiguration."]
module CreateFirewallResponse =
  struct
    type nonrec t =
      {
      firewall: Firewall.t option
        [@ocaml.doc
          "The configuration settings for the firewall. These settings include the firewall policy and the subnets in your VPC to use for the firewall endpoints."];
      firewallStatus: FirewallStatus.t option
        [@ocaml.doc
          "Detailed information about the current status of a Firewall. You can retrieve this for a firewall by calling DescribeFirewall and providing the firewall name and ARN. The firewall status indicates a combined status. It indicates whether all subnets are up-to-date with the latest firewall configurations, which is based on the sync states config values, and also whether all subnets have their endpoints fully enabled, based on their sync states attachment values."]}
    type nonrec error =
      [ `InsufficientCapacityException of InsufficientCapacityException.t 
      | `InternalServerError of InternalServerError.t 
      | `InvalidOperationException of InvalidOperationException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?firewall =
      fun ?firewallStatus -> fun () -> { firewall; firewallStatus }
    let error_of_json name json =
      match name with
      | "InsufficientCapacityException" ->
          `InsufficientCapacityException
            (InsufficientCapacityException.of_json json)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidOperationException" ->
          `InvalidOperationException (InvalidOperationException.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
      | "InsufficientCapacityException" ->
          `InsufficientCapacityException
            (InsufficientCapacityException.of_xml xml)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidOperationException" ->
          `InvalidOperationException (InvalidOperationException.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
      | `InsufficientCapacityException e ->
          `Assoc
            [("error", (`String "InsufficientCapacityException"));
            ("details", (InsufficientCapacityException.to_json e))]
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidOperationException e ->
          `Assoc
            [("error", (`String "InvalidOperationException"));
            ("details", (InvalidOperationException.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
        [("Firewall", (Option.map x.firewall ~f:Firewall.to_value));
        ("FirewallStatus",
          (Option.map x.firewallStatus ~f:FirewallStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let firewallStatus =
        (Option.map ~f:FirewallStatus.of_xml)
          (Xml.child xml_arg0 "FirewallStatus") in
      let firewall =
        (Option.map ~f:Firewall.of_xml) (Xml.child xml_arg0 "Firewall") in
      make ?firewallStatus ?firewall ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let firewallStatus =
        field_map json__ "FirewallStatus" FirewallStatus.of_json in
      let firewall = field_map json__ "Firewall" Firewall.of_json in
      make ?firewallStatus ?firewall ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an Network Firewall Firewall and accompanying FirewallStatus for a VPC. The firewall defines the configuration settings for an Network Firewall firewall. The settings that you can define at creation include the firewall policy, the subnets in your VPC to use for the firewall endpoints, and any tags that are attached to the firewall Amazon Web Services resource. After you create a firewall, you can provide additional settings, like the logging configuration. To update the settings for a firewall, you use the operations that apply to the settings themselves, for example UpdateLoggingConfiguration, AssociateSubnets, and UpdateFirewallDeleteProtection. To manage a firewall's tags, use the standard Amazon Web Services resource tagging operations, ListTagsForResource, TagResource, and UntagResource. To retrieve information about firewalls, use ListFirewalls and DescribeFirewall. To generate a report on the last 30 days of traffic monitored by a firewall, use StartAnalysisReport."]
module CreateFirewallRequest =
  struct
    type nonrec t =
      {
      firewallName: ResourceName.t
        [@ocaml.doc
          "The descriptive name of the firewall. You can't change the name of a firewall after you create it."];
      firewallPolicyArn: ResourceArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the FirewallPolicy that you want to use for the firewall."];
      vpcId: VpcId.t option
        [@ocaml.doc
          "The unique identifier of the VPC where Network Firewall should create the firewall. You can't change this setting after you create the firewall."];
      subnetMappings: SubnetMappings.t option
        [@ocaml.doc
          "The public subnets to use for your Network Firewall firewalls. Each subnet must belong to a different Availability Zone in the VPC. Network Firewall creates a firewall endpoint in each subnet."];
      deleteProtection: Boolean.t option
        [@ocaml.doc
          "A flag indicating whether it is possible to delete the firewall. A setting of TRUE indicates that the firewall is protected against deletion. Use this setting to protect against accidentally deleting a firewall that is in use. When you create a firewall, the operation initializes this flag to TRUE."];
      subnetChangeProtection: Boolean.t option
        [@ocaml.doc
          "A setting indicating whether the firewall is protected against changes to the subnet associations. Use this setting to protect against accidentally modifying the subnet associations for a firewall that is in use. When you create a firewall, the operation initializes this setting to TRUE."];
      firewallPolicyChangeProtection: Boolean.t option
        [@ocaml.doc
          "A setting indicating whether the firewall is protected against a change to the firewall policy association. Use this setting to protect against accidentally modifying the firewall policy for a firewall that is in use. When you create a firewall, the operation initializes this setting to TRUE."];
      description: Description.t option
        [@ocaml.doc "A description of the firewall."];
      tags: TagList.t option
        [@ocaml.doc "The key:value pairs to associate with the resource."];
      encryptionConfiguration: EncryptionConfiguration.t option
        [@ocaml.doc
          "A complex type that contains settings for encryption of your firewall resources."];
      enabledAnalysisTypes: EnabledAnalysisTypes.t option
        [@ocaml.doc
          "An optional setting indicating the specific traffic analysis types to enable on the firewall."];
      transitGatewayId: TransitGatewayId.t option
        [@ocaml.doc
          "Required when creating a transit gateway-attached firewall. The unique identifier of the transit gateway to attach to this firewall. You can provide either a transit gateway from your account or one that has been shared with you through Resource Access Manager. After creating the firewall, you cannot change the transit gateway association. To use a different transit gateway, you must create a new firewall. For information about creating firewalls, see CreateFirewall. For specific guidance about transit gateway-attached firewalls, see Considerations for transit gateway-attached firewalls in the Network Firewall Developer Guide."];
      availabilityZoneMappings: AvailabilityZoneMappings.t option
        [@ocaml.doc
          "Required. The Availability Zones where you want to create firewall endpoints for a transit gateway-attached firewall. You must specify at least one Availability Zone. Consider enabling the firewall in every Availability Zone where you have workloads to maintain Availability Zone isolation. You can modify Availability Zones later using AssociateAvailabilityZones or DisassociateAvailabilityZones, but this may briefly disrupt traffic. The AvailabilityZoneChangeProtection setting controls whether you can make these modifications."];
      availabilityZoneChangeProtection: Boolean.t option
        [@ocaml.doc
          "Optional. A setting indicating whether the firewall is protected against changes to its Availability Zone configuration. When set to TRUE, you cannot add or remove Availability Zones without first disabling this protection using UpdateAvailabilityZoneChangeProtection. Default value: FALSE"]}
    let context_ = "CreateFirewallRequest"
    let make ?vpcId =
      fun ?subnetMappings ->
        fun ?deleteProtection ->
          fun ?subnetChangeProtection ->
            fun ?firewallPolicyChangeProtection ->
              fun ?description ->
                fun ?tags ->
                  fun ?encryptionConfiguration ->
                    fun ?enabledAnalysisTypes ->
                      fun ?transitGatewayId ->
                        fun ?availabilityZoneMappings ->
                          fun ?availabilityZoneChangeProtection ->
                            fun ~firewallName ->
                              fun ~firewallPolicyArn ->
                                fun () ->
                                  {
                                    vpcId;
                                    subnetMappings;
                                    deleteProtection;
                                    subnetChangeProtection;
                                    firewallPolicyChangeProtection;
                                    description;
                                    tags;
                                    encryptionConfiguration;
                                    enabledAnalysisTypes;
                                    transitGatewayId;
                                    availabilityZoneMappings;
                                    availabilityZoneChangeProtection;
                                    firewallName;
                                    firewallPolicyArn
                                  }
    let to_value x =
      structure_to_value
        [("FirewallName", (Some (ResourceName.to_value x.firewallName)));
        ("FirewallPolicyArn",
          (Some (ResourceArn.to_value x.firewallPolicyArn)));
        ("VpcId", (Option.map x.vpcId ~f:VpcId.to_value));
        ("SubnetMappings",
          (Option.map x.subnetMappings ~f:SubnetMappings.to_value));
        ("DeleteProtection",
          (Option.map x.deleteProtection ~f:Boolean.to_value));
        ("SubnetChangeProtection",
          (Option.map x.subnetChangeProtection ~f:Boolean.to_value));
        ("FirewallPolicyChangeProtection",
          (Option.map x.firewallPolicyChangeProtection ~f:Boolean.to_value));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("EncryptionConfiguration",
          (Option.map x.encryptionConfiguration
             ~f:EncryptionConfiguration.to_value));
        ("EnabledAnalysisTypes",
          (Option.map x.enabledAnalysisTypes ~f:EnabledAnalysisTypes.to_value));
        ("TransitGatewayId",
          (Option.map x.transitGatewayId ~f:TransitGatewayId.to_value));
        ("AvailabilityZoneMappings",
          (Option.map x.availabilityZoneMappings
             ~f:AvailabilityZoneMappings.to_value));
        ("AvailabilityZoneChangeProtection",
          (Option.map x.availabilityZoneChangeProtection ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let availabilityZoneChangeProtection =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "AvailabilityZoneChangeProtection") in
      let availabilityZoneMappings =
        (Option.map ~f:AvailabilityZoneMappings.of_xml)
          (Xml.child xml_arg0 "AvailabilityZoneMappings") in
      let transitGatewayId =
        (Option.map ~f:TransitGatewayId.of_xml)
          (Xml.child xml_arg0 "TransitGatewayId") in
      let enabledAnalysisTypes =
        (Option.map ~f:EnabledAnalysisTypes.of_xml)
          (Xml.child xml_arg0 "EnabledAnalysisTypes") in
      let encryptionConfiguration =
        (Option.map ~f:EncryptionConfiguration.of_xml)
          (Xml.child xml_arg0 "EncryptionConfiguration") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let firewallPolicyChangeProtection =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "FirewallPolicyChangeProtection") in
      let subnetChangeProtection =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "SubnetChangeProtection") in
      let deleteProtection =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "DeleteProtection") in
      let subnetMappings =
        (Option.map ~f:SubnetMappings.of_xml)
          (Xml.child xml_arg0 "SubnetMappings") in
      let vpcId = (Option.map ~f:VpcId.of_xml) (Xml.child xml_arg0 "VpcId") in
      let firewallPolicyArn =
        ResourceArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FirewallPolicyArn") in
      let firewallName =
        ResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FirewallName") in
      make ?availabilityZoneChangeProtection ?availabilityZoneMappings
        ?transitGatewayId ?enabledAnalysisTypes ?encryptionConfiguration
        ?tags ?description ?firewallPolicyChangeProtection
        ?subnetChangeProtection ?deleteProtection ?subnetMappings ?vpcId
        ~firewallPolicyArn ~firewallName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let availabilityZoneChangeProtection =
        field_map json__ "AvailabilityZoneChangeProtection" Boolean.of_json in
      let availabilityZoneMappings =
        field_map json__ "AvailabilityZoneMappings"
          AvailabilityZoneMappings.of_json in
      let transitGatewayId =
        field_map json__ "TransitGatewayId" TransitGatewayId.of_json in
      let enabledAnalysisTypes =
        field_map json__ "EnabledAnalysisTypes" EnabledAnalysisTypes.of_json in
      let encryptionConfiguration =
        field_map json__ "EncryptionConfiguration"
          EncryptionConfiguration.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let firewallPolicyChangeProtection =
        field_map json__ "FirewallPolicyChangeProtection" Boolean.of_json in
      let subnetChangeProtection =
        field_map json__ "SubnetChangeProtection" Boolean.of_json in
      let deleteProtection =
        field_map json__ "DeleteProtection" Boolean.of_json in
      let subnetMappings =
        field_map json__ "SubnetMappings" SubnetMappings.of_json in
      let vpcId = field_map json__ "VpcId" VpcId.of_json in
      let firewallPolicyArn =
        field_map_exn json__ "FirewallPolicyArn" ResourceArn.of_json in
      let firewallName =
        field_map_exn json__ "FirewallName" ResourceName.of_json in
      make ?availabilityZoneChangeProtection ?availabilityZoneMappings
        ?transitGatewayId ?enabledAnalysisTypes ?encryptionConfiguration
        ?tags ?description ?firewallPolicyChangeProtection
        ?subnetChangeProtection ?deleteProtection ?subnetMappings ?vpcId
        ~firewallPolicyArn ~firewallName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an Network Firewall Firewall and accompanying FirewallStatus for a VPC. The firewall defines the configuration settings for an Network Firewall firewall. The settings that you can define at creation include the firewall policy, the subnets in your VPC to use for the firewall endpoints, and any tags that are attached to the firewall Amazon Web Services resource. After you create a firewall, you can provide additional settings, like the logging configuration. To update the settings for a firewall, you use the operations that apply to the settings themselves, for example UpdateLoggingConfiguration, AssociateSubnets, and UpdateFirewallDeleteProtection. To manage a firewall's tags, use the standard Amazon Web Services resource tagging operations, ListTagsForResource, TagResource, and UntagResource. To retrieve information about firewalls, use ListFirewalls and DescribeFirewall. To generate a report on the last 30 days of traffic monitored by a firewall, use StartAnalysisReport."]
module CreateFirewallPolicyResponse =
  struct
    type nonrec t =
      {
      updateToken: UpdateToken.t option
        [@ocaml.doc
          "A token used for optimistic locking. Network Firewall returns a token to your requests that access the firewall policy. The token marks the state of the policy resource at the time of the request. To make changes to the policy, you provide the token in your request. Network Firewall uses the token to ensure that the policy hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the firewall policy again to get a current copy of it with current token. Reapply your changes as needed, then try the operation again using the new token."];
      firewallPolicyResponse: FirewallPolicyResponse.t option
        [@ocaml.doc
          "The high-level properties of a firewall policy. This, along with the FirewallPolicy, define the policy. You can retrieve all objects for a firewall policy by calling DescribeFirewallPolicy."]}
    type nonrec error =
      [ `InsufficientCapacityException of InsufficientCapacityException.t 
      | `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?updateToken =
      fun ?firewallPolicyResponse ->
        fun () -> { updateToken; firewallPolicyResponse }
    let error_of_json name json =
      match name with
      | "InsufficientCapacityException" ->
          `InsufficientCapacityException
            (InsufficientCapacityException.of_json json)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | "InsufficientCapacityException" ->
          `InsufficientCapacityException
            (InsufficientCapacityException.of_xml xml)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | `InsufficientCapacityException e ->
          `Assoc
            [("error", (`String "InsufficientCapacityException"));
            ("details", (InsufficientCapacityException.to_json e))]
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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
        [("UpdateToken", (Option.map x.updateToken ~f:UpdateToken.to_value));
        ("FirewallPolicyResponse",
          (Option.map x.firewallPolicyResponse
             ~f:FirewallPolicyResponse.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let firewallPolicyResponse =
        (Option.map ~f:FirewallPolicyResponse.of_xml)
          (Xml.child xml_arg0 "FirewallPolicyResponse") in
      let updateToken =
        (Option.map ~f:UpdateToken.of_xml) (Xml.child xml_arg0 "UpdateToken") in
      make ?firewallPolicyResponse ?updateToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let firewallPolicyResponse =
        field_map json__ "FirewallPolicyResponse"
          FirewallPolicyResponse.of_json in
      let updateToken = field_map json__ "UpdateToken" UpdateToken.of_json in
      make ?firewallPolicyResponse ?updateToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates the firewall policy for the firewall according to the specifications. An Network Firewall firewall policy defines the behavior of a firewall, in a collection of stateless and stateful rule groups and other settings. You can use one firewall policy for multiple firewalls."]
module CreateFirewallPolicyRequest =
  struct
    type nonrec t =
      {
      firewallPolicyName: ResourceName.t
        [@ocaml.doc
          "The descriptive name of the firewall policy. You can't change the name of a firewall policy after you create it."];
      firewallPolicy: FirewallPolicy.t
        [@ocaml.doc
          "The rule groups and policy actions to use in the firewall policy."];
      description: Description.t option
        [@ocaml.doc "A description of the firewall policy."];
      tags: TagList.t option
        [@ocaml.doc "The key:value pairs to associate with the resource."];
      dryRun: Boolean.t option
        [@ocaml.doc
          "Indicates whether you want Network Firewall to just check the validity of the request, rather than run the request. If set to TRUE, Network Firewall checks whether the request can run successfully, but doesn't actually make the requested changes. The call returns the value that the request would return if you ran it with dry run set to FALSE, but doesn't make additions or changes to your resources. This option allows you to make sure that you have the required permissions to run the request and that your request parameters are valid. If set to FALSE, Network Firewall makes the requested changes to your resources."];
      encryptionConfiguration: EncryptionConfiguration.t option
        [@ocaml.doc
          "A complex type that contains settings for encryption of your firewall policy resources."]}
    let context_ = "CreateFirewallPolicyRequest"
    let make ?description =
      fun ?tags ->
        fun ?dryRun ->
          fun ?encryptionConfiguration ->
            fun ~firewallPolicyName ->
              fun ~firewallPolicy ->
                fun () ->
                  {
                    description;
                    tags;
                    dryRun;
                    encryptionConfiguration;
                    firewallPolicyName;
                    firewallPolicy
                  }
    let to_value x =
      structure_to_value
        [("FirewallPolicyName",
           (Some (ResourceName.to_value x.firewallPolicyName)));
        ("FirewallPolicy", (Some (FirewallPolicy.to_value x.firewallPolicy)));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("DryRun", (Option.map x.dryRun ~f:Boolean.to_value));
        ("EncryptionConfiguration",
          (Option.map x.encryptionConfiguration
             ~f:EncryptionConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let encryptionConfiguration =
        (Option.map ~f:EncryptionConfiguration.of_xml)
          (Xml.child xml_arg0 "EncryptionConfiguration") in
      let dryRun =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "DryRun") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let firewallPolicy =
        FirewallPolicy.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FirewallPolicy") in
      let firewallPolicyName =
        ResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FirewallPolicyName") in
      make ?encryptionConfiguration ?dryRun ?tags ?description
        ~firewallPolicy ~firewallPolicyName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let encryptionConfiguration =
        field_map json__ "EncryptionConfiguration"
          EncryptionConfiguration.of_json in
      let dryRun = field_map json__ "DryRun" Boolean.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let firewallPolicy =
        field_map_exn json__ "FirewallPolicy" FirewallPolicy.of_json in
      let firewallPolicyName =
        field_map_exn json__ "FirewallPolicyName" ResourceName.of_json in
      make ?encryptionConfiguration ?dryRun ?tags ?description
        ~firewallPolicy ~firewallPolicyName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates the firewall policy for the firewall according to the specifications. An Network Firewall firewall policy defines the behavior of a firewall, in a collection of stateless and stateful rule groups and other settings. You can use one firewall policy for multiple firewalls."]
module AttachRuleGroupsToProxyConfigurationResponse =
  struct
    type nonrec t =
      {
      proxyConfiguration: ProxyConfiguration.t option
        [@ocaml.doc
          "The updated proxy configuration resource that reflects the updates from the request."];
      updateToken: UpdateToken.t option
        [@ocaml.doc
          "A token used for optimistic locking. Network Firewall returns a token to your requests that access the proxy configuration. The token marks the state of the proxy configuration resource at the time of the request. To make changes to the proxy configuration, you provide the token in your request. Network Firewall uses the token to ensure that the proxy configuration hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the proxy configuration again to get a current copy of it with a current token. Reapply your changes as needed, then try the operation again using the new token."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?proxyConfiguration =
      fun ?updateToken -> fun () -> { proxyConfiguration; updateToken }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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
        [("ProxyConfiguration",
           (Option.map x.proxyConfiguration ~f:ProxyConfiguration.to_value));
        ("UpdateToken", (Option.map x.updateToken ~f:UpdateToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updateToken =
        (Option.map ~f:UpdateToken.of_xml) (Xml.child xml_arg0 "UpdateToken") in
      let proxyConfiguration =
        (Option.map ~f:ProxyConfiguration.of_xml)
          (Xml.child xml_arg0 "ProxyConfiguration") in
      make ?updateToken ?proxyConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updateToken = field_map json__ "UpdateToken" UpdateToken.of_json in
      let proxyConfiguration =
        field_map json__ "ProxyConfiguration" ProxyConfiguration.of_json in
      make ?updateToken ?proxyConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Attaches ProxyRuleGroup resources to a ProxyConfiguration A Proxy Configuration defines the monitoring and protection behavior for a Proxy. The details of the behavior are defined in the rule groups that you add to your configuration."]
module AttachRuleGroupsToProxyConfigurationRequest =
  struct
    type nonrec t =
      {
      proxyConfigurationName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the proxy configuration. You can't change the name of a proxy configuration after you create it. You must specify the ARN or the name, and you can specify both."];
      proxyConfigurationArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of a proxy configuration. You must specify the ARN or the name, and you can specify both."];
      ruleGroups: ProxyRuleGroupAttachmentList.t
        [@ocaml.doc
          "The proxy rule group(s) to attach to the proxy configuration"];
      updateToken: UpdateToken.t
        [@ocaml.doc
          "A token used for optimistic locking. Network Firewall returns a token to your requests that access the proxy configuration. The token marks the state of the proxy configuration resource at the time of the request. To make changes to the proxy configuration, you provide the token in your request. Network Firewall uses the token to ensure that the proxy configuration hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the proxy configuration again to get a current copy of it with a current token. Reapply your changes as needed, then try the operation again using the new token."]}
    let context_ = "AttachRuleGroupsToProxyConfigurationRequest"
    let make ?proxyConfigurationName =
      fun ?proxyConfigurationArn ->
        fun ~ruleGroups ->
          fun ~updateToken ->
            fun () ->
              {
                proxyConfigurationName;
                proxyConfigurationArn;
                ruleGroups;
                updateToken
              }
    let to_value x =
      structure_to_value
        [("ProxyConfigurationName",
           (Option.map x.proxyConfigurationName ~f:ResourceName.to_value));
        ("ProxyConfigurationArn",
          (Option.map x.proxyConfigurationArn ~f:ResourceArn.to_value));
        ("RuleGroups",
          (Some (ProxyRuleGroupAttachmentList.to_value x.ruleGroups)));
        ("UpdateToken", (Some (UpdateToken.to_value x.updateToken)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updateToken =
        UpdateToken.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "UpdateToken") in
      let ruleGroups =
        ProxyRuleGroupAttachmentList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RuleGroups") in
      let proxyConfigurationArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "ProxyConfigurationArn") in
      let proxyConfigurationName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "ProxyConfigurationName") in
      make ~updateToken ~ruleGroups ?proxyConfigurationArn
        ?proxyConfigurationName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updateToken =
        field_map_exn json__ "UpdateToken" UpdateToken.of_json in
      let ruleGroups =
        field_map_exn json__ "RuleGroups"
          ProxyRuleGroupAttachmentList.of_json in
      let proxyConfigurationArn =
        field_map json__ "ProxyConfigurationArn" ResourceArn.of_json in
      let proxyConfigurationName =
        field_map json__ "ProxyConfigurationName" ResourceName.of_json in
      make ~updateToken ~ruleGroups ?proxyConfigurationArn
        ?proxyConfigurationName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Attaches ProxyRuleGroup resources to a ProxyConfiguration A Proxy Configuration defines the monitoring and protection behavior for a Proxy. The details of the behavior are defined in the rule groups that you add to your configuration."]
module AssociateSubnetsResponse =
  struct
    type nonrec t =
      {
      firewallArn: ResourceArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the firewall."];
      firewallName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the firewall. You can't change the name of a firewall after you create it."];
      subnetMappings: SubnetMappings.t option
        [@ocaml.doc
          "The IDs of the subnets that are associated with the firewall."];
      updateToken: UpdateToken.t option
        [@ocaml.doc
          "An optional token that you can use for optimistic locking. Network Firewall returns a token to your requests that access the firewall. The token marks the state of the firewall resource at the time of the request. To make an unconditional change to the firewall, omit the token in your update request. Without the token, Network Firewall performs your updates regardless of whether the firewall has changed since you last retrieved it. To make a conditional change to the firewall, provide the token in your update request. Network Firewall uses the token to ensure that the firewall hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the firewall again to get a current copy of it with a new token. Reapply your changes as needed, then try the operation again using the new token."]}
    type nonrec error =
      [ `InsufficientCapacityException of InsufficientCapacityException.t 
      | `InternalServerError of InternalServerError.t 
      | `InvalidOperationException of InvalidOperationException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `InvalidTokenException of InvalidTokenException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?firewallArn =
      fun ?firewallName ->
        fun ?subnetMappings ->
          fun ?updateToken ->
            fun () ->
              { firewallArn; firewallName; subnetMappings; updateToken }
    let error_of_json name json =
      match name with
      | "InsufficientCapacityException" ->
          `InsufficientCapacityException
            (InsufficientCapacityException.of_json json)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidOperationException" ->
          `InvalidOperationException (InvalidOperationException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.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
      | "InsufficientCapacityException" ->
          `InsufficientCapacityException
            (InsufficientCapacityException.of_xml xml)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidOperationException" ->
          `InvalidOperationException (InvalidOperationException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.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
      | `InsufficientCapacityException e ->
          `Assoc
            [("error", (`String "InsufficientCapacityException"));
            ("details", (InsufficientCapacityException.to_json e))]
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidOperationException e ->
          `Assoc
            [("error", (`String "InvalidOperationException"));
            ("details", (InvalidOperationException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `InvalidTokenException e ->
          `Assoc
            [("error", (`String "InvalidTokenException"));
            ("details", (InvalidTokenException.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
        [("FirewallArn", (Option.map x.firewallArn ~f:ResourceArn.to_value));
        ("FirewallName",
          (Option.map x.firewallName ~f:ResourceName.to_value));
        ("SubnetMappings",
          (Option.map x.subnetMappings ~f:SubnetMappings.to_value));
        ("UpdateToken", (Option.map x.updateToken ~f:UpdateToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updateToken =
        (Option.map ~f:UpdateToken.of_xml) (Xml.child xml_arg0 "UpdateToken") in
      let subnetMappings =
        (Option.map ~f:SubnetMappings.of_xml)
          (Xml.child xml_arg0 "SubnetMappings") in
      let firewallName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "FirewallName") in
      let firewallArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "FirewallArn") in
      make ?updateToken ?subnetMappings ?firewallName ?firewallArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updateToken = field_map json__ "UpdateToken" UpdateToken.of_json in
      let subnetMappings =
        field_map json__ "SubnetMappings" SubnetMappings.of_json in
      let firewallName = field_map json__ "FirewallName" ResourceName.of_json in
      let firewallArn = field_map json__ "FirewallArn" ResourceArn.of_json in
      make ?updateToken ?subnetMappings ?firewallName ?firewallArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates the specified subnets in the Amazon VPC to the firewall. You can specify one subnet for each of the Availability Zones that the VPC spans. This request creates an Network Firewall firewall endpoint in each of the subnets. To enable the firewall's protections, you must also modify the VPC's route tables for each subnet's Availability Zone, to redirect the traffic that's coming into and going out of the zone through the firewall endpoint."]
module AssociateSubnetsRequest =
  struct
    type nonrec t =
      {
      updateToken: UpdateToken.t option
        [@ocaml.doc
          "An optional token that you can use for optimistic locking. Network Firewall returns a token to your requests that access the firewall. The token marks the state of the firewall resource at the time of the request. To make an unconditional change to the firewall, omit the token in your update request. Without the token, Network Firewall performs your updates regardless of whether the firewall has changed since you last retrieved it. To make a conditional change to the firewall, provide the token in your update request. Network Firewall uses the token to ensure that the firewall hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the firewall again to get a current copy of it with a new token. Reapply your changes as needed, then try the operation again using the new token."];
      firewallArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the firewall. You must specify the ARN or the name, and you can specify both."];
      firewallName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the firewall. You can't change the name of a firewall after you create it. You must specify the ARN or the name, and you can specify both."];
      subnetMappings: SubnetMappings.t
        [@ocaml.doc
          "The IDs of the subnets that you want to associate with the firewall."]}
    let context_ = "AssociateSubnetsRequest"
    let make ?updateToken =
      fun ?firewallArn ->
        fun ?firewallName ->
          fun ~subnetMappings ->
            fun () ->
              { updateToken; firewallArn; firewallName; subnetMappings }
    let to_value x =
      structure_to_value
        [("UpdateToken", (Option.map x.updateToken ~f:UpdateToken.to_value));
        ("FirewallArn", (Option.map x.firewallArn ~f:ResourceArn.to_value));
        ("FirewallName",
          (Option.map x.firewallName ~f:ResourceName.to_value));
        ("SubnetMappings", (Some (SubnetMappings.to_value x.subnetMappings)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let subnetMappings =
        SubnetMappings.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SubnetMappings") in
      let firewallName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "FirewallName") in
      let firewallArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "FirewallArn") in
      let updateToken =
        (Option.map ~f:UpdateToken.of_xml) (Xml.child xml_arg0 "UpdateToken") in
      make ~subnetMappings ?firewallName ?firewallArn ?updateToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let subnetMappings =
        field_map_exn json__ "SubnetMappings" SubnetMappings.of_json in
      let firewallName = field_map json__ "FirewallName" ResourceName.of_json in
      let firewallArn = field_map json__ "FirewallArn" ResourceArn.of_json in
      let updateToken = field_map json__ "UpdateToken" UpdateToken.of_json in
      make ~subnetMappings ?firewallName ?firewallArn ?updateToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates the specified subnets in the Amazon VPC to the firewall. You can specify one subnet for each of the Availability Zones that the VPC spans. This request creates an Network Firewall firewall endpoint in each of the subnets. To enable the firewall's protections, you must also modify the VPC's route tables for each subnet's Availability Zone, to redirect the traffic that's coming into and going out of the zone through the firewall endpoint."]
module AssociateFirewallPolicyResponse =
  struct
    type nonrec t =
      {
      firewallArn: ResourceArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the firewall."];
      firewallName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the firewall. You can't change the name of a firewall after you create it."];
      firewallPolicyArn: ResourceArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the firewall policy."];
      updateToken: UpdateToken.t option
        [@ocaml.doc
          "An optional token that you can use for optimistic locking. Network Firewall returns a token to your requests that access the firewall. The token marks the state of the firewall resource at the time of the request. To make an unconditional change to the firewall, omit the token in your update request. Without the token, Network Firewall performs your updates regardless of whether the firewall has changed since you last retrieved it. To make a conditional change to the firewall, provide the token in your update request. Network Firewall uses the token to ensure that the firewall hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the firewall again to get a current copy of it with a new token. Reapply your changes as needed, then try the operation again using the new token."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidOperationException of InvalidOperationException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `InvalidTokenException of InvalidTokenException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?firewallArn =
      fun ?firewallName ->
        fun ?firewallPolicyArn ->
          fun ?updateToken ->
            fun () ->
              { firewallArn; firewallName; firewallPolicyArn; updateToken }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidOperationException" ->
          `InvalidOperationException (InvalidOperationException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidOperationException" ->
          `InvalidOperationException (InvalidOperationException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidOperationException e ->
          `Assoc
            [("error", (`String "InvalidOperationException"));
            ("details", (InvalidOperationException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `InvalidTokenException e ->
          `Assoc
            [("error", (`String "InvalidTokenException"));
            ("details", (InvalidTokenException.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
        [("FirewallArn", (Option.map x.firewallArn ~f:ResourceArn.to_value));
        ("FirewallName",
          (Option.map x.firewallName ~f:ResourceName.to_value));
        ("FirewallPolicyArn",
          (Option.map x.firewallPolicyArn ~f:ResourceArn.to_value));
        ("UpdateToken", (Option.map x.updateToken ~f:UpdateToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updateToken =
        (Option.map ~f:UpdateToken.of_xml) (Xml.child xml_arg0 "UpdateToken") in
      let firewallPolicyArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "FirewallPolicyArn") in
      let firewallName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "FirewallName") in
      let firewallArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "FirewallArn") in
      make ?updateToken ?firewallPolicyArn ?firewallName ?firewallArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updateToken = field_map json__ "UpdateToken" UpdateToken.of_json in
      let firewallPolicyArn =
        field_map json__ "FirewallPolicyArn" ResourceArn.of_json in
      let firewallName = field_map json__ "FirewallName" ResourceName.of_json in
      let firewallArn = field_map json__ "FirewallArn" ResourceArn.of_json in
      make ?updateToken ?firewallPolicyArn ?firewallName ?firewallArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates a FirewallPolicy to a Firewall. A firewall policy defines how to monitor and manage your VPC network traffic, using a collection of inspection rule groups and other settings. Each firewall requires one firewall policy association, and you can use the same firewall policy for multiple firewalls."]
module AssociateFirewallPolicyRequest =
  struct
    type nonrec t =
      {
      updateToken: UpdateToken.t option
        [@ocaml.doc
          "An optional token that you can use for optimistic locking. Network Firewall returns a token to your requests that access the firewall. The token marks the state of the firewall resource at the time of the request. To make an unconditional change to the firewall, omit the token in your update request. Without the token, Network Firewall performs your updates regardless of whether the firewall has changed since you last retrieved it. To make a conditional change to the firewall, provide the token in your update request. Network Firewall uses the token to ensure that the firewall hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the firewall again to get a current copy of it with a new token. Reapply your changes as needed, then try the operation again using the new token."];
      firewallArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the firewall. You must specify the ARN or the name, and you can specify both."];
      firewallName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the firewall. You can't change the name of a firewall after you create it. You must specify the ARN or the name, and you can specify both."];
      firewallPolicyArn: ResourceArn.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the firewall policy."]}
    let context_ = "AssociateFirewallPolicyRequest"
    let make ?updateToken =
      fun ?firewallArn ->
        fun ?firewallName ->
          fun ~firewallPolicyArn ->
            fun () ->
              { updateToken; firewallArn; firewallName; firewallPolicyArn }
    let to_value x =
      structure_to_value
        [("UpdateToken", (Option.map x.updateToken ~f:UpdateToken.to_value));
        ("FirewallArn", (Option.map x.firewallArn ~f:ResourceArn.to_value));
        ("FirewallName",
          (Option.map x.firewallName ~f:ResourceName.to_value));
        ("FirewallPolicyArn",
          (Some (ResourceArn.to_value x.firewallPolicyArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let firewallPolicyArn =
        ResourceArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FirewallPolicyArn") in
      let firewallName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "FirewallName") in
      let firewallArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "FirewallArn") in
      let updateToken =
        (Option.map ~f:UpdateToken.of_xml) (Xml.child xml_arg0 "UpdateToken") in
      make ~firewallPolicyArn ?firewallName ?firewallArn ?updateToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let firewallPolicyArn =
        field_map_exn json__ "FirewallPolicyArn" ResourceArn.of_json in
      let firewallName = field_map json__ "FirewallName" ResourceName.of_json in
      let firewallArn = field_map json__ "FirewallArn" ResourceArn.of_json in
      let updateToken = field_map json__ "UpdateToken" UpdateToken.of_json in
      make ~firewallPolicyArn ?firewallName ?firewallArn ?updateToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates a FirewallPolicy to a Firewall. A firewall policy defines how to monitor and manage your VPC network traffic, using a collection of inspection rule groups and other settings. Each firewall requires one firewall policy association, and you can use the same firewall policy for multiple firewalls."]
module AssociateAvailabilityZonesResponse =
  struct
    type nonrec t =
      {
      firewallArn: ResourceArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the firewall."];
      firewallName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the firewall. You can't change the name of a firewall after you create it."];
      availabilityZoneMappings: AvailabilityZoneMappings.t option
        [@ocaml.doc
          "The Availability Zones where Network Firewall created firewall endpoints. Each mapping specifies an Availability Zone where the firewall processes traffic."];
      updateToken: UpdateToken.t option
        [@ocaml.doc
          "An optional token that you can use for optimistic locking. Network Firewall returns a token to your requests that access the firewall. The token marks the state of the firewall resource at the time of the request. To make an unconditional change to the firewall, omit the token in your update request. Without the token, Network Firewall performs your updates regardless of whether the firewall has changed since you last retrieved it. To make a conditional change to the firewall, provide the token in your update request. Network Firewall uses the token to ensure that the firewall hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the firewall again to get a current copy of it with a new token. Reapply your changes as needed, then try the operation again using the new token."]}
    type nonrec error =
      [ `InsufficientCapacityException of InsufficientCapacityException.t 
      | `InternalServerError of InternalServerError.t 
      | `InvalidOperationException of InvalidOperationException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `InvalidTokenException of InvalidTokenException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?firewallArn =
      fun ?firewallName ->
        fun ?availabilityZoneMappings ->
          fun ?updateToken ->
            fun () ->
              {
                firewallArn;
                firewallName;
                availabilityZoneMappings;
                updateToken
              }
    let error_of_json name json =
      match name with
      | "InsufficientCapacityException" ->
          `InsufficientCapacityException
            (InsufficientCapacityException.of_json json)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidOperationException" ->
          `InvalidOperationException (InvalidOperationException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.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
      | "InsufficientCapacityException" ->
          `InsufficientCapacityException
            (InsufficientCapacityException.of_xml xml)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidOperationException" ->
          `InvalidOperationException (InvalidOperationException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.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
      | `InsufficientCapacityException e ->
          `Assoc
            [("error", (`String "InsufficientCapacityException"));
            ("details", (InsufficientCapacityException.to_json e))]
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidOperationException e ->
          `Assoc
            [("error", (`String "InvalidOperationException"));
            ("details", (InvalidOperationException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `InvalidTokenException e ->
          `Assoc
            [("error", (`String "InvalidTokenException"));
            ("details", (InvalidTokenException.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
        [("FirewallArn", (Option.map x.firewallArn ~f:ResourceArn.to_value));
        ("FirewallName",
          (Option.map x.firewallName ~f:ResourceName.to_value));
        ("AvailabilityZoneMappings",
          (Option.map x.availabilityZoneMappings
             ~f:AvailabilityZoneMappings.to_value));
        ("UpdateToken", (Option.map x.updateToken ~f:UpdateToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updateToken =
        (Option.map ~f:UpdateToken.of_xml) (Xml.child xml_arg0 "UpdateToken") in
      let availabilityZoneMappings =
        (Option.map ~f:AvailabilityZoneMappings.of_xml)
          (Xml.child xml_arg0 "AvailabilityZoneMappings") in
      let firewallName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "FirewallName") in
      let firewallArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "FirewallArn") in
      make ?updateToken ?availabilityZoneMappings ?firewallName ?firewallArn
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updateToken = field_map json__ "UpdateToken" UpdateToken.of_json in
      let availabilityZoneMappings =
        field_map json__ "AvailabilityZoneMappings"
          AvailabilityZoneMappings.of_json in
      let firewallName = field_map json__ "FirewallName" ResourceName.of_json in
      let firewallArn = field_map json__ "FirewallArn" ResourceArn.of_json in
      make ?updateToken ?availabilityZoneMappings ?firewallName ?firewallArn
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates the specified Availability Zones with a transit gateway-attached firewall. For each Availability Zone, Network Firewall creates a firewall endpoint to process traffic. You can specify one or more Availability Zones where you want to deploy the firewall. After adding Availability Zones, you must update your transit gateway route tables to direct traffic through the new firewall endpoints. Use DescribeFirewall to monitor the status of the new endpoints."]
module AssociateAvailabilityZonesRequest =
  struct
    type nonrec t =
      {
      updateToken: UpdateToken.t option
        [@ocaml.doc
          "An optional token that you can use for optimistic locking. Network Firewall returns a token to your requests that access the firewall. The token marks the state of the firewall resource at the time of the request. To make an unconditional change to the firewall, omit the token in your update request. Without the token, Network Firewall performs your updates regardless of whether the firewall has changed since you last retrieved it. To make a conditional change to the firewall, provide the token in your update request. Network Firewall uses the token to ensure that the firewall hasn't changed since you last retrieved it. If it has changed, the operation fails with an InvalidTokenException. If this happens, retrieve the firewall again to get a current copy of it with a new token. Reapply your changes as needed, then try the operation again using the new token."];
      firewallArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the firewall. You must specify the ARN or the name, and you can specify both."];
      firewallName: ResourceName.t option
        [@ocaml.doc
          "The descriptive name of the firewall. You can't change the name of a firewall after you create it. You must specify the ARN or the name, and you can specify both."];
      availabilityZoneMappings: AvailabilityZoneMappings.t
        [@ocaml.doc
          "Required. The Availability Zones where you want to create firewall endpoints. You must specify at least one Availability Zone."]}
    let context_ = "AssociateAvailabilityZonesRequest"
    let make ?updateToken =
      fun ?firewallArn ->
        fun ?firewallName ->
          fun ~availabilityZoneMappings ->
            fun () ->
              {
                updateToken;
                firewallArn;
                firewallName;
                availabilityZoneMappings
              }
    let to_value x =
      structure_to_value
        [("UpdateToken", (Option.map x.updateToken ~f:UpdateToken.to_value));
        ("FirewallArn", (Option.map x.firewallArn ~f:ResourceArn.to_value));
        ("FirewallName",
          (Option.map x.firewallName ~f:ResourceName.to_value));
        ("AvailabilityZoneMappings",
          (Some
             (AvailabilityZoneMappings.to_value x.availabilityZoneMappings)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let availabilityZoneMappings =
        AvailabilityZoneMappings.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "AvailabilityZoneMappings") in
      let firewallName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "FirewallName") in
      let firewallArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "FirewallArn") in
      let updateToken =
        (Option.map ~f:UpdateToken.of_xml) (Xml.child xml_arg0 "UpdateToken") in
      make ~availabilityZoneMappings ?firewallName ?firewallArn ?updateToken
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let availabilityZoneMappings =
        field_map_exn json__ "AvailabilityZoneMappings"
          AvailabilityZoneMappings.of_json in
      let firewallName = field_map json__ "FirewallName" ResourceName.of_json in
      let firewallArn = field_map json__ "FirewallArn" ResourceArn.of_json in
      let updateToken = field_map json__ "UpdateToken" UpdateToken.of_json in
      make ~availabilityZoneMappings ?firewallName ?firewallArn ?updateToken
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates the specified Availability Zones with a transit gateway-attached firewall. For each Availability Zone, Network Firewall creates a firewall endpoint to process traffic. You can specify one or more Availability Zones where you want to deploy the firewall. After adding Availability Zones, you must update your transit gateway route tables to direct traffic through the new firewall endpoints. Use DescribeFirewall to monitor the status of the new endpoints."]
module AcceptNetworkFirewallTransitGatewayAttachmentResponse =
  struct
    type nonrec t =
      {
      transitGatewayAttachmentId: TransitGatewayAttachmentId.t option
        [@ocaml.doc
          "The unique identifier of the transit gateway attachment that was accepted."];
      transitGatewayAttachmentStatus: TransitGatewayAttachmentStatus.t option
        [@ocaml.doc
          "The current status of the transit gateway attachment. Valid values are: CREATING - The attachment is being created DELETING - The attachment is being deleted DELETED - The attachment has been deleted FAILED - The attachment creation has failed and cannot be recovered ERROR - The attachment is in an error state that might be recoverable READY - The attachment is active and processing traffic PENDING_ACCEPTANCE - The attachment is waiting to be accepted REJECTING - The attachment is in the process of being rejected REJECTED - The attachment has been rejected"]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?transitGatewayAttachmentId =
      fun ?transitGatewayAttachmentStatus ->
        fun () ->
          { transitGatewayAttachmentId; transitGatewayAttachmentStatus }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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
        [("TransitGatewayAttachmentId",
           (Option.map x.transitGatewayAttachmentId
              ~f:TransitGatewayAttachmentId.to_value));
        ("TransitGatewayAttachmentStatus",
          (Option.map x.transitGatewayAttachmentStatus
             ~f:TransitGatewayAttachmentStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let transitGatewayAttachmentStatus =
        (Option.map ~f:TransitGatewayAttachmentStatus.of_xml)
          (Xml.child xml_arg0 "TransitGatewayAttachmentStatus") in
      let transitGatewayAttachmentId =
        (Option.map ~f:TransitGatewayAttachmentId.of_xml)
          (Xml.child xml_arg0 "TransitGatewayAttachmentId") in
      make ?transitGatewayAttachmentStatus ?transitGatewayAttachmentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let transitGatewayAttachmentStatus =
        field_map json__ "TransitGatewayAttachmentStatus"
          TransitGatewayAttachmentStatus.of_json in
      let transitGatewayAttachmentId =
        field_map json__ "TransitGatewayAttachmentId"
          TransitGatewayAttachmentId.of_json in
      make ?transitGatewayAttachmentStatus ?transitGatewayAttachmentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Accepts a transit gateway attachment request for Network Firewall. When you accept the attachment request, Network Firewall creates the necessary routing components to enable traffic flow between the transit gateway and firewall endpoints. You must accept a transit gateway attachment to complete the creation of a transit gateway-attached firewall, unless auto-accept is enabled on the transit gateway. After acceptance, use DescribeFirewall to verify the firewall status. To reject an attachment instead of accepting it, use RejectNetworkFirewallTransitGatewayAttachment. It can take several minutes for the attachment acceptance to complete and the firewall to become available."]
module AcceptNetworkFirewallTransitGatewayAttachmentRequest =
  struct
    type nonrec t =
      {
      transitGatewayAttachmentId: TransitGatewayAttachmentId.t
        [@ocaml.doc
          "Required. The unique identifier of the transit gateway attachment to accept. This ID is returned in the response when creating a transit gateway-attached firewall."]}
    let context_ = "AcceptNetworkFirewallTransitGatewayAttachmentRequest"
    let make ~transitGatewayAttachmentId =
      fun () -> { transitGatewayAttachmentId }
    let to_value x =
      structure_to_value
        [("TransitGatewayAttachmentId",
           (Some
              (TransitGatewayAttachmentId.to_value
                 x.transitGatewayAttachmentId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let transitGatewayAttachmentId =
        TransitGatewayAttachmentId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "TransitGatewayAttachmentId") in
      make ~transitGatewayAttachmentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let transitGatewayAttachmentId =
        field_map_exn json__ "TransitGatewayAttachmentId"
          TransitGatewayAttachmentId.of_json in
      make ~transitGatewayAttachmentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Accepts a transit gateway attachment request for Network Firewall. When you accept the attachment request, Network Firewall creates the necessary routing components to enable traffic flow between the transit gateway and firewall endpoints. You must accept a transit gateway attachment to complete the creation of a transit gateway-attached firewall, unless auto-accept is enabled on the transit gateway. After acceptance, use DescribeFirewall to verify the firewall status. To reject an attachment instead of accepting it, use RejectNetworkFirewallTransitGatewayAttachment. It can take several minutes for the attachment acceptance to complete and the firewall to become available."]