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.vpc_lattice
let apiVersion = "2022-11-30"
let endpointPrefix = "vpc-lattice"
let serviceFullName = "Amazon VPC Lattice"
let signatureVersion = "v4"
let protocol = "rest_json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let simple_to_json to_value x =
  Botodata.Json.value_to_json_scalar (to_value x)
let composed_to_json to_value x = Botodata.Json.value_to_json (to_value x)
let to_query to_value x = Client.Query.of_value (to_value x)
let structure_to_value_aux st ~f =
  let filter = function | (k, Some v) -> Some (k, v) | _ -> None in
  let pair k v = (k, v) in
  let defer_value (k, dv) = pair k dv in
  ((List.filter_map st ~f:filter) |> (List.map ~f:defer_value)) |>
    (fun x -> `Structure (f x))
let structure_to_value = structure_to_value_aux ~f:Fn.id
let structure_to_wrapped_value ~wrapper ~response =
  structure_to_value_aux
    ~f:(fun x -> [(wrapper, (`Structure x)); (response, (`Structure []))])
module HeaderMatchContains =
  struct
    type nonrec t = string
    let context_ = "HeaderMatchContains"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:200) >>=
             (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:"HeaderMatchContains" j
    let to_json = simple_to_json to_value
  end
module HeaderMatchExact =
  struct
    type nonrec t = string
    let context_ = "HeaderMatchExact"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:200) >>=
             (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:"HeaderMatchExact" j
    let to_json = simple_to_json to_value
  end
module HeaderMatchPrefix =
  struct
    type nonrec t = string
    let context_ = "HeaderMatchPrefix"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:200) >>=
             (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:"HeaderMatchPrefix" j
    let to_json = simple_to_json to_value
  end
module TargetGroupIdentifier =
  struct
    type nonrec t = string
    let context_ = "TargetGroupIdentifier"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:17) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"((tg-[0-9a-z]{17})|(arn:[a-z0-9\\-]+:vpc-lattice:[a-zA-Z0-9\\-]+:\\d{12}:targetgroup/tg-[0-9a-z]{17}))")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TargetGroupIdentifier" j
    let to_json = simple_to_json to_value
  end
module TargetGroupWeight =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:999) >>= (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 TargetGroupWeight" 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 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 HeaderMatchName =
  struct
    type nonrec t = string
    let context_ = "HeaderMatchName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:100) >>=
             (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:"HeaderMatchName" j
    let to_json = simple_to_json to_value
  end
module HeaderMatchType =
  struct
    type nonrec t =
      {
      exact: HeaderMatchExact.t option [@ocaml.doc "An exact type match."];
      prefix: HeaderMatchPrefix.t option
        [@ocaml.doc
          "A prefix type match. Matches the value with the prefix."];
      contains: HeaderMatchContains.t option
        [@ocaml.doc "A contains type match."]}
    let make ?exact =
      fun ?prefix -> fun ?contains -> fun () -> { exact; prefix; contains }
    let to_value x =
      structure_to_value
        [("exact", (Option.map x.exact ~f:HeaderMatchExact.to_value));
        ("prefix", (Option.map x.prefix ~f:HeaderMatchPrefix.to_value));
        ("contains", (Option.map x.contains ~f:HeaderMatchContains.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let contains =
        (Option.map ~f:HeaderMatchContains.of_xml)
          (Xml.child xml_arg0 "contains") in
      let prefix =
        (Option.map ~f:HeaderMatchPrefix.of_xml)
          (Xml.child xml_arg0 "prefix") in
      let exact =
        (Option.map ~f:HeaderMatchExact.of_xml) (Xml.child xml_arg0 "exact") in
      make ?contains ?prefix ?exact ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let contains = field_map json__ "contains" HeaderMatchContains.of_json in
      let prefix = field_map json__ "prefix" HeaderMatchPrefix.of_json in
      let exact = field_map json__ "exact" HeaderMatchExact.of_json in
      make ?contains ?prefix ?exact ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a header match type."]
module PathMatchExact =
  struct
    type nonrec t = string
    let context_ = "PathMatchExact"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:200) >>=
                  (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:"PathMatchExact" j
    let to_json = simple_to_json to_value
  end
module PathMatchPrefix =
  struct
    type nonrec t = string
    let context_ = "PathMatchPrefix"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:200) >>=
                  (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:"PathMatchPrefix" j
    let to_json = simple_to_json to_value
  end
module WeightedTargetGroup =
  struct
    type nonrec t =
      {
      targetGroupIdentifier: TargetGroupIdentifier.t
        [@ocaml.doc "The ID or ARN of the target group."];
      weight: TargetGroupWeight.t option
        [@ocaml.doc
          "Only required if you specify multiple target groups for a forward action. The weight determines how requests are distributed to the target group. For example, if you specify two target groups, each with a weight of 10, each target group receives half the requests. If you specify two target groups, one with a weight of 10 and the other with a weight of 20, the target group with a weight of 20 receives twice as many requests as the other target group. If there's only one target group specified, then the default value is 100."]}
    let context_ = "WeightedTargetGroup"
    let make ?weight =
      fun ~targetGroupIdentifier ->
        fun () -> { weight; targetGroupIdentifier }
    let to_value x =
      structure_to_value
        [("targetGroupIdentifier",
           (Some (TargetGroupIdentifier.to_value x.targetGroupIdentifier)));
        ("weight", (Option.map x.weight ~f:TargetGroupWeight.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let weight =
        (Option.map ~f:TargetGroupWeight.of_xml)
          (Xml.child xml_arg0 "weight") in
      let targetGroupIdentifier =
        TargetGroupIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "targetGroupIdentifier") in
      make ?weight ~targetGroupIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let weight = field_map json__ "weight" TargetGroupWeight.of_json in
      let targetGroupIdentifier =
        field_map_exn json__ "targetGroupIdentifier"
          TargetGroupIdentifier.of_json in
      make ?weight ~targetGroupIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the weight of a target group."]
module HeaderMatch =
  struct
    type nonrec t =
      {
      name: HeaderMatchName.t [@ocaml.doc "The name of the header."];
      match_: HeaderMatchType.t [@ocaml.doc "The header match type."];
      caseSensitive: Boolean.t option
        [@ocaml.doc "Indicates whether the match is case sensitive."]}
    let context_ = "HeaderMatch"
    let make ?caseSensitive =
      fun ~name -> fun ~match_ -> fun () -> { caseSensitive; name; match_ }
    let to_value x =
      structure_to_value
        [("name", (Some (HeaderMatchName.to_value x.name)));
        ("match", (Some (HeaderMatchType.to_value x.match_)));
        ("caseSensitive", (Option.map x.caseSensitive ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let caseSensitive =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "caseSensitive") in
      let match_ =
        HeaderMatchType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "match") in
      let name =
        HeaderMatchName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ?caseSensitive ~match_ ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let caseSensitive = field_map json__ "caseSensitive" Boolean.of_json in
      let match_ = field_map_exn json__ "match" HeaderMatchType.of_json in
      let name = field_map_exn json__ "name" HeaderMatchName.of_json in
      make ?caseSensitive ~match_ ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the constraints for a header match. Matches incoming requests with rule based on request header value before applying rule action."]
module PathMatchType =
  struct
    type nonrec t =
      {
      exact: PathMatchExact.t option
        [@ocaml.doc "An exact match of the path."];
      prefix: PathMatchPrefix.t option
        [@ocaml.doc "A prefix match of the path."]}
    let make ?exact = fun ?prefix -> fun () -> { exact; prefix }
    let to_value x =
      structure_to_value
        [("exact", (Option.map x.exact ~f:PathMatchExact.to_value));
        ("prefix", (Option.map x.prefix ~f:PathMatchPrefix.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let prefix =
        (Option.map ~f:PathMatchPrefix.of_xml) (Xml.child xml_arg0 "prefix") in
      let exact =
        (Option.map ~f:PathMatchExact.of_xml) (Xml.child xml_arg0 "exact") in
      make ?prefix ?exact ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let prefix = field_map json__ "prefix" PathMatchPrefix.of_json in
      let exact = field_map json__ "exact" PathMatchExact.of_json in
      make ?prefix ?exact ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes a path match type. Each rule can include only one of the following types of paths."]
module PrivateDnsSpecifiedDomain =
  struct
    type nonrec t = string
    let context_ = "PrivateDnsSpecifiedDomain"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PrivateDnsSpecifiedDomain" j
    let to_json = simple_to_json to_value
  end
module HttpStatusCode =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:599) >>=
             (fun () -> check_int_min i ~min:100));
        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 HttpStatusCode" 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 WeightedTargetGroupList =
  struct
    type nonrec t = WeightedTargetGroup.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:10) >>= (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:WeightedTargetGroup.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:WeightedTargetGroup.of_xml)
    let of_json j =
      list_of_json ~kind:"WeightedTargetGroupList"
        ~of_json:WeightedTargetGroup.of_json j
    let to_json v = composed_to_json to_value v
  end
module HeaderMatchList =
  struct
    type nonrec t = HeaderMatch.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:5) >>= (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:HeaderMatch.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:HeaderMatch.of_xml)
    let of_json j =
      list_of_json ~kind:"HeaderMatchList" ~of_json:HeaderMatch.of_json j
    let to_json v = composed_to_json to_value v
  end
module HttpMethod =
  struct
    type nonrec t = string
    let context_ = "HttpMethod"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:16) >>=
             (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:"HttpMethod" j
    let to_json = simple_to_json to_value
  end
module PathMatch =
  struct
    type nonrec t =
      {
      match_: PathMatchType.t [@ocaml.doc "The type of path match."];
      caseSensitive: Boolean.t option
        [@ocaml.doc "Indicates whether the match is case sensitive."]}
    let context_ = "PathMatch"
    let make ?caseSensitive =
      fun ~match_ -> fun () -> { caseSensitive; match_ }
    let to_value x =
      structure_to_value
        [("match", (Some (PathMatchType.to_value x.match_)));
        ("caseSensitive", (Option.map x.caseSensitive ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let caseSensitive =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "caseSensitive") in
      let match_ =
        PathMatchType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "match") in
      make ?caseSensitive ~match_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let caseSensitive = field_map json__ "caseSensitive" Boolean.of_json in
      let match_ = field_map_exn json__ "match" PathMatchType.of_json in
      make ?caseSensitive ~match_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the conditions that can be applied when matching a path for incoming requests."]
module HttpCodeMatcher =
  struct
    type nonrec t = string
    let context_ = "HttpCodeMatcher"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:2000) >>=
                  (fun () -> check_pattern i ~pattern:".*(^[0-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:"HttpCodeMatcher" j
    let to_json = simple_to_json to_value
  end
module String_ =
  struct
    type nonrec t = string
    let context_ = "String"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"String" j
    let to_json = simple_to_json to_value
  end
module ServiceArn =
  struct
    type nonrec t = string
    let context_ = "ServiceArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:20) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:[a-z0-9\\-]+:vpc-lattice:[a-zA-Z0-9\\-]+:\\d{12}:service/svc-[0-9a-z]{17}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ServiceArn" j
    let to_json = simple_to_json to_value
  end
module PrivateDnsPreference =
  struct
    type nonrec t =
      | VERIFIED_DOMAINS_ONLY 
      | ALL_DOMAINS 
      | VERIFIED_DOMAINS_AND_SPECIFIED_DOMAINS 
      | SPECIFIED_DOMAINS_ONLY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | VERIFIED_DOMAINS_ONLY -> "VERIFIED_DOMAINS_ONLY"
      | ALL_DOMAINS -> "ALL_DOMAINS"
      | VERIFIED_DOMAINS_AND_SPECIFIED_DOMAINS ->
          "VERIFIED_DOMAINS_AND_SPECIFIED_DOMAINS"
      | SPECIFIED_DOMAINS_ONLY -> "SPECIFIED_DOMAINS_ONLY"
      | Non_static_id s -> s
    let of_string =
      function
      | "VERIFIED_DOMAINS_ONLY" -> VERIFIED_DOMAINS_ONLY
      | "ALL_DOMAINS" -> ALL_DOMAINS
      | "VERIFIED_DOMAINS_AND_SPECIFIED_DOMAINS" ->
          VERIFIED_DOMAINS_AND_SPECIFIED_DOMAINS
      | "SPECIFIED_DOMAINS_ONLY" -> SPECIFIED_DOMAINS_ONLY
      | 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 PrivateDnsPreference" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"PrivateDnsPreference" j)
    let to_json = simple_to_json to_value
  end
module PrivateDnsSpecifiedDomainsList =
  struct
    type nonrec t = PrivateDnsSpecifiedDomain.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:10) >>= (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:PrivateDnsSpecifiedDomain.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:PrivateDnsSpecifiedDomain.of_xml)
    let of_json j =
      list_of_json ~kind:"PrivateDnsSpecifiedDomainsList"
        ~of_json:PrivateDnsSpecifiedDomain.of_json j
    let to_json v = composed_to_json to_value v
  end
module SecurityGroupId =
  struct
    type nonrec t = string
    let context_ = "SecurityGroupId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:5) >>=
             (fun () ->
                (check_string_max i ~max:200) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"sg-(([0-9a-z]{8})|([0-9a-z]{17}))")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SecurityGroupId" j
    let to_json = simple_to_json to_value
  end
module SubnetId =
  struct
    type nonrec t = string
    let context_ = "SubnetId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:200) >>=
             (fun () -> check_string_min i ~min:5));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SubnetId" j
    let to_json = simple_to_json to_value
  end
module TagKey =
  struct
    type nonrec t = string
    let context_ = "TagKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagKey" j
    let to_json = simple_to_json to_value
  end
module TagValue =
  struct
    type nonrec t = string
    let context_ = "TagValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagValue" j
    let to_json = simple_to_json to_value
  end
module FixedResponseAction =
  struct
    type nonrec t =
      {
      statusCode: HttpStatusCode.t
        [@ocaml.doc
          "The HTTP response code. Only 404 and 500 status codes are supported."]}
    let context_ = "FixedResponseAction"
    let make ~statusCode = fun () -> { statusCode }
    let to_value x =
      structure_to_value
        [("statusCode", (Some (HttpStatusCode.to_value x.statusCode)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statusCode =
        HttpStatusCode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "statusCode") in
      make ~statusCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statusCode =
        field_map_exn json__ "statusCode" HttpStatusCode.of_json in
      make ~statusCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes an action that returns a custom HTTP response."]
module ForwardAction =
  struct
    type nonrec t =
      {
      targetGroups: WeightedTargetGroupList.t
        [@ocaml.doc
          "The target groups. Traffic matching the rule is forwarded to the specified target groups. With forward actions, you can assign a weight that controls the prioritization and selection of each target group. This means that requests are distributed to individual target groups based on their weights. For example, if two target groups have the same weight, each target group receives half of the traffic. The default value is 1. This means that if only one target group is provided, there is no need to set the weight; 100% of the traffic goes to that target group."]}
    let context_ = "ForwardAction"
    let make ~targetGroups = fun () -> { targetGroups }
    let to_value x =
      structure_to_value
        [("targetGroups",
           (Some (WeightedTargetGroupList.to_value x.targetGroups)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let targetGroups =
        WeightedTargetGroupList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "targetGroups") in
      make ~targetGroups ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let targetGroups =
        field_map_exn json__ "targetGroups" WeightedTargetGroupList.of_json in
      make ~targetGroups ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes a forward action. You can use forward actions to route requests to one or more target groups."]
module HttpMatch =
  struct
    type nonrec t =
      {
      method_: HttpMethod.t option [@ocaml.doc "The HTTP method type."];
      pathMatch: PathMatch.t option [@ocaml.doc "The path match."];
      headerMatches: HeaderMatchList.t option
        [@ocaml.doc
          "The header matches. Matches incoming requests with rule based on request header value before applying rule action."]}
    let make ?method_ =
      fun ?pathMatch ->
        fun ?headerMatches -> fun () -> { method_; pathMatch; headerMatches }
    let to_value x =
      structure_to_value
        [("method", (Option.map x.method_ ~f:HttpMethod.to_value));
        ("pathMatch", (Option.map x.pathMatch ~f:PathMatch.to_value));
        ("headerMatches",
          (Option.map x.headerMatches ~f:HeaderMatchList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let headerMatches =
        (Option.map ~f:HeaderMatchList.of_xml)
          (Xml.child xml_arg0 "headerMatches") in
      let pathMatch =
        (Option.map ~f:PathMatch.of_xml) (Xml.child xml_arg0 "pathMatch") in
      let method_ =
        (Option.map ~f:HttpMethod.of_xml) (Xml.child xml_arg0 "method") in
      make ?headerMatches ?pathMatch ?method_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let headerMatches =
        field_map json__ "headerMatches" HeaderMatchList.of_json in
      let pathMatch = field_map json__ "pathMatch" PathMatch.of_json in
      let method_ = field_map json__ "method" HttpMethod.of_json in
      make ?headerMatches ?pathMatch ?method_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes criteria that can be applied to incoming requests."]
module HealthCheckIntervalSeconds =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:300) >>= (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 HealthCheckIntervalSeconds"
           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 HealthCheckPath =
  struct
    type nonrec t = string
    let context_ = "HealthCheckPath"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (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:"HealthCheckPath" j
    let to_json = simple_to_json to_value
  end
module HealthCheckPort =
  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 HealthCheckPort" 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 HealthCheckProtocolVersion =
  struct
    type nonrec t =
      | HTTP1 
      | HTTP2 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | HTTP1 -> "HTTP1" | HTTP2 -> "HTTP2" | Non_static_id s -> s
    let of_string =
      function | "HTTP1" -> HTTP1 | "HTTP2" -> HTTP2 | 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 HealthCheckProtocolVersion"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"HealthCheckProtocolVersion" j)
    let to_json = simple_to_json to_value
  end
module HealthCheckTimeoutSeconds =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:120) >>= (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 HealthCheckTimeoutSeconds"
           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 HealthyThresholdCount =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:10) >>= (fun () -> check_int_min i ~min: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 HealthyThresholdCount" 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 Matcher =
  struct
    type nonrec t =
      {
      httpCode: HttpCodeMatcher.t option
        [@ocaml.doc
          "The HTTP code to use when checking for a successful response from a target."]}
    let make ?httpCode = fun () -> { httpCode }
    let to_value x =
      structure_to_value
        [("httpCode", (Option.map x.httpCode ~f:HttpCodeMatcher.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let httpCode =
        (Option.map ~f:HttpCodeMatcher.of_xml)
          (Xml.child xml_arg0 "httpCode") in
      make ?httpCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let httpCode = field_map json__ "httpCode" HttpCodeMatcher.of_json in
      make ?httpCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the codes to use when checking for a successful response from a target for health checks."]
module TargetGroupProtocol =
  struct
    type nonrec t =
      | HTTP 
      | HTTPS 
      | TCP 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | HTTP -> "HTTP"
      | HTTPS -> "HTTPS"
      | TCP -> "TCP"
      | Non_static_id s -> s
    let of_string =
      function
      | "HTTP" -> HTTP
      | "HTTPS" -> HTTPS
      | "TCP" -> TCP
      | 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 TargetGroupProtocol" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TargetGroupProtocol" j)
    let to_json = simple_to_json to_value
  end
module UnhealthyThresholdCount =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:10) >>= (fun () -> check_int_min i ~min: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 UnhealthyThresholdCount"
           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 ValidationExceptionField =
  struct
    type nonrec t =
      {
      name: String_.t option
        [@ocaml.doc "The name of the validation exception."];
      message: String_.t option
        [@ocaml.doc
          "Additional information about why the validation failed."]}
    let make ?name = fun ?message -> fun () -> { name; message }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:String_.to_value));
        ("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "name") in
      make ?message ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      let name = field_map json__ "name" String_.of_json in
      make ?message ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a validation failure."]
module WildcardArn =
  struct
    type nonrec t = string
    let context_ = "WildcardArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:20) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:[a-z0-9][-.a-z0-9]{0,62}:[a-z0-9][-.a-z0-9]{0,62}:([a-z0-9][-.a-z0-9]{0,62})?:\\d{12}?:[^/].{0,1023}")));
        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:"WildcardArn" j
    let to_json = simple_to_json to_value
  end
module DomainName =
  struct
    type nonrec t = string
    let context_ = "DomainName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () -> check_string_min i ~min: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:"DomainName" j
    let to_json = simple_to_json to_value
  end
module ResourceConfigurationIpAddressType =
  struct
    type nonrec t =
      | IPV4 
      | IPV6 
      | DUALSTACK 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | IPV4 -> "IPV4"
      | IPV6 -> "IPV6"
      | DUALSTACK -> "DUALSTACK"
      | Non_static_id s -> s
    let of_string =
      function
      | "IPV4" -> IPV4
      | "IPV6" -> IPV6
      | "DUALSTACK" -> DUALSTACK
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration ResourceConfigurationIpAddressType"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ResourceConfigurationIpAddressType" j)
    let to_json = simple_to_json to_value
  end
module IpAddress =
  struct
    type nonrec t = string
    let context_ = "IpAddress"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:39) >>=
             (fun () -> check_string_min i ~min:4));
        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:"IpAddress" j
    let to_json = simple_to_json to_value
  end
module Port =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:65535) >>=
             (fun () -> check_int_min i ~min: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 Port" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module TargetIdString =
  struct
    type nonrec t = string
    let context_ = "TargetIdString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:200) >>=
             (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:"TargetIdString" j
    let to_json = simple_to_json to_value
  end
module TargetStatus =
  struct
    type nonrec t =
      | DRAINING 
      | UNAVAILABLE 
      | HEALTHY 
      | UNHEALTHY 
      | INITIAL 
      | UNUSED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DRAINING -> "DRAINING"
      | UNAVAILABLE -> "UNAVAILABLE"
      | HEALTHY -> "HEALTHY"
      | UNHEALTHY -> "UNHEALTHY"
      | INITIAL -> "INITIAL"
      | UNUSED -> "UNUSED"
      | Non_static_id s -> s
    let of_string =
      function
      | "DRAINING" -> DRAINING
      | "UNAVAILABLE" -> UNAVAILABLE
      | "HEALTHY" -> HEALTHY
      | "UNHEALTHY" -> UNHEALTHY
      | "INITIAL" -> INITIAL
      | "UNUSED" -> UNUSED
      | 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 TargetStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TargetStatus" j)
    let to_json = simple_to_json to_value
  end
module IpAddressType =
  struct
    type nonrec t =
      | IPV4 
      | IPV6 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | IPV4 -> "IPV4" | IPV6 -> "IPV6" | Non_static_id s -> s
    let of_string =
      function | "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 LambdaEventStructureVersion =
  struct
    type nonrec t =
      | V1 
      | V2 
      | Non_static_id of string 
    let make i = i
    let to_string = function | V1 -> "V1" | V2 -> "V2" | Non_static_id s -> s
    let of_string = function | "V1" -> V1 | "V2" -> V2 | 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 LambdaEventStructureVersion"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"LambdaEventStructureVersion" j)
    let to_json = simple_to_json to_value
  end
module ServiceArnList =
  struct
    type nonrec t = ServiceArn.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:ServiceArn.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:ServiceArn.of_xml)
    let of_json j =
      list_of_json ~kind:"ServiceArnList" ~of_json:ServiceArn.of_json j
    let to_json v = composed_to_json to_value v
  end
module TargetGroupArn =
  struct
    type nonrec t = string
    let context_ = "TargetGroupArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:20) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:[a-z0-9\\-]+:vpc-lattice:[a-zA-Z0-9\\-]+:\\d{12}:targetgroup/tg-[0-9a-z]{17}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TargetGroupArn" j
    let to_json = simple_to_json to_value
  end
module TargetGroupId =
  struct
    type nonrec t = string
    let context_ = "TargetGroupId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:20) >>=
             (fun () ->
                (check_string_max i ~max:20) >>=
                  (fun () -> check_pattern i ~pattern:"tg-[0-9a-z]{17}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TargetGroupId" j
    let to_json = simple_to_json to_value
  end
module TargetGroupName =
  struct
    type nonrec t = string
    let context_ = "TargetGroupName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:3) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"(?!tg-)(?![-])(?!.*[-]$)(?!.*[-]{2})[a-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:"TargetGroupName" j
    let to_json = simple_to_json to_value
  end
module TargetGroupStatus =
  struct
    type nonrec t =
      | CREATE_IN_PROGRESS 
      | ACTIVE 
      | DELETE_IN_PROGRESS 
      | CREATE_FAILED 
      | DELETE_FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATE_IN_PROGRESS -> "CREATE_IN_PROGRESS"
      | ACTIVE -> "ACTIVE"
      | DELETE_IN_PROGRESS -> "DELETE_IN_PROGRESS"
      | CREATE_FAILED -> "CREATE_FAILED"
      | DELETE_FAILED -> "DELETE_FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATE_IN_PROGRESS" -> CREATE_IN_PROGRESS
      | "ACTIVE" -> ACTIVE
      | "DELETE_IN_PROGRESS" -> DELETE_IN_PROGRESS
      | "CREATE_FAILED" -> CREATE_FAILED
      | "DELETE_FAILED" -> DELETE_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 TargetGroupStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TargetGroupStatus" j)
    let to_json = simple_to_json to_value
  end
module TargetGroupType =
  struct
    type nonrec t =
      | IP 
      | LAMBDA 
      | INSTANCE 
      | ALB 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | IP -> "IP"
      | LAMBDA -> "LAMBDA"
      | INSTANCE -> "INSTANCE"
      | ALB -> "ALB"
      | Non_static_id s -> s
    let of_string =
      function
      | "IP" -> IP
      | "LAMBDA" -> LAMBDA
      | "INSTANCE" -> INSTANCE
      | "ALB" -> ALB
      | 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 TargetGroupType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TargetGroupType" j)
    let to_json = simple_to_json to_value
  end
module Timestamp =
  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 VpcId =
  struct
    type nonrec t = string
    let context_ = "VpcId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:5) >>=
             (fun () ->
                (check_string_max i ~max:50) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"vpc-(([0-9a-z]{8})|([0-9a-z]{17}))")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"VpcId" j
    let to_json = simple_to_json to_value
  end
module DnsEntry =
  struct
    type nonrec t =
      {
      domainName: String_.t option
        [@ocaml.doc "The domain name of the service."];
      hostedZoneId: String_.t option
        [@ocaml.doc "The ID of the hosted zone."]}
    let make ?domainName =
      fun ?hostedZoneId -> fun () -> { domainName; hostedZoneId }
    let to_value x =
      structure_to_value
        [("domainName", (Option.map x.domainName ~f:String_.to_value));
        ("hostedZoneId", (Option.map x.hostedZoneId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let hostedZoneId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "hostedZoneId") in
      let domainName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "domainName") in
      make ?hostedZoneId ?domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let hostedZoneId = field_map json__ "hostedZoneId" String_.of_json in
      let domainName = field_map json__ "domainName" String_.of_json in
      make ?hostedZoneId ?domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the DNS information of a service."]
module ServiceCustomDomainName =
  struct
    type nonrec t = string
    let context_ = "ServiceCustomDomainName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () -> check_string_min i ~min: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:"ServiceCustomDomainName" j
    let to_json = simple_to_json to_value
  end
module ServiceId =
  struct
    type nonrec t = string
    let context_ = "ServiceId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:21) >>=
             (fun () ->
                (check_string_max i ~max:21) >>=
                  (fun () -> check_pattern i ~pattern:"svc-[0-9a-z]{17}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ServiceId" j
    let to_json = simple_to_json to_value
  end
module ServiceName =
  struct
    type nonrec t = string
    let context_ = "ServiceName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:3) >>=
             (fun () ->
                (check_string_max i ~max:40) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"(?!svc-)(?![-])(?!.*[-]$)(?!.*[-]{2})[a-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:"ServiceName" j
    let to_json = simple_to_json to_value
  end
module ServiceStatus =
  struct
    type nonrec t =
      | ACTIVE 
      | CREATE_IN_PROGRESS 
      | DELETE_IN_PROGRESS 
      | CREATE_FAILED 
      | DELETE_FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ACTIVE -> "ACTIVE"
      | CREATE_IN_PROGRESS -> "CREATE_IN_PROGRESS"
      | DELETE_IN_PROGRESS -> "DELETE_IN_PROGRESS"
      | CREATE_FAILED -> "CREATE_FAILED"
      | DELETE_FAILED -> "DELETE_FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "ACTIVE" -> ACTIVE
      | "CREATE_IN_PROGRESS" -> CREATE_IN_PROGRESS
      | "DELETE_IN_PROGRESS" -> DELETE_IN_PROGRESS
      | "CREATE_FAILED" -> CREATE_FAILED
      | "DELETE_FAILED" -> DELETE_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 ServiceStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ServiceStatus" j)
    let to_json = simple_to_json to_value
  end
module Long =
  struct
    type nonrec t = Int64.t
    let make i = i
    let of_string = Int64.of_string
    let to_value x = `Long x
    let to_query v = to_query to_value v
    let to_header x = Int64.to_string x
    let of_xml xml_arg0 =
      Int64.of_string (string_of_xml ~kind:"a long" xml_arg0)
    let of_json j = Int64.of_float (float_of_json ~kind:"a long" j)
    let to_json = simple_to_json to_value
  end
module ServiceNetworkArn =
  struct
    type nonrec t = string
    let context_ = "ServiceNetworkArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:32) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:[a-z0-9\\-]+:vpc-lattice:[a-zA-Z0-9\\-]+:\\d{12}:servicenetwork/sn-[0-9a-z]{17}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ServiceNetworkArn" j
    let to_json = simple_to_json to_value
  end
module ServiceNetworkId =
  struct
    type nonrec t = string
    let context_ = "ServiceNetworkId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:20) >>=
             (fun () ->
                (check_string_max i ~max:20) >>=
                  (fun () -> check_pattern i ~pattern:"sn-[0-9a-z]{17}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ServiceNetworkId" j
    let to_json = simple_to_json to_value
  end
module ServiceNetworkName =
  struct
    type nonrec t = string
    let context_ = "ServiceNetworkName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:3) >>=
             (fun () ->
                (check_string_max i ~max:63) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"(?![-])(?!.*[-]$)(?!.*[-]{2})[a-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:"ServiceNetworkName" j
    let to_json = simple_to_json to_value
  end
module AccountId =
  struct
    type nonrec t = string
    let context_ = "AccountId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:12) >>=
                  (fun () -> check_pattern i ~pattern:"[0-9]{12}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AccountId" j
    let to_json = simple_to_json to_value
  end
module DnsOptions =
  struct
    type nonrec t =
      {
      privateDnsPreference: PrivateDnsPreference.t option
        [@ocaml.doc
          "The preference for which private domains have a private hosted zone created for and associated with the specified VPC. Only supported when private DNS is enabled and when the VPC endpoint type is ServiceNetwork or Resource. ALL_DOMAINS - VPC Lattice provisions private hosted zones for all custom domain names. VERIFIED_DOMAINS_ONLY - VPC Lattice provisions a private hosted zone only if custom domain name has been verified by the provider. VERIFIED_DOMAINS_AND_SPECIFIED_DOMAINS - VPC Lattice provisions private hosted zones for all verified custom domain names and other domain names that the resource consumer specifies. The resource consumer specifies the domain names in the privateDnsSpecifiedDomains parameter. SPECIFIED_DOMAINS_ONLY - VPC Lattice provisions a private hosted zone for domain names specified by the resource consumer. The resource consumer specifies the domain names in the privateDnsSpecifiedDomains parameter."];
      privateDnsSpecifiedDomains: PrivateDnsSpecifiedDomainsList.t option
        [@ocaml.doc
          "Indicates which of the private domains to create private hosted zones for and associate with the specified VPC. Only supported when private DNS is enabled and the private DNS preference is VERIFIED_DOMAINS_AND_SPECIFIED_DOMAINS or SPECIFIED_DOMAINS_ONLY."]}
    let make ?privateDnsPreference =
      fun ?privateDnsSpecifiedDomains ->
        fun () -> { privateDnsPreference; privateDnsSpecifiedDomains }
    let to_value x =
      structure_to_value
        [("privateDnsPreference",
           (Option.map x.privateDnsPreference
              ~f:PrivateDnsPreference.to_value));
        ("privateDnsSpecifiedDomains",
          (Option.map x.privateDnsSpecifiedDomains
             ~f:PrivateDnsSpecifiedDomainsList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let privateDnsSpecifiedDomains =
        (Option.map ~f:PrivateDnsSpecifiedDomainsList.of_xml)
          (Xml.child xml_arg0 "privateDnsSpecifiedDomains") in
      let privateDnsPreference =
        (Option.map ~f:PrivateDnsPreference.of_xml)
          (Xml.child xml_arg0 "privateDnsPreference") in
      make ?privateDnsSpecifiedDomains ?privateDnsPreference ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let privateDnsSpecifiedDomains =
        field_map json__ "privateDnsSpecifiedDomains"
          PrivateDnsSpecifiedDomainsList.of_json in
      let privateDnsPreference =
        field_map json__ "privateDnsPreference" PrivateDnsPreference.of_json in
      make ?privateDnsSpecifiedDomains ?privateDnsPreference ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The DNS configuration options."]
module ServiceNetworkVpcAssociationArn =
  struct
    type nonrec t = string
    let context_ = "ServiceNetworkVpcAssociationArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:20) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:[a-z0-9\\-]+:vpc-lattice:[a-zA-Z0-9\\-]+:\\d{12}:servicenetworkvpcassociation/snva-[0-9a-z]{17}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ServiceNetworkVpcAssociationArn" j
    let to_json = simple_to_json to_value
  end
module ServiceNetworkVpcAssociationId =
  struct
    type nonrec t = string
    let context_ = "ServiceNetworkVpcAssociationId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:22) >>=
             (fun () ->
                (check_string_max i ~max:22) >>=
                  (fun () -> check_pattern i ~pattern:"snva-[0-9a-z]{17}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ServiceNetworkVpcAssociationId" j
    let to_json = simple_to_json to_value
  end
module ServiceNetworkVpcAssociationStatus =
  struct
    type nonrec t =
      | CREATE_IN_PROGRESS 
      | ACTIVE 
      | UPDATE_IN_PROGRESS 
      | DELETE_IN_PROGRESS 
      | CREATE_FAILED 
      | DELETE_FAILED 
      | UPDATE_FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATE_IN_PROGRESS -> "CREATE_IN_PROGRESS"
      | ACTIVE -> "ACTIVE"
      | UPDATE_IN_PROGRESS -> "UPDATE_IN_PROGRESS"
      | DELETE_IN_PROGRESS -> "DELETE_IN_PROGRESS"
      | CREATE_FAILED -> "CREATE_FAILED"
      | DELETE_FAILED -> "DELETE_FAILED"
      | UPDATE_FAILED -> "UPDATE_FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATE_IN_PROGRESS" -> CREATE_IN_PROGRESS
      | "ACTIVE" -> ACTIVE
      | "UPDATE_IN_PROGRESS" -> UPDATE_IN_PROGRESS
      | "DELETE_IN_PROGRESS" -> DELETE_IN_PROGRESS
      | "CREATE_FAILED" -> CREATE_FAILED
      | "DELETE_FAILED" -> DELETE_FAILED
      | "UPDATE_FAILED" -> UPDATE_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 ServiceNetworkVpcAssociationStatus"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ServiceNetworkVpcAssociationStatus" j)
    let to_json = simple_to_json to_value
  end
module ServiceNetworkServiceAssociationArn =
  struct
    type nonrec t = string
    let context_ = "ServiceNetworkServiceAssociationArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:20) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:[a-z0-9\\-]+:vpc-lattice:[a-zA-Z0-9\\-]+:\\d{12}:servicenetworkserviceassociation/snsa-[0-9a-z]{17}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"ServiceNetworkServiceAssociationArn" j
    let to_json = simple_to_json to_value
  end
module ServiceNetworkServiceAssociationIdentifier =
  struct
    type nonrec t = string
    let context_ = "ServiceNetworkServiceAssociationIdentifier"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:17) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"((snsa-[0-9a-z]{17})|(arn:[a-z0-9\\-]+:vpc-lattice:[a-zA-Z0-9\\-]+:\\d{12}:servicenetworkserviceassociation/snsa-[0-9a-z]{17}))")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"ServiceNetworkServiceAssociationIdentifier" j
    let to_json = simple_to_json to_value
  end
module ServiceNetworkServiceAssociationStatus =
  struct
    type nonrec t =
      | CREATE_IN_PROGRESS 
      | ACTIVE 
      | DELETE_IN_PROGRESS 
      | CREATE_FAILED 
      | DELETE_FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATE_IN_PROGRESS -> "CREATE_IN_PROGRESS"
      | ACTIVE -> "ACTIVE"
      | DELETE_IN_PROGRESS -> "DELETE_IN_PROGRESS"
      | CREATE_FAILED -> "CREATE_FAILED"
      | DELETE_FAILED -> "DELETE_FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATE_IN_PROGRESS" -> CREATE_IN_PROGRESS
      | "ACTIVE" -> ACTIVE
      | "DELETE_IN_PROGRESS" -> DELETE_IN_PROGRESS
      | "CREATE_FAILED" -> CREATE_FAILED
      | "DELETE_FAILED" -> DELETE_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 ServiceNetworkServiceAssociationStatus"
           xml_arg0)
    let of_json j =
      of_string
        (string_of_json ~kind:"ServiceNetworkServiceAssociationStatus" j)
    let to_json = simple_to_json to_value
  end
module ResourceConfigurationArn =
  struct
    type nonrec t = string
    let context_ = "ResourceConfigurationArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:20) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:[a-z0-9f\\-]+:vpc-lattice:[a-zA-Z0-9\\-]+:\\d{12}:resourceconfiguration/rcfg-[0-9a-z]{17}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ResourceConfigurationArn" j
    let to_json = simple_to_json to_value
  end
module ResourceConfigurationId =
  struct
    type nonrec t = string
    let context_ = "ResourceConfigurationId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:22) >>=
             (fun () ->
                (check_string_max i ~max:22) >>=
                  (fun () -> check_pattern i ~pattern:"rcfg-[0-9a-z]{17}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ResourceConfigurationId" j
    let to_json = simple_to_json to_value
  end
module ResourceConfigurationName =
  struct
    type nonrec t = string
    let context_ = "ResourceConfigurationName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:3) >>=
             (fun () ->
                (check_string_max i ~max:40) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"(?!rcfg-)(?![-])(?!.*[-]$)(?!.*[-]{2})[a-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:"ResourceConfigurationName" j
    let to_json = simple_to_json to_value
  end
module ServiceNetworkArnWithoutRegex =
  struct
    type nonrec t = string
    let context_ = "ServiceNetworkArnWithoutRegex"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2048) >>=
             (fun () -> check_string_min i ~min:10));
        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:"ServiceNetworkArnWithoutRegex" j
    let to_json = simple_to_json to_value
  end
module ServiceNetworkIdentifierWithoutRegex =
  struct
    type nonrec t = string
    let context_ = "ServiceNetworkIdentifierWithoutRegex"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2048) >>=
             (fun () -> check_string_min i ~min: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:"ServiceNetworkIdentifierWithoutRegex" j
    let to_json = simple_to_json to_value
  end
module ServiceNetworkNameWithoutRegex =
  struct
    type nonrec t = string
    let context_ = "ServiceNetworkNameWithoutRegex"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:100) >>=
             (fun () -> check_string_min i ~min: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:"ServiceNetworkNameWithoutRegex" j
    let to_json = simple_to_json to_value
  end
module ServiceNetworkResourceAssociationArn =
  struct
    type nonrec t = string
    let context_ = "ServiceNetworkResourceAssociationArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:22) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:[a-z0-9\\-]+:vpc-lattice:[a-zA-Z0-9\\-]+:\\d{12}:servicenetworkresourceassociation/snra-[0-9a-f]{17}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"ServiceNetworkResourceAssociationArn" j
    let to_json = simple_to_json to_value
  end
module ServiceNetworkResourceAssociationId =
  struct
    type nonrec t = string
    let context_ = "ServiceNetworkResourceAssociationId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:22) >>=
             (fun () ->
                (check_string_max i ~max:22) >>=
                  (fun () -> check_pattern i ~pattern:"snra-[0-9a-f]{17}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"ServiceNetworkResourceAssociationId" j
    let to_json = simple_to_json to_value
  end
module ServiceNetworkResourceAssociationStatus =
  struct
    type nonrec t =
      | CREATE_IN_PROGRESS 
      | ACTIVE 
      | PARTIAL 
      | DELETE_IN_PROGRESS 
      | CREATE_FAILED 
      | DELETE_FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATE_IN_PROGRESS -> "CREATE_IN_PROGRESS"
      | ACTIVE -> "ACTIVE"
      | PARTIAL -> "PARTIAL"
      | DELETE_IN_PROGRESS -> "DELETE_IN_PROGRESS"
      | CREATE_FAILED -> "CREATE_FAILED"
      | DELETE_FAILED -> "DELETE_FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATE_IN_PROGRESS" -> CREATE_IN_PROGRESS
      | "ACTIVE" -> ACTIVE
      | "PARTIAL" -> PARTIAL
      | "DELETE_IN_PROGRESS" -> DELETE_IN_PROGRESS
      | "CREATE_FAILED" -> CREATE_FAILED
      | "DELETE_FAILED" -> DELETE_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 ServiceNetworkResourceAssociationStatus"
           xml_arg0)
    let of_json j =
      of_string
        (string_of_json ~kind:"ServiceNetworkResourceAssociationStatus" j)
    let to_json = simple_to_json to_value
  end
module RuleArn =
  struct
    type nonrec t = string
    let context_ = "RuleArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:20) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:[a-z0-9\\-]+:vpc-lattice:[a-zA-Z0-9\\-]+:\\d{12}:service/svc-[0-9a-z]{17}/listener/listener-[0-9a-z]{17}/rule/rule-[0-9a-z]{17}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"RuleArn" j
    let to_json = simple_to_json to_value
  end
module RuleId =
  struct
    type nonrec t = string
    let context_ = "RuleId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:5) >>=
             (fun () ->
                (check_string_max i ~max:22) >>=
                  (fun () -> check_pattern i ~pattern:"rule-[0-9a-z]{17}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"RuleId" j
    let to_json = simple_to_json to_value
  end
module RuleName =
  struct
    type nonrec t = string
    let context_ = "RuleName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:3) >>=
             (fun () ->
                (check_string_max i ~max:63) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"(?!rule-)(?![-])(?!.*[-]$)(?!.*[-]{2})[a-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:"RuleName" j
    let to_json = simple_to_json to_value
  end
module RulePriority =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:2000) >>= (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 RulePriority" 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 Ipv4AddressesPerEni =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:62) >>= (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 Ipv4AddressesPerEni" 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 ResourceConfigDnsResolution =
  struct
    type nonrec t =
      | IN_VPC 
      | PUBLIC 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | IN_VPC -> "IN_VPC"
      | PUBLIC -> "PUBLIC"
      | Non_static_id s -> s
    let of_string =
      function
      | "IN_VPC" -> IN_VPC
      | "PUBLIC" -> PUBLIC
      | 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 ResourceConfigDnsResolution"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ResourceConfigDnsResolution" j)
    let to_json = simple_to_json to_value
  end
module ResourceGatewayArn =
  struct
    type nonrec t = string
    let context_ = "ResourceGatewayArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:20) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:[a-z0-9\\-]+:vpc-lattice:[a-zA-Z0-9\\-]+:\\d{12}:resourcegateway/rgw-[0-9a-z]{17}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ResourceGatewayArn" j
    let to_json = simple_to_json to_value
  end
module ResourceGatewayId =
  struct
    type nonrec t = string
    let context_ = "ResourceGatewayId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:21) >>=
             (fun () ->
                (check_string_max i ~max:21) >>=
                  (fun () -> check_pattern i ~pattern:"rgw-[0-9a-z]{17}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ResourceGatewayId" j
    let to_json = simple_to_json to_value
  end
module ResourceGatewayIpAddressType =
  struct
    type nonrec t =
      | IPV4 
      | IPV6 
      | DUALSTACK 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | IPV4 -> "IPV4"
      | IPV6 -> "IPV6"
      | DUALSTACK -> "DUALSTACK"
      | Non_static_id s -> s
    let of_string =
      function
      | "IPV4" -> IPV4
      | "IPV6" -> IPV6
      | "DUALSTACK" -> DUALSTACK
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration ResourceGatewayIpAddressType"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ResourceGatewayIpAddressType" j)
    let to_json = simple_to_json to_value
  end
module ResourceGatewayName =
  struct
    type nonrec t = string
    let context_ = "ResourceGatewayName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:3) >>=
             (fun () ->
                (check_string_max i ~max:40) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"(?!rgw-)(?![-])(?!.*[-]$)(?!.*[-]{2})[a-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:"ResourceGatewayName" j
    let to_json = simple_to_json to_value
  end
module ResourceGatewayStatus =
  struct
    type nonrec t =
      | ACTIVE 
      | CREATE_IN_PROGRESS 
      | UPDATE_IN_PROGRESS 
      | DELETE_IN_PROGRESS 
      | CREATE_FAILED 
      | UPDATE_FAILED 
      | DELETE_FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ACTIVE -> "ACTIVE"
      | CREATE_IN_PROGRESS -> "CREATE_IN_PROGRESS"
      | UPDATE_IN_PROGRESS -> "UPDATE_IN_PROGRESS"
      | DELETE_IN_PROGRESS -> "DELETE_IN_PROGRESS"
      | CREATE_FAILED -> "CREATE_FAILED"
      | UPDATE_FAILED -> "UPDATE_FAILED"
      | DELETE_FAILED -> "DELETE_FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "ACTIVE" -> ACTIVE
      | "CREATE_IN_PROGRESS" -> CREATE_IN_PROGRESS
      | "UPDATE_IN_PROGRESS" -> UPDATE_IN_PROGRESS
      | "DELETE_IN_PROGRESS" -> DELETE_IN_PROGRESS
      | "CREATE_FAILED" -> CREATE_FAILED
      | "UPDATE_FAILED" -> UPDATE_FAILED
      | "DELETE_FAILED" -> DELETE_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 ResourceGatewayStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ResourceGatewayStatus" j)
    let to_json = simple_to_json to_value
  end
module SecurityGroupList =
  struct
    type nonrec t = SecurityGroupId.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:SecurityGroupId.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:SecurityGroupId.of_xml)
    let of_json j =
      list_of_json ~kind:"SecurityGroupList" ~of_json:SecurityGroupId.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module SubnetList =
  struct
    type nonrec t = SubnetId.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:SubnetId.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:SubnetId.of_xml)
    let of_json j =
      list_of_json ~kind:"SubnetList" ~of_json:SubnetId.of_json j
    let to_json v = composed_to_json to_value v
  end
module ResourceEndpointAssociationArn =
  struct
    type nonrec t = string
    let context_ = "ResourceEndpointAssociationArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:21) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:[a-z0-9\\-]+:vpc-lattice:[a-zA-Z0-9\\-]+:\\d{12}:resourceendpointassociation/rea-[0-9a-f]{17}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ResourceEndpointAssociationArn" j
    let to_json = simple_to_json to_value
  end
module ResourceEndpointAssociationId =
  struct
    type nonrec t = string
    let context_ = "ResourceEndpointAssociationId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:21) >>=
             (fun () ->
                (check_string_max i ~max:21) >>=
                  (fun () -> check_pattern i ~pattern:"rea-[0-9a-f]{17}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ResourceEndpointAssociationId" j
    let to_json = simple_to_json to_value
  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:22) >>=
             (fun () ->
                (check_string_max i ~max:22) >>=
                  (fun () -> check_pattern i ~pattern:"vpce-[0-9a-f]{17}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"VpcEndpointId" j
    let to_json = simple_to_json to_value
  end
module VpcEndpointOwner =
  struct
    type nonrec t = string
    let context_ = "VpcEndpointOwner"
    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:"VpcEndpointOwner" j
    let to_json = simple_to_json to_value
  end
module DomainVerificationId =
  struct
    type nonrec t = string
    let context_ = "DomainVerificationId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:20) >>=
             (fun () ->
                (check_string_max i ~max:20) >>=
                  (fun () -> check_pattern i ~pattern:"dv-[a-fA-F0-9]{17}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DomainVerificationId" j
    let to_json = simple_to_json to_value
  end
module ResourceConfigurationStatus =
  struct
    type nonrec t =
      | ACTIVE 
      | CREATE_IN_PROGRESS 
      | UPDATE_IN_PROGRESS 
      | DELETE_IN_PROGRESS 
      | CREATE_FAILED 
      | UPDATE_FAILED 
      | DELETE_FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ACTIVE -> "ACTIVE"
      | CREATE_IN_PROGRESS -> "CREATE_IN_PROGRESS"
      | UPDATE_IN_PROGRESS -> "UPDATE_IN_PROGRESS"
      | DELETE_IN_PROGRESS -> "DELETE_IN_PROGRESS"
      | CREATE_FAILED -> "CREATE_FAILED"
      | UPDATE_FAILED -> "UPDATE_FAILED"
      | DELETE_FAILED -> "DELETE_FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "ACTIVE" -> ACTIVE
      | "CREATE_IN_PROGRESS" -> CREATE_IN_PROGRESS
      | "UPDATE_IN_PROGRESS" -> UPDATE_IN_PROGRESS
      | "DELETE_IN_PROGRESS" -> DELETE_IN_PROGRESS
      | "CREATE_FAILED" -> CREATE_FAILED
      | "UPDATE_FAILED" -> UPDATE_FAILED
      | "DELETE_FAILED" -> DELETE_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 ResourceConfigurationStatus"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ResourceConfigurationStatus" j)
    let to_json = simple_to_json to_value
  end
module ResourceConfigurationType =
  struct
    type nonrec t =
      | GROUP 
      | CHILD 
      | SINGLE 
      | ARN 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | GROUP -> "GROUP"
      | CHILD -> "CHILD"
      | SINGLE -> "SINGLE"
      | ARN -> "ARN"
      | Non_static_id s -> s
    let of_string =
      function
      | "GROUP" -> GROUP
      | "CHILD" -> CHILD
      | "SINGLE" -> SINGLE
      | "ARN" -> ARN
      | 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 ResourceConfigurationType" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ResourceConfigurationType" j)
    let to_json = simple_to_json to_value
  end
module ListenerArn =
  struct
    type nonrec t = string
    let context_ = "ListenerArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:20) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:[a-z0-9\\-]+:vpc-lattice:[a-zA-Z0-9\\-]+:\\d{12}:service/svc-[0-9a-z]{17}/listener/listener-[0-9a-z]{17}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ListenerArn" j
    let to_json = simple_to_json to_value
  end
module ListenerId =
  struct
    type nonrec t = string
    let context_ = "ListenerId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:26) >>=
             (fun () ->
                (check_string_max i ~max:26) >>=
                  (fun () -> check_pattern i ~pattern:"listener-[0-9a-z]{17}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ListenerId" j
    let to_json = simple_to_json to_value
  end
module ListenerName =
  struct
    type nonrec t = string
    let context_ = "ListenerName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:3) >>=
             (fun () ->
                (check_string_max i ~max:63) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"(?!listener-)(?![-])(?!.*[-]$)(?!.*[-]{2})[a-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:"ListenerName" j
    let to_json = simple_to_json to_value
  end
module ListenerProtocol =
  struct
    type nonrec t =
      | HTTP 
      | HTTPS 
      | TLS_PASSTHROUGH 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | HTTP -> "HTTP"
      | HTTPS -> "HTTPS"
      | TLS_PASSTHROUGH -> "TLS_PASSTHROUGH"
      | Non_static_id s -> s
    let of_string =
      function
      | "HTTP" -> HTTP
      | "HTTPS" -> HTTPS
      | "TLS_PASSTHROUGH" -> TLS_PASSTHROUGH
      | 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 ListenerProtocol" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ListenerProtocol" j)
    let to_json = simple_to_json to_value
  end
module DomainVerificationArn =
  struct
    type nonrec t = string
    let context_ = "DomainVerificationArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:20) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:[a-z0-9f\\-]+:vpc-lattice:[a-zA-Z0-9\\-]+:\\d{12}:domainverification/dv-[a-fA-F0-9]{17}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DomainVerificationArn" j
    let to_json = simple_to_json to_value
  end
module TagMap =
  struct
    type nonrec t = (TagKey.t * TagValue.t) list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:200) >>=
             (fun () -> check_list_min i ~min:0));
        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 ->
                            ((TagKey.of_string chopped),
                              (TagValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (TagKey.to_value x) |>
                    (fun x -> (TagValue.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:TagKey.of_string
        ~of_json:TagValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module TxtMethodConfig =
  struct
    type nonrec t =
      {
      value: String_.t option
        [@ocaml.doc
          "The value that must be added to the TXT record for domain verification."];
      name: String_.t option
        [@ocaml.doc
          "The name of the TXT record that must be created for domain verification."]}
    let make ?value = fun ?name -> fun () -> { value; name }
    let to_value x =
      structure_to_value
        [("value", (Option.map x.value ~f:String_.to_value));
        ("name", (Option.map x.name ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "name") in
      let value = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "value") in
      make ?name ?value ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map json__ "name" String_.of_json in
      let value = field_map json__ "value" String_.of_json in
      make ?name ?value ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Configuration for TXT record-based domain verification method."]
module VerificationStatus =
  struct
    type nonrec t =
      | VERIFIED 
      | PENDING 
      | VERIFICATION_TIMED_OUT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | VERIFIED -> "VERIFIED"
      | PENDING -> "PENDING"
      | VERIFICATION_TIMED_OUT -> "VERIFICATION_TIMED_OUT"
      | Non_static_id s -> s
    let of_string =
      function
      | "VERIFIED" -> VERIFIED
      | "PENDING" -> PENDING
      | "VERIFICATION_TIMED_OUT" -> VERIFICATION_TIMED_OUT
      | 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 VerificationStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"VerificationStatus" j)
    let to_json = simple_to_json to_value
  end
module AccessLogDestinationArn =
  struct
    type nonrec t = string
    let context_ = "AccessLogDestinationArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:20) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn(:[a-z0-9]+([.-][a-z0-9]+)*){2}(:([a-z0-9]+([.-][a-z0-9]+)*)?){2}:([^/].*)?")));
        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:"AccessLogDestinationArn" j
    let to_json = simple_to_json to_value
  end
module AccessLogSubscriptionArn =
  struct
    type nonrec t = string
    let context_ = "AccessLogSubscriptionArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:20) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:[a-z0-9\\-]+:vpc-lattice:[a-zA-Z0-9\\-]+:\\d{12}:accesslogsubscription/als-[0-9a-z]{17}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AccessLogSubscriptionArn" j
    let to_json = simple_to_json to_value
  end
module AccessLogSubscriptionId =
  struct
    type nonrec t = string
    let context_ = "AccessLogSubscriptionId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:21) >>=
             (fun () ->
                (check_string_max i ~max:21) >>=
                  (fun () -> check_pattern i ~pattern:"als-[0-9a-z]{17}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AccessLogSubscriptionId" j
    let to_json = simple_to_json to_value
  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:20) >>=
             (fun () ->
                (check_string_max i ~max:200) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn(:[a-z0-9]+([.-][a-z0-9]+)*){2}(:([a-z0-9]+([.-][a-z0-9]+)*)?){2}:((servicenetwork/sn)|(service/svc)|(resourceconfiguration/rcfg))-[0-9a-z]{17}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ResourceArn" 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:20) >>=
             (fun () ->
                (check_string_max i ~max:50) >>=
                  (fun () ->
                     check_pattern i ~pattern:"((sn)|(svc))-[0-9a-z]{17}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ResourceId" j
    let to_json = simple_to_json to_value
  end
module ServiceNetworkLogType =
  struct
    type nonrec t =
      | SERVICE 
      | RESOURCE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SERVICE -> "SERVICE"
      | RESOURCE -> "RESOURCE"
      | Non_static_id s -> s
    let of_string =
      function
      | "SERVICE" -> SERVICE
      | "RESOURCE" -> RESOURCE
      | 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 ServiceNetworkLogType" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ServiceNetworkLogType" j)
    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 RuleIdentifier =
  struct
    type nonrec t = string
    let context_ = "RuleIdentifier"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:20) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"((rule-[0-9a-z]{17})|(^arn:[a-z0-9\\-]+:vpc-lattice:[a-zA-Z0-9\\-]+:\\d{12}:service/svc-[0-9a-z]{17}/listener/listener-[0-9a-z]{17}/rule/rule-[0-9a-z]{17}$))")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"RuleIdentifier" j
    let to_json = simple_to_json to_value
  end
module RuleAction =
  struct
    type nonrec t =
      {
      forward: ForwardAction.t option
        [@ocaml.doc
          "The forward action. Traffic that matches the rule is forwarded to the specified target groups."];
      fixedResponse: FixedResponseAction.t option
        [@ocaml.doc
          "The fixed response action. The rule returns a custom HTTP response."]}
    let make ?forward =
      fun ?fixedResponse -> fun () -> { forward; fixedResponse }
    let to_value x =
      structure_to_value
        [("forward", (Option.map x.forward ~f:ForwardAction.to_value));
        ("fixedResponse",
          (Option.map x.fixedResponse ~f:FixedResponseAction.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fixedResponse =
        (Option.map ~f:FixedResponseAction.of_xml)
          (Xml.child xml_arg0 "fixedResponse") in
      let forward =
        (Option.map ~f:ForwardAction.of_xml) (Xml.child xml_arg0 "forward") in
      make ?fixedResponse ?forward ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fixedResponse =
        field_map json__ "fixedResponse" FixedResponseAction.of_json in
      let forward = field_map json__ "forward" ForwardAction.of_json in
      make ?fixedResponse ?forward ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the action for a rule."]
module RuleMatch =
  struct
    type nonrec t =
      {
      httpMatch: HttpMatch.t option
        [@ocaml.doc "The HTTP criteria that a rule must match."]}
    let make ?httpMatch = fun () -> { httpMatch }
    let to_value x =
      structure_to_value
        [("httpMatch", (Option.map x.httpMatch ~f:HttpMatch.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let httpMatch =
        (Option.map ~f:HttpMatch.of_xml) (Xml.child xml_arg0 "httpMatch") in
      make ?httpMatch ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let httpMatch = field_map json__ "httpMatch" HttpMatch.of_json in
      make ?httpMatch ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a rule match."]
module Integer =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string (string_of_xml ~kind:"an integer for Integer" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module HealthCheckConfig =
  struct
    type nonrec t =
      {
      enabled: Boolean.t option
        [@ocaml.doc "Indicates whether health checking is enabled."];
      protocol: TargetGroupProtocol.t option
        [@ocaml.doc
          "The protocol used when performing health checks on targets. The possible protocols are HTTP and HTTPS. The default is HTTP."];
      protocolVersion: HealthCheckProtocolVersion.t option
        [@ocaml.doc
          "The protocol version used when performing health checks on targets. The possible protocol versions are HTTP1 and HTTP2."];
      port: HealthCheckPort.t option
        [@ocaml.doc
          "The port used when performing health checks on targets. The default setting is the port that a target receives traffic on."];
      path: HealthCheckPath.t option
        [@ocaml.doc
          "The destination for health checks on the targets. If the protocol version is HTTP/1.1 or HTTP/2, specify a valid URI (for example, /path?query). The default path is /. Health checks are not supported if the protocol version is gRPC, however, you can choose HTTP/1.1 or HTTP/2 and specify a valid URI."];
      healthCheckIntervalSeconds: HealthCheckIntervalSeconds.t option
        [@ocaml.doc
          "The approximate amount of time, in seconds, between health checks of an individual target. The range is 5\226\128\147300 seconds. The default is 30 seconds."];
      healthCheckTimeoutSeconds: HealthCheckTimeoutSeconds.t option
        [@ocaml.doc
          "The amount of time, in seconds, to wait before reporting a target as unhealthy. The range is 1\226\128\147120 seconds. The default is 5 seconds."];
      healthyThresholdCount: HealthyThresholdCount.t option
        [@ocaml.doc
          "The number of consecutive successful health checks required before considering an unhealthy target healthy. The range is 2\226\128\14710. The default is 5."];
      unhealthyThresholdCount: UnhealthyThresholdCount.t option
        [@ocaml.doc
          "The number of consecutive failed health checks required before considering a target unhealthy. The range is 2\226\128\14710. The default is 2."];
      matcher: Matcher.t option
        [@ocaml.doc
          "The codes to use when checking for a successful response from a target."]}
    let make ?enabled =
      fun ?protocol ->
        fun ?protocolVersion ->
          fun ?port ->
            fun ?path ->
              fun ?healthCheckIntervalSeconds ->
                fun ?healthCheckTimeoutSeconds ->
                  fun ?healthyThresholdCount ->
                    fun ?unhealthyThresholdCount ->
                      fun ?matcher ->
                        fun () ->
                          {
                            enabled;
                            protocol;
                            protocolVersion;
                            port;
                            path;
                            healthCheckIntervalSeconds;
                            healthCheckTimeoutSeconds;
                            healthyThresholdCount;
                            unhealthyThresholdCount;
                            matcher
                          }
    let to_value x =
      structure_to_value
        [("enabled", (Option.map x.enabled ~f:Boolean.to_value));
        ("protocol", (Option.map x.protocol ~f:TargetGroupProtocol.to_value));
        ("protocolVersion",
          (Option.map x.protocolVersion
             ~f:HealthCheckProtocolVersion.to_value));
        ("port", (Option.map x.port ~f:HealthCheckPort.to_value));
        ("path", (Option.map x.path ~f:HealthCheckPath.to_value));
        ("healthCheckIntervalSeconds",
          (Option.map x.healthCheckIntervalSeconds
             ~f:HealthCheckIntervalSeconds.to_value));
        ("healthCheckTimeoutSeconds",
          (Option.map x.healthCheckTimeoutSeconds
             ~f:HealthCheckTimeoutSeconds.to_value));
        ("healthyThresholdCount",
          (Option.map x.healthyThresholdCount
             ~f:HealthyThresholdCount.to_value));
        ("unhealthyThresholdCount",
          (Option.map x.unhealthyThresholdCount
             ~f:UnhealthyThresholdCount.to_value));
        ("matcher", (Option.map x.matcher ~f:Matcher.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let matcher =
        (Option.map ~f:Matcher.of_xml) (Xml.child xml_arg0 "matcher") in
      let unhealthyThresholdCount =
        (Option.map ~f:UnhealthyThresholdCount.of_xml)
          (Xml.child xml_arg0 "unhealthyThresholdCount") in
      let healthyThresholdCount =
        (Option.map ~f:HealthyThresholdCount.of_xml)
          (Xml.child xml_arg0 "healthyThresholdCount") in
      let healthCheckTimeoutSeconds =
        (Option.map ~f:HealthCheckTimeoutSeconds.of_xml)
          (Xml.child xml_arg0 "healthCheckTimeoutSeconds") in
      let healthCheckIntervalSeconds =
        (Option.map ~f:HealthCheckIntervalSeconds.of_xml)
          (Xml.child xml_arg0 "healthCheckIntervalSeconds") in
      let path =
        (Option.map ~f:HealthCheckPath.of_xml) (Xml.child xml_arg0 "path") in
      let port =
        (Option.map ~f:HealthCheckPort.of_xml) (Xml.child xml_arg0 "port") in
      let protocolVersion =
        (Option.map ~f:HealthCheckProtocolVersion.of_xml)
          (Xml.child xml_arg0 "protocolVersion") in
      let protocol =
        (Option.map ~f:TargetGroupProtocol.of_xml)
          (Xml.child xml_arg0 "protocol") in
      let enabled =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "enabled") in
      make ?matcher ?unhealthyThresholdCount ?healthyThresholdCount
        ?healthCheckTimeoutSeconds ?healthCheckIntervalSeconds ?path ?port
        ?protocolVersion ?protocol ?enabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let matcher = field_map json__ "matcher" Matcher.of_json in
      let unhealthyThresholdCount =
        field_map json__ "unhealthyThresholdCount"
          UnhealthyThresholdCount.of_json in
      let healthyThresholdCount =
        field_map json__ "healthyThresholdCount"
          HealthyThresholdCount.of_json in
      let healthCheckTimeoutSeconds =
        field_map json__ "healthCheckTimeoutSeconds"
          HealthCheckTimeoutSeconds.of_json in
      let healthCheckIntervalSeconds =
        field_map json__ "healthCheckIntervalSeconds"
          HealthCheckIntervalSeconds.of_json in
      let path = field_map json__ "path" HealthCheckPath.of_json in
      let port = field_map json__ "port" HealthCheckPort.of_json in
      let protocolVersion =
        field_map json__ "protocolVersion" HealthCheckProtocolVersion.of_json in
      let protocol = field_map json__ "protocol" TargetGroupProtocol.of_json in
      let enabled = field_map json__ "enabled" Boolean.of_json in
      make ?matcher ?unhealthyThresholdCount ?healthyThresholdCount
        ?healthCheckTimeoutSeconds ?healthCheckIntervalSeconds ?path ?port
        ?protocolVersion ?protocol ?enabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the health check configuration of a target group. Health check configurations aren't used for target groups of type LAMBDA or ALB."]
module TargetGroupProtocolVersion =
  struct
    type nonrec t =
      | HTTP1 
      | HTTP2 
      | GRPC 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | HTTP1 -> "HTTP1"
      | HTTP2 -> "HTTP2"
      | GRPC -> "GRPC"
      | Non_static_id s -> s
    let of_string =
      function
      | "HTTP1" -> HTTP1
      | "HTTP2" -> HTTP2
      | "GRPC" -> GRPC
      | 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 TargetGroupProtocolVersion"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"TargetGroupProtocolVersion" j)
    let to_json = simple_to_json to_value
  end
module ValidationExceptionFieldList =
  struct
    type nonrec t = ValidationExceptionField.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ValidationExceptionField.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:ValidationExceptionField.of_xml)
    let of_json j =
      list_of_json ~kind:"ValidationExceptionFieldList"
        ~of_json:ValidationExceptionField.of_json j
    let to_json v = composed_to_json to_value v
  end
module ValidationExceptionReason =
  struct
    type nonrec t =
      | UnknownOperation 
      | CannotParse 
      | FieldValidationFailed 
      | Other 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | UnknownOperation -> "unknownOperation"
      | CannotParse -> "cannotParse"
      | FieldValidationFailed -> "fieldValidationFailed"
      | Other -> "other"
      | Non_static_id s -> s
    let of_string =
      function
      | "unknownOperation" -> UnknownOperation
      | "cannotParse" -> CannotParse
      | "fieldValidationFailed" -> FieldValidationFailed
      | "other" -> Other
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration ValidationExceptionReason" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ValidationExceptionReason" j)
    let to_json = simple_to_json to_value
  end
module PortRange =
  struct
    type nonrec t = string
    let context_ = "PortRange"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:11) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"((\\d{1,5}\\-\\d{1,5})|(\\d+))")));
        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:"PortRange" j
    let to_json = simple_to_json to_value
  end
module ArnResource =
  struct
    type nonrec t =
      {
      arn: WildcardArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the resource."]}
    let make ?arn = fun () -> { arn }
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:WildcardArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn = (Option.map ~f:WildcardArn.of_xml) (Xml.child xml_arg0 "arn") in
      make ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map json__ "arn" WildcardArn.of_json in make ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The Amazon Resource Name (ARN) of the resource."]
module DnsResource =
  struct
    type nonrec t =
      {
      domainName: DomainName.t option
        [@ocaml.doc "The domain name of the resource."];
      ipAddressType: ResourceConfigurationIpAddressType.t option
        [@ocaml.doc
          "The type of IP address. Dualstack is currently not supported."]}
    let make ?domainName =
      fun ?ipAddressType -> fun () -> { domainName; ipAddressType }
    let to_value x =
      structure_to_value
        [("domainName", (Option.map x.domainName ~f:DomainName.to_value));
        ("ipAddressType",
          (Option.map x.ipAddressType
             ~f:ResourceConfigurationIpAddressType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ipAddressType =
        (Option.map ~f:ResourceConfigurationIpAddressType.of_xml)
          (Xml.child xml_arg0 "ipAddressType") in
      let domainName =
        (Option.map ~f:DomainName.of_xml) (Xml.child xml_arg0 "domainName") in
      make ?ipAddressType ?domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ipAddressType =
        field_map json__ "ipAddressType"
          ResourceConfigurationIpAddressType.of_json in
      let domainName = field_map json__ "domainName" DomainName.of_json in
      make ?ipAddressType ?domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The DNS name of the resource."]
module IpResource =
  struct
    type nonrec t =
      {
      ipAddress: IpAddress.t option
        [@ocaml.doc "The IP address of the IP resource."]}
    let make ?ipAddress = fun () -> { ipAddress }
    let to_value x =
      structure_to_value
        [("ipAddress", (Option.map x.ipAddress ~f:IpAddress.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ipAddress =
        (Option.map ~f:IpAddress.of_xml) (Xml.child xml_arg0 "ipAddress") in
      make ?ipAddress ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ipAddress = field_map json__ "ipAddress" IpAddress.of_json in
      make ?ipAddress ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes an IP resource."]
module TargetFailure =
  struct
    type nonrec t =
      {
      id: String_.t option
        [@ocaml.doc
          "The ID of the target. If the target group type is INSTANCE, this is an instance ID. If the target group type is IP, this is an IP address. If the target group type is LAMBDA, this is the ARN of a Lambda function. If the target group type is ALB, this is the ARN of an Application Load Balancer."];
      port: Port.t option
        [@ocaml.doc
          "The port on which the target is listening. This parameter doesn't apply if the target is a Lambda function."];
      failureCode: String_.t option [@ocaml.doc "The failure code."];
      failureMessage: String_.t option [@ocaml.doc "The failure message."]}
    let make ?id =
      fun ?port ->
        fun ?failureCode ->
          fun ?failureMessage ->
            fun () -> { id; port; failureCode; failureMessage }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:String_.to_value));
        ("port", (Option.map x.port ~f:Port.to_value));
        ("failureCode", (Option.map x.failureCode ~f:String_.to_value));
        ("failureMessage", (Option.map x.failureMessage ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let failureMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "failureMessage") in
      let failureCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "failureCode") in
      let port = (Option.map ~f:Port.of_xml) (Xml.child xml_arg0 "port") in
      let id = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "id") in
      make ?failureMessage ?failureCode ?port ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let failureMessage = field_map json__ "failureMessage" String_.of_json in
      let failureCode = field_map json__ "failureCode" String_.of_json in
      let port = field_map json__ "port" Port.of_json in
      let id = field_map json__ "id" String_.of_json in
      make ?failureMessage ?failureCode ?port ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a target failure."]
module Target =
  struct
    type nonrec t =
      {
      id: TargetIdString.t
        [@ocaml.doc
          "The ID of the target. If the target group type is INSTANCE, this is an instance ID. If the target group type is IP, this is an IP address. If the target group type is LAMBDA, this is the ARN of a Lambda function. If the target group type is ALB, this is the ARN of an Application Load Balancer."];
      port: Port.t option
        [@ocaml.doc
          "The port on which the target is listening. For HTTP, the default is 80. For HTTPS, the default is 443."]}
    let context_ = "Target"
    let make ?port = fun ~id -> fun () -> { port; id }
    let to_value x =
      structure_to_value
        [("id", (Some (TargetIdString.to_value x.id)));
        ("port", (Option.map x.port ~f:Port.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let port = (Option.map ~f:Port.of_xml) (Xml.child xml_arg0 "port") in
      let id =
        TargetIdString.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      make ?port ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let port = field_map json__ "port" Port.of_json in
      let id = field_map_exn json__ "id" TargetIdString.of_json in
      make ?port ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a target."]
module TargetSummary =
  struct
    type nonrec t =
      {
      id: String_.t option
        [@ocaml.doc
          "The ID of the target. If the target group type is INSTANCE, this is an instance ID. If the target group type is IP, this is an IP address. If the target group type is LAMBDA, this is the ARN of a Lambda function. If the target type is ALB, this is the ARN of an Application Load Balancer."];
      port: Port.t option
        [@ocaml.doc "The port on which the target is listening."];
      status: TargetStatus.t option
        [@ocaml.doc
          "The status of the target. DRAINING: The target is being deregistered. No new connections are sent to this target while current connections are being drained. The default draining time is 1 minute. UNAVAILABLE: Health checks are unavailable for the target group. HEALTHY: The target is healthy. UNHEALTHY: The target is unhealthy. INITIAL: Initial health checks on the target are being performed. UNUSED: Target group is not used in a service."];
      reasonCode: String_.t option
        [@ocaml.doc "The code for why the target status is what it is."]}
    let make ?id =
      fun ?port ->
        fun ?status ->
          fun ?reasonCode -> fun () -> { id; port; status; reasonCode }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:String_.to_value));
        ("port", (Option.map x.port ~f:Port.to_value));
        ("status", (Option.map x.status ~f:TargetStatus.to_value));
        ("reasonCode", (Option.map x.reasonCode ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reasonCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "reasonCode") in
      let status =
        (Option.map ~f:TargetStatus.of_xml) (Xml.child xml_arg0 "status") in
      let port = (Option.map ~f:Port.of_xml) (Xml.child xml_arg0 "port") in
      let id = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "id") in
      make ?reasonCode ?status ?port ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reasonCode = field_map json__ "reasonCode" String_.of_json in
      let status = field_map json__ "status" TargetStatus.of_json in
      let port = field_map json__ "port" Port.of_json in
      let id = field_map json__ "id" String_.of_json in
      make ?reasonCode ?status ?port ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Summary information about a target."]
module TargetGroupSummary =
  struct
    type nonrec t =
      {
      id: TargetGroupId.t option [@ocaml.doc "The ID of the target group."];
      arn: TargetGroupArn.t option
        [@ocaml.doc "The ARN (Amazon Resource Name) of the target group."];
      name: TargetGroupName.t option
        [@ocaml.doc "The name of the target group."];
      type_: TargetGroupType.t option [@ocaml.doc "The target group type."];
      createdAt: Timestamp.t option
        [@ocaml.doc
          "The date and time that the target group was created, in ISO-8601 format."];
      port: Port.t option [@ocaml.doc "The port of the target group."];
      protocol: TargetGroupProtocol.t option
        [@ocaml.doc "The protocol of the target group."];
      ipAddressType: IpAddressType.t option
        [@ocaml.doc
          "The type of IP address used for the target group. The possible values are IPV4 and IPV6. This is an optional parameter. If not specified, the default is IPV4."];
      vpcIdentifier: VpcId.t option
        [@ocaml.doc "The ID of the VPC of the target group."];
      lastUpdatedAt: Timestamp.t option
        [@ocaml.doc
          "The date and time that the target group was last updated, in ISO-8601 format."];
      status: TargetGroupStatus.t option [@ocaml.doc "The status."];
      serviceArns: ServiceArnList.t option
        [@ocaml.doc "The Amazon Resource Names (ARNs) of the service."];
      lambdaEventStructureVersion: LambdaEventStructureVersion.t option
        [@ocaml.doc
          "The version of the event structure that your Lambda function receives. Supported only if the target group type is LAMBDA."]}
    let make ?id =
      fun ?arn ->
        fun ?name ->
          fun ?type_ ->
            fun ?createdAt ->
              fun ?port ->
                fun ?protocol ->
                  fun ?ipAddressType ->
                    fun ?vpcIdentifier ->
                      fun ?lastUpdatedAt ->
                        fun ?status ->
                          fun ?serviceArns ->
                            fun ?lambdaEventStructureVersion ->
                              fun () ->
                                {
                                  id;
                                  arn;
                                  name;
                                  type_;
                                  createdAt;
                                  port;
                                  protocol;
                                  ipAddressType;
                                  vpcIdentifier;
                                  lastUpdatedAt;
                                  status;
                                  serviceArns;
                                  lambdaEventStructureVersion
                                }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:TargetGroupId.to_value));
        ("arn", (Option.map x.arn ~f:TargetGroupArn.to_value));
        ("name", (Option.map x.name ~f:TargetGroupName.to_value));
        ("type", (Option.map x.type_ ~f:TargetGroupType.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("port", (Option.map x.port ~f:Port.to_value));
        ("protocol", (Option.map x.protocol ~f:TargetGroupProtocol.to_value));
        ("ipAddressType",
          (Option.map x.ipAddressType ~f:IpAddressType.to_value));
        ("vpcIdentifier", (Option.map x.vpcIdentifier ~f:VpcId.to_value));
        ("lastUpdatedAt", (Option.map x.lastUpdatedAt ~f:Timestamp.to_value));
        ("status", (Option.map x.status ~f:TargetGroupStatus.to_value));
        ("serviceArns",
          (Option.map x.serviceArns ~f:ServiceArnList.to_value));
        ("lambdaEventStructureVersion",
          (Option.map x.lambdaEventStructureVersion
             ~f:LambdaEventStructureVersion.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lambdaEventStructureVersion =
        (Option.map ~f:LambdaEventStructureVersion.of_xml)
          (Xml.child xml_arg0 "lambdaEventStructureVersion") in
      let serviceArns =
        (Option.map ~f:ServiceArnList.of_xml)
          (Xml.child xml_arg0 "serviceArns") in
      let status =
        (Option.map ~f:TargetGroupStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let lastUpdatedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "lastUpdatedAt") in
      let vpcIdentifier =
        (Option.map ~f:VpcId.of_xml) (Xml.child xml_arg0 "vpcIdentifier") in
      let ipAddressType =
        (Option.map ~f:IpAddressType.of_xml)
          (Xml.child xml_arg0 "ipAddressType") in
      let protocol =
        (Option.map ~f:TargetGroupProtocol.of_xml)
          (Xml.child xml_arg0 "protocol") in
      let port = (Option.map ~f:Port.of_xml) (Xml.child xml_arg0 "port") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let type_ =
        (Option.map ~f:TargetGroupType.of_xml) (Xml.child xml_arg0 "type") in
      let name =
        (Option.map ~f:TargetGroupName.of_xml) (Xml.child xml_arg0 "name") in
      let arn =
        (Option.map ~f:TargetGroupArn.of_xml) (Xml.child xml_arg0 "arn") in
      let id = (Option.map ~f:TargetGroupId.of_xml) (Xml.child xml_arg0 "id") in
      make ?lambdaEventStructureVersion ?serviceArns ?status ?lastUpdatedAt
        ?vpcIdentifier ?ipAddressType ?protocol ?port ?createdAt ?type_ ?name
        ?arn ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lambdaEventStructureVersion =
        field_map json__ "lambdaEventStructureVersion"
          LambdaEventStructureVersion.of_json in
      let serviceArns = field_map json__ "serviceArns" ServiceArnList.of_json in
      let status = field_map json__ "status" TargetGroupStatus.of_json in
      let lastUpdatedAt = field_map json__ "lastUpdatedAt" Timestamp.of_json in
      let vpcIdentifier = field_map json__ "vpcIdentifier" VpcId.of_json in
      let ipAddressType =
        field_map json__ "ipAddressType" IpAddressType.of_json in
      let protocol = field_map json__ "protocol" TargetGroupProtocol.of_json in
      let port = field_map json__ "port" Port.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let type_ = field_map json__ "type" TargetGroupType.of_json in
      let name = field_map json__ "name" TargetGroupName.of_json in
      let arn = field_map json__ "arn" TargetGroupArn.of_json in
      let id = field_map json__ "id" TargetGroupId.of_json in
      make ?lambdaEventStructureVersion ?serviceArns ?status ?lastUpdatedAt
        ?vpcIdentifier ?ipAddressType ?protocol ?port ?createdAt ?type_ ?name
        ?arn ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Summary information about a target group. For more information, see Target groups in the Amazon VPC Lattice User Guide."]
module ServiceSummary =
  struct
    type nonrec t =
      {
      id: ServiceId.t option [@ocaml.doc "The ID of the service."];
      name: ServiceName.t option [@ocaml.doc "The name of the service."];
      arn: ServiceArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the service."];
      createdAt: Timestamp.t option
        [@ocaml.doc
          "The date and time that the service was created, in ISO-8601 format."];
      lastUpdatedAt: Timestamp.t option
        [@ocaml.doc
          "The date and time that the service was last updated, in ISO-8601 format."];
      dnsEntry: DnsEntry.t option [@ocaml.doc "The DNS information."];
      customDomainName: ServiceCustomDomainName.t option
        [@ocaml.doc "The custom domain name of the service."];
      status: ServiceStatus.t option [@ocaml.doc "The status."]}
    let make ?id =
      fun ?name ->
        fun ?arn ->
          fun ?createdAt ->
            fun ?lastUpdatedAt ->
              fun ?dnsEntry ->
                fun ?customDomainName ->
                  fun ?status ->
                    fun () ->
                      {
                        id;
                        name;
                        arn;
                        createdAt;
                        lastUpdatedAt;
                        dnsEntry;
                        customDomainName;
                        status
                      }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:ServiceId.to_value));
        ("name", (Option.map x.name ~f:ServiceName.to_value));
        ("arn", (Option.map x.arn ~f:ServiceArn.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("lastUpdatedAt", (Option.map x.lastUpdatedAt ~f:Timestamp.to_value));
        ("dnsEntry", (Option.map x.dnsEntry ~f:DnsEntry.to_value));
        ("customDomainName",
          (Option.map x.customDomainName ~f:ServiceCustomDomainName.to_value));
        ("status", (Option.map x.status ~f:ServiceStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:ServiceStatus.of_xml) (Xml.child xml_arg0 "status") in
      let customDomainName =
        (Option.map ~f:ServiceCustomDomainName.of_xml)
          (Xml.child xml_arg0 "customDomainName") in
      let dnsEntry =
        (Option.map ~f:DnsEntry.of_xml) (Xml.child xml_arg0 "dnsEntry") in
      let lastUpdatedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "lastUpdatedAt") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let arn = (Option.map ~f:ServiceArn.of_xml) (Xml.child xml_arg0 "arn") in
      let name =
        (Option.map ~f:ServiceName.of_xml) (Xml.child xml_arg0 "name") in
      let id = (Option.map ~f:ServiceId.of_xml) (Xml.child xml_arg0 "id") in
      make ?status ?customDomainName ?dnsEntry ?lastUpdatedAt ?createdAt ?arn
        ?name ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" ServiceStatus.of_json in
      let customDomainName =
        field_map json__ "customDomainName" ServiceCustomDomainName.of_json in
      let dnsEntry = field_map json__ "dnsEntry" DnsEntry.of_json in
      let lastUpdatedAt = field_map json__ "lastUpdatedAt" Timestamp.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let arn = field_map json__ "arn" ServiceArn.of_json in
      let name = field_map json__ "name" ServiceName.of_json in
      let id = field_map json__ "id" ServiceId.of_json in
      make ?status ?customDomainName ?dnsEntry ?lastUpdatedAt ?createdAt ?arn
        ?name ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Summary information about a service."]
module ServiceNetworkSummary =
  struct
    type nonrec t =
      {
      id: ServiceNetworkId.t option
        [@ocaml.doc "The ID of the service network."];
      name: ServiceNetworkName.t option
        [@ocaml.doc "The name of the service network."];
      arn: ServiceNetworkArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the service network."];
      createdAt: Timestamp.t option
        [@ocaml.doc
          "The date and time that the service network was created, in ISO-8601 format."];
      lastUpdatedAt: Timestamp.t option
        [@ocaml.doc
          "The date and time that the service network was last updated, in ISO-8601 format."];
      numberOfAssociatedVPCs: Long.t option
        [@ocaml.doc
          "The number of VPCs associated with the service network."];
      numberOfAssociatedServices: Long.t option
        [@ocaml.doc
          "The number of services associated with the service network."];
      numberOfAssociatedResourceConfigurations: Long.t option
        [@ocaml.doc
          "The number of resource configurations associated with a service network."]}
    let make ?id =
      fun ?name ->
        fun ?arn ->
          fun ?createdAt ->
            fun ?lastUpdatedAt ->
              fun ?numberOfAssociatedVPCs ->
                fun ?numberOfAssociatedServices ->
                  fun ?numberOfAssociatedResourceConfigurations ->
                    fun () ->
                      {
                        id;
                        name;
                        arn;
                        createdAt;
                        lastUpdatedAt;
                        numberOfAssociatedVPCs;
                        numberOfAssociatedServices;
                        numberOfAssociatedResourceConfigurations
                      }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:ServiceNetworkId.to_value));
        ("name", (Option.map x.name ~f:ServiceNetworkName.to_value));
        ("arn", (Option.map x.arn ~f:ServiceNetworkArn.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("lastUpdatedAt", (Option.map x.lastUpdatedAt ~f:Timestamp.to_value));
        ("numberOfAssociatedVPCs",
          (Option.map x.numberOfAssociatedVPCs ~f:Long.to_value));
        ("numberOfAssociatedServices",
          (Option.map x.numberOfAssociatedServices ~f:Long.to_value));
        ("numberOfAssociatedResourceConfigurations",
          (Option.map x.numberOfAssociatedResourceConfigurations
             ~f:Long.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let numberOfAssociatedResourceConfigurations =
        (Option.map ~f:Long.of_xml)
          (Xml.child xml_arg0 "numberOfAssociatedResourceConfigurations") in
      let numberOfAssociatedServices =
        (Option.map ~f:Long.of_xml)
          (Xml.child xml_arg0 "numberOfAssociatedServices") in
      let numberOfAssociatedVPCs =
        (Option.map ~f:Long.of_xml)
          (Xml.child xml_arg0 "numberOfAssociatedVPCs") in
      let lastUpdatedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "lastUpdatedAt") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let arn =
        (Option.map ~f:ServiceNetworkArn.of_xml) (Xml.child xml_arg0 "arn") in
      let name =
        (Option.map ~f:ServiceNetworkName.of_xml) (Xml.child xml_arg0 "name") in
      let id =
        (Option.map ~f:ServiceNetworkId.of_xml) (Xml.child xml_arg0 "id") in
      make ?numberOfAssociatedResourceConfigurations
        ?numberOfAssociatedServices ?numberOfAssociatedVPCs ?lastUpdatedAt
        ?createdAt ?arn ?name ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let numberOfAssociatedResourceConfigurations =
        field_map json__ "numberOfAssociatedResourceConfigurations"
          Long.of_json in
      let numberOfAssociatedServices =
        field_map json__ "numberOfAssociatedServices" Long.of_json in
      let numberOfAssociatedVPCs =
        field_map json__ "numberOfAssociatedVPCs" Long.of_json in
      let lastUpdatedAt = field_map json__ "lastUpdatedAt" Timestamp.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let arn = field_map json__ "arn" ServiceNetworkArn.of_json in
      let name = field_map json__ "name" ServiceNetworkName.of_json in
      let id = field_map json__ "id" ServiceNetworkId.of_json in
      make ?numberOfAssociatedResourceConfigurations
        ?numberOfAssociatedServices ?numberOfAssociatedVPCs ?lastUpdatedAt
        ?createdAt ?arn ?name ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Summary information about a service network."]
module ServiceNetworkEndpointAssociation =
  struct
    type nonrec t =
      {
      vpcEndpointId: String_.t option
        [@ocaml.doc
          "The ID of the VPC endpoint associated with the service network."];
      vpcId: String_.t option
        [@ocaml.doc "The ID of the VPC for the association."];
      vpcEndpointOwnerId: String_.t option
        [@ocaml.doc
          "The owner of the VPC endpoint associated with the service network."];
      id: String_.t option [@ocaml.doc "The ID of the association."];
      state: String_.t option [@ocaml.doc "The state of the association."];
      serviceNetworkArn: ServiceNetworkArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the service network."];
      createdAt: Timestamp.t option
        [@ocaml.doc
          "The date and time that the association was created, in ISO-8601 format."]}
    let make ?vpcEndpointId =
      fun ?vpcId ->
        fun ?vpcEndpointOwnerId ->
          fun ?id ->
            fun ?state ->
              fun ?serviceNetworkArn ->
                fun ?createdAt ->
                  fun () ->
                    {
                      vpcEndpointId;
                      vpcId;
                      vpcEndpointOwnerId;
                      id;
                      state;
                      serviceNetworkArn;
                      createdAt
                    }
    let to_value x =
      structure_to_value
        [("vpcEndpointId", (Option.map x.vpcEndpointId ~f:String_.to_value));
        ("vpcId", (Option.map x.vpcId ~f:String_.to_value));
        ("vpcEndpointOwnerId",
          (Option.map x.vpcEndpointOwnerId ~f:String_.to_value));
        ("id", (Option.map x.id ~f:String_.to_value));
        ("state", (Option.map x.state ~f:String_.to_value));
        ("serviceNetworkArn",
          (Option.map x.serviceNetworkArn ~f:ServiceNetworkArn.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let serviceNetworkArn =
        (Option.map ~f:ServiceNetworkArn.of_xml)
          (Xml.child xml_arg0 "serviceNetworkArn") in
      let state = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "state") in
      let id = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "id") in
      let vpcEndpointOwnerId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "vpcEndpointOwnerId") in
      let vpcId = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "vpcId") in
      let vpcEndpointId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "vpcEndpointId") in
      make ?createdAt ?serviceNetworkArn ?state ?id ?vpcEndpointOwnerId
        ?vpcId ?vpcEndpointId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let serviceNetworkArn =
        field_map json__ "serviceNetworkArn" ServiceNetworkArn.of_json in
      let state = field_map json__ "state" String_.of_json in
      let id = field_map json__ "id" String_.of_json in
      let vpcEndpointOwnerId =
        field_map json__ "vpcEndpointOwnerId" String_.of_json in
      let vpcId = field_map json__ "vpcId" String_.of_json in
      let vpcEndpointId = field_map json__ "vpcEndpointId" String_.of_json in
      make ?createdAt ?serviceNetworkArn ?state ?id ?vpcEndpointOwnerId
        ?vpcId ?vpcEndpointId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the association between a service network and a VPC endpoint."]
module ServiceNetworkVpcAssociationSummary =
  struct
    type nonrec t =
      {
      id: ServiceNetworkVpcAssociationId.t option
        [@ocaml.doc "The ID of the association."];
      arn: ServiceNetworkVpcAssociationArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the association."];
      status: ServiceNetworkVpcAssociationStatus.t option
        [@ocaml.doc "The status."];
      createdBy: AccountId.t option
        [@ocaml.doc "The account that created the association."];
      createdAt: Timestamp.t option
        [@ocaml.doc
          "The date and time that the association was created, in ISO-8601 format."];
      serviceNetworkId: ServiceNetworkId.t option
        [@ocaml.doc "The ID of the service network."];
      serviceNetworkName: ServiceNetworkName.t option
        [@ocaml.doc "The name of the service network."];
      serviceNetworkArn: ServiceNetworkArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the service network."];
      privateDnsEnabled: Boolean.t option
        [@ocaml.doc
          "Indicates if private DNS is enabled for the service network VPC association."];
      dnsOptions: DnsOptions.t option
        [@ocaml.doc
          "The DNS options for the service network VPC association."];
      vpcId: VpcId.t option [@ocaml.doc "The ID of the VPC."];
      lastUpdatedAt: Timestamp.t option
        [@ocaml.doc
          "The date and time that the association was last updated, in ISO-8601 format."]}
    let make ?id =
      fun ?arn ->
        fun ?status ->
          fun ?createdBy ->
            fun ?createdAt ->
              fun ?serviceNetworkId ->
                fun ?serviceNetworkName ->
                  fun ?serviceNetworkArn ->
                    fun ?privateDnsEnabled ->
                      fun ?dnsOptions ->
                        fun ?vpcId ->
                          fun ?lastUpdatedAt ->
                            fun () ->
                              {
                                id;
                                arn;
                                status;
                                createdBy;
                                createdAt;
                                serviceNetworkId;
                                serviceNetworkName;
                                serviceNetworkArn;
                                privateDnsEnabled;
                                dnsOptions;
                                vpcId;
                                lastUpdatedAt
                              }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:ServiceNetworkVpcAssociationId.to_value));
        ("arn",
          (Option.map x.arn ~f:ServiceNetworkVpcAssociationArn.to_value));
        ("status",
          (Option.map x.status ~f:ServiceNetworkVpcAssociationStatus.to_value));
        ("createdBy", (Option.map x.createdBy ~f:AccountId.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("serviceNetworkId",
          (Option.map x.serviceNetworkId ~f:ServiceNetworkId.to_value));
        ("serviceNetworkName",
          (Option.map x.serviceNetworkName ~f:ServiceNetworkName.to_value));
        ("serviceNetworkArn",
          (Option.map x.serviceNetworkArn ~f:ServiceNetworkArn.to_value));
        ("privateDnsEnabled",
          (Option.map x.privateDnsEnabled ~f:Boolean.to_value));
        ("dnsOptions", (Option.map x.dnsOptions ~f:DnsOptions.to_value));
        ("vpcId", (Option.map x.vpcId ~f:VpcId.to_value));
        ("lastUpdatedAt", (Option.map x.lastUpdatedAt ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdatedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "lastUpdatedAt") in
      let vpcId = (Option.map ~f:VpcId.of_xml) (Xml.child xml_arg0 "vpcId") in
      let dnsOptions =
        (Option.map ~f:DnsOptions.of_xml) (Xml.child xml_arg0 "dnsOptions") in
      let privateDnsEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "privateDnsEnabled") in
      let serviceNetworkArn =
        (Option.map ~f:ServiceNetworkArn.of_xml)
          (Xml.child xml_arg0 "serviceNetworkArn") in
      let serviceNetworkName =
        (Option.map ~f:ServiceNetworkName.of_xml)
          (Xml.child xml_arg0 "serviceNetworkName") in
      let serviceNetworkId =
        (Option.map ~f:ServiceNetworkId.of_xml)
          (Xml.child xml_arg0 "serviceNetworkId") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let createdBy =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "createdBy") in
      let status =
        (Option.map ~f:ServiceNetworkVpcAssociationStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let arn =
        (Option.map ~f:ServiceNetworkVpcAssociationArn.of_xml)
          (Xml.child xml_arg0 "arn") in
      let id =
        (Option.map ~f:ServiceNetworkVpcAssociationId.of_xml)
          (Xml.child xml_arg0 "id") in
      make ?lastUpdatedAt ?vpcId ?dnsOptions ?privateDnsEnabled
        ?serviceNetworkArn ?serviceNetworkName ?serviceNetworkId ?createdAt
        ?createdBy ?status ?arn ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdatedAt = field_map json__ "lastUpdatedAt" Timestamp.of_json in
      let vpcId = field_map json__ "vpcId" VpcId.of_json in
      let dnsOptions = field_map json__ "dnsOptions" DnsOptions.of_json in
      let privateDnsEnabled =
        field_map json__ "privateDnsEnabled" Boolean.of_json in
      let serviceNetworkArn =
        field_map json__ "serviceNetworkArn" ServiceNetworkArn.of_json in
      let serviceNetworkName =
        field_map json__ "serviceNetworkName" ServiceNetworkName.of_json in
      let serviceNetworkId =
        field_map json__ "serviceNetworkId" ServiceNetworkId.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let createdBy = field_map json__ "createdBy" AccountId.of_json in
      let status =
        field_map json__ "status" ServiceNetworkVpcAssociationStatus.of_json in
      let arn =
        field_map json__ "arn" ServiceNetworkVpcAssociationArn.of_json in
      let id = field_map json__ "id" ServiceNetworkVpcAssociationId.of_json in
      make ?lastUpdatedAt ?vpcId ?dnsOptions ?privateDnsEnabled
        ?serviceNetworkArn ?serviceNetworkName ?serviceNetworkId ?createdAt
        ?createdBy ?status ?arn ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Summary information about an association between a service network and a VPC."]
module ServiceNetworkServiceAssociationSummary =
  struct
    type nonrec t =
      {
      id: ServiceNetworkServiceAssociationIdentifier.t option
        [@ocaml.doc "The ID of the association."];
      status: ServiceNetworkServiceAssociationStatus.t option
        [@ocaml.doc
          "The status of the service network\226\128\153s association with the service. If the deletion fails, try to delete again."];
      arn: ServiceNetworkServiceAssociationArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the association."];
      createdBy: AccountId.t option
        [@ocaml.doc "The account that created the association."];
      createdAt: Timestamp.t option
        [@ocaml.doc
          "The date and time that the association was created, in ISO-8601 format."];
      serviceId: ServiceId.t option [@ocaml.doc "The ID of the service."];
      serviceName: ServiceName.t option
        [@ocaml.doc "The name of the service."];
      serviceArn: ServiceArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the service."];
      serviceNetworkId: ServiceNetworkId.t option
        [@ocaml.doc "The ID of the service network."];
      serviceNetworkName: ServiceNetworkName.t option
        [@ocaml.doc "The name of the service network."];
      serviceNetworkArn: ServiceNetworkArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the service network."];
      dnsEntry: DnsEntry.t option [@ocaml.doc "The DNS information."];
      customDomainName: ServiceCustomDomainName.t option
        [@ocaml.doc "The custom domain name of the service."]}
    let make ?id =
      fun ?status ->
        fun ?arn ->
          fun ?createdBy ->
            fun ?createdAt ->
              fun ?serviceId ->
                fun ?serviceName ->
                  fun ?serviceArn ->
                    fun ?serviceNetworkId ->
                      fun ?serviceNetworkName ->
                        fun ?serviceNetworkArn ->
                          fun ?dnsEntry ->
                            fun ?customDomainName ->
                              fun () ->
                                {
                                  id;
                                  status;
                                  arn;
                                  createdBy;
                                  createdAt;
                                  serviceId;
                                  serviceName;
                                  serviceArn;
                                  serviceNetworkId;
                                  serviceNetworkName;
                                  serviceNetworkArn;
                                  dnsEntry;
                                  customDomainName
                                }
    let to_value x =
      structure_to_value
        [("id",
           (Option.map x.id
              ~f:ServiceNetworkServiceAssociationIdentifier.to_value));
        ("status",
          (Option.map x.status
             ~f:ServiceNetworkServiceAssociationStatus.to_value));
        ("arn",
          (Option.map x.arn ~f:ServiceNetworkServiceAssociationArn.to_value));
        ("createdBy", (Option.map x.createdBy ~f:AccountId.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("serviceId", (Option.map x.serviceId ~f:ServiceId.to_value));
        ("serviceName", (Option.map x.serviceName ~f:ServiceName.to_value));
        ("serviceArn", (Option.map x.serviceArn ~f:ServiceArn.to_value));
        ("serviceNetworkId",
          (Option.map x.serviceNetworkId ~f:ServiceNetworkId.to_value));
        ("serviceNetworkName",
          (Option.map x.serviceNetworkName ~f:ServiceNetworkName.to_value));
        ("serviceNetworkArn",
          (Option.map x.serviceNetworkArn ~f:ServiceNetworkArn.to_value));
        ("dnsEntry", (Option.map x.dnsEntry ~f:DnsEntry.to_value));
        ("customDomainName",
          (Option.map x.customDomainName ~f:ServiceCustomDomainName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let customDomainName =
        (Option.map ~f:ServiceCustomDomainName.of_xml)
          (Xml.child xml_arg0 "customDomainName") in
      let dnsEntry =
        (Option.map ~f:DnsEntry.of_xml) (Xml.child xml_arg0 "dnsEntry") in
      let serviceNetworkArn =
        (Option.map ~f:ServiceNetworkArn.of_xml)
          (Xml.child xml_arg0 "serviceNetworkArn") in
      let serviceNetworkName =
        (Option.map ~f:ServiceNetworkName.of_xml)
          (Xml.child xml_arg0 "serviceNetworkName") in
      let serviceNetworkId =
        (Option.map ~f:ServiceNetworkId.of_xml)
          (Xml.child xml_arg0 "serviceNetworkId") in
      let serviceArn =
        (Option.map ~f:ServiceArn.of_xml) (Xml.child xml_arg0 "serviceArn") in
      let serviceName =
        (Option.map ~f:ServiceName.of_xml) (Xml.child xml_arg0 "serviceName") in
      let serviceId =
        (Option.map ~f:ServiceId.of_xml) (Xml.child xml_arg0 "serviceId") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let createdBy =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "createdBy") in
      let arn =
        (Option.map ~f:ServiceNetworkServiceAssociationArn.of_xml)
          (Xml.child xml_arg0 "arn") in
      let status =
        (Option.map ~f:ServiceNetworkServiceAssociationStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let id =
        (Option.map ~f:ServiceNetworkServiceAssociationIdentifier.of_xml)
          (Xml.child xml_arg0 "id") in
      make ?customDomainName ?dnsEntry ?serviceNetworkArn ?serviceNetworkName
        ?serviceNetworkId ?serviceArn ?serviceName ?serviceId ?createdAt
        ?createdBy ?arn ?status ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let customDomainName =
        field_map json__ "customDomainName" ServiceCustomDomainName.of_json in
      let dnsEntry = field_map json__ "dnsEntry" DnsEntry.of_json in
      let serviceNetworkArn =
        field_map json__ "serviceNetworkArn" ServiceNetworkArn.of_json in
      let serviceNetworkName =
        field_map json__ "serviceNetworkName" ServiceNetworkName.of_json in
      let serviceNetworkId =
        field_map json__ "serviceNetworkId" ServiceNetworkId.of_json in
      let serviceArn = field_map json__ "serviceArn" ServiceArn.of_json in
      let serviceName = field_map json__ "serviceName" ServiceName.of_json in
      let serviceId = field_map json__ "serviceId" ServiceId.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let createdBy = field_map json__ "createdBy" AccountId.of_json in
      let arn =
        field_map json__ "arn" ServiceNetworkServiceAssociationArn.of_json in
      let status =
        field_map json__ "status"
          ServiceNetworkServiceAssociationStatus.of_json in
      let id =
        field_map json__ "id"
          ServiceNetworkServiceAssociationIdentifier.of_json in
      make ?customDomainName ?dnsEntry ?serviceNetworkArn ?serviceNetworkName
        ?serviceNetworkId ?serviceArn ?serviceName ?serviceId ?createdAt
        ?createdBy ?arn ?status ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Summary information about an association between a service network and a service."]
module ServiceNetworkResourceAssociationSummary =
  struct
    type nonrec t =
      {
      id: ServiceNetworkResourceAssociationId.t option
        [@ocaml.doc
          "The ID of the association between the service network and resource configuration."];
      arn: ServiceNetworkResourceAssociationArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the association."];
      status: ServiceNetworkResourceAssociationStatus.t option
        [@ocaml.doc
          "The status of the service network\226\128\153s association with the resource configuration. If the deletion fails, try to delete again."];
      createdBy: AccountId.t option
        [@ocaml.doc "The account that created the association."];
      createdAt: Timestamp.t option
        [@ocaml.doc
          "The date and time that the association was created, in ISO-8601 format."];
      resourceConfigurationId: ResourceConfigurationId.t option
        [@ocaml.doc
          "The ID of the resource configuration associated with the service network."];
      resourceConfigurationArn: ResourceConfigurationArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the association."];
      resourceConfigurationName: ResourceConfigurationName.t option
        [@ocaml.doc
          "The name of the resource configuration associated with the service network."];
      serviceNetworkId: ServiceNetworkIdentifierWithoutRegex.t option
        [@ocaml.doc
          "The ID of the service network associated with the resource configuration."];
      serviceNetworkArn: ServiceNetworkArnWithoutRegex.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the service network associated with the resource configuration."];
      serviceNetworkName: ServiceNetworkNameWithoutRegex.t option
        [@ocaml.doc
          "The name of the service network associated with the resource configuration."];
      dnsEntry: DnsEntry.t option
        [@ocaml.doc "The DNS entry for the service."];
      privateDnsEntry: DnsEntry.t option
        [@ocaml.doc "The private DNS entry for the service."];
      isManagedAssociation: Boolean.t option
        [@ocaml.doc
          "Specifies whether the association is managed by Amazon."];
      failureCode: String_.t option [@ocaml.doc "The failure code."];
      privateDnsEnabled: Boolean.t option
        [@ocaml.doc
          "Indicates if private DNS is enabled for the service network resource association."]}
    let make ?id =
      fun ?arn ->
        fun ?status ->
          fun ?createdBy ->
            fun ?createdAt ->
              fun ?resourceConfigurationId ->
                fun ?resourceConfigurationArn ->
                  fun ?resourceConfigurationName ->
                    fun ?serviceNetworkId ->
                      fun ?serviceNetworkArn ->
                        fun ?serviceNetworkName ->
                          fun ?dnsEntry ->
                            fun ?privateDnsEntry ->
                              fun ?isManagedAssociation ->
                                fun ?failureCode ->
                                  fun ?privateDnsEnabled ->
                                    fun () ->
                                      {
                                        id;
                                        arn;
                                        status;
                                        createdBy;
                                        createdAt;
                                        resourceConfigurationId;
                                        resourceConfigurationArn;
                                        resourceConfigurationName;
                                        serviceNetworkId;
                                        serviceNetworkArn;
                                        serviceNetworkName;
                                        dnsEntry;
                                        privateDnsEntry;
                                        isManagedAssociation;
                                        failureCode;
                                        privateDnsEnabled
                                      }
    let to_value x =
      structure_to_value
        [("id",
           (Option.map x.id ~f:ServiceNetworkResourceAssociationId.to_value));
        ("arn",
          (Option.map x.arn ~f:ServiceNetworkResourceAssociationArn.to_value));
        ("status",
          (Option.map x.status
             ~f:ServiceNetworkResourceAssociationStatus.to_value));
        ("createdBy", (Option.map x.createdBy ~f:AccountId.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("resourceConfigurationId",
          (Option.map x.resourceConfigurationId
             ~f:ResourceConfigurationId.to_value));
        ("resourceConfigurationArn",
          (Option.map x.resourceConfigurationArn
             ~f:ResourceConfigurationArn.to_value));
        ("resourceConfigurationName",
          (Option.map x.resourceConfigurationName
             ~f:ResourceConfigurationName.to_value));
        ("serviceNetworkId",
          (Option.map x.serviceNetworkId
             ~f:ServiceNetworkIdentifierWithoutRegex.to_value));
        ("serviceNetworkArn",
          (Option.map x.serviceNetworkArn
             ~f:ServiceNetworkArnWithoutRegex.to_value));
        ("serviceNetworkName",
          (Option.map x.serviceNetworkName
             ~f:ServiceNetworkNameWithoutRegex.to_value));
        ("dnsEntry", (Option.map x.dnsEntry ~f:DnsEntry.to_value));
        ("privateDnsEntry",
          (Option.map x.privateDnsEntry ~f:DnsEntry.to_value));
        ("isManagedAssociation",
          (Option.map x.isManagedAssociation ~f:Boolean.to_value));
        ("failureCode", (Option.map x.failureCode ~f:String_.to_value));
        ("privateDnsEnabled",
          (Option.map x.privateDnsEnabled ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let privateDnsEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "privateDnsEnabled") in
      let failureCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "failureCode") in
      let isManagedAssociation =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "isManagedAssociation") in
      let privateDnsEntry =
        (Option.map ~f:DnsEntry.of_xml)
          (Xml.child xml_arg0 "privateDnsEntry") in
      let dnsEntry =
        (Option.map ~f:DnsEntry.of_xml) (Xml.child xml_arg0 "dnsEntry") in
      let serviceNetworkName =
        (Option.map ~f:ServiceNetworkNameWithoutRegex.of_xml)
          (Xml.child xml_arg0 "serviceNetworkName") in
      let serviceNetworkArn =
        (Option.map ~f:ServiceNetworkArnWithoutRegex.of_xml)
          (Xml.child xml_arg0 "serviceNetworkArn") in
      let serviceNetworkId =
        (Option.map ~f:ServiceNetworkIdentifierWithoutRegex.of_xml)
          (Xml.child xml_arg0 "serviceNetworkId") in
      let resourceConfigurationName =
        (Option.map ~f:ResourceConfigurationName.of_xml)
          (Xml.child xml_arg0 "resourceConfigurationName") in
      let resourceConfigurationArn =
        (Option.map ~f:ResourceConfigurationArn.of_xml)
          (Xml.child xml_arg0 "resourceConfigurationArn") in
      let resourceConfigurationId =
        (Option.map ~f:ResourceConfigurationId.of_xml)
          (Xml.child xml_arg0 "resourceConfigurationId") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let createdBy =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "createdBy") in
      let status =
        (Option.map ~f:ServiceNetworkResourceAssociationStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let arn =
        (Option.map ~f:ServiceNetworkResourceAssociationArn.of_xml)
          (Xml.child xml_arg0 "arn") in
      let id =
        (Option.map ~f:ServiceNetworkResourceAssociationId.of_xml)
          (Xml.child xml_arg0 "id") in
      make ?privateDnsEnabled ?failureCode ?isManagedAssociation
        ?privateDnsEntry ?dnsEntry ?serviceNetworkName ?serviceNetworkArn
        ?serviceNetworkId ?resourceConfigurationName
        ?resourceConfigurationArn ?resourceConfigurationId ?createdAt
        ?createdBy ?status ?arn ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let privateDnsEnabled =
        field_map json__ "privateDnsEnabled" Boolean.of_json in
      let failureCode = field_map json__ "failureCode" String_.of_json in
      let isManagedAssociation =
        field_map json__ "isManagedAssociation" Boolean.of_json in
      let privateDnsEntry =
        field_map json__ "privateDnsEntry" DnsEntry.of_json in
      let dnsEntry = field_map json__ "dnsEntry" DnsEntry.of_json in
      let serviceNetworkName =
        field_map json__ "serviceNetworkName"
          ServiceNetworkNameWithoutRegex.of_json in
      let serviceNetworkArn =
        field_map json__ "serviceNetworkArn"
          ServiceNetworkArnWithoutRegex.of_json in
      let serviceNetworkId =
        field_map json__ "serviceNetworkId"
          ServiceNetworkIdentifierWithoutRegex.of_json in
      let resourceConfigurationName =
        field_map json__ "resourceConfigurationName"
          ResourceConfigurationName.of_json in
      let resourceConfigurationArn =
        field_map json__ "resourceConfigurationArn"
          ResourceConfigurationArn.of_json in
      let resourceConfigurationId =
        field_map json__ "resourceConfigurationId"
          ResourceConfigurationId.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let createdBy = field_map json__ "createdBy" AccountId.of_json in
      let status =
        field_map json__ "status"
          ServiceNetworkResourceAssociationStatus.of_json in
      let arn =
        field_map json__ "arn" ServiceNetworkResourceAssociationArn.of_json in
      let id =
        field_map json__ "id" ServiceNetworkResourceAssociationId.of_json in
      make ?privateDnsEnabled ?failureCode ?isManagedAssociation
        ?privateDnsEntry ?dnsEntry ?serviceNetworkName ?serviceNetworkArn
        ?serviceNetworkId ?resourceConfigurationName
        ?resourceConfigurationArn ?resourceConfigurationId ?createdAt
        ?createdBy ?status ?arn ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Summary information about an association between a service network and a resource configuration."]
module RuleSummary =
  struct
    type nonrec t =
      {
      arn: RuleArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the rule."];
      id: RuleId.t option [@ocaml.doc "The ID of the rule."];
      name: RuleName.t option [@ocaml.doc "The name of the rule."];
      isDefault: Boolean.t option
        [@ocaml.doc "Indicates whether this is the default listener rule."];
      priority: RulePriority.t option
        [@ocaml.doc "The priority of the rule."];
      createdAt: Timestamp.t option
        [@ocaml.doc
          "The date and time that the listener rule was created, in ISO-8601 format."];
      lastUpdatedAt: Timestamp.t option
        [@ocaml.doc
          "The date and time that the listener rule was last updated, in ISO-8601 format."]}
    let make ?arn =
      fun ?id ->
        fun ?name ->
          fun ?isDefault ->
            fun ?priority ->
              fun ?createdAt ->
                fun ?lastUpdatedAt ->
                  fun () ->
                    {
                      arn;
                      id;
                      name;
                      isDefault;
                      priority;
                      createdAt;
                      lastUpdatedAt
                    }
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:RuleArn.to_value));
        ("id", (Option.map x.id ~f:RuleId.to_value));
        ("name", (Option.map x.name ~f:RuleName.to_value));
        ("isDefault", (Option.map x.isDefault ~f:Boolean.to_value));
        ("priority", (Option.map x.priority ~f:RulePriority.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("lastUpdatedAt", (Option.map x.lastUpdatedAt ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdatedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "lastUpdatedAt") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let priority =
        (Option.map ~f:RulePriority.of_xml) (Xml.child xml_arg0 "priority") in
      let isDefault =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "isDefault") in
      let name = (Option.map ~f:RuleName.of_xml) (Xml.child xml_arg0 "name") in
      let id = (Option.map ~f:RuleId.of_xml) (Xml.child xml_arg0 "id") in
      let arn = (Option.map ~f:RuleArn.of_xml) (Xml.child xml_arg0 "arn") in
      make ?lastUpdatedAt ?createdAt ?priority ?isDefault ?name ?id ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdatedAt = field_map json__ "lastUpdatedAt" Timestamp.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let priority = field_map json__ "priority" RulePriority.of_json in
      let isDefault = field_map json__ "isDefault" Boolean.of_json in
      let name = field_map json__ "name" RuleName.of_json in
      let id = field_map json__ "id" RuleId.of_json in
      let arn = field_map json__ "arn" RuleArn.of_json in
      make ?lastUpdatedAt ?createdAt ?priority ?isDefault ?name ?id ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Summary information about a listener rule."]
module ResourceGatewaySummary =
  struct
    type nonrec t =
      {
      name: ResourceGatewayName.t option
        [@ocaml.doc "The name of the resource gateway."];
      id: ResourceGatewayId.t option
        [@ocaml.doc "The ID of the resource gateway."];
      arn: ResourceGatewayArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource gateway."];
      status: ResourceGatewayStatus.t option
        [@ocaml.doc "The name of the resource gateway."];
      vpcIdentifier: VpcId.t option
        [@ocaml.doc "The ID of the VPC for the resource gateway."];
      subnetIds: SubnetList.t option
        [@ocaml.doc "The IDs of the VPC subnets for the resource gateway."];
      securityGroupIds: SecurityGroupList.t option
        [@ocaml.doc
          "The IDs of the security groups applied to the resource gateway."];
      ipAddressType: ResourceGatewayIpAddressType.t option
        [@ocaml.doc "The type of IP address used by the resource gateway."];
      ipv4AddressesPerEni: Ipv4AddressesPerEni.t option
        [@ocaml.doc
          "The number of IPv4 addresses in each ENI for the resource gateway."];
      resourceConfigDnsResolution: ResourceConfigDnsResolution.t option
        [@ocaml.doc
          "The DNS resolution type for resource configurations that are associated with this resource gateway."];
      createdAt: Timestamp.t option
        [@ocaml.doc
          "The date and time that the VPC endpoint association was created, in ISO-8601 format."];
      lastUpdatedAt: Timestamp.t option
        [@ocaml.doc
          "The most recent date and time that the resource gateway was updated, in ISO-8601 format."]}
    let make ?name =
      fun ?id ->
        fun ?arn ->
          fun ?status ->
            fun ?vpcIdentifier ->
              fun ?subnetIds ->
                fun ?securityGroupIds ->
                  fun ?ipAddressType ->
                    fun ?ipv4AddressesPerEni ->
                      fun ?resourceConfigDnsResolution ->
                        fun ?createdAt ->
                          fun ?lastUpdatedAt ->
                            fun () ->
                              {
                                name;
                                id;
                                arn;
                                status;
                                vpcIdentifier;
                                subnetIds;
                                securityGroupIds;
                                ipAddressType;
                                ipv4AddressesPerEni;
                                resourceConfigDnsResolution;
                                createdAt;
                                lastUpdatedAt
                              }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:ResourceGatewayName.to_value));
        ("id", (Option.map x.id ~f:ResourceGatewayId.to_value));
        ("arn", (Option.map x.arn ~f:ResourceGatewayArn.to_value));
        ("status", (Option.map x.status ~f:ResourceGatewayStatus.to_value));
        ("vpcIdentifier", (Option.map x.vpcIdentifier ~f:VpcId.to_value));
        ("subnetIds", (Option.map x.subnetIds ~f:SubnetList.to_value));
        ("securityGroupIds",
          (Option.map x.securityGroupIds ~f:SecurityGroupList.to_value));
        ("ipAddressType",
          (Option.map x.ipAddressType
             ~f:ResourceGatewayIpAddressType.to_value));
        ("ipv4AddressesPerEni",
          (Option.map x.ipv4AddressesPerEni ~f:Ipv4AddressesPerEni.to_value));
        ("resourceConfigDnsResolution",
          (Option.map x.resourceConfigDnsResolution
             ~f:ResourceConfigDnsResolution.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("lastUpdatedAt", (Option.map x.lastUpdatedAt ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdatedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "lastUpdatedAt") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let resourceConfigDnsResolution =
        (Option.map ~f:ResourceConfigDnsResolution.of_xml)
          (Xml.child xml_arg0 "resourceConfigDnsResolution") in
      let ipv4AddressesPerEni =
        (Option.map ~f:Ipv4AddressesPerEni.of_xml)
          (Xml.child xml_arg0 "ipv4AddressesPerEni") in
      let ipAddressType =
        (Option.map ~f:ResourceGatewayIpAddressType.of_xml)
          (Xml.child xml_arg0 "ipAddressType") in
      let securityGroupIds =
        (Option.map ~f:SecurityGroupList.of_xml)
          (Xml.child xml_arg0 "securityGroupIds") in
      let subnetIds =
        (Option.map ~f:SubnetList.of_xml) (Xml.child xml_arg0 "subnetIds") in
      let vpcIdentifier =
        (Option.map ~f:VpcId.of_xml) (Xml.child xml_arg0 "vpcIdentifier") in
      let status =
        (Option.map ~f:ResourceGatewayStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let arn =
        (Option.map ~f:ResourceGatewayArn.of_xml) (Xml.child xml_arg0 "arn") in
      let id =
        (Option.map ~f:ResourceGatewayId.of_xml) (Xml.child xml_arg0 "id") in
      let name =
        (Option.map ~f:ResourceGatewayName.of_xml)
          (Xml.child xml_arg0 "name") in
      make ?lastUpdatedAt ?createdAt ?resourceConfigDnsResolution
        ?ipv4AddressesPerEni ?ipAddressType ?securityGroupIds ?subnetIds
        ?vpcIdentifier ?status ?arn ?id ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdatedAt = field_map json__ "lastUpdatedAt" Timestamp.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let resourceConfigDnsResolution =
        field_map json__ "resourceConfigDnsResolution"
          ResourceConfigDnsResolution.of_json in
      let ipv4AddressesPerEni =
        field_map json__ "ipv4AddressesPerEni" Ipv4AddressesPerEni.of_json in
      let ipAddressType =
        field_map json__ "ipAddressType" ResourceGatewayIpAddressType.of_json in
      let securityGroupIds =
        field_map json__ "securityGroupIds" SecurityGroupList.of_json in
      let subnetIds = field_map json__ "subnetIds" SubnetList.of_json in
      let vpcIdentifier = field_map json__ "vpcIdentifier" VpcId.of_json in
      let status = field_map json__ "status" ResourceGatewayStatus.of_json in
      let arn = field_map json__ "arn" ResourceGatewayArn.of_json in
      let id = field_map json__ "id" ResourceGatewayId.of_json in
      let name = field_map json__ "name" ResourceGatewayName.of_json in
      make ?lastUpdatedAt ?createdAt ?resourceConfigDnsResolution
        ?ipv4AddressesPerEni ?ipAddressType ?securityGroupIds ?subnetIds
        ?vpcIdentifier ?status ?arn ?id ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Summary information about a resource gateway."]
module ResourceEndpointAssociationSummary =
  struct
    type nonrec t =
      {
      id: ResourceEndpointAssociationId.t option
        [@ocaml.doc "The ID of the VPC endpoint association."];
      arn: ResourceEndpointAssociationArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the VPC endpoint association."];
      resourceConfigurationId: ResourceConfigurationId.t option
        [@ocaml.doc "The ID of the resource configuration."];
      resourceConfigurationArn: ResourceConfigurationArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource configuration."];
      resourceConfigurationName: ResourceConfigurationName.t option
        [@ocaml.doc "The name of the resource configuration."];
      vpcEndpointId: VpcEndpointId.t option
        [@ocaml.doc "The ID of the VPC endpoint."];
      vpcEndpointOwner: VpcEndpointOwner.t option
        [@ocaml.doc "The owner of the VPC endpoint."];
      createdBy: AccountId.t option
        [@ocaml.doc "The account that created the association."];
      createdAt: Timestamp.t option
        [@ocaml.doc
          "The date and time that the VPC endpoint association was created, in ISO-8601 format."]}
    let make ?id =
      fun ?arn ->
        fun ?resourceConfigurationId ->
          fun ?resourceConfigurationArn ->
            fun ?resourceConfigurationName ->
              fun ?vpcEndpointId ->
                fun ?vpcEndpointOwner ->
                  fun ?createdBy ->
                    fun ?createdAt ->
                      fun () ->
                        {
                          id;
                          arn;
                          resourceConfigurationId;
                          resourceConfigurationArn;
                          resourceConfigurationName;
                          vpcEndpointId;
                          vpcEndpointOwner;
                          createdBy;
                          createdAt
                        }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:ResourceEndpointAssociationId.to_value));
        ("arn",
          (Option.map x.arn ~f:ResourceEndpointAssociationArn.to_value));
        ("resourceConfigurationId",
          (Option.map x.resourceConfigurationId
             ~f:ResourceConfigurationId.to_value));
        ("resourceConfigurationArn",
          (Option.map x.resourceConfigurationArn
             ~f:ResourceConfigurationArn.to_value));
        ("resourceConfigurationName",
          (Option.map x.resourceConfigurationName
             ~f:ResourceConfigurationName.to_value));
        ("vpcEndpointId",
          (Option.map x.vpcEndpointId ~f:VpcEndpointId.to_value));
        ("vpcEndpointOwner",
          (Option.map x.vpcEndpointOwner ~f:VpcEndpointOwner.to_value));
        ("createdBy", (Option.map x.createdBy ~f:AccountId.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let createdBy =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "createdBy") in
      let vpcEndpointOwner =
        (Option.map ~f:VpcEndpointOwner.of_xml)
          (Xml.child xml_arg0 "vpcEndpointOwner") in
      let vpcEndpointId =
        (Option.map ~f:VpcEndpointId.of_xml)
          (Xml.child xml_arg0 "vpcEndpointId") in
      let resourceConfigurationName =
        (Option.map ~f:ResourceConfigurationName.of_xml)
          (Xml.child xml_arg0 "resourceConfigurationName") in
      let resourceConfigurationArn =
        (Option.map ~f:ResourceConfigurationArn.of_xml)
          (Xml.child xml_arg0 "resourceConfigurationArn") in
      let resourceConfigurationId =
        (Option.map ~f:ResourceConfigurationId.of_xml)
          (Xml.child xml_arg0 "resourceConfigurationId") in
      let arn =
        (Option.map ~f:ResourceEndpointAssociationArn.of_xml)
          (Xml.child xml_arg0 "arn") in
      let id =
        (Option.map ~f:ResourceEndpointAssociationId.of_xml)
          (Xml.child xml_arg0 "id") in
      make ?createdAt ?createdBy ?vpcEndpointOwner ?vpcEndpointId
        ?resourceConfigurationName ?resourceConfigurationArn
        ?resourceConfigurationId ?arn ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let createdBy = field_map json__ "createdBy" AccountId.of_json in
      let vpcEndpointOwner =
        field_map json__ "vpcEndpointOwner" VpcEndpointOwner.of_json in
      let vpcEndpointId =
        field_map json__ "vpcEndpointId" VpcEndpointId.of_json in
      let resourceConfigurationName =
        field_map json__ "resourceConfigurationName"
          ResourceConfigurationName.of_json in
      let resourceConfigurationArn =
        field_map json__ "resourceConfigurationArn"
          ResourceConfigurationArn.of_json in
      let resourceConfigurationId =
        field_map json__ "resourceConfigurationId"
          ResourceConfigurationId.of_json in
      let arn = field_map json__ "arn" ResourceEndpointAssociationArn.of_json in
      let id = field_map json__ "id" ResourceEndpointAssociationId.of_json in
      make ?createdAt ?createdBy ?vpcEndpointOwner ?vpcEndpointId
        ?resourceConfigurationName ?resourceConfigurationArn
        ?resourceConfigurationId ?arn ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Summary information about a VPC endpoint association."]
module ResourceConfigurationSummary =
  struct
    type nonrec t =
      {
      id: ResourceConfigurationId.t option
        [@ocaml.doc "The ID of the resource configuration."];
      name: ResourceConfigurationName.t option
        [@ocaml.doc "The name of the resource configuration."];
      arn: ResourceConfigurationArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource configuration."];
      resourceGatewayId: ResourceGatewayId.t option
        [@ocaml.doc "The ID of the resource gateway."];
      resourceConfigurationGroupId: ResourceConfigurationId.t option
        [@ocaml.doc "The ID of the group resource configuration."];
      type_: ResourceConfigurationType.t option
        [@ocaml.doc
          "The type of resource configuration. SINGLE - A single resource. GROUP - A group of resources. You must create a group resource configuration before you create a child resource configuration. CHILD - A single resource that is part of a group resource configuration. ARN - An Amazon Web Services resource."];
      status: ResourceConfigurationStatus.t option
        [@ocaml.doc "The status of the resource configuration."];
      amazonManaged: Boolean.t option
        [@ocaml.doc
          "Indicates whether the resource configuration was created and is managed by Amazon."];
      createdAt: Timestamp.t option
        [@ocaml.doc
          "The date and time that the resource configuration was created, in ISO-8601 format."];
      lastUpdatedAt: Timestamp.t option
        [@ocaml.doc
          "The most recent date and time that the resource configuration was updated, in ISO-8601 format."];
      customDomainName: DomainName.t option
        [@ocaml.doc "The custom domain name."];
      domainVerificationId: DomainVerificationId.t option
        [@ocaml.doc "The domain verification ID."];
      groupDomain: DomainName.t option
        [@ocaml.doc
          "(GROUP) The group domain for a group resource configuration. Any domains that you create for the child resource are subdomains of the group domain. Child resources inherit the verification status of the domain."]}
    let make ?id =
      fun ?name ->
        fun ?arn ->
          fun ?resourceGatewayId ->
            fun ?resourceConfigurationGroupId ->
              fun ?type_ ->
                fun ?status ->
                  fun ?amazonManaged ->
                    fun ?createdAt ->
                      fun ?lastUpdatedAt ->
                        fun ?customDomainName ->
                          fun ?domainVerificationId ->
                            fun ?groupDomain ->
                              fun () ->
                                {
                                  id;
                                  name;
                                  arn;
                                  resourceGatewayId;
                                  resourceConfigurationGroupId;
                                  type_;
                                  status;
                                  amazonManaged;
                                  createdAt;
                                  lastUpdatedAt;
                                  customDomainName;
                                  domainVerificationId;
                                  groupDomain
                                }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:ResourceConfigurationId.to_value));
        ("name", (Option.map x.name ~f:ResourceConfigurationName.to_value));
        ("arn", (Option.map x.arn ~f:ResourceConfigurationArn.to_value));
        ("resourceGatewayId",
          (Option.map x.resourceGatewayId ~f:ResourceGatewayId.to_value));
        ("resourceConfigurationGroupId",
          (Option.map x.resourceConfigurationGroupId
             ~f:ResourceConfigurationId.to_value));
        ("type", (Option.map x.type_ ~f:ResourceConfigurationType.to_value));
        ("status",
          (Option.map x.status ~f:ResourceConfigurationStatus.to_value));
        ("amazonManaged", (Option.map x.amazonManaged ~f:Boolean.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("lastUpdatedAt", (Option.map x.lastUpdatedAt ~f:Timestamp.to_value));
        ("customDomainName",
          (Option.map x.customDomainName ~f:DomainName.to_value));
        ("domainVerificationId",
          (Option.map x.domainVerificationId ~f:DomainVerificationId.to_value));
        ("groupDomain", (Option.map x.groupDomain ~f:DomainName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let groupDomain =
        (Option.map ~f:DomainName.of_xml) (Xml.child xml_arg0 "groupDomain") in
      let domainVerificationId =
        (Option.map ~f:DomainVerificationId.of_xml)
          (Xml.child xml_arg0 "domainVerificationId") in
      let customDomainName =
        (Option.map ~f:DomainName.of_xml)
          (Xml.child xml_arg0 "customDomainName") in
      let lastUpdatedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "lastUpdatedAt") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let amazonManaged =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "amazonManaged") in
      let status =
        (Option.map ~f:ResourceConfigurationStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let type_ =
        (Option.map ~f:ResourceConfigurationType.of_xml)
          (Xml.child xml_arg0 "type") in
      let resourceConfigurationGroupId =
        (Option.map ~f:ResourceConfigurationId.of_xml)
          (Xml.child xml_arg0 "resourceConfigurationGroupId") in
      let resourceGatewayId =
        (Option.map ~f:ResourceGatewayId.of_xml)
          (Xml.child xml_arg0 "resourceGatewayId") in
      let arn =
        (Option.map ~f:ResourceConfigurationArn.of_xml)
          (Xml.child xml_arg0 "arn") in
      let name =
        (Option.map ~f:ResourceConfigurationName.of_xml)
          (Xml.child xml_arg0 "name") in
      let id =
        (Option.map ~f:ResourceConfigurationId.of_xml)
          (Xml.child xml_arg0 "id") in
      make ?groupDomain ?domainVerificationId ?customDomainName
        ?lastUpdatedAt ?createdAt ?amazonManaged ?status ?type_
        ?resourceConfigurationGroupId ?resourceGatewayId ?arn ?name ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let groupDomain = field_map json__ "groupDomain" DomainName.of_json in
      let domainVerificationId =
        field_map json__ "domainVerificationId" DomainVerificationId.of_json in
      let customDomainName =
        field_map json__ "customDomainName" DomainName.of_json in
      let lastUpdatedAt = field_map json__ "lastUpdatedAt" Timestamp.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let amazonManaged = field_map json__ "amazonManaged" Boolean.of_json in
      let status =
        field_map json__ "status" ResourceConfigurationStatus.of_json in
      let type_ = field_map json__ "type" ResourceConfigurationType.of_json in
      let resourceConfigurationGroupId =
        field_map json__ "resourceConfigurationGroupId"
          ResourceConfigurationId.of_json in
      let resourceGatewayId =
        field_map json__ "resourceGatewayId" ResourceGatewayId.of_json in
      let arn = field_map json__ "arn" ResourceConfigurationArn.of_json in
      let name = field_map json__ "name" ResourceConfigurationName.of_json in
      let id = field_map json__ "id" ResourceConfigurationId.of_json in
      make ?groupDomain ?domainVerificationId ?customDomainName
        ?lastUpdatedAt ?createdAt ?amazonManaged ?status ?type_
        ?resourceConfigurationGroupId ?resourceGatewayId ?arn ?name ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Summary information about a resource configuration."]
module ListenerSummary =
  struct
    type nonrec t =
      {
      arn: ListenerArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the listener."];
      id: ListenerId.t option [@ocaml.doc "The ID of the listener."];
      name: ListenerName.t option [@ocaml.doc "The name of the listener."];
      protocol: ListenerProtocol.t option
        [@ocaml.doc "The listener protocol."];
      port: Port.t option [@ocaml.doc "The listener port."];
      createdAt: Timestamp.t option
        [@ocaml.doc
          "The date and time that the listener was created, in ISO-8601 format."];
      lastUpdatedAt: Timestamp.t option
        [@ocaml.doc
          "The date and time that the listener was last updated, in ISO-8601 format."]}
    let make ?arn =
      fun ?id ->
        fun ?name ->
          fun ?protocol ->
            fun ?port ->
              fun ?createdAt ->
                fun ?lastUpdatedAt ->
                  fun () ->
                    { arn; id; name; protocol; port; createdAt; lastUpdatedAt
                    }
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:ListenerArn.to_value));
        ("id", (Option.map x.id ~f:ListenerId.to_value));
        ("name", (Option.map x.name ~f:ListenerName.to_value));
        ("protocol", (Option.map x.protocol ~f:ListenerProtocol.to_value));
        ("port", (Option.map x.port ~f:Port.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("lastUpdatedAt", (Option.map x.lastUpdatedAt ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdatedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "lastUpdatedAt") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let port = (Option.map ~f:Port.of_xml) (Xml.child xml_arg0 "port") in
      let protocol =
        (Option.map ~f:ListenerProtocol.of_xml)
          (Xml.child xml_arg0 "protocol") in
      let name =
        (Option.map ~f:ListenerName.of_xml) (Xml.child xml_arg0 "name") in
      let id = (Option.map ~f:ListenerId.of_xml) (Xml.child xml_arg0 "id") in
      let arn = (Option.map ~f:ListenerArn.of_xml) (Xml.child xml_arg0 "arn") in
      make ?lastUpdatedAt ?createdAt ?port ?protocol ?name ?id ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdatedAt = field_map json__ "lastUpdatedAt" Timestamp.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let port = field_map json__ "port" Port.of_json in
      let protocol = field_map json__ "protocol" ListenerProtocol.of_json in
      let name = field_map json__ "name" ListenerName.of_json in
      let id = field_map json__ "id" ListenerId.of_json in
      let arn = field_map json__ "arn" ListenerArn.of_json in
      make ?lastUpdatedAt ?createdAt ?port ?protocol ?name ?id ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Summary information about a listener."]
module DomainVerificationSummary =
  struct
    type nonrec t =
      {
      id: DomainVerificationId.t option
        [@ocaml.doc "The ID of the domain verification."];
      arn: DomainVerificationArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the domain verification."];
      domainName: DomainName.t option
        [@ocaml.doc "The domain name being verified."];
      status: VerificationStatus.t option
        [@ocaml.doc "The current status of the domain verification process."];
      txtMethodConfig: TxtMethodConfig.t option
        [@ocaml.doc
          "The TXT record configuration used for domain verification."];
      createdAt: Timestamp.t option
        [@ocaml.doc
          "The date and time that the domain verification was created, in ISO-8601 format."];
      lastVerifiedTime: Timestamp.t option
        [@ocaml.doc
          "The date and time that the domain was last successfully verified, in ISO-8601 format."];
      tags: TagMap.t option
        [@ocaml.doc "The tags associated with the domain verification."]}
    let make ?id =
      fun ?arn ->
        fun ?domainName ->
          fun ?status ->
            fun ?txtMethodConfig ->
              fun ?createdAt ->
                fun ?lastVerifiedTime ->
                  fun ?tags ->
                    fun () ->
                      {
                        id;
                        arn;
                        domainName;
                        status;
                        txtMethodConfig;
                        createdAt;
                        lastVerifiedTime;
                        tags
                      }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:DomainVerificationId.to_value));
        ("arn", (Option.map x.arn ~f:DomainVerificationArn.to_value));
        ("domainName", (Option.map x.domainName ~f:DomainName.to_value));
        ("status", (Option.map x.status ~f:VerificationStatus.to_value));
        ("txtMethodConfig",
          (Option.map x.txtMethodConfig ~f:TxtMethodConfig.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("lastVerifiedTime",
          (Option.map x.lastVerifiedTime ~f:Timestamp.to_value));
        ("tags", (Option.map x.tags ~f:TagMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "tags") in
      let lastVerifiedTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "lastVerifiedTime") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let txtMethodConfig =
        (Option.map ~f:TxtMethodConfig.of_xml)
          (Xml.child xml_arg0 "txtMethodConfig") in
      let status =
        (Option.map ~f:VerificationStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let domainName =
        (Option.map ~f:DomainName.of_xml) (Xml.child xml_arg0 "domainName") in
      let arn =
        (Option.map ~f:DomainVerificationArn.of_xml)
          (Xml.child xml_arg0 "arn") in
      let id =
        (Option.map ~f:DomainVerificationId.of_xml) (Xml.child xml_arg0 "id") in
      make ?tags ?lastVerifiedTime ?createdAt ?txtMethodConfig ?status
        ?domainName ?arn ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagMap.of_json in
      let lastVerifiedTime =
        field_map json__ "lastVerifiedTime" Timestamp.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let txtMethodConfig =
        field_map json__ "txtMethodConfig" TxtMethodConfig.of_json in
      let status = field_map json__ "status" VerificationStatus.of_json in
      let domainName = field_map json__ "domainName" DomainName.of_json in
      let arn = field_map json__ "arn" DomainVerificationArn.of_json in
      let id = field_map json__ "id" DomainVerificationId.of_json in
      make ?tags ?lastVerifiedTime ?createdAt ?txtMethodConfig ?status
        ?domainName ?arn ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Summary information about a domain verification."]
module AccessLogSubscriptionSummary =
  struct
    type nonrec t =
      {
      id: AccessLogSubscriptionId.t option
        [@ocaml.doc "The ID of the access log subscription."];
      arn: AccessLogSubscriptionArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the access log subscription"];
      resourceId: ResourceId.t option
        [@ocaml.doc "The ID of the service or service network."];
      resourceArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the service or service network."];
      destinationArn: AccessLogDestinationArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the destination."];
      serviceNetworkLogType: ServiceNetworkLogType.t option
        [@ocaml.doc "Log type of the service network."];
      createdAt: Timestamp.t option
        [@ocaml.doc
          "The date and time that the access log subscription was created, in ISO-8601 format."];
      lastUpdatedAt: Timestamp.t option
        [@ocaml.doc
          "The date and time that the access log subscription was last updated, in ISO-8601 format."]}
    let make ?id =
      fun ?arn ->
        fun ?resourceId ->
          fun ?resourceArn ->
            fun ?destinationArn ->
              fun ?serviceNetworkLogType ->
                fun ?createdAt ->
                  fun ?lastUpdatedAt ->
                    fun () ->
                      {
                        id;
                        arn;
                        resourceId;
                        resourceArn;
                        destinationArn;
                        serviceNetworkLogType;
                        createdAt;
                        lastUpdatedAt
                      }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:AccessLogSubscriptionId.to_value));
        ("arn", (Option.map x.arn ~f:AccessLogSubscriptionArn.to_value));
        ("resourceId", (Option.map x.resourceId ~f:ResourceId.to_value));
        ("resourceArn", (Option.map x.resourceArn ~f:ResourceArn.to_value));
        ("destinationArn",
          (Option.map x.destinationArn ~f:AccessLogDestinationArn.to_value));
        ("serviceNetworkLogType",
          (Option.map x.serviceNetworkLogType
             ~f:ServiceNetworkLogType.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("lastUpdatedAt", (Option.map x.lastUpdatedAt ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdatedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "lastUpdatedAt") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let serviceNetworkLogType =
        (Option.map ~f:ServiceNetworkLogType.of_xml)
          (Xml.child xml_arg0 "serviceNetworkLogType") in
      let destinationArn =
        (Option.map ~f:AccessLogDestinationArn.of_xml)
          (Xml.child xml_arg0 "destinationArn") in
      let resourceArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "resourceArn") in
      let resourceId =
        (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "resourceId") in
      let arn =
        (Option.map ~f:AccessLogSubscriptionArn.of_xml)
          (Xml.child xml_arg0 "arn") in
      let id =
        (Option.map ~f:AccessLogSubscriptionId.of_xml)
          (Xml.child xml_arg0 "id") in
      make ?lastUpdatedAt ?createdAt ?serviceNetworkLogType ?destinationArn
        ?resourceArn ?resourceId ?arn ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdatedAt = field_map json__ "lastUpdatedAt" Timestamp.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let serviceNetworkLogType =
        field_map json__ "serviceNetworkLogType"
          ServiceNetworkLogType.of_json in
      let destinationArn =
        field_map json__ "destinationArn" AccessLogDestinationArn.of_json in
      let resourceArn = field_map json__ "resourceArn" ResourceArn.of_json in
      let resourceId = field_map json__ "resourceId" ResourceId.of_json in
      let arn = field_map json__ "arn" AccessLogSubscriptionArn.of_json in
      let id = field_map json__ "id" AccessLogSubscriptionId.of_json in
      make ?lastUpdatedAt ?createdAt ?serviceNetworkLogType ?destinationArn
        ?resourceArn ?resourceId ?arn ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Summary information about an access log subscription."]
module RuleUpdateFailure =
  struct
    type nonrec t =
      {
      ruleIdentifier: RuleIdentifier.t option
        [@ocaml.doc "The ID or ARN of the rule."];
      failureCode: FailureCode.t option [@ocaml.doc "The failure code."];
      failureMessage: FailureMessage.t option
        [@ocaml.doc "The failure message."]}
    let make ?ruleIdentifier =
      fun ?failureCode ->
        fun ?failureMessage ->
          fun () -> { ruleIdentifier; failureCode; failureMessage }
    let to_value x =
      structure_to_value
        [("ruleIdentifier",
           (Option.map x.ruleIdentifier ~f:RuleIdentifier.to_value));
        ("failureCode", (Option.map x.failureCode ~f:FailureCode.to_value));
        ("failureMessage",
          (Option.map x.failureMessage ~f:FailureMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      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 ruleIdentifier =
        (Option.map ~f:RuleIdentifier.of_xml)
          (Xml.child xml_arg0 "ruleIdentifier") in
      make ?failureMessage ?failureCode ?ruleIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let failureMessage =
        field_map json__ "failureMessage" FailureMessage.of_json in
      let failureCode = field_map json__ "failureCode" FailureCode.of_json in
      let ruleIdentifier =
        field_map json__ "ruleIdentifier" RuleIdentifier.of_json in
      make ?failureMessage ?failureCode ?ruleIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a rule update that failed."]
module RuleUpdateSuccess =
  struct
    type nonrec t =
      {
      arn: RuleArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the listener."];
      id: RuleId.t option [@ocaml.doc "The ID of the listener."];
      name: RuleName.t option [@ocaml.doc "The name of the listener."];
      isDefault: Boolean.t option
        [@ocaml.doc "Indicates whether this is the default rule."];
      match_: RuleMatch.t option [@ocaml.doc "The rule match."];
      priority: RulePriority.t option [@ocaml.doc "The rule priority."];
      action: RuleAction.t option [@ocaml.doc "The action for the rule."]}
    let make ?arn =
      fun ?id ->
        fun ?name ->
          fun ?isDefault ->
            fun ?match_ ->
              fun ?priority ->
                fun ?action ->
                  fun () ->
                    { arn; id; name; isDefault; match_; priority; action }
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:RuleArn.to_value));
        ("id", (Option.map x.id ~f:RuleId.to_value));
        ("name", (Option.map x.name ~f:RuleName.to_value));
        ("isDefault", (Option.map x.isDefault ~f:Boolean.to_value));
        ("match", (Option.map x.match_ ~f:RuleMatch.to_value));
        ("priority", (Option.map x.priority ~f:RulePriority.to_value));
        ("action", (Option.map x.action ~f:RuleAction.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let action =
        (Option.map ~f:RuleAction.of_xml) (Xml.child xml_arg0 "action") in
      let priority =
        (Option.map ~f:RulePriority.of_xml) (Xml.child xml_arg0 "priority") in
      let match_ =
        (Option.map ~f:RuleMatch.of_xml) (Xml.child xml_arg0 "match") in
      let isDefault =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "isDefault") in
      let name = (Option.map ~f:RuleName.of_xml) (Xml.child xml_arg0 "name") in
      let id = (Option.map ~f:RuleId.of_xml) (Xml.child xml_arg0 "id") in
      let arn = (Option.map ~f:RuleArn.of_xml) (Xml.child xml_arg0 "arn") in
      make ?action ?priority ?match_ ?isDefault ?name ?id ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let action = field_map json__ "action" RuleAction.of_json in
      let priority = field_map json__ "priority" RulePriority.of_json in
      let match_ = field_map json__ "match" RuleMatch.of_json in
      let isDefault = field_map json__ "isDefault" Boolean.of_json in
      let name = field_map json__ "name" RuleName.of_json in
      let id = field_map json__ "id" RuleId.of_json in
      let arn = field_map json__ "arn" RuleArn.of_json in
      make ?action ?priority ?match_ ?isDefault ?name ?id ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a successful rule update."]
module RuleUpdate =
  struct
    type nonrec t =
      {
      ruleIdentifier: RuleIdentifier.t
        [@ocaml.doc "The ID or ARN of the rule."];
      match_: RuleMatch.t option [@ocaml.doc "The rule match."];
      priority: RulePriority.t option
        [@ocaml.doc
          "The rule priority. A listener can't have multiple rules with the same priority."];
      action: RuleAction.t option [@ocaml.doc "The rule action."]}
    let context_ = "RuleUpdate"
    let make ?match_ =
      fun ?priority ->
        fun ?action ->
          fun ~ruleIdentifier ->
            fun () -> { match_; priority; action; ruleIdentifier }
    let to_value x =
      structure_to_value
        [("ruleIdentifier",
           (Some (RuleIdentifier.to_value x.ruleIdentifier)));
        ("match", (Option.map x.match_ ~f:RuleMatch.to_value));
        ("priority", (Option.map x.priority ~f:RulePriority.to_value));
        ("action", (Option.map x.action ~f:RuleAction.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let action =
        (Option.map ~f:RuleAction.of_xml) (Xml.child xml_arg0 "action") in
      let priority =
        (Option.map ~f:RulePriority.of_xml) (Xml.child xml_arg0 "priority") in
      let match_ =
        (Option.map ~f:RuleMatch.of_xml) (Xml.child xml_arg0 "match") in
      let ruleIdentifier =
        RuleIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ruleIdentifier") in
      make ?action ?priority ?match_ ~ruleIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let action = field_map json__ "action" RuleAction.of_json in
      let priority = field_map json__ "priority" RulePriority.of_json in
      let match_ = field_map json__ "match" RuleMatch.of_json in
      let ruleIdentifier =
        field_map_exn json__ "ruleIdentifier" RuleIdentifier.of_json in
      make ?action ?priority ?match_ ~ruleIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a rule update."]
module AccessDeniedException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The user does not have sufficient access to perform this action."]
module ConflictException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      resourceId: String_.t option [@ocaml.doc "The resource ID."];
      resourceType: String_.t option [@ocaml.doc "The resource type."]}
    let make ?message =
      fun ?resourceId ->
        fun ?resourceType -> fun () -> { message; resourceId; resourceType }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("resourceId", (Option.map x.resourceId ~f:String_.to_value));
        ("resourceType", (Option.map x.resourceType ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceType") in
      let resourceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceId") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?resourceType ?resourceId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceType = field_map json__ "resourceType" String_.of_json in
      let resourceId = field_map json__ "resourceId" String_.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?resourceType ?resourceId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request conflicts with the current state of the resource. Updating or deleting a resource can cause an inconsistent state."]
module InternalServerException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      retryAfterSeconds: Integer.t option
        [@ocaml.doc "The number of seconds to wait before retrying."]}
    let make ?message =
      fun ?retryAfterSeconds -> fun () -> { message; retryAfterSeconds }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("Retry-After", (Option.map x.retryAfterSeconds ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let retryAfterSeconds =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "Retry-After") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?retryAfterSeconds ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let retryAfterSeconds =
        field_map json__ "retryAfterSeconds" Integer.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?retryAfterSeconds ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An unexpected error occurred while processing the request."]
module ResourceNotFoundException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      resourceId: String_.t option [@ocaml.doc "The resource ID."];
      resourceType: String_.t option [@ocaml.doc "The resource type."]}
    let make ?message =
      fun ?resourceId ->
        fun ?resourceType -> fun () -> { message; resourceId; resourceType }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("resourceId", (Option.map x.resourceId ~f:String_.to_value));
        ("resourceType", (Option.map x.resourceType ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceType") in
      let resourceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceId") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?resourceType ?resourceId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceType = field_map json__ "resourceType" String_.of_json in
      let resourceId = field_map json__ "resourceId" String_.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?resourceType ?resourceId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request references a resource that does not exist."]
module ServiceQuotaExceededException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      resourceId: String_.t option [@ocaml.doc "The resource ID."];
      resourceType: String_.t option [@ocaml.doc "The resource type."];
      serviceCode: String_.t option [@ocaml.doc "The service code."];
      quotaCode: String_.t option
        [@ocaml.doc "The ID of the service quota that was exceeded."]}
    let make ?message =
      fun ?resourceId ->
        fun ?resourceType ->
          fun ?serviceCode ->
            fun ?quotaCode ->
              fun () ->
                { message; resourceId; resourceType; serviceCode; quotaCode }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("resourceId", (Option.map x.resourceId ~f:String_.to_value));
        ("resourceType", (Option.map x.resourceType ~f:String_.to_value));
        ("serviceCode", (Option.map x.serviceCode ~f:String_.to_value));
        ("quotaCode", (Option.map x.quotaCode ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let quotaCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "quotaCode") in
      let serviceCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "serviceCode") in
      let resourceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceType") in
      let resourceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceId") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?quotaCode ?serviceCode ?resourceType ?resourceId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let quotaCode = field_map json__ "quotaCode" String_.of_json in
      let serviceCode = field_map json__ "serviceCode" String_.of_json in
      let resourceType = field_map json__ "resourceType" String_.of_json in
      let resourceId = field_map json__ "resourceId" String_.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?quotaCode ?serviceCode ?resourceType ?resourceId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request would cause a service quota to be exceeded."]
module TargetGroupConfig =
  struct
    type nonrec t =
      {
      port: Port.t option
        [@ocaml.doc
          "The port on which the targets are listening. For HTTP, the default is 80. For HTTPS, the default is 443. Not supported if the target group type is LAMBDA."];
      protocol: TargetGroupProtocol.t option
        [@ocaml.doc
          "The protocol to use for routing traffic to the targets. The default is the protocol of the target group. Not supported if the target group type is LAMBDA."];
      protocolVersion: TargetGroupProtocolVersion.t option
        [@ocaml.doc
          "The protocol version. The default is HTTP1. Not supported if the target group type is LAMBDA."];
      ipAddressType: IpAddressType.t option
        [@ocaml.doc
          "The type of IP address used for the target group. Supported only if the target group type is IP. The default is IPV4."];
      vpcIdentifier: VpcId.t option
        [@ocaml.doc
          "The ID of the VPC. Not supported if the target group type is LAMBDA."];
      healthCheck: HealthCheckConfig.t option
        [@ocaml.doc
          "The health check configuration. Not supported if the target group type is LAMBDA or ALB."];
      lambdaEventStructureVersion: LambdaEventStructureVersion.t option
        [@ocaml.doc
          "The version of the event structure that your Lambda function receives. Supported only if the target group type is LAMBDA. The default is V1."]}
    let make ?port =
      fun ?protocol ->
        fun ?protocolVersion ->
          fun ?ipAddressType ->
            fun ?vpcIdentifier ->
              fun ?healthCheck ->
                fun ?lambdaEventStructureVersion ->
                  fun () ->
                    {
                      port;
                      protocol;
                      protocolVersion;
                      ipAddressType;
                      vpcIdentifier;
                      healthCheck;
                      lambdaEventStructureVersion
                    }
    let to_value x =
      structure_to_value
        [("port", (Option.map x.port ~f:Port.to_value));
        ("protocol", (Option.map x.protocol ~f:TargetGroupProtocol.to_value));
        ("protocolVersion",
          (Option.map x.protocolVersion
             ~f:TargetGroupProtocolVersion.to_value));
        ("ipAddressType",
          (Option.map x.ipAddressType ~f:IpAddressType.to_value));
        ("vpcIdentifier", (Option.map x.vpcIdentifier ~f:VpcId.to_value));
        ("healthCheck",
          (Option.map x.healthCheck ~f:HealthCheckConfig.to_value));
        ("lambdaEventStructureVersion",
          (Option.map x.lambdaEventStructureVersion
             ~f:LambdaEventStructureVersion.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lambdaEventStructureVersion =
        (Option.map ~f:LambdaEventStructureVersion.of_xml)
          (Xml.child xml_arg0 "lambdaEventStructureVersion") in
      let healthCheck =
        (Option.map ~f:HealthCheckConfig.of_xml)
          (Xml.child xml_arg0 "healthCheck") in
      let vpcIdentifier =
        (Option.map ~f:VpcId.of_xml) (Xml.child xml_arg0 "vpcIdentifier") in
      let ipAddressType =
        (Option.map ~f:IpAddressType.of_xml)
          (Xml.child xml_arg0 "ipAddressType") in
      let protocolVersion =
        (Option.map ~f:TargetGroupProtocolVersion.of_xml)
          (Xml.child xml_arg0 "protocolVersion") in
      let protocol =
        (Option.map ~f:TargetGroupProtocol.of_xml)
          (Xml.child xml_arg0 "protocol") in
      let port = (Option.map ~f:Port.of_xml) (Xml.child xml_arg0 "port") in
      make ?lambdaEventStructureVersion ?healthCheck ?vpcIdentifier
        ?ipAddressType ?protocolVersion ?protocol ?port ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lambdaEventStructureVersion =
        field_map json__ "lambdaEventStructureVersion"
          LambdaEventStructureVersion.of_json in
      let healthCheck =
        field_map json__ "healthCheck" HealthCheckConfig.of_json in
      let vpcIdentifier = field_map json__ "vpcIdentifier" VpcId.of_json in
      let ipAddressType =
        field_map json__ "ipAddressType" IpAddressType.of_json in
      let protocolVersion =
        field_map json__ "protocolVersion" TargetGroupProtocolVersion.of_json in
      let protocol = field_map json__ "protocol" TargetGroupProtocol.of_json in
      let port = field_map json__ "port" Port.of_json in
      make ?lambdaEventStructureVersion ?healthCheck ?vpcIdentifier
        ?ipAddressType ?protocolVersion ?protocol ?port ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the configuration of a target group. For more information, see Target groups in the Amazon VPC Lattice User Guide."]
module ThrottlingException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      serviceCode: String_.t option [@ocaml.doc "The service code."];
      quotaCode: String_.t option
        [@ocaml.doc "The ID of the service quota that was exceeded."];
      retryAfterSeconds: Integer.t option
        [@ocaml.doc "The number of seconds to wait before retrying."]}
    let make ?message =
      fun ?serviceCode ->
        fun ?quotaCode ->
          fun ?retryAfterSeconds ->
            fun () -> { message; serviceCode; quotaCode; retryAfterSeconds }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("serviceCode", (Option.map x.serviceCode ~f:String_.to_value));
        ("quotaCode", (Option.map x.quotaCode ~f:String_.to_value));
        ("Retry-After", (Option.map x.retryAfterSeconds ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let retryAfterSeconds =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "Retry-After") in
      let quotaCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "quotaCode") in
      let serviceCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "serviceCode") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?retryAfterSeconds ?quotaCode ?serviceCode ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let retryAfterSeconds =
        field_map json__ "retryAfterSeconds" Integer.of_json in
      let quotaCode = field_map json__ "quotaCode" String_.of_json in
      let serviceCode = field_map json__ "serviceCode" String_.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?retryAfterSeconds ?quotaCode ?serviceCode ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The limit on the number of requests per second was exceeded."]
module ValidationException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      reason: ValidationExceptionReason.t option [@ocaml.doc "The reason."];
      fieldList: ValidationExceptionFieldList.t option
        [@ocaml.doc "The fields that failed validation."]}
    let make ?message =
      fun ?reason ->
        fun ?fieldList -> fun () -> { message; reason; fieldList }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("reason",
          (Option.map x.reason ~f:ValidationExceptionReason.to_value));
        ("fieldList",
          (Option.map x.fieldList ~f:ValidationExceptionFieldList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fieldList =
        (Option.map ~f:ValidationExceptionFieldList.of_xml)
          (Xml.child xml_arg0 "fieldList") in
      let reason =
        (Option.map ~f:ValidationExceptionReason.of_xml)
          (Xml.child xml_arg0 "reason") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?fieldList ?reason ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fieldList =
        field_map json__ "fieldList" ValidationExceptionFieldList.of_json in
      let reason =
        field_map json__ "reason" ValidationExceptionReason.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?fieldList ?reason ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The input does not satisfy the constraints specified by an Amazon Web Services service."]
module AuthType =
  struct
    type nonrec t =
      | NONE 
      | AWS_IAM 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | NONE -> "NONE" | AWS_IAM -> "AWS_IAM" | Non_static_id s -> s
    let of_string =
      function | "NONE" -> NONE | "AWS_IAM" -> AWS_IAM | 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 AuthType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AuthType" j)
    let to_json = simple_to_json to_value
  end
module CertificateArn =
  struct
    type nonrec t = string
    let context_ = "CertificateArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"(arn(:[a-z0-9]+([.-][a-z0-9]+)*){2}(:([a-z0-9]+([.-][a-z0-9]+)*)?){2}:certificate/[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:"CertificateArn" j
    let to_json = simple_to_json to_value
  end
module ServiceIdentifier =
  struct
    type nonrec t = string
    let context_ = "ServiceIdentifier"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:17) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"((svc-[0-9a-z]{17})|(arn:[a-z0-9\\-]+:vpc-lattice:[a-zA-Z0-9\\-]+:\\d{12}:service/svc-[0-9a-z]{17}))")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ServiceIdentifier" j
    let to_json = simple_to_json to_value
  end
module ServiceNetworkVpcAssociationIdentifier =
  struct
    type nonrec t = string
    let context_ = "ServiceNetworkVpcAssociationIdentifier"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:17) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"((snva-[0-9a-z]{17})|(arn:[a-z0-9\\-]+:vpc-lattice:[a-zA-Z0-9\\-]+:\\d{12}:servicenetworkvpcassociation/snva-[0-9a-z]{17}))")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"ServiceNetworkVpcAssociationIdentifier" j
    let to_json = simple_to_json to_value
  end
module UpdateServiceNetworkVpcAssociationRequestSecurityGroupIdsList =
  struct
    type nonrec t = SecurityGroupId.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:5) >>= (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:SecurityGroupId.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:SecurityGroupId.of_xml)
    let of_json j =
      list_of_json
        ~kind:"UpdateServiceNetworkVpcAssociationRequestSecurityGroupIdsList"
        ~of_json:SecurityGroupId.of_json j
    let to_json v = composed_to_json to_value v
  end
module ServiceNetworkIdentifier =
  struct
    type nonrec t = string
    let context_ = "ServiceNetworkIdentifier"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:3) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"((sn-[0-9a-z]{17})|(arn:[a-z0-9\\-]+:vpc-lattice:[a-zA-Z0-9\\-]+:\\d{12}:servicenetwork/sn-[0-9a-z]{17}))")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ServiceNetworkIdentifier" j
    let to_json = simple_to_json to_value
  end
module ListenerIdentifier =
  struct
    type nonrec t = string
    let context_ = "ListenerIdentifier"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:20) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"((listener-[0-9a-z]{17})|(^arn:[a-z0-9\\-]+:vpc-lattice:[a-zA-Z0-9\\-]+:\\d{12}:service/svc-[0-9a-z]{17}/listener/listener-[0-9a-z]{17}$))")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ListenerIdentifier" j
    let to_json = simple_to_json to_value
  end
module ResourceGatewayIdentifier =
  struct
    type nonrec t = string
    let context_ = "ResourceGatewayIdentifier"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:17) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"((rgw-[0-9a-z]{17})|(arn:[a-z0-9\\-]+:vpc-lattice:[a-zA-Z0-9\\-]+:\\d{12}:resourcegateway/rgw-[0-9a-z]{17}))")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ResourceGatewayIdentifier" j
    let to_json = simple_to_json to_value
  end
module UpdateResourceGatewayRequestSecurityGroupIdsList =
  struct
    type nonrec t = SecurityGroupId.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:5) >>= (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:SecurityGroupId.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:SecurityGroupId.of_xml)
    let of_json j =
      list_of_json ~kind:"UpdateResourceGatewayRequestSecurityGroupIdsList"
        ~of_json:SecurityGroupId.of_json j
    let to_json v = composed_to_json to_value v
  end
module PortRangeList =
  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:"PortRangeList" ~of_json:PortRange.of_json j
    let to_json v = composed_to_json to_value v
  end
module ProtocolType =
  struct
    type nonrec t =
      | TCP 
      | Non_static_id of string 
    let make i = i
    let to_string = function | TCP -> "TCP" | Non_static_id s -> s
    let of_string = function | "TCP" -> TCP | 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 ProtocolType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ProtocolType" j)
    let to_json = simple_to_json to_value
  end
module ResourceConfigurationDefinition =
  struct
    type nonrec t =
      {
      dnsResource: DnsResource.t option
        [@ocaml.doc "The DNS name of the resource."];
      ipResource: IpResource.t option [@ocaml.doc "The IP resource."];
      arnResource: ArnResource.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the resource."]}
    let make ?dnsResource =
      fun ?ipResource ->
        fun ?arnResource ->
          fun () -> { dnsResource; ipResource; arnResource }
    let to_value x =
      structure_to_value
        [("dnsResource", (Option.map x.dnsResource ~f:DnsResource.to_value));
        ("ipResource", (Option.map x.ipResource ~f:IpResource.to_value));
        ("arnResource", (Option.map x.arnResource ~f:ArnResource.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arnResource =
        (Option.map ~f:ArnResource.of_xml) (Xml.child xml_arg0 "arnResource") in
      let ipResource =
        (Option.map ~f:IpResource.of_xml) (Xml.child xml_arg0 "ipResource") in
      let dnsResource =
        (Option.map ~f:DnsResource.of_xml) (Xml.child xml_arg0 "dnsResource") in
      make ?arnResource ?ipResource ?dnsResource ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arnResource = field_map json__ "arnResource" ArnResource.of_json in
      let ipResource = field_map json__ "ipResource" IpResource.of_json in
      let dnsResource = field_map json__ "dnsResource" DnsResource.of_json in
      make ?arnResource ?ipResource ?dnsResource ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a resource configuration."]
module ResourceConfigurationIdentifier =
  struct
    type nonrec t = string
    let context_ = "ResourceConfigurationIdentifier"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:20) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"((rcfg-[0-9a-z]{17})|(arn:[a-z0-9\\-]+:vpc-lattice:[a-zA-Z0-9\\-]+:\\d{12}:resourceconfiguration/rcfg-[0-9a-z]{17}))")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ResourceConfigurationIdentifier" j
    let to_json = simple_to_json to_value
  end
module AccessLogSubscriptionIdentifier =
  struct
    type nonrec t = string
    let context_ = "AccessLogSubscriptionIdentifier"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:17) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"((als-[0-9a-z]{17})|(arn:[a-z0-9\\-]+:vpc-lattice:[a-zA-Z0-9\\-]+:\\d{12}:accesslogsubscription/als-[0-9a-z]{17}))")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AccessLogSubscriptionIdentifier" j
    let to_json = simple_to_json to_value
  end
module Arn =
  struct
    type nonrec t = string
    let context_ = "Arn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:1224) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:[a-z0-9][-.a-z0-9]{0,62}:vpc-lattice:([a-z0-9][-.a-z0-9]{0,62})?:\\d{12}?:[^/].{0,1023}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Arn" j
    let to_json = simple_to_json to_value
  end
module TagKeys =
  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: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: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:"TagKeys" ~of_json:TagKey.of_json j
    let to_json v = composed_to_json to_value v
  end
module ClientToken =
  struct
    type nonrec t = string
    let context_ = "ClientToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (fun () -> check_pattern i ~pattern:".*[!-~]+.*")));
        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:"ClientToken" j
    let to_json = simple_to_json to_value
  end
module TargetFailureList =
  struct
    type nonrec t = TargetFailure.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:TargetFailure.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:TargetFailure.of_xml)
    let of_json j =
      list_of_json ~kind:"TargetFailureList" ~of_json:TargetFailure.of_json j
    let to_json v = composed_to_json to_value v
  end
module TargetList =
  struct
    type nonrec t = Target.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:Target.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:Target.of_xml)
    let of_json j = list_of_json ~kind:"TargetList" ~of_json:Target.of_json j
    let to_json v = composed_to_json to_value v
  end
module RegisterTargetsRequestTargetsList =
  struct
    type nonrec t = Target.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100) >>=
             (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:Target.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:Target.of_xml)
    let of_json j =
      list_of_json ~kind:"RegisterTargetsRequestTargetsList"
        ~of_json:Target.of_json j
    let to_json v = composed_to_json to_value v
  end
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:10000) >>=
                  (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 AuthPolicyState =
  struct
    type nonrec t =
      | Active 
      | Inactive 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Active -> "Active"
      | Inactive -> "Inactive"
      | Non_static_id s -> s
    let of_string =
      function
      | "Active" -> Active
      | "Inactive" -> Inactive
      | 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 AuthPolicyState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AuthPolicyState" j)
    let to_json = simple_to_json to_value
  end
module AuthPolicyString =
  struct
    type nonrec t = string
    let context_ = "AuthPolicyString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:36864) >>=
             (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:"AuthPolicyString" j
    let to_json = simple_to_json to_value
  end
module ResourceIdentifier =
  struct
    type nonrec t = string
    let context_ = "ResourceIdentifier"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:17) >>=
             (fun () ->
                (check_string_max i ~max:200) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"((((sn)|(svc)|(rcfg))-[0-9a-z]{17})|(arn(:[a-z0-9]+([.-][a-z0-9]+)*){2}(:([a-z0-9]+([.-][a-z0-9]+)*)?){2}:((servicenetwork/sn)|(resourceconfiguration/rcfg)|(service/svc))-[0-9a-z]{17}))")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ResourceIdentifier" j
    let to_json = simple_to_json to_value
  end
module NextToken =
  struct
    type nonrec t = string
    let context_ = "NextToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2048) >>=
             (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:"NextToken" j
    let to_json = simple_to_json to_value
  end
module TargetSummaryList =
  struct
    type nonrec t = TargetSummary.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:TargetSummary.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:TargetSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"TargetSummaryList" ~of_json:TargetSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListTargetsRequestTargetsList =
  struct
    type nonrec t = Target.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:20) >>= (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:Target.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:Target.of_xml)
    let of_json j =
      list_of_json ~kind:"ListTargetsRequestTargetsList"
        ~of_json:Target.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:100) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for MaxResults" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module TargetGroupList =
  struct
    type nonrec t = TargetGroupSummary.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:TargetGroupSummary.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:TargetGroupSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"TargetGroupList"
        ~of_json:TargetGroupSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ServiceList =
  struct
    type nonrec t = ServiceSummary.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:ServiceSummary.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:ServiceSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ServiceList" ~of_json:ServiceSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ServiceNetworkList =
  struct
    type nonrec t = ServiceNetworkSummary.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:ServiceNetworkSummary.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:ServiceNetworkSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ServiceNetworkList"
        ~of_json:ServiceNetworkSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ServiceNetworkVpcEndpointAssociationList =
  struct
    type nonrec t = ServiceNetworkEndpointAssociation.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:ServiceNetworkEndpointAssociation.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:ServiceNetworkEndpointAssociation.of_xml)
    let of_json j =
      list_of_json ~kind:"ServiceNetworkVpcEndpointAssociationList"
        ~of_json:ServiceNetworkEndpointAssociation.of_json j
    let to_json v = composed_to_json to_value v
  end
module ServiceNetworkVpcAssociationList =
  struct
    type nonrec t = ServiceNetworkVpcAssociationSummary.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:ServiceNetworkVpcAssociationSummary.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:ServiceNetworkVpcAssociationSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ServiceNetworkVpcAssociationList"
        ~of_json:ServiceNetworkVpcAssociationSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ServiceNetworkServiceAssociationList =
  struct
    type nonrec t = ServiceNetworkServiceAssociationSummary.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:ServiceNetworkServiceAssociationSummary.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:ServiceNetworkServiceAssociationSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ServiceNetworkServiceAssociationList"
        ~of_json:ServiceNetworkServiceAssociationSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ServiceNetworkResourceAssociationList =
  struct
    type nonrec t = ServiceNetworkResourceAssociationSummary.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:ServiceNetworkResourceAssociationSummary.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:ServiceNetworkResourceAssociationSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ServiceNetworkResourceAssociationList"
        ~of_json:ServiceNetworkResourceAssociationSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module RuleSummaryList =
  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:"RuleSummaryList" ~of_json:RuleSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ResourceGatewayList =
  struct
    type nonrec t = ResourceGatewaySummary.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:ResourceGatewaySummary.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:ResourceGatewaySummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ResourceGatewayList"
        ~of_json:ResourceGatewaySummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ResourceEndpointAssociationList =
  struct
    type nonrec t = ResourceEndpointAssociationSummary.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:ResourceEndpointAssociationSummary.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:ResourceEndpointAssociationSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ResourceEndpointAssociationList"
        ~of_json:ResourceEndpointAssociationSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ResourceEndpointAssociationIdentifier =
  struct
    type nonrec t = string
    let context_ = "ResourceEndpointAssociationIdentifier"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:21) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"((rea-[0-9a-f]{17})|(arn:[a-z0-9\\-]+:vpc-lattice:[a-zA-Z0-9\\-]+:\\d{12}:resourceendpointassociation/rea-[0-9a-f]{17}))")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"ResourceEndpointAssociationIdentifier" j
    let to_json = simple_to_json to_value
  end
module ResourceConfigurationSummaryList =
  struct
    type nonrec t = ResourceConfigurationSummary.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:ResourceConfigurationSummary.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:ResourceConfigurationSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ResourceConfigurationSummaryList"
        ~of_json:ResourceConfigurationSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module DomainVerificationIdentifier =
  struct
    type nonrec t = string
    let context_ = "DomainVerificationIdentifier"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:20) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"((dv-[0-9a-z]{17})|(arn:[a-z0-9\\-]+:vpc-lattice:[a-zA-Z0-9\\-]+:\\d{12}:domainverification/dv-[a-fA-F0-9]{17}))")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DomainVerificationIdentifier" j
    let to_json = simple_to_json to_value
  end
module ListenerSummaryList =
  struct
    type nonrec t = ListenerSummary.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:ListenerSummary.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:ListenerSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ListenerSummaryList"
        ~of_json:ListenerSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module DomainVerificationList =
  struct
    type nonrec t = DomainVerificationSummary.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:DomainVerificationSummary.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:DomainVerificationSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"DomainVerificationList"
        ~of_json:DomainVerificationSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module AccessLogSubscriptionList =
  struct
    type nonrec t = AccessLogSubscriptionSummary.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:AccessLogSubscriptionSummary.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:AccessLogSubscriptionSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"AccessLogSubscriptionList"
        ~of_json:AccessLogSubscriptionSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module SharingConfig =
  struct
    type nonrec t =
      {
      enabled: Boolean.t option
        [@ocaml.doc
          "Specifies if the service network is enabled for sharing."]}
    let make ?enabled = fun () -> { enabled }
    let to_value x =
      structure_to_value
        [("enabled", (Option.map x.enabled ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let enabled =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "enabled") in
      make ?enabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let enabled = field_map json__ "enabled" Boolean.of_json in
      make ?enabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies if the service network should be enabled for sharing."]
module ServiceNetworkResourceAssociationIdentifier =
  struct
    type nonrec t = string
    let context_ = "ServiceNetworkResourceAssociationIdentifier"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:22) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"((snra-[0-9a-z]{17})|(arn:[a-z0-9\\-]+:vpc-lattice:[a-zA-Z0-9\\-]+:\\d{12}:servicenetworkresourceassociation/snra-[0-9a-f]{17}))")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"ServiceNetworkResourceAssociationIdentifier" j
    let to_json = simple_to_json to_value
  end
module DeregisterTargetsRequestTargetsList =
  struct
    type nonrec t = Target.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100) >>=
             (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:Target.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:Target.of_xml)
    let of_json j =
      list_of_json ~kind:"DeregisterTargetsRequestTargetsList"
        ~of_json:Target.of_json j
    let to_json v = composed_to_json to_value v
  end
module CreateServiceNetworkVpcAssociationRequestSecurityGroupIdsList =
  struct
    type nonrec t = SecurityGroupId.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:5) >>= (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:SecurityGroupId.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:SecurityGroupId.of_xml)
    let of_json j =
      list_of_json
        ~kind:"CreateServiceNetworkVpcAssociationRequestSecurityGroupIdsList"
        ~of_json:SecurityGroupId.of_json j
    let to_json v = composed_to_json to_value v
  end
module CreateResourceGatewayRequestSecurityGroupIdsList =
  struct
    type nonrec t = SecurityGroupId.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:5) >>= (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:SecurityGroupId.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:SecurityGroupId.of_xml)
    let of_json j =
      list_of_json ~kind:"CreateResourceGatewayRequestSecurityGroupIdsList"
        ~of_json:SecurityGroupId.of_json j
    let to_json v = composed_to_json to_value v
  end
module RuleUpdateFailureList =
  struct
    type nonrec t = RuleUpdateFailure.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:RuleUpdateFailure.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:RuleUpdateFailure.of_xml)
    let of_json j =
      list_of_json ~kind:"RuleUpdateFailureList"
        ~of_json:RuleUpdateFailure.of_json j
    let to_json v = composed_to_json to_value v
  end
module RuleUpdateSuccessList =
  struct
    type nonrec t = RuleUpdateSuccess.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:RuleUpdateSuccess.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:RuleUpdateSuccess.of_xml)
    let of_json j =
      list_of_json ~kind:"RuleUpdateSuccessList"
        ~of_json:RuleUpdateSuccess.of_json j
    let to_json v = composed_to_json to_value v
  end
module RuleUpdateList =
  struct
    type nonrec t = RuleUpdate.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:10) >>= (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:RuleUpdate.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:RuleUpdate.of_xml)
    let of_json j =
      list_of_json ~kind:"RuleUpdateList" ~of_json:RuleUpdate.of_json j
    let to_json v = composed_to_json to_value v
  end
module UpdateTargetGroupResponse =
  struct
    type nonrec t =
      {
      id: TargetGroupId.t option [@ocaml.doc "The ID of the target group."];
      arn: TargetGroupArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the target group."];
      name: TargetGroupName.t option
        [@ocaml.doc "The name of the target group."];
      type_: TargetGroupType.t option [@ocaml.doc "The target group type."];
      config: TargetGroupConfig.t option
        [@ocaml.doc "The target group configuration."];
      status: TargetGroupStatus.t option [@ocaml.doc "The status."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?id =
      fun ?arn ->
        fun ?name ->
          fun ?type_ ->
            fun ?config ->
              fun ?status ->
                fun () -> { id; arn; name; type_; config; status }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:TargetGroupId.to_value));
        ("arn", (Option.map x.arn ~f:TargetGroupArn.to_value));
        ("name", (Option.map x.name ~f:TargetGroupName.to_value));
        ("type", (Option.map x.type_ ~f:TargetGroupType.to_value));
        ("config", (Option.map x.config ~f:TargetGroupConfig.to_value));
        ("status", (Option.map x.status ~f:TargetGroupStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:TargetGroupStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let config =
        (Option.map ~f:TargetGroupConfig.of_xml)
          (Xml.child xml_arg0 "config") in
      let type_ =
        (Option.map ~f:TargetGroupType.of_xml) (Xml.child xml_arg0 "type") in
      let name =
        (Option.map ~f:TargetGroupName.of_xml) (Xml.child xml_arg0 "name") in
      let arn =
        (Option.map ~f:TargetGroupArn.of_xml) (Xml.child xml_arg0 "arn") in
      let id = (Option.map ~f:TargetGroupId.of_xml) (Xml.child xml_arg0 "id") in
      make ?status ?config ?type_ ?name ?arn ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" TargetGroupStatus.of_json in
      let config = field_map json__ "config" TargetGroupConfig.of_json in
      let type_ = field_map json__ "type" TargetGroupType.of_json in
      let name = field_map json__ "name" TargetGroupName.of_json in
      let arn = field_map json__ "arn" TargetGroupArn.of_json in
      let id = field_map json__ "id" TargetGroupId.of_json in
      make ?status ?config ?type_ ?name ?arn ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the specified target group."]
module UpdateTargetGroupRequest =
  struct
    type nonrec t =
      {
      targetGroupIdentifier: TargetGroupIdentifier.t
        [@ocaml.doc "The ID or ARN of the target group."];
      healthCheck: HealthCheckConfig.t
        [@ocaml.doc "The health check configuration."]}
    let context_ = "UpdateTargetGroupRequest"
    let make ~targetGroupIdentifier =
      fun ~healthCheck -> fun () -> { targetGroupIdentifier; healthCheck }
    let to_value x =
      structure_to_value
        [("targetGroupIdentifier",
           (Some (TargetGroupIdentifier.to_value x.targetGroupIdentifier)));
        ("healthCheck", (Some (HealthCheckConfig.to_value x.healthCheck)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let healthCheck =
        HealthCheckConfig.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "healthCheck") in
      let targetGroupIdentifier =
        TargetGroupIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "targetGroupIdentifier") in
      make ~healthCheck ~targetGroupIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let healthCheck =
        field_map_exn json__ "healthCheck" HealthCheckConfig.of_json in
      let targetGroupIdentifier =
        field_map_exn json__ "targetGroupIdentifier"
          TargetGroupIdentifier.of_json in
      make ~healthCheck ~targetGroupIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the specified target group."]
module UpdateServiceResponse =
  struct
    type nonrec t =
      {
      id: ServiceId.t option [@ocaml.doc "The ID of the service."];
      arn: ServiceArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the service."];
      name: ServiceName.t option [@ocaml.doc "The name of the service."];
      customDomainName: ServiceCustomDomainName.t option
        [@ocaml.doc "The custom domain name of the service."];
      certificateArn: CertificateArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the certificate."];
      authType: AuthType.t option [@ocaml.doc "The type of IAM policy."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?id =
      fun ?arn ->
        fun ?name ->
          fun ?customDomainName ->
            fun ?certificateArn ->
              fun ?authType ->
                fun () ->
                  { id; arn; name; customDomainName; certificateArn; authType
                  }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:ServiceId.to_value));
        ("arn", (Option.map x.arn ~f:ServiceArn.to_value));
        ("name", (Option.map x.name ~f:ServiceName.to_value));
        ("customDomainName",
          (Option.map x.customDomainName ~f:ServiceCustomDomainName.to_value));
        ("certificateArn",
          (Option.map x.certificateArn ~f:CertificateArn.to_value));
        ("authType", (Option.map x.authType ~f:AuthType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let authType =
        (Option.map ~f:AuthType.of_xml) (Xml.child xml_arg0 "authType") in
      let certificateArn =
        (Option.map ~f:CertificateArn.of_xml)
          (Xml.child xml_arg0 "certificateArn") in
      let customDomainName =
        (Option.map ~f:ServiceCustomDomainName.of_xml)
          (Xml.child xml_arg0 "customDomainName") in
      let name =
        (Option.map ~f:ServiceName.of_xml) (Xml.child xml_arg0 "name") in
      let arn = (Option.map ~f:ServiceArn.of_xml) (Xml.child xml_arg0 "arn") in
      let id = (Option.map ~f:ServiceId.of_xml) (Xml.child xml_arg0 "id") in
      make ?authType ?certificateArn ?customDomainName ?name ?arn ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let authType = field_map json__ "authType" AuthType.of_json in
      let certificateArn =
        field_map json__ "certificateArn" CertificateArn.of_json in
      let customDomainName =
        field_map json__ "customDomainName" ServiceCustomDomainName.of_json in
      let name = field_map json__ "name" ServiceName.of_json in
      let arn = field_map json__ "arn" ServiceArn.of_json in
      let id = field_map json__ "id" ServiceId.of_json in
      make ?authType ?certificateArn ?customDomainName ?name ?arn ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the specified service."]
module UpdateServiceRequest =
  struct
    type nonrec t =
      {
      serviceIdentifier: ServiceIdentifier.t
        [@ocaml.doc "The ID or ARN of the service."];
      certificateArn: CertificateArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the certificate."];
      authType: AuthType.t option
        [@ocaml.doc
          "The type of IAM policy. NONE: The resource does not use an IAM policy. This is the default. AWS_IAM: The resource uses an IAM policy. When this type is used, auth is enabled and an auth policy is required."]}
    let context_ = "UpdateServiceRequest"
    let make ?certificateArn =
      fun ?authType ->
        fun ~serviceIdentifier ->
          fun () -> { certificateArn; authType; serviceIdentifier }
    let to_value x =
      structure_to_value
        [("serviceIdentifier",
           (Some (ServiceIdentifier.to_value x.serviceIdentifier)));
        ("certificateArn",
          (Option.map x.certificateArn ~f:CertificateArn.to_value));
        ("authType", (Option.map x.authType ~f:AuthType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let authType =
        (Option.map ~f:AuthType.of_xml) (Xml.child xml_arg0 "authType") in
      let certificateArn =
        (Option.map ~f:CertificateArn.of_xml)
          (Xml.child xml_arg0 "certificateArn") in
      let serviceIdentifier =
        ServiceIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "serviceIdentifier") in
      make ?authType ?certificateArn ~serviceIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let authType = field_map json__ "authType" AuthType.of_json in
      let certificateArn =
        field_map json__ "certificateArn" CertificateArn.of_json in
      let serviceIdentifier =
        field_map_exn json__ "serviceIdentifier" ServiceIdentifier.of_json in
      make ?authType ?certificateArn ~serviceIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the specified service."]
module UpdateServiceNetworkVpcAssociationResponse =
  struct
    type nonrec t =
      {
      id: ServiceNetworkVpcAssociationId.t option
        [@ocaml.doc "The ID of the association."];
      arn: ServiceNetworkVpcAssociationArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the association."];
      status: ServiceNetworkVpcAssociationStatus.t option
        [@ocaml.doc
          "The status. You can retry the operation if the status is DELETE_FAILED. However, if you retry it while the status is DELETE_IN_PROGRESS, there is no change in the status."];
      createdBy: AccountId.t option
        [@ocaml.doc "The account that created the association."];
      securityGroupIds: SecurityGroupList.t option
        [@ocaml.doc "The IDs of the security groups."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?id =
      fun ?arn ->
        fun ?status ->
          fun ?createdBy ->
            fun ?securityGroupIds ->
              fun () -> { id; arn; status; createdBy; securityGroupIds }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:ServiceNetworkVpcAssociationId.to_value));
        ("arn",
          (Option.map x.arn ~f:ServiceNetworkVpcAssociationArn.to_value));
        ("status",
          (Option.map x.status ~f:ServiceNetworkVpcAssociationStatus.to_value));
        ("createdBy", (Option.map x.createdBy ~f:AccountId.to_value));
        ("securityGroupIds",
          (Option.map x.securityGroupIds ~f:SecurityGroupList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let securityGroupIds =
        (Option.map ~f:SecurityGroupList.of_xml)
          (Xml.child xml_arg0 "securityGroupIds") in
      let createdBy =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "createdBy") in
      let status =
        (Option.map ~f:ServiceNetworkVpcAssociationStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let arn =
        (Option.map ~f:ServiceNetworkVpcAssociationArn.of_xml)
          (Xml.child xml_arg0 "arn") in
      let id =
        (Option.map ~f:ServiceNetworkVpcAssociationId.of_xml)
          (Xml.child xml_arg0 "id") in
      make ?securityGroupIds ?createdBy ?status ?arn ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let securityGroupIds =
        field_map json__ "securityGroupIds" SecurityGroupList.of_json in
      let createdBy = field_map json__ "createdBy" AccountId.of_json in
      let status =
        field_map json__ "status" ServiceNetworkVpcAssociationStatus.of_json in
      let arn =
        field_map json__ "arn" ServiceNetworkVpcAssociationArn.of_json in
      let id = field_map json__ "id" ServiceNetworkVpcAssociationId.of_json in
      make ?securityGroupIds ?createdBy ?status ?arn ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the service network and VPC association. If you add a security group to the service network and VPC association, the association must continue to have at least one security group. You can add or edit security groups at any time. However, to remove all security groups, you must first delete the association and then recreate it without security groups."]
module UpdateServiceNetworkVpcAssociationRequest =
  struct
    type nonrec t =
      {
      serviceNetworkVpcAssociationIdentifier:
        ServiceNetworkVpcAssociationIdentifier.t
        [@ocaml.doc "The ID or ARN of the association."];
      securityGroupIds:
        UpdateServiceNetworkVpcAssociationRequestSecurityGroupIdsList.t
        [@ocaml.doc "The IDs of the security groups."]}
    let context_ = "UpdateServiceNetworkVpcAssociationRequest"
    let make ~serviceNetworkVpcAssociationIdentifier =
      fun ~securityGroupIds ->
        fun () ->
          { serviceNetworkVpcAssociationIdentifier; securityGroupIds }
    let to_value x =
      structure_to_value
        [("serviceNetworkVpcAssociationIdentifier",
           (Some
              (ServiceNetworkVpcAssociationIdentifier.to_value
                 x.serviceNetworkVpcAssociationIdentifier)));
        ("securityGroupIds",
          (Some
             (UpdateServiceNetworkVpcAssociationRequestSecurityGroupIdsList.to_value
                x.securityGroupIds)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let securityGroupIds =
        UpdateServiceNetworkVpcAssociationRequestSecurityGroupIdsList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "securityGroupIds") in
      let serviceNetworkVpcAssociationIdentifier =
        ServiceNetworkVpcAssociationIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "serviceNetworkVpcAssociationIdentifier") in
      make ~securityGroupIds ~serviceNetworkVpcAssociationIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let securityGroupIds =
        field_map_exn json__ "securityGroupIds"
          UpdateServiceNetworkVpcAssociationRequestSecurityGroupIdsList.of_json in
      let serviceNetworkVpcAssociationIdentifier =
        field_map_exn json__ "serviceNetworkVpcAssociationIdentifier"
          ServiceNetworkVpcAssociationIdentifier.of_json in
      make ~securityGroupIds ~serviceNetworkVpcAssociationIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the service network and VPC association. If you add a security group to the service network and VPC association, the association must continue to have at least one security group. You can add or edit security groups at any time. However, to remove all security groups, you must first delete the association and then recreate it without security groups."]
module UpdateServiceNetworkResponse =
  struct
    type nonrec t =
      {
      id: ServiceNetworkId.t option
        [@ocaml.doc "The ID of the service network."];
      name: ServiceNetworkName.t option
        [@ocaml.doc "The name of the service network."];
      arn: ServiceNetworkArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the service network."];
      authType: AuthType.t option [@ocaml.doc "The type of IAM policy."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?id =
      fun ?name ->
        fun ?arn -> fun ?authType -> fun () -> { id; name; arn; authType }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:ServiceNetworkId.to_value));
        ("name", (Option.map x.name ~f:ServiceNetworkName.to_value));
        ("arn", (Option.map x.arn ~f:ServiceNetworkArn.to_value));
        ("authType", (Option.map x.authType ~f:AuthType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let authType =
        (Option.map ~f:AuthType.of_xml) (Xml.child xml_arg0 "authType") in
      let arn =
        (Option.map ~f:ServiceNetworkArn.of_xml) (Xml.child xml_arg0 "arn") in
      let name =
        (Option.map ~f:ServiceNetworkName.of_xml) (Xml.child xml_arg0 "name") in
      let id =
        (Option.map ~f:ServiceNetworkId.of_xml) (Xml.child xml_arg0 "id") in
      make ?authType ?arn ?name ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let authType = field_map json__ "authType" AuthType.of_json in
      let arn = field_map json__ "arn" ServiceNetworkArn.of_json in
      let name = field_map json__ "name" ServiceNetworkName.of_json in
      let id = field_map json__ "id" ServiceNetworkId.of_json in
      make ?authType ?arn ?name ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the specified service network."]
module UpdateServiceNetworkRequest =
  struct
    type nonrec t =
      {
      serviceNetworkIdentifier: ServiceNetworkIdentifier.t
        [@ocaml.doc "The ID or ARN of the service network."];
      authType: AuthType.t
        [@ocaml.doc
          "The type of IAM policy. NONE: The resource does not use an IAM policy. This is the default. AWS_IAM: The resource uses an IAM policy. When this type is used, auth is enabled and an auth policy is required."]}
    let context_ = "UpdateServiceNetworkRequest"
    let make ~serviceNetworkIdentifier =
      fun ~authType -> fun () -> { serviceNetworkIdentifier; authType }
    let to_value x =
      structure_to_value
        [("serviceNetworkIdentifier",
           (Some
              (ServiceNetworkIdentifier.to_value x.serviceNetworkIdentifier)));
        ("authType", (Some (AuthType.to_value x.authType)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let authType =
        AuthType.of_xml (Xml.child_exn ~context:context_ xml_arg0 "authType") in
      let serviceNetworkIdentifier =
        ServiceNetworkIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "serviceNetworkIdentifier") in
      make ~authType ~serviceNetworkIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let authType = field_map_exn json__ "authType" AuthType.of_json in
      let serviceNetworkIdentifier =
        field_map_exn json__ "serviceNetworkIdentifier"
          ServiceNetworkIdentifier.of_json in
      make ~authType ~serviceNetworkIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the specified service network."]
module UpdateRuleResponse =
  struct
    type nonrec t =
      {
      arn: RuleArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the listener."];
      id: RuleId.t option [@ocaml.doc "The ID of the listener."];
      name: RuleName.t option [@ocaml.doc "The name of the listener."];
      isDefault: Boolean.t option
        [@ocaml.doc "Indicates whether this is the default rule."];
      match_: RuleMatch.t option [@ocaml.doc "The rule match."];
      priority: RulePriority.t option [@ocaml.doc "The rule priority."];
      action: RuleAction.t option
        [@ocaml.doc
          "Information about the action for the specified listener rule."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?arn =
      fun ?id ->
        fun ?name ->
          fun ?isDefault ->
            fun ?match_ ->
              fun ?priority ->
                fun ?action ->
                  fun () ->
                    { arn; id; name; isDefault; match_; priority; action }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:RuleArn.to_value));
        ("id", (Option.map x.id ~f:RuleId.to_value));
        ("name", (Option.map x.name ~f:RuleName.to_value));
        ("isDefault", (Option.map x.isDefault ~f:Boolean.to_value));
        ("match", (Option.map x.match_ ~f:RuleMatch.to_value));
        ("priority", (Option.map x.priority ~f:RulePriority.to_value));
        ("action", (Option.map x.action ~f:RuleAction.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let action =
        (Option.map ~f:RuleAction.of_xml) (Xml.child xml_arg0 "action") in
      let priority =
        (Option.map ~f:RulePriority.of_xml) (Xml.child xml_arg0 "priority") in
      let match_ =
        (Option.map ~f:RuleMatch.of_xml) (Xml.child xml_arg0 "match") in
      let isDefault =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "isDefault") in
      let name = (Option.map ~f:RuleName.of_xml) (Xml.child xml_arg0 "name") in
      let id = (Option.map ~f:RuleId.of_xml) (Xml.child xml_arg0 "id") in
      let arn = (Option.map ~f:RuleArn.of_xml) (Xml.child xml_arg0 "arn") in
      make ?action ?priority ?match_ ?isDefault ?name ?id ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let action = field_map json__ "action" RuleAction.of_json in
      let priority = field_map json__ "priority" RulePriority.of_json in
      let match_ = field_map json__ "match" RuleMatch.of_json in
      let isDefault = field_map json__ "isDefault" Boolean.of_json in
      let name = field_map json__ "name" RuleName.of_json in
      let id = field_map json__ "id" RuleId.of_json in
      let arn = field_map json__ "arn" RuleArn.of_json in
      make ?action ?priority ?match_ ?isDefault ?name ?id ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates a specified rule for the listener. You can't modify a default listener rule. To modify a default listener rule, use UpdateListener."]
module UpdateRuleRequest =
  struct
    type nonrec t =
      {
      serviceIdentifier: ServiceIdentifier.t
        [@ocaml.doc "The ID or ARN of the service."];
      listenerIdentifier: ListenerIdentifier.t
        [@ocaml.doc "The ID or ARN of the listener."];
      ruleIdentifier: RuleIdentifier.t
        [@ocaml.doc "The ID or ARN of the rule."];
      match_: RuleMatch.t option [@ocaml.doc "The rule match."];
      priority: RulePriority.t option
        [@ocaml.doc
          "The rule priority. A listener can't have multiple rules with the same priority."];
      action: RuleAction.t option
        [@ocaml.doc
          "Information about the action for the specified listener rule."]}
    let context_ = "UpdateRuleRequest"
    let make ?match_ =
      fun ?priority ->
        fun ?action ->
          fun ~serviceIdentifier ->
            fun ~listenerIdentifier ->
              fun ~ruleIdentifier ->
                fun () ->
                  {
                    match_;
                    priority;
                    action;
                    serviceIdentifier;
                    listenerIdentifier;
                    ruleIdentifier
                  }
    let to_value x =
      structure_to_value
        [("serviceIdentifier",
           (Some (ServiceIdentifier.to_value x.serviceIdentifier)));
        ("listenerIdentifier",
          (Some (ListenerIdentifier.to_value x.listenerIdentifier)));
        ("ruleIdentifier", (Some (RuleIdentifier.to_value x.ruleIdentifier)));
        ("match", (Option.map x.match_ ~f:RuleMatch.to_value));
        ("priority", (Option.map x.priority ~f:RulePriority.to_value));
        ("action", (Option.map x.action ~f:RuleAction.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let action =
        (Option.map ~f:RuleAction.of_xml) (Xml.child xml_arg0 "action") in
      let priority =
        (Option.map ~f:RulePriority.of_xml) (Xml.child xml_arg0 "priority") in
      let match_ =
        (Option.map ~f:RuleMatch.of_xml) (Xml.child xml_arg0 "match") in
      let ruleIdentifier =
        RuleIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ruleIdentifier") in
      let listenerIdentifier =
        ListenerIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "listenerIdentifier") in
      let serviceIdentifier =
        ServiceIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "serviceIdentifier") in
      make ?action ?priority ?match_ ~ruleIdentifier ~listenerIdentifier
        ~serviceIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let action = field_map json__ "action" RuleAction.of_json in
      let priority = field_map json__ "priority" RulePriority.of_json in
      let match_ = field_map json__ "match" RuleMatch.of_json in
      let ruleIdentifier =
        field_map_exn json__ "ruleIdentifier" RuleIdentifier.of_json in
      let listenerIdentifier =
        field_map_exn json__ "listenerIdentifier" ListenerIdentifier.of_json in
      let serviceIdentifier =
        field_map_exn json__ "serviceIdentifier" ServiceIdentifier.of_json in
      make ?action ?priority ?match_ ~ruleIdentifier ~listenerIdentifier
        ~serviceIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates a specified rule for the listener. You can't modify a default listener rule. To modify a default listener rule, use UpdateListener."]
module UpdateResourceGatewayResponse =
  struct
    type nonrec t =
      {
      name: ResourceGatewayName.t option
        [@ocaml.doc "The name of the resource gateway."];
      id: ResourceGatewayId.t option
        [@ocaml.doc "The ID of the resource gateway."];
      arn: ResourceGatewayArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource gateway."];
      status: ResourceGatewayStatus.t option
        [@ocaml.doc "The status of the resource gateway."];
      vpcId: VpcId.t option
        [@ocaml.doc "The ID of the VPC for the resource gateway."];
      subnetIds: SubnetList.t option
        [@ocaml.doc "The IDs of the VPC subnets for the resource gateway."];
      securityGroupIds: SecurityGroupList.t option
        [@ocaml.doc
          "The IDs of the security groups associated with the resource gateway."];
      ipAddressType: IpAddressType.t option
        [@ocaml.doc "The type of IP address used by the resource gateway."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?name =
      fun ?id ->
        fun ?arn ->
          fun ?status ->
            fun ?vpcId ->
              fun ?subnetIds ->
                fun ?securityGroupIds ->
                  fun ?ipAddressType ->
                    fun () ->
                      {
                        name;
                        id;
                        arn;
                        status;
                        vpcId;
                        subnetIds;
                        securityGroupIds;
                        ipAddressType
                      }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:ResourceGatewayName.to_value));
        ("id", (Option.map x.id ~f:ResourceGatewayId.to_value));
        ("arn", (Option.map x.arn ~f:ResourceGatewayArn.to_value));
        ("status", (Option.map x.status ~f:ResourceGatewayStatus.to_value));
        ("vpcId", (Option.map x.vpcId ~f:VpcId.to_value));
        ("subnetIds", (Option.map x.subnetIds ~f:SubnetList.to_value));
        ("securityGroupIds",
          (Option.map x.securityGroupIds ~f:SecurityGroupList.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
      let securityGroupIds =
        (Option.map ~f:SecurityGroupList.of_xml)
          (Xml.child xml_arg0 "securityGroupIds") in
      let subnetIds =
        (Option.map ~f:SubnetList.of_xml) (Xml.child xml_arg0 "subnetIds") in
      let vpcId = (Option.map ~f:VpcId.of_xml) (Xml.child xml_arg0 "vpcId") in
      let status =
        (Option.map ~f:ResourceGatewayStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let arn =
        (Option.map ~f:ResourceGatewayArn.of_xml) (Xml.child xml_arg0 "arn") in
      let id =
        (Option.map ~f:ResourceGatewayId.of_xml) (Xml.child xml_arg0 "id") in
      let name =
        (Option.map ~f:ResourceGatewayName.of_xml)
          (Xml.child xml_arg0 "name") in
      make ?ipAddressType ?securityGroupIds ?subnetIds ?vpcId ?status ?arn
        ?id ?name ()
    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 securityGroupIds =
        field_map json__ "securityGroupIds" SecurityGroupList.of_json in
      let subnetIds = field_map json__ "subnetIds" SubnetList.of_json in
      let vpcId = field_map json__ "vpcId" VpcId.of_json in
      let status = field_map json__ "status" ResourceGatewayStatus.of_json in
      let arn = field_map json__ "arn" ResourceGatewayArn.of_json in
      let id = field_map json__ "id" ResourceGatewayId.of_json in
      let name = field_map json__ "name" ResourceGatewayName.of_json in
      make ?ipAddressType ?securityGroupIds ?subnetIds ?vpcId ?status ?arn
        ?id ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the specified resource gateway."]
module UpdateResourceGatewayRequest =
  struct
    type nonrec t =
      {
      resourceGatewayIdentifier: ResourceGatewayIdentifier.t
        [@ocaml.doc "The ID or ARN of the resource gateway."];
      securityGroupIds:
        UpdateResourceGatewayRequestSecurityGroupIdsList.t option
        [@ocaml.doc
          "The IDs of the security groups associated with the resource gateway."]}
    let context_ = "UpdateResourceGatewayRequest"
    let make ?securityGroupIds =
      fun ~resourceGatewayIdentifier ->
        fun () -> { securityGroupIds; resourceGatewayIdentifier }
    let to_value x =
      structure_to_value
        [("resourceGatewayIdentifier",
           (Some
              (ResourceGatewayIdentifier.to_value x.resourceGatewayIdentifier)));
        ("securityGroupIds",
          (Option.map x.securityGroupIds
             ~f:UpdateResourceGatewayRequestSecurityGroupIdsList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let securityGroupIds =
        (Option.map
           ~f:UpdateResourceGatewayRequestSecurityGroupIdsList.of_xml)
          (Xml.child xml_arg0 "securityGroupIds") in
      let resourceGatewayIdentifier =
        ResourceGatewayIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "resourceGatewayIdentifier") in
      make ?securityGroupIds ~resourceGatewayIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let securityGroupIds =
        field_map json__ "securityGroupIds"
          UpdateResourceGatewayRequestSecurityGroupIdsList.of_json in
      let resourceGatewayIdentifier =
        field_map_exn json__ "resourceGatewayIdentifier"
          ResourceGatewayIdentifier.of_json in
      make ?securityGroupIds ~resourceGatewayIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the specified resource gateway."]
module UpdateResourceConfigurationResponse =
  struct
    type nonrec t =
      {
      id: ResourceConfigurationId.t option
        [@ocaml.doc "The ID of the resource configuration."];
      name: ResourceConfigurationName.t option
        [@ocaml.doc "The name of the resource configuration."];
      arn: ResourceConfigurationArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource configuration."];
      resourceGatewayId: ResourceGatewayId.t option
        [@ocaml.doc
          "The ID of the resource gateway associated with the resource configuration."];
      resourceConfigurationGroupId: ResourceConfigurationId.t option
        [@ocaml.doc "The ID of the group resource configuration."];
      type_: ResourceConfigurationType.t option
        [@ocaml.doc
          "The type of resource configuration. SINGLE - A single resource. GROUP - A group of resources. CHILD - A single resource that is part of a group resource configuration. ARN - An Amazon Web Services resource."];
      portRanges: PortRangeList.t option
        [@ocaml.doc
          "The TCP port ranges that a consumer can use to access a resource configuration. You can separate port ranges with a comma. Example: 1-65535 or 1,2,22-30"];
      allowAssociationToShareableServiceNetwork: Boolean.t option
        [@ocaml.doc
          "Indicates whether to add the resource configuration to service networks that are shared with other accounts."];
      protocol: ProtocolType.t option
        [@ocaml.doc
          "The TCP protocol accepted by the specified resource configuration."];
      status: ResourceConfigurationStatus.t option
        [@ocaml.doc "The status of the resource configuration."];
      resourceConfigurationDefinition:
        ResourceConfigurationDefinition.t option
        [@ocaml.doc "The resource configuration."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?id =
      fun ?name ->
        fun ?arn ->
          fun ?resourceGatewayId ->
            fun ?resourceConfigurationGroupId ->
              fun ?type_ ->
                fun ?portRanges ->
                  fun ?allowAssociationToShareableServiceNetwork ->
                    fun ?protocol ->
                      fun ?status ->
                        fun ?resourceConfigurationDefinition ->
                          fun () ->
                            {
                              id;
                              name;
                              arn;
                              resourceGatewayId;
                              resourceConfigurationGroupId;
                              type_;
                              portRanges;
                              allowAssociationToShareableServiceNetwork;
                              protocol;
                              status;
                              resourceConfigurationDefinition
                            }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:ResourceConfigurationId.to_value));
        ("name", (Option.map x.name ~f:ResourceConfigurationName.to_value));
        ("arn", (Option.map x.arn ~f:ResourceConfigurationArn.to_value));
        ("resourceGatewayId",
          (Option.map x.resourceGatewayId ~f:ResourceGatewayId.to_value));
        ("resourceConfigurationGroupId",
          (Option.map x.resourceConfigurationGroupId
             ~f:ResourceConfigurationId.to_value));
        ("type", (Option.map x.type_ ~f:ResourceConfigurationType.to_value));
        ("portRanges", (Option.map x.portRanges ~f:PortRangeList.to_value));
        ("allowAssociationToShareableServiceNetwork",
          (Option.map x.allowAssociationToShareableServiceNetwork
             ~f:Boolean.to_value));
        ("protocol", (Option.map x.protocol ~f:ProtocolType.to_value));
        ("status",
          (Option.map x.status ~f:ResourceConfigurationStatus.to_value));
        ("resourceConfigurationDefinition",
          (Option.map x.resourceConfigurationDefinition
             ~f:ResourceConfigurationDefinition.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceConfigurationDefinition =
        (Option.map ~f:ResourceConfigurationDefinition.of_xml)
          (Xml.child xml_arg0 "resourceConfigurationDefinition") in
      let status =
        (Option.map ~f:ResourceConfigurationStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let protocol =
        (Option.map ~f:ProtocolType.of_xml) (Xml.child xml_arg0 "protocol") in
      let allowAssociationToShareableServiceNetwork =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "allowAssociationToShareableServiceNetwork") in
      let portRanges =
        (Option.map ~f:PortRangeList.of_xml)
          (Xml.child xml_arg0 "portRanges") in
      let type_ =
        (Option.map ~f:ResourceConfigurationType.of_xml)
          (Xml.child xml_arg0 "type") in
      let resourceConfigurationGroupId =
        (Option.map ~f:ResourceConfigurationId.of_xml)
          (Xml.child xml_arg0 "resourceConfigurationGroupId") in
      let resourceGatewayId =
        (Option.map ~f:ResourceGatewayId.of_xml)
          (Xml.child xml_arg0 "resourceGatewayId") in
      let arn =
        (Option.map ~f:ResourceConfigurationArn.of_xml)
          (Xml.child xml_arg0 "arn") in
      let name =
        (Option.map ~f:ResourceConfigurationName.of_xml)
          (Xml.child xml_arg0 "name") in
      let id =
        (Option.map ~f:ResourceConfigurationId.of_xml)
          (Xml.child xml_arg0 "id") in
      make ?resourceConfigurationDefinition ?status ?protocol
        ?allowAssociationToShareableServiceNetwork ?portRanges ?type_
        ?resourceConfigurationGroupId ?resourceGatewayId ?arn ?name ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceConfigurationDefinition =
        field_map json__ "resourceConfigurationDefinition"
          ResourceConfigurationDefinition.of_json in
      let status =
        field_map json__ "status" ResourceConfigurationStatus.of_json in
      let protocol = field_map json__ "protocol" ProtocolType.of_json in
      let allowAssociationToShareableServiceNetwork =
        field_map json__ "allowAssociationToShareableServiceNetwork"
          Boolean.of_json in
      let portRanges = field_map json__ "portRanges" PortRangeList.of_json in
      let type_ = field_map json__ "type" ResourceConfigurationType.of_json in
      let resourceConfigurationGroupId =
        field_map json__ "resourceConfigurationGroupId"
          ResourceConfigurationId.of_json in
      let resourceGatewayId =
        field_map json__ "resourceGatewayId" ResourceGatewayId.of_json in
      let arn = field_map json__ "arn" ResourceConfigurationArn.of_json in
      let name = field_map json__ "name" ResourceConfigurationName.of_json in
      let id = field_map json__ "id" ResourceConfigurationId.of_json in
      make ?resourceConfigurationDefinition ?status ?protocol
        ?allowAssociationToShareableServiceNetwork ?portRanges ?type_
        ?resourceConfigurationGroupId ?resourceGatewayId ?arn ?name ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the specified resource configuration."]
module UpdateResourceConfigurationRequest =
  struct
    type nonrec t =
      {
      resourceConfigurationIdentifier: ResourceConfigurationIdentifier.t
        [@ocaml.doc "The ID of the resource configuration."];
      resourceConfigurationDefinition:
        ResourceConfigurationDefinition.t option
        [@ocaml.doc
          "Identifies the resource configuration in one of the following ways: Amazon Resource Name (ARN) - Supported resource-types that are provisioned by Amazon Web Services services, such as RDS databases, can be identified by their ARN. Domain name - Any domain name that is publicly resolvable. IP address - For IPv4 and IPv6, only IP addresses in the VPC are supported."];
      allowAssociationToShareableServiceNetwork: Boolean.t option
        [@ocaml.doc
          "Indicates whether to add the resource configuration to service networks that are shared with other accounts."];
      portRanges: PortRangeList.t option
        [@ocaml.doc
          "The TCP port ranges that a consumer can use to access a resource configuration. You can separate port ranges with a comma. Example: 1-65535 or 1,2,22-30"]}
    let context_ = "UpdateResourceConfigurationRequest"
    let make ?resourceConfigurationDefinition =
      fun ?allowAssociationToShareableServiceNetwork ->
        fun ?portRanges ->
          fun ~resourceConfigurationIdentifier ->
            fun () ->
              {
                resourceConfigurationDefinition;
                allowAssociationToShareableServiceNetwork;
                portRanges;
                resourceConfigurationIdentifier
              }
    let to_value x =
      structure_to_value
        [("resourceConfigurationIdentifier",
           (Some
              (ResourceConfigurationIdentifier.to_value
                 x.resourceConfigurationIdentifier)));
        ("resourceConfigurationDefinition",
          (Option.map x.resourceConfigurationDefinition
             ~f:ResourceConfigurationDefinition.to_value));
        ("allowAssociationToShareableServiceNetwork",
          (Option.map x.allowAssociationToShareableServiceNetwork
             ~f:Boolean.to_value));
        ("portRanges", (Option.map x.portRanges ~f:PortRangeList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let portRanges =
        (Option.map ~f:PortRangeList.of_xml)
          (Xml.child xml_arg0 "portRanges") in
      let allowAssociationToShareableServiceNetwork =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "allowAssociationToShareableServiceNetwork") in
      let resourceConfigurationDefinition =
        (Option.map ~f:ResourceConfigurationDefinition.of_xml)
          (Xml.child xml_arg0 "resourceConfigurationDefinition") in
      let resourceConfigurationIdentifier =
        ResourceConfigurationIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "resourceConfigurationIdentifier") in
      make ?portRanges ?allowAssociationToShareableServiceNetwork
        ?resourceConfigurationDefinition ~resourceConfigurationIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let portRanges = field_map json__ "portRanges" PortRangeList.of_json in
      let allowAssociationToShareableServiceNetwork =
        field_map json__ "allowAssociationToShareableServiceNetwork"
          Boolean.of_json in
      let resourceConfigurationDefinition =
        field_map json__ "resourceConfigurationDefinition"
          ResourceConfigurationDefinition.of_json in
      let resourceConfigurationIdentifier =
        field_map_exn json__ "resourceConfigurationIdentifier"
          ResourceConfigurationIdentifier.of_json in
      make ?portRanges ?allowAssociationToShareableServiceNetwork
        ?resourceConfigurationDefinition ~resourceConfigurationIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the specified resource configuration."]
module UpdateListenerResponse =
  struct
    type nonrec t =
      {
      arn: ListenerArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the listener."];
      id: ListenerId.t option [@ocaml.doc "The ID of the listener."];
      name: ListenerName.t option [@ocaml.doc "The name of the listener."];
      protocol: ListenerProtocol.t option
        [@ocaml.doc "The protocol of the listener."];
      port: Port.t option [@ocaml.doc "The listener port."];
      serviceArn: ServiceArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the service."];
      serviceId: ServiceId.t option [@ocaml.doc "The ID of the service."];
      defaultAction: RuleAction.t option
        [@ocaml.doc "The action for the default rule."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?arn =
      fun ?id ->
        fun ?name ->
          fun ?protocol ->
            fun ?port ->
              fun ?serviceArn ->
                fun ?serviceId ->
                  fun ?defaultAction ->
                    fun () ->
                      {
                        arn;
                        id;
                        name;
                        protocol;
                        port;
                        serviceArn;
                        serviceId;
                        defaultAction
                      }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:ListenerArn.to_value));
        ("id", (Option.map x.id ~f:ListenerId.to_value));
        ("name", (Option.map x.name ~f:ListenerName.to_value));
        ("protocol", (Option.map x.protocol ~f:ListenerProtocol.to_value));
        ("port", (Option.map x.port ~f:Port.to_value));
        ("serviceArn", (Option.map x.serviceArn ~f:ServiceArn.to_value));
        ("serviceId", (Option.map x.serviceId ~f:ServiceId.to_value));
        ("defaultAction",
          (Option.map x.defaultAction ~f:RuleAction.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let defaultAction =
        (Option.map ~f:RuleAction.of_xml)
          (Xml.child xml_arg0 "defaultAction") in
      let serviceId =
        (Option.map ~f:ServiceId.of_xml) (Xml.child xml_arg0 "serviceId") in
      let serviceArn =
        (Option.map ~f:ServiceArn.of_xml) (Xml.child xml_arg0 "serviceArn") in
      let port = (Option.map ~f:Port.of_xml) (Xml.child xml_arg0 "port") in
      let protocol =
        (Option.map ~f:ListenerProtocol.of_xml)
          (Xml.child xml_arg0 "protocol") in
      let name =
        (Option.map ~f:ListenerName.of_xml) (Xml.child xml_arg0 "name") in
      let id = (Option.map ~f:ListenerId.of_xml) (Xml.child xml_arg0 "id") in
      let arn = (Option.map ~f:ListenerArn.of_xml) (Xml.child xml_arg0 "arn") in
      make ?defaultAction ?serviceId ?serviceArn ?port ?protocol ?name ?id
        ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let defaultAction = field_map json__ "defaultAction" RuleAction.of_json in
      let serviceId = field_map json__ "serviceId" ServiceId.of_json in
      let serviceArn = field_map json__ "serviceArn" ServiceArn.of_json in
      let port = field_map json__ "port" Port.of_json in
      let protocol = field_map json__ "protocol" ListenerProtocol.of_json in
      let name = field_map json__ "name" ListenerName.of_json in
      let id = field_map json__ "id" ListenerId.of_json in
      let arn = field_map json__ "arn" ListenerArn.of_json in
      make ?defaultAction ?serviceId ?serviceArn ?port ?protocol ?name ?id
        ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the specified listener for the specified service."]
module UpdateListenerRequest =
  struct
    type nonrec t =
      {
      serviceIdentifier: ServiceIdentifier.t
        [@ocaml.doc "The ID or ARN of the service."];
      listenerIdentifier: ListenerIdentifier.t
        [@ocaml.doc "The ID or ARN of the listener."];
      defaultAction: RuleAction.t
        [@ocaml.doc "The action for the default rule."]}
    let context_ = "UpdateListenerRequest"
    let make ~serviceIdentifier =
      fun ~listenerIdentifier ->
        fun ~defaultAction ->
          fun () -> { serviceIdentifier; listenerIdentifier; defaultAction }
    let to_value x =
      structure_to_value
        [("serviceIdentifier",
           (Some (ServiceIdentifier.to_value x.serviceIdentifier)));
        ("listenerIdentifier",
          (Some (ListenerIdentifier.to_value x.listenerIdentifier)));
        ("defaultAction", (Some (RuleAction.to_value x.defaultAction)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let defaultAction =
        RuleAction.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "defaultAction") in
      let listenerIdentifier =
        ListenerIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "listenerIdentifier") in
      let serviceIdentifier =
        ServiceIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "serviceIdentifier") in
      make ~defaultAction ~listenerIdentifier ~serviceIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let defaultAction =
        field_map_exn json__ "defaultAction" RuleAction.of_json in
      let listenerIdentifier =
        field_map_exn json__ "listenerIdentifier" ListenerIdentifier.of_json in
      let serviceIdentifier =
        field_map_exn json__ "serviceIdentifier" ServiceIdentifier.of_json in
      make ~defaultAction ~listenerIdentifier ~serviceIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the specified listener for the specified service."]
module UpdateAccessLogSubscriptionResponse =
  struct
    type nonrec t =
      {
      id: AccessLogSubscriptionId.t option
        [@ocaml.doc "The ID of the access log subscription."];
      arn: AccessLogSubscriptionArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the access log subscription."];
      resourceId: ResourceId.t option [@ocaml.doc "The ID of the resource."];
      resourceArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the access log subscription."];
      destinationArn: AccessLogDestinationArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the access log destination."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?id =
      fun ?arn ->
        fun ?resourceId ->
          fun ?resourceArn ->
            fun ?destinationArn ->
              fun () -> { id; arn; resourceId; resourceArn; destinationArn }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:AccessLogSubscriptionId.to_value));
        ("arn", (Option.map x.arn ~f:AccessLogSubscriptionArn.to_value));
        ("resourceId", (Option.map x.resourceId ~f:ResourceId.to_value));
        ("resourceArn", (Option.map x.resourceArn ~f:ResourceArn.to_value));
        ("destinationArn",
          (Option.map x.destinationArn ~f:AccessLogDestinationArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let destinationArn =
        (Option.map ~f:AccessLogDestinationArn.of_xml)
          (Xml.child xml_arg0 "destinationArn") in
      let resourceArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "resourceArn") in
      let resourceId =
        (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "resourceId") in
      let arn =
        (Option.map ~f:AccessLogSubscriptionArn.of_xml)
          (Xml.child xml_arg0 "arn") in
      let id =
        (Option.map ~f:AccessLogSubscriptionId.of_xml)
          (Xml.child xml_arg0 "id") in
      make ?destinationArn ?resourceArn ?resourceId ?arn ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let destinationArn =
        field_map json__ "destinationArn" AccessLogDestinationArn.of_json in
      let resourceArn = field_map json__ "resourceArn" ResourceArn.of_json in
      let resourceId = field_map json__ "resourceId" ResourceId.of_json in
      let arn = field_map json__ "arn" AccessLogSubscriptionArn.of_json in
      let id = field_map json__ "id" AccessLogSubscriptionId.of_json in
      make ?destinationArn ?resourceArn ?resourceId ?arn ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the specified access log subscription."]
module UpdateAccessLogSubscriptionRequest =
  struct
    type nonrec t =
      {
      accessLogSubscriptionIdentifier: AccessLogSubscriptionIdentifier.t
        [@ocaml.doc "The ID or ARN of the access log subscription."];
      destinationArn: AccessLogDestinationArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the access log destination."]}
    let context_ = "UpdateAccessLogSubscriptionRequest"
    let make ~accessLogSubscriptionIdentifier =
      fun ~destinationArn ->
        fun () -> { accessLogSubscriptionIdentifier; destinationArn }
    let to_value x =
      structure_to_value
        [("accessLogSubscriptionIdentifier",
           (Some
              (AccessLogSubscriptionIdentifier.to_value
                 x.accessLogSubscriptionIdentifier)));
        ("destinationArn",
          (Some (AccessLogDestinationArn.to_value x.destinationArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let destinationArn =
        AccessLogDestinationArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "destinationArn") in
      let accessLogSubscriptionIdentifier =
        AccessLogSubscriptionIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "accessLogSubscriptionIdentifier") in
      make ~destinationArn ~accessLogSubscriptionIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let destinationArn =
        field_map_exn json__ "destinationArn" AccessLogDestinationArn.of_json in
      let accessLogSubscriptionIdentifier =
        field_map_exn json__ "accessLogSubscriptionIdentifier"
          AccessLogSubscriptionIdentifier.of_json in
      make ~destinationArn ~accessLogSubscriptionIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the specified access log subscription."]
module UntagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Removes the specified tags from the specified resource."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: Arn.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the resource."];
      tagKeys: TagKeys.t [@ocaml.doc "The tag keys of the tags to remove."]}
    let context_ = "UntagResourceRequest"
    let make ~resourceArn =
      fun ~tagKeys -> fun () -> { resourceArn; tagKeys }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (Arn.to_value x.resourceArn)));
        ("tagKeys", (Some (TagKeys.to_value x.tagKeys)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagKeys =
        TagKeys.of_xml (Xml.child_exn ~context:context_ xml_arg0 "tagKeys") in
      let resourceArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~tagKeys ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagKeys = field_map_exn json__ "tagKeys" TagKeys.of_json in
      let resourceArn = field_map_exn json__ "resourceArn" Arn.of_json in
      make ~tagKeys ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Removes the specified tags from the specified resource."]
module TagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let 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."]
module TagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: Arn.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the resource."];
      tags: TagMap.t [@ocaml.doc "The tags for the resource."]}
    let context_ = "TagResourceRequest"
    let make ~resourceArn = fun ~tags -> fun () -> { resourceArn; tags }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (Arn.to_value x.resourceArn)));
        ("tags", (Some (TagMap.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        TagMap.of_xml (Xml.child_exn ~context:context_ xml_arg0 "tags") in
      let resourceArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~tags ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map_exn json__ "tags" TagMap.of_json in
      let resourceArn = field_map_exn json__ "resourceArn" Arn.of_json in
      make ~tags ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Adds the specified tags to the specified resource."]
module StartDomainVerificationResponse =
  struct
    type nonrec t =
      {
      id: DomainVerificationId.t option
        [@ocaml.doc "The ID of the domain verification."];
      arn: DomainVerificationArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the domain verification."];
      domainName: DomainName.t option
        [@ocaml.doc "The domain name being verified."];
      status: VerificationStatus.t option
        [@ocaml.doc "The current status of the domain verification process."];
      txtMethodConfig: TxtMethodConfig.t option
        [@ocaml.doc
          "The TXT record configuration used for domain verification."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?id =
      fun ?arn ->
        fun ?domainName ->
          fun ?status ->
            fun ?txtMethodConfig ->
              fun () -> { id; arn; domainName; status; txtMethodConfig }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:DomainVerificationId.to_value));
        ("arn", (Option.map x.arn ~f:DomainVerificationArn.to_value));
        ("domainName", (Option.map x.domainName ~f:DomainName.to_value));
        ("status", (Option.map x.status ~f:VerificationStatus.to_value));
        ("txtMethodConfig",
          (Option.map x.txtMethodConfig ~f:TxtMethodConfig.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let txtMethodConfig =
        (Option.map ~f:TxtMethodConfig.of_xml)
          (Xml.child xml_arg0 "txtMethodConfig") in
      let status =
        (Option.map ~f:VerificationStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let domainName =
        (Option.map ~f:DomainName.of_xml) (Xml.child xml_arg0 "domainName") in
      let arn =
        (Option.map ~f:DomainVerificationArn.of_xml)
          (Xml.child xml_arg0 "arn") in
      let id =
        (Option.map ~f:DomainVerificationId.of_xml) (Xml.child xml_arg0 "id") in
      make ?txtMethodConfig ?status ?domainName ?arn ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let txtMethodConfig =
        field_map json__ "txtMethodConfig" TxtMethodConfig.of_json in
      let status = field_map json__ "status" VerificationStatus.of_json in
      let domainName = field_map json__ "domainName" DomainName.of_json in
      let arn = field_map json__ "arn" DomainVerificationArn.of_json in
      let id = field_map json__ "id" DomainVerificationId.of_json in
      make ?txtMethodConfig ?status ?domainName ?arn ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Starts the domain verification process for a custom domain name."]
module StartDomainVerificationRequest =
  struct
    type nonrec t =
      {
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A unique, case-sensitive identifier that you provide to ensure the idempotency of the request. If you retry a request that completed successfully using the same client token and parameters, the retry succeeds without performing any actions. If the parameters aren't identical, the retry fails."];
      domainName: DomainName.t
        [@ocaml.doc "The domain name to verify ownership for."];
      tags: TagMap.t option
        [@ocaml.doc "The tags for the domain verification."]}
    let context_ = "StartDomainVerificationRequest"
    let make ?clientToken =
      fun ?tags ->
        fun ~domainName -> fun () -> { clientToken; tags; domainName }
    let to_value x =
      structure_to_value
        [("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value));
        ("domainName", (Some (DomainName.to_value x.domainName)));
        ("tags", (Option.map x.tags ~f:TagMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "tags") in
      let domainName =
        DomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "domainName") in
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      make ?tags ~domainName ?clientToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagMap.of_json in
      let domainName = field_map_exn json__ "domainName" DomainName.of_json in
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      make ?tags ~domainName ?clientToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Starts the domain verification process for a custom domain name."]
module RegisterTargetsResponse =
  struct
    type nonrec t =
      {
      successful: TargetList.t option
        [@ocaml.doc "The targets that were successfully registered."];
      unsuccessful: TargetFailureList.t option
        [@ocaml.doc "The targets that were not registered."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?successful =
      fun ?unsuccessful -> fun () -> { successful; unsuccessful }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("successful", (Option.map x.successful ~f:TargetList.to_value));
        ("unsuccessful",
          (Option.map x.unsuccessful ~f:TargetFailureList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let unsuccessful =
        (Option.map ~f:TargetFailureList.of_xml)
          (Xml.child xml_arg0 "unsuccessful") in
      let successful =
        (Option.map ~f:TargetList.of_xml) (Xml.child xml_arg0 "successful") in
      make ?unsuccessful ?successful ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let unsuccessful =
        field_map json__ "unsuccessful" TargetFailureList.of_json in
      let successful = field_map json__ "successful" TargetList.of_json in
      make ?unsuccessful ?successful ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Registers the targets with the target group. If it's a Lambda target, you can only have one target in a target group."]
module RegisterTargetsRequest =
  struct
    type nonrec t =
      {
      targetGroupIdentifier: TargetGroupIdentifier.t
        [@ocaml.doc "The ID or ARN of the target group."];
      targets: RegisterTargetsRequestTargetsList.t
        [@ocaml.doc "The targets."]}
    let context_ = "RegisterTargetsRequest"
    let make ~targetGroupIdentifier =
      fun ~targets -> fun () -> { targetGroupIdentifier; targets }
    let to_value x =
      structure_to_value
        [("targetGroupIdentifier",
           (Some (TargetGroupIdentifier.to_value x.targetGroupIdentifier)));
        ("targets",
          (Some (RegisterTargetsRequestTargetsList.to_value x.targets)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let targets =
        RegisterTargetsRequestTargetsList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "targets") in
      let targetGroupIdentifier =
        TargetGroupIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "targetGroupIdentifier") in
      make ~targets ~targetGroupIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let targets =
        field_map_exn json__ "targets"
          RegisterTargetsRequestTargetsList.of_json in
      let targetGroupIdentifier =
        field_map_exn json__ "targetGroupIdentifier"
          TargetGroupIdentifier.of_json in
      make ~targets ~targetGroupIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Registers the targets with the target group. If it's a Lambda target, you can only have one target in a target group."]
module PutResourcePolicyResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let 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
       "Attaches a resource-based permission policy to a service or service network. The policy must contain the same actions and condition statements as the Amazon Web Services Resource Access Manager permission for sharing services and service networks."]
module PutResourcePolicyRequest =
  struct
    type nonrec t =
      {
      resourceArn: ResourceArn.t
        [@ocaml.doc
          "The ID or ARN of the service network or service for which the policy is created."];
      policy: PolicyString.t
        [@ocaml.doc
          "An IAM policy. The policy string in JSON must not contain newlines or blank lines."]}
    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
       "Attaches a resource-based permission policy to a service or service network. The policy must contain the same actions and condition statements as the Amazon Web Services Resource Access Manager permission for sharing services and service networks."]
module PutAuthPolicyResponse =
  struct
    type nonrec t =
      {
      policy: AuthPolicyString.t option
        [@ocaml.doc
          "The auth policy. The policy string in JSON must not contain newlines or blank lines."];
      state: AuthPolicyState.t option
        [@ocaml.doc
          "The state of the auth policy. The auth policy is only active when the auth type is set to AWS_IAM. If you provide a policy, then authentication and authorization decisions are made based on this policy and the client's IAM policy. If the Auth type is NONE, then, any auth policy that you provide remains inactive. For more information, see Create a service network in the Amazon VPC Lattice User Guide."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?policy = fun ?state -> fun () -> { policy; state }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("policy", (Option.map x.policy ~f:AuthPolicyString.to_value));
        ("state", (Option.map x.state ~f:AuthPolicyState.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let state =
        (Option.map ~f:AuthPolicyState.of_xml) (Xml.child xml_arg0 "state") in
      let policy =
        (Option.map ~f:AuthPolicyString.of_xml) (Xml.child xml_arg0 "policy") in
      make ?state ?policy ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let state = field_map json__ "state" AuthPolicyState.of_json in
      let policy = field_map json__ "policy" AuthPolicyString.of_json in
      make ?state ?policy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates or updates the auth policy. The policy string in JSON must not contain newlines or blank lines. For more information, see Auth policies in the Amazon VPC Lattice User Guide."]
module PutAuthPolicyRequest =
  struct
    type nonrec t =
      {
      resourceIdentifier: ResourceIdentifier.t
        [@ocaml.doc
          "The ID or ARN of the service network or service for which the policy is created."];
      policy: AuthPolicyString.t
        [@ocaml.doc
          "The auth policy. The policy string in JSON must not contain newlines or blank lines."]}
    let context_ = "PutAuthPolicyRequest"
    let make ~resourceIdentifier =
      fun ~policy -> fun () -> { resourceIdentifier; policy }
    let to_value x =
      structure_to_value
        [("resourceIdentifier",
           (Some (ResourceIdentifier.to_value x.resourceIdentifier)));
        ("policy", (Some (AuthPolicyString.to_value x.policy)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policy =
        AuthPolicyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "policy") in
      let resourceIdentifier =
        ResourceIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceIdentifier") in
      make ~policy ~resourceIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let policy = field_map_exn json__ "policy" AuthPolicyString.of_json in
      let resourceIdentifier =
        field_map_exn json__ "resourceIdentifier" ResourceIdentifier.of_json in
      make ~policy ~resourceIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates or updates the auth policy. The policy string in JSON must not contain newlines or blank lines. For more information, see Auth policies in the Amazon VPC Lattice User Guide."]
module ListTargetsResponse =
  struct
    type nonrec t =
      {
      items: TargetSummaryList.t option
        [@ocaml.doc "Information about the targets."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If there are additional results, a pagination token for the next page of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?items = fun ?nextToken -> fun () -> { items; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("items", (Option.map x.items ~f:TargetSummaryList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let items =
        (Option.map ~f:TargetSummaryList.of_xml) (Xml.child xml_arg0 "items") in
      make ?nextToken ?items ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let items = field_map json__ "items" TargetSummaryList.of_json in
      make ?nextToken ?items ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the targets for the target group. By default, all targets are included. You can use this API to check the health status of targets. You can also \239\172\129lter the results by target."]
module ListTargetsRequest =
  struct
    type nonrec t =
      {
      targetGroupIdentifier: TargetGroupIdentifier.t
        [@ocaml.doc "The ID or ARN of the target group."];
      maxResults: MaxResults.t option
        [@ocaml.doc "The maximum number of results to return."];
      nextToken: NextToken.t option
        [@ocaml.doc "A pagination token for the next page of results."];
      targets: ListTargetsRequestTargetsList.t option
        [@ocaml.doc "The targets."]}
    let context_ = "ListTargetsRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ?targets ->
          fun ~targetGroupIdentifier ->
            fun () ->
              { maxResults; nextToken; targets; targetGroupIdentifier }
    let to_value x =
      structure_to_value
        [("targetGroupIdentifier",
           (Some (TargetGroupIdentifier.to_value x.targetGroupIdentifier)));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("targets",
          (Option.map x.targets ~f:ListTargetsRequestTargetsList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let targets =
        (Option.map ~f:ListTargetsRequestTargetsList.of_xml)
          (Xml.child xml_arg0 "targets") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let targetGroupIdentifier =
        TargetGroupIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "targetGroupIdentifier") in
      make ?targets ?nextToken ?maxResults ~targetGroupIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let targets =
        field_map json__ "targets" ListTargetsRequestTargetsList.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let targetGroupIdentifier =
        field_map_exn json__ "targetGroupIdentifier"
          TargetGroupIdentifier.of_json in
      make ?targets ?nextToken ?maxResults ~targetGroupIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the targets for the target group. By default, all targets are included. You can use this API to check the health status of targets. You can also \239\172\129lter the results by target."]
module ListTargetGroupsResponse =
  struct
    type nonrec t =
      {
      items: TargetGroupList.t option
        [@ocaml.doc "Information about the target groups."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If there are additional results, a pagination token for the next page of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?items = fun ?nextToken -> fun () -> { items; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("items", (Option.map x.items ~f:TargetGroupList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let items =
        (Option.map ~f:TargetGroupList.of_xml) (Xml.child xml_arg0 "items") in
      make ?nextToken ?items ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let items = field_map json__ "items" TargetGroupList.of_json in
      make ?nextToken ?items ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists your target groups. You can narrow your search by using the filters below in your request."]
module ListTargetGroupsRequest =
  struct
    type nonrec t =
      {
      maxResults: MaxResults.t option
        [@ocaml.doc "The maximum number of results to return."];
      nextToken: NextToken.t option
        [@ocaml.doc "A pagination token for the next page of results."];
      vpcIdentifier: VpcId.t option [@ocaml.doc "The ID or ARN of the VPC."];
      targetGroupType: TargetGroupType.t option
        [@ocaml.doc "The target group type."]}
    let make ?maxResults =
      fun ?nextToken ->
        fun ?vpcIdentifier ->
          fun ?targetGroupType ->
            fun () ->
              { maxResults; nextToken; vpcIdentifier; targetGroupType }
    let to_value x =
      structure_to_value
        [("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("vpcIdentifier", (Option.map x.vpcIdentifier ~f:VpcId.to_value));
        ("targetGroupType",
          (Option.map x.targetGroupType ~f:TargetGroupType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let targetGroupType =
        (Option.map ~f:TargetGroupType.of_xml)
          (Xml.child xml_arg0 "targetGroupType") in
      let vpcIdentifier =
        (Option.map ~f:VpcId.of_xml) (Xml.child xml_arg0 "vpcIdentifier") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      make ?targetGroupType ?vpcIdentifier ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let targetGroupType =
        field_map json__ "targetGroupType" TargetGroupType.of_json in
      let vpcIdentifier = field_map json__ "vpcIdentifier" VpcId.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      make ?targetGroupType ?vpcIdentifier ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists your target groups. You can narrow your search by using the filters below in your request."]
module ListTagsForResourceResponse =
  struct
    type nonrec t =
      {
      tags: TagMap.t option [@ocaml.doc "Information about the tags."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tags = fun () -> { tags }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value [("tags", (Option.map x.tags ~f:TagMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "tags") in
      make ?tags ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagMap.of_json in make ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the tags for the specified resource."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: Arn.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the resource."]}
    let context_ = "ListTagsForResourceRequest"
    let make ~resourceArn = fun () -> { resourceArn }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (Arn.to_value x.resourceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        Arn.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" Arn.of_json in
      make ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the tags for the specified resource."]
module ListServicesResponse =
  struct
    type nonrec t =
      {
      items: ServiceList.t option
        [@ocaml.doc "Information about the services."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If there are additional results, a pagination token for the next page of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?items = fun ?nextToken -> fun () -> { items; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("items", (Option.map x.items ~f:ServiceList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let items =
        (Option.map ~f:ServiceList.of_xml) (Xml.child xml_arg0 "items") in
      make ?nextToken ?items ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let items = field_map json__ "items" ServiceList.of_json in
      make ?nextToken ?items ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the services owned by the caller account or shared with the caller account."]
module ListServicesRequest =
  struct
    type nonrec t =
      {
      maxResults: MaxResults.t option
        [@ocaml.doc "The maximum number of results to return."];
      nextToken: NextToken.t option
        [@ocaml.doc "A pagination token for the next page of results."]}
    let make ?maxResults =
      fun ?nextToken -> fun () -> { maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      make ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      make ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the services owned by the caller account or shared with the caller account."]
module ListServiceNetworksResponse =
  struct
    type nonrec t =
      {
      items: ServiceNetworkList.t option
        [@ocaml.doc "Information about the service networks."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If there are additional results, a pagination token for the next page of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?items = fun ?nextToken -> fun () -> { items; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("items", (Option.map x.items ~f:ServiceNetworkList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let items =
        (Option.map ~f:ServiceNetworkList.of_xml)
          (Xml.child xml_arg0 "items") in
      make ?nextToken ?items ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let items = field_map json__ "items" ServiceNetworkList.of_json in
      make ?nextToken ?items ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the service networks owned by or shared with this account. The account ID in the ARN shows which account owns the service network."]
module ListServiceNetworksRequest =
  struct
    type nonrec t =
      {
      maxResults: MaxResults.t option
        [@ocaml.doc "The maximum number of results to return."];
      nextToken: NextToken.t option
        [@ocaml.doc "A pagination token for the next page of results."]}
    let make ?maxResults =
      fun ?nextToken -> fun () -> { maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      make ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      make ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the service networks owned by or shared with this account. The account ID in the ARN shows which account owns the service network."]
module ListServiceNetworkVpcEndpointAssociationsResponse =
  struct
    type nonrec t =
      {
      items: ServiceNetworkVpcEndpointAssociationList.t option
        [@ocaml.doc
          "Information about the association between the VPC endpoint and service network."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If there are additional results, a pagination token for the next page of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?items = fun ?nextToken -> fun () -> { items; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("items",
           (Option.map x.items
              ~f:ServiceNetworkVpcEndpointAssociationList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let items =
        (Option.map ~f:ServiceNetworkVpcEndpointAssociationList.of_xml)
          (Xml.child xml_arg0 "items") in
      make ?nextToken ?items ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let items =
        field_map json__ "items"
          ServiceNetworkVpcEndpointAssociationList.of_json in
      make ?nextToken ?items ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the associations between a service network and a VPC endpoint."]
module ListServiceNetworkVpcEndpointAssociationsRequest =
  struct
    type nonrec t =
      {
      serviceNetworkIdentifier: ServiceNetworkIdentifier.t
        [@ocaml.doc
          "The ID of the service network associated with the VPC endpoint."];
      maxResults: MaxResults.t option [@ocaml.doc "The maximum page size."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If there are additional results, a pagination token for the next page of results."]}
    let context_ = "ListServiceNetworkVpcEndpointAssociationsRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~serviceNetworkIdentifier ->
          fun () -> { maxResults; nextToken; serviceNetworkIdentifier }
    let to_value x =
      structure_to_value
        [("serviceNetworkIdentifier",
           (Some
              (ServiceNetworkIdentifier.to_value x.serviceNetworkIdentifier)));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let serviceNetworkIdentifier =
        ServiceNetworkIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "serviceNetworkIdentifier") in
      make ?nextToken ?maxResults ~serviceNetworkIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let serviceNetworkIdentifier =
        field_map_exn json__ "serviceNetworkIdentifier"
          ServiceNetworkIdentifier.of_json in
      make ?nextToken ?maxResults ~serviceNetworkIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the associations between a service network and a VPC endpoint."]
module ListServiceNetworkVpcAssociationsResponse =
  struct
    type nonrec t =
      {
      items: ServiceNetworkVpcAssociationList.t option
        [@ocaml.doc "Information about the associations."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If there are additional results, a pagination token for the next page of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?items = fun ?nextToken -> fun () -> { items; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("items",
           (Option.map x.items ~f:ServiceNetworkVpcAssociationList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let items =
        (Option.map ~f:ServiceNetworkVpcAssociationList.of_xml)
          (Xml.child xml_arg0 "items") in
      make ?nextToken ?items ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let items =
        field_map json__ "items" ServiceNetworkVpcAssociationList.of_json in
      make ?nextToken ?items ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the associations between a service network and a VPC. You can filter the list either by VPC or service network. You must provide either the ID of the service network identifier or the ID of the VPC."]
module ListServiceNetworkVpcAssociationsRequest =
  struct
    type nonrec t =
      {
      serviceNetworkIdentifier: ServiceNetworkIdentifier.t option
        [@ocaml.doc "The ID or ARN of the service network."];
      vpcIdentifier: VpcId.t option [@ocaml.doc "The ID or ARN of the VPC."];
      maxResults: MaxResults.t option
        [@ocaml.doc "The maximum number of results to return."];
      nextToken: NextToken.t option
        [@ocaml.doc "A pagination token for the next page of results."]}
    let make ?serviceNetworkIdentifier =
      fun ?vpcIdentifier ->
        fun ?maxResults ->
          fun ?nextToken ->
            fun () ->
              {
                serviceNetworkIdentifier;
                vpcIdentifier;
                maxResults;
                nextToken
              }
    let to_value x =
      structure_to_value
        [("serviceNetworkIdentifier",
           (Option.map x.serviceNetworkIdentifier
              ~f:ServiceNetworkIdentifier.to_value));
        ("vpcIdentifier", (Option.map x.vpcIdentifier ~f:VpcId.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let vpcIdentifier =
        (Option.map ~f:VpcId.of_xml) (Xml.child xml_arg0 "vpcIdentifier") in
      let serviceNetworkIdentifier =
        (Option.map ~f:ServiceNetworkIdentifier.of_xml)
          (Xml.child xml_arg0 "serviceNetworkIdentifier") in
      make ?nextToken ?maxResults ?vpcIdentifier ?serviceNetworkIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let vpcIdentifier = field_map json__ "vpcIdentifier" VpcId.of_json in
      let serviceNetworkIdentifier =
        field_map json__ "serviceNetworkIdentifier"
          ServiceNetworkIdentifier.of_json in
      make ?nextToken ?maxResults ?vpcIdentifier ?serviceNetworkIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the associations between a service network and a VPC. You can filter the list either by VPC or service network. You must provide either the ID of the service network identifier or the ID of the VPC."]
module ListServiceNetworkServiceAssociationsResponse =
  struct
    type nonrec t =
      {
      items: ServiceNetworkServiceAssociationList.t option
        [@ocaml.doc "Information about the associations."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If there are additional results, a pagination token for the next page of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?items = fun ?nextToken -> fun () -> { items; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("items",
           (Option.map x.items
              ~f:ServiceNetworkServiceAssociationList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let items =
        (Option.map ~f:ServiceNetworkServiceAssociationList.of_xml)
          (Xml.child xml_arg0 "items") in
      make ?nextToken ?items ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let items =
        field_map json__ "items" ServiceNetworkServiceAssociationList.of_json in
      make ?nextToken ?items ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the associations between a service network and a service. You can filter the list either by service or service network. You must provide either the service network identifier or the service identifier. Every association in Amazon VPC Lattice has a unique Amazon Resource Name (ARN), such as when a service network is associated with a VPC or when a service is associated with a service network. If the association is for a resource is shared with another account, the association includes the local account ID as the prefix in the ARN."]
module ListServiceNetworkServiceAssociationsRequest =
  struct
    type nonrec t =
      {
      serviceNetworkIdentifier: ServiceNetworkIdentifier.t option
        [@ocaml.doc "The ID or ARN of the service network."];
      serviceIdentifier: ServiceIdentifier.t option
        [@ocaml.doc "The ID or ARN of the service."];
      maxResults: MaxResults.t option
        [@ocaml.doc "The maximum number of results to return."];
      nextToken: NextToken.t option
        [@ocaml.doc "A pagination token for the next page of results."]}
    let make ?serviceNetworkIdentifier =
      fun ?serviceIdentifier ->
        fun ?maxResults ->
          fun ?nextToken ->
            fun () ->
              {
                serviceNetworkIdentifier;
                serviceIdentifier;
                maxResults;
                nextToken
              }
    let to_value x =
      structure_to_value
        [("serviceNetworkIdentifier",
           (Option.map x.serviceNetworkIdentifier
              ~f:ServiceNetworkIdentifier.to_value));
        ("serviceIdentifier",
          (Option.map x.serviceIdentifier ~f:ServiceIdentifier.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let serviceIdentifier =
        (Option.map ~f:ServiceIdentifier.of_xml)
          (Xml.child xml_arg0 "serviceIdentifier") in
      let serviceNetworkIdentifier =
        (Option.map ~f:ServiceNetworkIdentifier.of_xml)
          (Xml.child xml_arg0 "serviceNetworkIdentifier") in
      make ?nextToken ?maxResults ?serviceIdentifier
        ?serviceNetworkIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let serviceIdentifier =
        field_map json__ "serviceIdentifier" ServiceIdentifier.of_json in
      let serviceNetworkIdentifier =
        field_map json__ "serviceNetworkIdentifier"
          ServiceNetworkIdentifier.of_json in
      make ?nextToken ?maxResults ?serviceIdentifier
        ?serviceNetworkIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the associations between a service network and a service. You can filter the list either by service or service network. You must provide either the service network identifier or the service identifier. Every association in Amazon VPC Lattice has a unique Amazon Resource Name (ARN), such as when a service network is associated with a VPC or when a service is associated with a service network. If the association is for a resource is shared with another account, the association includes the local account ID as the prefix in the ARN."]
module ListServiceNetworkResourceAssociationsResponse =
  struct
    type nonrec t =
      {
      items: ServiceNetworkResourceAssociationList.t option
        [@ocaml.doc "Information about the associations."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If there are additional results, a pagination token for the next page of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?items = fun ?nextToken -> fun () -> { items; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("items",
           (Option.map x.items
              ~f:ServiceNetworkResourceAssociationList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let items =
        (Option.map ~f:ServiceNetworkResourceAssociationList.of_xml)
          (Xml.child xml_arg0 "items") in
      make ?nextToken ?items ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let items =
        field_map json__ "items"
          ServiceNetworkResourceAssociationList.of_json in
      make ?nextToken ?items ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the associations between a service network and a resource configuration."]
module ListServiceNetworkResourceAssociationsRequest =
  struct
    type nonrec t =
      {
      serviceNetworkIdentifier: ServiceNetworkIdentifier.t option
        [@ocaml.doc "The ID of the service network."];
      resourceConfigurationIdentifier:
        ResourceConfigurationIdentifier.t option
        [@ocaml.doc "The ID of the resource configuration."];
      maxResults: MaxResults.t option [@ocaml.doc "The maximum page size."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If there are additional results, a pagination token for the next page of results."];
      includeChildren: Boolean.t option
        [@ocaml.doc
          "Include service network resource associations of the child resource configuration with the grouped resource configuration. The type is boolean and the default value is false."]}
    let make ?serviceNetworkIdentifier =
      fun ?resourceConfigurationIdentifier ->
        fun ?maxResults ->
          fun ?nextToken ->
            fun ?includeChildren ->
              fun () ->
                {
                  serviceNetworkIdentifier;
                  resourceConfigurationIdentifier;
                  maxResults;
                  nextToken;
                  includeChildren
                }
    let to_value x =
      structure_to_value
        [("serviceNetworkIdentifier",
           (Option.map x.serviceNetworkIdentifier
              ~f:ServiceNetworkIdentifier.to_value));
        ("resourceConfigurationIdentifier",
          (Option.map x.resourceConfigurationIdentifier
             ~f:ResourceConfigurationIdentifier.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("includeChildren",
          (Option.map x.includeChildren ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let includeChildren =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "includeChildren") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let resourceConfigurationIdentifier =
        (Option.map ~f:ResourceConfigurationIdentifier.of_xml)
          (Xml.child xml_arg0 "resourceConfigurationIdentifier") in
      let serviceNetworkIdentifier =
        (Option.map ~f:ServiceNetworkIdentifier.of_xml)
          (Xml.child xml_arg0 "serviceNetworkIdentifier") in
      make ?includeChildren ?nextToken ?maxResults
        ?resourceConfigurationIdentifier ?serviceNetworkIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let includeChildren =
        field_map json__ "includeChildren" Boolean.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let resourceConfigurationIdentifier =
        field_map json__ "resourceConfigurationIdentifier"
          ResourceConfigurationIdentifier.of_json in
      let serviceNetworkIdentifier =
        field_map json__ "serviceNetworkIdentifier"
          ServiceNetworkIdentifier.of_json in
      make ?includeChildren ?nextToken ?maxResults
        ?resourceConfigurationIdentifier ?serviceNetworkIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the associations between a service network and a resource configuration."]
module ListRulesResponse =
  struct
    type nonrec t =
      {
      items: RuleSummaryList.t option
        [@ocaml.doc "Information about the rules."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If there are additional results, a pagination token for the next page of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?items = fun ?nextToken -> fun () -> { items; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("items", (Option.map x.items ~f:RuleSummaryList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let items =
        (Option.map ~f:RuleSummaryList.of_xml) (Xml.child xml_arg0 "items") in
      make ?nextToken ?items ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let items = field_map json__ "items" RuleSummaryList.of_json in
      make ?nextToken ?items ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the rules for the specified listener."]
module ListRulesRequest =
  struct
    type nonrec t =
      {
      serviceIdentifier: ServiceIdentifier.t
        [@ocaml.doc "The ID or ARN of the service."];
      listenerIdentifier: ListenerIdentifier.t
        [@ocaml.doc "The ID or ARN of the listener."];
      maxResults: MaxResults.t option
        [@ocaml.doc "The maximum number of results to return."];
      nextToken: NextToken.t option
        [@ocaml.doc "A pagination token for the next page of results."]}
    let context_ = "ListRulesRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~serviceIdentifier ->
          fun ~listenerIdentifier ->
            fun () ->
              { maxResults; nextToken; serviceIdentifier; listenerIdentifier
              }
    let to_value x =
      structure_to_value
        [("serviceIdentifier",
           (Some (ServiceIdentifier.to_value x.serviceIdentifier)));
        ("listenerIdentifier",
          (Some (ListenerIdentifier.to_value x.listenerIdentifier)));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let listenerIdentifier =
        ListenerIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "listenerIdentifier") in
      let serviceIdentifier =
        ServiceIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "serviceIdentifier") in
      make ?nextToken ?maxResults ~listenerIdentifier ~serviceIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let listenerIdentifier =
        field_map_exn json__ "listenerIdentifier" ListenerIdentifier.of_json in
      let serviceIdentifier =
        field_map_exn json__ "serviceIdentifier" ServiceIdentifier.of_json in
      make ?nextToken ?maxResults ~listenerIdentifier ~serviceIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the rules for the specified listener."]
module ListResourceGatewaysResponse =
  struct
    type nonrec t =
      {
      items: ResourceGatewayList.t option
        [@ocaml.doc "Information about the resource gateways."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If there are additional results, a pagination token for the next page of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?items = fun ?nextToken -> fun () -> { items; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("items", (Option.map x.items ~f:ResourceGatewayList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let items =
        (Option.map ~f:ResourceGatewayList.of_xml)
          (Xml.child xml_arg0 "items") in
      make ?nextToken ?items ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let items = field_map json__ "items" ResourceGatewayList.of_json in
      make ?nextToken ?items ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the resource gateways that you own or that were shared with you."]
module ListResourceGatewaysRequest =
  struct
    type nonrec t =
      {
      maxResults: MaxResults.t option [@ocaml.doc "The maximum page size."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If there are additional results, a pagination token for the next page of results."]}
    let make ?maxResults =
      fun ?nextToken -> fun () -> { maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      make ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      make ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the resource gateways that you own or that were shared with you."]
module ListResourceEndpointAssociationsResponse =
  struct
    type nonrec t =
      {
      items: ResourceEndpointAssociationList.t option
        [@ocaml.doc "Information about the VPC endpoint associations."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If there are additional results, a pagination token for the next page of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?items = fun ?nextToken -> fun () -> { items; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("items",
           (Option.map x.items ~f:ResourceEndpointAssociationList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let items =
        (Option.map ~f:ResourceEndpointAssociationList.of_xml)
          (Xml.child xml_arg0 "items") in
      make ?nextToken ?items ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let items =
        field_map json__ "items" ResourceEndpointAssociationList.of_json in
      make ?nextToken ?items ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the associations for the specified VPC endpoint."]
module ListResourceEndpointAssociationsRequest =
  struct
    type nonrec t =
      {
      resourceConfigurationIdentifier: ResourceConfigurationIdentifier.t
        [@ocaml.doc
          "The ID for the resource configuration associated with the VPC endpoint."];
      resourceEndpointAssociationIdentifier:
        ResourceEndpointAssociationIdentifier.t option
        [@ocaml.doc "The ID of the association."];
      vpcEndpointId: VpcEndpointId.t option
        [@ocaml.doc "The ID of the VPC endpoint in the association."];
      vpcEndpointOwner: VpcEndpointOwner.t option
        [@ocaml.doc "The owner of the VPC endpoint in the association."];
      maxResults: MaxResults.t option [@ocaml.doc "The maximum page size."];
      nextToken: NextToken.t option
        [@ocaml.doc "A pagination token for the next page of results."]}
    let context_ = "ListResourceEndpointAssociationsRequest"
    let make ?resourceEndpointAssociationIdentifier =
      fun ?vpcEndpointId ->
        fun ?vpcEndpointOwner ->
          fun ?maxResults ->
            fun ?nextToken ->
              fun ~resourceConfigurationIdentifier ->
                fun () ->
                  {
                    resourceEndpointAssociationIdentifier;
                    vpcEndpointId;
                    vpcEndpointOwner;
                    maxResults;
                    nextToken;
                    resourceConfigurationIdentifier
                  }
    let to_value x =
      structure_to_value
        [("resourceConfigurationIdentifier",
           (Some
              (ResourceConfigurationIdentifier.to_value
                 x.resourceConfigurationIdentifier)));
        ("resourceEndpointAssociationIdentifier",
          (Option.map x.resourceEndpointAssociationIdentifier
             ~f:ResourceEndpointAssociationIdentifier.to_value));
        ("vpcEndpointId",
          (Option.map x.vpcEndpointId ~f:VpcEndpointId.to_value));
        ("vpcEndpointOwner",
          (Option.map x.vpcEndpointOwner ~f:VpcEndpointOwner.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let vpcEndpointOwner =
        (Option.map ~f:VpcEndpointOwner.of_xml)
          (Xml.child xml_arg0 "vpcEndpointOwner") in
      let vpcEndpointId =
        (Option.map ~f:VpcEndpointId.of_xml)
          (Xml.child xml_arg0 "vpcEndpointId") in
      let resourceEndpointAssociationIdentifier =
        (Option.map ~f:ResourceEndpointAssociationIdentifier.of_xml)
          (Xml.child xml_arg0 "resourceEndpointAssociationIdentifier") in
      let resourceConfigurationIdentifier =
        ResourceConfigurationIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "resourceConfigurationIdentifier") in
      make ?nextToken ?maxResults ?vpcEndpointOwner ?vpcEndpointId
        ?resourceEndpointAssociationIdentifier
        ~resourceConfigurationIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let vpcEndpointOwner =
        field_map json__ "vpcEndpointOwner" VpcEndpointOwner.of_json in
      let vpcEndpointId =
        field_map json__ "vpcEndpointId" VpcEndpointId.of_json in
      let resourceEndpointAssociationIdentifier =
        field_map json__ "resourceEndpointAssociationIdentifier"
          ResourceEndpointAssociationIdentifier.of_json in
      let resourceConfigurationIdentifier =
        field_map_exn json__ "resourceConfigurationIdentifier"
          ResourceConfigurationIdentifier.of_json in
      make ?nextToken ?maxResults ?vpcEndpointOwner ?vpcEndpointId
        ?resourceEndpointAssociationIdentifier
        ~resourceConfigurationIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the associations for the specified VPC endpoint."]
module ListResourceConfigurationsResponse =
  struct
    type nonrec t =
      {
      items: ResourceConfigurationSummaryList.t option
        [@ocaml.doc "Information about the resource configurations."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If there are additional results, a pagination token for the next page of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?items = fun ?nextToken -> fun () -> { items; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("items",
           (Option.map x.items ~f:ResourceConfigurationSummaryList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let items =
        (Option.map ~f:ResourceConfigurationSummaryList.of_xml)
          (Xml.child xml_arg0 "items") in
      make ?nextToken ?items ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let items =
        field_map json__ "items" ResourceConfigurationSummaryList.of_json in
      make ?nextToken ?items ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the resource configurations owned by or shared with this account."]
module ListResourceConfigurationsRequest =
  struct
    type nonrec t =
      {
      resourceGatewayIdentifier: ResourceGatewayIdentifier.t option
        [@ocaml.doc
          "The ID of the resource gateway for the resource configuration."];
      resourceConfigurationGroupIdentifier:
        ResourceConfigurationIdentifier.t option
        [@ocaml.doc "The ID of the resource configuration of type Group."];
      domainVerificationIdentifier: DomainVerificationIdentifier.t option
        [@ocaml.doc "The domain verification ID."];
      maxResults: MaxResults.t option [@ocaml.doc "The maximum page size."];
      nextToken: NextToken.t option
        [@ocaml.doc "A pagination token for the next page of results."]}
    let make ?resourceGatewayIdentifier =
      fun ?resourceConfigurationGroupIdentifier ->
        fun ?domainVerificationIdentifier ->
          fun ?maxResults ->
            fun ?nextToken ->
              fun () ->
                {
                  resourceGatewayIdentifier;
                  resourceConfigurationGroupIdentifier;
                  domainVerificationIdentifier;
                  maxResults;
                  nextToken
                }
    let to_value x =
      structure_to_value
        [("resourceGatewayIdentifier",
           (Option.map x.resourceGatewayIdentifier
              ~f:ResourceGatewayIdentifier.to_value));
        ("resourceConfigurationGroupIdentifier",
          (Option.map x.resourceConfigurationGroupIdentifier
             ~f:ResourceConfigurationIdentifier.to_value));
        ("domainVerificationIdentifier",
          (Option.map x.domainVerificationIdentifier
             ~f:DomainVerificationIdentifier.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let domainVerificationIdentifier =
        (Option.map ~f:DomainVerificationIdentifier.of_xml)
          (Xml.child xml_arg0 "domainVerificationIdentifier") in
      let resourceConfigurationGroupIdentifier =
        (Option.map ~f:ResourceConfigurationIdentifier.of_xml)
          (Xml.child xml_arg0 "resourceConfigurationGroupIdentifier") in
      let resourceGatewayIdentifier =
        (Option.map ~f:ResourceGatewayIdentifier.of_xml)
          (Xml.child xml_arg0 "resourceGatewayIdentifier") in
      make ?nextToken ?maxResults ?domainVerificationIdentifier
        ?resourceConfigurationGroupIdentifier ?resourceGatewayIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let domainVerificationIdentifier =
        field_map json__ "domainVerificationIdentifier"
          DomainVerificationIdentifier.of_json in
      let resourceConfigurationGroupIdentifier =
        field_map json__ "resourceConfigurationGroupIdentifier"
          ResourceConfigurationIdentifier.of_json in
      let resourceGatewayIdentifier =
        field_map json__ "resourceGatewayIdentifier"
          ResourceGatewayIdentifier.of_json in
      make ?nextToken ?maxResults ?domainVerificationIdentifier
        ?resourceConfigurationGroupIdentifier ?resourceGatewayIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the resource configurations owned by or shared with this account."]
module ListListenersResponse =
  struct
    type nonrec t =
      {
      items: ListenerSummaryList.t option
        [@ocaml.doc "Information about the listeners."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If there are additional results, a pagination token for the next page of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?items = fun ?nextToken -> fun () -> { items; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("items", (Option.map x.items ~f:ListenerSummaryList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let items =
        (Option.map ~f:ListenerSummaryList.of_xml)
          (Xml.child xml_arg0 "items") in
      make ?nextToken ?items ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let items = field_map json__ "items" ListenerSummaryList.of_json in
      make ?nextToken ?items ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the listeners for the specified service."]
module ListListenersRequest =
  struct
    type nonrec t =
      {
      serviceIdentifier: ServiceIdentifier.t
        [@ocaml.doc "The ID or ARN of the service."];
      maxResults: MaxResults.t option
        [@ocaml.doc "The maximum number of results to return."];
      nextToken: NextToken.t option
        [@ocaml.doc "A pagination token for the next page of results."]}
    let context_ = "ListListenersRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~serviceIdentifier ->
          fun () -> { maxResults; nextToken; serviceIdentifier }
    let to_value x =
      structure_to_value
        [("serviceIdentifier",
           (Some (ServiceIdentifier.to_value x.serviceIdentifier)));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let serviceIdentifier =
        ServiceIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "serviceIdentifier") in
      make ?nextToken ?maxResults ~serviceIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let serviceIdentifier =
        field_map_exn json__ "serviceIdentifier" ServiceIdentifier.of_json in
      make ?nextToken ?maxResults ~serviceIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the listeners for the specified service."]
module ListDomainVerificationsResponse =
  struct
    type nonrec t =
      {
      items: DomainVerificationList.t option
        [@ocaml.doc "Information about the domain verifications."];
      nextToken: NextToken.t option
        [@ocaml.doc "A pagination token for the next page of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?items = fun ?nextToken -> fun () -> { items; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("items", (Option.map x.items ~f:DomainVerificationList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let items =
        (Option.map ~f:DomainVerificationList.of_xml)
          (Xml.child xml_arg0 "items") in
      make ?nextToken ?items ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let items = field_map json__ "items" DomainVerificationList.of_json in
      make ?nextToken ?items ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the domain verifications."]
module ListDomainVerificationsRequest =
  struct
    type nonrec t =
      {
      maxResults: MaxResults.t option
        [@ocaml.doc "The maximum number of results to return."];
      nextToken: NextToken.t option
        [@ocaml.doc "A pagination token for the next page of results."]}
    let make ?maxResults =
      fun ?nextToken -> fun () -> { maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      make ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      make ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the domain verifications."]
module ListAccessLogSubscriptionsResponse =
  struct
    type nonrec t =
      {
      items: AccessLogSubscriptionList.t option
        [@ocaml.doc "Information about the access log subscriptions."];
      nextToken: NextToken.t option
        [@ocaml.doc "A pagination token for the next page of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?items = fun ?nextToken -> fun () -> { items; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("items",
           (Option.map x.items ~f:AccessLogSubscriptionList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let items =
        (Option.map ~f:AccessLogSubscriptionList.of_xml)
          (Xml.child xml_arg0 "items") in
      make ?nextToken ?items ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let items = field_map json__ "items" AccessLogSubscriptionList.of_json in
      make ?nextToken ?items ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the access log subscriptions for the specified service network or service."]
module ListAccessLogSubscriptionsRequest =
  struct
    type nonrec t =
      {
      resourceIdentifier: ResourceIdentifier.t
        [@ocaml.doc "The ID or ARN of the service network or service."];
      maxResults: MaxResults.t option
        [@ocaml.doc "The maximum number of results to return."];
      nextToken: NextToken.t option
        [@ocaml.doc "A pagination token for the next page of results."]}
    let context_ = "ListAccessLogSubscriptionsRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~resourceIdentifier ->
          fun () -> { maxResults; nextToken; resourceIdentifier }
    let to_value x =
      structure_to_value
        [("resourceIdentifier",
           (Some (ResourceIdentifier.to_value x.resourceIdentifier)));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let resourceIdentifier =
        ResourceIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceIdentifier") in
      make ?nextToken ?maxResults ~resourceIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let resourceIdentifier =
        field_map_exn json__ "resourceIdentifier" ResourceIdentifier.of_json in
      make ?nextToken ?maxResults ~resourceIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the access log subscriptions for the specified service network or service."]
module GetTargetGroupResponse =
  struct
    type nonrec t =
      {
      id: TargetGroupId.t option [@ocaml.doc "The ID of the target group."];
      arn: TargetGroupArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the target group."];
      name: TargetGroupName.t option
        [@ocaml.doc "The name of the target group."];
      type_: TargetGroupType.t option [@ocaml.doc "The target group type."];
      config: TargetGroupConfig.t option
        [@ocaml.doc "The target group configuration."];
      createdAt: Timestamp.t option
        [@ocaml.doc
          "The date and time that the target group was created, in ISO-8601 format."];
      lastUpdatedAt: Timestamp.t option
        [@ocaml.doc
          "The date and time that the target group was last updated, in ISO-8601 format."];
      status: TargetGroupStatus.t option [@ocaml.doc "The status."];
      serviceArns: ServiceArnList.t option
        [@ocaml.doc "The Amazon Resource Names (ARNs) of the service."];
      failureMessage: String_.t option [@ocaml.doc "The failure message."];
      failureCode: String_.t option [@ocaml.doc "The failure code."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?id =
      fun ?arn ->
        fun ?name ->
          fun ?type_ ->
            fun ?config ->
              fun ?createdAt ->
                fun ?lastUpdatedAt ->
                  fun ?status ->
                    fun ?serviceArns ->
                      fun ?failureMessage ->
                        fun ?failureCode ->
                          fun () ->
                            {
                              id;
                              arn;
                              name;
                              type_;
                              config;
                              createdAt;
                              lastUpdatedAt;
                              status;
                              serviceArns;
                              failureMessage;
                              failureCode
                            }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:TargetGroupId.to_value));
        ("arn", (Option.map x.arn ~f:TargetGroupArn.to_value));
        ("name", (Option.map x.name ~f:TargetGroupName.to_value));
        ("type", (Option.map x.type_ ~f:TargetGroupType.to_value));
        ("config", (Option.map x.config ~f:TargetGroupConfig.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("lastUpdatedAt", (Option.map x.lastUpdatedAt ~f:Timestamp.to_value));
        ("status", (Option.map x.status ~f:TargetGroupStatus.to_value));
        ("serviceArns",
          (Option.map x.serviceArns ~f:ServiceArnList.to_value));
        ("failureMessage", (Option.map x.failureMessage ~f:String_.to_value));
        ("failureCode", (Option.map x.failureCode ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let failureCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "failureCode") in
      let failureMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "failureMessage") in
      let serviceArns =
        (Option.map ~f:ServiceArnList.of_xml)
          (Xml.child xml_arg0 "serviceArns") in
      let status =
        (Option.map ~f:TargetGroupStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let lastUpdatedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "lastUpdatedAt") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let config =
        (Option.map ~f:TargetGroupConfig.of_xml)
          (Xml.child xml_arg0 "config") in
      let type_ =
        (Option.map ~f:TargetGroupType.of_xml) (Xml.child xml_arg0 "type") in
      let name =
        (Option.map ~f:TargetGroupName.of_xml) (Xml.child xml_arg0 "name") in
      let arn =
        (Option.map ~f:TargetGroupArn.of_xml) (Xml.child xml_arg0 "arn") in
      let id = (Option.map ~f:TargetGroupId.of_xml) (Xml.child xml_arg0 "id") in
      make ?failureCode ?failureMessage ?serviceArns ?status ?lastUpdatedAt
        ?createdAt ?config ?type_ ?name ?arn ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let failureCode = field_map json__ "failureCode" String_.of_json in
      let failureMessage = field_map json__ "failureMessage" String_.of_json in
      let serviceArns = field_map json__ "serviceArns" ServiceArnList.of_json in
      let status = field_map json__ "status" TargetGroupStatus.of_json in
      let lastUpdatedAt = field_map json__ "lastUpdatedAt" Timestamp.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let config = field_map json__ "config" TargetGroupConfig.of_json in
      let type_ = field_map json__ "type" TargetGroupType.of_json in
      let name = field_map json__ "name" TargetGroupName.of_json in
      let arn = field_map json__ "arn" TargetGroupArn.of_json in
      let id = field_map json__ "id" TargetGroupId.of_json in
      make ?failureCode ?failureMessage ?serviceArns ?status ?lastUpdatedAt
        ?createdAt ?config ?type_ ?name ?arn ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves information about the specified target group."]
module GetTargetGroupRequest =
  struct
    type nonrec t =
      {
      targetGroupIdentifier: TargetGroupIdentifier.t
        [@ocaml.doc "The ID or ARN of the target group."]}
    let context_ = "GetTargetGroupRequest"
    let make ~targetGroupIdentifier = fun () -> { targetGroupIdentifier }
    let to_value x =
      structure_to_value
        [("targetGroupIdentifier",
           (Some (TargetGroupIdentifier.to_value x.targetGroupIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let targetGroupIdentifier =
        TargetGroupIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "targetGroupIdentifier") in
      make ~targetGroupIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let targetGroupIdentifier =
        field_map_exn json__ "targetGroupIdentifier"
          TargetGroupIdentifier.of_json in
      make ~targetGroupIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves information about the specified target group."]
module GetServiceResponse =
  struct
    type nonrec t =
      {
      id: ServiceId.t option [@ocaml.doc "The ID of the service."];
      name: ServiceName.t option [@ocaml.doc "The name of the service."];
      arn: ServiceArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the service."];
      createdAt: Timestamp.t option
        [@ocaml.doc
          "The date and time that the service was created, in ISO-8601 format."];
      lastUpdatedAt: Timestamp.t option
        [@ocaml.doc
          "The date and time that the service was last updated, in ISO-8601 format."];
      dnsEntry: DnsEntry.t option [@ocaml.doc "The DNS name of the service."];
      customDomainName: ServiceCustomDomainName.t option
        [@ocaml.doc "The custom domain name of the service."];
      certificateArn: CertificateArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the certificate."];
      status: ServiceStatus.t option
        [@ocaml.doc "The status of the service."];
      authType: AuthType.t option [@ocaml.doc "The type of IAM policy."];
      failureCode: FailureCode.t option [@ocaml.doc "The failure code."];
      failureMessage: FailureMessage.t option
        [@ocaml.doc "The failure message."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?id =
      fun ?name ->
        fun ?arn ->
          fun ?createdAt ->
            fun ?lastUpdatedAt ->
              fun ?dnsEntry ->
                fun ?customDomainName ->
                  fun ?certificateArn ->
                    fun ?status ->
                      fun ?authType ->
                        fun ?failureCode ->
                          fun ?failureMessage ->
                            fun () ->
                              {
                                id;
                                name;
                                arn;
                                createdAt;
                                lastUpdatedAt;
                                dnsEntry;
                                customDomainName;
                                certificateArn;
                                status;
                                authType;
                                failureCode;
                                failureMessage
                              }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:ServiceId.to_value));
        ("name", (Option.map x.name ~f:ServiceName.to_value));
        ("arn", (Option.map x.arn ~f:ServiceArn.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("lastUpdatedAt", (Option.map x.lastUpdatedAt ~f:Timestamp.to_value));
        ("dnsEntry", (Option.map x.dnsEntry ~f:DnsEntry.to_value));
        ("customDomainName",
          (Option.map x.customDomainName ~f:ServiceCustomDomainName.to_value));
        ("certificateArn",
          (Option.map x.certificateArn ~f:CertificateArn.to_value));
        ("status", (Option.map x.status ~f:ServiceStatus.to_value));
        ("authType", (Option.map x.authType ~f:AuthType.to_value));
        ("failureCode", (Option.map x.failureCode ~f:FailureCode.to_value));
        ("failureMessage",
          (Option.map x.failureMessage ~f:FailureMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      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 authType =
        (Option.map ~f:AuthType.of_xml) (Xml.child xml_arg0 "authType") in
      let status =
        (Option.map ~f:ServiceStatus.of_xml) (Xml.child xml_arg0 "status") in
      let certificateArn =
        (Option.map ~f:CertificateArn.of_xml)
          (Xml.child xml_arg0 "certificateArn") in
      let customDomainName =
        (Option.map ~f:ServiceCustomDomainName.of_xml)
          (Xml.child xml_arg0 "customDomainName") in
      let dnsEntry =
        (Option.map ~f:DnsEntry.of_xml) (Xml.child xml_arg0 "dnsEntry") in
      let lastUpdatedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "lastUpdatedAt") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let arn = (Option.map ~f:ServiceArn.of_xml) (Xml.child xml_arg0 "arn") in
      let name =
        (Option.map ~f:ServiceName.of_xml) (Xml.child xml_arg0 "name") in
      let id = (Option.map ~f:ServiceId.of_xml) (Xml.child xml_arg0 "id") in
      make ?failureMessage ?failureCode ?authType ?status ?certificateArn
        ?customDomainName ?dnsEntry ?lastUpdatedAt ?createdAt ?arn ?name ?id
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let failureMessage =
        field_map json__ "failureMessage" FailureMessage.of_json in
      let failureCode = field_map json__ "failureCode" FailureCode.of_json in
      let authType = field_map json__ "authType" AuthType.of_json in
      let status = field_map json__ "status" ServiceStatus.of_json in
      let certificateArn =
        field_map json__ "certificateArn" CertificateArn.of_json in
      let customDomainName =
        field_map json__ "customDomainName" ServiceCustomDomainName.of_json in
      let dnsEntry = field_map json__ "dnsEntry" DnsEntry.of_json in
      let lastUpdatedAt = field_map json__ "lastUpdatedAt" Timestamp.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let arn = field_map json__ "arn" ServiceArn.of_json in
      let name = field_map json__ "name" ServiceName.of_json in
      let id = field_map json__ "id" ServiceId.of_json in
      make ?failureMessage ?failureCode ?authType ?status ?certificateArn
        ?customDomainName ?dnsEntry ?lastUpdatedAt ?createdAt ?arn ?name ?id
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves information about the specified service."]
module GetServiceRequest =
  struct
    type nonrec t =
      {
      serviceIdentifier: ServiceIdentifier.t
        [@ocaml.doc "The ID or ARN of the service."]}
    let context_ = "GetServiceRequest"
    let make ~serviceIdentifier = fun () -> { serviceIdentifier }
    let to_value x =
      structure_to_value
        [("serviceIdentifier",
           (Some (ServiceIdentifier.to_value x.serviceIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let serviceIdentifier =
        ServiceIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "serviceIdentifier") in
      make ~serviceIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let serviceIdentifier =
        field_map_exn json__ "serviceIdentifier" ServiceIdentifier.of_json in
      make ~serviceIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves information about the specified service."]
module GetServiceNetworkVpcAssociationResponse =
  struct
    type nonrec t =
      {
      id: ServiceNetworkVpcAssociationId.t option
        [@ocaml.doc "The ID of the association."];
      status: ServiceNetworkVpcAssociationStatus.t option
        [@ocaml.doc "The status of the association."];
      arn: ServiceNetworkVpcAssociationArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the association."];
      createdBy: AccountId.t option
        [@ocaml.doc "The account that created the association."];
      createdAt: Timestamp.t option
        [@ocaml.doc
          "The date and time that the association was created, in ISO-8601 format."];
      serviceNetworkId: ServiceNetworkId.t option
        [@ocaml.doc "The ID of the service network."];
      serviceNetworkName: ServiceNetworkName.t option
        [@ocaml.doc "The name of the service network."];
      serviceNetworkArn: ServiceNetworkArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the service network."];
      vpcId: VpcId.t option [@ocaml.doc "The ID of the VPC."];
      securityGroupIds: SecurityGroupList.t option
        [@ocaml.doc "The IDs of the security groups."];
      privateDnsEnabled: Boolean.t option
        [@ocaml.doc
          "Indicates if private DNS is enabled in the VPC association."];
      failureMessage: String_.t option [@ocaml.doc "The failure message."];
      failureCode: String_.t option [@ocaml.doc "The failure code."];
      lastUpdatedAt: Timestamp.t option
        [@ocaml.doc
          "The date and time that the association was last updated, in ISO-8601 format."];
      dnsOptions: DnsOptions.t option
        [@ocaml.doc "DNS options for the service network VPC association."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?id =
      fun ?status ->
        fun ?arn ->
          fun ?createdBy ->
            fun ?createdAt ->
              fun ?serviceNetworkId ->
                fun ?serviceNetworkName ->
                  fun ?serviceNetworkArn ->
                    fun ?vpcId ->
                      fun ?securityGroupIds ->
                        fun ?privateDnsEnabled ->
                          fun ?failureMessage ->
                            fun ?failureCode ->
                              fun ?lastUpdatedAt ->
                                fun ?dnsOptions ->
                                  fun () ->
                                    {
                                      id;
                                      status;
                                      arn;
                                      createdBy;
                                      createdAt;
                                      serviceNetworkId;
                                      serviceNetworkName;
                                      serviceNetworkArn;
                                      vpcId;
                                      securityGroupIds;
                                      privateDnsEnabled;
                                      failureMessage;
                                      failureCode;
                                      lastUpdatedAt;
                                      dnsOptions
                                    }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:ServiceNetworkVpcAssociationId.to_value));
        ("status",
          (Option.map x.status ~f:ServiceNetworkVpcAssociationStatus.to_value));
        ("arn",
          (Option.map x.arn ~f:ServiceNetworkVpcAssociationArn.to_value));
        ("createdBy", (Option.map x.createdBy ~f:AccountId.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("serviceNetworkId",
          (Option.map x.serviceNetworkId ~f:ServiceNetworkId.to_value));
        ("serviceNetworkName",
          (Option.map x.serviceNetworkName ~f:ServiceNetworkName.to_value));
        ("serviceNetworkArn",
          (Option.map x.serviceNetworkArn ~f:ServiceNetworkArn.to_value));
        ("vpcId", (Option.map x.vpcId ~f:VpcId.to_value));
        ("securityGroupIds",
          (Option.map x.securityGroupIds ~f:SecurityGroupList.to_value));
        ("privateDnsEnabled",
          (Option.map x.privateDnsEnabled ~f:Boolean.to_value));
        ("failureMessage", (Option.map x.failureMessage ~f:String_.to_value));
        ("failureCode", (Option.map x.failureCode ~f:String_.to_value));
        ("lastUpdatedAt", (Option.map x.lastUpdatedAt ~f:Timestamp.to_value));
        ("dnsOptions", (Option.map x.dnsOptions ~f:DnsOptions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dnsOptions =
        (Option.map ~f:DnsOptions.of_xml) (Xml.child xml_arg0 "dnsOptions") in
      let lastUpdatedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "lastUpdatedAt") in
      let failureCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "failureCode") in
      let failureMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "failureMessage") in
      let privateDnsEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "privateDnsEnabled") in
      let securityGroupIds =
        (Option.map ~f:SecurityGroupList.of_xml)
          (Xml.child xml_arg0 "securityGroupIds") in
      let vpcId = (Option.map ~f:VpcId.of_xml) (Xml.child xml_arg0 "vpcId") in
      let serviceNetworkArn =
        (Option.map ~f:ServiceNetworkArn.of_xml)
          (Xml.child xml_arg0 "serviceNetworkArn") in
      let serviceNetworkName =
        (Option.map ~f:ServiceNetworkName.of_xml)
          (Xml.child xml_arg0 "serviceNetworkName") in
      let serviceNetworkId =
        (Option.map ~f:ServiceNetworkId.of_xml)
          (Xml.child xml_arg0 "serviceNetworkId") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let createdBy =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "createdBy") in
      let arn =
        (Option.map ~f:ServiceNetworkVpcAssociationArn.of_xml)
          (Xml.child xml_arg0 "arn") in
      let status =
        (Option.map ~f:ServiceNetworkVpcAssociationStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let id =
        (Option.map ~f:ServiceNetworkVpcAssociationId.of_xml)
          (Xml.child xml_arg0 "id") in
      make ?dnsOptions ?lastUpdatedAt ?failureCode ?failureMessage
        ?privateDnsEnabled ?securityGroupIds ?vpcId ?serviceNetworkArn
        ?serviceNetworkName ?serviceNetworkId ?createdAt ?createdBy ?arn
        ?status ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dnsOptions = field_map json__ "dnsOptions" DnsOptions.of_json in
      let lastUpdatedAt = field_map json__ "lastUpdatedAt" Timestamp.of_json in
      let failureCode = field_map json__ "failureCode" String_.of_json in
      let failureMessage = field_map json__ "failureMessage" String_.of_json in
      let privateDnsEnabled =
        field_map json__ "privateDnsEnabled" Boolean.of_json in
      let securityGroupIds =
        field_map json__ "securityGroupIds" SecurityGroupList.of_json in
      let vpcId = field_map json__ "vpcId" VpcId.of_json in
      let serviceNetworkArn =
        field_map json__ "serviceNetworkArn" ServiceNetworkArn.of_json in
      let serviceNetworkName =
        field_map json__ "serviceNetworkName" ServiceNetworkName.of_json in
      let serviceNetworkId =
        field_map json__ "serviceNetworkId" ServiceNetworkId.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let createdBy = field_map json__ "createdBy" AccountId.of_json in
      let arn =
        field_map json__ "arn" ServiceNetworkVpcAssociationArn.of_json in
      let status =
        field_map json__ "status" ServiceNetworkVpcAssociationStatus.of_json in
      let id = field_map json__ "id" ServiceNetworkVpcAssociationId.of_json in
      make ?dnsOptions ?lastUpdatedAt ?failureCode ?failureMessage
        ?privateDnsEnabled ?securityGroupIds ?vpcId ?serviceNetworkArn
        ?serviceNetworkName ?serviceNetworkId ?createdAt ?createdBy ?arn
        ?status ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves information about the specified association between a service network and a VPC."]
module GetServiceNetworkVpcAssociationRequest =
  struct
    type nonrec t =
      {
      serviceNetworkVpcAssociationIdentifier:
        ServiceNetworkVpcAssociationIdentifier.t
        [@ocaml.doc "The ID or ARN of the association."]}
    let context_ = "GetServiceNetworkVpcAssociationRequest"
    let make ~serviceNetworkVpcAssociationIdentifier =
      fun () -> { serviceNetworkVpcAssociationIdentifier }
    let to_value x =
      structure_to_value
        [("serviceNetworkVpcAssociationIdentifier",
           (Some
              (ServiceNetworkVpcAssociationIdentifier.to_value
                 x.serviceNetworkVpcAssociationIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let serviceNetworkVpcAssociationIdentifier =
        ServiceNetworkVpcAssociationIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "serviceNetworkVpcAssociationIdentifier") in
      make ~serviceNetworkVpcAssociationIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let serviceNetworkVpcAssociationIdentifier =
        field_map_exn json__ "serviceNetworkVpcAssociationIdentifier"
          ServiceNetworkVpcAssociationIdentifier.of_json in
      make ~serviceNetworkVpcAssociationIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves information about the specified association between a service network and a VPC."]
module GetServiceNetworkServiceAssociationResponse =
  struct
    type nonrec t =
      {
      id: ServiceNetworkServiceAssociationIdentifier.t option
        [@ocaml.doc "The ID of the service network and service association."];
      status: ServiceNetworkServiceAssociationStatus.t option
        [@ocaml.doc "The status of the association."];
      arn: ServiceNetworkServiceAssociationArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the association."];
      createdBy: AccountId.t option
        [@ocaml.doc "The account that created the association."];
      createdAt: Timestamp.t option
        [@ocaml.doc
          "The date and time that the association was created, in ISO-8601 format."];
      serviceId: ServiceId.t option [@ocaml.doc "The ID of the service."];
      serviceName: ServiceName.t option
        [@ocaml.doc "The name of the service."];
      serviceArn: ServiceArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the service."];
      serviceNetworkId: ServiceNetworkId.t option
        [@ocaml.doc "The ID of the service network."];
      serviceNetworkName: ServiceNetworkName.t option
        [@ocaml.doc "The name of the service network."];
      serviceNetworkArn: ServiceNetworkArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the service network."];
      dnsEntry: DnsEntry.t option [@ocaml.doc "The DNS name of the service."];
      customDomainName: ServiceCustomDomainName.t option
        [@ocaml.doc "The custom domain name of the service."];
      failureMessage: String_.t option [@ocaml.doc "The failure message."];
      failureCode: String_.t option [@ocaml.doc "The failure code."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?id =
      fun ?status ->
        fun ?arn ->
          fun ?createdBy ->
            fun ?createdAt ->
              fun ?serviceId ->
                fun ?serviceName ->
                  fun ?serviceArn ->
                    fun ?serviceNetworkId ->
                      fun ?serviceNetworkName ->
                        fun ?serviceNetworkArn ->
                          fun ?dnsEntry ->
                            fun ?customDomainName ->
                              fun ?failureMessage ->
                                fun ?failureCode ->
                                  fun () ->
                                    {
                                      id;
                                      status;
                                      arn;
                                      createdBy;
                                      createdAt;
                                      serviceId;
                                      serviceName;
                                      serviceArn;
                                      serviceNetworkId;
                                      serviceNetworkName;
                                      serviceNetworkArn;
                                      dnsEntry;
                                      customDomainName;
                                      failureMessage;
                                      failureCode
                                    }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("id",
           (Option.map x.id
              ~f:ServiceNetworkServiceAssociationIdentifier.to_value));
        ("status",
          (Option.map x.status
             ~f:ServiceNetworkServiceAssociationStatus.to_value));
        ("arn",
          (Option.map x.arn ~f:ServiceNetworkServiceAssociationArn.to_value));
        ("createdBy", (Option.map x.createdBy ~f:AccountId.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("serviceId", (Option.map x.serviceId ~f:ServiceId.to_value));
        ("serviceName", (Option.map x.serviceName ~f:ServiceName.to_value));
        ("serviceArn", (Option.map x.serviceArn ~f:ServiceArn.to_value));
        ("serviceNetworkId",
          (Option.map x.serviceNetworkId ~f:ServiceNetworkId.to_value));
        ("serviceNetworkName",
          (Option.map x.serviceNetworkName ~f:ServiceNetworkName.to_value));
        ("serviceNetworkArn",
          (Option.map x.serviceNetworkArn ~f:ServiceNetworkArn.to_value));
        ("dnsEntry", (Option.map x.dnsEntry ~f:DnsEntry.to_value));
        ("customDomainName",
          (Option.map x.customDomainName ~f:ServiceCustomDomainName.to_value));
        ("failureMessage", (Option.map x.failureMessage ~f:String_.to_value));
        ("failureCode", (Option.map x.failureCode ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let failureCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "failureCode") in
      let failureMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "failureMessage") in
      let customDomainName =
        (Option.map ~f:ServiceCustomDomainName.of_xml)
          (Xml.child xml_arg0 "customDomainName") in
      let dnsEntry =
        (Option.map ~f:DnsEntry.of_xml) (Xml.child xml_arg0 "dnsEntry") in
      let serviceNetworkArn =
        (Option.map ~f:ServiceNetworkArn.of_xml)
          (Xml.child xml_arg0 "serviceNetworkArn") in
      let serviceNetworkName =
        (Option.map ~f:ServiceNetworkName.of_xml)
          (Xml.child xml_arg0 "serviceNetworkName") in
      let serviceNetworkId =
        (Option.map ~f:ServiceNetworkId.of_xml)
          (Xml.child xml_arg0 "serviceNetworkId") in
      let serviceArn =
        (Option.map ~f:ServiceArn.of_xml) (Xml.child xml_arg0 "serviceArn") in
      let serviceName =
        (Option.map ~f:ServiceName.of_xml) (Xml.child xml_arg0 "serviceName") in
      let serviceId =
        (Option.map ~f:ServiceId.of_xml) (Xml.child xml_arg0 "serviceId") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let createdBy =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "createdBy") in
      let arn =
        (Option.map ~f:ServiceNetworkServiceAssociationArn.of_xml)
          (Xml.child xml_arg0 "arn") in
      let status =
        (Option.map ~f:ServiceNetworkServiceAssociationStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let id =
        (Option.map ~f:ServiceNetworkServiceAssociationIdentifier.of_xml)
          (Xml.child xml_arg0 "id") in
      make ?failureCode ?failureMessage ?customDomainName ?dnsEntry
        ?serviceNetworkArn ?serviceNetworkName ?serviceNetworkId ?serviceArn
        ?serviceName ?serviceId ?createdAt ?createdBy ?arn ?status ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let failureCode = field_map json__ "failureCode" String_.of_json in
      let failureMessage = field_map json__ "failureMessage" String_.of_json in
      let customDomainName =
        field_map json__ "customDomainName" ServiceCustomDomainName.of_json in
      let dnsEntry = field_map json__ "dnsEntry" DnsEntry.of_json in
      let serviceNetworkArn =
        field_map json__ "serviceNetworkArn" ServiceNetworkArn.of_json in
      let serviceNetworkName =
        field_map json__ "serviceNetworkName" ServiceNetworkName.of_json in
      let serviceNetworkId =
        field_map json__ "serviceNetworkId" ServiceNetworkId.of_json in
      let serviceArn = field_map json__ "serviceArn" ServiceArn.of_json in
      let serviceName = field_map json__ "serviceName" ServiceName.of_json in
      let serviceId = field_map json__ "serviceId" ServiceId.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let createdBy = field_map json__ "createdBy" AccountId.of_json in
      let arn =
        field_map json__ "arn" ServiceNetworkServiceAssociationArn.of_json in
      let status =
        field_map json__ "status"
          ServiceNetworkServiceAssociationStatus.of_json in
      let id =
        field_map json__ "id"
          ServiceNetworkServiceAssociationIdentifier.of_json in
      make ?failureCode ?failureMessage ?customDomainName ?dnsEntry
        ?serviceNetworkArn ?serviceNetworkName ?serviceNetworkId ?serviceArn
        ?serviceName ?serviceId ?createdAt ?createdBy ?arn ?status ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves information about the specified association between a service network and a service."]
module GetServiceNetworkServiceAssociationRequest =
  struct
    type nonrec t =
      {
      serviceNetworkServiceAssociationIdentifier:
        ServiceNetworkServiceAssociationIdentifier.t
        [@ocaml.doc "The ID or ARN of the association."]}
    let context_ = "GetServiceNetworkServiceAssociationRequest"
    let make ~serviceNetworkServiceAssociationIdentifier =
      fun () -> { serviceNetworkServiceAssociationIdentifier }
    let to_value x =
      structure_to_value
        [("serviceNetworkServiceAssociationIdentifier",
           (Some
              (ServiceNetworkServiceAssociationIdentifier.to_value
                 x.serviceNetworkServiceAssociationIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let serviceNetworkServiceAssociationIdentifier =
        ServiceNetworkServiceAssociationIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "serviceNetworkServiceAssociationIdentifier") in
      make ~serviceNetworkServiceAssociationIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let serviceNetworkServiceAssociationIdentifier =
        field_map_exn json__ "serviceNetworkServiceAssociationIdentifier"
          ServiceNetworkServiceAssociationIdentifier.of_json in
      make ~serviceNetworkServiceAssociationIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves information about the specified association between a service network and a service."]
module GetServiceNetworkResponse =
  struct
    type nonrec t =
      {
      id: ServiceNetworkId.t option
        [@ocaml.doc "The ID of the service network."];
      name: ServiceNetworkName.t option
        [@ocaml.doc "The name of the service network."];
      createdAt: Timestamp.t option
        [@ocaml.doc
          "The date and time that the service network was created, in ISO-8601 format."];
      lastUpdatedAt: Timestamp.t option
        [@ocaml.doc
          "The date and time of the last update, in ISO-8601 format."];
      arn: ServiceNetworkArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the service network."];
      authType: AuthType.t option [@ocaml.doc "The type of IAM policy."];
      sharingConfig: SharingConfig.t option
        [@ocaml.doc
          "Specifies if the service network is enabled for sharing."];
      numberOfAssociatedVPCs: Long.t option
        [@ocaml.doc
          "The number of VPCs associated with the service network."];
      numberOfAssociatedServices: Long.t option
        [@ocaml.doc
          "The number of services associated with the service network."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?id =
      fun ?name ->
        fun ?createdAt ->
          fun ?lastUpdatedAt ->
            fun ?arn ->
              fun ?authType ->
                fun ?sharingConfig ->
                  fun ?numberOfAssociatedVPCs ->
                    fun ?numberOfAssociatedServices ->
                      fun () ->
                        {
                          id;
                          name;
                          createdAt;
                          lastUpdatedAt;
                          arn;
                          authType;
                          sharingConfig;
                          numberOfAssociatedVPCs;
                          numberOfAssociatedServices
                        }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:ServiceNetworkId.to_value));
        ("name", (Option.map x.name ~f:ServiceNetworkName.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("lastUpdatedAt", (Option.map x.lastUpdatedAt ~f:Timestamp.to_value));
        ("arn", (Option.map x.arn ~f:ServiceNetworkArn.to_value));
        ("authType", (Option.map x.authType ~f:AuthType.to_value));
        ("sharingConfig",
          (Option.map x.sharingConfig ~f:SharingConfig.to_value));
        ("numberOfAssociatedVPCs",
          (Option.map x.numberOfAssociatedVPCs ~f:Long.to_value));
        ("numberOfAssociatedServices",
          (Option.map x.numberOfAssociatedServices ~f:Long.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let numberOfAssociatedServices =
        (Option.map ~f:Long.of_xml)
          (Xml.child xml_arg0 "numberOfAssociatedServices") in
      let numberOfAssociatedVPCs =
        (Option.map ~f:Long.of_xml)
          (Xml.child xml_arg0 "numberOfAssociatedVPCs") in
      let sharingConfig =
        (Option.map ~f:SharingConfig.of_xml)
          (Xml.child xml_arg0 "sharingConfig") in
      let authType =
        (Option.map ~f:AuthType.of_xml) (Xml.child xml_arg0 "authType") in
      let arn =
        (Option.map ~f:ServiceNetworkArn.of_xml) (Xml.child xml_arg0 "arn") in
      let lastUpdatedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "lastUpdatedAt") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let name =
        (Option.map ~f:ServiceNetworkName.of_xml) (Xml.child xml_arg0 "name") in
      let id =
        (Option.map ~f:ServiceNetworkId.of_xml) (Xml.child xml_arg0 "id") in
      make ?numberOfAssociatedServices ?numberOfAssociatedVPCs ?sharingConfig
        ?authType ?arn ?lastUpdatedAt ?createdAt ?name ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let numberOfAssociatedServices =
        field_map json__ "numberOfAssociatedServices" Long.of_json in
      let numberOfAssociatedVPCs =
        field_map json__ "numberOfAssociatedVPCs" Long.of_json in
      let sharingConfig =
        field_map json__ "sharingConfig" SharingConfig.of_json in
      let authType = field_map json__ "authType" AuthType.of_json in
      let arn = field_map json__ "arn" ServiceNetworkArn.of_json in
      let lastUpdatedAt = field_map json__ "lastUpdatedAt" Timestamp.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let name = field_map json__ "name" ServiceNetworkName.of_json in
      let id = field_map json__ "id" ServiceNetworkId.of_json in
      make ?numberOfAssociatedServices ?numberOfAssociatedVPCs ?sharingConfig
        ?authType ?arn ?lastUpdatedAt ?createdAt ?name ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves information about the specified service network."]
module GetServiceNetworkResourceAssociationResponse =
  struct
    type nonrec t =
      {
      id: ServiceNetworkResourceAssociationId.t option
        [@ocaml.doc "The ID of the association."];
      arn: ServiceNetworkResourceAssociationArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the association."];
      status: ServiceNetworkResourceAssociationStatus.t option
        [@ocaml.doc "The status of the association."];
      createdBy: AccountId.t option
        [@ocaml.doc "The account that created the association."];
      createdAt: Timestamp.t option
        [@ocaml.doc
          "The date and time that the association was created, in ISO-8601 format."];
      resourceConfigurationId: ResourceConfigurationId.t option
        [@ocaml.doc
          "The ID of the resource configuration that is associated with the service network."];
      resourceConfigurationArn: ResourceConfigurationArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the association."];
      resourceConfigurationName: ResourceConfigurationName.t option
        [@ocaml.doc
          "The name of the resource configuration that is associated with the service network."];
      serviceNetworkId: ServiceNetworkIdentifierWithoutRegex.t option
        [@ocaml.doc
          "The ID of the service network that is associated with the resource configuration."];
      serviceNetworkArn: ServiceNetworkIdentifierWithoutRegex.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the service network that is associated with the resource configuration."];
      serviceNetworkName: ServiceNetworkNameWithoutRegex.t option
        [@ocaml.doc
          "The name of the service network that is associated with the resource configuration."];
      failureReason: String_.t option
        [@ocaml.doc "The reason the association request failed."];
      failureCode: String_.t option [@ocaml.doc "The failure code."];
      lastUpdatedAt: Timestamp.t option
        [@ocaml.doc
          "The most recent date and time that the association was updated, in ISO-8601 format."];
      privateDnsEntry: DnsEntry.t option
        [@ocaml.doc "The private DNS entry for the service."];
      privateDnsEnabled: Boolean.t option
        [@ocaml.doc
          "Indicates if private DNS is enabled in the service network resource association."];
      dnsEntry: DnsEntry.t option
        [@ocaml.doc "The DNS entry for the service."];
      isManagedAssociation: Boolean.t option
        [@ocaml.doc
          "Indicates whether the association is managed by Amazon."];
      domainVerificationStatus: VerificationStatus.t option
        [@ocaml.doc
          "The domain verification status in the service network resource association."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?id =
      fun ?arn ->
        fun ?status ->
          fun ?createdBy ->
            fun ?createdAt ->
              fun ?resourceConfigurationId ->
                fun ?resourceConfigurationArn ->
                  fun ?resourceConfigurationName ->
                    fun ?serviceNetworkId ->
                      fun ?serviceNetworkArn ->
                        fun ?serviceNetworkName ->
                          fun ?failureReason ->
                            fun ?failureCode ->
                              fun ?lastUpdatedAt ->
                                fun ?privateDnsEntry ->
                                  fun ?privateDnsEnabled ->
                                    fun ?dnsEntry ->
                                      fun ?isManagedAssociation ->
                                        fun ?domainVerificationStatus ->
                                          fun () ->
                                            {
                                              id;
                                              arn;
                                              status;
                                              createdBy;
                                              createdAt;
                                              resourceConfigurationId;
                                              resourceConfigurationArn;
                                              resourceConfigurationName;
                                              serviceNetworkId;
                                              serviceNetworkArn;
                                              serviceNetworkName;
                                              failureReason;
                                              failureCode;
                                              lastUpdatedAt;
                                              privateDnsEntry;
                                              privateDnsEnabled;
                                              dnsEntry;
                                              isManagedAssociation;
                                              domainVerificationStatus
                                            }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("id",
           (Option.map x.id ~f:ServiceNetworkResourceAssociationId.to_value));
        ("arn",
          (Option.map x.arn ~f:ServiceNetworkResourceAssociationArn.to_value));
        ("status",
          (Option.map x.status
             ~f:ServiceNetworkResourceAssociationStatus.to_value));
        ("createdBy", (Option.map x.createdBy ~f:AccountId.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("resourceConfigurationId",
          (Option.map x.resourceConfigurationId
             ~f:ResourceConfigurationId.to_value));
        ("resourceConfigurationArn",
          (Option.map x.resourceConfigurationArn
             ~f:ResourceConfigurationArn.to_value));
        ("resourceConfigurationName",
          (Option.map x.resourceConfigurationName
             ~f:ResourceConfigurationName.to_value));
        ("serviceNetworkId",
          (Option.map x.serviceNetworkId
             ~f:ServiceNetworkIdentifierWithoutRegex.to_value));
        ("serviceNetworkArn",
          (Option.map x.serviceNetworkArn
             ~f:ServiceNetworkIdentifierWithoutRegex.to_value));
        ("serviceNetworkName",
          (Option.map x.serviceNetworkName
             ~f:ServiceNetworkNameWithoutRegex.to_value));
        ("failureReason", (Option.map x.failureReason ~f:String_.to_value));
        ("failureCode", (Option.map x.failureCode ~f:String_.to_value));
        ("lastUpdatedAt", (Option.map x.lastUpdatedAt ~f:Timestamp.to_value));
        ("privateDnsEntry",
          (Option.map x.privateDnsEntry ~f:DnsEntry.to_value));
        ("privateDnsEnabled",
          (Option.map x.privateDnsEnabled ~f:Boolean.to_value));
        ("dnsEntry", (Option.map x.dnsEntry ~f:DnsEntry.to_value));
        ("isManagedAssociation",
          (Option.map x.isManagedAssociation ~f:Boolean.to_value));
        ("domainVerificationStatus",
          (Option.map x.domainVerificationStatus
             ~f:VerificationStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let domainVerificationStatus =
        (Option.map ~f:VerificationStatus.of_xml)
          (Xml.child xml_arg0 "domainVerificationStatus") in
      let isManagedAssociation =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "isManagedAssociation") in
      let dnsEntry =
        (Option.map ~f:DnsEntry.of_xml) (Xml.child xml_arg0 "dnsEntry") in
      let privateDnsEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "privateDnsEnabled") in
      let privateDnsEntry =
        (Option.map ~f:DnsEntry.of_xml)
          (Xml.child xml_arg0 "privateDnsEntry") in
      let lastUpdatedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "lastUpdatedAt") in
      let failureCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "failureCode") in
      let failureReason =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "failureReason") in
      let serviceNetworkName =
        (Option.map ~f:ServiceNetworkNameWithoutRegex.of_xml)
          (Xml.child xml_arg0 "serviceNetworkName") in
      let serviceNetworkArn =
        (Option.map ~f:ServiceNetworkIdentifierWithoutRegex.of_xml)
          (Xml.child xml_arg0 "serviceNetworkArn") in
      let serviceNetworkId =
        (Option.map ~f:ServiceNetworkIdentifierWithoutRegex.of_xml)
          (Xml.child xml_arg0 "serviceNetworkId") in
      let resourceConfigurationName =
        (Option.map ~f:ResourceConfigurationName.of_xml)
          (Xml.child xml_arg0 "resourceConfigurationName") in
      let resourceConfigurationArn =
        (Option.map ~f:ResourceConfigurationArn.of_xml)
          (Xml.child xml_arg0 "resourceConfigurationArn") in
      let resourceConfigurationId =
        (Option.map ~f:ResourceConfigurationId.of_xml)
          (Xml.child xml_arg0 "resourceConfigurationId") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let createdBy =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "createdBy") in
      let status =
        (Option.map ~f:ServiceNetworkResourceAssociationStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let arn =
        (Option.map ~f:ServiceNetworkResourceAssociationArn.of_xml)
          (Xml.child xml_arg0 "arn") in
      let id =
        (Option.map ~f:ServiceNetworkResourceAssociationId.of_xml)
          (Xml.child xml_arg0 "id") in
      make ?domainVerificationStatus ?isManagedAssociation ?dnsEntry
        ?privateDnsEnabled ?privateDnsEntry ?lastUpdatedAt ?failureCode
        ?failureReason ?serviceNetworkName ?serviceNetworkArn
        ?serviceNetworkId ?resourceConfigurationName
        ?resourceConfigurationArn ?resourceConfigurationId ?createdAt
        ?createdBy ?status ?arn ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let domainVerificationStatus =
        field_map json__ "domainVerificationStatus"
          VerificationStatus.of_json in
      let isManagedAssociation =
        field_map json__ "isManagedAssociation" Boolean.of_json in
      let dnsEntry = field_map json__ "dnsEntry" DnsEntry.of_json in
      let privateDnsEnabled =
        field_map json__ "privateDnsEnabled" Boolean.of_json in
      let privateDnsEntry =
        field_map json__ "privateDnsEntry" DnsEntry.of_json in
      let lastUpdatedAt = field_map json__ "lastUpdatedAt" Timestamp.of_json in
      let failureCode = field_map json__ "failureCode" String_.of_json in
      let failureReason = field_map json__ "failureReason" String_.of_json in
      let serviceNetworkName =
        field_map json__ "serviceNetworkName"
          ServiceNetworkNameWithoutRegex.of_json in
      let serviceNetworkArn =
        field_map json__ "serviceNetworkArn"
          ServiceNetworkIdentifierWithoutRegex.of_json in
      let serviceNetworkId =
        field_map json__ "serviceNetworkId"
          ServiceNetworkIdentifierWithoutRegex.of_json in
      let resourceConfigurationName =
        field_map json__ "resourceConfigurationName"
          ResourceConfigurationName.of_json in
      let resourceConfigurationArn =
        field_map json__ "resourceConfigurationArn"
          ResourceConfigurationArn.of_json in
      let resourceConfigurationId =
        field_map json__ "resourceConfigurationId"
          ResourceConfigurationId.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let createdBy = field_map json__ "createdBy" AccountId.of_json in
      let status =
        field_map json__ "status"
          ServiceNetworkResourceAssociationStatus.of_json in
      let arn =
        field_map json__ "arn" ServiceNetworkResourceAssociationArn.of_json in
      let id =
        field_map json__ "id" ServiceNetworkResourceAssociationId.of_json in
      make ?domainVerificationStatus ?isManagedAssociation ?dnsEntry
        ?privateDnsEnabled ?privateDnsEntry ?lastUpdatedAt ?failureCode
        ?failureReason ?serviceNetworkName ?serviceNetworkArn
        ?serviceNetworkId ?resourceConfigurationName
        ?resourceConfigurationArn ?resourceConfigurationId ?createdAt
        ?createdBy ?status ?arn ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves information about the specified association between a service network and a resource configuration."]
module GetServiceNetworkResourceAssociationRequest =
  struct
    type nonrec t =
      {
      serviceNetworkResourceAssociationIdentifier:
        ServiceNetworkResourceAssociationIdentifier.t
        [@ocaml.doc "The ID of the association."]}
    let context_ = "GetServiceNetworkResourceAssociationRequest"
    let make ~serviceNetworkResourceAssociationIdentifier =
      fun () -> { serviceNetworkResourceAssociationIdentifier }
    let to_value x =
      structure_to_value
        [("serviceNetworkResourceAssociationIdentifier",
           (Some
              (ServiceNetworkResourceAssociationIdentifier.to_value
                 x.serviceNetworkResourceAssociationIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let serviceNetworkResourceAssociationIdentifier =
        ServiceNetworkResourceAssociationIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "serviceNetworkResourceAssociationIdentifier") in
      make ~serviceNetworkResourceAssociationIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let serviceNetworkResourceAssociationIdentifier =
        field_map_exn json__ "serviceNetworkResourceAssociationIdentifier"
          ServiceNetworkResourceAssociationIdentifier.of_json in
      make ~serviceNetworkResourceAssociationIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves information about the specified association between a service network and a resource configuration."]
module GetServiceNetworkRequest =
  struct
    type nonrec t =
      {
      serviceNetworkIdentifier: ServiceNetworkIdentifier.t
        [@ocaml.doc "The ID or ARN of the service network."]}
    let context_ = "GetServiceNetworkRequest"
    let make ~serviceNetworkIdentifier =
      fun () -> { serviceNetworkIdentifier }
    let to_value x =
      structure_to_value
        [("serviceNetworkIdentifier",
           (Some
              (ServiceNetworkIdentifier.to_value x.serviceNetworkIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let serviceNetworkIdentifier =
        ServiceNetworkIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "serviceNetworkIdentifier") in
      make ~serviceNetworkIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let serviceNetworkIdentifier =
        field_map_exn json__ "serviceNetworkIdentifier"
          ServiceNetworkIdentifier.of_json in
      make ~serviceNetworkIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves information about the specified service network."]
module GetRuleResponse =
  struct
    type nonrec t =
      {
      arn: RuleArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the listener."];
      id: RuleId.t option [@ocaml.doc "The ID of the listener."];
      name: RuleName.t option [@ocaml.doc "The name of the listener."];
      isDefault: Boolean.t option
        [@ocaml.doc "Indicates whether this is the default rule."];
      match_: RuleMatch.t option [@ocaml.doc "The rule match."];
      priority: RulePriority.t option
        [@ocaml.doc "The priority level for the specified rule."];
      action: RuleAction.t option
        [@ocaml.doc "The action for the default rule."];
      createdAt: Timestamp.t option
        [@ocaml.doc
          "The date and time that the listener rule was created, in ISO-8601 format."];
      lastUpdatedAt: Timestamp.t option
        [@ocaml.doc
          "The date and time that the listener rule was last updated, in ISO-8601 format."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?arn =
      fun ?id ->
        fun ?name ->
          fun ?isDefault ->
            fun ?match_ ->
              fun ?priority ->
                fun ?action ->
                  fun ?createdAt ->
                    fun ?lastUpdatedAt ->
                      fun () ->
                        {
                          arn;
                          id;
                          name;
                          isDefault;
                          match_;
                          priority;
                          action;
                          createdAt;
                          lastUpdatedAt
                        }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:RuleArn.to_value));
        ("id", (Option.map x.id ~f:RuleId.to_value));
        ("name", (Option.map x.name ~f:RuleName.to_value));
        ("isDefault", (Option.map x.isDefault ~f:Boolean.to_value));
        ("match", (Option.map x.match_ ~f:RuleMatch.to_value));
        ("priority", (Option.map x.priority ~f:RulePriority.to_value));
        ("action", (Option.map x.action ~f:RuleAction.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("lastUpdatedAt", (Option.map x.lastUpdatedAt ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdatedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "lastUpdatedAt") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let action =
        (Option.map ~f:RuleAction.of_xml) (Xml.child xml_arg0 "action") in
      let priority =
        (Option.map ~f:RulePriority.of_xml) (Xml.child xml_arg0 "priority") in
      let match_ =
        (Option.map ~f:RuleMatch.of_xml) (Xml.child xml_arg0 "match") in
      let isDefault =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "isDefault") in
      let name = (Option.map ~f:RuleName.of_xml) (Xml.child xml_arg0 "name") in
      let id = (Option.map ~f:RuleId.of_xml) (Xml.child xml_arg0 "id") in
      let arn = (Option.map ~f:RuleArn.of_xml) (Xml.child xml_arg0 "arn") in
      make ?lastUpdatedAt ?createdAt ?action ?priority ?match_ ?isDefault
        ?name ?id ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdatedAt = field_map json__ "lastUpdatedAt" Timestamp.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let action = field_map json__ "action" RuleAction.of_json in
      let priority = field_map json__ "priority" RulePriority.of_json in
      let match_ = field_map json__ "match" RuleMatch.of_json in
      let isDefault = field_map json__ "isDefault" Boolean.of_json in
      let name = field_map json__ "name" RuleName.of_json in
      let id = field_map json__ "id" RuleId.of_json in
      let arn = field_map json__ "arn" RuleArn.of_json in
      make ?lastUpdatedAt ?createdAt ?action ?priority ?match_ ?isDefault
        ?name ?id ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves information about the specified listener rules. You can also retrieve information about the default listener rule. For more information, see Listener rules in the Amazon VPC Lattice User Guide."]
module GetRuleRequest =
  struct
    type nonrec t =
      {
      serviceIdentifier: ServiceIdentifier.t
        [@ocaml.doc "The ID or ARN of the service."];
      listenerIdentifier: ListenerIdentifier.t
        [@ocaml.doc "The ID or ARN of the listener."];
      ruleIdentifier: RuleIdentifier.t
        [@ocaml.doc "The ID or ARN of the listener rule."]}
    let context_ = "GetRuleRequest"
    let make ~serviceIdentifier =
      fun ~listenerIdentifier ->
        fun ~ruleIdentifier ->
          fun () -> { serviceIdentifier; listenerIdentifier; ruleIdentifier }
    let to_value x =
      structure_to_value
        [("serviceIdentifier",
           (Some (ServiceIdentifier.to_value x.serviceIdentifier)));
        ("listenerIdentifier",
          (Some (ListenerIdentifier.to_value x.listenerIdentifier)));
        ("ruleIdentifier", (Some (RuleIdentifier.to_value x.ruleIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ruleIdentifier =
        RuleIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ruleIdentifier") in
      let listenerIdentifier =
        ListenerIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "listenerIdentifier") in
      let serviceIdentifier =
        ServiceIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "serviceIdentifier") in
      make ~ruleIdentifier ~listenerIdentifier ~serviceIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ruleIdentifier =
        field_map_exn json__ "ruleIdentifier" RuleIdentifier.of_json in
      let listenerIdentifier =
        field_map_exn json__ "listenerIdentifier" ListenerIdentifier.of_json in
      let serviceIdentifier =
        field_map_exn json__ "serviceIdentifier" ServiceIdentifier.of_json in
      make ~ruleIdentifier ~listenerIdentifier ~serviceIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves information about the specified listener rules. You can also retrieve information about the default listener rule. For more information, see Listener rules in the Amazon VPC Lattice User Guide."]
module GetResourcePolicyResponse =
  struct
    type nonrec t =
      {
      policy: PolicyString.t option [@ocaml.doc "An IAM policy."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?policy = fun () -> { policy }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("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 information about the specified resource policy. The resource policy is an IAM policy created on behalf of the resource owner when they share a resource."]
module GetResourcePolicyRequest =
  struct
    type nonrec t =
      {
      resourceArn: ResourceArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the service network or service."]}
    let context_ = "GetResourcePolicyRequest"
    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 information about the specified resource policy. The resource policy is an IAM policy created on behalf of the resource owner when they share a resource."]
module GetResourceGatewayResponse =
  struct
    type nonrec t =
      {
      name: ResourceGatewayName.t option
        [@ocaml.doc "The name of the resource gateway."];
      id: ResourceGatewayId.t option
        [@ocaml.doc "The ID of the resource gateway."];
      arn: ResourceGatewayArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource gateway."];
      status: ResourceGatewayStatus.t option
        [@ocaml.doc "The status for the resource gateway."];
      vpcId: VpcId.t option
        [@ocaml.doc "The ID of the VPC for the resource gateway."];
      subnetIds: SubnetList.t option
        [@ocaml.doc "The IDs of the VPC subnets for resource gateway."];
      serviceManaged: Boolean.t option
        [@ocaml.doc
          "Indicates whether the resource gateway is managed by an AWS service."];
      managedBy: String_.t option
        [@ocaml.doc "The AWS service that manages the resource gateway."];
      securityGroupIds: SecurityGroupList.t option
        [@ocaml.doc
          "The security group IDs associated with the resource gateway."];
      ipAddressType: ResourceGatewayIpAddressType.t option
        [@ocaml.doc "The type of IP address for the resource gateway."];
      ipv4AddressesPerEni: Ipv4AddressesPerEni.t option
        [@ocaml.doc
          "The number of IPv4 addresses in each ENI for the resource gateway."];
      resourceConfigDnsResolution: ResourceConfigDnsResolution.t option
        [@ocaml.doc
          "The DNS resolution type for resource configurations that are associated with this resource gateway."];
      createdAt: Timestamp.t option
        [@ocaml.doc
          "The date and time that the resource gateway was created, in ISO-8601 format."];
      lastUpdatedAt: Timestamp.t option
        [@ocaml.doc
          "The date and time that the resource gateway was last updated, in ISO-8601 format."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?name =
      fun ?id ->
        fun ?arn ->
          fun ?status ->
            fun ?vpcId ->
              fun ?subnetIds ->
                fun ?serviceManaged ->
                  fun ?managedBy ->
                    fun ?securityGroupIds ->
                      fun ?ipAddressType ->
                        fun ?ipv4AddressesPerEni ->
                          fun ?resourceConfigDnsResolution ->
                            fun ?createdAt ->
                              fun ?lastUpdatedAt ->
                                fun () ->
                                  {
                                    name;
                                    id;
                                    arn;
                                    status;
                                    vpcId;
                                    subnetIds;
                                    serviceManaged;
                                    managedBy;
                                    securityGroupIds;
                                    ipAddressType;
                                    ipv4AddressesPerEni;
                                    resourceConfigDnsResolution;
                                    createdAt;
                                    lastUpdatedAt
                                  }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:ResourceGatewayName.to_value));
        ("id", (Option.map x.id ~f:ResourceGatewayId.to_value));
        ("arn", (Option.map x.arn ~f:ResourceGatewayArn.to_value));
        ("status", (Option.map x.status ~f:ResourceGatewayStatus.to_value));
        ("vpcId", (Option.map x.vpcId ~f:VpcId.to_value));
        ("subnetIds", (Option.map x.subnetIds ~f:SubnetList.to_value));
        ("serviceManaged", (Option.map x.serviceManaged ~f:Boolean.to_value));
        ("managedBy", (Option.map x.managedBy ~f:String_.to_value));
        ("securityGroupIds",
          (Option.map x.securityGroupIds ~f:SecurityGroupList.to_value));
        ("ipAddressType",
          (Option.map x.ipAddressType
             ~f:ResourceGatewayIpAddressType.to_value));
        ("ipv4AddressesPerEni",
          (Option.map x.ipv4AddressesPerEni ~f:Ipv4AddressesPerEni.to_value));
        ("resourceConfigDnsResolution",
          (Option.map x.resourceConfigDnsResolution
             ~f:ResourceConfigDnsResolution.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("lastUpdatedAt", (Option.map x.lastUpdatedAt ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdatedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "lastUpdatedAt") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let resourceConfigDnsResolution =
        (Option.map ~f:ResourceConfigDnsResolution.of_xml)
          (Xml.child xml_arg0 "resourceConfigDnsResolution") in
      let ipv4AddressesPerEni =
        (Option.map ~f:Ipv4AddressesPerEni.of_xml)
          (Xml.child xml_arg0 "ipv4AddressesPerEni") in
      let ipAddressType =
        (Option.map ~f:ResourceGatewayIpAddressType.of_xml)
          (Xml.child xml_arg0 "ipAddressType") in
      let securityGroupIds =
        (Option.map ~f:SecurityGroupList.of_xml)
          (Xml.child xml_arg0 "securityGroupIds") in
      let managedBy =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "managedBy") in
      let serviceManaged =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "serviceManaged") in
      let subnetIds =
        (Option.map ~f:SubnetList.of_xml) (Xml.child xml_arg0 "subnetIds") in
      let vpcId = (Option.map ~f:VpcId.of_xml) (Xml.child xml_arg0 "vpcId") in
      let status =
        (Option.map ~f:ResourceGatewayStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let arn =
        (Option.map ~f:ResourceGatewayArn.of_xml) (Xml.child xml_arg0 "arn") in
      let id =
        (Option.map ~f:ResourceGatewayId.of_xml) (Xml.child xml_arg0 "id") in
      let name =
        (Option.map ~f:ResourceGatewayName.of_xml)
          (Xml.child xml_arg0 "name") in
      make ?lastUpdatedAt ?createdAt ?resourceConfigDnsResolution
        ?ipv4AddressesPerEni ?ipAddressType ?securityGroupIds ?managedBy
        ?serviceManaged ?subnetIds ?vpcId ?status ?arn ?id ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdatedAt = field_map json__ "lastUpdatedAt" Timestamp.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let resourceConfigDnsResolution =
        field_map json__ "resourceConfigDnsResolution"
          ResourceConfigDnsResolution.of_json in
      let ipv4AddressesPerEni =
        field_map json__ "ipv4AddressesPerEni" Ipv4AddressesPerEni.of_json in
      let ipAddressType =
        field_map json__ "ipAddressType" ResourceGatewayIpAddressType.of_json in
      let securityGroupIds =
        field_map json__ "securityGroupIds" SecurityGroupList.of_json in
      let managedBy = field_map json__ "managedBy" String_.of_json in
      let serviceManaged = field_map json__ "serviceManaged" Boolean.of_json in
      let subnetIds = field_map json__ "subnetIds" SubnetList.of_json in
      let vpcId = field_map json__ "vpcId" VpcId.of_json in
      let status = field_map json__ "status" ResourceGatewayStatus.of_json in
      let arn = field_map json__ "arn" ResourceGatewayArn.of_json in
      let id = field_map json__ "id" ResourceGatewayId.of_json in
      let name = field_map json__ "name" ResourceGatewayName.of_json in
      make ?lastUpdatedAt ?createdAt ?resourceConfigDnsResolution
        ?ipv4AddressesPerEni ?ipAddressType ?securityGroupIds ?managedBy
        ?serviceManaged ?subnetIds ?vpcId ?status ?arn ?id ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves information about the specified resource gateway."]
module GetResourceGatewayRequest =
  struct
    type nonrec t =
      {
      resourceGatewayIdentifier: ResourceGatewayIdentifier.t
        [@ocaml.doc "The ID of the resource gateway."]}
    let context_ = "GetResourceGatewayRequest"
    let make ~resourceGatewayIdentifier =
      fun () -> { resourceGatewayIdentifier }
    let to_value x =
      structure_to_value
        [("resourceGatewayIdentifier",
           (Some
              (ResourceGatewayIdentifier.to_value x.resourceGatewayIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceGatewayIdentifier =
        ResourceGatewayIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "resourceGatewayIdentifier") in
      make ~resourceGatewayIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceGatewayIdentifier =
        field_map_exn json__ "resourceGatewayIdentifier"
          ResourceGatewayIdentifier.of_json in
      make ~resourceGatewayIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves information about the specified resource gateway."]
module GetResourceConfigurationResponse =
  struct
    type nonrec t =
      {
      id: ResourceConfigurationId.t option
        [@ocaml.doc "The ID of the resource configuration."];
      name: ResourceConfigurationName.t option
        [@ocaml.doc "The name of the resource configuration."];
      arn: ResourceConfigurationArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource configuration."];
      resourceGatewayId: ResourceGatewayId.t option
        [@ocaml.doc
          "The ID of the resource gateway used to connect to the resource configuration in a given VPC. You can specify the resource gateway identifier only for resource configurations with type SINGLE, GROUP, or ARN."];
      resourceConfigurationGroupId: ResourceConfigurationId.t option
        [@ocaml.doc "The ID of the group resource configuration."];
      type_: ResourceConfigurationType.t option
        [@ocaml.doc
          "The type of resource configuration. SINGLE - A single resource. GROUP - A group of resources. CHILD - A single resource that is part of a group resource configuration. ARN - An Amazon Web Services resource."];
      allowAssociationToShareableServiceNetwork: Boolean.t option
        [@ocaml.doc
          "Specifies whether the resource configuration is associated with a sharable service network."];
      portRanges: PortRangeList.t option
        [@ocaml.doc
          "The TCP port ranges that a consumer can use to access a resource configuration. You can separate port ranges with a comma. Example: 1-65535 or 1,2,22-30"];
      protocol: ProtocolType.t option
        [@ocaml.doc
          "The TCP protocol accepted by the specified resource configuration."];
      customDomainName: DomainName.t option
        [@ocaml.doc "The custom domain name of the resource configuration."];
      status: ResourceConfigurationStatus.t option
        [@ocaml.doc "The status of the resource configuration."];
      resourceConfigurationDefinition:
        ResourceConfigurationDefinition.t option
        [@ocaml.doc "The resource configuration."];
      createdAt: Timestamp.t option
        [@ocaml.doc
          "The date and time that the resource configuration was created, in ISO-8601 format."];
      amazonManaged: Boolean.t option
        [@ocaml.doc
          "Indicates whether the resource configuration was created and is managed by Amazon."];
      failureReason: String_.t option
        [@ocaml.doc
          "The reason the create-resource-configuration request failed."];
      lastUpdatedAt: Timestamp.t option
        [@ocaml.doc
          "The most recent date and time that the resource configuration was updated, in ISO-8601 format."];
      domainVerificationId: DomainVerificationId.t option
        [@ocaml.doc "The domain verification ID."];
      domainVerificationArn: DomainVerificationArn.t option
        [@ocaml.doc "The ARN of the domain verification."];
      domainVerificationStatus: VerificationStatus.t option
        [@ocaml.doc "The domain verification status."];
      groupDomain: DomainName.t option
        [@ocaml.doc
          "(GROUP) The group domain for a group resource configuration. Any domains that you create for the child resource are subdomains of the group domain. Child resources inherit the verification status of the domain."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?id =
      fun ?name ->
        fun ?arn ->
          fun ?resourceGatewayId ->
            fun ?resourceConfigurationGroupId ->
              fun ?type_ ->
                fun ?allowAssociationToShareableServiceNetwork ->
                  fun ?portRanges ->
                    fun ?protocol ->
                      fun ?customDomainName ->
                        fun ?status ->
                          fun ?resourceConfigurationDefinition ->
                            fun ?createdAt ->
                              fun ?amazonManaged ->
                                fun ?failureReason ->
                                  fun ?lastUpdatedAt ->
                                    fun ?domainVerificationId ->
                                      fun ?domainVerificationArn ->
                                        fun ?domainVerificationStatus ->
                                          fun ?groupDomain ->
                                            fun () ->
                                              {
                                                id;
                                                name;
                                                arn;
                                                resourceGatewayId;
                                                resourceConfigurationGroupId;
                                                type_;
                                                allowAssociationToShareableServiceNetwork;
                                                portRanges;
                                                protocol;
                                                customDomainName;
                                                status;
                                                resourceConfigurationDefinition;
                                                createdAt;
                                                amazonManaged;
                                                failureReason;
                                                lastUpdatedAt;
                                                domainVerificationId;
                                                domainVerificationArn;
                                                domainVerificationStatus;
                                                groupDomain
                                              }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:ResourceConfigurationId.to_value));
        ("name", (Option.map x.name ~f:ResourceConfigurationName.to_value));
        ("arn", (Option.map x.arn ~f:ResourceConfigurationArn.to_value));
        ("resourceGatewayId",
          (Option.map x.resourceGatewayId ~f:ResourceGatewayId.to_value));
        ("resourceConfigurationGroupId",
          (Option.map x.resourceConfigurationGroupId
             ~f:ResourceConfigurationId.to_value));
        ("type", (Option.map x.type_ ~f:ResourceConfigurationType.to_value));
        ("allowAssociationToShareableServiceNetwork",
          (Option.map x.allowAssociationToShareableServiceNetwork
             ~f:Boolean.to_value));
        ("portRanges", (Option.map x.portRanges ~f:PortRangeList.to_value));
        ("protocol", (Option.map x.protocol ~f:ProtocolType.to_value));
        ("customDomainName",
          (Option.map x.customDomainName ~f:DomainName.to_value));
        ("status",
          (Option.map x.status ~f:ResourceConfigurationStatus.to_value));
        ("resourceConfigurationDefinition",
          (Option.map x.resourceConfigurationDefinition
             ~f:ResourceConfigurationDefinition.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("amazonManaged", (Option.map x.amazonManaged ~f:Boolean.to_value));
        ("failureReason", (Option.map x.failureReason ~f:String_.to_value));
        ("lastUpdatedAt", (Option.map x.lastUpdatedAt ~f:Timestamp.to_value));
        ("domainVerificationId",
          (Option.map x.domainVerificationId ~f:DomainVerificationId.to_value));
        ("domainVerificationArn",
          (Option.map x.domainVerificationArn
             ~f:DomainVerificationArn.to_value));
        ("domainVerificationStatus",
          (Option.map x.domainVerificationStatus
             ~f:VerificationStatus.to_value));
        ("groupDomain", (Option.map x.groupDomain ~f:DomainName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let groupDomain =
        (Option.map ~f:DomainName.of_xml) (Xml.child xml_arg0 "groupDomain") in
      let domainVerificationStatus =
        (Option.map ~f:VerificationStatus.of_xml)
          (Xml.child xml_arg0 "domainVerificationStatus") in
      let domainVerificationArn =
        (Option.map ~f:DomainVerificationArn.of_xml)
          (Xml.child xml_arg0 "domainVerificationArn") in
      let domainVerificationId =
        (Option.map ~f:DomainVerificationId.of_xml)
          (Xml.child xml_arg0 "domainVerificationId") in
      let lastUpdatedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "lastUpdatedAt") in
      let failureReason =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "failureReason") in
      let amazonManaged =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "amazonManaged") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let resourceConfigurationDefinition =
        (Option.map ~f:ResourceConfigurationDefinition.of_xml)
          (Xml.child xml_arg0 "resourceConfigurationDefinition") in
      let status =
        (Option.map ~f:ResourceConfigurationStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let customDomainName =
        (Option.map ~f:DomainName.of_xml)
          (Xml.child xml_arg0 "customDomainName") in
      let protocol =
        (Option.map ~f:ProtocolType.of_xml) (Xml.child xml_arg0 "protocol") in
      let portRanges =
        (Option.map ~f:PortRangeList.of_xml)
          (Xml.child xml_arg0 "portRanges") in
      let allowAssociationToShareableServiceNetwork =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "allowAssociationToShareableServiceNetwork") in
      let type_ =
        (Option.map ~f:ResourceConfigurationType.of_xml)
          (Xml.child xml_arg0 "type") in
      let resourceConfigurationGroupId =
        (Option.map ~f:ResourceConfigurationId.of_xml)
          (Xml.child xml_arg0 "resourceConfigurationGroupId") in
      let resourceGatewayId =
        (Option.map ~f:ResourceGatewayId.of_xml)
          (Xml.child xml_arg0 "resourceGatewayId") in
      let arn =
        (Option.map ~f:ResourceConfigurationArn.of_xml)
          (Xml.child xml_arg0 "arn") in
      let name =
        (Option.map ~f:ResourceConfigurationName.of_xml)
          (Xml.child xml_arg0 "name") in
      let id =
        (Option.map ~f:ResourceConfigurationId.of_xml)
          (Xml.child xml_arg0 "id") in
      make ?groupDomain ?domainVerificationStatus ?domainVerificationArn
        ?domainVerificationId ?lastUpdatedAt ?failureReason ?amazonManaged
        ?createdAt ?resourceConfigurationDefinition ?status ?customDomainName
        ?protocol ?portRanges ?allowAssociationToShareableServiceNetwork
        ?type_ ?resourceConfigurationGroupId ?resourceGatewayId ?arn ?name
        ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let groupDomain = field_map json__ "groupDomain" DomainName.of_json in
      let domainVerificationStatus =
        field_map json__ "domainVerificationStatus"
          VerificationStatus.of_json in
      let domainVerificationArn =
        field_map json__ "domainVerificationArn"
          DomainVerificationArn.of_json in
      let domainVerificationId =
        field_map json__ "domainVerificationId" DomainVerificationId.of_json in
      let lastUpdatedAt = field_map json__ "lastUpdatedAt" Timestamp.of_json in
      let failureReason = field_map json__ "failureReason" String_.of_json in
      let amazonManaged = field_map json__ "amazonManaged" Boolean.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let resourceConfigurationDefinition =
        field_map json__ "resourceConfigurationDefinition"
          ResourceConfigurationDefinition.of_json in
      let status =
        field_map json__ "status" ResourceConfigurationStatus.of_json in
      let customDomainName =
        field_map json__ "customDomainName" DomainName.of_json in
      let protocol = field_map json__ "protocol" ProtocolType.of_json in
      let portRanges = field_map json__ "portRanges" PortRangeList.of_json in
      let allowAssociationToShareableServiceNetwork =
        field_map json__ "allowAssociationToShareableServiceNetwork"
          Boolean.of_json in
      let type_ = field_map json__ "type" ResourceConfigurationType.of_json in
      let resourceConfigurationGroupId =
        field_map json__ "resourceConfigurationGroupId"
          ResourceConfigurationId.of_json in
      let resourceGatewayId =
        field_map json__ "resourceGatewayId" ResourceGatewayId.of_json in
      let arn = field_map json__ "arn" ResourceConfigurationArn.of_json in
      let name = field_map json__ "name" ResourceConfigurationName.of_json in
      let id = field_map json__ "id" ResourceConfigurationId.of_json in
      make ?groupDomain ?domainVerificationStatus ?domainVerificationArn
        ?domainVerificationId ?lastUpdatedAt ?failureReason ?amazonManaged
        ?createdAt ?resourceConfigurationDefinition ?status ?customDomainName
        ?protocol ?portRanges ?allowAssociationToShareableServiceNetwork
        ?type_ ?resourceConfigurationGroupId ?resourceGatewayId ?arn ?name
        ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves information about the specified resource configuration."]
module GetResourceConfigurationRequest =
  struct
    type nonrec t =
      {
      resourceConfigurationIdentifier: ResourceConfigurationIdentifier.t
        [@ocaml.doc "The ID of the resource configuration."]}
    let context_ = "GetResourceConfigurationRequest"
    let make ~resourceConfigurationIdentifier =
      fun () -> { resourceConfigurationIdentifier }
    let to_value x =
      structure_to_value
        [("resourceConfigurationIdentifier",
           (Some
              (ResourceConfigurationIdentifier.to_value
                 x.resourceConfigurationIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceConfigurationIdentifier =
        ResourceConfigurationIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "resourceConfigurationIdentifier") in
      make ~resourceConfigurationIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceConfigurationIdentifier =
        field_map_exn json__ "resourceConfigurationIdentifier"
          ResourceConfigurationIdentifier.of_json in
      make ~resourceConfigurationIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves information about the specified resource configuration."]
module GetListenerResponse =
  struct
    type nonrec t =
      {
      arn: ListenerArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the listener."];
      id: ListenerId.t option [@ocaml.doc "The ID of the listener."];
      name: ListenerName.t option [@ocaml.doc "The name of the listener."];
      protocol: ListenerProtocol.t option
        [@ocaml.doc "The listener protocol."];
      port: Port.t option [@ocaml.doc "The listener port."];
      serviceArn: ServiceArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the service."];
      serviceId: ServiceId.t option [@ocaml.doc "The ID of the service."];
      defaultAction: RuleAction.t option
        [@ocaml.doc "The actions for the default listener rule."];
      createdAt: Timestamp.t option
        [@ocaml.doc
          "The date and time that the listener was created, in ISO-8601 format."];
      lastUpdatedAt: Timestamp.t option
        [@ocaml.doc
          "The date and time that the listener was last updated, in ISO-8601 format."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?arn =
      fun ?id ->
        fun ?name ->
          fun ?protocol ->
            fun ?port ->
              fun ?serviceArn ->
                fun ?serviceId ->
                  fun ?defaultAction ->
                    fun ?createdAt ->
                      fun ?lastUpdatedAt ->
                        fun () ->
                          {
                            arn;
                            id;
                            name;
                            protocol;
                            port;
                            serviceArn;
                            serviceId;
                            defaultAction;
                            createdAt;
                            lastUpdatedAt
                          }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:ListenerArn.to_value));
        ("id", (Option.map x.id ~f:ListenerId.to_value));
        ("name", (Option.map x.name ~f:ListenerName.to_value));
        ("protocol", (Option.map x.protocol ~f:ListenerProtocol.to_value));
        ("port", (Option.map x.port ~f:Port.to_value));
        ("serviceArn", (Option.map x.serviceArn ~f:ServiceArn.to_value));
        ("serviceId", (Option.map x.serviceId ~f:ServiceId.to_value));
        ("defaultAction",
          (Option.map x.defaultAction ~f:RuleAction.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("lastUpdatedAt", (Option.map x.lastUpdatedAt ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdatedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "lastUpdatedAt") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let defaultAction =
        (Option.map ~f:RuleAction.of_xml)
          (Xml.child xml_arg0 "defaultAction") in
      let serviceId =
        (Option.map ~f:ServiceId.of_xml) (Xml.child xml_arg0 "serviceId") in
      let serviceArn =
        (Option.map ~f:ServiceArn.of_xml) (Xml.child xml_arg0 "serviceArn") in
      let port = (Option.map ~f:Port.of_xml) (Xml.child xml_arg0 "port") in
      let protocol =
        (Option.map ~f:ListenerProtocol.of_xml)
          (Xml.child xml_arg0 "protocol") in
      let name =
        (Option.map ~f:ListenerName.of_xml) (Xml.child xml_arg0 "name") in
      let id = (Option.map ~f:ListenerId.of_xml) (Xml.child xml_arg0 "id") in
      let arn = (Option.map ~f:ListenerArn.of_xml) (Xml.child xml_arg0 "arn") in
      make ?lastUpdatedAt ?createdAt ?defaultAction ?serviceId ?serviceArn
        ?port ?protocol ?name ?id ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdatedAt = field_map json__ "lastUpdatedAt" Timestamp.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let defaultAction = field_map json__ "defaultAction" RuleAction.of_json in
      let serviceId = field_map json__ "serviceId" ServiceId.of_json in
      let serviceArn = field_map json__ "serviceArn" ServiceArn.of_json in
      let port = field_map json__ "port" Port.of_json in
      let protocol = field_map json__ "protocol" ListenerProtocol.of_json in
      let name = field_map json__ "name" ListenerName.of_json in
      let id = field_map json__ "id" ListenerId.of_json in
      let arn = field_map json__ "arn" ListenerArn.of_json in
      make ?lastUpdatedAt ?createdAt ?defaultAction ?serviceId ?serviceArn
        ?port ?protocol ?name ?id ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves information about the specified listener for the specified service."]
module GetListenerRequest =
  struct
    type nonrec t =
      {
      serviceIdentifier: ServiceIdentifier.t
        [@ocaml.doc "The ID or ARN of the service."];
      listenerIdentifier: ListenerIdentifier.t
        [@ocaml.doc "The ID or ARN of the listener."]}
    let context_ = "GetListenerRequest"
    let make ~serviceIdentifier =
      fun ~listenerIdentifier ->
        fun () -> { serviceIdentifier; listenerIdentifier }
    let to_value x =
      structure_to_value
        [("serviceIdentifier",
           (Some (ServiceIdentifier.to_value x.serviceIdentifier)));
        ("listenerIdentifier",
          (Some (ListenerIdentifier.to_value x.listenerIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let listenerIdentifier =
        ListenerIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "listenerIdentifier") in
      let serviceIdentifier =
        ServiceIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "serviceIdentifier") in
      make ~listenerIdentifier ~serviceIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let listenerIdentifier =
        field_map_exn json__ "listenerIdentifier" ListenerIdentifier.of_json in
      let serviceIdentifier =
        field_map_exn json__ "serviceIdentifier" ServiceIdentifier.of_json in
      make ~listenerIdentifier ~serviceIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves information about the specified listener for the specified service."]
module GetDomainVerificationResponse =
  struct
    type nonrec t =
      {
      id: DomainVerificationId.t option
        [@ocaml.doc "The ID of the domain verification."];
      arn: DomainVerificationArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the domain verification."];
      domainName: DomainName.t option
        [@ocaml.doc "The domain name being verified."];
      status: VerificationStatus.t option
        [@ocaml.doc "The current status of the domain verification process."];
      txtMethodConfig: TxtMethodConfig.t option
        [@ocaml.doc
          "The TXT record configuration used for domain verification."];
      createdAt: Timestamp.t option
        [@ocaml.doc
          "The date and time that the domain verification was created, in ISO-8601 format."];
      lastVerifiedTime: Timestamp.t option
        [@ocaml.doc
          "The date and time that the domain was last successfully verified, in ISO-8601 format."];
      tags: TagMap.t option
        [@ocaml.doc "The tags associated with the domain verification."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?id =
      fun ?arn ->
        fun ?domainName ->
          fun ?status ->
            fun ?txtMethodConfig ->
              fun ?createdAt ->
                fun ?lastVerifiedTime ->
                  fun ?tags ->
                    fun () ->
                      {
                        id;
                        arn;
                        domainName;
                        status;
                        txtMethodConfig;
                        createdAt;
                        lastVerifiedTime;
                        tags
                      }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:DomainVerificationId.to_value));
        ("arn", (Option.map x.arn ~f:DomainVerificationArn.to_value));
        ("domainName", (Option.map x.domainName ~f:DomainName.to_value));
        ("status", (Option.map x.status ~f:VerificationStatus.to_value));
        ("txtMethodConfig",
          (Option.map x.txtMethodConfig ~f:TxtMethodConfig.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("lastVerifiedTime",
          (Option.map x.lastVerifiedTime ~f:Timestamp.to_value));
        ("tags", (Option.map x.tags ~f:TagMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "tags") in
      let lastVerifiedTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "lastVerifiedTime") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let txtMethodConfig =
        (Option.map ~f:TxtMethodConfig.of_xml)
          (Xml.child xml_arg0 "txtMethodConfig") in
      let status =
        (Option.map ~f:VerificationStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let domainName =
        (Option.map ~f:DomainName.of_xml) (Xml.child xml_arg0 "domainName") in
      let arn =
        (Option.map ~f:DomainVerificationArn.of_xml)
          (Xml.child xml_arg0 "arn") in
      let id =
        (Option.map ~f:DomainVerificationId.of_xml) (Xml.child xml_arg0 "id") in
      make ?tags ?lastVerifiedTime ?createdAt ?txtMethodConfig ?status
        ?domainName ?arn ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagMap.of_json in
      let lastVerifiedTime =
        field_map json__ "lastVerifiedTime" Timestamp.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let txtMethodConfig =
        field_map json__ "txtMethodConfig" TxtMethodConfig.of_json in
      let status = field_map json__ "status" VerificationStatus.of_json in
      let domainName = field_map json__ "domainName" DomainName.of_json in
      let arn = field_map json__ "arn" DomainVerificationArn.of_json in
      let id = field_map json__ "id" DomainVerificationId.of_json in
      make ?tags ?lastVerifiedTime ?createdAt ?txtMethodConfig ?status
        ?domainName ?arn ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves information about a domain verification.\195\159"]
module GetDomainVerificationRequest =
  struct
    type nonrec t =
      {
      domainVerificationIdentifier: DomainVerificationIdentifier.t
        [@ocaml.doc "The ID or ARN of the domain verification to retrieve."]}
    let context_ = "GetDomainVerificationRequest"
    let make ~domainVerificationIdentifier =
      fun () -> { domainVerificationIdentifier }
    let to_value x =
      structure_to_value
        [("domainVerificationIdentifier",
           (Some
              (DomainVerificationIdentifier.to_value
                 x.domainVerificationIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let domainVerificationIdentifier =
        DomainVerificationIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "domainVerificationIdentifier") in
      make ~domainVerificationIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let domainVerificationIdentifier =
        field_map_exn json__ "domainVerificationIdentifier"
          DomainVerificationIdentifier.of_json in
      make ~domainVerificationIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves information about a domain verification.\195\159"]
module GetAuthPolicyResponse =
  struct
    type nonrec t =
      {
      policy: AuthPolicyString.t option [@ocaml.doc "The auth policy."];
      state: AuthPolicyState.t option
        [@ocaml.doc
          "The state of the auth policy. The auth policy is only active when the auth type is set to AWS_IAM. If you provide a policy, then authentication and authorization decisions are made based on this policy and the client's IAM policy. If the auth type is NONE, then any auth policy that you provide remains inactive. For more information, see Create a service network in the Amazon VPC Lattice User Guide."];
      createdAt: Timestamp.t option
        [@ocaml.doc
          "The date and time that the auth policy was created, in ISO-8601 format."];
      lastUpdatedAt: Timestamp.t option
        [@ocaml.doc
          "The date and time that the auth policy was last updated, in ISO-8601 format."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?policy =
      fun ?state ->
        fun ?createdAt ->
          fun ?lastUpdatedAt ->
            fun () -> { policy; state; createdAt; lastUpdatedAt }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("policy", (Option.map x.policy ~f:AuthPolicyString.to_value));
        ("state", (Option.map x.state ~f:AuthPolicyState.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("lastUpdatedAt", (Option.map x.lastUpdatedAt ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdatedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "lastUpdatedAt") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let state =
        (Option.map ~f:AuthPolicyState.of_xml) (Xml.child xml_arg0 "state") in
      let policy =
        (Option.map ~f:AuthPolicyString.of_xml) (Xml.child xml_arg0 "policy") in
      make ?lastUpdatedAt ?createdAt ?state ?policy ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdatedAt = field_map json__ "lastUpdatedAt" Timestamp.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let state = field_map json__ "state" AuthPolicyState.of_json in
      let policy = field_map json__ "policy" AuthPolicyString.of_json in
      make ?lastUpdatedAt ?createdAt ?state ?policy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves information about the auth policy for the specified service or service network."]
module GetAuthPolicyRequest =
  struct
    type nonrec t =
      {
      resourceIdentifier: ResourceIdentifier.t
        [@ocaml.doc "The ID or ARN of the service network or service."]}
    let context_ = "GetAuthPolicyRequest"
    let make ~resourceIdentifier = fun () -> { resourceIdentifier }
    let to_value x =
      structure_to_value
        [("resourceIdentifier",
           (Some (ResourceIdentifier.to_value x.resourceIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceIdentifier =
        ResourceIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceIdentifier") in
      make ~resourceIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceIdentifier =
        field_map_exn json__ "resourceIdentifier" ResourceIdentifier.of_json in
      make ~resourceIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves information about the auth policy for the specified service or service network."]
module GetAccessLogSubscriptionResponse =
  struct
    type nonrec t =
      {
      id: AccessLogSubscriptionId.t option
        [@ocaml.doc "The ID of the access log subscription."];
      arn: AccessLogSubscriptionArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the access log subscription."];
      resourceId: ResourceId.t option
        [@ocaml.doc "The ID of the service network or service."];
      resourceArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the service network or service."];
      destinationArn: AccessLogDestinationArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the access log destination."];
      serviceNetworkLogType: ServiceNetworkLogType.t option
        [@ocaml.doc "The log type for the service network."];
      createdAt: Timestamp.t option
        [@ocaml.doc
          "The date and time that the access log subscription was created, in ISO-8601 format."];
      lastUpdatedAt: Timestamp.t option
        [@ocaml.doc
          "The date and time that the access log subscription was last updated, in ISO-8601 format."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?id =
      fun ?arn ->
        fun ?resourceId ->
          fun ?resourceArn ->
            fun ?destinationArn ->
              fun ?serviceNetworkLogType ->
                fun ?createdAt ->
                  fun ?lastUpdatedAt ->
                    fun () ->
                      {
                        id;
                        arn;
                        resourceId;
                        resourceArn;
                        destinationArn;
                        serviceNetworkLogType;
                        createdAt;
                        lastUpdatedAt
                      }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:AccessLogSubscriptionId.to_value));
        ("arn", (Option.map x.arn ~f:AccessLogSubscriptionArn.to_value));
        ("resourceId", (Option.map x.resourceId ~f:ResourceId.to_value));
        ("resourceArn", (Option.map x.resourceArn ~f:ResourceArn.to_value));
        ("destinationArn",
          (Option.map x.destinationArn ~f:AccessLogDestinationArn.to_value));
        ("serviceNetworkLogType",
          (Option.map x.serviceNetworkLogType
             ~f:ServiceNetworkLogType.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("lastUpdatedAt", (Option.map x.lastUpdatedAt ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdatedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "lastUpdatedAt") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let serviceNetworkLogType =
        (Option.map ~f:ServiceNetworkLogType.of_xml)
          (Xml.child xml_arg0 "serviceNetworkLogType") in
      let destinationArn =
        (Option.map ~f:AccessLogDestinationArn.of_xml)
          (Xml.child xml_arg0 "destinationArn") in
      let resourceArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "resourceArn") in
      let resourceId =
        (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "resourceId") in
      let arn =
        (Option.map ~f:AccessLogSubscriptionArn.of_xml)
          (Xml.child xml_arg0 "arn") in
      let id =
        (Option.map ~f:AccessLogSubscriptionId.of_xml)
          (Xml.child xml_arg0 "id") in
      make ?lastUpdatedAt ?createdAt ?serviceNetworkLogType ?destinationArn
        ?resourceArn ?resourceId ?arn ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdatedAt = field_map json__ "lastUpdatedAt" Timestamp.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let serviceNetworkLogType =
        field_map json__ "serviceNetworkLogType"
          ServiceNetworkLogType.of_json in
      let destinationArn =
        field_map json__ "destinationArn" AccessLogDestinationArn.of_json in
      let resourceArn = field_map json__ "resourceArn" ResourceArn.of_json in
      let resourceId = field_map json__ "resourceId" ResourceId.of_json in
      let arn = field_map json__ "arn" AccessLogSubscriptionArn.of_json in
      let id = field_map json__ "id" AccessLogSubscriptionId.of_json in
      make ?lastUpdatedAt ?createdAt ?serviceNetworkLogType ?destinationArn
        ?resourceArn ?resourceId ?arn ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves information about the specified access log subscription."]
module GetAccessLogSubscriptionRequest =
  struct
    type nonrec t =
      {
      accessLogSubscriptionIdentifier: AccessLogSubscriptionIdentifier.t
        [@ocaml.doc "The ID or ARN of the access log subscription."]}
    let context_ = "GetAccessLogSubscriptionRequest"
    let make ~accessLogSubscriptionIdentifier =
      fun () -> { accessLogSubscriptionIdentifier }
    let to_value x =
      structure_to_value
        [("accessLogSubscriptionIdentifier",
           (Some
              (AccessLogSubscriptionIdentifier.to_value
                 x.accessLogSubscriptionIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accessLogSubscriptionIdentifier =
        AccessLogSubscriptionIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "accessLogSubscriptionIdentifier") in
      make ~accessLogSubscriptionIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accessLogSubscriptionIdentifier =
        field_map_exn json__ "accessLogSubscriptionIdentifier"
          AccessLogSubscriptionIdentifier.of_json in
      make ~accessLogSubscriptionIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves information about the specified access log subscription."]
module DeregisterTargetsResponse =
  struct
    type nonrec t =
      {
      successful: TargetList.t option
        [@ocaml.doc "The targets that were successfully deregistered."];
      unsuccessful: TargetFailureList.t option
        [@ocaml.doc "The targets that the operation couldn't deregister."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?successful =
      fun ?unsuccessful -> fun () -> { successful; unsuccessful }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("successful", (Option.map x.successful ~f:TargetList.to_value));
        ("unsuccessful",
          (Option.map x.unsuccessful ~f:TargetFailureList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let unsuccessful =
        (Option.map ~f:TargetFailureList.of_xml)
          (Xml.child xml_arg0 "unsuccessful") in
      let successful =
        (Option.map ~f:TargetList.of_xml) (Xml.child xml_arg0 "successful") in
      make ?unsuccessful ?successful ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let unsuccessful =
        field_map json__ "unsuccessful" TargetFailureList.of_json in
      let successful = field_map json__ "successful" TargetList.of_json in
      make ?unsuccessful ?successful ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deregisters the specified targets from the specified target group."]
module DeregisterTargetsRequest =
  struct
    type nonrec t =
      {
      targetGroupIdentifier: TargetGroupIdentifier.t
        [@ocaml.doc "The ID or ARN of the target group."];
      targets: DeregisterTargetsRequestTargetsList.t
        [@ocaml.doc "The targets to deregister."]}
    let context_ = "DeregisterTargetsRequest"
    let make ~targetGroupIdentifier =
      fun ~targets -> fun () -> { targetGroupIdentifier; targets }
    let to_value x =
      structure_to_value
        [("targetGroupIdentifier",
           (Some (TargetGroupIdentifier.to_value x.targetGroupIdentifier)));
        ("targets",
          (Some (DeregisterTargetsRequestTargetsList.to_value x.targets)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let targets =
        DeregisterTargetsRequestTargetsList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "targets") in
      let targetGroupIdentifier =
        TargetGroupIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "targetGroupIdentifier") in
      make ~targets ~targetGroupIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let targets =
        field_map_exn json__ "targets"
          DeregisterTargetsRequestTargetsList.of_json in
      let targetGroupIdentifier =
        field_map_exn json__ "targetGroupIdentifier"
          TargetGroupIdentifier.of_json in
      make ~targets ~targetGroupIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deregisters the specified targets from the specified target group."]
module DeleteTargetGroupResponse =
  struct
    type nonrec t =
      {
      id: TargetGroupId.t option [@ocaml.doc "The ID of the target group."];
      arn: TargetGroupArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the target group."];
      status: TargetGroupStatus.t option
        [@ocaml.doc
          "The status. You can retry the operation if the status is DELETE_FAILED. However, if you retry it while the status is DELETE_IN_PROGRESS, the status doesn't change."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?id = fun ?arn -> fun ?status -> fun () -> { id; arn; status }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:TargetGroupId.to_value));
        ("arn", (Option.map x.arn ~f:TargetGroupArn.to_value));
        ("status", (Option.map x.status ~f:TargetGroupStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:TargetGroupStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let arn =
        (Option.map ~f:TargetGroupArn.of_xml) (Xml.child xml_arg0 "arn") in
      let id = (Option.map ~f:TargetGroupId.of_xml) (Xml.child xml_arg0 "id") in
      make ?status ?arn ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" TargetGroupStatus.of_json in
      let arn = field_map json__ "arn" TargetGroupArn.of_json in
      let id = field_map json__ "id" TargetGroupId.of_json in
      make ?status ?arn ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a target group. You can't delete a target group if it is used in a listener rule or if the target group creation is in progress."]
module DeleteTargetGroupRequest =
  struct
    type nonrec t =
      {
      targetGroupIdentifier: TargetGroupIdentifier.t
        [@ocaml.doc "The ID or ARN of the target group."]}
    let context_ = "DeleteTargetGroupRequest"
    let make ~targetGroupIdentifier = fun () -> { targetGroupIdentifier }
    let to_value x =
      structure_to_value
        [("targetGroupIdentifier",
           (Some (TargetGroupIdentifier.to_value x.targetGroupIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let targetGroupIdentifier =
        TargetGroupIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "targetGroupIdentifier") in
      make ~targetGroupIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let targetGroupIdentifier =
        field_map_exn json__ "targetGroupIdentifier"
          TargetGroupIdentifier.of_json in
      make ~targetGroupIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a target group. You can't delete a target group if it is used in a listener rule or if the target group creation is in progress."]
module DeleteServiceResponse =
  struct
    type nonrec t =
      {
      id: ServiceId.t option [@ocaml.doc "The ID of the service."];
      arn: ServiceArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the service."];
      name: ServiceName.t option [@ocaml.doc "The name of the service."];
      status: ServiceStatus.t option
        [@ocaml.doc
          "The status. You can retry the operation if the status is DELETE_FAILED. However, if you retry it while the status is DELETE_IN_PROGRESS, the status doesn't change."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?id =
      fun ?arn ->
        fun ?name -> fun ?status -> fun () -> { id; arn; name; status }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:ServiceId.to_value));
        ("arn", (Option.map x.arn ~f:ServiceArn.to_value));
        ("name", (Option.map x.name ~f:ServiceName.to_value));
        ("status", (Option.map x.status ~f:ServiceStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:ServiceStatus.of_xml) (Xml.child xml_arg0 "status") in
      let name =
        (Option.map ~f:ServiceName.of_xml) (Xml.child xml_arg0 "name") in
      let arn = (Option.map ~f:ServiceArn.of_xml) (Xml.child xml_arg0 "arn") in
      let id = (Option.map ~f:ServiceId.of_xml) (Xml.child xml_arg0 "id") in
      make ?status ?name ?arn ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" ServiceStatus.of_json in
      let name = field_map json__ "name" ServiceName.of_json in
      let arn = field_map json__ "arn" ServiceArn.of_json in
      let id = field_map json__ "id" ServiceId.of_json in
      make ?status ?name ?arn ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a service. A service can't be deleted if it's associated with a service network. If you delete a service, all resources related to the service, such as the resource policy, auth policy, listeners, listener rules, and access log subscriptions, are also deleted. For more information, see Delete a service in the Amazon VPC Lattice User Guide."]
module DeleteServiceRequest =
  struct
    type nonrec t =
      {
      serviceIdentifier: ServiceIdentifier.t
        [@ocaml.doc "The ID or ARN of the service."]}
    let context_ = "DeleteServiceRequest"
    let make ~serviceIdentifier = fun () -> { serviceIdentifier }
    let to_value x =
      structure_to_value
        [("serviceIdentifier",
           (Some (ServiceIdentifier.to_value x.serviceIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let serviceIdentifier =
        ServiceIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "serviceIdentifier") in
      make ~serviceIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let serviceIdentifier =
        field_map_exn json__ "serviceIdentifier" ServiceIdentifier.of_json in
      make ~serviceIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a service. A service can't be deleted if it's associated with a service network. If you delete a service, all resources related to the service, such as the resource policy, auth policy, listeners, listener rules, and access log subscriptions, are also deleted. For more information, see Delete a service in the Amazon VPC Lattice User Guide."]
module DeleteServiceNetworkVpcAssociationResponse =
  struct
    type nonrec t =
      {
      id: ServiceNetworkVpcAssociationId.t option
        [@ocaml.doc "The ID of the association."];
      status: ServiceNetworkVpcAssociationStatus.t option
        [@ocaml.doc
          "The status. You can retry the operation if the status is DELETE_FAILED. However, if you retry it while the status is DELETE_IN_PROGRESS, there is no change in the status."];
      arn: ServiceNetworkVpcAssociationArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the association."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?id = fun ?status -> fun ?arn -> fun () -> { id; status; arn }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:ServiceNetworkVpcAssociationId.to_value));
        ("status",
          (Option.map x.status ~f:ServiceNetworkVpcAssociationStatus.to_value));
        ("arn",
          (Option.map x.arn ~f:ServiceNetworkVpcAssociationArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        (Option.map ~f:ServiceNetworkVpcAssociationArn.of_xml)
          (Xml.child xml_arg0 "arn") in
      let status =
        (Option.map ~f:ServiceNetworkVpcAssociationStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let id =
        (Option.map ~f:ServiceNetworkVpcAssociationId.of_xml)
          (Xml.child xml_arg0 "id") in
      make ?arn ?status ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn =
        field_map json__ "arn" ServiceNetworkVpcAssociationArn.of_json in
      let status =
        field_map json__ "status" ServiceNetworkVpcAssociationStatus.of_json in
      let id = field_map json__ "id" ServiceNetworkVpcAssociationId.of_json in
      make ?arn ?status ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disassociates the VPC from the service network. You can't disassociate the VPC if there is a create or update association in progress."]
module DeleteServiceNetworkVpcAssociationRequest =
  struct
    type nonrec t =
      {
      serviceNetworkVpcAssociationIdentifier:
        ServiceNetworkVpcAssociationIdentifier.t
        [@ocaml.doc "The ID or ARN of the association."]}
    let context_ = "DeleteServiceNetworkVpcAssociationRequest"
    let make ~serviceNetworkVpcAssociationIdentifier =
      fun () -> { serviceNetworkVpcAssociationIdentifier }
    let to_value x =
      structure_to_value
        [("serviceNetworkVpcAssociationIdentifier",
           (Some
              (ServiceNetworkVpcAssociationIdentifier.to_value
                 x.serviceNetworkVpcAssociationIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let serviceNetworkVpcAssociationIdentifier =
        ServiceNetworkVpcAssociationIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "serviceNetworkVpcAssociationIdentifier") in
      make ~serviceNetworkVpcAssociationIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let serviceNetworkVpcAssociationIdentifier =
        field_map_exn json__ "serviceNetworkVpcAssociationIdentifier"
          ServiceNetworkVpcAssociationIdentifier.of_json in
      make ~serviceNetworkVpcAssociationIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disassociates the VPC from the service network. You can't disassociate the VPC if there is a create or update association in progress."]
module DeleteServiceNetworkServiceAssociationResponse =
  struct
    type nonrec t =
      {
      id: ServiceNetworkServiceAssociationIdentifier.t option
        [@ocaml.doc "The ID of the association."];
      status: ServiceNetworkServiceAssociationStatus.t option
        [@ocaml.doc
          "The status. You can retry the operation if the status is DELETE_FAILED. However, if you retry it when the status is DELETE_IN_PROGRESS, there is no change in the status."];
      arn: ServiceNetworkServiceAssociationArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the association."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?id = fun ?status -> fun ?arn -> fun () -> { id; status; arn }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("id",
           (Option.map x.id
              ~f:ServiceNetworkServiceAssociationIdentifier.to_value));
        ("status",
          (Option.map x.status
             ~f:ServiceNetworkServiceAssociationStatus.to_value));
        ("arn",
          (Option.map x.arn ~f:ServiceNetworkServiceAssociationArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        (Option.map ~f:ServiceNetworkServiceAssociationArn.of_xml)
          (Xml.child xml_arg0 "arn") in
      let status =
        (Option.map ~f:ServiceNetworkServiceAssociationStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let id =
        (Option.map ~f:ServiceNetworkServiceAssociationIdentifier.of_xml)
          (Xml.child xml_arg0 "id") in
      make ?arn ?status ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn =
        field_map json__ "arn" ServiceNetworkServiceAssociationArn.of_json in
      let status =
        field_map json__ "status"
          ServiceNetworkServiceAssociationStatus.of_json in
      let id =
        field_map json__ "id"
          ServiceNetworkServiceAssociationIdentifier.of_json in
      make ?arn ?status ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the association between a service and a service network. This operation fails if an association is still in progress."]
module DeleteServiceNetworkServiceAssociationRequest =
  struct
    type nonrec t =
      {
      serviceNetworkServiceAssociationIdentifier:
        ServiceNetworkServiceAssociationIdentifier.t
        [@ocaml.doc "The ID or ARN of the association."]}
    let context_ = "DeleteServiceNetworkServiceAssociationRequest"
    let make ~serviceNetworkServiceAssociationIdentifier =
      fun () -> { serviceNetworkServiceAssociationIdentifier }
    let to_value x =
      structure_to_value
        [("serviceNetworkServiceAssociationIdentifier",
           (Some
              (ServiceNetworkServiceAssociationIdentifier.to_value
                 x.serviceNetworkServiceAssociationIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let serviceNetworkServiceAssociationIdentifier =
        ServiceNetworkServiceAssociationIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "serviceNetworkServiceAssociationIdentifier") in
      make ~serviceNetworkServiceAssociationIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let serviceNetworkServiceAssociationIdentifier =
        field_map_exn json__ "serviceNetworkServiceAssociationIdentifier"
          ServiceNetworkServiceAssociationIdentifier.of_json in
      make ~serviceNetworkServiceAssociationIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the association between a service and a service network. This operation fails if an association is still in progress."]
module DeleteServiceNetworkResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a service network. You can only delete the service network if there is no service or VPC associated with it. If you delete a service network, all resources related to the service network, such as the resource policy, auth policy, and access log subscriptions, are also deleted. For more information, see Delete a service network in the Amazon VPC Lattice User Guide."]
module DeleteServiceNetworkResourceAssociationResponse =
  struct
    type nonrec t =
      {
      id: ServiceNetworkResourceAssociationId.t option
        [@ocaml.doc "The ID of the association."];
      arn: ServiceNetworkResourceAssociationArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the association."];
      status: ServiceNetworkResourceAssociationStatus.t option
        [@ocaml.doc "The status of the association."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?id = fun ?arn -> fun ?status -> fun () -> { id; arn; status }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("id",
           (Option.map x.id ~f:ServiceNetworkResourceAssociationId.to_value));
        ("arn",
          (Option.map x.arn ~f:ServiceNetworkResourceAssociationArn.to_value));
        ("status",
          (Option.map x.status
             ~f:ServiceNetworkResourceAssociationStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:ServiceNetworkResourceAssociationStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let arn =
        (Option.map ~f:ServiceNetworkResourceAssociationArn.of_xml)
          (Xml.child xml_arg0 "arn") in
      let id =
        (Option.map ~f:ServiceNetworkResourceAssociationId.of_xml)
          (Xml.child xml_arg0 "id") in
      make ?status ?arn ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status =
        field_map json__ "status"
          ServiceNetworkResourceAssociationStatus.of_json in
      let arn =
        field_map json__ "arn" ServiceNetworkResourceAssociationArn.of_json in
      let id =
        field_map json__ "id" ServiceNetworkResourceAssociationId.of_json in
      make ?status ?arn ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the association between a service network and a resource configuration."]
module DeleteServiceNetworkResourceAssociationRequest =
  struct
    type nonrec t =
      {
      serviceNetworkResourceAssociationIdentifier:
        ServiceNetworkResourceAssociationIdentifier.t
        [@ocaml.doc "The ID of the association."]}
    let context_ = "DeleteServiceNetworkResourceAssociationRequest"
    let make ~serviceNetworkResourceAssociationIdentifier =
      fun () -> { serviceNetworkResourceAssociationIdentifier }
    let to_value x =
      structure_to_value
        [("serviceNetworkResourceAssociationIdentifier",
           (Some
              (ServiceNetworkResourceAssociationIdentifier.to_value
                 x.serviceNetworkResourceAssociationIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let serviceNetworkResourceAssociationIdentifier =
        ServiceNetworkResourceAssociationIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "serviceNetworkResourceAssociationIdentifier") in
      make ~serviceNetworkResourceAssociationIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let serviceNetworkResourceAssociationIdentifier =
        field_map_exn json__ "serviceNetworkResourceAssociationIdentifier"
          ServiceNetworkResourceAssociationIdentifier.of_json in
      make ~serviceNetworkResourceAssociationIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the association between a service network and a resource configuration."]
module DeleteServiceNetworkRequest =
  struct
    type nonrec t =
      {
      serviceNetworkIdentifier: ServiceNetworkIdentifier.t
        [@ocaml.doc "The ID or ARN of the service network."]}
    let context_ = "DeleteServiceNetworkRequest"
    let make ~serviceNetworkIdentifier =
      fun () -> { serviceNetworkIdentifier }
    let to_value x =
      structure_to_value
        [("serviceNetworkIdentifier",
           (Some
              (ServiceNetworkIdentifier.to_value x.serviceNetworkIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let serviceNetworkIdentifier =
        ServiceNetworkIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "serviceNetworkIdentifier") in
      make ~serviceNetworkIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let serviceNetworkIdentifier =
        field_map_exn json__ "serviceNetworkIdentifier"
          ServiceNetworkIdentifier.of_json in
      make ~serviceNetworkIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a service network. You can only delete the service network if there is no service or VPC associated with it. If you delete a service network, all resources related to the service network, such as the resource policy, auth policy, and access log subscriptions, are also deleted. For more information, see Delete a service network in the Amazon VPC Lattice User Guide."]
module DeleteRuleResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a listener rule. Each listener has a default rule for checking connection requests, but you can define additional rules. Each rule consists of a priority, one or more actions, and one or more conditions. You can delete additional listener rules, but you cannot delete the default rule. For more information, see Listener rules in the Amazon VPC Lattice User Guide."]
module DeleteRuleRequest =
  struct
    type nonrec t =
      {
      serviceIdentifier: ServiceIdentifier.t
        [@ocaml.doc "The ID or ARN of the service."];
      listenerIdentifier: ListenerIdentifier.t
        [@ocaml.doc "The ID or ARN of the listener."];
      ruleIdentifier: RuleIdentifier.t
        [@ocaml.doc "The ID or ARN of the rule."]}
    let context_ = "DeleteRuleRequest"
    let make ~serviceIdentifier =
      fun ~listenerIdentifier ->
        fun ~ruleIdentifier ->
          fun () -> { serviceIdentifier; listenerIdentifier; ruleIdentifier }
    let to_value x =
      structure_to_value
        [("serviceIdentifier",
           (Some (ServiceIdentifier.to_value x.serviceIdentifier)));
        ("listenerIdentifier",
          (Some (ListenerIdentifier.to_value x.listenerIdentifier)));
        ("ruleIdentifier", (Some (RuleIdentifier.to_value x.ruleIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ruleIdentifier =
        RuleIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ruleIdentifier") in
      let listenerIdentifier =
        ListenerIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "listenerIdentifier") in
      let serviceIdentifier =
        ServiceIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "serviceIdentifier") in
      make ~ruleIdentifier ~listenerIdentifier ~serviceIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ruleIdentifier =
        field_map_exn json__ "ruleIdentifier" RuleIdentifier.of_json in
      let listenerIdentifier =
        field_map_exn json__ "listenerIdentifier" ListenerIdentifier.of_json in
      let serviceIdentifier =
        field_map_exn json__ "serviceIdentifier" ServiceIdentifier.of_json in
      make ~ruleIdentifier ~listenerIdentifier ~serviceIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a listener rule. Each listener has a default rule for checking connection requests, but you can define additional rules. Each rule consists of a priority, one or more actions, and one or more conditions. You can delete additional listener rules, but you cannot delete the default rule. For more information, see Listener rules in the Amazon VPC Lattice User Guide."]
module DeleteResourcePolicyResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let 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 the specified resource policy."]
module DeleteResourcePolicyRequest =
  struct
    type nonrec t =
      {
      resourceArn: ResourceArn.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the resource."]}
    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 the specified resource policy."]
module DeleteResourceGatewayResponse =
  struct
    type nonrec t =
      {
      id: ResourceGatewayId.t option
        [@ocaml.doc "The ID of the resource gateway."];
      arn: ResourceGatewayArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource gateway."];
      name: ResourceGatewayName.t option
        [@ocaml.doc "The name of the resource gateway."];
      status: ResourceGatewayStatus.t option
        [@ocaml.doc "The status of the resource gateway."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?id =
      fun ?arn ->
        fun ?name -> fun ?status -> fun () -> { id; arn; name; status }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:ResourceGatewayId.to_value));
        ("arn", (Option.map x.arn ~f:ResourceGatewayArn.to_value));
        ("name", (Option.map x.name ~f:ResourceGatewayName.to_value));
        ("status", (Option.map x.status ~f:ResourceGatewayStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:ResourceGatewayStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let name =
        (Option.map ~f:ResourceGatewayName.of_xml)
          (Xml.child xml_arg0 "name") in
      let arn =
        (Option.map ~f:ResourceGatewayArn.of_xml) (Xml.child xml_arg0 "arn") in
      let id =
        (Option.map ~f:ResourceGatewayId.of_xml) (Xml.child xml_arg0 "id") in
      make ?status ?name ?arn ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" ResourceGatewayStatus.of_json in
      let name = field_map json__ "name" ResourceGatewayName.of_json in
      let arn = field_map json__ "arn" ResourceGatewayArn.of_json in
      let id = field_map json__ "id" ResourceGatewayId.of_json in
      make ?status ?name ?arn ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes the specified resource gateway."]
module DeleteResourceGatewayRequest =
  struct
    type nonrec t =
      {
      resourceGatewayIdentifier: ResourceGatewayIdentifier.t
        [@ocaml.doc "The ID or ARN of the resource gateway."]}
    let context_ = "DeleteResourceGatewayRequest"
    let make ~resourceGatewayIdentifier =
      fun () -> { resourceGatewayIdentifier }
    let to_value x =
      structure_to_value
        [("resourceGatewayIdentifier",
           (Some
              (ResourceGatewayIdentifier.to_value x.resourceGatewayIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceGatewayIdentifier =
        ResourceGatewayIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "resourceGatewayIdentifier") in
      make ~resourceGatewayIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceGatewayIdentifier =
        field_map_exn json__ "resourceGatewayIdentifier"
          ResourceGatewayIdentifier.of_json in
      make ~resourceGatewayIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes the specified resource gateway."]
module DeleteResourceEndpointAssociationResponse =
  struct
    type nonrec t =
      {
      id: ResourceEndpointAssociationId.t option
        [@ocaml.doc "The ID of the association."];
      arn: ResourceEndpointAssociationArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the association."];
      resourceConfigurationId: ResourceConfigurationId.t option
        [@ocaml.doc "The ID of the resource configuration."];
      resourceConfigurationArn: ResourceConfigurationArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource configuration associated with the VPC endpoint of type resource."];
      vpcEndpointId: VpcEndpointId.t option
        [@ocaml.doc
          "The ID of the resource VPC endpoint that is associated with the resource configuration."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?id =
      fun ?arn ->
        fun ?resourceConfigurationId ->
          fun ?resourceConfigurationArn ->
            fun ?vpcEndpointId ->
              fun () ->
                {
                  id;
                  arn;
                  resourceConfigurationId;
                  resourceConfigurationArn;
                  vpcEndpointId
                }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:ResourceEndpointAssociationId.to_value));
        ("arn",
          (Option.map x.arn ~f:ResourceEndpointAssociationArn.to_value));
        ("resourceConfigurationId",
          (Option.map x.resourceConfigurationId
             ~f:ResourceConfigurationId.to_value));
        ("resourceConfigurationArn",
          (Option.map x.resourceConfigurationArn
             ~f:ResourceConfigurationArn.to_value));
        ("vpcEndpointId",
          (Option.map x.vpcEndpointId ~f:VpcEndpointId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vpcEndpointId =
        (Option.map ~f:VpcEndpointId.of_xml)
          (Xml.child xml_arg0 "vpcEndpointId") in
      let resourceConfigurationArn =
        (Option.map ~f:ResourceConfigurationArn.of_xml)
          (Xml.child xml_arg0 "resourceConfigurationArn") in
      let resourceConfigurationId =
        (Option.map ~f:ResourceConfigurationId.of_xml)
          (Xml.child xml_arg0 "resourceConfigurationId") in
      let arn =
        (Option.map ~f:ResourceEndpointAssociationArn.of_xml)
          (Xml.child xml_arg0 "arn") in
      let id =
        (Option.map ~f:ResourceEndpointAssociationId.of_xml)
          (Xml.child xml_arg0 "id") in
      make ?vpcEndpointId ?resourceConfigurationArn ?resourceConfigurationId
        ?arn ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vpcEndpointId =
        field_map json__ "vpcEndpointId" VpcEndpointId.of_json in
      let resourceConfigurationArn =
        field_map json__ "resourceConfigurationArn"
          ResourceConfigurationArn.of_json in
      let resourceConfigurationId =
        field_map json__ "resourceConfigurationId"
          ResourceConfigurationId.of_json in
      let arn = field_map json__ "arn" ResourceEndpointAssociationArn.of_json in
      let id = field_map json__ "id" ResourceEndpointAssociationId.of_json in
      make ?vpcEndpointId ?resourceConfigurationArn ?resourceConfigurationId
        ?arn ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disassociates the resource configuration from the resource VPC endpoint."]
module DeleteResourceEndpointAssociationRequest =
  struct
    type nonrec t =
      {
      resourceEndpointAssociationIdentifier:
        ResourceEndpointAssociationIdentifier.t
        [@ocaml.doc "The ID or ARN of the association."]}
    let context_ = "DeleteResourceEndpointAssociationRequest"
    let make ~resourceEndpointAssociationIdentifier =
      fun () -> { resourceEndpointAssociationIdentifier }
    let to_value x =
      structure_to_value
        [("resourceEndpointAssociationIdentifier",
           (Some
              (ResourceEndpointAssociationIdentifier.to_value
                 x.resourceEndpointAssociationIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceEndpointAssociationIdentifier =
        ResourceEndpointAssociationIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "resourceEndpointAssociationIdentifier") in
      make ~resourceEndpointAssociationIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceEndpointAssociationIdentifier =
        field_map_exn json__ "resourceEndpointAssociationIdentifier"
          ResourceEndpointAssociationIdentifier.of_json in
      make ~resourceEndpointAssociationIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disassociates the resource configuration from the resource VPC endpoint."]
module DeleteResourceConfigurationResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes the specified resource configuration."]
module DeleteResourceConfigurationRequest =
  struct
    type nonrec t =
      {
      resourceConfigurationIdentifier: ResourceConfigurationIdentifier.t
        [@ocaml.doc "The ID or ARN of the resource configuration."]}
    let context_ = "DeleteResourceConfigurationRequest"
    let make ~resourceConfigurationIdentifier =
      fun () -> { resourceConfigurationIdentifier }
    let to_value x =
      structure_to_value
        [("resourceConfigurationIdentifier",
           (Some
              (ResourceConfigurationIdentifier.to_value
                 x.resourceConfigurationIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceConfigurationIdentifier =
        ResourceConfigurationIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "resourceConfigurationIdentifier") in
      make ~resourceConfigurationIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceConfigurationIdentifier =
        field_map_exn json__ "resourceConfigurationIdentifier"
          ResourceConfigurationIdentifier.of_json in
      make ~resourceConfigurationIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes the specified resource configuration."]
module DeleteListenerResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes the specified listener."]
module DeleteListenerRequest =
  struct
    type nonrec t =
      {
      serviceIdentifier: ServiceIdentifier.t
        [@ocaml.doc "The ID or ARN of the service."];
      listenerIdentifier: ListenerIdentifier.t
        [@ocaml.doc "The ID or ARN of the listener."]}
    let context_ = "DeleteListenerRequest"
    let make ~serviceIdentifier =
      fun ~listenerIdentifier ->
        fun () -> { serviceIdentifier; listenerIdentifier }
    let to_value x =
      structure_to_value
        [("serviceIdentifier",
           (Some (ServiceIdentifier.to_value x.serviceIdentifier)));
        ("listenerIdentifier",
          (Some (ListenerIdentifier.to_value x.listenerIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let listenerIdentifier =
        ListenerIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "listenerIdentifier") in
      let serviceIdentifier =
        ServiceIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "serviceIdentifier") in
      make ~listenerIdentifier ~serviceIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let listenerIdentifier =
        field_map_exn json__ "listenerIdentifier" ListenerIdentifier.of_json in
      let serviceIdentifier =
        field_map_exn json__ "serviceIdentifier" ServiceIdentifier.of_json in
      make ~listenerIdentifier ~serviceIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes the specified listener."]
module DeleteDomainVerificationResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let 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 the specified domain verification."]
module DeleteDomainVerificationRequest =
  struct
    type nonrec t =
      {
      domainVerificationIdentifier: DomainVerificationIdentifier.t
        [@ocaml.doc "The ID of the domain verification to delete."]}
    let context_ = "DeleteDomainVerificationRequest"
    let make ~domainVerificationIdentifier =
      fun () -> { domainVerificationIdentifier }
    let to_value x =
      structure_to_value
        [("domainVerificationIdentifier",
           (Some
              (DomainVerificationIdentifier.to_value
                 x.domainVerificationIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let domainVerificationIdentifier =
        DomainVerificationIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "domainVerificationIdentifier") in
      make ~domainVerificationIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let domainVerificationIdentifier =
        field_map_exn json__ "domainVerificationIdentifier"
          DomainVerificationIdentifier.of_json in
      make ~domainVerificationIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes the specified domain verification."]
module DeleteAuthPolicyResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let 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 the specified auth policy. If an auth is set to AWS_IAM and the auth policy is deleted, all requests are denied. If you are trying to remove the auth policy completely, you must set the auth type to NONE. If auth is enabled on the resource, but no auth policy is set, all requests are denied."]
module DeleteAuthPolicyRequest =
  struct
    type nonrec t =
      {
      resourceIdentifier: ResourceIdentifier.t
        [@ocaml.doc "The ID or ARN of the resource."]}
    let context_ = "DeleteAuthPolicyRequest"
    let make ~resourceIdentifier = fun () -> { resourceIdentifier }
    let to_value x =
      structure_to_value
        [("resourceIdentifier",
           (Some (ResourceIdentifier.to_value x.resourceIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceIdentifier =
        ResourceIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceIdentifier") in
      make ~resourceIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceIdentifier =
        field_map_exn json__ "resourceIdentifier" ResourceIdentifier.of_json in
      make ~resourceIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the specified auth policy. If an auth is set to AWS_IAM and the auth policy is deleted, all requests are denied. If you are trying to remove the auth policy completely, you must set the auth type to NONE. If auth is enabled on the resource, but no auth policy is set, all requests are denied."]
module DeleteAccessLogSubscriptionResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let 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 the specified access log subscription."]
module DeleteAccessLogSubscriptionRequest =
  struct
    type nonrec t =
      {
      accessLogSubscriptionIdentifier: AccessLogSubscriptionIdentifier.t
        [@ocaml.doc "The ID or ARN of the access log subscription."]}
    let context_ = "DeleteAccessLogSubscriptionRequest"
    let make ~accessLogSubscriptionIdentifier =
      fun () -> { accessLogSubscriptionIdentifier }
    let to_value x =
      structure_to_value
        [("accessLogSubscriptionIdentifier",
           (Some
              (AccessLogSubscriptionIdentifier.to_value
                 x.accessLogSubscriptionIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accessLogSubscriptionIdentifier =
        AccessLogSubscriptionIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "accessLogSubscriptionIdentifier") in
      make ~accessLogSubscriptionIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accessLogSubscriptionIdentifier =
        field_map_exn json__ "accessLogSubscriptionIdentifier"
          AccessLogSubscriptionIdentifier.of_json in
      make ~accessLogSubscriptionIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes the specified access log subscription."]
module CreateTargetGroupResponse =
  struct
    type nonrec t =
      {
      id: TargetGroupId.t option [@ocaml.doc "The ID of the target group."];
      arn: TargetGroupArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the target group."];
      name: TargetGroupName.t option
        [@ocaml.doc "The name of the target group."];
      type_: TargetGroupType.t option
        [@ocaml.doc "The type of target group."];
      config: TargetGroupConfig.t option
        [@ocaml.doc "The target group configuration."];
      status: TargetGroupStatus.t option
        [@ocaml.doc
          "The status. You can retry the operation if the status is CREATE_FAILED. However, if you retry it while the status is CREATE_IN_PROGRESS, there is no change in the status."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?id =
      fun ?arn ->
        fun ?name ->
          fun ?type_ ->
            fun ?config ->
              fun ?status ->
                fun () -> { id; arn; name; type_; config; status }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:TargetGroupId.to_value));
        ("arn", (Option.map x.arn ~f:TargetGroupArn.to_value));
        ("name", (Option.map x.name ~f:TargetGroupName.to_value));
        ("type", (Option.map x.type_ ~f:TargetGroupType.to_value));
        ("config", (Option.map x.config ~f:TargetGroupConfig.to_value));
        ("status", (Option.map x.status ~f:TargetGroupStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:TargetGroupStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let config =
        (Option.map ~f:TargetGroupConfig.of_xml)
          (Xml.child xml_arg0 "config") in
      let type_ =
        (Option.map ~f:TargetGroupType.of_xml) (Xml.child xml_arg0 "type") in
      let name =
        (Option.map ~f:TargetGroupName.of_xml) (Xml.child xml_arg0 "name") in
      let arn =
        (Option.map ~f:TargetGroupArn.of_xml) (Xml.child xml_arg0 "arn") in
      let id = (Option.map ~f:TargetGroupId.of_xml) (Xml.child xml_arg0 "id") in
      make ?status ?config ?type_ ?name ?arn ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" TargetGroupStatus.of_json in
      let config = field_map json__ "config" TargetGroupConfig.of_json in
      let type_ = field_map json__ "type" TargetGroupType.of_json in
      let name = field_map json__ "name" TargetGroupName.of_json in
      let arn = field_map json__ "arn" TargetGroupArn.of_json in
      let id = field_map json__ "id" TargetGroupId.of_json in
      make ?status ?config ?type_ ?name ?arn ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a target group. A target group is a collection of targets, or compute resources, that run your application or service. A target group can only be used by a single service. For more information, see Target groups in the Amazon VPC Lattice User Guide."]
module CreateTargetGroupRequest =
  struct
    type nonrec t =
      {
      name: TargetGroupName.t
        [@ocaml.doc
          "The name of the target group. The name must be unique within the account. The valid characters are a-z, 0-9, and hyphens (-). You can't use a hyphen as the first or last character, or immediately after another hyphen."];
      type_: TargetGroupType.t [@ocaml.doc "The type of target group."];
      config: TargetGroupConfig.t option
        [@ocaml.doc "The target group configuration."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A unique, case-sensitive identifier that you provide to ensure the idempotency of the request. If you retry a request that completed successfully using the same client token and parameters, the retry succeeds without performing any actions. If the parameters aren't identical, the retry fails."];
      tags: TagMap.t option [@ocaml.doc "The tags for the target group."]}
    let context_ = "CreateTargetGroupRequest"
    let make ?config =
      fun ?clientToken ->
        fun ?tags ->
          fun ~name ->
            fun ~type_ ->
              fun () -> { config; clientToken; tags; name; type_ }
    let to_value x =
      structure_to_value
        [("name", (Some (TargetGroupName.to_value x.name)));
        ("type", (Some (TargetGroupType.to_value x.type_)));
        ("config", (Option.map x.config ~f:TargetGroupConfig.to_value));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value));
        ("tags", (Option.map x.tags ~f:TagMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "tags") in
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let config =
        (Option.map ~f:TargetGroupConfig.of_xml)
          (Xml.child xml_arg0 "config") in
      let type_ =
        TargetGroupType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "type") in
      let name =
        TargetGroupName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ?tags ?clientToken ?config ~type_ ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagMap.of_json in
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let config = field_map json__ "config" TargetGroupConfig.of_json in
      let type_ = field_map_exn json__ "type" TargetGroupType.of_json in
      let name = field_map_exn json__ "name" TargetGroupName.of_json in
      make ?tags ?clientToken ?config ~type_ ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a target group. A target group is a collection of targets, or compute resources, that run your application or service. A target group can only be used by a single service. For more information, see Target groups in the Amazon VPC Lattice User Guide."]
module CreateServiceResponse =
  struct
    type nonrec t =
      {
      id: ServiceId.t option [@ocaml.doc "The ID of the service."];
      arn: ServiceArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the service."];
      name: ServiceName.t option [@ocaml.doc "The name of the service."];
      customDomainName: ServiceCustomDomainName.t option
        [@ocaml.doc "The custom domain name of the service."];
      certificateArn: CertificateArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the certificate."];
      status: ServiceStatus.t option
        [@ocaml.doc
          "The status. If the status is CREATE_FAILED, you must delete and recreate the service."];
      authType: AuthType.t option [@ocaml.doc "The type of IAM policy."];
      dnsEntry: DnsEntry.t option
        [@ocaml.doc "The public DNS name of the service."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?id =
      fun ?arn ->
        fun ?name ->
          fun ?customDomainName ->
            fun ?certificateArn ->
              fun ?status ->
                fun ?authType ->
                  fun ?dnsEntry ->
                    fun () ->
                      {
                        id;
                        arn;
                        name;
                        customDomainName;
                        certificateArn;
                        status;
                        authType;
                        dnsEntry
                      }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:ServiceId.to_value));
        ("arn", (Option.map x.arn ~f:ServiceArn.to_value));
        ("name", (Option.map x.name ~f:ServiceName.to_value));
        ("customDomainName",
          (Option.map x.customDomainName ~f:ServiceCustomDomainName.to_value));
        ("certificateArn",
          (Option.map x.certificateArn ~f:CertificateArn.to_value));
        ("status", (Option.map x.status ~f:ServiceStatus.to_value));
        ("authType", (Option.map x.authType ~f:AuthType.to_value));
        ("dnsEntry", (Option.map x.dnsEntry ~f:DnsEntry.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dnsEntry =
        (Option.map ~f:DnsEntry.of_xml) (Xml.child xml_arg0 "dnsEntry") in
      let authType =
        (Option.map ~f:AuthType.of_xml) (Xml.child xml_arg0 "authType") in
      let status =
        (Option.map ~f:ServiceStatus.of_xml) (Xml.child xml_arg0 "status") in
      let certificateArn =
        (Option.map ~f:CertificateArn.of_xml)
          (Xml.child xml_arg0 "certificateArn") in
      let customDomainName =
        (Option.map ~f:ServiceCustomDomainName.of_xml)
          (Xml.child xml_arg0 "customDomainName") in
      let name =
        (Option.map ~f:ServiceName.of_xml) (Xml.child xml_arg0 "name") in
      let arn = (Option.map ~f:ServiceArn.of_xml) (Xml.child xml_arg0 "arn") in
      let id = (Option.map ~f:ServiceId.of_xml) (Xml.child xml_arg0 "id") in
      make ?dnsEntry ?authType ?status ?certificateArn ?customDomainName
        ?name ?arn ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dnsEntry = field_map json__ "dnsEntry" DnsEntry.of_json in
      let authType = field_map json__ "authType" AuthType.of_json in
      let status = field_map json__ "status" ServiceStatus.of_json in
      let certificateArn =
        field_map json__ "certificateArn" CertificateArn.of_json in
      let customDomainName =
        field_map json__ "customDomainName" ServiceCustomDomainName.of_json in
      let name = field_map json__ "name" ServiceName.of_json in
      let arn = field_map json__ "arn" ServiceArn.of_json in
      let id = field_map json__ "id" ServiceId.of_json in
      make ?dnsEntry ?authType ?status ?certificateArn ?customDomainName
        ?name ?arn ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a service. A service is any software application that can run on instances containers, or serverless functions within an account or virtual private cloud (VPC). For more information, see Services in the Amazon VPC Lattice User Guide."]
module CreateServiceRequest =
  struct
    type nonrec t =
      {
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A unique, case-sensitive identifier that you provide to ensure the idempotency of the request. If you retry a request that completed successfully using the same client token and parameters, the retry succeeds without performing any actions. If the parameters aren't identical, the retry fails."];
      name: ServiceName.t
        [@ocaml.doc
          "The name of the service. The name must be unique within the account. The valid characters are a-z, 0-9, and hyphens (-). You can't use a hyphen as the first or last character, or immediately after another hyphen."];
      tags: TagMap.t option [@ocaml.doc "The tags for the service."];
      customDomainName: ServiceCustomDomainName.t option
        [@ocaml.doc "The custom domain name of the service."];
      certificateArn: CertificateArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the certificate."];
      authType: AuthType.t option
        [@ocaml.doc
          "The type of IAM policy. NONE: The resource does not use an IAM policy. This is the default. AWS_IAM: The resource uses an IAM policy. When this type is used, auth is enabled and an auth policy is required."]}
    let context_ = "CreateServiceRequest"
    let make ?clientToken =
      fun ?tags ->
        fun ?customDomainName ->
          fun ?certificateArn ->
            fun ?authType ->
              fun ~name ->
                fun () ->
                  {
                    clientToken;
                    tags;
                    customDomainName;
                    certificateArn;
                    authType;
                    name
                  }
    let to_value x =
      structure_to_value
        [("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value));
        ("name", (Some (ServiceName.to_value x.name)));
        ("tags", (Option.map x.tags ~f:TagMap.to_value));
        ("customDomainName",
          (Option.map x.customDomainName ~f:ServiceCustomDomainName.to_value));
        ("certificateArn",
          (Option.map x.certificateArn ~f:CertificateArn.to_value));
        ("authType", (Option.map x.authType ~f:AuthType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let authType =
        (Option.map ~f:AuthType.of_xml) (Xml.child xml_arg0 "authType") in
      let certificateArn =
        (Option.map ~f:CertificateArn.of_xml)
          (Xml.child xml_arg0 "certificateArn") in
      let customDomainName =
        (Option.map ~f:ServiceCustomDomainName.of_xml)
          (Xml.child xml_arg0 "customDomainName") in
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "tags") in
      let name =
        ServiceName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      make ?authType ?certificateArn ?customDomainName ?tags ~name
        ?clientToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let authType = field_map json__ "authType" AuthType.of_json in
      let certificateArn =
        field_map json__ "certificateArn" CertificateArn.of_json in
      let customDomainName =
        field_map json__ "customDomainName" ServiceCustomDomainName.of_json in
      let tags = field_map json__ "tags" TagMap.of_json in
      let name = field_map_exn json__ "name" ServiceName.of_json in
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      make ?authType ?certificateArn ?customDomainName ?tags ~name
        ?clientToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a service. A service is any software application that can run on instances containers, or serverless functions within an account or virtual private cloud (VPC). For more information, see Services in the Amazon VPC Lattice User Guide."]
module CreateServiceNetworkVpcAssociationResponse =
  struct
    type nonrec t =
      {
      id: ServiceNetworkVpcAssociationId.t option
        [@ocaml.doc "The ID of the association."];
      status: ServiceNetworkVpcAssociationStatus.t option
        [@ocaml.doc "The association status."];
      arn: ServiceNetworkVpcAssociationArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the association."];
      createdBy: AccountId.t option
        [@ocaml.doc "The account that created the association."];
      securityGroupIds: SecurityGroupList.t option
        [@ocaml.doc "The IDs of the security groups."];
      privateDnsEnabled: Boolean.t option
        [@ocaml.doc
          "Indicates if private DNS is enabled for the VPC association."];
      dnsOptions: DnsOptions.t option }
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?id =
      fun ?status ->
        fun ?arn ->
          fun ?createdBy ->
            fun ?securityGroupIds ->
              fun ?privateDnsEnabled ->
                fun ?dnsOptions ->
                  fun () ->
                    {
                      id;
                      status;
                      arn;
                      createdBy;
                      securityGroupIds;
                      privateDnsEnabled;
                      dnsOptions
                    }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:ServiceNetworkVpcAssociationId.to_value));
        ("status",
          (Option.map x.status ~f:ServiceNetworkVpcAssociationStatus.to_value));
        ("arn",
          (Option.map x.arn ~f:ServiceNetworkVpcAssociationArn.to_value));
        ("createdBy", (Option.map x.createdBy ~f:AccountId.to_value));
        ("securityGroupIds",
          (Option.map x.securityGroupIds ~f:SecurityGroupList.to_value));
        ("privateDnsEnabled",
          (Option.map x.privateDnsEnabled ~f:Boolean.to_value));
        ("dnsOptions", (Option.map x.dnsOptions ~f:DnsOptions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dnsOptions =
        (Option.map ~f:DnsOptions.of_xml) (Xml.child xml_arg0 "dnsOptions") in
      let privateDnsEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "privateDnsEnabled") in
      let securityGroupIds =
        (Option.map ~f:SecurityGroupList.of_xml)
          (Xml.child xml_arg0 "securityGroupIds") in
      let createdBy =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "createdBy") in
      let arn =
        (Option.map ~f:ServiceNetworkVpcAssociationArn.of_xml)
          (Xml.child xml_arg0 "arn") in
      let status =
        (Option.map ~f:ServiceNetworkVpcAssociationStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let id =
        (Option.map ~f:ServiceNetworkVpcAssociationId.of_xml)
          (Xml.child xml_arg0 "id") in
      make ?dnsOptions ?privateDnsEnabled ?securityGroupIds ?createdBy ?arn
        ?status ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dnsOptions = field_map json__ "dnsOptions" DnsOptions.of_json in
      let privateDnsEnabled =
        field_map json__ "privateDnsEnabled" Boolean.of_json in
      let securityGroupIds =
        field_map json__ "securityGroupIds" SecurityGroupList.of_json in
      let createdBy = field_map json__ "createdBy" AccountId.of_json in
      let arn =
        field_map json__ "arn" ServiceNetworkVpcAssociationArn.of_json in
      let status =
        field_map json__ "status" ServiceNetworkVpcAssociationStatus.of_json in
      let id = field_map json__ "id" ServiceNetworkVpcAssociationId.of_json in
      make ?dnsOptions ?privateDnsEnabled ?securityGroupIds ?createdBy ?arn
        ?status ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates a VPC with a service network. When you associate a VPC with the service network, it enables all the resources within that VPC to be clients and communicate with other services in the service network. For more information, see Manage VPC associations in the Amazon VPC Lattice User Guide. You can't use this operation if there is a disassociation in progress. If the association fails, retry by deleting the association and recreating it. As a result of this operation, the association gets created in the service network account and the VPC owner account. If you add a security group to the service network and VPC association, the association must continue to always have at least one security group. You can add or edit security groups at any time. However, to remove all security groups, you must first delete the association and recreate it without security groups."]
module CreateServiceNetworkVpcAssociationRequest =
  struct
    type nonrec t =
      {
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A unique, case-sensitive identifier that you provide to ensure the idempotency of the request. If you retry a request that completed successfully using the same client token and parameters, the retry succeeds without performing any actions. If the parameters aren't identical, the retry fails."];
      serviceNetworkIdentifier: ServiceNetworkIdentifier.t
        [@ocaml.doc
          "The ID or ARN of the service network. You must use an ARN if the resources are in different accounts."];
      vpcIdentifier: VpcId.t [@ocaml.doc "The ID of the VPC."];
      privateDnsEnabled: Boolean.t option
        [@ocaml.doc
          "Indicates if private DNS is enabled for the VPC association."];
      securityGroupIds:
        CreateServiceNetworkVpcAssociationRequestSecurityGroupIdsList.t
          option
        [@ocaml.doc
          "The IDs of the security groups. Security groups aren't added by default. You can add a security group to apply network level controls to control which resources in a VPC are allowed to access the service network and its services. For more information, see Control traffic to resources using security groups in the Amazon VPC User Guide."];
      tags: TagMap.t option [@ocaml.doc "The tags for the association."];
      dnsOptions: DnsOptions.t option
        [@ocaml.doc "DNS options for the service network VPC association."]}
    let context_ = "CreateServiceNetworkVpcAssociationRequest"
    let make ?clientToken =
      fun ?privateDnsEnabled ->
        fun ?securityGroupIds ->
          fun ?tags ->
            fun ?dnsOptions ->
              fun ~serviceNetworkIdentifier ->
                fun ~vpcIdentifier ->
                  fun () ->
                    {
                      clientToken;
                      privateDnsEnabled;
                      securityGroupIds;
                      tags;
                      dnsOptions;
                      serviceNetworkIdentifier;
                      vpcIdentifier
                    }
    let to_value x =
      structure_to_value
        [("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value));
        ("serviceNetworkIdentifier",
          (Some
             (ServiceNetworkIdentifier.to_value x.serviceNetworkIdentifier)));
        ("vpcIdentifier", (Some (VpcId.to_value x.vpcIdentifier)));
        ("privateDnsEnabled",
          (Option.map x.privateDnsEnabled ~f:Boolean.to_value));
        ("securityGroupIds",
          (Option.map x.securityGroupIds
             ~f:CreateServiceNetworkVpcAssociationRequestSecurityGroupIdsList.to_value));
        ("tags", (Option.map x.tags ~f:TagMap.to_value));
        ("dnsOptions", (Option.map x.dnsOptions ~f:DnsOptions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dnsOptions =
        (Option.map ~f:DnsOptions.of_xml) (Xml.child xml_arg0 "dnsOptions") in
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "tags") in
      let securityGroupIds =
        (Option.map
           ~f:CreateServiceNetworkVpcAssociationRequestSecurityGroupIdsList.of_xml)
          (Xml.child xml_arg0 "securityGroupIds") in
      let privateDnsEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "privateDnsEnabled") in
      let vpcIdentifier =
        VpcId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "vpcIdentifier") in
      let serviceNetworkIdentifier =
        ServiceNetworkIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "serviceNetworkIdentifier") in
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      make ?dnsOptions ?tags ?securityGroupIds ?privateDnsEnabled
        ~vpcIdentifier ~serviceNetworkIdentifier ?clientToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dnsOptions = field_map json__ "dnsOptions" DnsOptions.of_json in
      let tags = field_map json__ "tags" TagMap.of_json in
      let securityGroupIds =
        field_map json__ "securityGroupIds"
          CreateServiceNetworkVpcAssociationRequestSecurityGroupIdsList.of_json in
      let privateDnsEnabled =
        field_map json__ "privateDnsEnabled" Boolean.of_json in
      let vpcIdentifier = field_map_exn json__ "vpcIdentifier" VpcId.of_json in
      let serviceNetworkIdentifier =
        field_map_exn json__ "serviceNetworkIdentifier"
          ServiceNetworkIdentifier.of_json in
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      make ?dnsOptions ?tags ?securityGroupIds ?privateDnsEnabled
        ~vpcIdentifier ~serviceNetworkIdentifier ?clientToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates a VPC with a service network. When you associate a VPC with the service network, it enables all the resources within that VPC to be clients and communicate with other services in the service network. For more information, see Manage VPC associations in the Amazon VPC Lattice User Guide. You can't use this operation if there is a disassociation in progress. If the association fails, retry by deleting the association and recreating it. As a result of this operation, the association gets created in the service network account and the VPC owner account. If you add a security group to the service network and VPC association, the association must continue to always have at least one security group. You can add or edit security groups at any time. However, to remove all security groups, you must first delete the association and recreate it without security groups."]
module CreateServiceNetworkServiceAssociationResponse =
  struct
    type nonrec t =
      {
      id: ServiceNetworkServiceAssociationIdentifier.t option
        [@ocaml.doc "The ID of the association."];
      status: ServiceNetworkServiceAssociationStatus.t option
        [@ocaml.doc "The association status."];
      arn: ServiceNetworkServiceAssociationArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the association."];
      createdBy: AccountId.t option
        [@ocaml.doc "The account that created the association."];
      customDomainName: ServiceCustomDomainName.t option
        [@ocaml.doc "The custom domain name of the service."];
      dnsEntry: DnsEntry.t option [@ocaml.doc "The DNS name of the service."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?id =
      fun ?status ->
        fun ?arn ->
          fun ?createdBy ->
            fun ?customDomainName ->
              fun ?dnsEntry ->
                fun () ->
                  { id; status; arn; createdBy; customDomainName; dnsEntry }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("id",
           (Option.map x.id
              ~f:ServiceNetworkServiceAssociationIdentifier.to_value));
        ("status",
          (Option.map x.status
             ~f:ServiceNetworkServiceAssociationStatus.to_value));
        ("arn",
          (Option.map x.arn ~f:ServiceNetworkServiceAssociationArn.to_value));
        ("createdBy", (Option.map x.createdBy ~f:AccountId.to_value));
        ("customDomainName",
          (Option.map x.customDomainName ~f:ServiceCustomDomainName.to_value));
        ("dnsEntry", (Option.map x.dnsEntry ~f:DnsEntry.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dnsEntry =
        (Option.map ~f:DnsEntry.of_xml) (Xml.child xml_arg0 "dnsEntry") in
      let customDomainName =
        (Option.map ~f:ServiceCustomDomainName.of_xml)
          (Xml.child xml_arg0 "customDomainName") in
      let createdBy =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "createdBy") in
      let arn =
        (Option.map ~f:ServiceNetworkServiceAssociationArn.of_xml)
          (Xml.child xml_arg0 "arn") in
      let status =
        (Option.map ~f:ServiceNetworkServiceAssociationStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let id =
        (Option.map ~f:ServiceNetworkServiceAssociationIdentifier.of_xml)
          (Xml.child xml_arg0 "id") in
      make ?dnsEntry ?customDomainName ?createdBy ?arn ?status ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dnsEntry = field_map json__ "dnsEntry" DnsEntry.of_json in
      let customDomainName =
        field_map json__ "customDomainName" ServiceCustomDomainName.of_json in
      let createdBy = field_map json__ "createdBy" AccountId.of_json in
      let arn =
        field_map json__ "arn" ServiceNetworkServiceAssociationArn.of_json in
      let status =
        field_map json__ "status"
          ServiceNetworkServiceAssociationStatus.of_json in
      let id =
        field_map json__ "id"
          ServiceNetworkServiceAssociationIdentifier.of_json in
      make ?dnsEntry ?customDomainName ?createdBy ?arn ?status ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates the specified service with the specified service network. For more information, see Manage service associations in the Amazon VPC Lattice User Guide. You can't use this operation if the service and service network are already associated or if there is a disassociation or deletion in progress. If the association fails, you can retry the operation by deleting the association and recreating it. You cannot associate a service and service network that are shared with a caller. The caller must own either the service or the service network. As a result of this operation, the association is created in the service network account and the association owner account."]
module CreateServiceNetworkServiceAssociationRequest =
  struct
    type nonrec t =
      {
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A unique, case-sensitive identifier that you provide to ensure the idempotency of the request. If you retry a request that completed successfully using the same client token and parameters, the retry succeeds without performing any actions. If the parameters aren't identical, the retry fails."];
      serviceIdentifier: ServiceIdentifier.t
        [@ocaml.doc "The ID or ARN of the service."];
      serviceNetworkIdentifier: ServiceNetworkIdentifier.t
        [@ocaml.doc
          "The ID or ARN of the service network. You must use an ARN if the resources are in different accounts."];
      tags: TagMap.t option [@ocaml.doc "The tags for the association."]}
    let context_ = "CreateServiceNetworkServiceAssociationRequest"
    let make ?clientToken =
      fun ?tags ->
        fun ~serviceIdentifier ->
          fun ~serviceNetworkIdentifier ->
            fun () ->
              {
                clientToken;
                tags;
                serviceIdentifier;
                serviceNetworkIdentifier
              }
    let to_value x =
      structure_to_value
        [("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value));
        ("serviceIdentifier",
          (Some (ServiceIdentifier.to_value x.serviceIdentifier)));
        ("serviceNetworkIdentifier",
          (Some
             (ServiceNetworkIdentifier.to_value x.serviceNetworkIdentifier)));
        ("tags", (Option.map x.tags ~f:TagMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "tags") in
      let serviceNetworkIdentifier =
        ServiceNetworkIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "serviceNetworkIdentifier") in
      let serviceIdentifier =
        ServiceIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "serviceIdentifier") in
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      make ?tags ~serviceNetworkIdentifier ~serviceIdentifier ?clientToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagMap.of_json in
      let serviceNetworkIdentifier =
        field_map_exn json__ "serviceNetworkIdentifier"
          ServiceNetworkIdentifier.of_json in
      let serviceIdentifier =
        field_map_exn json__ "serviceIdentifier" ServiceIdentifier.of_json in
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      make ?tags ~serviceNetworkIdentifier ~serviceIdentifier ?clientToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates the specified service with the specified service network. For more information, see Manage service associations in the Amazon VPC Lattice User Guide. You can't use this operation if the service and service network are already associated or if there is a disassociation or deletion in progress. If the association fails, you can retry the operation by deleting the association and recreating it. You cannot associate a service and service network that are shared with a caller. The caller must own either the service or the service network. As a result of this operation, the association is created in the service network account and the association owner account."]
module CreateServiceNetworkResponse =
  struct
    type nonrec t =
      {
      id: ServiceNetworkId.t option
        [@ocaml.doc "The ID of the service network."];
      name: ServiceNetworkName.t option
        [@ocaml.doc "The name of the service network."];
      arn: ServiceNetworkArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the service network."];
      sharingConfig: SharingConfig.t option
        [@ocaml.doc
          "Specifies if the service network is enabled for sharing."];
      authType: AuthType.t option [@ocaml.doc "The type of IAM policy."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?id =
      fun ?name ->
        fun ?arn ->
          fun ?sharingConfig ->
            fun ?authType ->
              fun () -> { id; name; arn; sharingConfig; authType }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:ServiceNetworkId.to_value));
        ("name", (Option.map x.name ~f:ServiceNetworkName.to_value));
        ("arn", (Option.map x.arn ~f:ServiceNetworkArn.to_value));
        ("sharingConfig",
          (Option.map x.sharingConfig ~f:SharingConfig.to_value));
        ("authType", (Option.map x.authType ~f:AuthType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let authType =
        (Option.map ~f:AuthType.of_xml) (Xml.child xml_arg0 "authType") in
      let sharingConfig =
        (Option.map ~f:SharingConfig.of_xml)
          (Xml.child xml_arg0 "sharingConfig") in
      let arn =
        (Option.map ~f:ServiceNetworkArn.of_xml) (Xml.child xml_arg0 "arn") in
      let name =
        (Option.map ~f:ServiceNetworkName.of_xml) (Xml.child xml_arg0 "name") in
      let id =
        (Option.map ~f:ServiceNetworkId.of_xml) (Xml.child xml_arg0 "id") in
      make ?authType ?sharingConfig ?arn ?name ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let authType = field_map json__ "authType" AuthType.of_json in
      let sharingConfig =
        field_map json__ "sharingConfig" SharingConfig.of_json in
      let arn = field_map json__ "arn" ServiceNetworkArn.of_json in
      let name = field_map json__ "name" ServiceNetworkName.of_json in
      let id = field_map json__ "id" ServiceNetworkId.of_json in
      make ?authType ?sharingConfig ?arn ?name ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a service network. A service network is a logical boundary for a collection of services. You can associate services and VPCs with a service network. For more information, see Service networks in the Amazon VPC Lattice User Guide."]
module CreateServiceNetworkResourceAssociationResponse =
  struct
    type nonrec t =
      {
      id: ServiceNetworkResourceAssociationId.t option
        [@ocaml.doc "The ID of the association."];
      arn: ServiceNetworkResourceAssociationArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the association."];
      status: ServiceNetworkResourceAssociationStatus.t option
        [@ocaml.doc "The status of the association."];
      createdBy: AccountId.t option
        [@ocaml.doc "The ID of the account that created the association."];
      privateDnsEnabled: Boolean.t option
        [@ocaml.doc
          "Indicates if private DNS is is enabled for the service network resource association."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?id =
      fun ?arn ->
        fun ?status ->
          fun ?createdBy ->
            fun ?privateDnsEnabled ->
              fun () -> { id; arn; status; createdBy; privateDnsEnabled }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("id",
           (Option.map x.id ~f:ServiceNetworkResourceAssociationId.to_value));
        ("arn",
          (Option.map x.arn ~f:ServiceNetworkResourceAssociationArn.to_value));
        ("status",
          (Option.map x.status
             ~f:ServiceNetworkResourceAssociationStatus.to_value));
        ("createdBy", (Option.map x.createdBy ~f:AccountId.to_value));
        ("privateDnsEnabled",
          (Option.map x.privateDnsEnabled ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let privateDnsEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "privateDnsEnabled") in
      let createdBy =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "createdBy") in
      let status =
        (Option.map ~f:ServiceNetworkResourceAssociationStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let arn =
        (Option.map ~f:ServiceNetworkResourceAssociationArn.of_xml)
          (Xml.child xml_arg0 "arn") in
      let id =
        (Option.map ~f:ServiceNetworkResourceAssociationId.of_xml)
          (Xml.child xml_arg0 "id") in
      make ?privateDnsEnabled ?createdBy ?status ?arn ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let privateDnsEnabled =
        field_map json__ "privateDnsEnabled" Boolean.of_json in
      let createdBy = field_map json__ "createdBy" AccountId.of_json in
      let status =
        field_map json__ "status"
          ServiceNetworkResourceAssociationStatus.of_json in
      let arn =
        field_map json__ "arn" ServiceNetworkResourceAssociationArn.of_json in
      let id =
        field_map json__ "id" ServiceNetworkResourceAssociationId.of_json in
      make ?privateDnsEnabled ?createdBy ?status ?arn ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates the specified service network with the specified resource configuration. This allows the resource configuration to receive connections through the service network, including through a service network VPC endpoint."]
module CreateServiceNetworkResourceAssociationRequest =
  struct
    type nonrec t =
      {
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A unique, case-sensitive identifier that you provide to ensure the idempotency of the request. If you retry a request that completed successfully using the same client token and parameters, the retry succeeds without performing any actions. If the parameters aren't identical, the retry fails."];
      resourceConfigurationIdentifier: ResourceConfigurationIdentifier.t
        [@ocaml.doc
          "The ID of the resource configuration to associate with the service network."];
      serviceNetworkIdentifier: ServiceNetworkIdentifierWithoutRegex.t
        [@ocaml.doc
          "The ID of the service network to associate with the resource configuration."];
      privateDnsEnabled: Boolean.t option
        [@ocaml.doc
          "Indicates if private DNS is enabled for the service network resource association."];
      tags: TagMap.t option
        [@ocaml.doc "A key-value pair to associate with a resource."]}
    let context_ = "CreateServiceNetworkResourceAssociationRequest"
    let make ?clientToken =
      fun ?privateDnsEnabled ->
        fun ?tags ->
          fun ~resourceConfigurationIdentifier ->
            fun ~serviceNetworkIdentifier ->
              fun () ->
                {
                  clientToken;
                  privateDnsEnabled;
                  tags;
                  resourceConfigurationIdentifier;
                  serviceNetworkIdentifier
                }
    let to_value x =
      structure_to_value
        [("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value));
        ("resourceConfigurationIdentifier",
          (Some
             (ResourceConfigurationIdentifier.to_value
                x.resourceConfigurationIdentifier)));
        ("serviceNetworkIdentifier",
          (Some
             (ServiceNetworkIdentifierWithoutRegex.to_value
                x.serviceNetworkIdentifier)));
        ("privateDnsEnabled",
          (Option.map x.privateDnsEnabled ~f:Boolean.to_value));
        ("tags", (Option.map x.tags ~f:TagMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "tags") in
      let privateDnsEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "privateDnsEnabled") in
      let serviceNetworkIdentifier =
        ServiceNetworkIdentifierWithoutRegex.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "serviceNetworkIdentifier") in
      let resourceConfigurationIdentifier =
        ResourceConfigurationIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "resourceConfigurationIdentifier") in
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      make ?tags ?privateDnsEnabled ~serviceNetworkIdentifier
        ~resourceConfigurationIdentifier ?clientToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagMap.of_json in
      let privateDnsEnabled =
        field_map json__ "privateDnsEnabled" Boolean.of_json in
      let serviceNetworkIdentifier =
        field_map_exn json__ "serviceNetworkIdentifier"
          ServiceNetworkIdentifierWithoutRegex.of_json in
      let resourceConfigurationIdentifier =
        field_map_exn json__ "resourceConfigurationIdentifier"
          ResourceConfigurationIdentifier.of_json in
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      make ?tags ?privateDnsEnabled ~serviceNetworkIdentifier
        ~resourceConfigurationIdentifier ?clientToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates the specified service network with the specified resource configuration. This allows the resource configuration to receive connections through the service network, including through a service network VPC endpoint."]
module CreateServiceNetworkRequest =
  struct
    type nonrec t =
      {
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A unique, case-sensitive identifier that you provide to ensure the idempotency of the request. If you retry a request that completed successfully using the same client token and parameters, the retry succeeds without performing any actions. If the parameters aren't identical, the retry fails."];
      name: ServiceNetworkName.t
        [@ocaml.doc
          "The name of the service network. The name must be unique to the account. The valid characters are a-z, 0-9, and hyphens (-). You can't use a hyphen as the first or last character, or immediately after another hyphen."];
      authType: AuthType.t option
        [@ocaml.doc
          "The type of IAM policy. NONE: The resource does not use an IAM policy. This is the default. AWS_IAM: The resource uses an IAM policy. When this type is used, auth is enabled and an auth policy is required."];
      tags: TagMap.t option [@ocaml.doc "The tags for the service network."];
      sharingConfig: SharingConfig.t option
        [@ocaml.doc
          "Specify if the service network should be enabled for sharing."]}
    let context_ = "CreateServiceNetworkRequest"
    let make ?clientToken =
      fun ?authType ->
        fun ?tags ->
          fun ?sharingConfig ->
            fun ~name ->
              fun () -> { clientToken; authType; tags; sharingConfig; name }
    let to_value x =
      structure_to_value
        [("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value));
        ("name", (Some (ServiceNetworkName.to_value x.name)));
        ("authType", (Option.map x.authType ~f:AuthType.to_value));
        ("tags", (Option.map x.tags ~f:TagMap.to_value));
        ("sharingConfig",
          (Option.map x.sharingConfig ~f:SharingConfig.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sharingConfig =
        (Option.map ~f:SharingConfig.of_xml)
          (Xml.child xml_arg0 "sharingConfig") in
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "tags") in
      let authType =
        (Option.map ~f:AuthType.of_xml) (Xml.child xml_arg0 "authType") in
      let name =
        ServiceNetworkName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      make ?sharingConfig ?tags ?authType ~name ?clientToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sharingConfig =
        field_map json__ "sharingConfig" SharingConfig.of_json in
      let tags = field_map json__ "tags" TagMap.of_json in
      let authType = field_map json__ "authType" AuthType.of_json in
      let name = field_map_exn json__ "name" ServiceNetworkName.of_json in
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      make ?sharingConfig ?tags ?authType ~name ?clientToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a service network. A service network is a logical boundary for a collection of services. You can associate services and VPCs with a service network. For more information, see Service networks in the Amazon VPC Lattice User Guide."]
module CreateRuleResponse =
  struct
    type nonrec t =
      {
      arn: RuleArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the rule."];
      id: RuleId.t option [@ocaml.doc "The ID of the rule."];
      name: RuleName.t option [@ocaml.doc "The name of the rule."];
      match_: RuleMatch.t option
        [@ocaml.doc
          "The rule match. The RuleMatch must be an HttpMatch. This means that the rule should be an exact match on HTTP constraints which are made up of the HTTP method, path, and header."];
      priority: RulePriority.t option
        [@ocaml.doc
          "The priority assigned to the rule. The lower the priority number the higher the priority."];
      action: RuleAction.t option [@ocaml.doc "The rule action."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?arn =
      fun ?id ->
        fun ?name ->
          fun ?match_ ->
            fun ?priority ->
              fun ?action ->
                fun () -> { arn; id; name; match_; priority; action }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:RuleArn.to_value));
        ("id", (Option.map x.id ~f:RuleId.to_value));
        ("name", (Option.map x.name ~f:RuleName.to_value));
        ("match", (Option.map x.match_ ~f:RuleMatch.to_value));
        ("priority", (Option.map x.priority ~f:RulePriority.to_value));
        ("action", (Option.map x.action ~f:RuleAction.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let action =
        (Option.map ~f:RuleAction.of_xml) (Xml.child xml_arg0 "action") in
      let priority =
        (Option.map ~f:RulePriority.of_xml) (Xml.child xml_arg0 "priority") in
      let match_ =
        (Option.map ~f:RuleMatch.of_xml) (Xml.child xml_arg0 "match") in
      let name = (Option.map ~f:RuleName.of_xml) (Xml.child xml_arg0 "name") in
      let id = (Option.map ~f:RuleId.of_xml) (Xml.child xml_arg0 "id") in
      let arn = (Option.map ~f:RuleArn.of_xml) (Xml.child xml_arg0 "arn") in
      make ?action ?priority ?match_ ?name ?id ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let action = field_map json__ "action" RuleAction.of_json in
      let priority = field_map json__ "priority" RulePriority.of_json in
      let match_ = field_map json__ "match" RuleMatch.of_json in
      let name = field_map json__ "name" RuleName.of_json in
      let id = field_map json__ "id" RuleId.of_json in
      let arn = field_map json__ "arn" RuleArn.of_json in
      make ?action ?priority ?match_ ?name ?id ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a listener rule. Each listener has a default rule for checking connection requests, but you can define additional rules. Each rule consists of a priority, one or more actions, and one or more conditions. For more information, see Listener rules in the Amazon VPC Lattice User Guide."]
module CreateRuleRequest =
  struct
    type nonrec t =
      {
      serviceIdentifier: ServiceIdentifier.t
        [@ocaml.doc "The ID or ARN of the service."];
      listenerIdentifier: ListenerIdentifier.t
        [@ocaml.doc "The ID or ARN of the listener."];
      name: RuleName.t
        [@ocaml.doc
          "The name of the rule. The name must be unique within the listener. The valid characters are a-z, 0-9, and hyphens (-). You can't use a hyphen as the first or last character, or immediately after another hyphen."];
      match_: RuleMatch.t [@ocaml.doc "The rule match."];
      priority: RulePriority.t
        [@ocaml.doc
          "The priority assigned to the rule. Each rule for a specific listener must have a unique priority. The lower the priority number the higher the priority."];
      action: RuleAction.t [@ocaml.doc "The action for the default rule."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A unique, case-sensitive identifier that you provide to ensure the idempotency of the request. If you retry a request that completed successfully using the same client token and parameters, the retry succeeds without performing any actions. If the parameters aren't identical, the retry fails."];
      tags: TagMap.t option [@ocaml.doc "The tags for the rule."]}
    let context_ = "CreateRuleRequest"
    let make ?clientToken =
      fun ?tags ->
        fun ~serviceIdentifier ->
          fun ~listenerIdentifier ->
            fun ~name ->
              fun ~match_ ->
                fun ~priority ->
                  fun ~action ->
                    fun () ->
                      {
                        clientToken;
                        tags;
                        serviceIdentifier;
                        listenerIdentifier;
                        name;
                        match_;
                        priority;
                        action
                      }
    let to_value x =
      structure_to_value
        [("serviceIdentifier",
           (Some (ServiceIdentifier.to_value x.serviceIdentifier)));
        ("listenerIdentifier",
          (Some (ListenerIdentifier.to_value x.listenerIdentifier)));
        ("name", (Some (RuleName.to_value x.name)));
        ("match", (Some (RuleMatch.to_value x.match_)));
        ("priority", (Some (RulePriority.to_value x.priority)));
        ("action", (Some (RuleAction.to_value x.action)));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value));
        ("tags", (Option.map x.tags ~f:TagMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "tags") in
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let action =
        RuleAction.of_xml (Xml.child_exn ~context:context_ xml_arg0 "action") in
      let priority =
        RulePriority.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "priority") in
      let match_ =
        RuleMatch.of_xml (Xml.child_exn ~context:context_ xml_arg0 "match") in
      let name =
        RuleName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let listenerIdentifier =
        ListenerIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "listenerIdentifier") in
      let serviceIdentifier =
        ServiceIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "serviceIdentifier") in
      make ?tags ?clientToken ~action ~priority ~match_ ~name
        ~listenerIdentifier ~serviceIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagMap.of_json in
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let action = field_map_exn json__ "action" RuleAction.of_json in
      let priority = field_map_exn json__ "priority" RulePriority.of_json in
      let match_ = field_map_exn json__ "match" RuleMatch.of_json in
      let name = field_map_exn json__ "name" RuleName.of_json in
      let listenerIdentifier =
        field_map_exn json__ "listenerIdentifier" ListenerIdentifier.of_json in
      let serviceIdentifier =
        field_map_exn json__ "serviceIdentifier" ServiceIdentifier.of_json in
      make ?tags ?clientToken ~action ~priority ~match_ ~name
        ~listenerIdentifier ~serviceIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a listener rule. Each listener has a default rule for checking connection requests, but you can define additional rules. Each rule consists of a priority, one or more actions, and one or more conditions. For more information, see Listener rules in the Amazon VPC Lattice User Guide."]
module CreateResourceGatewayResponse =
  struct
    type nonrec t =
      {
      name: ResourceGatewayName.t option
        [@ocaml.doc "The name of the resource gateway."];
      id: ResourceGatewayId.t option
        [@ocaml.doc "The ID of the resource gateway."];
      arn: ResourceGatewayArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource gateway."];
      status: ResourceGatewayStatus.t option
        [@ocaml.doc "The status of the resource gateway."];
      vpcIdentifier: VpcId.t option [@ocaml.doc "The ID of the VPC."];
      subnetIds: SubnetList.t option
        [@ocaml.doc "The IDs of the resource gateway subnets."];
      securityGroupIds: SecurityGroupList.t option
        [@ocaml.doc
          "The IDs of the security groups for the resource gateway."];
      ipAddressType: ResourceGatewayIpAddressType.t option
        [@ocaml.doc "The type of IP address for the resource gateway."];
      ipv4AddressesPerEni: Ipv4AddressesPerEni.t option
        [@ocaml.doc
          "The number of IPv4 addresses in each ENI for the resource gateway."];
      resourceConfigDnsResolution: ResourceConfigDnsResolution.t option
        [@ocaml.doc
          "The DNS resolution type for resource configurations that are associated with this resource gateway."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?name =
      fun ?id ->
        fun ?arn ->
          fun ?status ->
            fun ?vpcIdentifier ->
              fun ?subnetIds ->
                fun ?securityGroupIds ->
                  fun ?ipAddressType ->
                    fun ?ipv4AddressesPerEni ->
                      fun ?resourceConfigDnsResolution ->
                        fun () ->
                          {
                            name;
                            id;
                            arn;
                            status;
                            vpcIdentifier;
                            subnetIds;
                            securityGroupIds;
                            ipAddressType;
                            ipv4AddressesPerEni;
                            resourceConfigDnsResolution
                          }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:ResourceGatewayName.to_value));
        ("id", (Option.map x.id ~f:ResourceGatewayId.to_value));
        ("arn", (Option.map x.arn ~f:ResourceGatewayArn.to_value));
        ("status", (Option.map x.status ~f:ResourceGatewayStatus.to_value));
        ("vpcIdentifier", (Option.map x.vpcIdentifier ~f:VpcId.to_value));
        ("subnetIds", (Option.map x.subnetIds ~f:SubnetList.to_value));
        ("securityGroupIds",
          (Option.map x.securityGroupIds ~f:SecurityGroupList.to_value));
        ("ipAddressType",
          (Option.map x.ipAddressType
             ~f:ResourceGatewayIpAddressType.to_value));
        ("ipv4AddressesPerEni",
          (Option.map x.ipv4AddressesPerEni ~f:Ipv4AddressesPerEni.to_value));
        ("resourceConfigDnsResolution",
          (Option.map x.resourceConfigDnsResolution
             ~f:ResourceConfigDnsResolution.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceConfigDnsResolution =
        (Option.map ~f:ResourceConfigDnsResolution.of_xml)
          (Xml.child xml_arg0 "resourceConfigDnsResolution") in
      let ipv4AddressesPerEni =
        (Option.map ~f:Ipv4AddressesPerEni.of_xml)
          (Xml.child xml_arg0 "ipv4AddressesPerEni") in
      let ipAddressType =
        (Option.map ~f:ResourceGatewayIpAddressType.of_xml)
          (Xml.child xml_arg0 "ipAddressType") in
      let securityGroupIds =
        (Option.map ~f:SecurityGroupList.of_xml)
          (Xml.child xml_arg0 "securityGroupIds") in
      let subnetIds =
        (Option.map ~f:SubnetList.of_xml) (Xml.child xml_arg0 "subnetIds") in
      let vpcIdentifier =
        (Option.map ~f:VpcId.of_xml) (Xml.child xml_arg0 "vpcIdentifier") in
      let status =
        (Option.map ~f:ResourceGatewayStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let arn =
        (Option.map ~f:ResourceGatewayArn.of_xml) (Xml.child xml_arg0 "arn") in
      let id =
        (Option.map ~f:ResourceGatewayId.of_xml) (Xml.child xml_arg0 "id") in
      let name =
        (Option.map ~f:ResourceGatewayName.of_xml)
          (Xml.child xml_arg0 "name") in
      make ?resourceConfigDnsResolution ?ipv4AddressesPerEni ?ipAddressType
        ?securityGroupIds ?subnetIds ?vpcIdentifier ?status ?arn ?id ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceConfigDnsResolution =
        field_map json__ "resourceConfigDnsResolution"
          ResourceConfigDnsResolution.of_json in
      let ipv4AddressesPerEni =
        field_map json__ "ipv4AddressesPerEni" Ipv4AddressesPerEni.of_json in
      let ipAddressType =
        field_map json__ "ipAddressType" ResourceGatewayIpAddressType.of_json in
      let securityGroupIds =
        field_map json__ "securityGroupIds" SecurityGroupList.of_json in
      let subnetIds = field_map json__ "subnetIds" SubnetList.of_json in
      let vpcIdentifier = field_map json__ "vpcIdentifier" VpcId.of_json in
      let status = field_map json__ "status" ResourceGatewayStatus.of_json in
      let arn = field_map json__ "arn" ResourceGatewayArn.of_json in
      let id = field_map json__ "id" ResourceGatewayId.of_json in
      let name = field_map json__ "name" ResourceGatewayName.of_json in
      make ?resourceConfigDnsResolution ?ipv4AddressesPerEni ?ipAddressType
        ?securityGroupIds ?subnetIds ?vpcIdentifier ?status ?arn ?id ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A resource gateway is a point of ingress into the VPC where a resource resides. It spans multiple Availability Zones. For your resource to be accessible from all Availability Zones, you should create your resource gateways to span as many Availability Zones as possible. A VPC can have multiple resource gateways."]
module CreateResourceGatewayRequest =
  struct
    type nonrec t =
      {
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A unique, case-sensitive identifier that you provide to ensure the idempotency of the request. If you retry a request that completed successfully using the same client token and parameters, the retry succeeds without performing any actions. If the parameters aren't identical, the retry fails."];
      name: ResourceGatewayName.t
        [@ocaml.doc "The name of the resource gateway."];
      vpcIdentifier: VpcId.t option
        [@ocaml.doc "The ID of the VPC for the resource gateway."];
      subnetIds: SubnetList.t option
        [@ocaml.doc
          "The IDs of the VPC subnets in which to create the resource gateway."];
      securityGroupIds:
        CreateResourceGatewayRequestSecurityGroupIdsList.t option
        [@ocaml.doc
          "The IDs of the security groups to apply to the resource gateway. The security groups must be in the same VPC."];
      ipAddressType: ResourceGatewayIpAddressType.t option
        [@ocaml.doc
          "A resource gateway can have IPv4, IPv6 or dualstack addresses. The IP address type of a resource gateway must be compatible with the subnets of the resource gateway and the IP address type of the resource, as described here: IPv4Assign IPv4 addresses to your resource gateway network interfaces. This option is supported only if all selected subnets have IPv4 address ranges, and the resource also has an IPv4 address. IPv6Assign IPv6 addresses to your resource gateway network interfaces. This option is supported only if all selected subnets are IPv6 only subnets, and the resource also has an IPv6 address. DualstackAssign both IPv4 and IPv6 addresses to your resource gateway network interfaces. This option is supported only if all selected subnets have both IPv4 and IPv6 address ranges, and the resource either has an IPv4 or IPv6 address. The IP address type of the resource gateway is independent of the IP address type of the client or the VPC endpoint through which the resource is accessed."];
      ipv4AddressesPerEni: Ipv4AddressesPerEni.t option
        [@ocaml.doc
          "The number of IPv4 addresses in each ENI for the resource gateway."];
      resourceConfigDnsResolution: ResourceConfigDnsResolution.t option
        [@ocaml.doc
          "Indicates how DNS is resolved for resource configurations associated to this resource gateway. ResourceConfigDnsResolution is set at creation time and cannot be changed. IN_VPC - DNS resolution occurs privately within the resource gateway's VPC. DNS queries for resources behind this resource gateway resolve using the DNS resolvers defined in the VPC's DHCP option sets. Use this when your resource domain names are hosted in private Route 53 hosted zones or on-premises DNS servers reachable from the VPC. PUBLIC - DNS resolution occurs against public DNS resolvers. DNS queries for resources behind this resource gateway resolve using standard public DNS. Use this when your resource domain names are publicly resolvable."];
      tags: TagMap.t option [@ocaml.doc "The tags for the resource gateway."]}
    let context_ = "CreateResourceGatewayRequest"
    let make ?clientToken =
      fun ?vpcIdentifier ->
        fun ?subnetIds ->
          fun ?securityGroupIds ->
            fun ?ipAddressType ->
              fun ?ipv4AddressesPerEni ->
                fun ?resourceConfigDnsResolution ->
                  fun ?tags ->
                    fun ~name ->
                      fun () ->
                        {
                          clientToken;
                          vpcIdentifier;
                          subnetIds;
                          securityGroupIds;
                          ipAddressType;
                          ipv4AddressesPerEni;
                          resourceConfigDnsResolution;
                          tags;
                          name
                        }
    let to_value x =
      structure_to_value
        [("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value));
        ("name", (Some (ResourceGatewayName.to_value x.name)));
        ("vpcIdentifier", (Option.map x.vpcIdentifier ~f:VpcId.to_value));
        ("subnetIds", (Option.map x.subnetIds ~f:SubnetList.to_value));
        ("securityGroupIds",
          (Option.map x.securityGroupIds
             ~f:CreateResourceGatewayRequestSecurityGroupIdsList.to_value));
        ("ipAddressType",
          (Option.map x.ipAddressType
             ~f:ResourceGatewayIpAddressType.to_value));
        ("ipv4AddressesPerEni",
          (Option.map x.ipv4AddressesPerEni ~f:Ipv4AddressesPerEni.to_value));
        ("resourceConfigDnsResolution",
          (Option.map x.resourceConfigDnsResolution
             ~f:ResourceConfigDnsResolution.to_value));
        ("tags", (Option.map x.tags ~f:TagMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "tags") in
      let resourceConfigDnsResolution =
        (Option.map ~f:ResourceConfigDnsResolution.of_xml)
          (Xml.child xml_arg0 "resourceConfigDnsResolution") in
      let ipv4AddressesPerEni =
        (Option.map ~f:Ipv4AddressesPerEni.of_xml)
          (Xml.child xml_arg0 "ipv4AddressesPerEni") in
      let ipAddressType =
        (Option.map ~f:ResourceGatewayIpAddressType.of_xml)
          (Xml.child xml_arg0 "ipAddressType") in
      let securityGroupIds =
        (Option.map
           ~f:CreateResourceGatewayRequestSecurityGroupIdsList.of_xml)
          (Xml.child xml_arg0 "securityGroupIds") in
      let subnetIds =
        (Option.map ~f:SubnetList.of_xml) (Xml.child xml_arg0 "subnetIds") in
      let vpcIdentifier =
        (Option.map ~f:VpcId.of_xml) (Xml.child xml_arg0 "vpcIdentifier") in
      let name =
        ResourceGatewayName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      make ?tags ?resourceConfigDnsResolution ?ipv4AddressesPerEni
        ?ipAddressType ?securityGroupIds ?subnetIds ?vpcIdentifier ~name
        ?clientToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagMap.of_json in
      let resourceConfigDnsResolution =
        field_map json__ "resourceConfigDnsResolution"
          ResourceConfigDnsResolution.of_json in
      let ipv4AddressesPerEni =
        field_map json__ "ipv4AddressesPerEni" Ipv4AddressesPerEni.of_json in
      let ipAddressType =
        field_map json__ "ipAddressType" ResourceGatewayIpAddressType.of_json in
      let securityGroupIds =
        field_map json__ "securityGroupIds"
          CreateResourceGatewayRequestSecurityGroupIdsList.of_json in
      let subnetIds = field_map json__ "subnetIds" SubnetList.of_json in
      let vpcIdentifier = field_map json__ "vpcIdentifier" VpcId.of_json in
      let name = field_map_exn json__ "name" ResourceGatewayName.of_json in
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      make ?tags ?resourceConfigDnsResolution ?ipv4AddressesPerEni
        ?ipAddressType ?securityGroupIds ?subnetIds ?vpcIdentifier ~name
        ?clientToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A resource gateway is a point of ingress into the VPC where a resource resides. It spans multiple Availability Zones. For your resource to be accessible from all Availability Zones, you should create your resource gateways to span as many Availability Zones as possible. A VPC can have multiple resource gateways."]
module CreateResourceConfigurationResponse =
  struct
    type nonrec t =
      {
      id: ResourceConfigurationId.t option
        [@ocaml.doc "The ID of the resource configuration."];
      name: ResourceConfigurationName.t option
        [@ocaml.doc "The name of the resource configuration."];
      arn: ResourceConfigurationArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource configuration."];
      resourceGatewayId: ResourceGatewayId.t option
        [@ocaml.doc
          "The ID of the resource gateway associated with the resource configuration."];
      resourceConfigurationGroupId: ResourceConfigurationId.t option
        [@ocaml.doc
          "The ID of the parent resource configuration of type GROUP."];
      type_: ResourceConfigurationType.t option
        [@ocaml.doc
          "The type of resource configuration. A resource configuration can be one of the following types: SINGLE - A single resource. GROUP - A group of resources. You must create a group resource configuration before you create a child resource configuration. CHILD - A single resource that is part of a group resource configuration. ARN - An Amazon Web Services resource."];
      portRanges: PortRangeList.t option [@ocaml.doc "The port range."];
      protocol: ProtocolType.t option [@ocaml.doc "The protocol."];
      status: ResourceConfigurationStatus.t option
        [@ocaml.doc "The current status of the resource configuration."];
      resourceConfigurationDefinition:
        ResourceConfigurationDefinition.t option
        [@ocaml.doc
          "Identifies the resource configuration in one of the following ways: Amazon Resource Name (ARN) - Supported resource-types that are provisioned by Amazon Web Services services, such as RDS databases, can be identified by their ARN. Domain name - Any domain name that is publicly resolvable. IP address - For IPv4 and IPv6, only IP addresses in the VPC are supported."];
      allowAssociationToShareableServiceNetwork: Boolean.t option
        [@ocaml.doc
          "Specifies whether the resource configuration can be associated with a sharable service network."];
      createdAt: Timestamp.t option
        [@ocaml.doc
          "The date and time that the resource configuration was created, in ISO-8601 format."];
      failureReason: String_.t option
        [@ocaml.doc "The reason that the request failed."];
      customDomainName: DomainName.t option
        [@ocaml.doc
          "The custom domain name for your resource configuration."];
      domainVerificationId: DomainVerificationId.t option
        [@ocaml.doc "The domain name verification ID."];
      groupDomain: DomainName.t option
        [@ocaml.doc
          "(GROUP) The group domain for a group resource configuration. Any domains that you create for the child resource are subdomains of the group domain. Child resources inherit the verification status of the domain."];
      domainVerificationArn: DomainVerificationArn.t option
        [@ocaml.doc "The verification ID ARN"]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?id =
      fun ?name ->
        fun ?arn ->
          fun ?resourceGatewayId ->
            fun ?resourceConfigurationGroupId ->
              fun ?type_ ->
                fun ?portRanges ->
                  fun ?protocol ->
                    fun ?status ->
                      fun ?resourceConfigurationDefinition ->
                        fun ?allowAssociationToShareableServiceNetwork ->
                          fun ?createdAt ->
                            fun ?failureReason ->
                              fun ?customDomainName ->
                                fun ?domainVerificationId ->
                                  fun ?groupDomain ->
                                    fun ?domainVerificationArn ->
                                      fun () ->
                                        {
                                          id;
                                          name;
                                          arn;
                                          resourceGatewayId;
                                          resourceConfigurationGroupId;
                                          type_;
                                          portRanges;
                                          protocol;
                                          status;
                                          resourceConfigurationDefinition;
                                          allowAssociationToShareableServiceNetwork;
                                          createdAt;
                                          failureReason;
                                          customDomainName;
                                          domainVerificationId;
                                          groupDomain;
                                          domainVerificationArn
                                        }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:ResourceConfigurationId.to_value));
        ("name", (Option.map x.name ~f:ResourceConfigurationName.to_value));
        ("arn", (Option.map x.arn ~f:ResourceConfigurationArn.to_value));
        ("resourceGatewayId",
          (Option.map x.resourceGatewayId ~f:ResourceGatewayId.to_value));
        ("resourceConfigurationGroupId",
          (Option.map x.resourceConfigurationGroupId
             ~f:ResourceConfigurationId.to_value));
        ("type", (Option.map x.type_ ~f:ResourceConfigurationType.to_value));
        ("portRanges", (Option.map x.portRanges ~f:PortRangeList.to_value));
        ("protocol", (Option.map x.protocol ~f:ProtocolType.to_value));
        ("status",
          (Option.map x.status ~f:ResourceConfigurationStatus.to_value));
        ("resourceConfigurationDefinition",
          (Option.map x.resourceConfigurationDefinition
             ~f:ResourceConfigurationDefinition.to_value));
        ("allowAssociationToShareableServiceNetwork",
          (Option.map x.allowAssociationToShareableServiceNetwork
             ~f:Boolean.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("failureReason", (Option.map x.failureReason ~f:String_.to_value));
        ("customDomainName",
          (Option.map x.customDomainName ~f:DomainName.to_value));
        ("domainVerificationId",
          (Option.map x.domainVerificationId ~f:DomainVerificationId.to_value));
        ("groupDomain", (Option.map x.groupDomain ~f:DomainName.to_value));
        ("domainVerificationArn",
          (Option.map x.domainVerificationArn
             ~f:DomainVerificationArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let domainVerificationArn =
        (Option.map ~f:DomainVerificationArn.of_xml)
          (Xml.child xml_arg0 "domainVerificationArn") in
      let groupDomain =
        (Option.map ~f:DomainName.of_xml) (Xml.child xml_arg0 "groupDomain") in
      let domainVerificationId =
        (Option.map ~f:DomainVerificationId.of_xml)
          (Xml.child xml_arg0 "domainVerificationId") in
      let customDomainName =
        (Option.map ~f:DomainName.of_xml)
          (Xml.child xml_arg0 "customDomainName") in
      let failureReason =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "failureReason") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let allowAssociationToShareableServiceNetwork =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "allowAssociationToShareableServiceNetwork") in
      let resourceConfigurationDefinition =
        (Option.map ~f:ResourceConfigurationDefinition.of_xml)
          (Xml.child xml_arg0 "resourceConfigurationDefinition") in
      let status =
        (Option.map ~f:ResourceConfigurationStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let protocol =
        (Option.map ~f:ProtocolType.of_xml) (Xml.child xml_arg0 "protocol") in
      let portRanges =
        (Option.map ~f:PortRangeList.of_xml)
          (Xml.child xml_arg0 "portRanges") in
      let type_ =
        (Option.map ~f:ResourceConfigurationType.of_xml)
          (Xml.child xml_arg0 "type") in
      let resourceConfigurationGroupId =
        (Option.map ~f:ResourceConfigurationId.of_xml)
          (Xml.child xml_arg0 "resourceConfigurationGroupId") in
      let resourceGatewayId =
        (Option.map ~f:ResourceGatewayId.of_xml)
          (Xml.child xml_arg0 "resourceGatewayId") in
      let arn =
        (Option.map ~f:ResourceConfigurationArn.of_xml)
          (Xml.child xml_arg0 "arn") in
      let name =
        (Option.map ~f:ResourceConfigurationName.of_xml)
          (Xml.child xml_arg0 "name") in
      let id =
        (Option.map ~f:ResourceConfigurationId.of_xml)
          (Xml.child xml_arg0 "id") in
      make ?domainVerificationArn ?groupDomain ?domainVerificationId
        ?customDomainName ?failureReason ?createdAt
        ?allowAssociationToShareableServiceNetwork
        ?resourceConfigurationDefinition ?status ?protocol ?portRanges ?type_
        ?resourceConfigurationGroupId ?resourceGatewayId ?arn ?name ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let domainVerificationArn =
        field_map json__ "domainVerificationArn"
          DomainVerificationArn.of_json in
      let groupDomain = field_map json__ "groupDomain" DomainName.of_json in
      let domainVerificationId =
        field_map json__ "domainVerificationId" DomainVerificationId.of_json in
      let customDomainName =
        field_map json__ "customDomainName" DomainName.of_json in
      let failureReason = field_map json__ "failureReason" String_.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let allowAssociationToShareableServiceNetwork =
        field_map json__ "allowAssociationToShareableServiceNetwork"
          Boolean.of_json in
      let resourceConfigurationDefinition =
        field_map json__ "resourceConfigurationDefinition"
          ResourceConfigurationDefinition.of_json in
      let status =
        field_map json__ "status" ResourceConfigurationStatus.of_json in
      let protocol = field_map json__ "protocol" ProtocolType.of_json in
      let portRanges = field_map json__ "portRanges" PortRangeList.of_json in
      let type_ = field_map json__ "type" ResourceConfigurationType.of_json in
      let resourceConfigurationGroupId =
        field_map json__ "resourceConfigurationGroupId"
          ResourceConfigurationId.of_json in
      let resourceGatewayId =
        field_map json__ "resourceGatewayId" ResourceGatewayId.of_json in
      let arn = field_map json__ "arn" ResourceConfigurationArn.of_json in
      let name = field_map json__ "name" ResourceConfigurationName.of_json in
      let id = field_map json__ "id" ResourceConfigurationId.of_json in
      make ?domainVerificationArn ?groupDomain ?domainVerificationId
        ?customDomainName ?failureReason ?createdAt
        ?allowAssociationToShareableServiceNetwork
        ?resourceConfigurationDefinition ?status ?protocol ?portRanges ?type_
        ?resourceConfigurationGroupId ?resourceGatewayId ?arn ?name ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a resource configuration. A resource configuration defines a specific resource. You can associate a resource configuration with a service network or a VPC endpoint."]
module CreateResourceConfigurationRequest =
  struct
    type nonrec t =
      {
      name: ResourceConfigurationName.t
        [@ocaml.doc
          "The name of the resource configuration. The name must be unique within the account. The valid characters are a-z, 0-9, and hyphens (-). You can't use a hyphen as the first or last character, or immediately after another hyphen."];
      type_: ResourceConfigurationType.t
        [@ocaml.doc
          "The type of resource configuration. A resource configuration can be one of the following types: SINGLE - A single resource. GROUP - A group of resources. You must create a group resource configuration before you create a child resource configuration. CHILD - A single resource that is part of a group resource configuration. ARN - An Amazon Web Services resource."];
      portRanges: PortRangeList.t option
        [@ocaml.doc
          "(SINGLE, GROUP, CHILD) The TCP port ranges that a consumer can use to access a resource configuration (for example: 1-65535). You can separate port ranges using commas (for example: 1,2,22-30)."];
      protocol: ProtocolType.t option
        [@ocaml.doc
          "(SINGLE, GROUP) The protocol accepted by the resource configuration."];
      resourceGatewayIdentifier: ResourceGatewayIdentifier.t option
        [@ocaml.doc
          "(SINGLE, GROUP, ARN) The ID or ARN of the resource gateway used to connect to the resource configuration. For a child resource configuration, this value is inherited from the parent resource configuration."];
      resourceConfigurationGroupIdentifier:
        ResourceConfigurationIdentifier.t option
        [@ocaml.doc
          "(CHILD) The ID or ARN of the parent resource configuration of type GROUP. This is used to associate a child resource configuration with a group resource configuration."];
      resourceConfigurationDefinition:
        ResourceConfigurationDefinition.t option
        [@ocaml.doc
          "Identifies the resource configuration in one of the following ways: Amazon Resource Name (ARN) - Supported resource-types that are provisioned by Amazon Web Services services, such as RDS databases, can be identified by their ARN. Domain name - Any domain name that is publicly resolvable. IP address - For IPv4 and IPv6, only IP addresses in the VPC are supported."];
      allowAssociationToShareableServiceNetwork: Boolean.t option
        [@ocaml.doc
          "(SINGLE, GROUP, ARN) Specifies whether the resource configuration can be associated with a sharable service network. The default is false."];
      customDomainName: DomainName.t option
        [@ocaml.doc
          "A custom domain name for your resource configuration. Additionally, provide a DomainVerificationID to prove your ownership of a domain."];
      groupDomain: DomainName.t option
        [@ocaml.doc
          "(GROUP) The group domain for a group resource configuration. Any domains that you create for the child resource are subdomains of the group domain. Child resources inherit the verification status of the domain."];
      domainVerificationIdentifier: DomainVerificationIdentifier.t option
        [@ocaml.doc
          "The domain verification ID of your verified custom domain name. If you don't provide an ID, you must configure the DNS settings yourself."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A unique, case-sensitive identifier that you provide to ensure the idempotency of the request. If you retry a request that completed successfully using the same client token and parameters, the retry succeeds without performing any actions. If the parameters aren't identical, the retry fails."];
      tags: TagMap.t option
        [@ocaml.doc "The tags for the resource configuration."]}
    let context_ = "CreateResourceConfigurationRequest"
    let make ?portRanges =
      fun ?protocol ->
        fun ?resourceGatewayIdentifier ->
          fun ?resourceConfigurationGroupIdentifier ->
            fun ?resourceConfigurationDefinition ->
              fun ?allowAssociationToShareableServiceNetwork ->
                fun ?customDomainName ->
                  fun ?groupDomain ->
                    fun ?domainVerificationIdentifier ->
                      fun ?clientToken ->
                        fun ?tags ->
                          fun ~name ->
                            fun ~type_ ->
                              fun () ->
                                {
                                  portRanges;
                                  protocol;
                                  resourceGatewayIdentifier;
                                  resourceConfigurationGroupIdentifier;
                                  resourceConfigurationDefinition;
                                  allowAssociationToShareableServiceNetwork;
                                  customDomainName;
                                  groupDomain;
                                  domainVerificationIdentifier;
                                  clientToken;
                                  tags;
                                  name;
                                  type_
                                }
    let to_value x =
      structure_to_value
        [("name", (Some (ResourceConfigurationName.to_value x.name)));
        ("type", (Some (ResourceConfigurationType.to_value x.type_)));
        ("portRanges", (Option.map x.portRanges ~f:PortRangeList.to_value));
        ("protocol", (Option.map x.protocol ~f:ProtocolType.to_value));
        ("resourceGatewayIdentifier",
          (Option.map x.resourceGatewayIdentifier
             ~f:ResourceGatewayIdentifier.to_value));
        ("resourceConfigurationGroupIdentifier",
          (Option.map x.resourceConfigurationGroupIdentifier
             ~f:ResourceConfigurationIdentifier.to_value));
        ("resourceConfigurationDefinition",
          (Option.map x.resourceConfigurationDefinition
             ~f:ResourceConfigurationDefinition.to_value));
        ("allowAssociationToShareableServiceNetwork",
          (Option.map x.allowAssociationToShareableServiceNetwork
             ~f:Boolean.to_value));
        ("customDomainName",
          (Option.map x.customDomainName ~f:DomainName.to_value));
        ("groupDomain", (Option.map x.groupDomain ~f:DomainName.to_value));
        ("domainVerificationIdentifier",
          (Option.map x.domainVerificationIdentifier
             ~f:DomainVerificationIdentifier.to_value));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value));
        ("tags", (Option.map x.tags ~f:TagMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "tags") in
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let domainVerificationIdentifier =
        (Option.map ~f:DomainVerificationIdentifier.of_xml)
          (Xml.child xml_arg0 "domainVerificationIdentifier") in
      let groupDomain =
        (Option.map ~f:DomainName.of_xml) (Xml.child xml_arg0 "groupDomain") in
      let customDomainName =
        (Option.map ~f:DomainName.of_xml)
          (Xml.child xml_arg0 "customDomainName") in
      let allowAssociationToShareableServiceNetwork =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "allowAssociationToShareableServiceNetwork") in
      let resourceConfigurationDefinition =
        (Option.map ~f:ResourceConfigurationDefinition.of_xml)
          (Xml.child xml_arg0 "resourceConfigurationDefinition") in
      let resourceConfigurationGroupIdentifier =
        (Option.map ~f:ResourceConfigurationIdentifier.of_xml)
          (Xml.child xml_arg0 "resourceConfigurationGroupIdentifier") in
      let resourceGatewayIdentifier =
        (Option.map ~f:ResourceGatewayIdentifier.of_xml)
          (Xml.child xml_arg0 "resourceGatewayIdentifier") in
      let protocol =
        (Option.map ~f:ProtocolType.of_xml) (Xml.child xml_arg0 "protocol") in
      let portRanges =
        (Option.map ~f:PortRangeList.of_xml)
          (Xml.child xml_arg0 "portRanges") in
      let type_ =
        ResourceConfigurationType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "type") in
      let name =
        ResourceConfigurationName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ?tags ?clientToken ?domainVerificationIdentifier ?groupDomain
        ?customDomainName ?allowAssociationToShareableServiceNetwork
        ?resourceConfigurationDefinition
        ?resourceConfigurationGroupIdentifier ?resourceGatewayIdentifier
        ?protocol ?portRanges ~type_ ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagMap.of_json in
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let domainVerificationIdentifier =
        field_map json__ "domainVerificationIdentifier"
          DomainVerificationIdentifier.of_json in
      let groupDomain = field_map json__ "groupDomain" DomainName.of_json in
      let customDomainName =
        field_map json__ "customDomainName" DomainName.of_json in
      let allowAssociationToShareableServiceNetwork =
        field_map json__ "allowAssociationToShareableServiceNetwork"
          Boolean.of_json in
      let resourceConfigurationDefinition =
        field_map json__ "resourceConfigurationDefinition"
          ResourceConfigurationDefinition.of_json in
      let resourceConfigurationGroupIdentifier =
        field_map json__ "resourceConfigurationGroupIdentifier"
          ResourceConfigurationIdentifier.of_json in
      let resourceGatewayIdentifier =
        field_map json__ "resourceGatewayIdentifier"
          ResourceGatewayIdentifier.of_json in
      let protocol = field_map json__ "protocol" ProtocolType.of_json in
      let portRanges = field_map json__ "portRanges" PortRangeList.of_json in
      let type_ =
        field_map_exn json__ "type" ResourceConfigurationType.of_json in
      let name =
        field_map_exn json__ "name" ResourceConfigurationName.of_json in
      make ?tags ?clientToken ?domainVerificationIdentifier ?groupDomain
        ?customDomainName ?allowAssociationToShareableServiceNetwork
        ?resourceConfigurationDefinition
        ?resourceConfigurationGroupIdentifier ?resourceGatewayIdentifier
        ?protocol ?portRanges ~type_ ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a resource configuration. A resource configuration defines a specific resource. You can associate a resource configuration with a service network or a VPC endpoint."]
module CreateListenerResponse =
  struct
    type nonrec t =
      {
      arn: ListenerArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the listener."];
      id: ListenerId.t option [@ocaml.doc "The ID of the listener."];
      name: ListenerName.t option [@ocaml.doc "The name of the listener."];
      protocol: ListenerProtocol.t option
        [@ocaml.doc "The protocol of the listener."];
      port: Port.t option [@ocaml.doc "The port number of the listener."];
      serviceArn: ServiceArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the service."];
      serviceId: ServiceId.t option [@ocaml.doc "The ID of the service."];
      defaultAction: RuleAction.t option
        [@ocaml.doc "The action for the default rule."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?arn =
      fun ?id ->
        fun ?name ->
          fun ?protocol ->
            fun ?port ->
              fun ?serviceArn ->
                fun ?serviceId ->
                  fun ?defaultAction ->
                    fun () ->
                      {
                        arn;
                        id;
                        name;
                        protocol;
                        port;
                        serviceArn;
                        serviceId;
                        defaultAction
                      }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:ListenerArn.to_value));
        ("id", (Option.map x.id ~f:ListenerId.to_value));
        ("name", (Option.map x.name ~f:ListenerName.to_value));
        ("protocol", (Option.map x.protocol ~f:ListenerProtocol.to_value));
        ("port", (Option.map x.port ~f:Port.to_value));
        ("serviceArn", (Option.map x.serviceArn ~f:ServiceArn.to_value));
        ("serviceId", (Option.map x.serviceId ~f:ServiceId.to_value));
        ("defaultAction",
          (Option.map x.defaultAction ~f:RuleAction.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let defaultAction =
        (Option.map ~f:RuleAction.of_xml)
          (Xml.child xml_arg0 "defaultAction") in
      let serviceId =
        (Option.map ~f:ServiceId.of_xml) (Xml.child xml_arg0 "serviceId") in
      let serviceArn =
        (Option.map ~f:ServiceArn.of_xml) (Xml.child xml_arg0 "serviceArn") in
      let port = (Option.map ~f:Port.of_xml) (Xml.child xml_arg0 "port") in
      let protocol =
        (Option.map ~f:ListenerProtocol.of_xml)
          (Xml.child xml_arg0 "protocol") in
      let name =
        (Option.map ~f:ListenerName.of_xml) (Xml.child xml_arg0 "name") in
      let id = (Option.map ~f:ListenerId.of_xml) (Xml.child xml_arg0 "id") in
      let arn = (Option.map ~f:ListenerArn.of_xml) (Xml.child xml_arg0 "arn") in
      make ?defaultAction ?serviceId ?serviceArn ?port ?protocol ?name ?id
        ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let defaultAction = field_map json__ "defaultAction" RuleAction.of_json in
      let serviceId = field_map json__ "serviceId" ServiceId.of_json in
      let serviceArn = field_map json__ "serviceArn" ServiceArn.of_json in
      let port = field_map json__ "port" Port.of_json in
      let protocol = field_map json__ "protocol" ListenerProtocol.of_json in
      let name = field_map json__ "name" ListenerName.of_json in
      let id = field_map json__ "id" ListenerId.of_json in
      let arn = field_map json__ "arn" ListenerArn.of_json in
      make ?defaultAction ?serviceId ?serviceArn ?port ?protocol ?name ?id
        ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a listener for a service. Before you start using your Amazon VPC Lattice service, you must add one or more listeners. A listener is a process that checks for connection requests to your services. For more information, see Listeners in the Amazon VPC Lattice User Guide."]
module CreateListenerRequest =
  struct
    type nonrec t =
      {
      serviceIdentifier: ServiceIdentifier.t
        [@ocaml.doc "The ID or ARN of the service."];
      name: ListenerName.t
        [@ocaml.doc
          "The name of the listener. A listener name must be unique within a service. The valid characters are a-z, 0-9, and hyphens (-). You can't use a hyphen as the first or last character, or immediately after another hyphen."];
      protocol: ListenerProtocol.t [@ocaml.doc "The listener protocol."];
      port: Port.t option
        [@ocaml.doc
          "The listener port. You can specify a value from 1 to 65535. For HTTP, the default is 80. For HTTPS, the default is 443."];
      defaultAction: RuleAction.t
        [@ocaml.doc
          "The action for the default rule. Each listener has a default rule. The default rule is used if no other rules match."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A unique, case-sensitive identifier that you provide to ensure the idempotency of the request. If you retry a request that completed successfully using the same client token and parameters, the retry succeeds without performing any actions. If the parameters aren't identical, the retry fails."];
      tags: TagMap.t option [@ocaml.doc "The tags for the listener."]}
    let context_ = "CreateListenerRequest"
    let make ?port =
      fun ?clientToken ->
        fun ?tags ->
          fun ~serviceIdentifier ->
            fun ~name ->
              fun ~protocol ->
                fun ~defaultAction ->
                  fun () ->
                    {
                      port;
                      clientToken;
                      tags;
                      serviceIdentifier;
                      name;
                      protocol;
                      defaultAction
                    }
    let to_value x =
      structure_to_value
        [("serviceIdentifier",
           (Some (ServiceIdentifier.to_value x.serviceIdentifier)));
        ("name", (Some (ListenerName.to_value x.name)));
        ("protocol", (Some (ListenerProtocol.to_value x.protocol)));
        ("port", (Option.map x.port ~f:Port.to_value));
        ("defaultAction", (Some (RuleAction.to_value x.defaultAction)));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value));
        ("tags", (Option.map x.tags ~f:TagMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "tags") in
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let defaultAction =
        RuleAction.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "defaultAction") in
      let port = (Option.map ~f:Port.of_xml) (Xml.child xml_arg0 "port") in
      let protocol =
        ListenerProtocol.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "protocol") in
      let name =
        ListenerName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let serviceIdentifier =
        ServiceIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "serviceIdentifier") in
      make ?tags ?clientToken ~defaultAction ?port ~protocol ~name
        ~serviceIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagMap.of_json in
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let defaultAction =
        field_map_exn json__ "defaultAction" RuleAction.of_json in
      let port = field_map json__ "port" Port.of_json in
      let protocol = field_map_exn json__ "protocol" ListenerProtocol.of_json in
      let name = field_map_exn json__ "name" ListenerName.of_json in
      let serviceIdentifier =
        field_map_exn json__ "serviceIdentifier" ServiceIdentifier.of_json in
      make ?tags ?clientToken ~defaultAction ?port ~protocol ~name
        ~serviceIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a listener for a service. Before you start using your Amazon VPC Lattice service, you must add one or more listeners. A listener is a process that checks for connection requests to your services. For more information, see Listeners in the Amazon VPC Lattice User Guide."]
module CreateAccessLogSubscriptionResponse =
  struct
    type nonrec t =
      {
      id: AccessLogSubscriptionId.t option
        [@ocaml.doc "The ID of the access log subscription."];
      arn: AccessLogSubscriptionArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the access log subscription."];
      resourceId: ResourceId.t option
        [@ocaml.doc "The ID of the service network or service."];
      resourceArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the service network or service."];
      serviceNetworkLogType: ServiceNetworkLogType.t option
        [@ocaml.doc
          "The type of log that monitors your Amazon VPC Lattice service networks."];
      destinationArn: AccessLogDestinationArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the log destination."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?id =
      fun ?arn ->
        fun ?resourceId ->
          fun ?resourceArn ->
            fun ?serviceNetworkLogType ->
              fun ?destinationArn ->
                fun () ->
                  {
                    id;
                    arn;
                    resourceId;
                    resourceArn;
                    serviceNetworkLogType;
                    destinationArn
                  }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:AccessLogSubscriptionId.to_value));
        ("arn", (Option.map x.arn ~f:AccessLogSubscriptionArn.to_value));
        ("resourceId", (Option.map x.resourceId ~f:ResourceId.to_value));
        ("resourceArn", (Option.map x.resourceArn ~f:ResourceArn.to_value));
        ("serviceNetworkLogType",
          (Option.map x.serviceNetworkLogType
             ~f:ServiceNetworkLogType.to_value));
        ("destinationArn",
          (Option.map x.destinationArn ~f:AccessLogDestinationArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let destinationArn =
        (Option.map ~f:AccessLogDestinationArn.of_xml)
          (Xml.child xml_arg0 "destinationArn") in
      let serviceNetworkLogType =
        (Option.map ~f:ServiceNetworkLogType.of_xml)
          (Xml.child xml_arg0 "serviceNetworkLogType") in
      let resourceArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "resourceArn") in
      let resourceId =
        (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "resourceId") in
      let arn =
        (Option.map ~f:AccessLogSubscriptionArn.of_xml)
          (Xml.child xml_arg0 "arn") in
      let id =
        (Option.map ~f:AccessLogSubscriptionId.of_xml)
          (Xml.child xml_arg0 "id") in
      make ?destinationArn ?serviceNetworkLogType ?resourceArn ?resourceId
        ?arn ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let destinationArn =
        field_map json__ "destinationArn" AccessLogDestinationArn.of_json in
      let serviceNetworkLogType =
        field_map json__ "serviceNetworkLogType"
          ServiceNetworkLogType.of_json in
      let resourceArn = field_map json__ "resourceArn" ResourceArn.of_json in
      let resourceId = field_map json__ "resourceId" ResourceId.of_json in
      let arn = field_map json__ "arn" AccessLogSubscriptionArn.of_json in
      let id = field_map json__ "id" AccessLogSubscriptionId.of_json in
      make ?destinationArn ?serviceNetworkLogType ?resourceArn ?resourceId
        ?arn ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Enables access logs to be sent to Amazon CloudWatch, Amazon S3, and Amazon Kinesis Data Firehose. The service network owner can use the access logs to audit the services in the network. The service network owner can only see access logs from clients and services that are associated with their service network. Access log entries represent traffic originated from VPCs associated with that network. For more information, see Access logs in the Amazon VPC Lattice User Guide."]
module CreateAccessLogSubscriptionRequest =
  struct
    type nonrec t =
      {
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A unique, case-sensitive identifier that you provide to ensure the idempotency of the request. If you retry a request that completed successfully using the same client token and parameters, the retry succeeds without performing any actions. If the parameters aren't identical, the retry fails."];
      resourceIdentifier: ResourceIdentifier.t
        [@ocaml.doc "The ID or ARN of the service network or service."];
      destinationArn: AccessLogDestinationArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the destination. The supported destination types are CloudWatch Log groups, Kinesis Data Firehose delivery streams, and Amazon S3 buckets."];
      serviceNetworkLogType: ServiceNetworkLogType.t option
        [@ocaml.doc
          "The type of log that monitors your Amazon VPC Lattice service networks."];
      tags: TagMap.t option
        [@ocaml.doc "The tags for the access log subscription."]}
    let context_ = "CreateAccessLogSubscriptionRequest"
    let make ?clientToken =
      fun ?serviceNetworkLogType ->
        fun ?tags ->
          fun ~resourceIdentifier ->
            fun ~destinationArn ->
              fun () ->
                {
                  clientToken;
                  serviceNetworkLogType;
                  tags;
                  resourceIdentifier;
                  destinationArn
                }
    let to_value x =
      structure_to_value
        [("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value));
        ("resourceIdentifier",
          (Some (ResourceIdentifier.to_value x.resourceIdentifier)));
        ("destinationArn",
          (Some (AccessLogDestinationArn.to_value x.destinationArn)));
        ("serviceNetworkLogType",
          (Option.map x.serviceNetworkLogType
             ~f:ServiceNetworkLogType.to_value));
        ("tags", (Option.map x.tags ~f:TagMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "tags") in
      let serviceNetworkLogType =
        (Option.map ~f:ServiceNetworkLogType.of_xml)
          (Xml.child xml_arg0 "serviceNetworkLogType") in
      let destinationArn =
        AccessLogDestinationArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "destinationArn") in
      let resourceIdentifier =
        ResourceIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceIdentifier") in
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      make ?tags ?serviceNetworkLogType ~destinationArn ~resourceIdentifier
        ?clientToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagMap.of_json in
      let serviceNetworkLogType =
        field_map json__ "serviceNetworkLogType"
          ServiceNetworkLogType.of_json in
      let destinationArn =
        field_map_exn json__ "destinationArn" AccessLogDestinationArn.of_json in
      let resourceIdentifier =
        field_map_exn json__ "resourceIdentifier" ResourceIdentifier.of_json in
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      make ?tags ?serviceNetworkLogType ~destinationArn ~resourceIdentifier
        ?clientToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Enables access logs to be sent to Amazon CloudWatch, Amazon S3, and Amazon Kinesis Data Firehose. The service network owner can use the access logs to audit the services in the network. The service network owner can only see access logs from clients and services that are associated with their service network. Access log entries represent traffic originated from VPCs associated with that network. For more information, see Access logs in the Amazon VPC Lattice User Guide."]
module BatchUpdateRuleResponse =
  struct
    type nonrec t =
      {
      successful: RuleUpdateSuccessList.t option
        [@ocaml.doc "The rules that were successfully updated."];
      unsuccessful: RuleUpdateFailureList.t option
        [@ocaml.doc "The rules that the operation couldn't update."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?successful =
      fun ?unsuccessful -> fun () -> { successful; unsuccessful }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("successful",
           (Option.map x.successful ~f:RuleUpdateSuccessList.to_value));
        ("unsuccessful",
          (Option.map x.unsuccessful ~f:RuleUpdateFailureList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let unsuccessful =
        (Option.map ~f:RuleUpdateFailureList.of_xml)
          (Xml.child xml_arg0 "unsuccessful") in
      let successful =
        (Option.map ~f:RuleUpdateSuccessList.of_xml)
          (Xml.child xml_arg0 "successful") in
      make ?unsuccessful ?successful ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let unsuccessful =
        field_map json__ "unsuccessful" RuleUpdateFailureList.of_json in
      let successful =
        field_map json__ "successful" RuleUpdateSuccessList.of_json in
      make ?unsuccessful ?successful ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the listener rules in a batch. You can use this operation to change the priority of listener rules. This can be useful when bulk updating or swapping rule priority. Required permissions: vpc-lattice:UpdateRule For more information, see How Amazon VPC Lattice works with IAM in the Amazon VPC Lattice User Guide."]
module BatchUpdateRuleRequest =
  struct
    type nonrec t =
      {
      serviceIdentifier: ServiceIdentifier.t
        [@ocaml.doc "The ID or ARN of the service."];
      listenerIdentifier: ListenerIdentifier.t
        [@ocaml.doc "The ID or ARN of the listener."];
      rules: RuleUpdateList.t
        [@ocaml.doc "The rules for the specified listener."]}
    let context_ = "BatchUpdateRuleRequest"
    let make ~serviceIdentifier =
      fun ~listenerIdentifier ->
        fun ~rules ->
          fun () -> { serviceIdentifier; listenerIdentifier; rules }
    let to_value x =
      structure_to_value
        [("serviceIdentifier",
           (Some (ServiceIdentifier.to_value x.serviceIdentifier)));
        ("listenerIdentifier",
          (Some (ListenerIdentifier.to_value x.listenerIdentifier)));
        ("rules", (Some (RuleUpdateList.to_value x.rules)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let rules =
        RuleUpdateList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "rules") in
      let listenerIdentifier =
        ListenerIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "listenerIdentifier") in
      let serviceIdentifier =
        ServiceIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "serviceIdentifier") in
      make ~rules ~listenerIdentifier ~serviceIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let rules = field_map_exn json__ "rules" RuleUpdateList.of_json in
      let listenerIdentifier =
        field_map_exn json__ "listenerIdentifier" ListenerIdentifier.of_json in
      let serviceIdentifier =
        field_map_exn json__ "serviceIdentifier" ServiceIdentifier.of_json in
      make ~rules ~listenerIdentifier ~serviceIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the listener rules in a batch. You can use this operation to change the priority of listener rules. This can be useful when bulk updating or swapping rule priority. Required permissions: vpc-lattice:UpdateRule For more information, see How Amazon VPC Lattice works with IAM in the Amazon VPC Lattice User Guide."]