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.networkmanager
let apiVersion = "2019-07-05"
let endpointPrefix = "networkmanager"
let serviceFullName = "AWS Network Manager"
let signatureVersion = "v4"
let protocol = "rest_json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let serviceAbbreviation = "NetworkManager"
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 ConstrainedString =
  struct
    type nonrec t = string
    let context_ = "ConstrainedString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () -> check_pattern i ~pattern:"[\\s\\S]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ConstrainedString" j
    let to_json = simple_to_json to_value
  end
module EdgeSet =
  struct
    type nonrec t = ConstrainedString.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:ConstrainedString.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:ConstrainedString.of_xml)
    let of_json j =
      list_of_json ~kind:"EdgeSet" ~of_json:ConstrainedString.of_json j
    let to_json v = composed_to_json to_value v
  end
module EdgeSetList =
  struct
    type nonrec t = EdgeSet.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:EdgeSet.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:EdgeSet.of_xml)
    let of_json j =
      list_of_json ~kind:"EdgeSetList" ~of_json:EdgeSet.of_json j
    let to_json v = composed_to_json to_value v
  end
module NetworkFunctionGroup =
  struct
    type nonrec t =
      {
      name: ConstrainedString.t option
        [@ocaml.doc "The name of the network function group."]}
    let make ?name = fun () -> { name }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:ConstrainedString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        (Option.map ~f:ConstrainedString.of_xml) (Xml.child xml_arg0 "Name") in
      make ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map json__ "Name" ConstrainedString.of_json in
      make ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes a network function group for service insertion."]
module EdgeOverride =
  struct
    type nonrec t =
      {
      edgeSets: EdgeSetList.t option
        [@ocaml.doc "The list of edge locations."];
      useEdge: ConstrainedString.t option
        [@ocaml.doc
          "The edge that should be used when overriding the current edge order."]}
    let make ?edgeSets = fun ?useEdge -> fun () -> { edgeSets; useEdge }
    let to_value x =
      structure_to_value
        [("EdgeSets", (Option.map x.edgeSets ~f:EdgeSetList.to_value));
        ("UseEdge", (Option.map x.useEdge ~f:ConstrainedString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let useEdge =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "UseEdge") in
      let edgeSets =
        (Option.map ~f:EdgeSetList.of_xml) (Xml.child xml_arg0 "EdgeSets") in
      make ?useEdge ?edgeSets ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let useEdge = field_map json__ "UseEdge" ConstrainedString.of_json in
      let edgeSets = field_map json__ "EdgeSets" EdgeSetList.of_json in
      make ?useEdge ?edgeSets ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the edge that's used for the override."]
module NetworkFunctionGroupList =
  struct
    type nonrec t = NetworkFunctionGroup.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:NetworkFunctionGroup.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:NetworkFunctionGroup.of_xml)
    let of_json j =
      list_of_json ~kind:"NetworkFunctionGroupList"
        ~of_json:NetworkFunctionGroup.of_json j
    let to_json v = composed_to_json to_value v
  end
module WithEdgeOverridesList =
  struct
    type nonrec t = EdgeOverride.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:EdgeOverride.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:EdgeOverride.of_xml)
    let of_json j =
      list_of_json ~kind:"WithEdgeOverridesList"
        ~of_json:EdgeOverride.of_json j
    let to_json v = composed_to_json to_value v
  end
module WhenSentToSegmentsList =
  struct
    type nonrec t = ConstrainedString.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:ConstrainedString.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:ConstrainedString.of_xml)
    let of_json j =
      list_of_json ~kind:"WhenSentToSegmentsList"
        ~of_json:ConstrainedString.of_json j
    let to_json v = composed_to_json to_value v
  end
module TagKey =
  struct
    type nonrec t = string
    let context_ = "TagKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:10000000) >>=
                  (fun () -> check_pattern i ~pattern:"[\\s\\S]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagKey" j
    let to_json = simple_to_json to_value
  end
module TagValue =
  struct
    type nonrec t = string
    let context_ = "TagValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:10000000) >>=
                  (fun () -> check_pattern i ~pattern:"[\\s\\S]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagValue" 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 ResourceArn =
  struct
    type nonrec t = string
    let context_ = "ResourceArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:1500) >>=
                  (fun () -> check_pattern i ~pattern:"[\\s\\S]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ResourceArn" j
    let to_json = simple_to_json to_value
  end
module ServerSideString =
  struct
    type nonrec t = string
    let context_ = "ServerSideString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:10000000) >>=
                  (fun () -> check_pattern i ~pattern:"[\\s\\S]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ServerSideString" j
    let to_json = simple_to_json to_value
  end
module ConstrainedStringList =
  struct
    type nonrec t = ConstrainedString.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:ConstrainedString.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:ConstrainedString.of_xml)
    let of_json j =
      list_of_json ~kind:"ConstrainedStringList"
        ~of_json:ConstrainedString.of_json j
    let to_json v = composed_to_json to_value v
  end
module SegmentActionServiceInsertion =
  struct
    type nonrec t =
      | Send_via 
      | Send_to 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Send_via -> "send-via"
      | Send_to -> "send-to"
      | Non_static_id s -> s
    let of_string =
      function
      | "send-via" -> Send_via
      | "send-to" -> Send_to
      | 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 SegmentActionServiceInsertion"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"SegmentActionServiceInsertion" j)
    let to_json = simple_to_json to_value
  end
module SendViaMode =
  struct
    type nonrec t =
      | Dual_hop 
      | Single_hop 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Dual_hop -> "dual-hop"
      | Single_hop -> "single-hop"
      | Non_static_id s -> s
    let of_string =
      function
      | "dual-hop" -> Dual_hop
      | "single-hop" -> Single_hop
      | 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 SendViaMode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SendViaMode" j)
    let to_json = simple_to_json to_value
  end
module Via =
  struct
    type nonrec t =
      {
      networkFunctionGroups: NetworkFunctionGroupList.t option
        [@ocaml.doc
          "The list of network function groups associated with the service insertion action."];
      withEdgeOverrides: WithEdgeOverridesList.t option
        [@ocaml.doc
          "Describes any edge overrides. An edge override is a specific edge to be used for traffic."]}
    let make ?networkFunctionGroups =
      fun ?withEdgeOverrides ->
        fun () -> { networkFunctionGroups; withEdgeOverrides }
    let to_value x =
      structure_to_value
        [("NetworkFunctionGroups",
           (Option.map x.networkFunctionGroups
              ~f:NetworkFunctionGroupList.to_value));
        ("WithEdgeOverrides",
          (Option.map x.withEdgeOverrides ~f:WithEdgeOverridesList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let withEdgeOverrides =
        (Option.map ~f:WithEdgeOverridesList.of_xml)
          (Xml.child xml_arg0 "WithEdgeOverrides") in
      let networkFunctionGroups =
        (Option.map ~f:NetworkFunctionGroupList.of_xml)
          (Xml.child xml_arg0 "NetworkFunctionGroups") in
      make ?withEdgeOverrides ?networkFunctionGroups ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let withEdgeOverrides =
        field_map json__ "WithEdgeOverrides" WithEdgeOverridesList.of_json in
      let networkFunctionGroups =
        field_map json__ "NetworkFunctionGroups"
          NetworkFunctionGroupList.of_json in
      make ?withEdgeOverrides ?networkFunctionGroups ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The list of network function groups and edge overrides for the service insertion action. Used for both the send-to and send-via actions."]
module WhenSentTo =
  struct
    type nonrec t =
      {
      whenSentToSegmentsList: WhenSentToSegmentsList.t option
        [@ocaml.doc
          "The list of destination segments when the service insertion action is send-to."]}
    let make ?whenSentToSegmentsList = fun () -> { whenSentToSegmentsList }
    let to_value x =
      structure_to_value
        [("WhenSentToSegmentsList",
           (Option.map x.whenSentToSegmentsList
              ~f:WhenSentToSegmentsList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let whenSentToSegmentsList =
        (Option.map ~f:WhenSentToSegmentsList.of_xml)
          (Xml.child xml_arg0 "WhenSentToSegmentsList") in
      make ?whenSentToSegmentsList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let whenSentToSegmentsList =
        field_map json__ "WhenSentToSegmentsList"
          WhenSentToSegmentsList.of_json in
      make ?whenSentToSegmentsList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Displays a list of the destination segments. Used only when the service insertion action is send-to."]
module AttachmentErrorCode =
  struct
    type nonrec t =
      | VPC_NOT_FOUND 
      | SUBNET_NOT_FOUND 
      | SUBNET_DUPLICATED_IN_AVAILABILITY_ZONE 
      | SUBNET_NO_FREE_ADDRESSES 
      | SUBNET_UNSUPPORTED_AVAILABILITY_ZONE 
      | SUBNET_NO_IPV6_CIDRS 
      | VPN_CONNECTION_NOT_FOUND 
      | MAXIMUM_NO_ENCAP_LIMIT_EXCEEDED 
      | DIRECT_CONNECT_GATEWAY_NOT_FOUND 
      | DIRECT_CONNECT_GATEWAY_EXISTING_ATTACHMENTS 
      | DIRECT_CONNECT_GATEWAY_NO_PRIVATE_VIF 
      | VPN_EXISTING_ASSOCIATIONS 
      | VPC_UNSUPPORTED_FEATURES 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | VPC_NOT_FOUND -> "VPC_NOT_FOUND"
      | SUBNET_NOT_FOUND -> "SUBNET_NOT_FOUND"
      | SUBNET_DUPLICATED_IN_AVAILABILITY_ZONE ->
          "SUBNET_DUPLICATED_IN_AVAILABILITY_ZONE"
      | SUBNET_NO_FREE_ADDRESSES -> "SUBNET_NO_FREE_ADDRESSES"
      | SUBNET_UNSUPPORTED_AVAILABILITY_ZONE ->
          "SUBNET_UNSUPPORTED_AVAILABILITY_ZONE"
      | SUBNET_NO_IPV6_CIDRS -> "SUBNET_NO_IPV6_CIDRS"
      | VPN_CONNECTION_NOT_FOUND -> "VPN_CONNECTION_NOT_FOUND"
      | MAXIMUM_NO_ENCAP_LIMIT_EXCEEDED -> "MAXIMUM_NO_ENCAP_LIMIT_EXCEEDED"
      | DIRECT_CONNECT_GATEWAY_NOT_FOUND ->
          "DIRECT_CONNECT_GATEWAY_NOT_FOUND"
      | DIRECT_CONNECT_GATEWAY_EXISTING_ATTACHMENTS ->
          "DIRECT_CONNECT_GATEWAY_EXISTING_ATTACHMENTS"
      | DIRECT_CONNECT_GATEWAY_NO_PRIVATE_VIF ->
          "DIRECT_CONNECT_GATEWAY_NO_PRIVATE_VIF"
      | VPN_EXISTING_ASSOCIATIONS -> "VPN_EXISTING_ASSOCIATIONS"
      | VPC_UNSUPPORTED_FEATURES -> "VPC_UNSUPPORTED_FEATURES"
      | Non_static_id s -> s
    let of_string =
      function
      | "VPC_NOT_FOUND" -> VPC_NOT_FOUND
      | "SUBNET_NOT_FOUND" -> SUBNET_NOT_FOUND
      | "SUBNET_DUPLICATED_IN_AVAILABILITY_ZONE" ->
          SUBNET_DUPLICATED_IN_AVAILABILITY_ZONE
      | "SUBNET_NO_FREE_ADDRESSES" -> SUBNET_NO_FREE_ADDRESSES
      | "SUBNET_UNSUPPORTED_AVAILABILITY_ZONE" ->
          SUBNET_UNSUPPORTED_AVAILABILITY_ZONE
      | "SUBNET_NO_IPV6_CIDRS" -> SUBNET_NO_IPV6_CIDRS
      | "VPN_CONNECTION_NOT_FOUND" -> VPN_CONNECTION_NOT_FOUND
      | "MAXIMUM_NO_ENCAP_LIMIT_EXCEEDED" -> MAXIMUM_NO_ENCAP_LIMIT_EXCEEDED
      | "DIRECT_CONNECT_GATEWAY_NOT_FOUND" ->
          DIRECT_CONNECT_GATEWAY_NOT_FOUND
      | "DIRECT_CONNECT_GATEWAY_EXISTING_ATTACHMENTS" ->
          DIRECT_CONNECT_GATEWAY_EXISTING_ATTACHMENTS
      | "DIRECT_CONNECT_GATEWAY_NO_PRIVATE_VIF" ->
          DIRECT_CONNECT_GATEWAY_NO_PRIVATE_VIF
      | "VPN_EXISTING_ASSOCIATIONS" -> VPN_EXISTING_ASSOCIATIONS
      | "VPC_UNSUPPORTED_FEATURES" -> VPC_UNSUPPORTED_FEATURES
      | 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 AttachmentErrorCode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AttachmentErrorCode" j)
    let to_json = simple_to_json to_value
  end
module Tag =
  struct
    type nonrec t =
      {
      key: TagKey.t option
        [@ocaml.doc
          "The tag key. Constraints: Maximum length of 128 characters."];
      value: TagValue.t option
        [@ocaml.doc
          "The tag value. Constraints: Maximum length of 256 characters."]}
    let make ?key = fun ?value -> fun () -> { key; value }
    let to_value x =
      structure_to_value
        [("Key", (Option.map x.key ~f:TagKey.to_value));
        ("Value", (Option.map x.value ~f:TagValue.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        (Option.map ~f:TagValue.of_xml) (Xml.child xml_arg0 "Value") in
      let key = (Option.map ~f:TagKey.of_xml) (Xml.child xml_arg0 "Key") in
      make ?value ?key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map json__ "Value" TagValue.of_json in
      let key = field_map json__ "Key" TagKey.of_json in make ?value ?key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a tag."]
module ExternalRegionCode =
  struct
    type nonrec t = string
    let context_ = "ExternalRegionCode"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:63) >>=
                  (fun () -> check_pattern i ~pattern:"[\\s\\S]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ExternalRegionCode" j
    let to_json = simple_to_json to_value
  end
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 NetworkResourceSummary =
  struct
    type nonrec t =
      {
      registeredGatewayArn: ResourceArn.t option
        [@ocaml.doc "The ARN of the gateway."];
      resourceArn: ResourceArn.t option
        [@ocaml.doc "The ARN of the resource."];
      resourceType: ConstrainedString.t option
        [@ocaml.doc "The resource type."];
      definition: ConstrainedString.t option
        [@ocaml.doc
          "Information about the resource, in JSON format. Network Manager gets this information by describing the resource using its Describe API call."];
      nameTag: ConstrainedString.t option
        [@ocaml.doc "The value for the Name tag."];
      isMiddlebox: Boolean.t option
        [@ocaml.doc "Indicates whether this is a middlebox appliance."]}
    let make ?registeredGatewayArn =
      fun ?resourceArn ->
        fun ?resourceType ->
          fun ?definition ->
            fun ?nameTag ->
              fun ?isMiddlebox ->
                fun () ->
                  {
                    registeredGatewayArn;
                    resourceArn;
                    resourceType;
                    definition;
                    nameTag;
                    isMiddlebox
                  }
    let to_value x =
      structure_to_value
        [("RegisteredGatewayArn",
           (Option.map x.registeredGatewayArn ~f:ResourceArn.to_value));
        ("ResourceArn", (Option.map x.resourceArn ~f:ResourceArn.to_value));
        ("ResourceType",
          (Option.map x.resourceType ~f:ConstrainedString.to_value));
        ("Definition",
          (Option.map x.definition ~f:ConstrainedString.to_value));
        ("NameTag", (Option.map x.nameTag ~f:ConstrainedString.to_value));
        ("IsMiddlebox", (Option.map x.isMiddlebox ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let isMiddlebox =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "IsMiddlebox") in
      let nameTag =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "NameTag") in
      let definition =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "Definition") in
      let resourceType =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "ResourceType") in
      let resourceArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "ResourceArn") in
      let registeredGatewayArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "RegisteredGatewayArn") in
      make ?isMiddlebox ?nameTag ?definition ?resourceType ?resourceArn
        ?registeredGatewayArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let isMiddlebox = field_map json__ "IsMiddlebox" Boolean.of_json in
      let nameTag = field_map json__ "NameTag" ConstrainedString.of_json in
      let definition =
        field_map json__ "Definition" ConstrainedString.of_json in
      let resourceType =
        field_map json__ "ResourceType" ConstrainedString.of_json in
      let resourceArn = field_map json__ "ResourceArn" ResourceArn.of_json in
      let registeredGatewayArn =
        field_map json__ "RegisteredGatewayArn" ResourceArn.of_json in
      make ?isMiddlebox ?nameTag ?definition ?resourceType ?resourceArn
        ?registeredGatewayArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a network resource."]
module ReasonContextKey =
  struct
    type nonrec t = string
    let context_ = "ReasonContextKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:10000000) >>=
                  (fun () -> check_pattern i ~pattern:"[\\s\\S]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ReasonContextKey" j
    let to_json = simple_to_json to_value
  end
module ReasonContextValue =
  struct
    type nonrec t = string
    let context_ = "ReasonContextValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:10000000) >>=
                  (fun () -> check_pattern i ~pattern:"[\\s\\S]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ReasonContextValue" j
    let to_json = simple_to_json to_value
  end
module PeeringErrorCode =
  struct
    type nonrec t =
      | TRANSIT_GATEWAY_NOT_FOUND 
      | TRANSIT_GATEWAY_PEERS_LIMIT_EXCEEDED 
      | MISSING_PERMISSIONS 
      | INTERNAL_ERROR 
      | EDGE_LOCATION_PEER_DUPLICATE 
      | INVALID_TRANSIT_GATEWAY_STATE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | TRANSIT_GATEWAY_NOT_FOUND -> "TRANSIT_GATEWAY_NOT_FOUND"
      | TRANSIT_GATEWAY_PEERS_LIMIT_EXCEEDED ->
          "TRANSIT_GATEWAY_PEERS_LIMIT_EXCEEDED"
      | MISSING_PERMISSIONS -> "MISSING_PERMISSIONS"
      | INTERNAL_ERROR -> "INTERNAL_ERROR"
      | EDGE_LOCATION_PEER_DUPLICATE -> "EDGE_LOCATION_PEER_DUPLICATE"
      | INVALID_TRANSIT_GATEWAY_STATE -> "INVALID_TRANSIT_GATEWAY_STATE"
      | Non_static_id s -> s
    let of_string =
      function
      | "TRANSIT_GATEWAY_NOT_FOUND" -> TRANSIT_GATEWAY_NOT_FOUND
      | "TRANSIT_GATEWAY_PEERS_LIMIT_EXCEEDED" ->
          TRANSIT_GATEWAY_PEERS_LIMIT_EXCEEDED
      | "MISSING_PERMISSIONS" -> MISSING_PERMISSIONS
      | "INTERNAL_ERROR" -> INTERNAL_ERROR
      | "EDGE_LOCATION_PEER_DUPLICATE" -> EDGE_LOCATION_PEER_DUPLICATE
      | "INVALID_TRANSIT_GATEWAY_STATE" -> INVALID_TRANSIT_GATEWAY_STATE
      | 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 PeeringErrorCode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"PeeringErrorCode" j)
    let to_json = simple_to_json to_value
  end
module PermissionsErrorContext =
  struct
    type nonrec t =
      {
      missingPermission: ServerSideString.t option
        [@ocaml.doc "The missing permissions."]}
    let make ?missingPermission = fun () -> { missingPermission }
    let to_value x =
      structure_to_value
        [("MissingPermission",
           (Option.map x.missingPermission ~f:ServerSideString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let missingPermission =
        (Option.map ~f:ServerSideString.of_xml)
          (Xml.child xml_arg0 "MissingPermission") in
      make ?missingPermission ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let missingPermission =
        field_map json__ "MissingPermission" ServerSideString.of_json in
      make ?missingPermission ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes additional information about missing permissions."]
module AttachmentId =
  struct
    type nonrec t = string
    let context_ = "AttachmentId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:50) >>=
                  (fun () ->
                     check_pattern i ~pattern:"^attachment-([0-9a-f]{8,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:"AttachmentId" j
    let to_json = simple_to_json to_value
  end
module TransitGatewayAttachmentId =
  struct
    type nonrec t = string
    let context_ = "TransitGatewayAttachmentId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:50) >>=
                  (fun () -> check_pattern i ~pattern:"[\\s\\S]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TransitGatewayAttachmentId" j
    let to_json = simple_to_json to_value
  end
module RoutingPolicyAssociationDetail =
  struct
    type nonrec t =
      {
      routingPolicyNames: ConstrainedStringList.t option
        [@ocaml.doc "The names of the routing policies in the association."];
      sharedSegments: ConstrainedStringList.t option
        [@ocaml.doc
          "The names of the segments that are shared with each other in the association."]}
    let make ?routingPolicyNames =
      fun ?sharedSegments -> fun () -> { routingPolicyNames; sharedSegments }
    let to_value x =
      structure_to_value
        [("RoutingPolicyNames",
           (Option.map x.routingPolicyNames ~f:ConstrainedStringList.to_value));
        ("SharedSegments",
          (Option.map x.sharedSegments ~f:ConstrainedStringList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sharedSegments =
        (Option.map ~f:ConstrainedStringList.of_xml)
          (Xml.child xml_arg0 "SharedSegments") in
      let routingPolicyNames =
        (Option.map ~f:ConstrainedStringList.of_xml)
          (Xml.child xml_arg0 "RoutingPolicyNames") in
      make ?sharedSegments ?routingPolicyNames ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sharedSegments =
        field_map json__ "SharedSegments" ConstrainedStringList.of_json in
      let routingPolicyNames =
        field_map json__ "RoutingPolicyNames" ConstrainedStringList.of_json in
      make ?sharedSegments ?routingPolicyNames ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about a routing policy association."]
module ServiceInsertionAction =
  struct
    type nonrec t =
      {
      action: SegmentActionServiceInsertion.t option
        [@ocaml.doc
          "The action the service insertion takes for traffic. send-via sends east-west traffic between attachments. send-to sends north-south traffic to the security appliance, and then from that to either the Internet or to an on-premesis location."];
      mode: SendViaMode.t option
        [@ocaml.doc
          "Describes the mode packets take for the send-via action. This is not used when the action is send-to. dual-hop packets traverse attachments in both the source to the destination core network edges. This mode requires that an inspection attachment must be present in all Regions of the service insertion-enabled segments. For single-hop, packets traverse a single intermediate inserted attachment. You can use EdgeOverride to specify a specific edge to use."];
      whenSentTo: WhenSentTo.t option
        [@ocaml.doc
          "The list of destination segments if the service insertion action is send-via."];
      via: Via.t option
        [@ocaml.doc
          "The list of network function groups and any edge overrides for the chosen service insertion action. Used for both send-to or send-via."]}
    let make ?action =
      fun ?mode ->
        fun ?whenSentTo ->
          fun ?via -> fun () -> { action; mode; whenSentTo; via }
    let to_value x =
      structure_to_value
        [("Action",
           (Option.map x.action ~f:SegmentActionServiceInsertion.to_value));
        ("Mode", (Option.map x.mode ~f:SendViaMode.to_value));
        ("WhenSentTo", (Option.map x.whenSentTo ~f:WhenSentTo.to_value));
        ("Via", (Option.map x.via ~f:Via.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let via = (Option.map ~f:Via.of_xml) (Xml.child xml_arg0 "Via") in
      let whenSentTo =
        (Option.map ~f:WhenSentTo.of_xml) (Xml.child xml_arg0 "WhenSentTo") in
      let mode =
        (Option.map ~f:SendViaMode.of_xml) (Xml.child xml_arg0 "Mode") in
      let action =
        (Option.map ~f:SegmentActionServiceInsertion.of_xml)
          (Xml.child xml_arg0 "Action") in
      make ?via ?whenSentTo ?mode ?action ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let via = field_map json__ "Via" Via.of_json in
      let whenSentTo = field_map json__ "WhenSentTo" WhenSentTo.of_json in
      let mode = field_map json__ "Mode" SendViaMode.of_json in
      let action =
        field_map json__ "Action" SegmentActionServiceInsertion.of_json in
      make ?via ?whenSentTo ?mode ?action ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the action that the service insertion will take for any segments associated with it."]
module IPAddress =
  struct
    type nonrec t = string
    let context_ = "IPAddress"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:50) >>=
                  (fun () -> check_pattern i ~pattern:"[\\s\\S]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"IPAddress" 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 AttachmentError =
  struct
    type nonrec t =
      {
      code: AttachmentErrorCode.t option
        [@ocaml.doc "The error code for the attachment request."];
      message: ServerSideString.t option
        [@ocaml.doc "The message associated with the error code."];
      resourceArn: ResourceArn.t option
        [@ocaml.doc "The ARN of the requested attachment resource."];
      requestId: ServerSideString.t option
        [@ocaml.doc "The ID of the attachment request."]}
    let make ?code =
      fun ?message ->
        fun ?resourceArn ->
          fun ?requestId ->
            fun () -> { code; message; resourceArn; requestId }
    let to_value x =
      structure_to_value
        [("Code", (Option.map x.code ~f:AttachmentErrorCode.to_value));
        ("Message", (Option.map x.message ~f:ServerSideString.to_value));
        ("ResourceArn", (Option.map x.resourceArn ~f:ResourceArn.to_value));
        ("RequestId", (Option.map x.requestId ~f:ServerSideString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requestId =
        (Option.map ~f:ServerSideString.of_xml)
          (Xml.child xml_arg0 "RequestId") in
      let resourceArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "ResourceArn") in
      let message =
        (Option.map ~f:ServerSideString.of_xml)
          (Xml.child xml_arg0 "Message") in
      let code =
        (Option.map ~f:AttachmentErrorCode.of_xml)
          (Xml.child xml_arg0 "Code") in
      make ?requestId ?resourceArn ?message ?code ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requestId = field_map json__ "RequestId" ServerSideString.of_json in
      let resourceArn = field_map json__ "ResourceArn" ResourceArn.of_json in
      let message = field_map json__ "Message" ServerSideString.of_json in
      let code = field_map json__ "Code" AttachmentErrorCode.of_json in
      make ?requestId ?resourceArn ?message ?code ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the error associated with an attachment request."]
module TagList =
  struct
    type nonrec t = Tag.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:Tag.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:Tag.of_xml)
    let of_json j = list_of_json ~kind:"TagList" ~of_json:Tag.of_json j
    let to_json v = composed_to_json to_value v
  end
module ExternalRegionCodeList =
  struct
    type nonrec t = ExternalRegionCode.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:ExternalRegionCode.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:ExternalRegionCode.of_xml)
    let of_json j =
      list_of_json ~kind:"ExternalRegionCodeList"
        ~of_json:ExternalRegionCode.of_json j
    let to_json v = composed_to_json to_value v
  end
module ServiceInsertionSegments =
  struct
    type nonrec t =
      {
      sendVia: ConstrainedStringList.t option
        [@ocaml.doc
          "The list of segments associated with the send-via action."];
      sendTo: ConstrainedStringList.t option
        [@ocaml.doc
          "The list of segments associated with the send-to action."]}
    let make ?sendVia = fun ?sendTo -> fun () -> { sendVia; sendTo }
    let to_value x =
      structure_to_value
        [("SendVia",
           (Option.map x.sendVia ~f:ConstrainedStringList.to_value));
        ("SendTo", (Option.map x.sendTo ~f:ConstrainedStringList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sendTo =
        (Option.map ~f:ConstrainedStringList.of_xml)
          (Xml.child xml_arg0 "SendTo") in
      let sendVia =
        (Option.map ~f:ConstrainedStringList.of_xml)
          (Xml.child xml_arg0 "SendVia") in
      make ?sendTo ?sendVia ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sendTo = field_map json__ "SendTo" ConstrainedStringList.of_json in
      let sendVia = field_map json__ "SendVia" ConstrainedStringList.of_json in
      make ?sendTo ?sendVia ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the segments associated with the service insertion action."]
module PathComponent =
  struct
    type nonrec t =
      {
      sequence: Integer.t option
        [@ocaml.doc "The sequence number in the path. The destination is 0."];
      resource: NetworkResourceSummary.t option [@ocaml.doc "The resource."];
      destinationCidrBlock: ConstrainedString.t option
        [@ocaml.doc "The destination CIDR block in the route table."]}
    let make ?sequence =
      fun ?resource ->
        fun ?destinationCidrBlock ->
          fun () -> { sequence; resource; destinationCidrBlock }
    let to_value x =
      structure_to_value
        [("Sequence", (Option.map x.sequence ~f:Integer.to_value));
        ("Resource",
          (Option.map x.resource ~f:NetworkResourceSummary.to_value));
        ("DestinationCidrBlock",
          (Option.map x.destinationCidrBlock ~f:ConstrainedString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let destinationCidrBlock =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "DestinationCidrBlock") in
      let resource =
        (Option.map ~f:NetworkResourceSummary.of_xml)
          (Xml.child xml_arg0 "Resource") in
      let sequence =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "Sequence") in
      make ?destinationCidrBlock ?resource ?sequence ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let destinationCidrBlock =
        field_map json__ "DestinationCidrBlock" ConstrainedString.of_json in
      let resource =
        field_map json__ "Resource" NetworkResourceSummary.of_json in
      let sequence = field_map json__ "Sequence" Integer.of_json in
      make ?destinationCidrBlock ?resource ?sequence ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a path component."]
module ReasonContextMap =
  struct
    type nonrec t = (ReasonContextKey.t * ReasonContextValue.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((ReasonContextKey.of_string chopped),
                              (ReasonContextValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (ReasonContextKey.to_value x) |>
                    (fun x ->
                       (ReasonContextValue.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:ReasonContextKey.of_string
        ~of_json:ReasonContextValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module RouteAnalysisCompletionReasonCode =
  struct
    type nonrec t =
      | TRANSIT_GATEWAY_ATTACHMENT_NOT_FOUND 
      | TRANSIT_GATEWAY_ATTACHMENT_NOT_IN_TRANSIT_GATEWAY 
      | CYCLIC_PATH_DETECTED 
      | TRANSIT_GATEWAY_ATTACHMENT_STABLE_ROUTE_TABLE_NOT_FOUND 
      | ROUTE_NOT_FOUND 
      | BLACKHOLE_ROUTE_FOR_DESTINATION_FOUND 
      | INACTIVE_ROUTE_FOR_DESTINATION_FOUND 
      | TRANSIT_GATEWAY_ATTACHMENT_ATTACH_ARN_NO_MATCH 
      | MAX_HOPS_EXCEEDED 
      | POSSIBLE_MIDDLEBOX 
      | NO_DESTINATION_ARN_PROVIDED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | TRANSIT_GATEWAY_ATTACHMENT_NOT_FOUND ->
          "TRANSIT_GATEWAY_ATTACHMENT_NOT_FOUND"
      | TRANSIT_GATEWAY_ATTACHMENT_NOT_IN_TRANSIT_GATEWAY ->
          "TRANSIT_GATEWAY_ATTACHMENT_NOT_IN_TRANSIT_GATEWAY"
      | CYCLIC_PATH_DETECTED -> "CYCLIC_PATH_DETECTED"
      | TRANSIT_GATEWAY_ATTACHMENT_STABLE_ROUTE_TABLE_NOT_FOUND ->
          "TRANSIT_GATEWAY_ATTACHMENT_STABLE_ROUTE_TABLE_NOT_FOUND"
      | ROUTE_NOT_FOUND -> "ROUTE_NOT_FOUND"
      | BLACKHOLE_ROUTE_FOR_DESTINATION_FOUND ->
          "BLACKHOLE_ROUTE_FOR_DESTINATION_FOUND"
      | INACTIVE_ROUTE_FOR_DESTINATION_FOUND ->
          "INACTIVE_ROUTE_FOR_DESTINATION_FOUND"
      | TRANSIT_GATEWAY_ATTACHMENT_ATTACH_ARN_NO_MATCH ->
          "TRANSIT_GATEWAY_ATTACHMENT_ATTACH_ARN_NO_MATCH"
      | MAX_HOPS_EXCEEDED -> "MAX_HOPS_EXCEEDED"
      | POSSIBLE_MIDDLEBOX -> "POSSIBLE_MIDDLEBOX"
      | NO_DESTINATION_ARN_PROVIDED -> "NO_DESTINATION_ARN_PROVIDED"
      | Non_static_id s -> s
    let of_string =
      function
      | "TRANSIT_GATEWAY_ATTACHMENT_NOT_FOUND" ->
          TRANSIT_GATEWAY_ATTACHMENT_NOT_FOUND
      | "TRANSIT_GATEWAY_ATTACHMENT_NOT_IN_TRANSIT_GATEWAY" ->
          TRANSIT_GATEWAY_ATTACHMENT_NOT_IN_TRANSIT_GATEWAY
      | "CYCLIC_PATH_DETECTED" -> CYCLIC_PATH_DETECTED
      | "TRANSIT_GATEWAY_ATTACHMENT_STABLE_ROUTE_TABLE_NOT_FOUND" ->
          TRANSIT_GATEWAY_ATTACHMENT_STABLE_ROUTE_TABLE_NOT_FOUND
      | "ROUTE_NOT_FOUND" -> ROUTE_NOT_FOUND
      | "BLACKHOLE_ROUTE_FOR_DESTINATION_FOUND" ->
          BLACKHOLE_ROUTE_FOR_DESTINATION_FOUND
      | "INACTIVE_ROUTE_FOR_DESTINATION_FOUND" ->
          INACTIVE_ROUTE_FOR_DESTINATION_FOUND
      | "TRANSIT_GATEWAY_ATTACHMENT_ATTACH_ARN_NO_MATCH" ->
          TRANSIT_GATEWAY_ATTACHMENT_ATTACH_ARN_NO_MATCH
      | "MAX_HOPS_EXCEEDED" -> MAX_HOPS_EXCEEDED
      | "POSSIBLE_MIDDLEBOX" -> POSSIBLE_MIDDLEBOX
      | "NO_DESTINATION_ARN_PROVIDED" -> NO_DESTINATION_ARN_PROVIDED
      | 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 RouteAnalysisCompletionReasonCode"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"RouteAnalysisCompletionReasonCode" j)
    let to_json = simple_to_json to_value
  end
module RouteAnalysisCompletionResultCode =
  struct
    type nonrec t =
      | CONNECTED 
      | NOT_CONNECTED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CONNECTED -> "CONNECTED"
      | NOT_CONNECTED -> "NOT_CONNECTED"
      | Non_static_id s -> s
    let of_string =
      function
      | "CONNECTED" -> CONNECTED
      | "NOT_CONNECTED" -> NOT_CONNECTED
      | 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 RouteAnalysisCompletionResultCode"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"RouteAnalysisCompletionResultCode" j)
    let to_json = simple_to_json to_value
  end
module AccountId =
  struct
    type nonrec t = string
    let context_ = "AccountId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:50) >>=
             (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:"AccountId" j
    let to_json = simple_to_json to_value
  end
module SLRDeploymentStatus =
  struct
    type nonrec t = string
    let context_ = "SLRDeploymentStatus"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:50) >>=
             (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:"SLRDeploymentStatus" j
    let to_json = simple_to_json to_value
  end
module PeeringError =
  struct
    type nonrec t =
      {
      code: PeeringErrorCode.t option
        [@ocaml.doc "The error code for the peering request."];
      message: ServerSideString.t option
        [@ocaml.doc "The message associated with the error code."];
      resourceArn: ResourceArn.t option
        [@ocaml.doc "The ARN of the requested peering resource."];
      requestId: ServerSideString.t option
        [@ocaml.doc "The ID of the Peering request."];
      missingPermissionsContext: PermissionsErrorContext.t option
        [@ocaml.doc
          "Provides additional information about missing permissions for the peering error."]}
    let make ?code =
      fun ?message ->
        fun ?resourceArn ->
          fun ?requestId ->
            fun ?missingPermissionsContext ->
              fun () ->
                {
                  code;
                  message;
                  resourceArn;
                  requestId;
                  missingPermissionsContext
                }
    let to_value x =
      structure_to_value
        [("Code", (Option.map x.code ~f:PeeringErrorCode.to_value));
        ("Message", (Option.map x.message ~f:ServerSideString.to_value));
        ("ResourceArn", (Option.map x.resourceArn ~f:ResourceArn.to_value));
        ("RequestId", (Option.map x.requestId ~f:ServerSideString.to_value));
        ("MissingPermissionsContext",
          (Option.map x.missingPermissionsContext
             ~f:PermissionsErrorContext.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let missingPermissionsContext =
        (Option.map ~f:PermissionsErrorContext.of_xml)
          (Xml.child xml_arg0 "MissingPermissionsContext") in
      let requestId =
        (Option.map ~f:ServerSideString.of_xml)
          (Xml.child xml_arg0 "RequestId") in
      let resourceArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "ResourceArn") in
      let message =
        (Option.map ~f:ServerSideString.of_xml)
          (Xml.child xml_arg0 "Message") in
      let code =
        (Option.map ~f:PeeringErrorCode.of_xml) (Xml.child xml_arg0 "Code") in
      make ?missingPermissionsContext ?requestId ?resourceArn ?message ?code
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let missingPermissionsContext =
        field_map json__ "MissingPermissionsContext"
          PermissionsErrorContext.of_json in
      let requestId = field_map json__ "RequestId" ServerSideString.of_json in
      let resourceArn = field_map json__ "ResourceArn" ResourceArn.of_json in
      let message = field_map json__ "Message" ServerSideString.of_json in
      let code = field_map json__ "Code" PeeringErrorCode.of_json in
      make ?missingPermissionsContext ?requestId ?resourceArn ?message ?code
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes an error associated with a peering request."]
module TransitGatewayRegistrationState =
  struct
    type nonrec t =
      | PENDING 
      | AVAILABLE 
      | DELETING 
      | DELETED 
      | FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING -> "PENDING"
      | AVAILABLE -> "AVAILABLE"
      | DELETING -> "DELETING"
      | DELETED -> "DELETED"
      | FAILED -> "FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING" -> PENDING
      | "AVAILABLE" -> AVAILABLE
      | "DELETING" -> DELETING
      | "DELETED" -> DELETED
      | "FAILED" -> FAILED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration TransitGatewayRegistrationState"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"TransitGatewayRegistrationState" j)
    let to_json = simple_to_json to_value
  end
module ConnectionStatus =
  struct
    type nonrec t =
      | UP 
      | DOWN 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | UP -> "UP" | DOWN -> "DOWN" | Non_static_id s -> s
    let of_string =
      function | "UP" -> UP | "DOWN" -> DOWN | 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 ConnectionStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ConnectionStatus" j)
    let to_json = simple_to_json to_value
  end
module ConnectionType =
  struct
    type nonrec t =
      | BGP 
      | IPSEC 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | BGP -> "BGP" | IPSEC -> "IPSEC" | Non_static_id s -> s
    let of_string =
      function | "BGP" -> BGP | "IPSEC" -> IPSEC | 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 ConnectionType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ConnectionType" j)
    let to_json = simple_to_json to_value
  end
module DateTime =
  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 NetworkRouteDestination =
  struct
    type nonrec t =
      {
      coreNetworkAttachmentId: AttachmentId.t option
        [@ocaml.doc "The ID of a core network attachment."];
      transitGatewayAttachmentId: TransitGatewayAttachmentId.t option
        [@ocaml.doc "The ID of the transit gateway attachment."];
      segmentName: ConstrainedString.t option
        [@ocaml.doc "The name of the segment."];
      networkFunctionGroupName: ConstrainedString.t option
        [@ocaml.doc
          "The network function group name associated with the destination."];
      edgeLocation: ExternalRegionCode.t option
        [@ocaml.doc "The edge location for the network destination."];
      resourceType: ConstrainedString.t option
        [@ocaml.doc "The resource type."];
      resourceId: ConstrainedString.t option
        [@ocaml.doc "The ID of the resource."]}
    let make ?coreNetworkAttachmentId =
      fun ?transitGatewayAttachmentId ->
        fun ?segmentName ->
          fun ?networkFunctionGroupName ->
            fun ?edgeLocation ->
              fun ?resourceType ->
                fun ?resourceId ->
                  fun () ->
                    {
                      coreNetworkAttachmentId;
                      transitGatewayAttachmentId;
                      segmentName;
                      networkFunctionGroupName;
                      edgeLocation;
                      resourceType;
                      resourceId
                    }
    let to_value x =
      structure_to_value
        [("CoreNetworkAttachmentId",
           (Option.map x.coreNetworkAttachmentId ~f:AttachmentId.to_value));
        ("TransitGatewayAttachmentId",
          (Option.map x.transitGatewayAttachmentId
             ~f:TransitGatewayAttachmentId.to_value));
        ("SegmentName",
          (Option.map x.segmentName ~f:ConstrainedString.to_value));
        ("NetworkFunctionGroupName",
          (Option.map x.networkFunctionGroupName
             ~f:ConstrainedString.to_value));
        ("EdgeLocation",
          (Option.map x.edgeLocation ~f:ExternalRegionCode.to_value));
        ("ResourceType",
          (Option.map x.resourceType ~f:ConstrainedString.to_value));
        ("ResourceId",
          (Option.map x.resourceId ~f:ConstrainedString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceId =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "ResourceId") in
      let resourceType =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "ResourceType") in
      let edgeLocation =
        (Option.map ~f:ExternalRegionCode.of_xml)
          (Xml.child xml_arg0 "EdgeLocation") in
      let networkFunctionGroupName =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "NetworkFunctionGroupName") in
      let segmentName =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "SegmentName") in
      let transitGatewayAttachmentId =
        (Option.map ~f:TransitGatewayAttachmentId.of_xml)
          (Xml.child xml_arg0 "TransitGatewayAttachmentId") in
      let coreNetworkAttachmentId =
        (Option.map ~f:AttachmentId.of_xml)
          (Xml.child xml_arg0 "CoreNetworkAttachmentId") in
      make ?resourceId ?resourceType ?edgeLocation ?networkFunctionGroupName
        ?segmentName ?transitGatewayAttachmentId ?coreNetworkAttachmentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceId =
        field_map json__ "ResourceId" ConstrainedString.of_json in
      let resourceType =
        field_map json__ "ResourceType" ConstrainedString.of_json in
      let edgeLocation =
        field_map json__ "EdgeLocation" ExternalRegionCode.of_json in
      let networkFunctionGroupName =
        field_map json__ "NetworkFunctionGroupName" ConstrainedString.of_json in
      let segmentName =
        field_map json__ "SegmentName" ConstrainedString.of_json in
      let transitGatewayAttachmentId =
        field_map json__ "TransitGatewayAttachmentId"
          TransitGatewayAttachmentId.of_json in
      let coreNetworkAttachmentId =
        field_map json__ "CoreNetworkAttachmentId" AttachmentId.of_json in
      make ?resourceId ?resourceType ?edgeLocation ?networkFunctionGroupName
        ?segmentName ?transitGatewayAttachmentId ?coreNetworkAttachmentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the destination of a network route."]
module SubnetArn =
  struct
    type nonrec t = string
    let context_ = "SubnetArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:500) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^arn:[^:]{1,63}:ec2:[^:]{0,63}:[^:]{0,63}:subnet\\/subnet-[0-9a-f]{8,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:"SubnetArn" j
    let to_json = simple_to_json to_value
  end
module CoreNetworkPolicyDocument =
  struct
    type nonrec t = string
    let context_ = "CoreNetworkPolicyDocument"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:10000000) >>=
                  (fun () -> check_pattern i ~pattern:"[\\s\\S]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"CoreNetworkPolicyDocument" j
    let to_json = simple_to_json to_value
  end
module RoutingPolicyAssociationDetailsList =
  struct
    type nonrec t = RoutingPolicyAssociationDetail.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:RoutingPolicyAssociationDetail.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:RoutingPolicyAssociationDetail.of_xml)
    let of_json j =
      list_of_json ~kind:"RoutingPolicyAssociationDetailsList"
        ~of_json:RoutingPolicyAssociationDetail.of_json j
    let to_json v = composed_to_json to_value v
  end
module RoutingPolicyDirection =
  struct
    type nonrec t =
      | Inbound 
      | Outbound 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Inbound -> "inbound"
      | Outbound -> "outbound"
      | Non_static_id s -> s
    let of_string =
      function
      | "inbound" -> Inbound
      | "outbound" -> Outbound
      | 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 RoutingPolicyDirection" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"RoutingPolicyDirection" j)
    let to_json = simple_to_json to_value
  end
module ServiceInsertionActionList =
  struct
    type nonrec t = ServiceInsertionAction.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:ServiceInsertionAction.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:ServiceInsertionAction.of_xml)
    let of_json j =
      list_of_json ~kind:"ServiceInsertionActionList"
        ~of_json:ServiceInsertionAction.of_json j
    let to_json v = composed_to_json to_value v
  end
module ConnectPeerBgpConfiguration =
  struct
    type nonrec t =
      {
      coreNetworkAsn: Long.t option
        [@ocaml.doc "The ASN of the Coret Network."];
      peerAsn: Long.t option [@ocaml.doc "The ASN of the Connect peer."];
      coreNetworkAddress: IPAddress.t option
        [@ocaml.doc "The address of a core network."];
      peerAddress: IPAddress.t option
        [@ocaml.doc "The address of a core network Connect peer."]}
    let make ?coreNetworkAsn =
      fun ?peerAsn ->
        fun ?coreNetworkAddress ->
          fun ?peerAddress ->
            fun () ->
              { coreNetworkAsn; peerAsn; coreNetworkAddress; peerAddress }
    let to_value x =
      structure_to_value
        [("CoreNetworkAsn", (Option.map x.coreNetworkAsn ~f:Long.to_value));
        ("PeerAsn", (Option.map x.peerAsn ~f:Long.to_value));
        ("CoreNetworkAddress",
          (Option.map x.coreNetworkAddress ~f:IPAddress.to_value));
        ("PeerAddress", (Option.map x.peerAddress ~f:IPAddress.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let peerAddress =
        (Option.map ~f:IPAddress.of_xml) (Xml.child xml_arg0 "PeerAddress") in
      let coreNetworkAddress =
        (Option.map ~f:IPAddress.of_xml)
          (Xml.child xml_arg0 "CoreNetworkAddress") in
      let peerAsn =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "PeerAsn") in
      let coreNetworkAsn =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "CoreNetworkAsn") in
      make ?peerAddress ?coreNetworkAddress ?peerAsn ?coreNetworkAsn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let peerAddress = field_map json__ "PeerAddress" IPAddress.of_json in
      let coreNetworkAddress =
        field_map json__ "CoreNetworkAddress" IPAddress.of_json in
      let peerAsn = field_map json__ "PeerAsn" Long.of_json in
      let coreNetworkAsn = field_map json__ "CoreNetworkAsn" Long.of_json in
      make ?peerAddress ?coreNetworkAddress ?peerAsn ?coreNetworkAsn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a core network BGP configuration."]
module ConnectPeerErrorCode =
  struct
    type nonrec t =
      | EDGE_LOCATION_NO_FREE_IPS 
      | EDGE_LOCATION_PEER_DUPLICATE 
      | SUBNET_NOT_FOUND 
      | IP_OUTSIDE_SUBNET_CIDR_RANGE 
      | INVALID_INSIDE_CIDR_BLOCK 
      | NO_ASSOCIATED_CIDR_BLOCK 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | EDGE_LOCATION_NO_FREE_IPS -> "EDGE_LOCATION_NO_FREE_IPS"
      | EDGE_LOCATION_PEER_DUPLICATE -> "EDGE_LOCATION_PEER_DUPLICATE"
      | SUBNET_NOT_FOUND -> "SUBNET_NOT_FOUND"
      | IP_OUTSIDE_SUBNET_CIDR_RANGE -> "IP_OUTSIDE_SUBNET_CIDR_RANGE"
      | INVALID_INSIDE_CIDR_BLOCK -> "INVALID_INSIDE_CIDR_BLOCK"
      | NO_ASSOCIATED_CIDR_BLOCK -> "NO_ASSOCIATED_CIDR_BLOCK"
      | Non_static_id s -> s
    let of_string =
      function
      | "EDGE_LOCATION_NO_FREE_IPS" -> EDGE_LOCATION_NO_FREE_IPS
      | "EDGE_LOCATION_PEER_DUPLICATE" -> EDGE_LOCATION_PEER_DUPLICATE
      | "SUBNET_NOT_FOUND" -> SUBNET_NOT_FOUND
      | "IP_OUTSIDE_SUBNET_CIDR_RANGE" -> IP_OUTSIDE_SUBNET_CIDR_RANGE
      | "INVALID_INSIDE_CIDR_BLOCK" -> INVALID_INSIDE_CIDR_BLOCK
      | "NO_ASSOCIATED_CIDR_BLOCK" -> NO_ASSOCIATED_CIDR_BLOCK
      | 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 ConnectPeerErrorCode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ConnectPeerErrorCode" j)
    let to_json = simple_to_json to_value
  end
module ExceptionContextKey =
  struct
    type nonrec t = string
    let context_ = "ExceptionContextKey"
    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:"ExceptionContextKey" j
    let to_json = simple_to_json to_value
  end
module ExceptionContextValue =
  struct
    type nonrec t = string
    let context_ = "ExceptionContextValue"
    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:"ExceptionContextValue" j
    let to_json = simple_to_json to_value
  end
module ValidationExceptionField =
  struct
    type nonrec t =
      {
      name: ServerSideString.t option [@ocaml.doc "The name of the field."];
      message: ServerSideString.t option
        [@ocaml.doc "The message for the field."]}
    let make ?name = fun ?message -> fun () -> { name; message }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:ServerSideString.to_value));
        ("Message", (Option.map x.message ~f:ServerSideString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ServerSideString.of_xml)
          (Xml.child xml_arg0 "Message") in
      let name =
        (Option.map ~f:ServerSideString.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" ServerSideString.of_json in
      let name = field_map json__ "Name" ServerSideString.of_json in
      make ?message ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a validation exception for a field."]
module AWSAccountId =
  struct
    type nonrec t = string
    let context_ = "AWSAccountId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:12) >>=
             (fun () ->
                (check_string_max i ~max:12) >>=
                  (fun () -> check_pattern i ~pattern:"[\\s\\S]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AWSAccountId" j
    let to_json = simple_to_json to_value
  end
module AttachmentErrorList =
  struct
    type nonrec t = AttachmentError.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:AttachmentError.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:AttachmentError.of_xml)
    let of_json j =
      list_of_json ~kind:"AttachmentErrorList"
        ~of_json:AttachmentError.of_json j
    let to_json v = composed_to_json to_value v
  end
module AttachmentState =
  struct
    type nonrec t =
      | REJECTED 
      | PENDING_ATTACHMENT_ACCEPTANCE 
      | CREATING 
      | FAILED 
      | AVAILABLE 
      | UPDATING 
      | PENDING_NETWORK_UPDATE 
      | PENDING_TAG_ACCEPTANCE 
      | DELETING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | REJECTED -> "REJECTED"
      | PENDING_ATTACHMENT_ACCEPTANCE -> "PENDING_ATTACHMENT_ACCEPTANCE"
      | CREATING -> "CREATING"
      | FAILED -> "FAILED"
      | AVAILABLE -> "AVAILABLE"
      | UPDATING -> "UPDATING"
      | PENDING_NETWORK_UPDATE -> "PENDING_NETWORK_UPDATE"
      | PENDING_TAG_ACCEPTANCE -> "PENDING_TAG_ACCEPTANCE"
      | DELETING -> "DELETING"
      | Non_static_id s -> s
    let of_string =
      function
      | "REJECTED" -> REJECTED
      | "PENDING_ATTACHMENT_ACCEPTANCE" -> PENDING_ATTACHMENT_ACCEPTANCE
      | "CREATING" -> CREATING
      | "FAILED" -> FAILED
      | "AVAILABLE" -> AVAILABLE
      | "UPDATING" -> UPDATING
      | "PENDING_NETWORK_UPDATE" -> PENDING_NETWORK_UPDATE
      | "PENDING_TAG_ACCEPTANCE" -> PENDING_TAG_ACCEPTANCE
      | "DELETING" -> DELETING
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration AttachmentState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AttachmentState" j)
    let to_json = simple_to_json to_value
  end
module AttachmentType =
  struct
    type nonrec t =
      | CONNECT 
      | SITE_TO_SITE_VPN 
      | VPC 
      | DIRECT_CONNECT_GATEWAY 
      | TRANSIT_GATEWAY_ROUTE_TABLE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CONNECT -> "CONNECT"
      | SITE_TO_SITE_VPN -> "SITE_TO_SITE_VPN"
      | VPC -> "VPC"
      | DIRECT_CONNECT_GATEWAY -> "DIRECT_CONNECT_GATEWAY"
      | TRANSIT_GATEWAY_ROUTE_TABLE -> "TRANSIT_GATEWAY_ROUTE_TABLE"
      | Non_static_id s -> s
    let of_string =
      function
      | "CONNECT" -> CONNECT
      | "SITE_TO_SITE_VPN" -> SITE_TO_SITE_VPN
      | "VPC" -> VPC
      | "DIRECT_CONNECT_GATEWAY" -> DIRECT_CONNECT_GATEWAY
      | "TRANSIT_GATEWAY_ROUTE_TABLE" -> TRANSIT_GATEWAY_ROUTE_TABLE
      | 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 AttachmentType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AttachmentType" j)
    let to_json = simple_to_json to_value
  end
module CoreNetworkArn =
  struct
    type nonrec t = string
    let context_ = "CoreNetworkArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:500) >>=
                  (fun () -> check_pattern i ~pattern:"[\\s\\S]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"CoreNetworkArn" j
    let to_json = simple_to_json to_value
  end
module CoreNetworkId =
  struct
    type nonrec t = string
    let context_ = "CoreNetworkId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:50) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^core-network-([0-9a-f]{8,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:"CoreNetworkId" j
    let to_json = simple_to_json to_value
  end
module NetworkFunctionGroupName =
  struct
    type nonrec t = string
    let context_ = "NetworkFunctionGroupName"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[\\s\\S]*"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"NetworkFunctionGroupName" j
    let to_json = simple_to_json to_value
  end
module ProposedNetworkFunctionGroupChange =
  struct
    type nonrec t =
      {
      tags: TagList.t option
        [@ocaml.doc
          "The list of proposed changes to the key-value tags associated with the network function group."];
      attachmentPolicyRuleNumber: Integer.t option
        [@ocaml.doc
          "The proposed new attachment policy rule number for the network function group."];
      networkFunctionGroupName: ConstrainedString.t option
        [@ocaml.doc
          "The proposed name change for the network function group name."]}
    let make ?tags =
      fun ?attachmentPolicyRuleNumber ->
        fun ?networkFunctionGroupName ->
          fun () ->
            { tags; attachmentPolicyRuleNumber; networkFunctionGroupName }
    let to_value x =
      structure_to_value
        [("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("AttachmentPolicyRuleNumber",
          (Option.map x.attachmentPolicyRuleNumber ~f:Integer.to_value));
        ("NetworkFunctionGroupName",
          (Option.map x.networkFunctionGroupName
             ~f:ConstrainedString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let networkFunctionGroupName =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "NetworkFunctionGroupName") in
      let attachmentPolicyRuleNumber =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "AttachmentPolicyRuleNumber") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      make ?networkFunctionGroupName ?attachmentPolicyRuleNumber ?tags ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let networkFunctionGroupName =
        field_map json__ "NetworkFunctionGroupName" ConstrainedString.of_json in
      let attachmentPolicyRuleNumber =
        field_map json__ "AttachmentPolicyRuleNumber" Integer.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      make ?networkFunctionGroupName ?attachmentPolicyRuleNumber ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes proposed changes to a network function group."]
module ProposedSegmentChange =
  struct
    type nonrec t =
      {
      tags: TagList.t option
        [@ocaml.doc
          "The list of key-value tags that changed for the segment."];
      attachmentPolicyRuleNumber: Integer.t option
        [@ocaml.doc
          "The rule number in the policy document that applies to this change."];
      segmentName: ConstrainedString.t option
        [@ocaml.doc "The name of the segment to change."]}
    let make ?tags =
      fun ?attachmentPolicyRuleNumber ->
        fun ?segmentName ->
          fun () -> { tags; attachmentPolicyRuleNumber; segmentName }
    let to_value x =
      structure_to_value
        [("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("AttachmentPolicyRuleNumber",
          (Option.map x.attachmentPolicyRuleNumber ~f:Integer.to_value));
        ("SegmentName",
          (Option.map x.segmentName ~f:ConstrainedString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let segmentName =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "SegmentName") in
      let attachmentPolicyRuleNumber =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "AttachmentPolicyRuleNumber") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      make ?segmentName ?attachmentPolicyRuleNumber ?tags ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let segmentName =
        field_map json__ "SegmentName" ConstrainedString.of_json in
      let attachmentPolicyRuleNumber =
        field_map json__ "AttachmentPolicyRuleNumber" Integer.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      make ?segmentName ?attachmentPolicyRuleNumber ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes a proposed segment change. In some cases, the segment change must first be evaluated and accepted."]
module CoreNetworkEdge =
  struct
    type nonrec t =
      {
      edgeLocation: ExternalRegionCode.t option
        [@ocaml.doc "The Region where a core network edge is located."];
      asn: Long.t option [@ocaml.doc "The ASN of a core network edge."];
      insideCidrBlocks: ConstrainedStringList.t option
        [@ocaml.doc "The inside IP addresses used for core network edges."]}
    let make ?edgeLocation =
      fun ?asn ->
        fun ?insideCidrBlocks ->
          fun () -> { edgeLocation; asn; insideCidrBlocks }
    let to_value x =
      structure_to_value
        [("EdgeLocation",
           (Option.map x.edgeLocation ~f:ExternalRegionCode.to_value));
        ("Asn", (Option.map x.asn ~f:Long.to_value));
        ("InsideCidrBlocks",
          (Option.map x.insideCidrBlocks ~f:ConstrainedStringList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let insideCidrBlocks =
        (Option.map ~f:ConstrainedStringList.of_xml)
          (Xml.child xml_arg0 "InsideCidrBlocks") in
      let asn = (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "Asn") in
      let edgeLocation =
        (Option.map ~f:ExternalRegionCode.of_xml)
          (Xml.child xml_arg0 "EdgeLocation") in
      make ?insideCidrBlocks ?asn ?edgeLocation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let insideCidrBlocks =
        field_map json__ "InsideCidrBlocks" ConstrainedStringList.of_json in
      let asn = field_map json__ "Asn" Long.of_json in
      let edgeLocation =
        field_map json__ "EdgeLocation" ExternalRegionCode.of_json in
      make ?insideCidrBlocks ?asn ?edgeLocation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a core network edge."]
module CoreNetworkNetworkFunctionGroup =
  struct
    type nonrec t =
      {
      name: ConstrainedString.t option
        [@ocaml.doc "The name of the network function group."];
      edgeLocations: ExternalRegionCodeList.t option
        [@ocaml.doc "The core network edge locations."];
      segments: ServiceInsertionSegments.t option
        [@ocaml.doc
          "The segments associated with the network function group."]}
    let make ?name =
      fun ?edgeLocations ->
        fun ?segments -> fun () -> { name; edgeLocations; segments }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:ConstrainedString.to_value));
        ("EdgeLocations",
          (Option.map x.edgeLocations ~f:ExternalRegionCodeList.to_value));
        ("Segments",
          (Option.map x.segments ~f:ServiceInsertionSegments.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let segments =
        (Option.map ~f:ServiceInsertionSegments.of_xml)
          (Xml.child xml_arg0 "Segments") in
      let edgeLocations =
        (Option.map ~f:ExternalRegionCodeList.of_xml)
          (Xml.child xml_arg0 "EdgeLocations") in
      let name =
        (Option.map ~f:ConstrainedString.of_xml) (Xml.child xml_arg0 "Name") in
      make ?segments ?edgeLocations ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let segments =
        field_map json__ "Segments" ServiceInsertionSegments.of_json in
      let edgeLocations =
        field_map json__ "EdgeLocations" ExternalRegionCodeList.of_json in
      let name = field_map json__ "Name" ConstrainedString.of_json in
      make ?segments ?edgeLocations ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a network function group."]
module CoreNetworkSegment =
  struct
    type nonrec t =
      {
      name: ConstrainedString.t option
        [@ocaml.doc "The name of a core network segment."];
      edgeLocations: ExternalRegionCodeList.t option
        [@ocaml.doc "The Regions where the edges are located."];
      sharedSegments: ConstrainedStringList.t option
        [@ocaml.doc "The shared segments of a core network."]}
    let make ?name =
      fun ?edgeLocations ->
        fun ?sharedSegments ->
          fun () -> { name; edgeLocations; sharedSegments }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:ConstrainedString.to_value));
        ("EdgeLocations",
          (Option.map x.edgeLocations ~f:ExternalRegionCodeList.to_value));
        ("SharedSegments",
          (Option.map x.sharedSegments ~f:ConstrainedStringList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sharedSegments =
        (Option.map ~f:ConstrainedStringList.of_xml)
          (Xml.child xml_arg0 "SharedSegments") in
      let edgeLocations =
        (Option.map ~f:ExternalRegionCodeList.of_xml)
          (Xml.child xml_arg0 "EdgeLocations") in
      let name =
        (Option.map ~f:ConstrainedString.of_xml) (Xml.child xml_arg0 "Name") in
      make ?sharedSegments ?edgeLocations ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sharedSegments =
        field_map json__ "SharedSegments" ConstrainedStringList.of_json in
      let edgeLocations =
        field_map json__ "EdgeLocations" ExternalRegionCodeList.of_json in
      let name = field_map json__ "Name" ConstrainedString.of_json in
      make ?sharedSegments ?edgeLocations ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes a core network segment, which are dedicated routes. Only attachments within this segment can communicate with each other."]
module TransitGatewayArn =
  struct
    type nonrec t = string
    let context_ = "TransitGatewayArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:500) >>=
                  (fun () -> check_pattern i ~pattern:"[\\s\\S]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TransitGatewayArn" j
    let to_json = simple_to_json to_value
  end
module TransitGatewayAttachmentArn =
  struct
    type nonrec t = string
    let context_ = "TransitGatewayAttachmentArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:500) >>=
                  (fun () -> check_pattern i ~pattern:"[\\s\\S]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TransitGatewayAttachmentArn" j
    let to_json = simple_to_json to_value
  end
module PathComponentList =
  struct
    type nonrec t = PathComponent.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:PathComponent.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:PathComponent.of_xml)
    let of_json j =
      list_of_json ~kind:"PathComponentList" ~of_json:PathComponent.of_json j
    let to_json v = composed_to_json to_value v
  end
module RouteAnalysisCompletion =
  struct
    type nonrec t =
      {
      resultCode: RouteAnalysisCompletionResultCode.t option
        [@ocaml.doc
          "The result of the analysis. If the status is NOT_CONNECTED, check the reason code."];
      reasonCode: RouteAnalysisCompletionReasonCode.t option
        [@ocaml.doc
          "The reason code. Available only if a connection is not found. BLACKHOLE_ROUTE_FOR_DESTINATION_FOUND - Found a black hole route with the destination CIDR block. CYCLIC_PATH_DETECTED - Found the same resource multiple times while traversing the path. INACTIVE_ROUTE_FOR_DESTINATION_FOUND - Found an inactive route with the destination CIDR block. MAX_HOPS_EXCEEDED - Analysis exceeded 64 hops without finding the destination. ROUTE_NOT_FOUND - Cannot find a route table with the destination CIDR block. TGW_ATTACH_ARN_NO_MATCH - Found an attachment, but not with the correct destination ARN. TGW_ATTACH_NOT_FOUND - Cannot find an attachment. TGW_ATTACH_NOT_IN_TGW - Found an attachment, but not to the correct transit gateway. TGW_ATTACH_STABLE_ROUTE_TABLE_NOT_FOUND - The state of the route table association is not associated."];
      reasonContext: ReasonContextMap.t option
        [@ocaml.doc
          "Additional information about the path. Available only if a connection is not found."]}
    let make ?resultCode =
      fun ?reasonCode ->
        fun ?reasonContext ->
          fun () -> { resultCode; reasonCode; reasonContext }
    let to_value x =
      structure_to_value
        [("ResultCode",
           (Option.map x.resultCode
              ~f:RouteAnalysisCompletionResultCode.to_value));
        ("ReasonCode",
          (Option.map x.reasonCode
             ~f:RouteAnalysisCompletionReasonCode.to_value));
        ("ReasonContext",
          (Option.map x.reasonContext ~f:ReasonContextMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reasonContext =
        (Option.map ~f:ReasonContextMap.of_xml)
          (Xml.child xml_arg0 "ReasonContext") in
      let reasonCode =
        (Option.map ~f:RouteAnalysisCompletionReasonCode.of_xml)
          (Xml.child xml_arg0 "ReasonCode") in
      let resultCode =
        (Option.map ~f:RouteAnalysisCompletionResultCode.of_xml)
          (Xml.child xml_arg0 "ResultCode") in
      make ?reasonContext ?reasonCode ?resultCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reasonContext =
        field_map json__ "ReasonContext" ReasonContextMap.of_json in
      let reasonCode =
        field_map json__ "ReasonCode"
          RouteAnalysisCompletionReasonCode.of_json in
      let resultCode =
        field_map json__ "ResultCode"
          RouteAnalysisCompletionResultCode.of_json in
      make ?reasonContext ?reasonCode ?resultCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the status of an analysis at completion."]
module AccountStatus =
  struct
    type nonrec t =
      {
      accountId: AccountId.t option
        [@ocaml.doc
          "The ID of an account within the Amazon Web Services Organization."];
      sLRDeploymentStatus: SLRDeploymentStatus.t option
        [@ocaml.doc "The status of SLR deployment for the account."]}
    let make ?accountId =
      fun ?sLRDeploymentStatus ->
        fun () -> { accountId; sLRDeploymentStatus }
    let to_value x =
      structure_to_value
        [("AccountId", (Option.map x.accountId ~f:AccountId.to_value));
        ("SLRDeploymentStatus",
          (Option.map x.sLRDeploymentStatus ~f:SLRDeploymentStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sLRDeploymentStatus =
        (Option.map ~f:SLRDeploymentStatus.of_xml)
          (Xml.child xml_arg0 "SLRDeploymentStatus") in
      let accountId =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "AccountId") in
      make ?sLRDeploymentStatus ?accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sLRDeploymentStatus =
        field_map json__ "SLRDeploymentStatus" SLRDeploymentStatus.of_json in
      let accountId = field_map json__ "AccountId" AccountId.of_json in
      make ?sLRDeploymentStatus ?accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the current status of an account within an Amazon Web Services Organization, including service-linked roles (SLRs)."]
module CoreNetworkPolicyError =
  struct
    type nonrec t =
      {
      errorCode: ServerSideString.t option
        [@ocaml.doc
          "The error code associated with a core network policy error."];
      message: ServerSideString.t option
        [@ocaml.doc
          "The message associated with a core network policy error code."];
      path: ServerSideString.t option
        [@ocaml.doc
          "The JSON path where the error was discovered in the policy document."]}
    let make ?errorCode =
      fun ?message -> fun ?path -> fun () -> { errorCode; message; path }
    let to_value x =
      structure_to_value
        [("ErrorCode", (Option.map x.errorCode ~f:ServerSideString.to_value));
        ("Message", (Option.map x.message ~f:ServerSideString.to_value));
        ("Path", (Option.map x.path ~f:ServerSideString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let path =
        (Option.map ~f:ServerSideString.of_xml) (Xml.child xml_arg0 "Path") in
      let message =
        (Option.map ~f:ServerSideString.of_xml)
          (Xml.child xml_arg0 "Message") in
      let errorCode =
        (Option.map ~f:ServerSideString.of_xml)
          (Xml.child xml_arg0 "ErrorCode") in
      make ?path ?message ?errorCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let path = field_map json__ "Path" ServerSideString.of_json in
      let message = field_map json__ "Message" ServerSideString.of_json in
      let errorCode = field_map json__ "ErrorCode" ServerSideString.of_json in
      make ?path ?message ?errorCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides details about an error in a core network policy."]
module PeeringErrorList =
  struct
    type nonrec t = PeeringError.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:PeeringError.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:PeeringError.of_xml)
    let of_json j =
      list_of_json ~kind:"PeeringErrorList" ~of_json:PeeringError.of_json j
    let to_json v = composed_to_json to_value v
  end
module PeeringId =
  struct
    type nonrec t = string
    let context_ = "PeeringId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:50) >>=
                  (fun () ->
                     check_pattern i ~pattern:"^peering-([0-9a-f]{8,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:"PeeringId" j
    let to_json = simple_to_json to_value
  end
module PeeringState =
  struct
    type nonrec t =
      | CREATING 
      | FAILED 
      | AVAILABLE 
      | DELETING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATING -> "CREATING"
      | FAILED -> "FAILED"
      | AVAILABLE -> "AVAILABLE"
      | DELETING -> "DELETING"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATING" -> CREATING
      | "FAILED" -> FAILED
      | "AVAILABLE" -> AVAILABLE
      | "DELETING" -> DELETING
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration PeeringState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"PeeringState" j)
    let to_json = simple_to_json to_value
  end
module PeeringType =
  struct
    type nonrec t =
      | TRANSIT_GATEWAY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | TRANSIT_GATEWAY -> "TRANSIT_GATEWAY" | Non_static_id s -> s
    let of_string =
      function | "TRANSIT_GATEWAY" -> TRANSIT_GATEWAY | 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 PeeringType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"PeeringType" j)
    let to_json = simple_to_json to_value
  end
module CoreNetworkState =
  struct
    type nonrec t =
      | CREATING 
      | UPDATING 
      | AVAILABLE 
      | DELETING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATING -> "CREATING"
      | UPDATING -> "UPDATING"
      | AVAILABLE -> "AVAILABLE"
      | DELETING -> "DELETING"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATING" -> CREATING
      | "UPDATING" -> UPDATING
      | "AVAILABLE" -> AVAILABLE
      | "DELETING" -> DELETING
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration CoreNetworkState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"CoreNetworkState" j)
    let to_json = simple_to_json to_value
  end
module GlobalNetworkId =
  struct
    type nonrec t = string
    let context_ = "GlobalNetworkId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:50) >>=
                  (fun () -> check_pattern i ~pattern:"[\\s\\S]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"GlobalNetworkId" j
    let to_json = simple_to_json to_value
  end
module RoutingInformationNextHop =
  struct
    type nonrec t =
      {
      ipAddress: IPAddress.t option
        [@ocaml.doc "The IP address of the next hop."];
      coreNetworkAttachmentId: ConstrainedString.t option
        [@ocaml.doc
          "The ID of the core network attachment for the next hop."];
      resourceId: ConstrainedString.t option
        [@ocaml.doc "The ID of the resource for the next hop."];
      resourceType: ConstrainedString.t option
        [@ocaml.doc "The type of resource for the next hop."];
      segmentName: ConstrainedString.t option
        [@ocaml.doc "The name of the segment for the next hop."];
      edgeLocation: ExternalRegionCode.t option
        [@ocaml.doc "The edge location for the next hop."]}
    let make ?ipAddress =
      fun ?coreNetworkAttachmentId ->
        fun ?resourceId ->
          fun ?resourceType ->
            fun ?segmentName ->
              fun ?edgeLocation ->
                fun () ->
                  {
                    ipAddress;
                    coreNetworkAttachmentId;
                    resourceId;
                    resourceType;
                    segmentName;
                    edgeLocation
                  }
    let to_value x =
      structure_to_value
        [("IpAddress", (Option.map x.ipAddress ~f:IPAddress.to_value));
        ("CoreNetworkAttachmentId",
          (Option.map x.coreNetworkAttachmentId ~f:ConstrainedString.to_value));
        ("ResourceId",
          (Option.map x.resourceId ~f:ConstrainedString.to_value));
        ("ResourceType",
          (Option.map x.resourceType ~f:ConstrainedString.to_value));
        ("SegmentName",
          (Option.map x.segmentName ~f:ConstrainedString.to_value));
        ("EdgeLocation",
          (Option.map x.edgeLocation ~f:ExternalRegionCode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let edgeLocation =
        (Option.map ~f:ExternalRegionCode.of_xml)
          (Xml.child xml_arg0 "EdgeLocation") in
      let segmentName =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "SegmentName") in
      let resourceType =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "ResourceType") in
      let resourceId =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "ResourceId") in
      let coreNetworkAttachmentId =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "CoreNetworkAttachmentId") in
      let ipAddress =
        (Option.map ~f:IPAddress.of_xml) (Xml.child xml_arg0 "IpAddress") in
      make ?edgeLocation ?segmentName ?resourceType ?resourceId
        ?coreNetworkAttachmentId ?ipAddress ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let edgeLocation =
        field_map json__ "EdgeLocation" ExternalRegionCode.of_json in
      let segmentName =
        field_map json__ "SegmentName" ConstrainedString.of_json in
      let resourceType =
        field_map json__ "ResourceType" ConstrainedString.of_json in
      let resourceId =
        field_map json__ "ResourceId" ConstrainedString.of_json in
      let coreNetworkAttachmentId =
        field_map json__ "CoreNetworkAttachmentId" ConstrainedString.of_json in
      let ipAddress = field_map json__ "IpAddress" IPAddress.of_json in
      make ?edgeLocation ?segmentName ?resourceType ?resourceId
        ?coreNetworkAttachmentId ?ipAddress ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about the next hop for a route in the core network."]
module FilterValue =
  struct
    type nonrec t = string
    let context_ = "FilterValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () ->
                check_pattern i ~pattern:"^[0-9a-zA-Z\\*\\.\\\\/\\?-]*$"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"FilterValue" j
    let to_json = simple_to_json to_value
  end
module PrefixListArn =
  struct
    type nonrec t = string
    let context_ = "PrefixListArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:500) >>=
                  (fun () -> check_pattern i ~pattern:"[\\s\\S]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PrefixListArn" j
    let to_json = simple_to_json to_value
  end
module ChangeSetState =
  struct
    type nonrec t =
      | PENDING_GENERATION 
      | FAILED_GENERATION 
      | READY_TO_EXECUTE 
      | EXECUTING 
      | EXECUTION_SUCCEEDED 
      | OUT_OF_DATE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING_GENERATION -> "PENDING_GENERATION"
      | FAILED_GENERATION -> "FAILED_GENERATION"
      | READY_TO_EXECUTE -> "READY_TO_EXECUTE"
      | EXECUTING -> "EXECUTING"
      | EXECUTION_SUCCEEDED -> "EXECUTION_SUCCEEDED"
      | OUT_OF_DATE -> "OUT_OF_DATE"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING_GENERATION" -> PENDING_GENERATION
      | "FAILED_GENERATION" -> FAILED_GENERATION
      | "READY_TO_EXECUTE" -> READY_TO_EXECUTE
      | "EXECUTING" -> EXECUTING
      | "EXECUTION_SUCCEEDED" -> EXECUTION_SUCCEEDED
      | "OUT_OF_DATE" -> OUT_OF_DATE
      | 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 ChangeSetState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ChangeSetState" j)
    let to_json = simple_to_json to_value
  end
module CoreNetworkPolicyAlias =
  struct
    type nonrec t =
      | LIVE 
      | LATEST 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | LIVE -> "LIVE" | LATEST -> "LATEST" | Non_static_id s -> s
    let of_string =
      function | "LIVE" -> LIVE | "LATEST" -> LATEST | 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 CoreNetworkPolicyAlias" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"CoreNetworkPolicyAlias" j)
    let to_json = simple_to_json to_value
  end
module ConnectPeerId =
  struct
    type nonrec t = string
    let context_ = "ConnectPeerId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:50) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^connect-peer-([0-9a-f]{8,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:"ConnectPeerId" j
    let to_json = simple_to_json to_value
  end
module ConnectPeerState =
  struct
    type nonrec t =
      | CREATING 
      | FAILED 
      | AVAILABLE 
      | DELETING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATING -> "CREATING"
      | FAILED -> "FAILED"
      | AVAILABLE -> "AVAILABLE"
      | DELETING -> "DELETING"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATING" -> CREATING
      | "FAILED" -> FAILED
      | "AVAILABLE" -> AVAILABLE
      | "DELETING" -> DELETING
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration ConnectPeerState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ConnectPeerState" j)
    let to_json = simple_to_json to_value
  end
module TransitGatewayRegistrationStateReason =
  struct
    type nonrec t =
      {
      code: TransitGatewayRegistrationState.t option
        [@ocaml.doc "The code for the state reason."];
      message: ConstrainedString.t option
        [@ocaml.doc "The message for the state reason."]}
    let make ?code = fun ?message -> fun () -> { code; message }
    let to_value x =
      structure_to_value
        [("Code",
           (Option.map x.code ~f:TransitGatewayRegistrationState.to_value));
        ("Message", (Option.map x.message ~f:ConstrainedString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "Message") in
      let code =
        (Option.map ~f:TransitGatewayRegistrationState.of_xml)
          (Xml.child xml_arg0 "Code") in
      make ?message ?code ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ConstrainedString.of_json in
      let code =
        field_map json__ "Code" TransitGatewayRegistrationState.of_json in
      make ?message ?code ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the status of a transit gateway registration."]
module DeviceId =
  struct
    type nonrec t = string
    let context_ = "DeviceId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:50) >>=
                  (fun () -> check_pattern i ~pattern:"[\\s\\S]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DeviceId" j
    let to_json = simple_to_json to_value
  end
module LinkId =
  struct
    type nonrec t = string
    let context_ = "LinkId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:50) >>=
                  (fun () -> check_pattern i ~pattern:"[\\s\\S]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"LinkId" j
    let to_json = simple_to_json to_value
  end
module TransitGatewayConnectPeerArn =
  struct
    type nonrec t = string
    let context_ = "TransitGatewayConnectPeerArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:500) >>=
                  (fun () -> check_pattern i ~pattern:"[\\s\\S]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TransitGatewayConnectPeerArn" j
    let to_json = simple_to_json to_value
  end
module TransitGatewayConnectPeerAssociationState =
  struct
    type nonrec t =
      | PENDING 
      | AVAILABLE 
      | DELETING 
      | DELETED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING -> "PENDING"
      | AVAILABLE -> "AVAILABLE"
      | DELETING -> "DELETING"
      | DELETED -> "DELETED"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING" -> PENDING
      | "AVAILABLE" -> AVAILABLE
      | "DELETING" -> DELETING
      | "DELETED" -> DELETED
      | 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 TransitGatewayConnectPeerAssociationState"
           xml_arg0)
    let of_json j =
      of_string
        (string_of_json ~kind:"TransitGatewayConnectPeerAssociationState" j)
    let to_json = simple_to_json to_value
  end
module Location =
  struct
    type nonrec t =
      {
      address: ConstrainedString.t option
        [@ocaml.doc "The physical address."];
      latitude: ConstrainedString.t option [@ocaml.doc "The latitude."];
      longitude: ConstrainedString.t option [@ocaml.doc "The longitude."]}
    let make ?address =
      fun ?latitude ->
        fun ?longitude -> fun () -> { address; latitude; longitude }
    let to_value x =
      structure_to_value
        [("Address", (Option.map x.address ~f:ConstrainedString.to_value));
        ("Latitude", (Option.map x.latitude ~f:ConstrainedString.to_value));
        ("Longitude", (Option.map x.longitude ~f:ConstrainedString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let longitude =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "Longitude") in
      let latitude =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "Latitude") in
      let address =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "Address") in
      make ?longitude ?latitude ?address ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let longitude = field_map json__ "Longitude" ConstrainedString.of_json in
      let latitude = field_map json__ "Latitude" ConstrainedString.of_json in
      let address = field_map json__ "Address" ConstrainedString.of_json in
      make ?longitude ?latitude ?address ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a location."]
module SiteArn =
  struct
    type nonrec t = string
    let context_ = "SiteArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:500) >>=
                  (fun () -> check_pattern i ~pattern:"[\\s\\S]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SiteArn" j
    let to_json = simple_to_json to_value
  end
module SiteId =
  struct
    type nonrec t = string
    let context_ = "SiteId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:50) >>=
                  (fun () -> check_pattern i ~pattern:"[\\s\\S]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SiteId" j
    let to_json = simple_to_json to_value
  end
module SiteState =
  struct
    type nonrec t =
      | PENDING 
      | AVAILABLE 
      | DELETING 
      | UPDATING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING -> "PENDING"
      | AVAILABLE -> "AVAILABLE"
      | DELETING -> "DELETING"
      | UPDATING -> "UPDATING"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING" -> PENDING
      | "AVAILABLE" -> AVAILABLE
      | "DELETING" -> DELETING
      | "UPDATING" -> UPDATING
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration SiteState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SiteState" j)
    let to_json = simple_to_json to_value
  end
module ConnectionHealth =
  struct
    type nonrec t =
      {
      type_: ConnectionType.t option [@ocaml.doc "The connection type."];
      status: ConnectionStatus.t option [@ocaml.doc "The connection status."];
      timestamp: DateTime.t option
        [@ocaml.doc "The time the status was last updated."]}
    let make ?type_ =
      fun ?status -> fun ?timestamp -> fun () -> { type_; status; timestamp }
    let to_value x =
      structure_to_value
        [("Type", (Option.map x.type_ ~f:ConnectionType.to_value));
        ("Status", (Option.map x.status ~f:ConnectionStatus.to_value));
        ("Timestamp", (Option.map x.timestamp ~f:DateTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let timestamp =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "Timestamp") in
      let status =
        (Option.map ~f:ConnectionStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let type_ =
        (Option.map ~f:ConnectionType.of_xml) (Xml.child xml_arg0 "Type") in
      make ?timestamp ?status ?type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let timestamp = field_map json__ "Timestamp" DateTime.of_json in
      let status = field_map json__ "Status" ConnectionStatus.of_json in
      let type_ = field_map json__ "Type" ConnectionType.of_json in
      make ?timestamp ?status ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes connection health."]
module NetworkRouteDestinationList =
  struct
    type nonrec t = NetworkRouteDestination.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:NetworkRouteDestination.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:NetworkRouteDestination.of_xml)
    let of_json j =
      list_of_json ~kind:"NetworkRouteDestinationList"
        ~of_json:NetworkRouteDestination.of_json j
    let to_json v = composed_to_json to_value v
  end
module RouteState =
  struct
    type nonrec t =
      | ACTIVE 
      | BLACKHOLE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ACTIVE -> "ACTIVE"
      | BLACKHOLE -> "BLACKHOLE"
      | Non_static_id s -> s
    let of_string =
      function
      | "ACTIVE" -> ACTIVE
      | "BLACKHOLE" -> BLACKHOLE
      | 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 RouteState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RouteState" j)
    let to_json = simple_to_json to_value
  end
module RouteType =
  struct
    type nonrec t =
      | PROPAGATED 
      | STATIC 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PROPAGATED -> "PROPAGATED"
      | STATIC -> "STATIC"
      | Non_static_id s -> s
    let of_string =
      function
      | "PROPAGATED" -> PROPAGATED
      | "STATIC" -> STATIC
      | 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 RouteType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RouteType" j)
    let to_json = simple_to_json to_value
  end
module NetworkResourceMetadataMap =
  struct
    type nonrec t = (ConstrainedString.t * ConstrainedString.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((ConstrainedString.of_string chopped),
                              (ConstrainedString.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (ConstrainedString.to_value x) |>
                    (fun x ->
                       (ConstrainedString.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:ConstrainedString.of_string
        ~of_json:ConstrainedString.of_json j
    let to_json v = composed_to_json to_value v
  end
module Bandwidth =
  struct
    type nonrec t =
      {
      uploadSpeed: Integer.t option [@ocaml.doc "Upload speed in Mbps."];
      downloadSpeed: Integer.t option [@ocaml.doc "Download speed in Mbps."]}
    let make ?uploadSpeed =
      fun ?downloadSpeed -> fun () -> { uploadSpeed; downloadSpeed }
    let to_value x =
      structure_to_value
        [("UploadSpeed", (Option.map x.uploadSpeed ~f:Integer.to_value));
        ("DownloadSpeed", (Option.map x.downloadSpeed ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let downloadSpeed =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "DownloadSpeed") in
      let uploadSpeed =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "UploadSpeed") in
      make ?downloadSpeed ?uploadSpeed ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let downloadSpeed = field_map json__ "DownloadSpeed" Integer.of_json in
      let uploadSpeed = field_map json__ "UploadSpeed" Integer.of_json in
      make ?downloadSpeed ?uploadSpeed ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes bandwidth information."]
module LinkArn =
  struct
    type nonrec t = string
    let context_ = "LinkArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:500) >>=
                  (fun () -> check_pattern i ~pattern:"[\\s\\S]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"LinkArn" j
    let to_json = simple_to_json to_value
  end
module LinkState =
  struct
    type nonrec t =
      | PENDING 
      | AVAILABLE 
      | DELETING 
      | UPDATING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING -> "PENDING"
      | AVAILABLE -> "AVAILABLE"
      | DELETING -> "DELETING"
      | UPDATING -> "UPDATING"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING" -> PENDING
      | "AVAILABLE" -> AVAILABLE
      | "DELETING" -> DELETING
      | "UPDATING" -> UPDATING
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration LinkState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"LinkState" j)
    let to_json = simple_to_json to_value
  end
module LinkAssociationState =
  struct
    type nonrec t =
      | PENDING 
      | AVAILABLE 
      | DELETING 
      | DELETED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING -> "PENDING"
      | AVAILABLE -> "AVAILABLE"
      | DELETING -> "DELETING"
      | DELETED -> "DELETED"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING" -> PENDING
      | "AVAILABLE" -> AVAILABLE
      | "DELETING" -> DELETING
      | "DELETED" -> DELETED
      | 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 LinkAssociationState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"LinkAssociationState" j)
    let to_json = simple_to_json to_value
  end
module AWSLocation =
  struct
    type nonrec t =
      {
      zone: ConstrainedString.t option
        [@ocaml.doc
          "The Zone that the device is located in. Specify the ID of an Availability Zone, Local Zone, Wavelength Zone, or an Outpost."];
      subnetArn: SubnetArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the subnet that the device is located in."]}
    let make ?zone = fun ?subnetArn -> fun () -> { zone; subnetArn }
    let to_value x =
      structure_to_value
        [("Zone", (Option.map x.zone ~f:ConstrainedString.to_value));
        ("SubnetArn", (Option.map x.subnetArn ~f:SubnetArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let subnetArn =
        (Option.map ~f:SubnetArn.of_xml) (Xml.child xml_arg0 "SubnetArn") in
      let zone =
        (Option.map ~f:ConstrainedString.of_xml) (Xml.child xml_arg0 "Zone") in
      make ?subnetArn ?zone ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let subnetArn = field_map json__ "SubnetArn" SubnetArn.of_json in
      let zone = field_map json__ "Zone" ConstrainedString.of_json in
      make ?subnetArn ?zone ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Specifies a location in Amazon Web Services."]
module DeviceArn =
  struct
    type nonrec t = string
    let context_ = "DeviceArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:500) >>=
                  (fun () -> check_pattern i ~pattern:"[\\s\\S]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DeviceArn" j
    let to_json = simple_to_json to_value
  end
module DeviceState =
  struct
    type nonrec t =
      | PENDING 
      | AVAILABLE 
      | DELETING 
      | UPDATING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING -> "PENDING"
      | AVAILABLE -> "AVAILABLE"
      | DELETING -> "DELETING"
      | UPDATING -> "UPDATING"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING" -> PENDING
      | "AVAILABLE" -> AVAILABLE
      | "DELETING" -> DELETING
      | "UPDATING" -> UPDATING
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration DeviceState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DeviceState" j)
    let to_json = simple_to_json to_value
  end
module CustomerGatewayArn =
  struct
    type nonrec t = string
    let context_ = "CustomerGatewayArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:500) >>=
                  (fun () -> check_pattern i ~pattern:"[\\s\\S]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"CustomerGatewayArn" j
    let to_json = simple_to_json to_value
  end
module CustomerGatewayAssociationState =
  struct
    type nonrec t =
      | PENDING 
      | AVAILABLE 
      | DELETING 
      | DELETED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING -> "PENDING"
      | AVAILABLE -> "AVAILABLE"
      | DELETING -> "DELETING"
      | DELETED -> "DELETED"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING" -> PENDING
      | "AVAILABLE" -> AVAILABLE
      | "DELETING" -> DELETING
      | "DELETED" -> DELETED
      | 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 CustomerGatewayAssociationState"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"CustomerGatewayAssociationState" j)
    let to_json = simple_to_json to_value
  end
module ChangeAction =
  struct
    type nonrec t =
      | ADD 
      | MODIFY 
      | REMOVE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ADD -> "ADD"
      | MODIFY -> "MODIFY"
      | REMOVE -> "REMOVE"
      | Non_static_id s -> s
    let of_string =
      function
      | "ADD" -> ADD
      | "MODIFY" -> MODIFY
      | "REMOVE" -> REMOVE
      | 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 ChangeAction" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ChangeAction" j)
    let to_json = simple_to_json to_value
  end
module ChangeType =
  struct
    type nonrec t =
      | CORE_NETWORK_SEGMENT 
      | NETWORK_FUNCTION_GROUP 
      | CORE_NETWORK_EDGE 
      | ATTACHMENT_MAPPING 
      | ATTACHMENT_ROUTE_PROPAGATION 
      | ATTACHMENT_ROUTE_STATIC 
      | ROUTING_POLICY 
      | ROUTING_POLICY_SEGMENT_ASSOCIATION 
      | ROUTING_POLICY_EDGE_ASSOCIATION 
      | ROUTING_POLICY_ATTACHMENT_ASSOCIATION 
      | CORE_NETWORK_CONFIGURATION 
      | SEGMENTS_CONFIGURATION 
      | SEGMENT_ACTIONS_CONFIGURATION 
      | ATTACHMENT_POLICIES_CONFIGURATION 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CORE_NETWORK_SEGMENT -> "CORE_NETWORK_SEGMENT"
      | NETWORK_FUNCTION_GROUP -> "NETWORK_FUNCTION_GROUP"
      | CORE_NETWORK_EDGE -> "CORE_NETWORK_EDGE"
      | ATTACHMENT_MAPPING -> "ATTACHMENT_MAPPING"
      | ATTACHMENT_ROUTE_PROPAGATION -> "ATTACHMENT_ROUTE_PROPAGATION"
      | ATTACHMENT_ROUTE_STATIC -> "ATTACHMENT_ROUTE_STATIC"
      | ROUTING_POLICY -> "ROUTING_POLICY"
      | ROUTING_POLICY_SEGMENT_ASSOCIATION ->
          "ROUTING_POLICY_SEGMENT_ASSOCIATION"
      | ROUTING_POLICY_EDGE_ASSOCIATION -> "ROUTING_POLICY_EDGE_ASSOCIATION"
      | ROUTING_POLICY_ATTACHMENT_ASSOCIATION ->
          "ROUTING_POLICY_ATTACHMENT_ASSOCIATION"
      | CORE_NETWORK_CONFIGURATION -> "CORE_NETWORK_CONFIGURATION"
      | SEGMENTS_CONFIGURATION -> "SEGMENTS_CONFIGURATION"
      | SEGMENT_ACTIONS_CONFIGURATION -> "SEGMENT_ACTIONS_CONFIGURATION"
      | ATTACHMENT_POLICIES_CONFIGURATION ->
          "ATTACHMENT_POLICIES_CONFIGURATION"
      | Non_static_id s -> s
    let of_string =
      function
      | "CORE_NETWORK_SEGMENT" -> CORE_NETWORK_SEGMENT
      | "NETWORK_FUNCTION_GROUP" -> NETWORK_FUNCTION_GROUP
      | "CORE_NETWORK_EDGE" -> CORE_NETWORK_EDGE
      | "ATTACHMENT_MAPPING" -> ATTACHMENT_MAPPING
      | "ATTACHMENT_ROUTE_PROPAGATION" -> ATTACHMENT_ROUTE_PROPAGATION
      | "ATTACHMENT_ROUTE_STATIC" -> ATTACHMENT_ROUTE_STATIC
      | "ROUTING_POLICY" -> ROUTING_POLICY
      | "ROUTING_POLICY_SEGMENT_ASSOCIATION" ->
          ROUTING_POLICY_SEGMENT_ASSOCIATION
      | "ROUTING_POLICY_EDGE_ASSOCIATION" -> ROUTING_POLICY_EDGE_ASSOCIATION
      | "ROUTING_POLICY_ATTACHMENT_ASSOCIATION" ->
          ROUTING_POLICY_ATTACHMENT_ASSOCIATION
      | "CORE_NETWORK_CONFIGURATION" -> CORE_NETWORK_CONFIGURATION
      | "SEGMENTS_CONFIGURATION" -> SEGMENTS_CONFIGURATION
      | "SEGMENT_ACTIONS_CONFIGURATION" -> SEGMENT_ACTIONS_CONFIGURATION
      | "ATTACHMENT_POLICIES_CONFIGURATION" ->
          ATTACHMENT_POLICIES_CONFIGURATION
      | 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 ChangeType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ChangeType" j)
    let to_json = simple_to_json to_value
  end
module CoreNetworkChangeValues =
  struct
    type nonrec t =
      {
      segmentName: ConstrainedString.t option
        [@ocaml.doc "The names of the segments in a core network."];
      networkFunctionGroupName: ConstrainedString.t option
        [@ocaml.doc
          "The network function group name if the change event is associated with a network function group."];
      edgeLocations: ExternalRegionCodeList.t option
        [@ocaml.doc "The Regions where edges are located in a core network."];
      asn: Long.t option [@ocaml.doc "The ASN of a core network."];
      cidr: ConstrainedString.t option
        [@ocaml.doc "The IP addresses used for a core network."];
      destinationIdentifier: ConstrainedString.t option
        [@ocaml.doc "The ID of the destination."];
      insideCidrBlocks: ConstrainedStringList.t option
        [@ocaml.doc
          "The inside IP addresses used for core network change values."];
      sharedSegments: ConstrainedStringList.t option
        [@ocaml.doc "The shared segments for a core network change value."];
      serviceInsertionActions: ServiceInsertionActionList.t option
        [@ocaml.doc "Describes the service insertion action."];
      vpnEcmpSupport: Boolean.t option
        [@ocaml.doc
          "Indicates whether Equal Cost Multipath (ECMP) is enabled for the core network."];
      dnsSupport: Boolean.t option
        [@ocaml.doc
          "Indicates whether public DNS support is supported. The default is true."];
      securityGroupReferencingSupport: Boolean.t option
        [@ocaml.doc
          "Indicates whether security group referencing is enabled for the core network."];
      routingPolicyDirection: RoutingPolicyDirection.t option
        [@ocaml.doc
          "The routing policy direction (inbound/outbound) in a core network change event."];
      routingPolicy: CoreNetworkPolicyDocument.t option
        [@ocaml.doc
          "The routing policy configuration in the core network change values."];
      peerEdgeLocations: ExternalRegionCodeList.t option
        [@ocaml.doc
          "The edge locations of peers in the core network change values."];
      attachmentId: ConstrainedString.t option
        [@ocaml.doc
          "The attachment identifier in the core network change values."];
      routingPolicyAssociationDetails:
        RoutingPolicyAssociationDetailsList.t option
        [@ocaml.doc
          "The names of the routing policies and other association details in the core network change values."]}
    let make ?segmentName =
      fun ?networkFunctionGroupName ->
        fun ?edgeLocations ->
          fun ?asn ->
            fun ?cidr ->
              fun ?destinationIdentifier ->
                fun ?insideCidrBlocks ->
                  fun ?sharedSegments ->
                    fun ?serviceInsertionActions ->
                      fun ?vpnEcmpSupport ->
                        fun ?dnsSupport ->
                          fun ?securityGroupReferencingSupport ->
                            fun ?routingPolicyDirection ->
                              fun ?routingPolicy ->
                                fun ?peerEdgeLocations ->
                                  fun ?attachmentId ->
                                    fun ?routingPolicyAssociationDetails ->
                                      fun () ->
                                        {
                                          segmentName;
                                          networkFunctionGroupName;
                                          edgeLocations;
                                          asn;
                                          cidr;
                                          destinationIdentifier;
                                          insideCidrBlocks;
                                          sharedSegments;
                                          serviceInsertionActions;
                                          vpnEcmpSupport;
                                          dnsSupport;
                                          securityGroupReferencingSupport;
                                          routingPolicyDirection;
                                          routingPolicy;
                                          peerEdgeLocations;
                                          attachmentId;
                                          routingPolicyAssociationDetails
                                        }
    let to_value x =
      structure_to_value
        [("SegmentName",
           (Option.map x.segmentName ~f:ConstrainedString.to_value));
        ("NetworkFunctionGroupName",
          (Option.map x.networkFunctionGroupName
             ~f:ConstrainedString.to_value));
        ("EdgeLocations",
          (Option.map x.edgeLocations ~f:ExternalRegionCodeList.to_value));
        ("Asn", (Option.map x.asn ~f:Long.to_value));
        ("Cidr", (Option.map x.cidr ~f:ConstrainedString.to_value));
        ("DestinationIdentifier",
          (Option.map x.destinationIdentifier ~f:ConstrainedString.to_value));
        ("InsideCidrBlocks",
          (Option.map x.insideCidrBlocks ~f:ConstrainedStringList.to_value));
        ("SharedSegments",
          (Option.map x.sharedSegments ~f:ConstrainedStringList.to_value));
        ("ServiceInsertionActions",
          (Option.map x.serviceInsertionActions
             ~f:ServiceInsertionActionList.to_value));
        ("VpnEcmpSupport", (Option.map x.vpnEcmpSupport ~f:Boolean.to_value));
        ("DnsSupport", (Option.map x.dnsSupport ~f:Boolean.to_value));
        ("SecurityGroupReferencingSupport",
          (Option.map x.securityGroupReferencingSupport ~f:Boolean.to_value));
        ("RoutingPolicyDirection",
          (Option.map x.routingPolicyDirection
             ~f:RoutingPolicyDirection.to_value));
        ("RoutingPolicy",
          (Option.map x.routingPolicy ~f:CoreNetworkPolicyDocument.to_value));
        ("PeerEdgeLocations",
          (Option.map x.peerEdgeLocations ~f:ExternalRegionCodeList.to_value));
        ("AttachmentId",
          (Option.map x.attachmentId ~f:ConstrainedString.to_value));
        ("RoutingPolicyAssociationDetails",
          (Option.map x.routingPolicyAssociationDetails
             ~f:RoutingPolicyAssociationDetailsList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let routingPolicyAssociationDetails =
        (Option.map ~f:RoutingPolicyAssociationDetailsList.of_xml)
          (Xml.child xml_arg0 "RoutingPolicyAssociationDetails") in
      let attachmentId =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "AttachmentId") in
      let peerEdgeLocations =
        (Option.map ~f:ExternalRegionCodeList.of_xml)
          (Xml.child xml_arg0 "PeerEdgeLocations") in
      let routingPolicy =
        (Option.map ~f:CoreNetworkPolicyDocument.of_xml)
          (Xml.child xml_arg0 "RoutingPolicy") in
      let routingPolicyDirection =
        (Option.map ~f:RoutingPolicyDirection.of_xml)
          (Xml.child xml_arg0 "RoutingPolicyDirection") in
      let securityGroupReferencingSupport =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "SecurityGroupReferencingSupport") in
      let dnsSupport =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "DnsSupport") in
      let vpnEcmpSupport =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "VpnEcmpSupport") in
      let serviceInsertionActions =
        (Option.map ~f:ServiceInsertionActionList.of_xml)
          (Xml.child xml_arg0 "ServiceInsertionActions") in
      let sharedSegments =
        (Option.map ~f:ConstrainedStringList.of_xml)
          (Xml.child xml_arg0 "SharedSegments") in
      let insideCidrBlocks =
        (Option.map ~f:ConstrainedStringList.of_xml)
          (Xml.child xml_arg0 "InsideCidrBlocks") in
      let destinationIdentifier =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "DestinationIdentifier") in
      let cidr =
        (Option.map ~f:ConstrainedString.of_xml) (Xml.child xml_arg0 "Cidr") in
      let asn = (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "Asn") in
      let edgeLocations =
        (Option.map ~f:ExternalRegionCodeList.of_xml)
          (Xml.child xml_arg0 "EdgeLocations") in
      let networkFunctionGroupName =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "NetworkFunctionGroupName") in
      let segmentName =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "SegmentName") in
      make ?routingPolicyAssociationDetails ?attachmentId ?peerEdgeLocations
        ?routingPolicy ?routingPolicyDirection
        ?securityGroupReferencingSupport ?dnsSupport ?vpnEcmpSupport
        ?serviceInsertionActions ?sharedSegments ?insideCidrBlocks
        ?destinationIdentifier ?cidr ?asn ?edgeLocations
        ?networkFunctionGroupName ?segmentName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let routingPolicyAssociationDetails =
        field_map json__ "RoutingPolicyAssociationDetails"
          RoutingPolicyAssociationDetailsList.of_json in
      let attachmentId =
        field_map json__ "AttachmentId" ConstrainedString.of_json in
      let peerEdgeLocations =
        field_map json__ "PeerEdgeLocations" ExternalRegionCodeList.of_json in
      let routingPolicy =
        field_map json__ "RoutingPolicy" CoreNetworkPolicyDocument.of_json in
      let routingPolicyDirection =
        field_map json__ "RoutingPolicyDirection"
          RoutingPolicyDirection.of_json in
      let securityGroupReferencingSupport =
        field_map json__ "SecurityGroupReferencingSupport" Boolean.of_json in
      let dnsSupport = field_map json__ "DnsSupport" Boolean.of_json in
      let vpnEcmpSupport = field_map json__ "VpnEcmpSupport" Boolean.of_json in
      let serviceInsertionActions =
        field_map json__ "ServiceInsertionActions"
          ServiceInsertionActionList.of_json in
      let sharedSegments =
        field_map json__ "SharedSegments" ConstrainedStringList.of_json in
      let insideCidrBlocks =
        field_map json__ "InsideCidrBlocks" ConstrainedStringList.of_json in
      let destinationIdentifier =
        field_map json__ "DestinationIdentifier" ConstrainedString.of_json in
      let cidr = field_map json__ "Cidr" ConstrainedString.of_json in
      let asn = field_map json__ "Asn" Long.of_json in
      let edgeLocations =
        field_map json__ "EdgeLocations" ExternalRegionCodeList.of_json in
      let networkFunctionGroupName =
        field_map json__ "NetworkFunctionGroupName" ConstrainedString.of_json in
      let segmentName =
        field_map json__ "SegmentName" ConstrainedString.of_json in
      make ?routingPolicyAssociationDetails ?attachmentId ?peerEdgeLocations
        ?routingPolicy ?routingPolicyDirection
        ?securityGroupReferencingSupport ?dnsSupport ?vpnEcmpSupport
        ?serviceInsertionActions ?sharedSegments ?insideCidrBlocks
        ?destinationIdentifier ?cidr ?asn ?edgeLocations
        ?networkFunctionGroupName ?segmentName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a core network change."]
module ChangeStatus =
  struct
    type nonrec t =
      | NOT_STARTED 
      | IN_PROGRESS 
      | COMPLETE 
      | FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | NOT_STARTED -> "NOT_STARTED"
      | IN_PROGRESS -> "IN_PROGRESS"
      | COMPLETE -> "COMPLETE"
      | FAILED -> "FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "NOT_STARTED" -> NOT_STARTED
      | "IN_PROGRESS" -> IN_PROGRESS
      | "COMPLETE" -> COMPLETE
      | "FAILED" -> FAILED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration ChangeStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ChangeStatus" j)
    let to_json = simple_to_json to_value
  end
module CoreNetworkChangeEventValues =
  struct
    type nonrec t =
      {
      edgeLocation: ExternalRegionCode.t option
        [@ocaml.doc "The edge location for the core network change event."];
      peerEdgeLocation: ExternalRegionCode.t option
        [@ocaml.doc
          "The edge location of the peer in a core network change event."];
      routingPolicyDirection: RoutingPolicyDirection.t option
        [@ocaml.doc
          "The routing policy direction (inbound/outbound) in a core network change event."];
      segmentName: ConstrainedString.t option
        [@ocaml.doc
          "The segment name if the change event is associated with a segment."];
      networkFunctionGroupName: ConstrainedString.t option
        [@ocaml.doc "The changed network function group name."];
      attachmentId: AttachmentId.t option
        [@ocaml.doc
          "The ID of the attachment if the change event is associated with an attachment."];
      cidr: ConstrainedString.t option
        [@ocaml.doc "For a STATIC_ROUTE event, this is the IP address."];
      routingPolicyAssociationDetails:
        RoutingPolicyAssociationDetailsList.t option
        [@ocaml.doc
          "The names of the routing policies and other association details in the core network change values."]}
    let make ?edgeLocation =
      fun ?peerEdgeLocation ->
        fun ?routingPolicyDirection ->
          fun ?segmentName ->
            fun ?networkFunctionGroupName ->
              fun ?attachmentId ->
                fun ?cidr ->
                  fun ?routingPolicyAssociationDetails ->
                    fun () ->
                      {
                        edgeLocation;
                        peerEdgeLocation;
                        routingPolicyDirection;
                        segmentName;
                        networkFunctionGroupName;
                        attachmentId;
                        cidr;
                        routingPolicyAssociationDetails
                      }
    let to_value x =
      structure_to_value
        [("EdgeLocation",
           (Option.map x.edgeLocation ~f:ExternalRegionCode.to_value));
        ("PeerEdgeLocation",
          (Option.map x.peerEdgeLocation ~f:ExternalRegionCode.to_value));
        ("RoutingPolicyDirection",
          (Option.map x.routingPolicyDirection
             ~f:RoutingPolicyDirection.to_value));
        ("SegmentName",
          (Option.map x.segmentName ~f:ConstrainedString.to_value));
        ("NetworkFunctionGroupName",
          (Option.map x.networkFunctionGroupName
             ~f:ConstrainedString.to_value));
        ("AttachmentId",
          (Option.map x.attachmentId ~f:AttachmentId.to_value));
        ("Cidr", (Option.map x.cidr ~f:ConstrainedString.to_value));
        ("RoutingPolicyAssociationDetails",
          (Option.map x.routingPolicyAssociationDetails
             ~f:RoutingPolicyAssociationDetailsList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let routingPolicyAssociationDetails =
        (Option.map ~f:RoutingPolicyAssociationDetailsList.of_xml)
          (Xml.child xml_arg0 "RoutingPolicyAssociationDetails") in
      let cidr =
        (Option.map ~f:ConstrainedString.of_xml) (Xml.child xml_arg0 "Cidr") in
      let attachmentId =
        (Option.map ~f:AttachmentId.of_xml)
          (Xml.child xml_arg0 "AttachmentId") in
      let networkFunctionGroupName =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "NetworkFunctionGroupName") in
      let segmentName =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "SegmentName") in
      let routingPolicyDirection =
        (Option.map ~f:RoutingPolicyDirection.of_xml)
          (Xml.child xml_arg0 "RoutingPolicyDirection") in
      let peerEdgeLocation =
        (Option.map ~f:ExternalRegionCode.of_xml)
          (Xml.child xml_arg0 "PeerEdgeLocation") in
      let edgeLocation =
        (Option.map ~f:ExternalRegionCode.of_xml)
          (Xml.child xml_arg0 "EdgeLocation") in
      make ?routingPolicyAssociationDetails ?cidr ?attachmentId
        ?networkFunctionGroupName ?segmentName ?routingPolicyDirection
        ?peerEdgeLocation ?edgeLocation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let routingPolicyAssociationDetails =
        field_map json__ "RoutingPolicyAssociationDetails"
          RoutingPolicyAssociationDetailsList.of_json in
      let cidr = field_map json__ "Cidr" ConstrainedString.of_json in
      let attachmentId = field_map json__ "AttachmentId" AttachmentId.of_json in
      let networkFunctionGroupName =
        field_map json__ "NetworkFunctionGroupName" ConstrainedString.of_json in
      let segmentName =
        field_map json__ "SegmentName" ConstrainedString.of_json in
      let routingPolicyDirection =
        field_map json__ "RoutingPolicyDirection"
          RoutingPolicyDirection.of_json in
      let peerEdgeLocation =
        field_map json__ "PeerEdgeLocation" ExternalRegionCode.of_json in
      let edgeLocation =
        field_map json__ "EdgeLocation" ExternalRegionCode.of_json in
      make ?routingPolicyAssociationDetails ?cidr ?attachmentId
        ?networkFunctionGroupName ?segmentName ?routingPolicyDirection
        ?peerEdgeLocation ?edgeLocation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a core network change event."]
module ConnectionArn =
  struct
    type nonrec t = string
    let context_ = "ConnectionArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:500) >>=
                  (fun () -> check_pattern i ~pattern:"[\\s\\S]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ConnectionArn" j
    let to_json = simple_to_json to_value
  end
module ConnectionId =
  struct
    type nonrec t = string
    let context_ = "ConnectionId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:50) >>=
                  (fun () -> check_pattern i ~pattern:"[\\s\\S]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ConnectionId" j
    let to_json = simple_to_json to_value
  end
module ConnectionState =
  struct
    type nonrec t =
      | PENDING 
      | AVAILABLE 
      | DELETING 
      | UPDATING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING -> "PENDING"
      | AVAILABLE -> "AVAILABLE"
      | DELETING -> "DELETING"
      | UPDATING -> "UPDATING"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING" -> PENDING
      | "AVAILABLE" -> AVAILABLE
      | "DELETING" -> DELETING
      | "UPDATING" -> UPDATING
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration ConnectionState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ConnectionState" j)
    let to_json = simple_to_json to_value
  end
module ConnectPeerBgpConfigurationList =
  struct
    type nonrec t = ConnectPeerBgpConfiguration.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:ConnectPeerBgpConfiguration.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:ConnectPeerBgpConfiguration.of_xml)
    let of_json j =
      list_of_json ~kind:"ConnectPeerBgpConfigurationList"
        ~of_json:ConnectPeerBgpConfiguration.of_json j
    let to_json v = composed_to_json to_value v
  end
module TunnelProtocol =
  struct
    type nonrec t =
      | GRE 
      | NO_ENCAP 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | GRE -> "GRE" | NO_ENCAP -> "NO_ENCAP" | Non_static_id s -> s
    let of_string =
      function | "GRE" -> GRE | "NO_ENCAP" -> NO_ENCAP | 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 TunnelProtocol" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TunnelProtocol" j)
    let to_json = simple_to_json to_value
  end
module ConnectPeerError =
  struct
    type nonrec t =
      {
      code: ConnectPeerErrorCode.t option
        [@ocaml.doc "The error code for the Connect peer request."];
      message: ServerSideString.t option
        [@ocaml.doc "The message associated with the error code."];
      resourceArn: ResourceArn.t option
        [@ocaml.doc "The ARN of the requested Connect peer resource."];
      requestId: ServerSideString.t option
        [@ocaml.doc "The ID of the Connect peer request."]}
    let make ?code =
      fun ?message ->
        fun ?resourceArn ->
          fun ?requestId ->
            fun () -> { code; message; resourceArn; requestId }
    let to_value x =
      structure_to_value
        [("Code", (Option.map x.code ~f:ConnectPeerErrorCode.to_value));
        ("Message", (Option.map x.message ~f:ServerSideString.to_value));
        ("ResourceArn", (Option.map x.resourceArn ~f:ResourceArn.to_value));
        ("RequestId", (Option.map x.requestId ~f:ServerSideString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requestId =
        (Option.map ~f:ServerSideString.of_xml)
          (Xml.child xml_arg0 "RequestId") in
      let resourceArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "ResourceArn") in
      let message =
        (Option.map ~f:ServerSideString.of_xml)
          (Xml.child xml_arg0 "Message") in
      let code =
        (Option.map ~f:ConnectPeerErrorCode.of_xml)
          (Xml.child xml_arg0 "Code") in
      make ?requestId ?resourceArn ?message ?code ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requestId = field_map json__ "RequestId" ServerSideString.of_json in
      let resourceArn = field_map json__ "ResourceArn" ResourceArn.of_json in
      let message = field_map json__ "Message" ServerSideString.of_json in
      let code = field_map json__ "Code" ConnectPeerErrorCode.of_json in
      make ?requestId ?resourceArn ?message ?code ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes an error associated with a Connect peer request"]
module ConnectPeerAssociationState =
  struct
    type nonrec t =
      | PENDING 
      | AVAILABLE 
      | DELETING 
      | DELETED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING -> "PENDING"
      | AVAILABLE -> "AVAILABLE"
      | DELETING -> "DELETING"
      | DELETED -> "DELETED"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING" -> PENDING
      | "AVAILABLE" -> AVAILABLE
      | "DELETING" -> DELETING
      | "DELETED" -> DELETED
      | 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 ConnectPeerAssociationState"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ConnectPeerAssociationState" j)
    let to_json = simple_to_json to_value
  end
module GlobalNetworkArn =
  struct
    type nonrec t = string
    let context_ = "GlobalNetworkArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:500) >>=
                  (fun () -> check_pattern i ~pattern:"[\\s\\S]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"GlobalNetworkArn" j
    let to_json = simple_to_json to_value
  end
module GlobalNetworkState =
  struct
    type nonrec t =
      | PENDING 
      | AVAILABLE 
      | DELETING 
      | UPDATING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING -> "PENDING"
      | AVAILABLE -> "AVAILABLE"
      | DELETING -> "DELETING"
      | UPDATING -> "UPDATING"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING" -> PENDING
      | "AVAILABLE" -> AVAILABLE
      | "DELETING" -> DELETING
      | "UPDATING" -> UPDATING
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration GlobalNetworkState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"GlobalNetworkState" j)
    let to_json = simple_to_json to_value
  end
module RetryAfterSeconds =
  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 RetryAfterSeconds" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module ExceptionContextMap =
  struct
    type nonrec t = (ExceptionContextKey.t * ExceptionContextValue.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((ExceptionContextKey.of_string chopped),
                              (ExceptionContextValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (ExceptionContextKey.to_value x) |>
                    (fun x ->
                       (ExceptionContextValue.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:ExceptionContextKey.of_string
        ~of_json:ExceptionContextValue.of_json j
    let to_json v = composed_to_json to_value v
  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 Attachment =
  struct
    type nonrec t =
      {
      coreNetworkId: CoreNetworkId.t option
        [@ocaml.doc "The ID of a core network."];
      coreNetworkArn: CoreNetworkArn.t option
        [@ocaml.doc "The ARN of a core network."];
      attachmentId: AttachmentId.t option
        [@ocaml.doc "The ID of the attachment."];
      ownerAccountId: AWSAccountId.t option
        [@ocaml.doc "The ID of the attachment account owner."];
      attachmentType: AttachmentType.t option
        [@ocaml.doc "The type of attachment."];
      state: AttachmentState.t option
        [@ocaml.doc "The state of the attachment."];
      edgeLocation: ExternalRegionCode.t option
        [@ocaml.doc
          "The Region where the edge is located. This is returned for all attachment types except a Direct Connect gateway attachment, which instead returns EdgeLocations."];
      edgeLocations: ExternalRegionCodeList.t option
        [@ocaml.doc
          "The edge locations that the Direct Connect gateway is associated with. This is returned only for Direct Connect gateway attachments. All other attachment types retrun EdgeLocation."];
      resourceArn: ResourceArn.t option
        [@ocaml.doc "The attachment resource ARN."];
      attachmentPolicyRuleNumber: Integer.t option
        [@ocaml.doc "The policy rule number associated with the attachment."];
      segmentName: ConstrainedString.t option
        [@ocaml.doc "The name of the segment attachment."];
      networkFunctionGroupName: NetworkFunctionGroupName.t option
        [@ocaml.doc "The name of the network function group."];
      tags: TagList.t option
        [@ocaml.doc "The tags associated with the attachment."];
      proposedSegmentChange: ProposedSegmentChange.t option
        [@ocaml.doc "The attachment to move from one segment to another."];
      proposedNetworkFunctionGroupChange:
        ProposedNetworkFunctionGroupChange.t option
        [@ocaml.doc
          "Describes a proposed change to a network function group associated with the attachment."];
      createdAt: DateTime.t option
        [@ocaml.doc "The timestamp when the attachment was created."];
      updatedAt: DateTime.t option
        [@ocaml.doc "The timestamp when the attachment was last updated."];
      lastModificationErrors: AttachmentErrorList.t option
        [@ocaml.doc
          "Describes the error associated with the attachment request."]}
    let make ?coreNetworkId =
      fun ?coreNetworkArn ->
        fun ?attachmentId ->
          fun ?ownerAccountId ->
            fun ?attachmentType ->
              fun ?state ->
                fun ?edgeLocation ->
                  fun ?edgeLocations ->
                    fun ?resourceArn ->
                      fun ?attachmentPolicyRuleNumber ->
                        fun ?segmentName ->
                          fun ?networkFunctionGroupName ->
                            fun ?tags ->
                              fun ?proposedSegmentChange ->
                                fun ?proposedNetworkFunctionGroupChange ->
                                  fun ?createdAt ->
                                    fun ?updatedAt ->
                                      fun ?lastModificationErrors ->
                                        fun () ->
                                          {
                                            coreNetworkId;
                                            coreNetworkArn;
                                            attachmentId;
                                            ownerAccountId;
                                            attachmentType;
                                            state;
                                            edgeLocation;
                                            edgeLocations;
                                            resourceArn;
                                            attachmentPolicyRuleNumber;
                                            segmentName;
                                            networkFunctionGroupName;
                                            tags;
                                            proposedSegmentChange;
                                            proposedNetworkFunctionGroupChange;
                                            createdAt;
                                            updatedAt;
                                            lastModificationErrors
                                          }
    let to_value x =
      structure_to_value
        [("CoreNetworkId",
           (Option.map x.coreNetworkId ~f:CoreNetworkId.to_value));
        ("CoreNetworkArn",
          (Option.map x.coreNetworkArn ~f:CoreNetworkArn.to_value));
        ("AttachmentId",
          (Option.map x.attachmentId ~f:AttachmentId.to_value));
        ("OwnerAccountId",
          (Option.map x.ownerAccountId ~f:AWSAccountId.to_value));
        ("AttachmentType",
          (Option.map x.attachmentType ~f:AttachmentType.to_value));
        ("State", (Option.map x.state ~f:AttachmentState.to_value));
        ("EdgeLocation",
          (Option.map x.edgeLocation ~f:ExternalRegionCode.to_value));
        ("EdgeLocations",
          (Option.map x.edgeLocations ~f:ExternalRegionCodeList.to_value));
        ("ResourceArn", (Option.map x.resourceArn ~f:ResourceArn.to_value));
        ("AttachmentPolicyRuleNumber",
          (Option.map x.attachmentPolicyRuleNumber ~f:Integer.to_value));
        ("SegmentName",
          (Option.map x.segmentName ~f:ConstrainedString.to_value));
        ("NetworkFunctionGroupName",
          (Option.map x.networkFunctionGroupName
             ~f:NetworkFunctionGroupName.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("ProposedSegmentChange",
          (Option.map x.proposedSegmentChange
             ~f:ProposedSegmentChange.to_value));
        ("ProposedNetworkFunctionGroupChange",
          (Option.map x.proposedNetworkFunctionGroupChange
             ~f:ProposedNetworkFunctionGroupChange.to_value));
        ("CreatedAt", (Option.map x.createdAt ~f:DateTime.to_value));
        ("UpdatedAt", (Option.map x.updatedAt ~f:DateTime.to_value));
        ("LastModificationErrors",
          (Option.map x.lastModificationErrors
             ~f:AttachmentErrorList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastModificationErrors =
        (Option.map ~f:AttachmentErrorList.of_xml)
          (Xml.child xml_arg0 "LastModificationErrors") in
      let updatedAt =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "UpdatedAt") in
      let createdAt =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "CreatedAt") in
      let proposedNetworkFunctionGroupChange =
        (Option.map ~f:ProposedNetworkFunctionGroupChange.of_xml)
          (Xml.child xml_arg0 "ProposedNetworkFunctionGroupChange") in
      let proposedSegmentChange =
        (Option.map ~f:ProposedSegmentChange.of_xml)
          (Xml.child xml_arg0 "ProposedSegmentChange") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let networkFunctionGroupName =
        (Option.map ~f:NetworkFunctionGroupName.of_xml)
          (Xml.child xml_arg0 "NetworkFunctionGroupName") in
      let segmentName =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "SegmentName") in
      let attachmentPolicyRuleNumber =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "AttachmentPolicyRuleNumber") in
      let resourceArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "ResourceArn") in
      let edgeLocations =
        (Option.map ~f:ExternalRegionCodeList.of_xml)
          (Xml.child xml_arg0 "EdgeLocations") in
      let edgeLocation =
        (Option.map ~f:ExternalRegionCode.of_xml)
          (Xml.child xml_arg0 "EdgeLocation") in
      let state =
        (Option.map ~f:AttachmentState.of_xml) (Xml.child xml_arg0 "State") in
      let attachmentType =
        (Option.map ~f:AttachmentType.of_xml)
          (Xml.child xml_arg0 "AttachmentType") in
      let ownerAccountId =
        (Option.map ~f:AWSAccountId.of_xml)
          (Xml.child xml_arg0 "OwnerAccountId") in
      let attachmentId =
        (Option.map ~f:AttachmentId.of_xml)
          (Xml.child xml_arg0 "AttachmentId") in
      let coreNetworkArn =
        (Option.map ~f:CoreNetworkArn.of_xml)
          (Xml.child xml_arg0 "CoreNetworkArn") in
      let coreNetworkId =
        (Option.map ~f:CoreNetworkId.of_xml)
          (Xml.child xml_arg0 "CoreNetworkId") in
      make ?lastModificationErrors ?updatedAt ?createdAt
        ?proposedNetworkFunctionGroupChange ?proposedSegmentChange ?tags
        ?networkFunctionGroupName ?segmentName ?attachmentPolicyRuleNumber
        ?resourceArn ?edgeLocations ?edgeLocation ?state ?attachmentType
        ?ownerAccountId ?attachmentId ?coreNetworkArn ?coreNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastModificationErrors =
        field_map json__ "LastModificationErrors" AttachmentErrorList.of_json in
      let updatedAt = field_map json__ "UpdatedAt" DateTime.of_json in
      let createdAt = field_map json__ "CreatedAt" DateTime.of_json in
      let proposedNetworkFunctionGroupChange =
        field_map json__ "ProposedNetworkFunctionGroupChange"
          ProposedNetworkFunctionGroupChange.of_json in
      let proposedSegmentChange =
        field_map json__ "ProposedSegmentChange"
          ProposedSegmentChange.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let networkFunctionGroupName =
        field_map json__ "NetworkFunctionGroupName"
          NetworkFunctionGroupName.of_json in
      let segmentName =
        field_map json__ "SegmentName" ConstrainedString.of_json in
      let attachmentPolicyRuleNumber =
        field_map json__ "AttachmentPolicyRuleNumber" Integer.of_json in
      let resourceArn = field_map json__ "ResourceArn" ResourceArn.of_json in
      let edgeLocations =
        field_map json__ "EdgeLocations" ExternalRegionCodeList.of_json in
      let edgeLocation =
        field_map json__ "EdgeLocation" ExternalRegionCode.of_json in
      let state = field_map json__ "State" AttachmentState.of_json in
      let attachmentType =
        field_map json__ "AttachmentType" AttachmentType.of_json in
      let ownerAccountId =
        field_map json__ "OwnerAccountId" AWSAccountId.of_json in
      let attachmentId = field_map json__ "AttachmentId" AttachmentId.of_json in
      let coreNetworkArn =
        field_map json__ "CoreNetworkArn" CoreNetworkArn.of_json in
      let coreNetworkId =
        field_map json__ "CoreNetworkId" CoreNetworkId.of_json in
      make ?lastModificationErrors ?updatedAt ?createdAt
        ?proposedNetworkFunctionGroupChange ?proposedSegmentChange ?tags
        ?networkFunctionGroupName ?segmentName ?attachmentPolicyRuleNumber
        ?resourceArn ?edgeLocations ?edgeLocation ?state ?attachmentType
        ?ownerAccountId ?attachmentId ?coreNetworkArn ?coreNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a core network attachment."]
module SubnetArnList =
  struct
    type nonrec t = SubnetArn.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:SubnetArn.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:SubnetArn.of_xml)
    let of_json j =
      list_of_json ~kind:"SubnetArnList" ~of_json:SubnetArn.of_json j
    let to_json v = composed_to_json to_value v
  end
module VpcOptions =
  struct
    type nonrec t =
      {
      ipv6Support: Boolean.t option
        [@ocaml.doc "Indicates whether IPv6 is supported."];
      applianceModeSupport: Boolean.t option
        [@ocaml.doc
          "Indicates whether appliance mode is supported. If enabled, traffic flow between a source and destination use the same Availability Zone for the VPC attachment for the lifetime of that flow. The default value is false."];
      dnsSupport: Boolean.t option
        [@ocaml.doc "Indicates whether DNS is supported."];
      securityGroupReferencingSupport: Boolean.t option
        [@ocaml.doc
          "Indicates whether security group referencing is enabled for this VPC attachment. The default is true. However, at the core network policy-level the default is set to false."]}
    let make ?ipv6Support =
      fun ?applianceModeSupport ->
        fun ?dnsSupport ->
          fun ?securityGroupReferencingSupport ->
            fun () ->
              {
                ipv6Support;
                applianceModeSupport;
                dnsSupport;
                securityGroupReferencingSupport
              }
    let to_value x =
      structure_to_value
        [("Ipv6Support", (Option.map x.ipv6Support ~f:Boolean.to_value));
        ("ApplianceModeSupport",
          (Option.map x.applianceModeSupport ~f:Boolean.to_value));
        ("DnsSupport", (Option.map x.dnsSupport ~f:Boolean.to_value));
        ("SecurityGroupReferencingSupport",
          (Option.map x.securityGroupReferencingSupport ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let securityGroupReferencingSupport =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "SecurityGroupReferencingSupport") in
      let dnsSupport =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "DnsSupport") in
      let applianceModeSupport =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "ApplianceModeSupport") in
      let ipv6Support =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "Ipv6Support") in
      make ?securityGroupReferencingSupport ?dnsSupport ?applianceModeSupport
        ?ipv6Support ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let securityGroupReferencingSupport =
        field_map json__ "SecurityGroupReferencingSupport" Boolean.of_json in
      let dnsSupport = field_map json__ "DnsSupport" Boolean.of_json in
      let applianceModeSupport =
        field_map json__ "ApplianceModeSupport" Boolean.of_json in
      let ipv6Support = field_map json__ "Ipv6Support" Boolean.of_json in
      make ?securityGroupReferencingSupport ?dnsSupport ?applianceModeSupport
        ?ipv6Support ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the VPC options."]
module DirectConnectGatewayArn =
  struct
    type nonrec t = string
    let context_ = "DirectConnectGatewayArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:500) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^arn:[^:]{1,63}:directconnect::[^:]{0,63}:dx-gateway\\/[0-9a-f]{8}-([0-9a-f]{4}-){3}[0-9a-f]{12}$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DirectConnectGatewayArn" j
    let to_json = simple_to_json to_value
  end
module CoreNetworkEdgeList =
  struct
    type nonrec t = CoreNetworkEdge.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:CoreNetworkEdge.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:CoreNetworkEdge.of_xml)
    let of_json j =
      list_of_json ~kind:"CoreNetworkEdgeList"
        ~of_json:CoreNetworkEdge.of_json j
    let to_json v = composed_to_json to_value v
  end
module CoreNetworkNetworkFunctionGroupList =
  struct
    type nonrec t = CoreNetworkNetworkFunctionGroup.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:CoreNetworkNetworkFunctionGroup.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:CoreNetworkNetworkFunctionGroup.of_xml)
    let of_json j =
      list_of_json ~kind:"CoreNetworkNetworkFunctionGroupList"
        ~of_json:CoreNetworkNetworkFunctionGroup.of_json j
    let to_json v = composed_to_json to_value v
  end
module CoreNetworkSegmentList =
  struct
    type nonrec t = CoreNetworkSegment.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:CoreNetworkSegment.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:CoreNetworkSegment.of_xml)
    let of_json j =
      list_of_json ~kind:"CoreNetworkSegmentList"
        ~of_json:CoreNetworkSegment.of_json j
    let to_json v = composed_to_json to_value v
  end
module RouteAnalysisEndpointOptions =
  struct
    type nonrec t =
      {
      transitGatewayAttachmentArn: TransitGatewayAttachmentArn.t option
        [@ocaml.doc "The ARN of the transit gateway attachment."];
      transitGatewayArn: TransitGatewayArn.t option
        [@ocaml.doc "The ARN of the transit gateway."];
      ipAddress: IPAddress.t option [@ocaml.doc "The IP address."]}
    let make ?transitGatewayAttachmentArn =
      fun ?transitGatewayArn ->
        fun ?ipAddress ->
          fun () ->
            { transitGatewayAttachmentArn; transitGatewayArn; ipAddress }
    let to_value x =
      structure_to_value
        [("TransitGatewayAttachmentArn",
           (Option.map x.transitGatewayAttachmentArn
              ~f:TransitGatewayAttachmentArn.to_value));
        ("TransitGatewayArn",
          (Option.map x.transitGatewayArn ~f:TransitGatewayArn.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
      let transitGatewayArn =
        (Option.map ~f:TransitGatewayArn.of_xml)
          (Xml.child xml_arg0 "TransitGatewayArn") in
      let transitGatewayAttachmentArn =
        (Option.map ~f:TransitGatewayAttachmentArn.of_xml)
          (Xml.child xml_arg0 "TransitGatewayAttachmentArn") in
      make ?ipAddress ?transitGatewayArn ?transitGatewayAttachmentArn ()
    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
      let transitGatewayArn =
        field_map json__ "TransitGatewayArn" TransitGatewayArn.of_json in
      let transitGatewayAttachmentArn =
        field_map json__ "TransitGatewayAttachmentArn"
          TransitGatewayAttachmentArn.of_json in
      make ?ipAddress ?transitGatewayArn ?transitGatewayAttachmentArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a source or a destination."]
module RouteAnalysisPath =
  struct
    type nonrec t =
      {
      completionStatus: RouteAnalysisCompletion.t option
        [@ocaml.doc "The status of the analysis at completion."];
      path: PathComponentList.t option
        [@ocaml.doc "The route analysis path."]}
    let make ?completionStatus =
      fun ?path -> fun () -> { completionStatus; path }
    let to_value x =
      structure_to_value
        [("CompletionStatus",
           (Option.map x.completionStatus ~f:RouteAnalysisCompletion.to_value));
        ("Path", (Option.map x.path ~f:PathComponentList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let path =
        (Option.map ~f:PathComponentList.of_xml) (Xml.child xml_arg0 "Path") in
      let completionStatus =
        (Option.map ~f:RouteAnalysisCompletion.of_xml)
          (Xml.child xml_arg0 "CompletionStatus") in
      make ?path ?completionStatus ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let path = field_map json__ "Path" PathComponentList.of_json in
      let completionStatus =
        field_map json__ "CompletionStatus" RouteAnalysisCompletion.of_json in
      make ?path ?completionStatus ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a route analysis path."]
module RouteAnalysisStatus =
  struct
    type nonrec t =
      | RUNNING 
      | COMPLETED 
      | FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | RUNNING -> "RUNNING"
      | COMPLETED -> "COMPLETED"
      | FAILED -> "FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "RUNNING" -> RUNNING
      | "COMPLETED" -> COMPLETED
      | "FAILED" -> FAILED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration RouteAnalysisStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RouteAnalysisStatus" j)
    let to_json = simple_to_json to_value
  end
module AccountStatusList =
  struct
    type nonrec t = AccountStatus.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:AccountStatus.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:AccountStatus.of_xml)
    let of_json j =
      list_of_json ~kind:"AccountStatusList" ~of_json:AccountStatus.of_json j
    let to_json v = composed_to_json to_value v
  end
module OrganizationAwsServiceAccessStatus =
  struct
    type nonrec t = string
    let context_ = "OrganizationAwsServiceAccessStatus"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:50) >>=
             (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:"OrganizationAwsServiceAccessStatus" j
    let to_json = simple_to_json to_value
  end
module OrganizationId =
  struct
    type nonrec t = string
    let context_ = "OrganizationId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:50) >>=
                  (fun () -> check_pattern i ~pattern:"^o-([0-9a-f]{8,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:"OrganizationId" j
    let to_json = simple_to_json to_value
  end
module CoreNetworkPolicyErrorList =
  struct
    type nonrec t = CoreNetworkPolicyError.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:CoreNetworkPolicyError.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:CoreNetworkPolicyError.of_xml)
    let of_json j =
      list_of_json ~kind:"CoreNetworkPolicyErrorList"
        ~of_json:CoreNetworkPolicyError.of_json j
    let to_json v = composed_to_json to_value v
  end
module Peering =
  struct
    type nonrec t =
      {
      coreNetworkId: CoreNetworkId.t option
        [@ocaml.doc "The ID of the core network for the peering request."];
      coreNetworkArn: CoreNetworkArn.t option
        [@ocaml.doc "The ARN of a core network."];
      peeringId: PeeringId.t option
        [@ocaml.doc "The ID of the peering attachment."];
      ownerAccountId: AWSAccountId.t option
        [@ocaml.doc "The ID of the account owner."];
      peeringType: PeeringType.t option
        [@ocaml.doc "The type of peering. This will be TRANSIT_GATEWAY."];
      state: PeeringState.t option
        [@ocaml.doc "The current state of the peering connection."];
      edgeLocation: ExternalRegionCode.t option
        [@ocaml.doc "The edge location for the peer."];
      resourceArn: ResourceArn.t option
        [@ocaml.doc "The resource ARN of the peer."];
      tags: TagList.t option
        [@ocaml.doc
          "The list of key-value tags associated with the peering."];
      createdAt: DateTime.t option
        [@ocaml.doc "The timestamp when the attachment peer was created."];
      lastModificationErrors: PeeringErrorList.t option
        [@ocaml.doc
          "Describes the error associated with the Connect peer request."]}
    let make ?coreNetworkId =
      fun ?coreNetworkArn ->
        fun ?peeringId ->
          fun ?ownerAccountId ->
            fun ?peeringType ->
              fun ?state ->
                fun ?edgeLocation ->
                  fun ?resourceArn ->
                    fun ?tags ->
                      fun ?createdAt ->
                        fun ?lastModificationErrors ->
                          fun () ->
                            {
                              coreNetworkId;
                              coreNetworkArn;
                              peeringId;
                              ownerAccountId;
                              peeringType;
                              state;
                              edgeLocation;
                              resourceArn;
                              tags;
                              createdAt;
                              lastModificationErrors
                            }
    let to_value x =
      structure_to_value
        [("CoreNetworkId",
           (Option.map x.coreNetworkId ~f:CoreNetworkId.to_value));
        ("CoreNetworkArn",
          (Option.map x.coreNetworkArn ~f:CoreNetworkArn.to_value));
        ("PeeringId", (Option.map x.peeringId ~f:PeeringId.to_value));
        ("OwnerAccountId",
          (Option.map x.ownerAccountId ~f:AWSAccountId.to_value));
        ("PeeringType", (Option.map x.peeringType ~f:PeeringType.to_value));
        ("State", (Option.map x.state ~f:PeeringState.to_value));
        ("EdgeLocation",
          (Option.map x.edgeLocation ~f:ExternalRegionCode.to_value));
        ("ResourceArn", (Option.map x.resourceArn ~f:ResourceArn.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("CreatedAt", (Option.map x.createdAt ~f:DateTime.to_value));
        ("LastModificationErrors",
          (Option.map x.lastModificationErrors ~f:PeeringErrorList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastModificationErrors =
        (Option.map ~f:PeeringErrorList.of_xml)
          (Xml.child xml_arg0 "LastModificationErrors") in
      let createdAt =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "CreatedAt") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let resourceArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "ResourceArn") in
      let edgeLocation =
        (Option.map ~f:ExternalRegionCode.of_xml)
          (Xml.child xml_arg0 "EdgeLocation") in
      let state =
        (Option.map ~f:PeeringState.of_xml) (Xml.child xml_arg0 "State") in
      let peeringType =
        (Option.map ~f:PeeringType.of_xml) (Xml.child xml_arg0 "PeeringType") in
      let ownerAccountId =
        (Option.map ~f:AWSAccountId.of_xml)
          (Xml.child xml_arg0 "OwnerAccountId") in
      let peeringId =
        (Option.map ~f:PeeringId.of_xml) (Xml.child xml_arg0 "PeeringId") in
      let coreNetworkArn =
        (Option.map ~f:CoreNetworkArn.of_xml)
          (Xml.child xml_arg0 "CoreNetworkArn") in
      let coreNetworkId =
        (Option.map ~f:CoreNetworkId.of_xml)
          (Xml.child xml_arg0 "CoreNetworkId") in
      make ?lastModificationErrors ?createdAt ?tags ?resourceArn
        ?edgeLocation ?state ?peeringType ?ownerAccountId ?peeringId
        ?coreNetworkArn ?coreNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastModificationErrors =
        field_map json__ "LastModificationErrors" PeeringErrorList.of_json in
      let createdAt = field_map json__ "CreatedAt" DateTime.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let resourceArn = field_map json__ "ResourceArn" ResourceArn.of_json in
      let edgeLocation =
        field_map json__ "EdgeLocation" ExternalRegionCode.of_json in
      let state = field_map json__ "State" PeeringState.of_json in
      let peeringType = field_map json__ "PeeringType" PeeringType.of_json in
      let ownerAccountId =
        field_map json__ "OwnerAccountId" AWSAccountId.of_json in
      let peeringId = field_map json__ "PeeringId" PeeringId.of_json in
      let coreNetworkArn =
        field_map json__ "CoreNetworkArn" CoreNetworkArn.of_json in
      let coreNetworkId =
        field_map json__ "CoreNetworkId" CoreNetworkId.of_json in
      make ?lastModificationErrors ?createdAt ?tags ?resourceArn
        ?edgeLocation ?state ?peeringType ?ownerAccountId ?peeringId
        ?coreNetworkArn ?coreNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a peering connection."]
module CoreNetworkSummary =
  struct
    type nonrec t =
      {
      coreNetworkId: CoreNetworkId.t option
        [@ocaml.doc "The ID of a core network."];
      coreNetworkArn: CoreNetworkArn.t option
        [@ocaml.doc "a core network ARN."];
      globalNetworkId: GlobalNetworkId.t option
        [@ocaml.doc "The global network ID."];
      ownerAccountId: AWSAccountId.t option
        [@ocaml.doc "The ID of the account owner."];
      state: CoreNetworkState.t option
        [@ocaml.doc "The state of a core network."];
      description: ConstrainedString.t option
        [@ocaml.doc "The description of a core network."];
      tags: TagList.t option
        [@ocaml.doc
          "The key-value tags associated with a core network summary."]}
    let make ?coreNetworkId =
      fun ?coreNetworkArn ->
        fun ?globalNetworkId ->
          fun ?ownerAccountId ->
            fun ?state ->
              fun ?description ->
                fun ?tags ->
                  fun () ->
                    {
                      coreNetworkId;
                      coreNetworkArn;
                      globalNetworkId;
                      ownerAccountId;
                      state;
                      description;
                      tags
                    }
    let to_value x =
      structure_to_value
        [("CoreNetworkId",
           (Option.map x.coreNetworkId ~f:CoreNetworkId.to_value));
        ("CoreNetworkArn",
          (Option.map x.coreNetworkArn ~f:CoreNetworkArn.to_value));
        ("GlobalNetworkId",
          (Option.map x.globalNetworkId ~f:GlobalNetworkId.to_value));
        ("OwnerAccountId",
          (Option.map x.ownerAccountId ~f:AWSAccountId.to_value));
        ("State", (Option.map x.state ~f:CoreNetworkState.to_value));
        ("Description",
          (Option.map x.description ~f:ConstrainedString.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let description =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "Description") in
      let state =
        (Option.map ~f:CoreNetworkState.of_xml) (Xml.child xml_arg0 "State") in
      let ownerAccountId =
        (Option.map ~f:AWSAccountId.of_xml)
          (Xml.child xml_arg0 "OwnerAccountId") in
      let globalNetworkId =
        (Option.map ~f:GlobalNetworkId.of_xml)
          (Xml.child xml_arg0 "GlobalNetworkId") in
      let coreNetworkArn =
        (Option.map ~f:CoreNetworkArn.of_xml)
          (Xml.child xml_arg0 "CoreNetworkArn") in
      let coreNetworkId =
        (Option.map ~f:CoreNetworkId.of_xml)
          (Xml.child xml_arg0 "CoreNetworkId") in
      make ?tags ?description ?state ?ownerAccountId ?globalNetworkId
        ?coreNetworkArn ?coreNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagList.of_json in
      let description =
        field_map json__ "Description" ConstrainedString.of_json in
      let state = field_map json__ "State" CoreNetworkState.of_json in
      let ownerAccountId =
        field_map json__ "OwnerAccountId" AWSAccountId.of_json in
      let globalNetworkId =
        field_map json__ "GlobalNetworkId" GlobalNetworkId.of_json in
      let coreNetworkArn =
        field_map json__ "CoreNetworkArn" CoreNetworkArn.of_json in
      let coreNetworkId =
        field_map json__ "CoreNetworkId" CoreNetworkId.of_json in
      make ?tags ?description ?state ?ownerAccountId ?globalNetworkId
        ?coreNetworkArn ?coreNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns summary information about a core network."]
module CoreNetworkRoutingInformation =
  struct
    type nonrec t =
      {
      prefix: ConstrainedString.t option
        [@ocaml.doc "The IP prefix for the route."];
      nextHop: RoutingInformationNextHop.t option
        [@ocaml.doc "The next hop information for the route."];
      localPreference: ConstrainedString.t option
        [@ocaml.doc "The BGP local preference value for the route."];
      med: ConstrainedString.t option
        [@ocaml.doc
          "The BGP Multi-Exit Discriminator (MED) value for the route."];
      asPath: ConstrainedStringList.t option
        [@ocaml.doc "The BGP AS path for the route."];
      communities: ConstrainedStringList.t option
        [@ocaml.doc "The BGP community values for the route."]}
    let make ?prefix =
      fun ?nextHop ->
        fun ?localPreference ->
          fun ?med ->
            fun ?asPath ->
              fun ?communities ->
                fun () ->
                  {
                    prefix;
                    nextHop;
                    localPreference;
                    med;
                    asPath;
                    communities
                  }
    let to_value x =
      structure_to_value
        [("Prefix", (Option.map x.prefix ~f:ConstrainedString.to_value));
        ("NextHop",
          (Option.map x.nextHop ~f:RoutingInformationNextHop.to_value));
        ("LocalPreference",
          (Option.map x.localPreference ~f:ConstrainedString.to_value));
        ("Med", (Option.map x.med ~f:ConstrainedString.to_value));
        ("AsPath", (Option.map x.asPath ~f:ConstrainedStringList.to_value));
        ("Communities",
          (Option.map x.communities ~f:ConstrainedStringList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let communities =
        (Option.map ~f:ConstrainedStringList.of_xml)
          (Xml.child xml_arg0 "Communities") in
      let asPath =
        (Option.map ~f:ConstrainedStringList.of_xml)
          (Xml.child xml_arg0 "AsPath") in
      let med =
        (Option.map ~f:ConstrainedString.of_xml) (Xml.child xml_arg0 "Med") in
      let localPreference =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "LocalPreference") in
      let nextHop =
        (Option.map ~f:RoutingInformationNextHop.of_xml)
          (Xml.child xml_arg0 "NextHop") in
      let prefix =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "Prefix") in
      make ?communities ?asPath ?med ?localPreference ?nextHop ?prefix ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let communities =
        field_map json__ "Communities" ConstrainedStringList.of_json in
      let asPath = field_map json__ "AsPath" ConstrainedStringList.of_json in
      let med = field_map json__ "Med" ConstrainedString.of_json in
      let localPreference =
        field_map json__ "LocalPreference" ConstrainedString.of_json in
      let nextHop =
        field_map json__ "NextHop" RoutingInformationNextHop.of_json in
      let prefix = field_map json__ "Prefix" ConstrainedString.of_json in
      make ?communities ?asPath ?med ?localPreference ?nextHop ?prefix ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Routing information for a core network, including route details and BGP attributes."]
module FilterName =
  struct
    type nonrec t = string
    let context_ = "FilterName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () -> check_pattern i ~pattern:"^[0-9a-zA-Z\\.-]*$"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"FilterName" j
    let to_json = simple_to_json to_value
  end
module FilterValues =
  struct
    type nonrec t = FilterValue.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:FilterValue.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:FilterValue.of_xml)
    let of_json j =
      list_of_json ~kind:"FilterValues" ~of_json:FilterValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module PrefixListAssociation =
  struct
    type nonrec t =
      {
      coreNetworkId: CoreNetworkId.t option
        [@ocaml.doc "The core network id in the association."];
      prefixListArn: PrefixListArn.t option
        [@ocaml.doc "The ARN of the prefix list in the association."];
      prefixListAlias: ConstrainedString.t option
        [@ocaml.doc "The alias of the prefix list in the association."]}
    let make ?coreNetworkId =
      fun ?prefixListArn ->
        fun ?prefixListAlias ->
          fun () -> { coreNetworkId; prefixListArn; prefixListAlias }
    let to_value x =
      structure_to_value
        [("CoreNetworkId",
           (Option.map x.coreNetworkId ~f:CoreNetworkId.to_value));
        ("PrefixListArn",
          (Option.map x.prefixListArn ~f:PrefixListArn.to_value));
        ("PrefixListAlias",
          (Option.map x.prefixListAlias ~f:ConstrainedString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let prefixListAlias =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "PrefixListAlias") in
      let prefixListArn =
        (Option.map ~f:PrefixListArn.of_xml)
          (Xml.child xml_arg0 "PrefixListArn") in
      let coreNetworkId =
        (Option.map ~f:CoreNetworkId.of_xml)
          (Xml.child xml_arg0 "CoreNetworkId") in
      make ?prefixListAlias ?prefixListArn ?coreNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let prefixListAlias =
        field_map json__ "PrefixListAlias" ConstrainedString.of_json in
      let prefixListArn =
        field_map json__ "PrefixListArn" PrefixListArn.of_json in
      let coreNetworkId =
        field_map json__ "CoreNetworkId" CoreNetworkId.of_json in
      make ?prefixListAlias ?prefixListArn ?coreNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about a prefix list association with a core network."]
module CoreNetworkPolicyVersion =
  struct
    type nonrec t =
      {
      coreNetworkId: CoreNetworkId.t option
        [@ocaml.doc "The ID of a core network."];
      policyVersionId: Integer.t option
        [@ocaml.doc "The ID of the policy version."];
      alias: CoreNetworkPolicyAlias.t option
        [@ocaml.doc
          "Whether a core network policy is the current policy or the most recently submitted policy."];
      description: ConstrainedString.t option
        [@ocaml.doc "The description of a core network policy version."];
      createdAt: DateTime.t option
        [@ocaml.doc
          "The timestamp when a core network policy version was created."];
      changeSetState: ChangeSetState.t option
        [@ocaml.doc "The status of the policy version change set."]}
    let make ?coreNetworkId =
      fun ?policyVersionId ->
        fun ?alias ->
          fun ?description ->
            fun ?createdAt ->
              fun ?changeSetState ->
                fun () ->
                  {
                    coreNetworkId;
                    policyVersionId;
                    alias;
                    description;
                    createdAt;
                    changeSetState
                  }
    let to_value x =
      structure_to_value
        [("CoreNetworkId",
           (Option.map x.coreNetworkId ~f:CoreNetworkId.to_value));
        ("PolicyVersionId",
          (Option.map x.policyVersionId ~f:Integer.to_value));
        ("Alias", (Option.map x.alias ~f:CoreNetworkPolicyAlias.to_value));
        ("Description",
          (Option.map x.description ~f:ConstrainedString.to_value));
        ("CreatedAt", (Option.map x.createdAt ~f:DateTime.to_value));
        ("ChangeSetState",
          (Option.map x.changeSetState ~f:ChangeSetState.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let changeSetState =
        (Option.map ~f:ChangeSetState.of_xml)
          (Xml.child xml_arg0 "ChangeSetState") in
      let createdAt =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "CreatedAt") in
      let description =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "Description") in
      let alias =
        (Option.map ~f:CoreNetworkPolicyAlias.of_xml)
          (Xml.child xml_arg0 "Alias") in
      let policyVersionId =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "PolicyVersionId") in
      let coreNetworkId =
        (Option.map ~f:CoreNetworkId.of_xml)
          (Xml.child xml_arg0 "CoreNetworkId") in
      make ?changeSetState ?createdAt ?description ?alias ?policyVersionId
        ?coreNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let changeSetState =
        field_map json__ "ChangeSetState" ChangeSetState.of_json in
      let createdAt = field_map json__ "CreatedAt" DateTime.of_json in
      let description =
        field_map json__ "Description" ConstrainedString.of_json in
      let alias = field_map json__ "Alias" CoreNetworkPolicyAlias.of_json in
      let policyVersionId =
        field_map json__ "PolicyVersionId" Integer.of_json in
      let coreNetworkId =
        field_map json__ "CoreNetworkId" CoreNetworkId.of_json in
      make ?changeSetState ?createdAt ?description ?alias ?policyVersionId
        ?coreNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a core network policy version."]
module ConnectPeerSummary =
  struct
    type nonrec t =
      {
      coreNetworkId: CoreNetworkId.t option
        [@ocaml.doc "The ID of a core network."];
      connectAttachmentId: AttachmentId.t option
        [@ocaml.doc "The ID of a Connect peer attachment."];
      connectPeerId: ConnectPeerId.t option
        [@ocaml.doc "The ID of a Connect peer."];
      edgeLocation: ExternalRegionCode.t option
        [@ocaml.doc "The Region where the edge is located."];
      connectPeerState: ConnectPeerState.t option
        [@ocaml.doc "The state of a Connect peer."];
      createdAt: DateTime.t option
        [@ocaml.doc "The timestamp when a Connect peer was created."];
      tags: TagList.t option
        [@ocaml.doc
          "The list of key-value tags associated with the Connect peer summary."];
      subnetArn: SubnetArn.t option
        [@ocaml.doc "The subnet ARN for the Connect peer summary."]}
    let make ?coreNetworkId =
      fun ?connectAttachmentId ->
        fun ?connectPeerId ->
          fun ?edgeLocation ->
            fun ?connectPeerState ->
              fun ?createdAt ->
                fun ?tags ->
                  fun ?subnetArn ->
                    fun () ->
                      {
                        coreNetworkId;
                        connectAttachmentId;
                        connectPeerId;
                        edgeLocation;
                        connectPeerState;
                        createdAt;
                        tags;
                        subnetArn
                      }
    let to_value x =
      structure_to_value
        [("CoreNetworkId",
           (Option.map x.coreNetworkId ~f:CoreNetworkId.to_value));
        ("ConnectAttachmentId",
          (Option.map x.connectAttachmentId ~f:AttachmentId.to_value));
        ("ConnectPeerId",
          (Option.map x.connectPeerId ~f:ConnectPeerId.to_value));
        ("EdgeLocation",
          (Option.map x.edgeLocation ~f:ExternalRegionCode.to_value));
        ("ConnectPeerState",
          (Option.map x.connectPeerState ~f:ConnectPeerState.to_value));
        ("CreatedAt", (Option.map x.createdAt ~f:DateTime.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("SubnetArn", (Option.map x.subnetArn ~f:SubnetArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let subnetArn =
        (Option.map ~f:SubnetArn.of_xml) (Xml.child xml_arg0 "SubnetArn") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let createdAt =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "CreatedAt") in
      let connectPeerState =
        (Option.map ~f:ConnectPeerState.of_xml)
          (Xml.child xml_arg0 "ConnectPeerState") in
      let edgeLocation =
        (Option.map ~f:ExternalRegionCode.of_xml)
          (Xml.child xml_arg0 "EdgeLocation") in
      let connectPeerId =
        (Option.map ~f:ConnectPeerId.of_xml)
          (Xml.child xml_arg0 "ConnectPeerId") in
      let connectAttachmentId =
        (Option.map ~f:AttachmentId.of_xml)
          (Xml.child xml_arg0 "ConnectAttachmentId") in
      let coreNetworkId =
        (Option.map ~f:CoreNetworkId.of_xml)
          (Xml.child xml_arg0 "CoreNetworkId") in
      make ?subnetArn ?tags ?createdAt ?connectPeerState ?edgeLocation
        ?connectPeerId ?connectAttachmentId ?coreNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let subnetArn = field_map json__ "SubnetArn" SubnetArn.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let createdAt = field_map json__ "CreatedAt" DateTime.of_json in
      let connectPeerState =
        field_map json__ "ConnectPeerState" ConnectPeerState.of_json in
      let edgeLocation =
        field_map json__ "EdgeLocation" ExternalRegionCode.of_json in
      let connectPeerId =
        field_map json__ "ConnectPeerId" ConnectPeerId.of_json in
      let connectAttachmentId =
        field_map json__ "ConnectAttachmentId" AttachmentId.of_json in
      let coreNetworkId =
        field_map json__ "CoreNetworkId" CoreNetworkId.of_json in
      make ?subnetArn ?tags ?createdAt ?connectPeerState ?edgeLocation
        ?connectPeerId ?connectAttachmentId ?coreNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Summary description of a Connect peer."]
module AttachmentRoutingPolicyAssociationSummary =
  struct
    type nonrec t =
      {
      attachmentId: AttachmentId.t option
        [@ocaml.doc
          "The ID of the attachment associated with the routing policy."];
      pendingRoutingPolicies: ConstrainedStringList.t option
        [@ocaml.doc
          "The list of routing policies that are pending association with the attachment."];
      associatedRoutingPolicies: ConstrainedStringList.t option
        [@ocaml.doc
          "The list of routing policies currently associated with the attachment."];
      routingPolicyLabel: ConstrainedString.t option
        [@ocaml.doc
          "The routing policy label associated with the attachment."]}
    let make ?attachmentId =
      fun ?pendingRoutingPolicies ->
        fun ?associatedRoutingPolicies ->
          fun ?routingPolicyLabel ->
            fun () ->
              {
                attachmentId;
                pendingRoutingPolicies;
                associatedRoutingPolicies;
                routingPolicyLabel
              }
    let to_value x =
      structure_to_value
        [("AttachmentId",
           (Option.map x.attachmentId ~f:AttachmentId.to_value));
        ("PendingRoutingPolicies",
          (Option.map x.pendingRoutingPolicies
             ~f:ConstrainedStringList.to_value));
        ("AssociatedRoutingPolicies",
          (Option.map x.associatedRoutingPolicies
             ~f:ConstrainedStringList.to_value));
        ("RoutingPolicyLabel",
          (Option.map x.routingPolicyLabel ~f:ConstrainedString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let routingPolicyLabel =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "RoutingPolicyLabel") in
      let associatedRoutingPolicies =
        (Option.map ~f:ConstrainedStringList.of_xml)
          (Xml.child xml_arg0 "AssociatedRoutingPolicies") in
      let pendingRoutingPolicies =
        (Option.map ~f:ConstrainedStringList.of_xml)
          (Xml.child xml_arg0 "PendingRoutingPolicies") in
      let attachmentId =
        (Option.map ~f:AttachmentId.of_xml)
          (Xml.child xml_arg0 "AttachmentId") in
      make ?routingPolicyLabel ?associatedRoutingPolicies
        ?pendingRoutingPolicies ?attachmentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let routingPolicyLabel =
        field_map json__ "RoutingPolicyLabel" ConstrainedString.of_json in
      let associatedRoutingPolicies =
        field_map json__ "AssociatedRoutingPolicies"
          ConstrainedStringList.of_json in
      let pendingRoutingPolicies =
        field_map json__ "PendingRoutingPolicies"
          ConstrainedStringList.of_json in
      let attachmentId = field_map json__ "AttachmentId" AttachmentId.of_json in
      make ?routingPolicyLabel ?associatedRoutingPolicies
        ?pendingRoutingPolicies ?attachmentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Summary information about routing policy associations for an attachment."]
module TransitGatewayRouteTableArn =
  struct
    type nonrec t = string
    let context_ = "TransitGatewayRouteTableArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:500) >>=
                  (fun () -> check_pattern i ~pattern:"[\\s\\S]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TransitGatewayRouteTableArn" j
    let to_json = simple_to_json to_value
  end
module TransitGatewayRegistration =
  struct
    type nonrec t =
      {
      globalNetworkId: GlobalNetworkId.t option
        [@ocaml.doc "The ID of the global network."];
      transitGatewayArn: TransitGatewayArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the transit gateway."];
      state: TransitGatewayRegistrationStateReason.t option
        [@ocaml.doc "The state of the transit gateway registration."]}
    let make ?globalNetworkId =
      fun ?transitGatewayArn ->
        fun ?state -> fun () -> { globalNetworkId; transitGatewayArn; state }
    let to_value x =
      structure_to_value
        [("GlobalNetworkId",
           (Option.map x.globalNetworkId ~f:GlobalNetworkId.to_value));
        ("TransitGatewayArn",
          (Option.map x.transitGatewayArn ~f:TransitGatewayArn.to_value));
        ("State",
          (Option.map x.state
             ~f:TransitGatewayRegistrationStateReason.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let state =
        (Option.map ~f:TransitGatewayRegistrationStateReason.of_xml)
          (Xml.child xml_arg0 "State") in
      let transitGatewayArn =
        (Option.map ~f:TransitGatewayArn.of_xml)
          (Xml.child xml_arg0 "TransitGatewayArn") in
      let globalNetworkId =
        (Option.map ~f:GlobalNetworkId.of_xml)
          (Xml.child xml_arg0 "GlobalNetworkId") in
      make ?state ?transitGatewayArn ?globalNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let state =
        field_map json__ "State"
          TransitGatewayRegistrationStateReason.of_json in
      let transitGatewayArn =
        field_map json__ "TransitGatewayArn" TransitGatewayArn.of_json in
      let globalNetworkId =
        field_map json__ "GlobalNetworkId" GlobalNetworkId.of_json in
      make ?state ?transitGatewayArn ?globalNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the registration of a transit gateway to a global network."]
module TransitGatewayPeeringAttachmentId =
  struct
    type nonrec t = string
    let context_ = "TransitGatewayPeeringAttachmentId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:50) >>=
                  (fun () ->
                     check_pattern i ~pattern:"^tgw-attach-([0-9a-f]{8,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:"TransitGatewayPeeringAttachmentId" j
    let to_json = simple_to_json to_value
  end
module TransitGatewayConnectPeerAssociation =
  struct
    type nonrec t =
      {
      transitGatewayConnectPeerArn: TransitGatewayConnectPeerArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the transit gateway Connect peer."];
      globalNetworkId: GlobalNetworkId.t option
        [@ocaml.doc "The ID of the global network."];
      deviceId: DeviceId.t option [@ocaml.doc "The ID of the device."];
      linkId: LinkId.t option [@ocaml.doc "The ID of the link."];
      state: TransitGatewayConnectPeerAssociationState.t option
        [@ocaml.doc "The state of the association."]}
    let make ?transitGatewayConnectPeerArn =
      fun ?globalNetworkId ->
        fun ?deviceId ->
          fun ?linkId ->
            fun ?state ->
              fun () ->
                {
                  transitGatewayConnectPeerArn;
                  globalNetworkId;
                  deviceId;
                  linkId;
                  state
                }
    let to_value x =
      structure_to_value
        [("TransitGatewayConnectPeerArn",
           (Option.map x.transitGatewayConnectPeerArn
              ~f:TransitGatewayConnectPeerArn.to_value));
        ("GlobalNetworkId",
          (Option.map x.globalNetworkId ~f:GlobalNetworkId.to_value));
        ("DeviceId", (Option.map x.deviceId ~f:DeviceId.to_value));
        ("LinkId", (Option.map x.linkId ~f:LinkId.to_value));
        ("State",
          (Option.map x.state
             ~f:TransitGatewayConnectPeerAssociationState.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let state =
        (Option.map ~f:TransitGatewayConnectPeerAssociationState.of_xml)
          (Xml.child xml_arg0 "State") in
      let linkId =
        (Option.map ~f:LinkId.of_xml) (Xml.child xml_arg0 "LinkId") in
      let deviceId =
        (Option.map ~f:DeviceId.of_xml) (Xml.child xml_arg0 "DeviceId") in
      let globalNetworkId =
        (Option.map ~f:GlobalNetworkId.of_xml)
          (Xml.child xml_arg0 "GlobalNetworkId") in
      let transitGatewayConnectPeerArn =
        (Option.map ~f:TransitGatewayConnectPeerArn.of_xml)
          (Xml.child xml_arg0 "TransitGatewayConnectPeerArn") in
      make ?state ?linkId ?deviceId ?globalNetworkId
        ?transitGatewayConnectPeerArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let state =
        field_map json__ "State"
          TransitGatewayConnectPeerAssociationState.of_json in
      let linkId = field_map json__ "LinkId" LinkId.of_json in
      let deviceId = field_map json__ "DeviceId" DeviceId.of_json in
      let globalNetworkId =
        field_map json__ "GlobalNetworkId" GlobalNetworkId.of_json in
      let transitGatewayConnectPeerArn =
        field_map json__ "TransitGatewayConnectPeerArn"
          TransitGatewayConnectPeerArn.of_json in
      make ?state ?linkId ?deviceId ?globalNetworkId
        ?transitGatewayConnectPeerArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a transit gateway Connect peer association."]
module Site =
  struct
    type nonrec t =
      {
      siteId: SiteId.t option [@ocaml.doc "The ID of the site."];
      siteArn: SiteArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the site."];
      globalNetworkId: GlobalNetworkId.t option
        [@ocaml.doc "The ID of the global network."];
      description: ConstrainedString.t option
        [@ocaml.doc "The description of the site."];
      location: Location.t option [@ocaml.doc "The location of the site."];
      createdAt: DateTime.t option
        [@ocaml.doc "The date and time that the site was created."];
      state: SiteState.t option [@ocaml.doc "The state of the site."];
      tags: TagList.t option [@ocaml.doc "The tags for the site."]}
    let make ?siteId =
      fun ?siteArn ->
        fun ?globalNetworkId ->
          fun ?description ->
            fun ?location ->
              fun ?createdAt ->
                fun ?state ->
                  fun ?tags ->
                    fun () ->
                      {
                        siteId;
                        siteArn;
                        globalNetworkId;
                        description;
                        location;
                        createdAt;
                        state;
                        tags
                      }
    let to_value x =
      structure_to_value
        [("SiteId", (Option.map x.siteId ~f:SiteId.to_value));
        ("SiteArn", (Option.map x.siteArn ~f:SiteArn.to_value));
        ("GlobalNetworkId",
          (Option.map x.globalNetworkId ~f:GlobalNetworkId.to_value));
        ("Description",
          (Option.map x.description ~f:ConstrainedString.to_value));
        ("Location", (Option.map x.location ~f:Location.to_value));
        ("CreatedAt", (Option.map x.createdAt ~f:DateTime.to_value));
        ("State", (Option.map x.state ~f:SiteState.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let state =
        (Option.map ~f:SiteState.of_xml) (Xml.child xml_arg0 "State") in
      let createdAt =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "CreatedAt") in
      let location =
        (Option.map ~f:Location.of_xml) (Xml.child xml_arg0 "Location") in
      let description =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "Description") in
      let globalNetworkId =
        (Option.map ~f:GlobalNetworkId.of_xml)
          (Xml.child xml_arg0 "GlobalNetworkId") in
      let siteArn =
        (Option.map ~f:SiteArn.of_xml) (Xml.child xml_arg0 "SiteArn") in
      let siteId =
        (Option.map ~f:SiteId.of_xml) (Xml.child xml_arg0 "SiteId") in
      make ?tags ?state ?createdAt ?location ?description ?globalNetworkId
        ?siteArn ?siteId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagList.of_json in
      let state = field_map json__ "State" SiteState.of_json in
      let createdAt = field_map json__ "CreatedAt" DateTime.of_json in
      let location = field_map json__ "Location" Location.of_json in
      let description =
        field_map json__ "Description" ConstrainedString.of_json in
      let globalNetworkId =
        field_map json__ "GlobalNetworkId" GlobalNetworkId.of_json in
      let siteArn = field_map json__ "SiteArn" SiteArn.of_json in
      let siteId = field_map json__ "SiteId" SiteId.of_json in
      make ?tags ?state ?createdAt ?location ?description ?globalNetworkId
        ?siteArn ?siteId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a site."]
module VpnConnectionArn =
  struct
    type nonrec t = string
    let context_ = "VpnConnectionArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:500) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^arn:[^:]{1,63}:ec2:[^:]{0,63}:[^:]{0,63}:vpn-connection\\/vpn-[0-9a-f]{8,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:"VpnConnectionArn" j
    let to_json = simple_to_json to_value
  end
module NetworkTelemetry =
  struct
    type nonrec t =
      {
      registeredGatewayArn: ResourceArn.t option
        [@ocaml.doc "The ARN of the gateway."];
      coreNetworkId: CoreNetworkId.t option
        [@ocaml.doc "The ID of a core network."];
      awsRegion: ExternalRegionCode.t option
        [@ocaml.doc "The Amazon Web Services Region."];
      accountId: AWSAccountId.t option
        [@ocaml.doc "The Amazon Web Services account ID."];
      resourceType: ConstrainedString.t option
        [@ocaml.doc "The resource type."];
      resourceId: ConstrainedString.t option
        [@ocaml.doc "The ID of the resource."];
      resourceArn: ResourceArn.t option
        [@ocaml.doc "The ARN of the resource."];
      address: ConstrainedString.t option [@ocaml.doc "The address."];
      health: ConnectionHealth.t option [@ocaml.doc "The connection health."]}
    let make ?registeredGatewayArn =
      fun ?coreNetworkId ->
        fun ?awsRegion ->
          fun ?accountId ->
            fun ?resourceType ->
              fun ?resourceId ->
                fun ?resourceArn ->
                  fun ?address ->
                    fun ?health ->
                      fun () ->
                        {
                          registeredGatewayArn;
                          coreNetworkId;
                          awsRegion;
                          accountId;
                          resourceType;
                          resourceId;
                          resourceArn;
                          address;
                          health
                        }
    let to_value x =
      structure_to_value
        [("RegisteredGatewayArn",
           (Option.map x.registeredGatewayArn ~f:ResourceArn.to_value));
        ("CoreNetworkId",
          (Option.map x.coreNetworkId ~f:CoreNetworkId.to_value));
        ("AwsRegion",
          (Option.map x.awsRegion ~f:ExternalRegionCode.to_value));
        ("AccountId", (Option.map x.accountId ~f:AWSAccountId.to_value));
        ("ResourceType",
          (Option.map x.resourceType ~f:ConstrainedString.to_value));
        ("ResourceId",
          (Option.map x.resourceId ~f:ConstrainedString.to_value));
        ("ResourceArn", (Option.map x.resourceArn ~f:ResourceArn.to_value));
        ("Address", (Option.map x.address ~f:ConstrainedString.to_value));
        ("Health", (Option.map x.health ~f:ConnectionHealth.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let health =
        (Option.map ~f:ConnectionHealth.of_xml) (Xml.child xml_arg0 "Health") in
      let address =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "Address") in
      let resourceArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "ResourceArn") in
      let resourceId =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "ResourceId") in
      let resourceType =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "ResourceType") in
      let accountId =
        (Option.map ~f:AWSAccountId.of_xml) (Xml.child xml_arg0 "AccountId") in
      let awsRegion =
        (Option.map ~f:ExternalRegionCode.of_xml)
          (Xml.child xml_arg0 "AwsRegion") in
      let coreNetworkId =
        (Option.map ~f:CoreNetworkId.of_xml)
          (Xml.child xml_arg0 "CoreNetworkId") in
      let registeredGatewayArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "RegisteredGatewayArn") in
      make ?health ?address ?resourceArn ?resourceId ?resourceType ?accountId
        ?awsRegion ?coreNetworkId ?registeredGatewayArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let health = field_map json__ "Health" ConnectionHealth.of_json in
      let address = field_map json__ "Address" ConstrainedString.of_json in
      let resourceArn = field_map json__ "ResourceArn" ResourceArn.of_json in
      let resourceId =
        field_map json__ "ResourceId" ConstrainedString.of_json in
      let resourceType =
        field_map json__ "ResourceType" ConstrainedString.of_json in
      let accountId = field_map json__ "AccountId" AWSAccountId.of_json in
      let awsRegion = field_map json__ "AwsRegion" ExternalRegionCode.of_json in
      let coreNetworkId =
        field_map json__ "CoreNetworkId" CoreNetworkId.of_json in
      let registeredGatewayArn =
        field_map json__ "RegisteredGatewayArn" ResourceArn.of_json in
      make ?health ?address ?resourceArn ?resourceId ?resourceType ?accountId
        ?awsRegion ?coreNetworkId ?registeredGatewayArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the telemetry information for a resource."]
module NetworkRoute =
  struct
    type nonrec t =
      {
      destinationCidrBlock: ConstrainedString.t option
        [@ocaml.doc
          "A unique identifier for the route, such as a CIDR block."];
      destinations: NetworkRouteDestinationList.t option
        [@ocaml.doc "The destinations."];
      prefixListId: ConstrainedString.t option
        [@ocaml.doc "The ID of the prefix list."];
      state: RouteState.t option
        [@ocaml.doc
          "The route state. The possible values are active and blackhole."];
      type_: RouteType.t option
        [@ocaml.doc
          "The route type. The possible values are propagated and static."]}
    let make ?destinationCidrBlock =
      fun ?destinations ->
        fun ?prefixListId ->
          fun ?state ->
            fun ?type_ ->
              fun () ->
                {
                  destinationCidrBlock;
                  destinations;
                  prefixListId;
                  state;
                  type_
                }
    let to_value x =
      structure_to_value
        [("DestinationCidrBlock",
           (Option.map x.destinationCidrBlock ~f:ConstrainedString.to_value));
        ("Destinations",
          (Option.map x.destinations ~f:NetworkRouteDestinationList.to_value));
        ("PrefixListId",
          (Option.map x.prefixListId ~f:ConstrainedString.to_value));
        ("State", (Option.map x.state ~f:RouteState.to_value));
        ("Type", (Option.map x.type_ ~f:RouteType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ =
        (Option.map ~f:RouteType.of_xml) (Xml.child xml_arg0 "Type") in
      let state =
        (Option.map ~f:RouteState.of_xml) (Xml.child xml_arg0 "State") in
      let prefixListId =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "PrefixListId") in
      let destinations =
        (Option.map ~f:NetworkRouteDestinationList.of_xml)
          (Xml.child xml_arg0 "Destinations") in
      let destinationCidrBlock =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "DestinationCidrBlock") in
      make ?type_ ?state ?prefixListId ?destinations ?destinationCidrBlock ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map json__ "Type" RouteType.of_json in
      let state = field_map json__ "State" RouteState.of_json in
      let prefixListId =
        field_map json__ "PrefixListId" ConstrainedString.of_json in
      let destinations =
        field_map json__ "Destinations" NetworkRouteDestinationList.of_json in
      let destinationCidrBlock =
        field_map json__ "DestinationCidrBlock" ConstrainedString.of_json in
      make ?type_ ?state ?prefixListId ?destinations ?destinationCidrBlock ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a network route."]
module CoreNetworkNetworkFunctionGroupIdentifier =
  struct
    type nonrec t =
      {
      coreNetworkId: CoreNetworkId.t option
        [@ocaml.doc "The ID of the core network."];
      networkFunctionGroupName: ConstrainedString.t option
        [@ocaml.doc "The network function group name."];
      edgeLocation: ExternalRegionCode.t option
        [@ocaml.doc "The location for the core network edge."]}
    let make ?coreNetworkId =
      fun ?networkFunctionGroupName ->
        fun ?edgeLocation ->
          fun () -> { coreNetworkId; networkFunctionGroupName; edgeLocation }
    let to_value x =
      structure_to_value
        [("CoreNetworkId",
           (Option.map x.coreNetworkId ~f:CoreNetworkId.to_value));
        ("NetworkFunctionGroupName",
          (Option.map x.networkFunctionGroupName
             ~f:ConstrainedString.to_value));
        ("EdgeLocation",
          (Option.map x.edgeLocation ~f:ExternalRegionCode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let edgeLocation =
        (Option.map ~f:ExternalRegionCode.of_xml)
          (Xml.child xml_arg0 "EdgeLocation") in
      let networkFunctionGroupName =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "NetworkFunctionGroupName") in
      let coreNetworkId =
        (Option.map ~f:CoreNetworkId.of_xml)
          (Xml.child xml_arg0 "CoreNetworkId") in
      make ?edgeLocation ?networkFunctionGroupName ?coreNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let edgeLocation =
        field_map json__ "EdgeLocation" ExternalRegionCode.of_json in
      let networkFunctionGroupName =
        field_map json__ "NetworkFunctionGroupName" ConstrainedString.of_json in
      let coreNetworkId =
        field_map json__ "CoreNetworkId" CoreNetworkId.of_json in
      make ?edgeLocation ?networkFunctionGroupName ?coreNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a core network"]
module CoreNetworkSegmentEdgeIdentifier =
  struct
    type nonrec t =
      {
      coreNetworkId: CoreNetworkId.t option
        [@ocaml.doc "The ID of a core network."];
      segmentName: ConstrainedString.t option
        [@ocaml.doc "The name of the segment edge."];
      edgeLocation: ExternalRegionCode.t option
        [@ocaml.doc "The Region where the segment edge is located."]}
    let make ?coreNetworkId =
      fun ?segmentName ->
        fun ?edgeLocation ->
          fun () -> { coreNetworkId; segmentName; edgeLocation }
    let to_value x =
      structure_to_value
        [("CoreNetworkId",
           (Option.map x.coreNetworkId ~f:CoreNetworkId.to_value));
        ("SegmentName",
          (Option.map x.segmentName ~f:ConstrainedString.to_value));
        ("EdgeLocation",
          (Option.map x.edgeLocation ~f:ExternalRegionCode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let edgeLocation =
        (Option.map ~f:ExternalRegionCode.of_xml)
          (Xml.child xml_arg0 "EdgeLocation") in
      let segmentName =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "SegmentName") in
      let coreNetworkId =
        (Option.map ~f:CoreNetworkId.of_xml)
          (Xml.child xml_arg0 "CoreNetworkId") in
      make ?edgeLocation ?segmentName ?coreNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let edgeLocation =
        field_map json__ "EdgeLocation" ExternalRegionCode.of_json in
      let segmentName =
        field_map json__ "SegmentName" ConstrainedString.of_json in
      let coreNetworkId =
        field_map json__ "CoreNetworkId" CoreNetworkId.of_json in
      make ?edgeLocation ?segmentName ?coreNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns details about a core network edge."]
module NetworkResource =
  struct
    type nonrec t =
      {
      registeredGatewayArn: ResourceArn.t option
        [@ocaml.doc "The ARN of the gateway."];
      coreNetworkId: CoreNetworkId.t option
        [@ocaml.doc "The ID of a core network."];
      awsRegion: ExternalRegionCode.t option
        [@ocaml.doc "The Amazon Web Services Region."];
      accountId: AWSAccountId.t option
        [@ocaml.doc "The Amazon Web Services account ID."];
      resourceType: ConstrainedString.t option
        [@ocaml.doc
          "The resource type. The following are the supported resource types for Direct Connect: dxcon dx-gateway dx-vif The following are the supported resource types for Network Manager: attachment connect-peer connection core-network device link peering site The following are the supported resource types for Amazon VPC: customer-gateway transit-gateway transit-gateway-attachment transit-gateway-connect-peer transit-gateway-route-table vpn-connection"];
      resourceId: ConstrainedString.t option
        [@ocaml.doc "The ID of the resource."];
      resourceArn: ResourceArn.t option
        [@ocaml.doc "The ARN of the resource."];
      definition: ConstrainedString.t option
        [@ocaml.doc
          "Information about the resource, in JSON format. Network Manager gets this information by describing the resource using its Describe API call."];
      definitionTimestamp: DateTime.t option
        [@ocaml.doc "The time that the resource definition was retrieved."];
      tags: TagList.t option [@ocaml.doc "The tags."];
      metadata: NetworkResourceMetadataMap.t option
        [@ocaml.doc "The resource metadata."]}
    let make ?registeredGatewayArn =
      fun ?coreNetworkId ->
        fun ?awsRegion ->
          fun ?accountId ->
            fun ?resourceType ->
              fun ?resourceId ->
                fun ?resourceArn ->
                  fun ?definition ->
                    fun ?definitionTimestamp ->
                      fun ?tags ->
                        fun ?metadata ->
                          fun () ->
                            {
                              registeredGatewayArn;
                              coreNetworkId;
                              awsRegion;
                              accountId;
                              resourceType;
                              resourceId;
                              resourceArn;
                              definition;
                              definitionTimestamp;
                              tags;
                              metadata
                            }
    let to_value x =
      structure_to_value
        [("RegisteredGatewayArn",
           (Option.map x.registeredGatewayArn ~f:ResourceArn.to_value));
        ("CoreNetworkId",
          (Option.map x.coreNetworkId ~f:CoreNetworkId.to_value));
        ("AwsRegion",
          (Option.map x.awsRegion ~f:ExternalRegionCode.to_value));
        ("AccountId", (Option.map x.accountId ~f:AWSAccountId.to_value));
        ("ResourceType",
          (Option.map x.resourceType ~f:ConstrainedString.to_value));
        ("ResourceId",
          (Option.map x.resourceId ~f:ConstrainedString.to_value));
        ("ResourceArn", (Option.map x.resourceArn ~f:ResourceArn.to_value));
        ("Definition",
          (Option.map x.definition ~f:ConstrainedString.to_value));
        ("DefinitionTimestamp",
          (Option.map x.definitionTimestamp ~f:DateTime.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("Metadata",
          (Option.map x.metadata ~f:NetworkResourceMetadataMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let metadata =
        (Option.map ~f:NetworkResourceMetadataMap.of_xml)
          (Xml.child xml_arg0 "Metadata") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let definitionTimestamp =
        (Option.map ~f:DateTime.of_xml)
          (Xml.child xml_arg0 "DefinitionTimestamp") in
      let definition =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "Definition") in
      let resourceArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "ResourceArn") in
      let resourceId =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "ResourceId") in
      let resourceType =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "ResourceType") in
      let accountId =
        (Option.map ~f:AWSAccountId.of_xml) (Xml.child xml_arg0 "AccountId") in
      let awsRegion =
        (Option.map ~f:ExternalRegionCode.of_xml)
          (Xml.child xml_arg0 "AwsRegion") in
      let coreNetworkId =
        (Option.map ~f:CoreNetworkId.of_xml)
          (Xml.child xml_arg0 "CoreNetworkId") in
      let registeredGatewayArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "RegisteredGatewayArn") in
      make ?metadata ?tags ?definitionTimestamp ?definition ?resourceArn
        ?resourceId ?resourceType ?accountId ?awsRegion ?coreNetworkId
        ?registeredGatewayArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let metadata =
        field_map json__ "Metadata" NetworkResourceMetadataMap.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let definitionTimestamp =
        field_map json__ "DefinitionTimestamp" DateTime.of_json in
      let definition =
        field_map json__ "Definition" ConstrainedString.of_json in
      let resourceArn = field_map json__ "ResourceArn" ResourceArn.of_json in
      let resourceId =
        field_map json__ "ResourceId" ConstrainedString.of_json in
      let resourceType =
        field_map json__ "ResourceType" ConstrainedString.of_json in
      let accountId = field_map json__ "AccountId" AWSAccountId.of_json in
      let awsRegion = field_map json__ "AwsRegion" ExternalRegionCode.of_json in
      let coreNetworkId =
        field_map json__ "CoreNetworkId" CoreNetworkId.of_json in
      let registeredGatewayArn =
        field_map json__ "RegisteredGatewayArn" ResourceArn.of_json in
      make ?metadata ?tags ?definitionTimestamp ?definition ?resourceArn
        ?resourceId ?resourceType ?accountId ?awsRegion ?coreNetworkId
        ?registeredGatewayArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a network resource."]
module Relationship =
  struct
    type nonrec t =
      {
      from: ConstrainedString.t option
        [@ocaml.doc "The ARN of the resource."];
      to_: ConstrainedString.t option [@ocaml.doc "The ARN of the resource."]}
    let make ?from = fun ?to_ -> fun () -> { from; to_ }
    let to_value x =
      structure_to_value
        [("From", (Option.map x.from ~f:ConstrainedString.to_value));
        ("To", (Option.map x.to_ ~f:ConstrainedString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let to_ =
        (Option.map ~f:ConstrainedString.of_xml) (Xml.child xml_arg0 "To") in
      let from =
        (Option.map ~f:ConstrainedString.of_xml) (Xml.child xml_arg0 "From") in
      make ?to_ ?from ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let to_ = field_map json__ "To" ConstrainedString.of_json in
      let from = field_map json__ "From" ConstrainedString.of_json in
      make ?to_ ?from ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a resource relationship."]
module NetworkResourceCount =
  struct
    type nonrec t =
      {
      resourceType: ConstrainedString.t option
        [@ocaml.doc "The resource type."];
      count: Integer.t option [@ocaml.doc "The resource count."]}
    let make ?resourceType = fun ?count -> fun () -> { resourceType; count }
    let to_value x =
      structure_to_value
        [("ResourceType",
           (Option.map x.resourceType ~f:ConstrainedString.to_value));
        ("Count", (Option.map x.count ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let count = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "Count") in
      let resourceType =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "ResourceType") in
      make ?count ?resourceType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let count = field_map json__ "Count" Integer.of_json in
      let resourceType =
        field_map json__ "ResourceType" ConstrainedString.of_json in
      make ?count ?resourceType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a resource count."]
module Link =
  struct
    type nonrec t =
      {
      linkId: LinkId.t option [@ocaml.doc "The ID of the link."];
      linkArn: LinkArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the link."];
      globalNetworkId: GlobalNetworkId.t option
        [@ocaml.doc "The ID of the global network."];
      siteId: SiteId.t option [@ocaml.doc "The ID of the site."];
      description: ConstrainedString.t option
        [@ocaml.doc "The description of the link."];
      type_: ConstrainedString.t option [@ocaml.doc "The type of the link."];
      bandwidth: Bandwidth.t option
        [@ocaml.doc "The bandwidth for the link."];
      provider: ConstrainedString.t option
        [@ocaml.doc "The provider of the link."];
      createdAt: DateTime.t option
        [@ocaml.doc "The date and time that the link was created."];
      state: LinkState.t option [@ocaml.doc "The state of the link."];
      tags: TagList.t option [@ocaml.doc "The tags for the link."]}
    let make ?linkId =
      fun ?linkArn ->
        fun ?globalNetworkId ->
          fun ?siteId ->
            fun ?description ->
              fun ?type_ ->
                fun ?bandwidth ->
                  fun ?provider ->
                    fun ?createdAt ->
                      fun ?state ->
                        fun ?tags ->
                          fun () ->
                            {
                              linkId;
                              linkArn;
                              globalNetworkId;
                              siteId;
                              description;
                              type_;
                              bandwidth;
                              provider;
                              createdAt;
                              state;
                              tags
                            }
    let to_value x =
      structure_to_value
        [("LinkId", (Option.map x.linkId ~f:LinkId.to_value));
        ("LinkArn", (Option.map x.linkArn ~f:LinkArn.to_value));
        ("GlobalNetworkId",
          (Option.map x.globalNetworkId ~f:GlobalNetworkId.to_value));
        ("SiteId", (Option.map x.siteId ~f:SiteId.to_value));
        ("Description",
          (Option.map x.description ~f:ConstrainedString.to_value));
        ("Type", (Option.map x.type_ ~f:ConstrainedString.to_value));
        ("Bandwidth", (Option.map x.bandwidth ~f:Bandwidth.to_value));
        ("Provider", (Option.map x.provider ~f:ConstrainedString.to_value));
        ("CreatedAt", (Option.map x.createdAt ~f:DateTime.to_value));
        ("State", (Option.map x.state ~f:LinkState.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let state =
        (Option.map ~f:LinkState.of_xml) (Xml.child xml_arg0 "State") in
      let createdAt =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "CreatedAt") in
      let provider =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "Provider") in
      let bandwidth =
        (Option.map ~f:Bandwidth.of_xml) (Xml.child xml_arg0 "Bandwidth") in
      let type_ =
        (Option.map ~f:ConstrainedString.of_xml) (Xml.child xml_arg0 "Type") in
      let description =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "Description") in
      let siteId =
        (Option.map ~f:SiteId.of_xml) (Xml.child xml_arg0 "SiteId") in
      let globalNetworkId =
        (Option.map ~f:GlobalNetworkId.of_xml)
          (Xml.child xml_arg0 "GlobalNetworkId") in
      let linkArn =
        (Option.map ~f:LinkArn.of_xml) (Xml.child xml_arg0 "LinkArn") in
      let linkId =
        (Option.map ~f:LinkId.of_xml) (Xml.child xml_arg0 "LinkId") in
      make ?tags ?state ?createdAt ?provider ?bandwidth ?type_ ?description
        ?siteId ?globalNetworkId ?linkArn ?linkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagList.of_json in
      let state = field_map json__ "State" LinkState.of_json in
      let createdAt = field_map json__ "CreatedAt" DateTime.of_json in
      let provider = field_map json__ "Provider" ConstrainedString.of_json in
      let bandwidth = field_map json__ "Bandwidth" Bandwidth.of_json in
      let type_ = field_map json__ "Type" ConstrainedString.of_json in
      let description =
        field_map json__ "Description" ConstrainedString.of_json in
      let siteId = field_map json__ "SiteId" SiteId.of_json in
      let globalNetworkId =
        field_map json__ "GlobalNetworkId" GlobalNetworkId.of_json in
      let linkArn = field_map json__ "LinkArn" LinkArn.of_json in
      let linkId = field_map json__ "LinkId" LinkId.of_json in
      make ?tags ?state ?createdAt ?provider ?bandwidth ?type_ ?description
        ?siteId ?globalNetworkId ?linkArn ?linkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a link."]
module LinkAssociation =
  struct
    type nonrec t =
      {
      globalNetworkId: GlobalNetworkId.t option
        [@ocaml.doc "The ID of the global network."];
      deviceId: DeviceId.t option
        [@ocaml.doc "The device ID for the link association."];
      linkId: LinkId.t option [@ocaml.doc "The ID of the link."];
      linkAssociationState: LinkAssociationState.t option
        [@ocaml.doc "The state of the association."]}
    let make ?globalNetworkId =
      fun ?deviceId ->
        fun ?linkId ->
          fun ?linkAssociationState ->
            fun () ->
              { globalNetworkId; deviceId; linkId; linkAssociationState }
    let to_value x =
      structure_to_value
        [("GlobalNetworkId",
           (Option.map x.globalNetworkId ~f:GlobalNetworkId.to_value));
        ("DeviceId", (Option.map x.deviceId ~f:DeviceId.to_value));
        ("LinkId", (Option.map x.linkId ~f:LinkId.to_value));
        ("LinkAssociationState",
          (Option.map x.linkAssociationState ~f:LinkAssociationState.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let linkAssociationState =
        (Option.map ~f:LinkAssociationState.of_xml)
          (Xml.child xml_arg0 "LinkAssociationState") in
      let linkId =
        (Option.map ~f:LinkId.of_xml) (Xml.child xml_arg0 "LinkId") in
      let deviceId =
        (Option.map ~f:DeviceId.of_xml) (Xml.child xml_arg0 "DeviceId") in
      let globalNetworkId =
        (Option.map ~f:GlobalNetworkId.of_xml)
          (Xml.child xml_arg0 "GlobalNetworkId") in
      make ?linkAssociationState ?linkId ?deviceId ?globalNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let linkAssociationState =
        field_map json__ "LinkAssociationState" LinkAssociationState.of_json in
      let linkId = field_map json__ "LinkId" LinkId.of_json in
      let deviceId = field_map json__ "DeviceId" DeviceId.of_json in
      let globalNetworkId =
        field_map json__ "GlobalNetworkId" GlobalNetworkId.of_json in
      make ?linkAssociationState ?linkId ?deviceId ?globalNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the association between a device and a link."]
module Device =
  struct
    type nonrec t =
      {
      deviceId: DeviceId.t option [@ocaml.doc "The ID of the device."];
      deviceArn: DeviceArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the device."];
      globalNetworkId: GlobalNetworkId.t option
        [@ocaml.doc "The ID of the global network."];
      aWSLocation: AWSLocation.t option
        [@ocaml.doc "The Amazon Web Services location of the device."];
      description: ConstrainedString.t option
        [@ocaml.doc "The description of the device."];
      type_: ConstrainedString.t option [@ocaml.doc "The device type."];
      vendor: ConstrainedString.t option [@ocaml.doc "The device vendor."];
      model: ConstrainedString.t option [@ocaml.doc "The device model."];
      serialNumber: ConstrainedString.t option
        [@ocaml.doc "The device serial number."];
      location: Location.t option [@ocaml.doc "The site location."];
      siteId: SiteId.t option [@ocaml.doc "The site ID."];
      createdAt: DateTime.t option
        [@ocaml.doc "The date and time that the site was created."];
      state: DeviceState.t option [@ocaml.doc "The device state."];
      tags: TagList.t option [@ocaml.doc "The tags for the device."]}
    let make ?deviceId =
      fun ?deviceArn ->
        fun ?globalNetworkId ->
          fun ?aWSLocation ->
            fun ?description ->
              fun ?type_ ->
                fun ?vendor ->
                  fun ?model ->
                    fun ?serialNumber ->
                      fun ?location ->
                        fun ?siteId ->
                          fun ?createdAt ->
                            fun ?state ->
                              fun ?tags ->
                                fun () ->
                                  {
                                    deviceId;
                                    deviceArn;
                                    globalNetworkId;
                                    aWSLocation;
                                    description;
                                    type_;
                                    vendor;
                                    model;
                                    serialNumber;
                                    location;
                                    siteId;
                                    createdAt;
                                    state;
                                    tags
                                  }
    let to_value x =
      structure_to_value
        [("DeviceId", (Option.map x.deviceId ~f:DeviceId.to_value));
        ("DeviceArn", (Option.map x.deviceArn ~f:DeviceArn.to_value));
        ("GlobalNetworkId",
          (Option.map x.globalNetworkId ~f:GlobalNetworkId.to_value));
        ("AWSLocation", (Option.map x.aWSLocation ~f:AWSLocation.to_value));
        ("Description",
          (Option.map x.description ~f:ConstrainedString.to_value));
        ("Type", (Option.map x.type_ ~f:ConstrainedString.to_value));
        ("Vendor", (Option.map x.vendor ~f:ConstrainedString.to_value));
        ("Model", (Option.map x.model ~f:ConstrainedString.to_value));
        ("SerialNumber",
          (Option.map x.serialNumber ~f:ConstrainedString.to_value));
        ("Location", (Option.map x.location ~f:Location.to_value));
        ("SiteId", (Option.map x.siteId ~f:SiteId.to_value));
        ("CreatedAt", (Option.map x.createdAt ~f:DateTime.to_value));
        ("State", (Option.map x.state ~f:DeviceState.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let state =
        (Option.map ~f:DeviceState.of_xml) (Xml.child xml_arg0 "State") in
      let createdAt =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "CreatedAt") in
      let siteId =
        (Option.map ~f:SiteId.of_xml) (Xml.child xml_arg0 "SiteId") in
      let location =
        (Option.map ~f:Location.of_xml) (Xml.child xml_arg0 "Location") in
      let serialNumber =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "SerialNumber") in
      let model =
        (Option.map ~f:ConstrainedString.of_xml) (Xml.child xml_arg0 "Model") in
      let vendor =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "Vendor") in
      let type_ =
        (Option.map ~f:ConstrainedString.of_xml) (Xml.child xml_arg0 "Type") in
      let description =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "Description") in
      let aWSLocation =
        (Option.map ~f:AWSLocation.of_xml) (Xml.child xml_arg0 "AWSLocation") in
      let globalNetworkId =
        (Option.map ~f:GlobalNetworkId.of_xml)
          (Xml.child xml_arg0 "GlobalNetworkId") in
      let deviceArn =
        (Option.map ~f:DeviceArn.of_xml) (Xml.child xml_arg0 "DeviceArn") in
      let deviceId =
        (Option.map ~f:DeviceId.of_xml) (Xml.child xml_arg0 "DeviceId") in
      make ?tags ?state ?createdAt ?siteId ?location ?serialNumber ?model
        ?vendor ?type_ ?description ?aWSLocation ?globalNetworkId ?deviceArn
        ?deviceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagList.of_json in
      let state = field_map json__ "State" DeviceState.of_json in
      let createdAt = field_map json__ "CreatedAt" DateTime.of_json in
      let siteId = field_map json__ "SiteId" SiteId.of_json in
      let location = field_map json__ "Location" Location.of_json in
      let serialNumber =
        field_map json__ "SerialNumber" ConstrainedString.of_json in
      let model = field_map json__ "Model" ConstrainedString.of_json in
      let vendor = field_map json__ "Vendor" ConstrainedString.of_json in
      let type_ = field_map json__ "Type" ConstrainedString.of_json in
      let description =
        field_map json__ "Description" ConstrainedString.of_json in
      let aWSLocation = field_map json__ "AWSLocation" AWSLocation.of_json in
      let globalNetworkId =
        field_map json__ "GlobalNetworkId" GlobalNetworkId.of_json in
      let deviceArn = field_map json__ "DeviceArn" DeviceArn.of_json in
      let deviceId = field_map json__ "DeviceId" DeviceId.of_json in
      make ?tags ?state ?createdAt ?siteId ?location ?serialNumber ?model
        ?vendor ?type_ ?description ?aWSLocation ?globalNetworkId ?deviceArn
        ?deviceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a device."]
module CustomerGatewayAssociation =
  struct
    type nonrec t =
      {
      customerGatewayArn: CustomerGatewayArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the customer gateway."];
      globalNetworkId: GlobalNetworkId.t option
        [@ocaml.doc "The ID of the global network."];
      deviceId: DeviceId.t option [@ocaml.doc "The ID of the device."];
      linkId: LinkId.t option [@ocaml.doc "The ID of the link."];
      state: CustomerGatewayAssociationState.t option
        [@ocaml.doc "The association state."]}
    let make ?customerGatewayArn =
      fun ?globalNetworkId ->
        fun ?deviceId ->
          fun ?linkId ->
            fun ?state ->
              fun () ->
                {
                  customerGatewayArn;
                  globalNetworkId;
                  deviceId;
                  linkId;
                  state
                }
    let to_value x =
      structure_to_value
        [("CustomerGatewayArn",
           (Option.map x.customerGatewayArn ~f:CustomerGatewayArn.to_value));
        ("GlobalNetworkId",
          (Option.map x.globalNetworkId ~f:GlobalNetworkId.to_value));
        ("DeviceId", (Option.map x.deviceId ~f:DeviceId.to_value));
        ("LinkId", (Option.map x.linkId ~f:LinkId.to_value));
        ("State",
          (Option.map x.state ~f:CustomerGatewayAssociationState.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let state =
        (Option.map ~f:CustomerGatewayAssociationState.of_xml)
          (Xml.child xml_arg0 "State") in
      let linkId =
        (Option.map ~f:LinkId.of_xml) (Xml.child xml_arg0 "LinkId") in
      let deviceId =
        (Option.map ~f:DeviceId.of_xml) (Xml.child xml_arg0 "DeviceId") in
      let globalNetworkId =
        (Option.map ~f:GlobalNetworkId.of_xml)
          (Xml.child xml_arg0 "GlobalNetworkId") in
      let customerGatewayArn =
        (Option.map ~f:CustomerGatewayArn.of_xml)
          (Xml.child xml_arg0 "CustomerGatewayArn") in
      make ?state ?linkId ?deviceId ?globalNetworkId ?customerGatewayArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let state =
        field_map json__ "State" CustomerGatewayAssociationState.of_json in
      let linkId = field_map json__ "LinkId" LinkId.of_json in
      let deviceId = field_map json__ "DeviceId" DeviceId.of_json in
      let globalNetworkId =
        field_map json__ "GlobalNetworkId" GlobalNetworkId.of_json in
      let customerGatewayArn =
        field_map json__ "CustomerGatewayArn" CustomerGatewayArn.of_json in
      make ?state ?linkId ?deviceId ?globalNetworkId ?customerGatewayArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the association between a customer gateway, a device, and a link."]
module CoreNetworkChange =
  struct
    type nonrec t =
      {
      type_: ChangeType.t option [@ocaml.doc "The type of change."];
      action: ChangeAction.t option
        [@ocaml.doc "The action to take for a core network."];
      identifier: ConstrainedString.t option
        [@ocaml.doc "The resource identifier."];
      previousValues: CoreNetworkChangeValues.t option
        [@ocaml.doc "The previous values for a core network."];
      newValues: CoreNetworkChangeValues.t option
        [@ocaml.doc "The new value for a core network"];
      identifierPath: ConstrainedString.t option
        [@ocaml.doc
          "Uniquely identifies the path for a change within the changeset. For example, the IdentifierPath for a core network segment change might be \"CORE_NETWORK_SEGMENT/us-east-1/devsegment\"."]}
    let make ?type_ =
      fun ?action ->
        fun ?identifier ->
          fun ?previousValues ->
            fun ?newValues ->
              fun ?identifierPath ->
                fun () ->
                  {
                    type_;
                    action;
                    identifier;
                    previousValues;
                    newValues;
                    identifierPath
                  }
    let to_value x =
      structure_to_value
        [("Type", (Option.map x.type_ ~f:ChangeType.to_value));
        ("Action", (Option.map x.action ~f:ChangeAction.to_value));
        ("Identifier",
          (Option.map x.identifier ~f:ConstrainedString.to_value));
        ("PreviousValues",
          (Option.map x.previousValues ~f:CoreNetworkChangeValues.to_value));
        ("NewValues",
          (Option.map x.newValues ~f:CoreNetworkChangeValues.to_value));
        ("IdentifierPath",
          (Option.map x.identifierPath ~f:ConstrainedString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let identifierPath =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "IdentifierPath") in
      let newValues =
        (Option.map ~f:CoreNetworkChangeValues.of_xml)
          (Xml.child xml_arg0 "NewValues") in
      let previousValues =
        (Option.map ~f:CoreNetworkChangeValues.of_xml)
          (Xml.child xml_arg0 "PreviousValues") in
      let identifier =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "Identifier") in
      let action =
        (Option.map ~f:ChangeAction.of_xml) (Xml.child xml_arg0 "Action") in
      let type_ =
        (Option.map ~f:ChangeType.of_xml) (Xml.child xml_arg0 "Type") in
      make ?identifierPath ?newValues ?previousValues ?identifier ?action
        ?type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let identifierPath =
        field_map json__ "IdentifierPath" ConstrainedString.of_json in
      let newValues =
        field_map json__ "NewValues" CoreNetworkChangeValues.of_json in
      let previousValues =
        field_map json__ "PreviousValues" CoreNetworkChangeValues.of_json in
      let identifier =
        field_map json__ "Identifier" ConstrainedString.of_json in
      let action = field_map json__ "Action" ChangeAction.of_json in
      let type_ = field_map json__ "Type" ChangeType.of_json in
      make ?identifierPath ?newValues ?previousValues ?identifier ?action
        ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Details describing a core network change."]
module CoreNetworkChangeEvent =
  struct
    type nonrec t =
      {
      type_: ChangeType.t option
        [@ocaml.doc "Describes the type of change event."];
      action: ChangeAction.t option
        [@ocaml.doc "The action taken for the change event."];
      identifierPath: ConstrainedString.t option
        [@ocaml.doc
          "Uniquely identifies the path for a change within the changeset. For example, the IdentifierPath for a core network segment change might be \"CORE_NETWORK_SEGMENT/us-east-1/devsegment\"."];
      eventTime: DateTime.t option
        [@ocaml.doc "The timestamp for an event change in status."];
      status: ChangeStatus.t option
        [@ocaml.doc "The status of the core network change event."];
      values: CoreNetworkChangeEventValues.t option
        [@ocaml.doc "Details of the change event."]}
    let make ?type_ =
      fun ?action ->
        fun ?identifierPath ->
          fun ?eventTime ->
            fun ?status ->
              fun ?values ->
                fun () ->
                  { type_; action; identifierPath; eventTime; status; values
                  }
    let to_value x =
      structure_to_value
        [("Type", (Option.map x.type_ ~f:ChangeType.to_value));
        ("Action", (Option.map x.action ~f:ChangeAction.to_value));
        ("IdentifierPath",
          (Option.map x.identifierPath ~f:ConstrainedString.to_value));
        ("EventTime", (Option.map x.eventTime ~f:DateTime.to_value));
        ("Status", (Option.map x.status ~f:ChangeStatus.to_value));
        ("Values",
          (Option.map x.values ~f:CoreNetworkChangeEventValues.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let values =
        (Option.map ~f:CoreNetworkChangeEventValues.of_xml)
          (Xml.child xml_arg0 "Values") in
      let status =
        (Option.map ~f:ChangeStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let eventTime =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "EventTime") in
      let identifierPath =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "IdentifierPath") in
      let action =
        (Option.map ~f:ChangeAction.of_xml) (Xml.child xml_arg0 "Action") in
      let type_ =
        (Option.map ~f:ChangeType.of_xml) (Xml.child xml_arg0 "Type") in
      make ?values ?status ?eventTime ?identifierPath ?action ?type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let values =
        field_map json__ "Values" CoreNetworkChangeEventValues.of_json in
      let status = field_map json__ "Status" ChangeStatus.of_json in
      let eventTime = field_map json__ "EventTime" DateTime.of_json in
      let identifierPath =
        field_map json__ "IdentifierPath" ConstrainedString.of_json in
      let action = field_map json__ "Action" ChangeAction.of_json in
      let type_ = field_map json__ "Type" ChangeType.of_json in
      make ?values ?status ?eventTime ?identifierPath ?action ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes a core network change event. This can be a change to a segment, attachment, route, etc."]
module Connection =
  struct
    type nonrec t =
      {
      connectionId: ConnectionId.t option
        [@ocaml.doc "The ID of the connection."];
      connectionArn: ConnectionArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the connection."];
      globalNetworkId: GlobalNetworkId.t option
        [@ocaml.doc "The ID of the global network."];
      deviceId: DeviceId.t option
        [@ocaml.doc "The ID of the first device in the connection."];
      connectedDeviceId: DeviceId.t option
        [@ocaml.doc "The ID of the second device in the connection."];
      linkId: LinkId.t option
        [@ocaml.doc
          "The ID of the link for the first device in the connection."];
      connectedLinkId: LinkId.t option
        [@ocaml.doc
          "The ID of the link for the second device in the connection."];
      description: ConstrainedString.t option
        [@ocaml.doc "The description of the connection."];
      createdAt: DateTime.t option
        [@ocaml.doc "The date and time that the connection was created."];
      state: ConnectionState.t option
        [@ocaml.doc "The state of the connection."];
      tags: TagList.t option [@ocaml.doc "The tags for the connection."]}
    let make ?connectionId =
      fun ?connectionArn ->
        fun ?globalNetworkId ->
          fun ?deviceId ->
            fun ?connectedDeviceId ->
              fun ?linkId ->
                fun ?connectedLinkId ->
                  fun ?description ->
                    fun ?createdAt ->
                      fun ?state ->
                        fun ?tags ->
                          fun () ->
                            {
                              connectionId;
                              connectionArn;
                              globalNetworkId;
                              deviceId;
                              connectedDeviceId;
                              linkId;
                              connectedLinkId;
                              description;
                              createdAt;
                              state;
                              tags
                            }
    let to_value x =
      structure_to_value
        [("ConnectionId",
           (Option.map x.connectionId ~f:ConnectionId.to_value));
        ("ConnectionArn",
          (Option.map x.connectionArn ~f:ConnectionArn.to_value));
        ("GlobalNetworkId",
          (Option.map x.globalNetworkId ~f:GlobalNetworkId.to_value));
        ("DeviceId", (Option.map x.deviceId ~f:DeviceId.to_value));
        ("ConnectedDeviceId",
          (Option.map x.connectedDeviceId ~f:DeviceId.to_value));
        ("LinkId", (Option.map x.linkId ~f:LinkId.to_value));
        ("ConnectedLinkId",
          (Option.map x.connectedLinkId ~f:LinkId.to_value));
        ("Description",
          (Option.map x.description ~f:ConstrainedString.to_value));
        ("CreatedAt", (Option.map x.createdAt ~f:DateTime.to_value));
        ("State", (Option.map x.state ~f:ConnectionState.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let state =
        (Option.map ~f:ConnectionState.of_xml) (Xml.child xml_arg0 "State") in
      let createdAt =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "CreatedAt") in
      let description =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "Description") in
      let connectedLinkId =
        (Option.map ~f:LinkId.of_xml) (Xml.child xml_arg0 "ConnectedLinkId") in
      let linkId =
        (Option.map ~f:LinkId.of_xml) (Xml.child xml_arg0 "LinkId") in
      let connectedDeviceId =
        (Option.map ~f:DeviceId.of_xml)
          (Xml.child xml_arg0 "ConnectedDeviceId") in
      let deviceId =
        (Option.map ~f:DeviceId.of_xml) (Xml.child xml_arg0 "DeviceId") in
      let globalNetworkId =
        (Option.map ~f:GlobalNetworkId.of_xml)
          (Xml.child xml_arg0 "GlobalNetworkId") in
      let connectionArn =
        (Option.map ~f:ConnectionArn.of_xml)
          (Xml.child xml_arg0 "ConnectionArn") in
      let connectionId =
        (Option.map ~f:ConnectionId.of_xml)
          (Xml.child xml_arg0 "ConnectionId") in
      make ?tags ?state ?createdAt ?description ?connectedLinkId ?linkId
        ?connectedDeviceId ?deviceId ?globalNetworkId ?connectionArn
        ?connectionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagList.of_json in
      let state = field_map json__ "State" ConnectionState.of_json in
      let createdAt = field_map json__ "CreatedAt" DateTime.of_json in
      let description =
        field_map json__ "Description" ConstrainedString.of_json in
      let connectedLinkId = field_map json__ "ConnectedLinkId" LinkId.of_json in
      let linkId = field_map json__ "LinkId" LinkId.of_json in
      let connectedDeviceId =
        field_map json__ "ConnectedDeviceId" DeviceId.of_json in
      let deviceId = field_map json__ "DeviceId" DeviceId.of_json in
      let globalNetworkId =
        field_map json__ "GlobalNetworkId" GlobalNetworkId.of_json in
      let connectionArn =
        field_map json__ "ConnectionArn" ConnectionArn.of_json in
      let connectionId = field_map json__ "ConnectionId" ConnectionId.of_json in
      make ?tags ?state ?createdAt ?description ?connectedLinkId ?linkId
        ?connectedDeviceId ?deviceId ?globalNetworkId ?connectionArn
        ?connectionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a connection."]
module ConnectPeerConfiguration =
  struct
    type nonrec t =
      {
      coreNetworkAddress: IPAddress.t option
        [@ocaml.doc "The IP address of a core network."];
      peerAddress: IPAddress.t option
        [@ocaml.doc "The IP address of the Connect peer."];
      insideCidrBlocks: ConstrainedStringList.t option
        [@ocaml.doc
          "The inside IP addresses used for a Connect peer configuration."];
      protocol: TunnelProtocol.t option
        [@ocaml.doc "The protocol used for a Connect peer configuration."];
      bgpConfigurations: ConnectPeerBgpConfigurationList.t option
        [@ocaml.doc "The Connect peer BGP configurations."]}
    let make ?coreNetworkAddress =
      fun ?peerAddress ->
        fun ?insideCidrBlocks ->
          fun ?protocol ->
            fun ?bgpConfigurations ->
              fun () ->
                {
                  coreNetworkAddress;
                  peerAddress;
                  insideCidrBlocks;
                  protocol;
                  bgpConfigurations
                }
    let to_value x =
      structure_to_value
        [("CoreNetworkAddress",
           (Option.map x.coreNetworkAddress ~f:IPAddress.to_value));
        ("PeerAddress", (Option.map x.peerAddress ~f:IPAddress.to_value));
        ("InsideCidrBlocks",
          (Option.map x.insideCidrBlocks ~f:ConstrainedStringList.to_value));
        ("Protocol", (Option.map x.protocol ~f:TunnelProtocol.to_value));
        ("BgpConfigurations",
          (Option.map x.bgpConfigurations
             ~f:ConnectPeerBgpConfigurationList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let bgpConfigurations =
        (Option.map ~f:ConnectPeerBgpConfigurationList.of_xml)
          (Xml.child xml_arg0 "BgpConfigurations") in
      let protocol =
        (Option.map ~f:TunnelProtocol.of_xml) (Xml.child xml_arg0 "Protocol") in
      let insideCidrBlocks =
        (Option.map ~f:ConstrainedStringList.of_xml)
          (Xml.child xml_arg0 "InsideCidrBlocks") in
      let peerAddress =
        (Option.map ~f:IPAddress.of_xml) (Xml.child xml_arg0 "PeerAddress") in
      let coreNetworkAddress =
        (Option.map ~f:IPAddress.of_xml)
          (Xml.child xml_arg0 "CoreNetworkAddress") in
      make ?bgpConfigurations ?protocol ?insideCidrBlocks ?peerAddress
        ?coreNetworkAddress ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let bgpConfigurations =
        field_map json__ "BgpConfigurations"
          ConnectPeerBgpConfigurationList.of_json in
      let protocol = field_map json__ "Protocol" TunnelProtocol.of_json in
      let insideCidrBlocks =
        field_map json__ "InsideCidrBlocks" ConstrainedStringList.of_json in
      let peerAddress = field_map json__ "PeerAddress" IPAddress.of_json in
      let coreNetworkAddress =
        field_map json__ "CoreNetworkAddress" IPAddress.of_json in
      make ?bgpConfigurations ?protocol ?insideCidrBlocks ?peerAddress
        ?coreNetworkAddress ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a core network Connect peer configuration."]
module ConnectPeerErrorList =
  struct
    type nonrec t = ConnectPeerError.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:ConnectPeerError.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:ConnectPeerError.of_xml)
    let of_json j =
      list_of_json ~kind:"ConnectPeerErrorList"
        ~of_json:ConnectPeerError.of_json j
    let to_json v = composed_to_json to_value v
  end
module ConnectPeerAssociation =
  struct
    type nonrec t =
      {
      connectPeerId: ConnectPeerId.t option
        [@ocaml.doc "The ID of the Connect peer."];
      globalNetworkId: GlobalNetworkId.t option
        [@ocaml.doc "The ID of the global network."];
      deviceId: DeviceId.t option
        [@ocaml.doc "The ID of the device to connect to."];
      linkId: LinkId.t option [@ocaml.doc "The ID of the link."];
      state: ConnectPeerAssociationState.t option
        [@ocaml.doc "The state of the Connect peer association."]}
    let make ?connectPeerId =
      fun ?globalNetworkId ->
        fun ?deviceId ->
          fun ?linkId ->
            fun ?state ->
              fun () ->
                { connectPeerId; globalNetworkId; deviceId; linkId; state }
    let to_value x =
      structure_to_value
        [("ConnectPeerId",
           (Option.map x.connectPeerId ~f:ConnectPeerId.to_value));
        ("GlobalNetworkId",
          (Option.map x.globalNetworkId ~f:GlobalNetworkId.to_value));
        ("DeviceId", (Option.map x.deviceId ~f:DeviceId.to_value));
        ("LinkId", (Option.map x.linkId ~f:LinkId.to_value));
        ("State",
          (Option.map x.state ~f:ConnectPeerAssociationState.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let state =
        (Option.map ~f:ConnectPeerAssociationState.of_xml)
          (Xml.child xml_arg0 "State") in
      let linkId =
        (Option.map ~f:LinkId.of_xml) (Xml.child xml_arg0 "LinkId") in
      let deviceId =
        (Option.map ~f:DeviceId.of_xml) (Xml.child xml_arg0 "DeviceId") in
      let globalNetworkId =
        (Option.map ~f:GlobalNetworkId.of_xml)
          (Xml.child xml_arg0 "GlobalNetworkId") in
      let connectPeerId =
        (Option.map ~f:ConnectPeerId.of_xml)
          (Xml.child xml_arg0 "ConnectPeerId") in
      make ?state ?linkId ?deviceId ?globalNetworkId ?connectPeerId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let state =
        field_map json__ "State" ConnectPeerAssociationState.of_json in
      let linkId = field_map json__ "LinkId" LinkId.of_json in
      let deviceId = field_map json__ "DeviceId" DeviceId.of_json in
      let globalNetworkId =
        field_map json__ "GlobalNetworkId" GlobalNetworkId.of_json in
      let connectPeerId =
        field_map json__ "ConnectPeerId" ConnectPeerId.of_json in
      make ?state ?linkId ?deviceId ?globalNetworkId ?connectPeerId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a core network Connect peer association."]
module ConnectAttachmentOptions =
  struct
    type nonrec t =
      {
      protocol: TunnelProtocol.t option
        [@ocaml.doc "The protocol used for the attachment connection."]}
    let make ?protocol = fun () -> { protocol }
    let to_value x =
      structure_to_value
        [("Protocol", (Option.map x.protocol ~f:TunnelProtocol.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let protocol =
        (Option.map ~f:TunnelProtocol.of_xml) (Xml.child xml_arg0 "Protocol") in
      make ?protocol ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let protocol = field_map json__ "Protocol" TunnelProtocol.of_json in
      make ?protocol ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a core network Connect attachment options."]
module GlobalNetwork =
  struct
    type nonrec t =
      {
      globalNetworkId: GlobalNetworkId.t option
        [@ocaml.doc "The ID of the global network."];
      globalNetworkArn: GlobalNetworkArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the global network."];
      description: ConstrainedString.t option
        [@ocaml.doc "The description of the global network."];
      createdAt: DateTime.t option
        [@ocaml.doc "The date and time that the global network was created."];
      state: GlobalNetworkState.t option
        [@ocaml.doc "The state of the global network."];
      tags: TagList.t option [@ocaml.doc "The tags for the global network."]}
    let make ?globalNetworkId =
      fun ?globalNetworkArn ->
        fun ?description ->
          fun ?createdAt ->
            fun ?state ->
              fun ?tags ->
                fun () ->
                  {
                    globalNetworkId;
                    globalNetworkArn;
                    description;
                    createdAt;
                    state;
                    tags
                  }
    let to_value x =
      structure_to_value
        [("GlobalNetworkId",
           (Option.map x.globalNetworkId ~f:GlobalNetworkId.to_value));
        ("GlobalNetworkArn",
          (Option.map x.globalNetworkArn ~f:GlobalNetworkArn.to_value));
        ("Description",
          (Option.map x.description ~f:ConstrainedString.to_value));
        ("CreatedAt", (Option.map x.createdAt ~f:DateTime.to_value));
        ("State", (Option.map x.state ~f:GlobalNetworkState.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let state =
        (Option.map ~f:GlobalNetworkState.of_xml)
          (Xml.child xml_arg0 "State") in
      let createdAt =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "CreatedAt") in
      let description =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "Description") in
      let globalNetworkArn =
        (Option.map ~f:GlobalNetworkArn.of_xml)
          (Xml.child xml_arg0 "GlobalNetworkArn") in
      let globalNetworkId =
        (Option.map ~f:GlobalNetworkId.of_xml)
          (Xml.child xml_arg0 "GlobalNetworkId") in
      make ?tags ?state ?createdAt ?description ?globalNetworkArn
        ?globalNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagList.of_json in
      let state = field_map json__ "State" GlobalNetworkState.of_json in
      let createdAt = field_map json__ "CreatedAt" DateTime.of_json in
      let description =
        field_map json__ "Description" ConstrainedString.of_json in
      let globalNetworkArn =
        field_map json__ "GlobalNetworkArn" GlobalNetworkArn.of_json in
      let globalNetworkId =
        field_map json__ "GlobalNetworkId" GlobalNetworkId.of_json in
      make ?tags ?state ?createdAt ?description ?globalNetworkArn
        ?globalNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes a global network. This is a single private network acting as a high-level container for your network objects, including an Amazon Web Services-managed Core Network."]
module AccessDeniedException =
  struct
    type nonrec t = {
      message: ServerSideString.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ServerSideString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ServerSideString.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" ServerSideString.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "You do not have sufficient access to perform this action."]
module ConflictException =
  struct
    type nonrec t =
      {
      message: ServerSideString.t option ;
      resourceId: ServerSideString.t option
        [@ocaml.doc "The ID of the resource."];
      resourceType: ServerSideString.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:ServerSideString.to_value));
        ("ResourceId",
          (Option.map x.resourceId ~f:ServerSideString.to_value));
        ("ResourceType",
          (Option.map x.resourceType ~f:ServerSideString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceType =
        (Option.map ~f:ServerSideString.of_xml)
          (Xml.child xml_arg0 "ResourceType") in
      let resourceId =
        (Option.map ~f:ServerSideString.of_xml)
          (Xml.child xml_arg0 "ResourceId") in
      let message =
        (Option.map ~f:ServerSideString.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" ServerSideString.of_json in
      let resourceId = field_map json__ "ResourceId" ServerSideString.of_json in
      let message = field_map json__ "Message" ServerSideString.of_json in
      make ?resourceType ?resourceId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "There was a conflict processing the request. Updating or deleting the resource can cause an inconsistent state."]
module InternalServerException =
  struct
    type nonrec t =
      {
      message: ServerSideString.t option ;
      retryAfterSeconds: RetryAfterSeconds.t option
        [@ocaml.doc "Indicates when to retry the request."]}
    let make ?message =
      fun ?retryAfterSeconds -> fun () -> { message; retryAfterSeconds }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ServerSideString.to_value));
        ("Retry-After",
          (Option.map x.retryAfterSeconds ~f:RetryAfterSeconds.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let retryAfterSeconds =
        (Option.map ~f:RetryAfterSeconds.of_xml)
          (Xml.child xml_arg0 "Retry-After") in
      let message =
        (Option.map ~f:ServerSideString.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?retryAfterSeconds ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let retryAfterSeconds =
        field_map json__ "RetryAfterSeconds" RetryAfterSeconds.of_json in
      let message = field_map json__ "Message" ServerSideString.of_json in
      make ?retryAfterSeconds ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request has failed due to an internal error."]
module ResourceNotFoundException =
  struct
    type nonrec t =
      {
      message: ServerSideString.t option ;
      resourceId: ServerSideString.t option
        [@ocaml.doc "The ID of the resource."];
      resourceType: ServerSideString.t option
        [@ocaml.doc "The resource type."];
      context: ExceptionContextMap.t option
        [@ocaml.doc "The specified resource could not be found."]}
    let make ?message =
      fun ?resourceId ->
        fun ?resourceType ->
          fun ?context ->
            fun () -> { message; resourceId; resourceType; context }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ServerSideString.to_value));
        ("ResourceId",
          (Option.map x.resourceId ~f:ServerSideString.to_value));
        ("ResourceType",
          (Option.map x.resourceType ~f:ServerSideString.to_value));
        ("Context", (Option.map x.context ~f:ExceptionContextMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let context =
        (Option.map ~f:ExceptionContextMap.of_xml)
          (Xml.child xml_arg0 "Context") in
      let resourceType =
        (Option.map ~f:ServerSideString.of_xml)
          (Xml.child xml_arg0 "ResourceType") in
      let resourceId =
        (Option.map ~f:ServerSideString.of_xml)
          (Xml.child xml_arg0 "ResourceId") in
      let message =
        (Option.map ~f:ServerSideString.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?context ?resourceType ?resourceId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let context = field_map json__ "Context" ExceptionContextMap.of_json in
      let resourceType =
        field_map json__ "ResourceType" ServerSideString.of_json in
      let resourceId = field_map json__ "ResourceId" ServerSideString.of_json in
      let message = field_map json__ "Message" ServerSideString.of_json in
      make ?context ?resourceType ?resourceId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The specified resource could not be found."]
module ThrottlingException =
  struct
    type nonrec t =
      {
      message: ServerSideString.t option ;
      retryAfterSeconds: RetryAfterSeconds.t option
        [@ocaml.doc "Indicates when to retry the request."]}
    let make ?message =
      fun ?retryAfterSeconds -> fun () -> { message; retryAfterSeconds }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ServerSideString.to_value));
        ("Retry-After",
          (Option.map x.retryAfterSeconds ~f:RetryAfterSeconds.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let retryAfterSeconds =
        (Option.map ~f:RetryAfterSeconds.of_xml)
          (Xml.child xml_arg0 "Retry-After") in
      let message =
        (Option.map ~f:ServerSideString.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?retryAfterSeconds ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let retryAfterSeconds =
        field_map json__ "RetryAfterSeconds" RetryAfterSeconds.of_json in
      let message = field_map json__ "Message" ServerSideString.of_json in
      make ?retryAfterSeconds ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request was denied due to request throttling."]
module ValidationException =
  struct
    type nonrec t =
      {
      message: ServerSideString.t option ;
      reason: ValidationExceptionReason.t option
        [@ocaml.doc "The reason for the error."];
      fields: ValidationExceptionFieldList.t option
        [@ocaml.doc "The fields that caused the error, if applicable."]}
    let make ?message =
      fun ?reason -> fun ?fields -> fun () -> { message; reason; fields }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ServerSideString.to_value));
        ("Reason",
          (Option.map x.reason ~f:ValidationExceptionReason.to_value));
        ("Fields",
          (Option.map x.fields ~f:ValidationExceptionFieldList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fields =
        (Option.map ~f:ValidationExceptionFieldList.of_xml)
          (Xml.child xml_arg0 "Fields") in
      let reason =
        (Option.map ~f:ValidationExceptionReason.of_xml)
          (Xml.child xml_arg0 "Reason") in
      let message =
        (Option.map ~f:ServerSideString.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?fields ?reason ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fields =
        field_map json__ "Fields" ValidationExceptionFieldList.of_json in
      let reason =
        field_map json__ "Reason" ValidationExceptionReason.of_json in
      let message = field_map json__ "Message" ServerSideString.of_json in
      make ?fields ?reason ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The input fails to satisfy the constraints."]
module VpcAttachment =
  struct
    type nonrec t =
      {
      attachment: Attachment.t option
        [@ocaml.doc "Provides details about the VPC attachment."];
      subnetArns: SubnetArnList.t option [@ocaml.doc "The subnet ARNs."];
      options: VpcOptions.t option
        [@ocaml.doc "Provides details about the VPC attachment."]}
    let make ?attachment =
      fun ?subnetArns ->
        fun ?options -> fun () -> { attachment; subnetArns; options }
    let to_value x =
      structure_to_value
        [("Attachment", (Option.map x.attachment ~f:Attachment.to_value));
        ("SubnetArns", (Option.map x.subnetArns ~f:SubnetArnList.to_value));
        ("Options", (Option.map x.options ~f:VpcOptions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let options =
        (Option.map ~f:VpcOptions.of_xml) (Xml.child xml_arg0 "Options") in
      let subnetArns =
        (Option.map ~f:SubnetArnList.of_xml)
          (Xml.child xml_arg0 "SubnetArns") in
      let attachment =
        (Option.map ~f:Attachment.of_xml) (Xml.child xml_arg0 "Attachment") in
      make ?options ?subnetArns ?attachment ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let options = field_map json__ "Options" VpcOptions.of_json in
      let subnetArns = field_map json__ "SubnetArns" SubnetArnList.of_json in
      let attachment = field_map json__ "Attachment" Attachment.of_json in
      make ?options ?subnetArns ?attachment ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a VPC attachment."]
module ServiceQuotaExceededException =
  struct
    type nonrec t =
      {
      message: ServerSideString.t option [@ocaml.doc "The error message."];
      resourceId: ServerSideString.t option
        [@ocaml.doc "The ID of the resource."];
      resourceType: ServerSideString.t option
        [@ocaml.doc "The resource type."];
      limitCode: ServerSideString.t option [@ocaml.doc "The limit code."];
      serviceCode: ServerSideString.t option [@ocaml.doc "The service code."]}
    let make ?message =
      fun ?resourceId ->
        fun ?resourceType ->
          fun ?limitCode ->
            fun ?serviceCode ->
              fun () ->
                { message; resourceId; resourceType; limitCode; serviceCode }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ServerSideString.to_value));
        ("ResourceId",
          (Option.map x.resourceId ~f:ServerSideString.to_value));
        ("ResourceType",
          (Option.map x.resourceType ~f:ServerSideString.to_value));
        ("LimitCode", (Option.map x.limitCode ~f:ServerSideString.to_value));
        ("ServiceCode",
          (Option.map x.serviceCode ~f:ServerSideString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let serviceCode =
        (Option.map ~f:ServerSideString.of_xml)
          (Xml.child xml_arg0 "ServiceCode") in
      let limitCode =
        (Option.map ~f:ServerSideString.of_xml)
          (Xml.child xml_arg0 "LimitCode") in
      let resourceType =
        (Option.map ~f:ServerSideString.of_xml)
          (Xml.child xml_arg0 "ResourceType") in
      let resourceId =
        (Option.map ~f:ServerSideString.of_xml)
          (Xml.child xml_arg0 "ResourceId") in
      let message =
        (Option.map ~f:ServerSideString.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?serviceCode ?limitCode ?resourceType ?resourceId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let serviceCode =
        field_map json__ "ServiceCode" ServerSideString.of_json in
      let limitCode = field_map json__ "LimitCode" ServerSideString.of_json in
      let resourceType =
        field_map json__ "ResourceType" ServerSideString.of_json in
      let resourceId = field_map json__ "ResourceId" ServerSideString.of_json in
      let message = field_map json__ "Message" ServerSideString.of_json in
      make ?serviceCode ?limitCode ?resourceType ?resourceId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A service limit was exceeded."]
module DirectConnectGatewayAttachment =
  struct
    type nonrec t =
      {
      attachment: Attachment.t option ;
      directConnectGatewayArn: DirectConnectGatewayArn.t option
        [@ocaml.doc "The Direct Connect gateway attachment ARN."]}
    let make ?attachment =
      fun ?directConnectGatewayArn ->
        fun () -> { attachment; directConnectGatewayArn }
    let to_value x =
      structure_to_value
        [("Attachment", (Option.map x.attachment ~f:Attachment.to_value));
        ("DirectConnectGatewayArn",
          (Option.map x.directConnectGatewayArn
             ~f:DirectConnectGatewayArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let directConnectGatewayArn =
        (Option.map ~f:DirectConnectGatewayArn.of_xml)
          (Xml.child xml_arg0 "DirectConnectGatewayArn") in
      let attachment =
        (Option.map ~f:Attachment.of_xml) (Xml.child xml_arg0 "Attachment") in
      make ?directConnectGatewayArn ?attachment ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let directConnectGatewayArn =
        field_map json__ "DirectConnectGatewayArn"
          DirectConnectGatewayArn.of_json in
      let attachment = field_map json__ "Attachment" Attachment.of_json in
      make ?directConnectGatewayArn ?attachment ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a Direct Connect gateway attachment."]
module CoreNetwork =
  struct
    type nonrec t =
      {
      globalNetworkId: GlobalNetworkId.t option
        [@ocaml.doc
          "The ID of the global network that your core network is a part of."];
      coreNetworkId: CoreNetworkId.t option
        [@ocaml.doc "The ID of a core network."];
      coreNetworkArn: CoreNetworkArn.t option
        [@ocaml.doc "The ARN of a core network."];
      description: ConstrainedString.t option
        [@ocaml.doc "The description of a core network."];
      createdAt: DateTime.t option
        [@ocaml.doc "The timestamp when a core network was created."];
      state: CoreNetworkState.t option
        [@ocaml.doc "The current state of a core network."];
      segments: CoreNetworkSegmentList.t option
        [@ocaml.doc "The segments within a core network."];
      networkFunctionGroups: CoreNetworkNetworkFunctionGroupList.t option
        [@ocaml.doc
          "The network function groups associated with a core network."];
      edges: CoreNetworkEdgeList.t option
        [@ocaml.doc "The edges within a core network."];
      tags: TagList.t option
        [@ocaml.doc
          "The list of key-value tags associated with a core network."]}
    let make ?globalNetworkId =
      fun ?coreNetworkId ->
        fun ?coreNetworkArn ->
          fun ?description ->
            fun ?createdAt ->
              fun ?state ->
                fun ?segments ->
                  fun ?networkFunctionGroups ->
                    fun ?edges ->
                      fun ?tags ->
                        fun () ->
                          {
                            globalNetworkId;
                            coreNetworkId;
                            coreNetworkArn;
                            description;
                            createdAt;
                            state;
                            segments;
                            networkFunctionGroups;
                            edges;
                            tags
                          }
    let to_value x =
      structure_to_value
        [("GlobalNetworkId",
           (Option.map x.globalNetworkId ~f:GlobalNetworkId.to_value));
        ("CoreNetworkId",
          (Option.map x.coreNetworkId ~f:CoreNetworkId.to_value));
        ("CoreNetworkArn",
          (Option.map x.coreNetworkArn ~f:CoreNetworkArn.to_value));
        ("Description",
          (Option.map x.description ~f:ConstrainedString.to_value));
        ("CreatedAt", (Option.map x.createdAt ~f:DateTime.to_value));
        ("State", (Option.map x.state ~f:CoreNetworkState.to_value));
        ("Segments",
          (Option.map x.segments ~f:CoreNetworkSegmentList.to_value));
        ("NetworkFunctionGroups",
          (Option.map x.networkFunctionGroups
             ~f:CoreNetworkNetworkFunctionGroupList.to_value));
        ("Edges", (Option.map x.edges ~f:CoreNetworkEdgeList.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let edges =
        (Option.map ~f:CoreNetworkEdgeList.of_xml)
          (Xml.child xml_arg0 "Edges") in
      let networkFunctionGroups =
        (Option.map ~f:CoreNetworkNetworkFunctionGroupList.of_xml)
          (Xml.child xml_arg0 "NetworkFunctionGroups") in
      let segments =
        (Option.map ~f:CoreNetworkSegmentList.of_xml)
          (Xml.child xml_arg0 "Segments") in
      let state =
        (Option.map ~f:CoreNetworkState.of_xml) (Xml.child xml_arg0 "State") in
      let createdAt =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "CreatedAt") in
      let description =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "Description") in
      let coreNetworkArn =
        (Option.map ~f:CoreNetworkArn.of_xml)
          (Xml.child xml_arg0 "CoreNetworkArn") in
      let coreNetworkId =
        (Option.map ~f:CoreNetworkId.of_xml)
          (Xml.child xml_arg0 "CoreNetworkId") in
      let globalNetworkId =
        (Option.map ~f:GlobalNetworkId.of_xml)
          (Xml.child xml_arg0 "GlobalNetworkId") in
      make ?tags ?edges ?networkFunctionGroups ?segments ?state ?createdAt
        ?description ?coreNetworkArn ?coreNetworkId ?globalNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagList.of_json in
      let edges = field_map json__ "Edges" CoreNetworkEdgeList.of_json in
      let networkFunctionGroups =
        field_map json__ "NetworkFunctionGroups"
          CoreNetworkNetworkFunctionGroupList.of_json in
      let segments =
        field_map json__ "Segments" CoreNetworkSegmentList.of_json in
      let state = field_map json__ "State" CoreNetworkState.of_json in
      let createdAt = field_map json__ "CreatedAt" DateTime.of_json in
      let description =
        field_map json__ "Description" ConstrainedString.of_json in
      let coreNetworkArn =
        field_map json__ "CoreNetworkArn" CoreNetworkArn.of_json in
      let coreNetworkId =
        field_map json__ "CoreNetworkId" CoreNetworkId.of_json in
      let globalNetworkId =
        field_map json__ "GlobalNetworkId" GlobalNetworkId.of_json in
      make ?tags ?edges ?networkFunctionGroups ?segments ?state ?createdAt
        ?description ?coreNetworkArn ?coreNetworkId ?globalNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a core network."]
module TagKeyList =
  struct
    type nonrec t = TagKey.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:TagKey.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:TagKey.of_xml)
    let of_json j = list_of_json ~kind:"TagKeyList" ~of_json:TagKey.of_json j
    let to_json v = composed_to_json to_value v
  end
module RouteAnalysis =
  struct
    type nonrec t =
      {
      globalNetworkId: GlobalNetworkId.t option
        [@ocaml.doc "The ID of the global network."];
      ownerAccountId: AWSAccountId.t option
        [@ocaml.doc
          "The ID of the AWS account that created the route analysis."];
      routeAnalysisId: ConstrainedString.t option
        [@ocaml.doc "The ID of the route analysis."];
      startTimestamp: DateTime.t option
        [@ocaml.doc "The time that the analysis started."];
      status: RouteAnalysisStatus.t option
        [@ocaml.doc "The status of the route analysis."];
      source: RouteAnalysisEndpointOptions.t option
        [@ocaml.doc "The source."];
      destination: RouteAnalysisEndpointOptions.t option
        [@ocaml.doc "The destination."];
      includeReturnPath: Boolean.t option
        [@ocaml.doc
          "Indicates whether to analyze the return path. The return path is not analyzed if the forward path analysis does not succeed."];
      useMiddleboxes: Boolean.t option
        [@ocaml.doc
          "Indicates whether to include the location of middlebox appliances in the route analysis."];
      forwardPath: RouteAnalysisPath.t option
        [@ocaml.doc "The forward path."];
      returnPath: RouteAnalysisPath.t option [@ocaml.doc "The return path."]}
    let make ?globalNetworkId =
      fun ?ownerAccountId ->
        fun ?routeAnalysisId ->
          fun ?startTimestamp ->
            fun ?status ->
              fun ?source ->
                fun ?destination ->
                  fun ?includeReturnPath ->
                    fun ?useMiddleboxes ->
                      fun ?forwardPath ->
                        fun ?returnPath ->
                          fun () ->
                            {
                              globalNetworkId;
                              ownerAccountId;
                              routeAnalysisId;
                              startTimestamp;
                              status;
                              source;
                              destination;
                              includeReturnPath;
                              useMiddleboxes;
                              forwardPath;
                              returnPath
                            }
    let to_value x =
      structure_to_value
        [("GlobalNetworkId",
           (Option.map x.globalNetworkId ~f:GlobalNetworkId.to_value));
        ("OwnerAccountId",
          (Option.map x.ownerAccountId ~f:AWSAccountId.to_value));
        ("RouteAnalysisId",
          (Option.map x.routeAnalysisId ~f:ConstrainedString.to_value));
        ("StartTimestamp",
          (Option.map x.startTimestamp ~f:DateTime.to_value));
        ("Status", (Option.map x.status ~f:RouteAnalysisStatus.to_value));
        ("Source",
          (Option.map x.source ~f:RouteAnalysisEndpointOptions.to_value));
        ("Destination",
          (Option.map x.destination ~f:RouteAnalysisEndpointOptions.to_value));
        ("IncludeReturnPath",
          (Option.map x.includeReturnPath ~f:Boolean.to_value));
        ("UseMiddleboxes", (Option.map x.useMiddleboxes ~f:Boolean.to_value));
        ("ForwardPath",
          (Option.map x.forwardPath ~f:RouteAnalysisPath.to_value));
        ("ReturnPath",
          (Option.map x.returnPath ~f:RouteAnalysisPath.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let returnPath =
        (Option.map ~f:RouteAnalysisPath.of_xml)
          (Xml.child xml_arg0 "ReturnPath") in
      let forwardPath =
        (Option.map ~f:RouteAnalysisPath.of_xml)
          (Xml.child xml_arg0 "ForwardPath") in
      let useMiddleboxes =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "UseMiddleboxes") in
      let includeReturnPath =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "IncludeReturnPath") in
      let destination =
        (Option.map ~f:RouteAnalysisEndpointOptions.of_xml)
          (Xml.child xml_arg0 "Destination") in
      let source =
        (Option.map ~f:RouteAnalysisEndpointOptions.of_xml)
          (Xml.child xml_arg0 "Source") in
      let status =
        (Option.map ~f:RouteAnalysisStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let startTimestamp =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "StartTimestamp") in
      let routeAnalysisId =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "RouteAnalysisId") in
      let ownerAccountId =
        (Option.map ~f:AWSAccountId.of_xml)
          (Xml.child xml_arg0 "OwnerAccountId") in
      let globalNetworkId =
        (Option.map ~f:GlobalNetworkId.of_xml)
          (Xml.child xml_arg0 "GlobalNetworkId") in
      make ?returnPath ?forwardPath ?useMiddleboxes ?includeReturnPath
        ?destination ?source ?status ?startTimestamp ?routeAnalysisId
        ?ownerAccountId ?globalNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let returnPath =
        field_map json__ "ReturnPath" RouteAnalysisPath.of_json in
      let forwardPath =
        field_map json__ "ForwardPath" RouteAnalysisPath.of_json in
      let useMiddleboxes = field_map json__ "UseMiddleboxes" Boolean.of_json in
      let includeReturnPath =
        field_map json__ "IncludeReturnPath" Boolean.of_json in
      let destination =
        field_map json__ "Destination" RouteAnalysisEndpointOptions.of_json in
      let source =
        field_map json__ "Source" RouteAnalysisEndpointOptions.of_json in
      let status = field_map json__ "Status" RouteAnalysisStatus.of_json in
      let startTimestamp = field_map json__ "StartTimestamp" DateTime.of_json in
      let routeAnalysisId =
        field_map json__ "RouteAnalysisId" ConstrainedString.of_json in
      let ownerAccountId =
        field_map json__ "OwnerAccountId" AWSAccountId.of_json in
      let globalNetworkId =
        field_map json__ "GlobalNetworkId" GlobalNetworkId.of_json in
      make ?returnPath ?forwardPath ?useMiddleboxes ?includeReturnPath
        ?destination ?source ?status ?startTimestamp ?routeAnalysisId
        ?ownerAccountId ?globalNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a route analysis."]
module RouteAnalysisEndpointOptionsSpecification =
  struct
    type nonrec t =
      {
      transitGatewayAttachmentArn: TransitGatewayAttachmentArn.t option
        [@ocaml.doc "The ARN of the transit gateway attachment."];
      ipAddress: IPAddress.t option [@ocaml.doc "The IP address."]}
    let make ?transitGatewayAttachmentArn =
      fun ?ipAddress -> fun () -> { transitGatewayAttachmentArn; ipAddress }
    let to_value x =
      structure_to_value
        [("TransitGatewayAttachmentArn",
           (Option.map x.transitGatewayAttachmentArn
              ~f:TransitGatewayAttachmentArn.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
      let transitGatewayAttachmentArn =
        (Option.map ~f:TransitGatewayAttachmentArn.of_xml)
          (Xml.child xml_arg0 "TransitGatewayAttachmentArn") in
      make ?ipAddress ?transitGatewayAttachmentArn ()
    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
      let transitGatewayAttachmentArn =
        field_map json__ "TransitGatewayAttachmentArn"
          TransitGatewayAttachmentArn.of_json in
      make ?ipAddress ?transitGatewayAttachmentArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a source or a destination."]
module OrganizationStatus =
  struct
    type nonrec t =
      {
      organizationId: OrganizationId.t option
        [@ocaml.doc "The ID of an Amazon Web Services Organization."];
      organizationAwsServiceAccessStatus:
        OrganizationAwsServiceAccessStatus.t option
        [@ocaml.doc
          "The status of the organization's AWS service access. This will be ENABLED or DISABLED."];
      sLRDeploymentStatus: SLRDeploymentStatus.t option
        [@ocaml.doc
          "The status of the SLR deployment for the account. This will be either SUCCEEDED or IN_PROGRESS."];
      accountStatusList: AccountStatusList.t option
        [@ocaml.doc
          "The current service-linked role (SLR) deployment status for an Amazon Web Services Organization's accounts. This will be either SUCCEEDED or IN_PROGRESS."]}
    let make ?organizationId =
      fun ?organizationAwsServiceAccessStatus ->
        fun ?sLRDeploymentStatus ->
          fun ?accountStatusList ->
            fun () ->
              {
                organizationId;
                organizationAwsServiceAccessStatus;
                sLRDeploymentStatus;
                accountStatusList
              }
    let to_value x =
      structure_to_value
        [("OrganizationId",
           (Option.map x.organizationId ~f:OrganizationId.to_value));
        ("OrganizationAwsServiceAccessStatus",
          (Option.map x.organizationAwsServiceAccessStatus
             ~f:OrganizationAwsServiceAccessStatus.to_value));
        ("SLRDeploymentStatus",
          (Option.map x.sLRDeploymentStatus ~f:SLRDeploymentStatus.to_value));
        ("AccountStatusList",
          (Option.map x.accountStatusList ~f:AccountStatusList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountStatusList =
        (Option.map ~f:AccountStatusList.of_xml)
          (Xml.child xml_arg0 "AccountStatusList") in
      let sLRDeploymentStatus =
        (Option.map ~f:SLRDeploymentStatus.of_xml)
          (Xml.child xml_arg0 "SLRDeploymentStatus") in
      let organizationAwsServiceAccessStatus =
        (Option.map ~f:OrganizationAwsServiceAccessStatus.of_xml)
          (Xml.child xml_arg0 "OrganizationAwsServiceAccessStatus") in
      let organizationId =
        (Option.map ~f:OrganizationId.of_xml)
          (Xml.child xml_arg0 "OrganizationId") in
      make ?accountStatusList ?sLRDeploymentStatus
        ?organizationAwsServiceAccessStatus ?organizationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accountStatusList =
        field_map json__ "AccountStatusList" AccountStatusList.of_json in
      let sLRDeploymentStatus =
        field_map json__ "SLRDeploymentStatus" SLRDeploymentStatus.of_json in
      let organizationAwsServiceAccessStatus =
        field_map json__ "OrganizationAwsServiceAccessStatus"
          OrganizationAwsServiceAccessStatus.of_json in
      let organizationId =
        field_map json__ "OrganizationId" OrganizationId.of_json in
      make ?accountStatusList ?sLRDeploymentStatus
        ?organizationAwsServiceAccessStatus ?organizationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The status of an Amazon Web Services Organization and the accounts within that organization."]
module Action =
  struct
    type nonrec t = string
    let context_ = "Action"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:50) >>=
             (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:"Action" j
    let to_json = simple_to_json to_value
  end
module CoreNetworkPolicy =
  struct
    type nonrec t =
      {
      coreNetworkId: CoreNetworkId.t option
        [@ocaml.doc "The ID of a core network."];
      policyVersionId: Integer.t option
        [@ocaml.doc "The ID of the policy version."];
      alias: CoreNetworkPolicyAlias.t option
        [@ocaml.doc
          "Whether a core network policy is the current LIVE policy or the most recently submitted policy."];
      description: ConstrainedString.t option
        [@ocaml.doc "The description of a core network policy."];
      createdAt: DateTime.t option
        [@ocaml.doc "The timestamp when a core network policy was created."];
      changeSetState: ChangeSetState.t option
        [@ocaml.doc "The state of a core network policy."];
      policyErrors: CoreNetworkPolicyErrorList.t option
        [@ocaml.doc "Describes any errors in a core network policy."];
      policyDocument: CoreNetworkPolicyDocument.t option
        [@ocaml.doc "Describes a core network policy."]}
    let make ?coreNetworkId =
      fun ?policyVersionId ->
        fun ?alias ->
          fun ?description ->
            fun ?createdAt ->
              fun ?changeSetState ->
                fun ?policyErrors ->
                  fun ?policyDocument ->
                    fun () ->
                      {
                        coreNetworkId;
                        policyVersionId;
                        alias;
                        description;
                        createdAt;
                        changeSetState;
                        policyErrors;
                        policyDocument
                      }
    let to_value x =
      structure_to_value
        [("CoreNetworkId",
           (Option.map x.coreNetworkId ~f:CoreNetworkId.to_value));
        ("PolicyVersionId",
          (Option.map x.policyVersionId ~f:Integer.to_value));
        ("Alias", (Option.map x.alias ~f:CoreNetworkPolicyAlias.to_value));
        ("Description",
          (Option.map x.description ~f:ConstrainedString.to_value));
        ("CreatedAt", (Option.map x.createdAt ~f:DateTime.to_value));
        ("ChangeSetState",
          (Option.map x.changeSetState ~f:ChangeSetState.to_value));
        ("PolicyErrors",
          (Option.map x.policyErrors ~f:CoreNetworkPolicyErrorList.to_value));
        ("PolicyDocument",
          (Option.map x.policyDocument ~f:CoreNetworkPolicyDocument.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policyDocument =
        (Option.map ~f:CoreNetworkPolicyDocument.of_xml)
          (Xml.child xml_arg0 "PolicyDocument") in
      let policyErrors =
        (Option.map ~f:CoreNetworkPolicyErrorList.of_xml)
          (Xml.child xml_arg0 "PolicyErrors") in
      let changeSetState =
        (Option.map ~f:ChangeSetState.of_xml)
          (Xml.child xml_arg0 "ChangeSetState") in
      let createdAt =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "CreatedAt") in
      let description =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "Description") in
      let alias =
        (Option.map ~f:CoreNetworkPolicyAlias.of_xml)
          (Xml.child xml_arg0 "Alias") in
      let policyVersionId =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "PolicyVersionId") in
      let coreNetworkId =
        (Option.map ~f:CoreNetworkId.of_xml)
          (Xml.child xml_arg0 "CoreNetworkId") in
      make ?policyDocument ?policyErrors ?changeSetState ?createdAt
        ?description ?alias ?policyVersionId ?coreNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let policyDocument =
        field_map json__ "PolicyDocument" CoreNetworkPolicyDocument.of_json in
      let policyErrors =
        field_map json__ "PolicyErrors" CoreNetworkPolicyErrorList.of_json in
      let changeSetState =
        field_map json__ "ChangeSetState" ChangeSetState.of_json in
      let createdAt = field_map json__ "CreatedAt" DateTime.of_json in
      let description =
        field_map json__ "Description" ConstrainedString.of_json in
      let alias = field_map json__ "Alias" CoreNetworkPolicyAlias.of_json in
      let policyVersionId =
        field_map json__ "PolicyVersionId" Integer.of_json in
      let coreNetworkId =
        field_map json__ "CoreNetworkId" CoreNetworkId.of_json in
      make ?policyDocument ?policyErrors ?changeSetState ?createdAt
        ?description ?alias ?policyVersionId ?coreNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes a core network policy. You can have only one LIVE Core Policy."]
module ResourcePolicyDocument =
  struct
    type nonrec t = string
    let context_ = "ResourcePolicyDocument"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:10000000) >>=
                  (fun () -> check_pattern i ~pattern:"[\\s\\S]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ResourcePolicyDocument" j
    let to_json = simple_to_json to_value
  end
module CoreNetworkPolicyException =
  struct
    type nonrec t =
      {
      message: ServerSideString.t option ;
      errors: CoreNetworkPolicyErrorList.t option
        [@ocaml.doc "Describes a core network policy exception."]}
    let make ?message = fun ?errors -> fun () -> { message; errors }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ServerSideString.to_value));
        ("Errors",
          (Option.map x.errors ~f:CoreNetworkPolicyErrorList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errors =
        (Option.map ~f:CoreNetworkPolicyErrorList.of_xml)
          (Xml.child xml_arg0 "Errors") in
      let message =
        (Option.map ~f:ServerSideString.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?errors ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errors =
        field_map json__ "Errors" CoreNetworkPolicyErrorList.of_json in
      let message = field_map json__ "Message" ServerSideString.of_json in
      make ?errors ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a core network policy exception."]
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:0) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () -> check_pattern i ~pattern:"[\\s\\S]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ClientToken" 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_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () -> check_pattern i ~pattern:"[\\s\\S]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"NextToken" j
    let to_json = simple_to_json to_value
  end
module PeeringList =
  struct
    type nonrec t = Peering.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:Peering.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:Peering.of_xml)
    let of_json j =
      list_of_json ~kind:"PeeringList" ~of_json:Peering.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:500) >>= (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 CoreNetworkSummaryList =
  struct
    type nonrec t = CoreNetworkSummary.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:CoreNetworkSummary.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:CoreNetworkSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"CoreNetworkSummaryList"
        ~of_json:CoreNetworkSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module CoreNetworkRoutingInformationList =
  struct
    type nonrec t = CoreNetworkRoutingInformation.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:CoreNetworkRoutingInformation.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:CoreNetworkRoutingInformation.of_xml)
    let of_json j =
      list_of_json ~kind:"CoreNetworkRoutingInformationList"
        ~of_json:CoreNetworkRoutingInformation.of_json j
    let to_json v = composed_to_json to_value v
  end
module FilterMap =
  struct
    type nonrec t = (FilterName.t * FilterValues.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            let (_ : string) = v in
                            let (_ : string) = chopped in
                            failwith
                              "no of_header for complex types FilterName FilterValues"))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (FilterName.to_value x) |>
                    (fun x -> (FilterValues.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:FilterName.of_string
        ~of_json:FilterValues.of_json j
    let to_json v = composed_to_json to_value v
  end
module PrefixListAssociationList =
  struct
    type nonrec t = PrefixListAssociation.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:PrefixListAssociation.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:PrefixListAssociation.of_xml)
    let of_json j =
      list_of_json ~kind:"PrefixListAssociationList"
        ~of_json:PrefixListAssociation.of_json j
    let to_json v = composed_to_json to_value v
  end
module CoreNetworkPolicyVersionList =
  struct
    type nonrec t = CoreNetworkPolicyVersion.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:CoreNetworkPolicyVersion.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:CoreNetworkPolicyVersion.of_xml)
    let of_json j =
      list_of_json ~kind:"CoreNetworkPolicyVersionList"
        ~of_json:CoreNetworkPolicyVersion.of_json j
    let to_json v = composed_to_json to_value v
  end
module ConnectPeerSummaryList =
  struct
    type nonrec t = ConnectPeerSummary.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:ConnectPeerSummary.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:ConnectPeerSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ConnectPeerSummaryList"
        ~of_json:ConnectPeerSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module AttachmentList =
  struct
    type nonrec t = Attachment.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:Attachment.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:Attachment.of_xml)
    let of_json j =
      list_of_json ~kind:"AttachmentList" ~of_json:Attachment.of_json j
    let to_json v = composed_to_json to_value v
  end
module AttachmentRoutingPolicyAssociationsList =
  struct
    type nonrec t = AttachmentRoutingPolicyAssociationSummary.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:AttachmentRoutingPolicyAssociationSummary.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:AttachmentRoutingPolicyAssociationSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"AttachmentRoutingPolicyAssociationsList"
        ~of_json:AttachmentRoutingPolicyAssociationSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module TransitGatewayRouteTableAttachment =
  struct
    type nonrec t =
      {
      attachment: Attachment.t option ;
      peeringId: PeeringId.t option
        [@ocaml.doc "The ID of the peering attachment."];
      transitGatewayRouteTableArn: TransitGatewayRouteTableArn.t option
        [@ocaml.doc
          "The ARN of the transit gateway attachment route table. For example, \"TransitGatewayRouteTableArn\": \"arn:aws:ec2:us-west-2:123456789012:transit-gateway-route-table/tgw-rtb-9876543210123456\"."]}
    let make ?attachment =
      fun ?peeringId ->
        fun ?transitGatewayRouteTableArn ->
          fun () -> { attachment; peeringId; transitGatewayRouteTableArn }
    let to_value x =
      structure_to_value
        [("Attachment", (Option.map x.attachment ~f:Attachment.to_value));
        ("PeeringId", (Option.map x.peeringId ~f:PeeringId.to_value));
        ("TransitGatewayRouteTableArn",
          (Option.map x.transitGatewayRouteTableArn
             ~f:TransitGatewayRouteTableArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let transitGatewayRouteTableArn =
        (Option.map ~f:TransitGatewayRouteTableArn.of_xml)
          (Xml.child xml_arg0 "TransitGatewayRouteTableArn") in
      let peeringId =
        (Option.map ~f:PeeringId.of_xml) (Xml.child xml_arg0 "PeeringId") in
      let attachment =
        (Option.map ~f:Attachment.of_xml) (Xml.child xml_arg0 "Attachment") in
      make ?transitGatewayRouteTableArn ?peeringId ?attachment ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let transitGatewayRouteTableArn =
        field_map json__ "TransitGatewayRouteTableArn"
          TransitGatewayRouteTableArn.of_json in
      let peeringId = field_map json__ "PeeringId" PeeringId.of_json in
      let attachment = field_map json__ "Attachment" Attachment.of_json in
      make ?transitGatewayRouteTableArn ?peeringId ?attachment ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a transit gateway route table attachment."]
module TransitGatewayRegistrationList =
  struct
    type nonrec t = TransitGatewayRegistration.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:TransitGatewayRegistration.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:TransitGatewayRegistration.of_xml)
    let of_json j =
      list_of_json ~kind:"TransitGatewayRegistrationList"
        ~of_json:TransitGatewayRegistration.of_json j
    let to_json v = composed_to_json to_value v
  end
module TransitGatewayArnList =
  struct
    type nonrec t = TransitGatewayArn.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:TransitGatewayArn.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:TransitGatewayArn.of_xml)
    let of_json j =
      list_of_json ~kind:"TransitGatewayArnList"
        ~of_json:TransitGatewayArn.of_json j
    let to_json v = composed_to_json to_value v
  end
module TransitGatewayPeering =
  struct
    type nonrec t =
      {
      peering: Peering.t option
        [@ocaml.doc "Describes a transit gateway peer connection."];
      transitGatewayArn: TransitGatewayArn.t option
        [@ocaml.doc "The ARN of the transit gateway."];
      transitGatewayPeeringAttachmentId:
        TransitGatewayPeeringAttachmentId.t option
        [@ocaml.doc "The ID of the transit gateway peering attachment."]}
    let make ?peering =
      fun ?transitGatewayArn ->
        fun ?transitGatewayPeeringAttachmentId ->
          fun () ->
            { peering; transitGatewayArn; transitGatewayPeeringAttachmentId }
    let to_value x =
      structure_to_value
        [("Peering", (Option.map x.peering ~f:Peering.to_value));
        ("TransitGatewayArn",
          (Option.map x.transitGatewayArn ~f:TransitGatewayArn.to_value));
        ("TransitGatewayPeeringAttachmentId",
          (Option.map x.transitGatewayPeeringAttachmentId
             ~f:TransitGatewayPeeringAttachmentId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let transitGatewayPeeringAttachmentId =
        (Option.map ~f:TransitGatewayPeeringAttachmentId.of_xml)
          (Xml.child xml_arg0 "TransitGatewayPeeringAttachmentId") in
      let transitGatewayArn =
        (Option.map ~f:TransitGatewayArn.of_xml)
          (Xml.child xml_arg0 "TransitGatewayArn") in
      let peering =
        (Option.map ~f:Peering.of_xml) (Xml.child xml_arg0 "Peering") in
      make ?transitGatewayPeeringAttachmentId ?transitGatewayArn ?peering ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let transitGatewayPeeringAttachmentId =
        field_map json__ "TransitGatewayPeeringAttachmentId"
          TransitGatewayPeeringAttachmentId.of_json in
      let transitGatewayArn =
        field_map json__ "TransitGatewayArn" TransitGatewayArn.of_json in
      let peering = field_map json__ "Peering" Peering.of_json in
      make ?transitGatewayPeeringAttachmentId ?transitGatewayArn ?peering ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a transit gateway peering attachment."]
module TransitGatewayConnectPeerAssociationList =
  struct
    type nonrec t = TransitGatewayConnectPeerAssociation.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:TransitGatewayConnectPeerAssociation.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:TransitGatewayConnectPeerAssociation.of_xml)
    let of_json j =
      list_of_json ~kind:"TransitGatewayConnectPeerAssociationList"
        ~of_json:TransitGatewayConnectPeerAssociation.of_json j
    let to_json v = composed_to_json to_value v
  end
module TransitGatewayConnectPeerArnList =
  struct
    type nonrec t = TransitGatewayConnectPeerArn.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:TransitGatewayConnectPeerArn.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:TransitGatewayConnectPeerArn.of_xml)
    let of_json j =
      list_of_json ~kind:"TransitGatewayConnectPeerArnList"
        ~of_json:TransitGatewayConnectPeerArn.of_json j
    let to_json v = composed_to_json to_value v
  end
module SiteList =
  struct
    type nonrec t = Site.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:Site.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:Site.of_xml)
    let of_json j = list_of_json ~kind:"SiteList" ~of_json:Site.of_json j
    let to_json v = composed_to_json to_value v
  end
module SiteIdList =
  struct
    type nonrec t = SiteId.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:SiteId.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:SiteId.of_xml)
    let of_json j = list_of_json ~kind:"SiteIdList" ~of_json:SiteId.of_json j
    let to_json v = composed_to_json to_value v
  end
module SiteToSiteVpnAttachment =
  struct
    type nonrec t =
      {
      attachment: Attachment.t option
        [@ocaml.doc "Provides details about a site-to-site VPN attachment."];
      vpnConnectionArn: VpnConnectionArn.t option
        [@ocaml.doc "The ARN of the site-to-site VPN attachment."]}
    let make ?attachment =
      fun ?vpnConnectionArn -> fun () -> { attachment; vpnConnectionArn }
    let to_value x =
      structure_to_value
        [("Attachment", (Option.map x.attachment ~f:Attachment.to_value));
        ("VpnConnectionArn",
          (Option.map x.vpnConnectionArn ~f:VpnConnectionArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vpnConnectionArn =
        (Option.map ~f:VpnConnectionArn.of_xml)
          (Xml.child xml_arg0 "VpnConnectionArn") in
      let attachment =
        (Option.map ~f:Attachment.of_xml) (Xml.child xml_arg0 "Attachment") in
      make ?vpnConnectionArn ?attachment ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vpnConnectionArn =
        field_map json__ "VpnConnectionArn" VpnConnectionArn.of_json in
      let attachment = field_map json__ "Attachment" Attachment.of_json in
      make ?vpnConnectionArn ?attachment ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a site-to-site VPN attachment."]
module NetworkTelemetryList =
  struct
    type nonrec t = NetworkTelemetry.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:NetworkTelemetry.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:NetworkTelemetry.of_xml)
    let of_json j =
      list_of_json ~kind:"NetworkTelemetryList"
        ~of_json:NetworkTelemetry.of_json j
    let to_json v = composed_to_json to_value v
  end
module NetworkRouteList =
  struct
    type nonrec t = NetworkRoute.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:NetworkRoute.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:NetworkRoute.of_xml)
    let of_json j =
      list_of_json ~kind:"NetworkRouteList" ~of_json:NetworkRoute.of_json j
    let to_json v = composed_to_json to_value v
  end
module RouteTableType =
  struct
    type nonrec t =
      | TRANSIT_GATEWAY_ROUTE_TABLE 
      | CORE_NETWORK_SEGMENT 
      | NETWORK_FUNCTION_GROUP 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | TRANSIT_GATEWAY_ROUTE_TABLE -> "TRANSIT_GATEWAY_ROUTE_TABLE"
      | CORE_NETWORK_SEGMENT -> "CORE_NETWORK_SEGMENT"
      | NETWORK_FUNCTION_GROUP -> "NETWORK_FUNCTION_GROUP"
      | Non_static_id s -> s
    let of_string =
      function
      | "TRANSIT_GATEWAY_ROUTE_TABLE" -> TRANSIT_GATEWAY_ROUTE_TABLE
      | "CORE_NETWORK_SEGMENT" -> CORE_NETWORK_SEGMENT
      | "NETWORK_FUNCTION_GROUP" -> NETWORK_FUNCTION_GROUP
      | 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 RouteTableType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RouteTableType" j)
    let to_json = simple_to_json to_value
  end
module RouteStateList =
  struct
    type nonrec t = RouteState.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:RouteState.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:RouteState.of_xml)
    let of_json j =
      list_of_json ~kind:"RouteStateList" ~of_json:RouteState.of_json j
    let to_json v = composed_to_json to_value v
  end
module RouteTableIdentifier =
  struct
    type nonrec t =
      {
      transitGatewayRouteTableArn: TransitGatewayRouteTableArn.t option
        [@ocaml.doc
          "The ARN of the transit gateway route table for the attachment request. For example, \"TransitGatewayRouteTableArn\": \"arn:aws:ec2:us-west-2:123456789012:transit-gateway-route-table/tgw-rtb-9876543210123456\"."];
      coreNetworkSegmentEdge: CoreNetworkSegmentEdgeIdentifier.t option
        [@ocaml.doc "The segment edge in a core network."];
      coreNetworkNetworkFunctionGroup:
        CoreNetworkNetworkFunctionGroupIdentifier.t option
        [@ocaml.doc
          "The route table identifier associated with the network function group."]}
    let make ?transitGatewayRouteTableArn =
      fun ?coreNetworkSegmentEdge ->
        fun ?coreNetworkNetworkFunctionGroup ->
          fun () ->
            {
              transitGatewayRouteTableArn;
              coreNetworkSegmentEdge;
              coreNetworkNetworkFunctionGroup
            }
    let to_value x =
      structure_to_value
        [("TransitGatewayRouteTableArn",
           (Option.map x.transitGatewayRouteTableArn
              ~f:TransitGatewayRouteTableArn.to_value));
        ("CoreNetworkSegmentEdge",
          (Option.map x.coreNetworkSegmentEdge
             ~f:CoreNetworkSegmentEdgeIdentifier.to_value));
        ("CoreNetworkNetworkFunctionGroup",
          (Option.map x.coreNetworkNetworkFunctionGroup
             ~f:CoreNetworkNetworkFunctionGroupIdentifier.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let coreNetworkNetworkFunctionGroup =
        (Option.map ~f:CoreNetworkNetworkFunctionGroupIdentifier.of_xml)
          (Xml.child xml_arg0 "CoreNetworkNetworkFunctionGroup") in
      let coreNetworkSegmentEdge =
        (Option.map ~f:CoreNetworkSegmentEdgeIdentifier.of_xml)
          (Xml.child xml_arg0 "CoreNetworkSegmentEdge") in
      let transitGatewayRouteTableArn =
        (Option.map ~f:TransitGatewayRouteTableArn.of_xml)
          (Xml.child xml_arg0 "TransitGatewayRouteTableArn") in
      make ?coreNetworkNetworkFunctionGroup ?coreNetworkSegmentEdge
        ?transitGatewayRouteTableArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let coreNetworkNetworkFunctionGroup =
        field_map json__ "CoreNetworkNetworkFunctionGroup"
          CoreNetworkNetworkFunctionGroupIdentifier.of_json in
      let coreNetworkSegmentEdge =
        field_map json__ "CoreNetworkSegmentEdge"
          CoreNetworkSegmentEdgeIdentifier.of_json in
      let transitGatewayRouteTableArn =
        field_map json__ "TransitGatewayRouteTableArn"
          TransitGatewayRouteTableArn.of_json in
      make ?coreNetworkNetworkFunctionGroup ?coreNetworkSegmentEdge
        ?transitGatewayRouteTableArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a route table."]
module RouteTypeList =
  struct
    type nonrec t = RouteType.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:RouteType.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:RouteType.of_xml)
    let of_json j =
      list_of_json ~kind:"RouteTypeList" ~of_json:RouteType.of_json j
    let to_json v = composed_to_json to_value v
  end
module NetworkResourceList =
  struct
    type nonrec t = NetworkResource.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:NetworkResource.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:NetworkResource.of_xml)
    let of_json j =
      list_of_json ~kind:"NetworkResourceList"
        ~of_json:NetworkResource.of_json j
    let to_json v = composed_to_json to_value v
  end
module RelationshipList =
  struct
    type nonrec t = Relationship.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:Relationship.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:Relationship.of_xml)
    let of_json j =
      list_of_json ~kind:"RelationshipList" ~of_json:Relationship.of_json j
    let to_json v = composed_to_json to_value v
  end
module NetworkResourceCountList =
  struct
    type nonrec t = NetworkResourceCount.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:NetworkResourceCount.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:NetworkResourceCount.of_xml)
    let of_json j =
      list_of_json ~kind:"NetworkResourceCountList"
        ~of_json:NetworkResourceCount.of_json j
    let to_json v = composed_to_json to_value v
  end
module LinkList =
  struct
    type nonrec t = Link.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:Link.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:Link.of_xml)
    let of_json j = list_of_json ~kind:"LinkList" ~of_json:Link.of_json j
    let to_json v = composed_to_json to_value v
  end
module LinkIdList =
  struct
    type nonrec t = LinkId.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:LinkId.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:LinkId.of_xml)
    let of_json j = list_of_json ~kind:"LinkIdList" ~of_json:LinkId.of_json j
    let to_json v = composed_to_json to_value v
  end
module LinkAssociationList =
  struct
    type nonrec t = LinkAssociation.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:LinkAssociation.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:LinkAssociation.of_xml)
    let of_json j =
      list_of_json ~kind:"LinkAssociationList"
        ~of_json:LinkAssociation.of_json j
    let to_json v = composed_to_json to_value v
  end
module DeviceList =
  struct
    type nonrec t = Device.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:Device.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:Device.of_xml)
    let of_json j = list_of_json ~kind:"DeviceList" ~of_json:Device.of_json j
    let to_json v = composed_to_json to_value v
  end
module DeviceIdList =
  struct
    type nonrec t = DeviceId.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:DeviceId.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:DeviceId.of_xml)
    let of_json j =
      list_of_json ~kind:"DeviceIdList" ~of_json:DeviceId.of_json j
    let to_json v = composed_to_json to_value v
  end
module CustomerGatewayAssociationList =
  struct
    type nonrec t = CustomerGatewayAssociation.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:CustomerGatewayAssociation.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:CustomerGatewayAssociation.of_xml)
    let of_json j =
      list_of_json ~kind:"CustomerGatewayAssociationList"
        ~of_json:CustomerGatewayAssociation.of_json j
    let to_json v = composed_to_json to_value v
  end
module CustomerGatewayArnList =
  struct
    type nonrec t = CustomerGatewayArn.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:CustomerGatewayArn.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:CustomerGatewayArn.of_xml)
    let of_json j =
      list_of_json ~kind:"CustomerGatewayArnList"
        ~of_json:CustomerGatewayArn.of_json j
    let to_json v = composed_to_json to_value v
  end
module CoreNetworkChangeList =
  struct
    type nonrec t = CoreNetworkChange.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:CoreNetworkChange.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:CoreNetworkChange.of_xml)
    let of_json j =
      list_of_json ~kind:"CoreNetworkChangeList"
        ~of_json:CoreNetworkChange.of_json j
    let to_json v = composed_to_json to_value v
  end
module CoreNetworkChangeEventList =
  struct
    type nonrec t = CoreNetworkChangeEvent.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:CoreNetworkChangeEvent.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:CoreNetworkChangeEvent.of_xml)
    let of_json j =
      list_of_json ~kind:"CoreNetworkChangeEventList"
        ~of_json:CoreNetworkChangeEvent.of_json j
    let to_json v = composed_to_json to_value v
  end
module ConnectionList =
  struct
    type nonrec t = Connection.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:Connection.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:Connection.of_xml)
    let of_json j =
      list_of_json ~kind:"ConnectionList" ~of_json:Connection.of_json j
    let to_json v = composed_to_json to_value v
  end
module ConnectionIdList =
  struct
    type nonrec t = ConnectionId.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:ConnectionId.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:ConnectionId.of_xml)
    let of_json j =
      list_of_json ~kind:"ConnectionIdList" ~of_json:ConnectionId.of_json j
    let to_json v = composed_to_json to_value v
  end
module ConnectPeer =
  struct
    type nonrec t =
      {
      coreNetworkId: CoreNetworkId.t option
        [@ocaml.doc "The ID of a core network."];
      connectAttachmentId: AttachmentId.t option
        [@ocaml.doc "The ID of the attachment to connect."];
      connectPeerId: ConnectPeerId.t option
        [@ocaml.doc "The ID of the Connect peer."];
      edgeLocation: ExternalRegionCode.t option
        [@ocaml.doc "The Connect peer Regions where edges are located."];
      state: ConnectPeerState.t option
        [@ocaml.doc "The state of the Connect peer."];
      createdAt: DateTime.t option
        [@ocaml.doc "The timestamp when the Connect peer was created."];
      configuration: ConnectPeerConfiguration.t option
        [@ocaml.doc "The configuration of the Connect peer."];
      tags: TagList.t option
        [@ocaml.doc
          "The list of key-value tags associated with the Connect peer."];
      subnetArn: SubnetArn.t option
        [@ocaml.doc
          "The subnet ARN for the Connect peer. This only applies only when the protocol is NO_ENCAP."];
      lastModificationErrors: ConnectPeerErrorList.t option
        [@ocaml.doc
          "Describes the error associated with the attachment request."]}
    let make ?coreNetworkId =
      fun ?connectAttachmentId ->
        fun ?connectPeerId ->
          fun ?edgeLocation ->
            fun ?state ->
              fun ?createdAt ->
                fun ?configuration ->
                  fun ?tags ->
                    fun ?subnetArn ->
                      fun ?lastModificationErrors ->
                        fun () ->
                          {
                            coreNetworkId;
                            connectAttachmentId;
                            connectPeerId;
                            edgeLocation;
                            state;
                            createdAt;
                            configuration;
                            tags;
                            subnetArn;
                            lastModificationErrors
                          }
    let to_value x =
      structure_to_value
        [("CoreNetworkId",
           (Option.map x.coreNetworkId ~f:CoreNetworkId.to_value));
        ("ConnectAttachmentId",
          (Option.map x.connectAttachmentId ~f:AttachmentId.to_value));
        ("ConnectPeerId",
          (Option.map x.connectPeerId ~f:ConnectPeerId.to_value));
        ("EdgeLocation",
          (Option.map x.edgeLocation ~f:ExternalRegionCode.to_value));
        ("State", (Option.map x.state ~f:ConnectPeerState.to_value));
        ("CreatedAt", (Option.map x.createdAt ~f:DateTime.to_value));
        ("Configuration",
          (Option.map x.configuration ~f:ConnectPeerConfiguration.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("SubnetArn", (Option.map x.subnetArn ~f:SubnetArn.to_value));
        ("LastModificationErrors",
          (Option.map x.lastModificationErrors
             ~f:ConnectPeerErrorList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastModificationErrors =
        (Option.map ~f:ConnectPeerErrorList.of_xml)
          (Xml.child xml_arg0 "LastModificationErrors") in
      let subnetArn =
        (Option.map ~f:SubnetArn.of_xml) (Xml.child xml_arg0 "SubnetArn") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let configuration =
        (Option.map ~f:ConnectPeerConfiguration.of_xml)
          (Xml.child xml_arg0 "Configuration") in
      let createdAt =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "CreatedAt") in
      let state =
        (Option.map ~f:ConnectPeerState.of_xml) (Xml.child xml_arg0 "State") in
      let edgeLocation =
        (Option.map ~f:ExternalRegionCode.of_xml)
          (Xml.child xml_arg0 "EdgeLocation") in
      let connectPeerId =
        (Option.map ~f:ConnectPeerId.of_xml)
          (Xml.child xml_arg0 "ConnectPeerId") in
      let connectAttachmentId =
        (Option.map ~f:AttachmentId.of_xml)
          (Xml.child xml_arg0 "ConnectAttachmentId") in
      let coreNetworkId =
        (Option.map ~f:CoreNetworkId.of_xml)
          (Xml.child xml_arg0 "CoreNetworkId") in
      make ?lastModificationErrors ?subnetArn ?tags ?configuration ?createdAt
        ?state ?edgeLocation ?connectPeerId ?connectAttachmentId
        ?coreNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastModificationErrors =
        field_map json__ "LastModificationErrors"
          ConnectPeerErrorList.of_json in
      let subnetArn = field_map json__ "SubnetArn" SubnetArn.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let configuration =
        field_map json__ "Configuration" ConnectPeerConfiguration.of_json in
      let createdAt = field_map json__ "CreatedAt" DateTime.of_json in
      let state = field_map json__ "State" ConnectPeerState.of_json in
      let edgeLocation =
        field_map json__ "EdgeLocation" ExternalRegionCode.of_json in
      let connectPeerId =
        field_map json__ "ConnectPeerId" ConnectPeerId.of_json in
      let connectAttachmentId =
        field_map json__ "ConnectAttachmentId" AttachmentId.of_json in
      let coreNetworkId =
        field_map json__ "CoreNetworkId" CoreNetworkId.of_json in
      make ?lastModificationErrors ?subnetArn ?tags ?configuration ?createdAt
        ?state ?edgeLocation ?connectPeerId ?connectAttachmentId
        ?coreNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a core network Connect peer."]
module ConnectPeerAssociationList =
  struct
    type nonrec t = ConnectPeerAssociation.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:ConnectPeerAssociation.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:ConnectPeerAssociation.of_xml)
    let of_json j =
      list_of_json ~kind:"ConnectPeerAssociationList"
        ~of_json:ConnectPeerAssociation.of_json j
    let to_json v = composed_to_json to_value v
  end
module ConnectPeerIdList =
  struct
    type nonrec t = ConnectPeerId.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:ConnectPeerId.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:ConnectPeerId.of_xml)
    let of_json j =
      list_of_json ~kind:"ConnectPeerIdList" ~of_json:ConnectPeerId.of_json j
    let to_json v = composed_to_json to_value v
  end
module ConnectAttachment =
  struct
    type nonrec t =
      {
      attachment: Attachment.t option [@ocaml.doc "The attachment details."];
      transportAttachmentId: AttachmentId.t option
        [@ocaml.doc "The ID of the transport attachment."];
      options: ConnectAttachmentOptions.t option
        [@ocaml.doc "Options for connecting an attachment."]}
    let make ?attachment =
      fun ?transportAttachmentId ->
        fun ?options ->
          fun () -> { attachment; transportAttachmentId; options }
    let to_value x =
      structure_to_value
        [("Attachment", (Option.map x.attachment ~f:Attachment.to_value));
        ("TransportAttachmentId",
          (Option.map x.transportAttachmentId ~f:AttachmentId.to_value));
        ("Options",
          (Option.map x.options ~f:ConnectAttachmentOptions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let options =
        (Option.map ~f:ConnectAttachmentOptions.of_xml)
          (Xml.child xml_arg0 "Options") in
      let transportAttachmentId =
        (Option.map ~f:AttachmentId.of_xml)
          (Xml.child xml_arg0 "TransportAttachmentId") in
      let attachment =
        (Option.map ~f:Attachment.of_xml) (Xml.child xml_arg0 "Attachment") in
      make ?options ?transportAttachmentId ?attachment ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let options =
        field_map json__ "Options" ConnectAttachmentOptions.of_json in
      let transportAttachmentId =
        field_map json__ "TransportAttachmentId" AttachmentId.of_json in
      let attachment = field_map json__ "Attachment" Attachment.of_json in
      make ?options ?transportAttachmentId ?attachment ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a core network Connect attachment."]
module GlobalNetworkList =
  struct
    type nonrec t = GlobalNetwork.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:GlobalNetwork.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:GlobalNetwork.of_xml)
    let of_json j =
      list_of_json ~kind:"GlobalNetworkList" ~of_json:GlobalNetwork.of_json j
    let to_json v = composed_to_json to_value v
  end
module GlobalNetworkIdList =
  struct
    type nonrec t = GlobalNetworkId.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:GlobalNetworkId.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:GlobalNetworkId.of_xml)
    let of_json j =
      list_of_json ~kind:"GlobalNetworkIdList"
        ~of_json:GlobalNetworkId.of_json j
    let to_json v = composed_to_json to_value v
  end
module VpcArn =
  struct
    type nonrec t = string
    let context_ = "VpcArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:500) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^arn:[^:]{1,63}:ec2:[^:]{0,63}:[^:]{0,63}:vpc\\/vpc-[0-9a-f]{8,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:"VpcArn" j
    let to_json = simple_to_json to_value
  end
module BgpOptions =
  struct
    type nonrec t =
      {
      peerAsn: Long.t option [@ocaml.doc "The Peer ASN of the BGP."]}
    let make ?peerAsn = fun () -> { peerAsn }
    let to_value x =
      structure_to_value
        [("PeerAsn", (Option.map x.peerAsn ~f:Long.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let peerAsn =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "PeerAsn") in
      make ?peerAsn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let peerAsn = field_map json__ "PeerAsn" Long.of_json in
      make ?peerAsn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the BGP options."]
module UpdateVpcAttachmentResponse =
  struct
    type nonrec t =
      {
      vpcAttachment: VpcAttachment.t option
        [@ocaml.doc "Describes the updated VPC attachment."]}
    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 ?vpcAttachment = fun () -> { vpcAttachment }
    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
        [("VpcAttachment",
           (Option.map x.vpcAttachment ~f:VpcAttachment.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vpcAttachment =
        (Option.map ~f:VpcAttachment.of_xml)
          (Xml.child xml_arg0 "VpcAttachment") in
      make ?vpcAttachment ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vpcAttachment =
        field_map json__ "VpcAttachment" VpcAttachment.of_json in
      make ?vpcAttachment ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a VPC attachment."]
module UpdateVpcAttachmentRequest =
  struct
    type nonrec t =
      {
      attachmentId: AttachmentId.t [@ocaml.doc "The ID of the attachment."];
      addSubnetArns: SubnetArnList.t option
        [@ocaml.doc "Adds a subnet ARN to the VPC attachment."];
      removeSubnetArns: SubnetArnList.t option
        [@ocaml.doc "Removes a subnet ARN from the attachment."];
      options: VpcOptions.t option
        [@ocaml.doc "Additional options for updating the VPC attachment."]}
    let context_ = "UpdateVpcAttachmentRequest"
    let make ?addSubnetArns =
      fun ?removeSubnetArns ->
        fun ?options ->
          fun ~attachmentId ->
            fun () ->
              { addSubnetArns; removeSubnetArns; options; attachmentId }
    let to_value x =
      structure_to_value
        [("attachmentId", (Some (AttachmentId.to_value x.attachmentId)));
        ("AddSubnetArns",
          (Option.map x.addSubnetArns ~f:SubnetArnList.to_value));
        ("RemoveSubnetArns",
          (Option.map x.removeSubnetArns ~f:SubnetArnList.to_value));
        ("Options", (Option.map x.options ~f:VpcOptions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let options =
        (Option.map ~f:VpcOptions.of_xml) (Xml.child xml_arg0 "Options") in
      let removeSubnetArns =
        (Option.map ~f:SubnetArnList.of_xml)
          (Xml.child xml_arg0 "RemoveSubnetArns") in
      let addSubnetArns =
        (Option.map ~f:SubnetArnList.of_xml)
          (Xml.child xml_arg0 "AddSubnetArns") in
      let attachmentId =
        AttachmentId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "attachmentId") in
      make ?options ?removeSubnetArns ?addSubnetArns ~attachmentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let options = field_map json__ "Options" VpcOptions.of_json in
      let removeSubnetArns =
        field_map json__ "RemoveSubnetArns" SubnetArnList.of_json in
      let addSubnetArns =
        field_map json__ "AddSubnetArns" SubnetArnList.of_json in
      let attachmentId =
        field_map_exn json__ "AttachmentId" AttachmentId.of_json in
      make ?options ?removeSubnetArns ?addSubnetArns ~attachmentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a VPC attachment."]
module UpdateSiteResponse =
  struct
    type nonrec t =
      {
      site: Site.t option [@ocaml.doc "Information about the site."]}
    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 ?site = fun () -> { site }
    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 [("Site", (Option.map x.site ~f:Site.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let site = (Option.map ~f:Site.of_xml) (Xml.child xml_arg0 "Site") in
      make ?site ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let site = field_map json__ "Site" Site.of_json in make ?site ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the information for an existing site. To remove information for any of the parameters, specify an empty string."]
module UpdateSiteRequest =
  struct
    type nonrec t =
      {
      globalNetworkId: GlobalNetworkId.t
        [@ocaml.doc "The ID of the global network."];
      siteId: SiteId.t [@ocaml.doc "The ID of your site."];
      description: ConstrainedString.t option
        [@ocaml.doc
          "A description of your site. Constraints: Maximum length of 256 characters."];
      location: Location.t option
        [@ocaml.doc
          "The site location: Address: The physical address of the site. Latitude: The latitude of the site. Longitude: The longitude of the site."]}
    let context_ = "UpdateSiteRequest"
    let make ?description =
      fun ?location ->
        fun ~globalNetworkId ->
          fun ~siteId ->
            fun () -> { description; location; globalNetworkId; siteId }
    let to_value x =
      structure_to_value
        [("globalNetworkId",
           (Some (GlobalNetworkId.to_value x.globalNetworkId)));
        ("siteId", (Some (SiteId.to_value x.siteId)));
        ("Description",
          (Option.map x.description ~f:ConstrainedString.to_value));
        ("Location", (Option.map x.location ~f:Location.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let location =
        (Option.map ~f:Location.of_xml) (Xml.child xml_arg0 "Location") in
      let description =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "Description") in
      let siteId =
        SiteId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "siteId") in
      let globalNetworkId =
        GlobalNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "globalNetworkId") in
      make ?location ?description ~siteId ~globalNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let location = field_map json__ "Location" Location.of_json in
      let description =
        field_map json__ "Description" ConstrainedString.of_json in
      let siteId = field_map_exn json__ "SiteId" SiteId.of_json in
      let globalNetworkId =
        field_map_exn json__ "GlobalNetworkId" GlobalNetworkId.of_json in
      make ?location ?description ~siteId ~globalNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the information for an existing site. To remove information for any of the parameters, specify an empty string."]
module UpdateNetworkResourceMetadataResponse =
  struct
    type nonrec t =
      {
      resourceArn: ResourceArn.t option
        [@ocaml.doc "The ARN of the resource."];
      metadata: NetworkResourceMetadataMap.t option
        [@ocaml.doc "The updated resource metadata."]}
    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 ?resourceArn =
      fun ?metadata -> fun () -> { resourceArn; metadata }
    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
        [("ResourceArn", (Option.map x.resourceArn ~f:ResourceArn.to_value));
        ("Metadata",
          (Option.map x.metadata ~f:NetworkResourceMetadataMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let metadata =
        (Option.map ~f:NetworkResourceMetadataMap.of_xml)
          (Xml.child xml_arg0 "Metadata") in
      let resourceArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "ResourceArn") in
      make ?metadata ?resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let metadata =
        field_map json__ "Metadata" NetworkResourceMetadataMap.of_json in
      let resourceArn = field_map json__ "ResourceArn" ResourceArn.of_json in
      make ?metadata ?resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the resource metadata for the specified global network."]
module UpdateNetworkResourceMetadataRequest =
  struct
    type nonrec t =
      {
      globalNetworkId: GlobalNetworkId.t
        [@ocaml.doc "The ID of the global network."];
      resourceArn: ResourceArn.t [@ocaml.doc "The ARN of the resource."];
      metadata: NetworkResourceMetadataMap.t
        [@ocaml.doc "The resource metadata."]}
    let context_ = "UpdateNetworkResourceMetadataRequest"
    let make ~globalNetworkId =
      fun ~resourceArn ->
        fun ~metadata -> fun () -> { globalNetworkId; resourceArn; metadata }
    let to_value x =
      structure_to_value
        [("globalNetworkId",
           (Some (GlobalNetworkId.to_value x.globalNetworkId)));
        ("resourceArn", (Some (ResourceArn.to_value x.resourceArn)));
        ("Metadata", (Some (NetworkResourceMetadataMap.to_value x.metadata)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let metadata =
        NetworkResourceMetadataMap.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Metadata") in
      let resourceArn =
        ResourceArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      let globalNetworkId =
        GlobalNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "globalNetworkId") in
      make ~metadata ~resourceArn ~globalNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let metadata =
        field_map_exn json__ "Metadata" NetworkResourceMetadataMap.of_json in
      let resourceArn =
        field_map_exn json__ "ResourceArn" ResourceArn.of_json in
      let globalNetworkId =
        field_map_exn json__ "GlobalNetworkId" GlobalNetworkId.of_json in
      make ~metadata ~resourceArn ~globalNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the resource metadata for the specified global network."]
module UpdateLinkResponse =
  struct
    type nonrec t =
      {
      link: Link.t option [@ocaml.doc "Information about the link."]}
    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 ?link = fun () -> { link }
    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 [("Link", (Option.map x.link ~f:Link.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let link = (Option.map ~f:Link.of_xml) (Xml.child xml_arg0 "Link") in
      make ?link ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let link = field_map json__ "Link" Link.of_json in make ?link ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the details for an existing link. To remove information for any of the parameters, specify an empty string."]
module UpdateLinkRequest =
  struct
    type nonrec t =
      {
      globalNetworkId: GlobalNetworkId.t
        [@ocaml.doc "The ID of the global network."];
      linkId: LinkId.t [@ocaml.doc "The ID of the link."];
      description: ConstrainedString.t option
        [@ocaml.doc
          "A description of the link. Constraints: Maximum length of 256 characters."];
      type_: ConstrainedString.t option
        [@ocaml.doc
          "The type of the link. Constraints: Maximum length of 128 characters."];
      bandwidth: Bandwidth.t option
        [@ocaml.doc "The upload and download speed in Mbps."];
      provider: ConstrainedString.t option
        [@ocaml.doc
          "The provider of the link. Constraints: Maximum length of 128 characters."]}
    let context_ = "UpdateLinkRequest"
    let make ?description =
      fun ?type_ ->
        fun ?bandwidth ->
          fun ?provider ->
            fun ~globalNetworkId ->
              fun ~linkId ->
                fun () ->
                  {
                    description;
                    type_;
                    bandwidth;
                    provider;
                    globalNetworkId;
                    linkId
                  }
    let to_value x =
      structure_to_value
        [("globalNetworkId",
           (Some (GlobalNetworkId.to_value x.globalNetworkId)));
        ("linkId", (Some (LinkId.to_value x.linkId)));
        ("Description",
          (Option.map x.description ~f:ConstrainedString.to_value));
        ("Type", (Option.map x.type_ ~f:ConstrainedString.to_value));
        ("Bandwidth", (Option.map x.bandwidth ~f:Bandwidth.to_value));
        ("Provider", (Option.map x.provider ~f:ConstrainedString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let provider =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "Provider") in
      let bandwidth =
        (Option.map ~f:Bandwidth.of_xml) (Xml.child xml_arg0 "Bandwidth") in
      let type_ =
        (Option.map ~f:ConstrainedString.of_xml) (Xml.child xml_arg0 "Type") in
      let description =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "Description") in
      let linkId =
        LinkId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "linkId") in
      let globalNetworkId =
        GlobalNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "globalNetworkId") in
      make ?provider ?bandwidth ?type_ ?description ~linkId ~globalNetworkId
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let provider = field_map json__ "Provider" ConstrainedString.of_json in
      let bandwidth = field_map json__ "Bandwidth" Bandwidth.of_json in
      let type_ = field_map json__ "Type" ConstrainedString.of_json in
      let description =
        field_map json__ "Description" ConstrainedString.of_json in
      let linkId = field_map_exn json__ "LinkId" LinkId.of_json in
      let globalNetworkId =
        field_map_exn json__ "GlobalNetworkId" GlobalNetworkId.of_json in
      make ?provider ?bandwidth ?type_ ?description ~linkId ~globalNetworkId
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the details for an existing link. To remove information for any of the parameters, specify an empty string."]
module UpdateGlobalNetworkResponse =
  struct
    type nonrec t =
      {
      globalNetwork: GlobalNetwork.t option
        [@ocaml.doc "Information about the global network object."]}
    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 ?globalNetwork = fun () -> { globalNetwork }
    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
        [("GlobalNetwork",
           (Option.map x.globalNetwork ~f:GlobalNetwork.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let globalNetwork =
        (Option.map ~f:GlobalNetwork.of_xml)
          (Xml.child xml_arg0 "GlobalNetwork") in
      make ?globalNetwork ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let globalNetwork =
        field_map json__ "GlobalNetwork" GlobalNetwork.of_json in
      make ?globalNetwork ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates an existing global network. To remove information for any of the parameters, specify an empty string."]
module UpdateGlobalNetworkRequest =
  struct
    type nonrec t =
      {
      globalNetworkId: GlobalNetworkId.t
        [@ocaml.doc "The ID of your global network."];
      description: ConstrainedString.t option
        [@ocaml.doc
          "A description of the global network. Constraints: Maximum length of 256 characters."]}
    let context_ = "UpdateGlobalNetworkRequest"
    let make ?description =
      fun ~globalNetworkId -> fun () -> { description; globalNetworkId }
    let to_value x =
      structure_to_value
        [("globalNetworkId",
           (Some (GlobalNetworkId.to_value x.globalNetworkId)));
        ("Description",
          (Option.map x.description ~f:ConstrainedString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let description =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "Description") in
      let globalNetworkId =
        GlobalNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "globalNetworkId") in
      make ?description ~globalNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let description =
        field_map json__ "Description" ConstrainedString.of_json in
      let globalNetworkId =
        field_map_exn json__ "GlobalNetworkId" GlobalNetworkId.of_json in
      make ?description ~globalNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates an existing global network. To remove information for any of the parameters, specify an empty string."]
module UpdateDirectConnectGatewayAttachmentResponse =
  struct
    type nonrec t =
      {
      directConnectGatewayAttachment: DirectConnectGatewayAttachment.t option
        [@ocaml.doc
          "Returns details of the Direct Connect gateway attachment with the updated edge locations."]}
    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 ?directConnectGatewayAttachment =
      fun () -> { directConnectGatewayAttachment }
    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
        [("DirectConnectGatewayAttachment",
           (Option.map x.directConnectGatewayAttachment
              ~f:DirectConnectGatewayAttachment.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let directConnectGatewayAttachment =
        (Option.map ~f:DirectConnectGatewayAttachment.of_xml)
          (Xml.child xml_arg0 "DirectConnectGatewayAttachment") in
      make ?directConnectGatewayAttachment ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let directConnectGatewayAttachment =
        field_map json__ "DirectConnectGatewayAttachment"
          DirectConnectGatewayAttachment.of_json in
      make ?directConnectGatewayAttachment ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the edge locations associated with an Amazon Web Services Direct Connect gateway attachment."]
module UpdateDirectConnectGatewayAttachmentRequest =
  struct
    type nonrec t =
      {
      attachmentId: AttachmentId.t
        [@ocaml.doc
          "The ID of the Direct Connect gateway attachment for the updated edge locations."];
      edgeLocations: ExternalRegionCodeList.t option
        [@ocaml.doc
          "One or more edge locations to update for the Direct Connect gateway attachment. The updated array of edge locations overwrites the previous array of locations. EdgeLocations is only used for Direct Connect gateway attachments."]}
    let context_ = "UpdateDirectConnectGatewayAttachmentRequest"
    let make ?edgeLocations =
      fun ~attachmentId -> fun () -> { edgeLocations; attachmentId }
    let to_value x =
      structure_to_value
        [("attachmentId", (Some (AttachmentId.to_value x.attachmentId)));
        ("EdgeLocations",
          (Option.map x.edgeLocations ~f:ExternalRegionCodeList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let edgeLocations =
        (Option.map ~f:ExternalRegionCodeList.of_xml)
          (Xml.child xml_arg0 "EdgeLocations") in
      let attachmentId =
        AttachmentId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "attachmentId") in
      make ?edgeLocations ~attachmentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let edgeLocations =
        field_map json__ "EdgeLocations" ExternalRegionCodeList.of_json in
      let attachmentId =
        field_map_exn json__ "AttachmentId" AttachmentId.of_json in
      make ?edgeLocations ~attachmentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the edge locations associated with an Amazon Web Services Direct Connect gateway attachment."]
module UpdateDeviceResponse =
  struct
    type nonrec t =
      {
      device: Device.t option [@ocaml.doc "Information about the device."]}
    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 ?device = fun () -> { device }
    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
        [("Device", (Option.map x.device ~f:Device.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let device =
        (Option.map ~f:Device.of_xml) (Xml.child xml_arg0 "Device") in
      make ?device ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let device = field_map json__ "Device" Device.of_json in
      make ?device ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the details for an existing device. To remove information for any of the parameters, specify an empty string."]
module UpdateDeviceRequest =
  struct
    type nonrec t =
      {
      globalNetworkId: GlobalNetworkId.t
        [@ocaml.doc "The ID of the global network."];
      deviceId: DeviceId.t [@ocaml.doc "The ID of the device."];
      aWSLocation: AWSLocation.t option
        [@ocaml.doc
          "The Amazon Web Services location of the device, if applicable. For an on-premises device, you can omit this parameter."];
      description: ConstrainedString.t option
        [@ocaml.doc
          "A description of the device. Constraints: Maximum length of 256 characters."];
      type_: ConstrainedString.t option
        [@ocaml.doc "The type of the device."];
      vendor: ConstrainedString.t option
        [@ocaml.doc
          "The vendor of the device. Constraints: Maximum length of 128 characters."];
      model: ConstrainedString.t option
        [@ocaml.doc
          "The model of the device. Constraints: Maximum length of 128 characters."];
      serialNumber: ConstrainedString.t option
        [@ocaml.doc
          "The serial number of the device. Constraints: Maximum length of 128 characters."];
      location: Location.t option ;
      siteId: SiteId.t option [@ocaml.doc "The ID of the site."]}
    let context_ = "UpdateDeviceRequest"
    let make ?aWSLocation =
      fun ?description ->
        fun ?type_ ->
          fun ?vendor ->
            fun ?model ->
              fun ?serialNumber ->
                fun ?location ->
                  fun ?siteId ->
                    fun ~globalNetworkId ->
                      fun ~deviceId ->
                        fun () ->
                          {
                            aWSLocation;
                            description;
                            type_;
                            vendor;
                            model;
                            serialNumber;
                            location;
                            siteId;
                            globalNetworkId;
                            deviceId
                          }
    let to_value x =
      structure_to_value
        [("globalNetworkId",
           (Some (GlobalNetworkId.to_value x.globalNetworkId)));
        ("deviceId", (Some (DeviceId.to_value x.deviceId)));
        ("AWSLocation", (Option.map x.aWSLocation ~f:AWSLocation.to_value));
        ("Description",
          (Option.map x.description ~f:ConstrainedString.to_value));
        ("Type", (Option.map x.type_ ~f:ConstrainedString.to_value));
        ("Vendor", (Option.map x.vendor ~f:ConstrainedString.to_value));
        ("Model", (Option.map x.model ~f:ConstrainedString.to_value));
        ("SerialNumber",
          (Option.map x.serialNumber ~f:ConstrainedString.to_value));
        ("Location", (Option.map x.location ~f:Location.to_value));
        ("SiteId", (Option.map x.siteId ~f:SiteId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let siteId =
        (Option.map ~f:SiteId.of_xml) (Xml.child xml_arg0 "SiteId") in
      let location =
        (Option.map ~f:Location.of_xml) (Xml.child xml_arg0 "Location") in
      let serialNumber =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "SerialNumber") in
      let model =
        (Option.map ~f:ConstrainedString.of_xml) (Xml.child xml_arg0 "Model") in
      let vendor =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "Vendor") in
      let type_ =
        (Option.map ~f:ConstrainedString.of_xml) (Xml.child xml_arg0 "Type") in
      let description =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "Description") in
      let aWSLocation =
        (Option.map ~f:AWSLocation.of_xml) (Xml.child xml_arg0 "AWSLocation") in
      let deviceId =
        DeviceId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "deviceId") in
      let globalNetworkId =
        GlobalNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "globalNetworkId") in
      make ?siteId ?location ?serialNumber ?model ?vendor ?type_ ?description
        ?aWSLocation ~deviceId ~globalNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let siteId = field_map json__ "SiteId" SiteId.of_json in
      let location = field_map json__ "Location" Location.of_json in
      let serialNumber =
        field_map json__ "SerialNumber" ConstrainedString.of_json in
      let model = field_map json__ "Model" ConstrainedString.of_json in
      let vendor = field_map json__ "Vendor" ConstrainedString.of_json in
      let type_ = field_map json__ "Type" ConstrainedString.of_json in
      let description =
        field_map json__ "Description" ConstrainedString.of_json in
      let aWSLocation = field_map json__ "AWSLocation" AWSLocation.of_json in
      let deviceId = field_map_exn json__ "DeviceId" DeviceId.of_json in
      let globalNetworkId =
        field_map_exn json__ "GlobalNetworkId" GlobalNetworkId.of_json in
      make ?siteId ?location ?serialNumber ?model ?vendor ?type_ ?description
        ?aWSLocation ~deviceId ~globalNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the details for an existing device. To remove information for any of the parameters, specify an empty string."]
module UpdateCoreNetworkResponse =
  struct
    type nonrec t =
      {
      coreNetwork: CoreNetwork.t option
        [@ocaml.doc "Returns information about a core network 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 ?coreNetwork = fun () -> { coreNetwork }
    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
        [("CoreNetwork", (Option.map x.coreNetwork ~f:CoreNetwork.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let coreNetwork =
        (Option.map ~f:CoreNetwork.of_xml) (Xml.child xml_arg0 "CoreNetwork") in
      make ?coreNetwork ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let coreNetwork = field_map json__ "CoreNetwork" CoreNetwork.of_json in
      make ?coreNetwork ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the description of a core network."]
module UpdateCoreNetworkRequest =
  struct
    type nonrec t =
      {
      coreNetworkId: CoreNetworkId.t [@ocaml.doc "The ID of a core network."];
      description: ConstrainedString.t option
        [@ocaml.doc "The description of the update."]}
    let context_ = "UpdateCoreNetworkRequest"
    let make ?description =
      fun ~coreNetworkId -> fun () -> { description; coreNetworkId }
    let to_value x =
      structure_to_value
        [("coreNetworkId", (Some (CoreNetworkId.to_value x.coreNetworkId)));
        ("Description",
          (Option.map x.description ~f:ConstrainedString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let description =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "Description") in
      let coreNetworkId =
        CoreNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "coreNetworkId") in
      make ?description ~coreNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let description =
        field_map json__ "Description" ConstrainedString.of_json in
      let coreNetworkId =
        field_map_exn json__ "CoreNetworkId" CoreNetworkId.of_json in
      make ?description ~coreNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the description of a core network."]
module UpdateConnectionResponse =
  struct
    type nonrec t =
      {
      connection: Connection.t option
        [@ocaml.doc "Information about the connection."]}
    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 ?connection = fun () -> { connection }
    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
        [("Connection", (Option.map x.connection ~f:Connection.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let connection =
        (Option.map ~f:Connection.of_xml) (Xml.child xml_arg0 "Connection") in
      make ?connection ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let connection = field_map json__ "Connection" Connection.of_json in
      make ?connection ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the information for an existing connection. To remove information for any of the parameters, specify an empty string."]
module UpdateConnectionRequest =
  struct
    type nonrec t =
      {
      globalNetworkId: GlobalNetworkId.t
        [@ocaml.doc "The ID of the global network."];
      connectionId: ConnectionId.t [@ocaml.doc "The ID of the connection."];
      linkId: LinkId.t option
        [@ocaml.doc
          "The ID of the link for the first device in the connection."];
      connectedLinkId: LinkId.t option
        [@ocaml.doc
          "The ID of the link for the second device in the connection."];
      description: ConstrainedString.t option
        [@ocaml.doc
          "A description of the connection. Length Constraints: Maximum length of 256 characters."]}
    let context_ = "UpdateConnectionRequest"
    let make ?linkId =
      fun ?connectedLinkId ->
        fun ?description ->
          fun ~globalNetworkId ->
            fun ~connectionId ->
              fun () ->
                {
                  linkId;
                  connectedLinkId;
                  description;
                  globalNetworkId;
                  connectionId
                }
    let to_value x =
      structure_to_value
        [("globalNetworkId",
           (Some (GlobalNetworkId.to_value x.globalNetworkId)));
        ("connectionId", (Some (ConnectionId.to_value x.connectionId)));
        ("LinkId", (Option.map x.linkId ~f:LinkId.to_value));
        ("ConnectedLinkId",
          (Option.map x.connectedLinkId ~f:LinkId.to_value));
        ("Description",
          (Option.map x.description ~f:ConstrainedString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let description =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "Description") in
      let connectedLinkId =
        (Option.map ~f:LinkId.of_xml) (Xml.child xml_arg0 "ConnectedLinkId") in
      let linkId =
        (Option.map ~f:LinkId.of_xml) (Xml.child xml_arg0 "LinkId") in
      let connectionId =
        ConnectionId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "connectionId") in
      let globalNetworkId =
        GlobalNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "globalNetworkId") in
      make ?description ?connectedLinkId ?linkId ~connectionId
        ~globalNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let description =
        field_map json__ "Description" ConstrainedString.of_json in
      let connectedLinkId = field_map json__ "ConnectedLinkId" LinkId.of_json in
      let linkId = field_map json__ "LinkId" LinkId.of_json in
      let connectionId =
        field_map_exn json__ "ConnectionId" ConnectionId.of_json in
      let globalNetworkId =
        field_map_exn json__ "GlobalNetworkId" GlobalNetworkId.of_json in
      make ?description ?connectedLinkId ?linkId ~connectionId
        ~globalNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the information for an existing connection. To remove information for any of the parameters, specify an empty string."]
module UntagResourceResponse =
  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 "Removes tags from a specified resource."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: ResourceArn.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the resource."];
      tagKeys: TagKeyList.t
        [@ocaml.doc "The tag keys to remove from the specified resource."]}
    let context_ = "UntagResourceRequest"
    let make ~resourceArn =
      fun ~tagKeys -> fun () -> { resourceArn; tagKeys }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (ResourceArn.to_value x.resourceArn)));
        ("tagKeys", (Some (TagKeyList.to_value x.tagKeys)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagKeys =
        TagKeyList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tagKeys") in
      let resourceArn =
        ResourceArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~tagKeys ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagKeys = field_map_exn json__ "TagKeys" TagKeyList.of_json in
      let resourceArn =
        field_map_exn json__ "ResourceArn" ResourceArn.of_json in
      make ~tagKeys ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Removes tags from a specified resource."]
module TagResourceResponse =
  struct
    type nonrec t = unit
    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 () = ()
    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 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 "Tags a specified resource."]
module TagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: ResourceArn.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the resource."];
      tags: TagList.t
        [@ocaml.doc "The tags to apply to the specified resource."]}
    let context_ = "TagResourceRequest"
    let make ~resourceArn = fun ~tags -> fun () -> { resourceArn; tags }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (ResourceArn.to_value x.resourceArn)));
        ("Tags", (Some (TagList.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        TagList.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Tags") in
      let resourceArn =
        ResourceArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~tags ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map_exn json__ "Tags" TagList.of_json in
      let resourceArn =
        field_map_exn json__ "ResourceArn" ResourceArn.of_json in
      make ~tags ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Tags a specified resource."]
module StartRouteAnalysisResponse =
  struct
    type nonrec t =
      {
      routeAnalysis: RouteAnalysis.t option
        [@ocaml.doc "The route analysis."]}
    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 ?routeAnalysis = fun () -> { routeAnalysis }
    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
        [("RouteAnalysis",
           (Option.map x.routeAnalysis ~f:RouteAnalysis.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let routeAnalysis =
        (Option.map ~f:RouteAnalysis.of_xml)
          (Xml.child xml_arg0 "RouteAnalysis") in
      make ?routeAnalysis ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let routeAnalysis =
        field_map json__ "RouteAnalysis" RouteAnalysis.of_json in
      make ?routeAnalysis ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Starts analyzing the routing path between the specified source and destination. For more information, see Route Analyzer."]
module StartRouteAnalysisRequest =
  struct
    type nonrec t =
      {
      globalNetworkId: GlobalNetworkId.t
        [@ocaml.doc "The ID of the global network."];
      source: RouteAnalysisEndpointOptionsSpecification.t
        [@ocaml.doc "The source from which traffic originates."];
      destination: RouteAnalysisEndpointOptionsSpecification.t
        [@ocaml.doc "The destination."];
      includeReturnPath: Boolean.t option
        [@ocaml.doc
          "Indicates whether to analyze the return path. The default is false."];
      useMiddleboxes: Boolean.t option
        [@ocaml.doc
          "Indicates whether to include the location of middlebox appliances in the route analysis. The default is false."]}
    let context_ = "StartRouteAnalysisRequest"
    let make ?includeReturnPath =
      fun ?useMiddleboxes ->
        fun ~globalNetworkId ->
          fun ~source ->
            fun ~destination ->
              fun () ->
                {
                  includeReturnPath;
                  useMiddleboxes;
                  globalNetworkId;
                  source;
                  destination
                }
    let to_value x =
      structure_to_value
        [("globalNetworkId",
           (Some (GlobalNetworkId.to_value x.globalNetworkId)));
        ("Source",
          (Some (RouteAnalysisEndpointOptionsSpecification.to_value x.source)));
        ("Destination",
          (Some
             (RouteAnalysisEndpointOptionsSpecification.to_value
                x.destination)));
        ("IncludeReturnPath",
          (Option.map x.includeReturnPath ~f:Boolean.to_value));
        ("UseMiddleboxes", (Option.map x.useMiddleboxes ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let useMiddleboxes =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "UseMiddleboxes") in
      let includeReturnPath =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "IncludeReturnPath") in
      let destination =
        RouteAnalysisEndpointOptionsSpecification.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Destination") in
      let source =
        RouteAnalysisEndpointOptionsSpecification.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Source") in
      let globalNetworkId =
        GlobalNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "globalNetworkId") in
      make ?useMiddleboxes ?includeReturnPath ~destination ~source
        ~globalNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let useMiddleboxes = field_map json__ "UseMiddleboxes" Boolean.of_json in
      let includeReturnPath =
        field_map json__ "IncludeReturnPath" Boolean.of_json in
      let destination =
        field_map_exn json__ "Destination"
          RouteAnalysisEndpointOptionsSpecification.of_json in
      let source =
        field_map_exn json__ "Source"
          RouteAnalysisEndpointOptionsSpecification.of_json in
      let globalNetworkId =
        field_map_exn json__ "GlobalNetworkId" GlobalNetworkId.of_json in
      make ?useMiddleboxes ?includeReturnPath ~destination ~source
        ~globalNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Starts analyzing the routing path between the specified source and destination. For more information, see Route Analyzer."]
module StartOrganizationServiceAccessUpdateResponse =
  struct
    type nonrec t =
      {
      organizationStatus: OrganizationStatus.t option
        [@ocaml.doc
          "The status of the service access update request for an Amazon Web Services Organization."]}
    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 ?organizationStatus = fun () -> { organizationStatus }
    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
        [("OrganizationStatus",
           (Option.map x.organizationStatus ~f:OrganizationStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let organizationStatus =
        (Option.map ~f:OrganizationStatus.of_xml)
          (Xml.child xml_arg0 "OrganizationStatus") in
      make ?organizationStatus ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let organizationStatus =
        field_map json__ "OrganizationStatus" OrganizationStatus.of_json in
      make ?organizationStatus ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Enables the Network Manager service for an Amazon Web Services Organization. This can only be called by a management account within the organization."]
module StartOrganizationServiceAccessUpdateRequest =
  struct
    type nonrec t =
      {
      action: Action.t
        [@ocaml.doc
          "The action to take for the update request. This can be either ENABLE or DISABLE."]}
    let context_ = "StartOrganizationServiceAccessUpdateRequest"
    let make ~action = fun () -> { action }
    let to_value x =
      structure_to_value [("Action", (Some (Action.to_value x.action)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let action =
        Action.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Action") in
      make ~action ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let action = field_map_exn json__ "Action" Action.of_json in
      make ~action ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Enables the Network Manager service for an Amazon Web Services Organization. This can only be called by a management account within the organization."]
module RestoreCoreNetworkPolicyVersionResponse =
  struct
    type nonrec t =
      {
      coreNetworkPolicy: CoreNetworkPolicy.t option
        [@ocaml.doc "Describes the restored core network 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 ?coreNetworkPolicy = fun () -> { coreNetworkPolicy }
    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
        [("CoreNetworkPolicy",
           (Option.map x.coreNetworkPolicy ~f:CoreNetworkPolicy.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let coreNetworkPolicy =
        (Option.map ~f:CoreNetworkPolicy.of_xml)
          (Xml.child xml_arg0 "CoreNetworkPolicy") in
      make ?coreNetworkPolicy ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let coreNetworkPolicy =
        field_map json__ "CoreNetworkPolicy" CoreNetworkPolicy.of_json in
      make ?coreNetworkPolicy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Restores a previous policy version as a new, immutable version of a core network policy. A subsequent change set is created showing the differences between the LIVE policy and restored policy."]
module RestoreCoreNetworkPolicyVersionRequest =
  struct
    type nonrec t =
      {
      coreNetworkId: CoreNetworkId.t [@ocaml.doc "The ID of a core network."];
      policyVersionId: Integer.t
        [@ocaml.doc "The ID of the policy version to restore."]}
    let context_ = "RestoreCoreNetworkPolicyVersionRequest"
    let make ~coreNetworkId =
      fun ~policyVersionId -> fun () -> { coreNetworkId; policyVersionId }
    let to_value x =
      structure_to_value
        [("coreNetworkId", (Some (CoreNetworkId.to_value x.coreNetworkId)));
        ("policyVersionId", (Some (Integer.to_value x.policyVersionId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policyVersionId =
        Integer.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "policyVersionId") in
      let coreNetworkId =
        CoreNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "coreNetworkId") in
      make ~policyVersionId ~coreNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let policyVersionId =
        field_map_exn json__ "PolicyVersionId" Integer.of_json in
      let coreNetworkId =
        field_map_exn json__ "CoreNetworkId" CoreNetworkId.of_json in
      make ~policyVersionId ~coreNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Restores a previous policy version as a new, immutable version of a core network policy. A subsequent change set is created showing the differences between the LIVE policy and restored policy."]
module RemoveAttachmentRoutingPolicyLabelResponse =
  struct
    type nonrec t =
      {
      coreNetworkId: CoreNetworkId.t option
        [@ocaml.doc "The ID of the core network containing the attachment."];
      attachmentId: AttachmentId.t option
        [@ocaml.doc
          "The ID of the attachment from which the routing policy label was removed."];
      routingPolicyLabel: ConstrainedString.t option
        [@ocaml.doc
          "The routing policy label that was removed from the attachment."]}
    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 ?coreNetworkId =
      fun ?attachmentId ->
        fun ?routingPolicyLabel ->
          fun () -> { coreNetworkId; attachmentId; routingPolicyLabel }
    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
        [("CoreNetworkId",
           (Option.map x.coreNetworkId ~f:CoreNetworkId.to_value));
        ("AttachmentId",
          (Option.map x.attachmentId ~f:AttachmentId.to_value));
        ("RoutingPolicyLabel",
          (Option.map x.routingPolicyLabel ~f:ConstrainedString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let routingPolicyLabel =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "RoutingPolicyLabel") in
      let attachmentId =
        (Option.map ~f:AttachmentId.of_xml)
          (Xml.child xml_arg0 "AttachmentId") in
      let coreNetworkId =
        (Option.map ~f:CoreNetworkId.of_xml)
          (Xml.child xml_arg0 "CoreNetworkId") in
      make ?routingPolicyLabel ?attachmentId ?coreNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let routingPolicyLabel =
        field_map json__ "RoutingPolicyLabel" ConstrainedString.of_json in
      let attachmentId = field_map json__ "AttachmentId" AttachmentId.of_json in
      let coreNetworkId =
        field_map json__ "CoreNetworkId" CoreNetworkId.of_json in
      make ?routingPolicyLabel ?attachmentId ?coreNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Removes a routing policy label from an attachment."]
module RemoveAttachmentRoutingPolicyLabelRequest =
  struct
    type nonrec t =
      {
      coreNetworkId: CoreNetworkId.t
        [@ocaml.doc "The ID of the core network containing the attachment."];
      attachmentId: AttachmentId.t
        [@ocaml.doc
          "The ID of the attachment to remove the routing policy label from."]}
    let context_ = "RemoveAttachmentRoutingPolicyLabelRequest"
    let make ~coreNetworkId =
      fun ~attachmentId -> fun () -> { coreNetworkId; attachmentId }
    let to_value x =
      structure_to_value
        [("coreNetworkId", (Some (CoreNetworkId.to_value x.coreNetworkId)));
        ("attachmentId", (Some (AttachmentId.to_value x.attachmentId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attachmentId =
        AttachmentId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "attachmentId") in
      let coreNetworkId =
        CoreNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "coreNetworkId") in
      make ~attachmentId ~coreNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attachmentId =
        field_map_exn json__ "AttachmentId" AttachmentId.of_json in
      let coreNetworkId =
        field_map_exn json__ "CoreNetworkId" CoreNetworkId.of_json in
      make ~attachmentId ~coreNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Removes a routing policy label from an attachment."]
module RejectAttachmentResponse =
  struct
    type nonrec t =
      {
      attachment: Attachment.t option
        [@ocaml.doc "Describes the rejected attachment request."]}
    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 ?attachment = fun () -> { attachment }
    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
        [("Attachment", (Option.map x.attachment ~f:Attachment.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attachment =
        (Option.map ~f:Attachment.of_xml) (Xml.child xml_arg0 "Attachment") in
      make ?attachment ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attachment = field_map json__ "Attachment" Attachment.of_json in
      make ?attachment ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Rejects a core network attachment request."]
module RejectAttachmentRequest =
  struct
    type nonrec t =
      {
      attachmentId: AttachmentId.t [@ocaml.doc "The ID of the attachment."]}
    let context_ = "RejectAttachmentRequest"
    let make ~attachmentId = fun () -> { attachmentId }
    let to_value x =
      structure_to_value
        [("attachmentId", (Some (AttachmentId.to_value x.attachmentId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attachmentId =
        AttachmentId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "attachmentId") in
      make ~attachmentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attachmentId =
        field_map_exn json__ "AttachmentId" AttachmentId.of_json in
      make ~attachmentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Rejects a core network attachment request."]
module RegisterTransitGatewayResponse =
  struct
    type nonrec t =
      {
      transitGatewayRegistration: TransitGatewayRegistration.t option
        [@ocaml.doc "Information about the transit gateway registration."]}
    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 ?transitGatewayRegistration =
      fun () -> { transitGatewayRegistration }
    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
        [("TransitGatewayRegistration",
           (Option.map x.transitGatewayRegistration
              ~f:TransitGatewayRegistration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let transitGatewayRegistration =
        (Option.map ~f:TransitGatewayRegistration.of_xml)
          (Xml.child xml_arg0 "TransitGatewayRegistration") in
      make ?transitGatewayRegistration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let transitGatewayRegistration =
        field_map json__ "TransitGatewayRegistration"
          TransitGatewayRegistration.of_json in
      make ?transitGatewayRegistration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Registers a transit gateway in your global network. Not all Regions support transit gateways for global networks. For a list of the supported Regions, see Region Availability in the Amazon Web Services Transit Gateways for Global Networks User Guide. The transit gateway can be in any of the supported Amazon Web Services Regions, but it must be owned by the same Amazon Web Services account that owns the global network. You cannot register a transit gateway in more than one global network."]
module RegisterTransitGatewayRequest =
  struct
    type nonrec t =
      {
      globalNetworkId: GlobalNetworkId.t
        [@ocaml.doc "The ID of the global network."];
      transitGatewayArn: TransitGatewayArn.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the transit gateway."]}
    let context_ = "RegisterTransitGatewayRequest"
    let make ~globalNetworkId =
      fun ~transitGatewayArn ->
        fun () -> { globalNetworkId; transitGatewayArn }
    let to_value x =
      structure_to_value
        [("globalNetworkId",
           (Some (GlobalNetworkId.to_value x.globalNetworkId)));
        ("TransitGatewayArn",
          (Some (TransitGatewayArn.to_value x.transitGatewayArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let transitGatewayArn =
        TransitGatewayArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TransitGatewayArn") in
      let globalNetworkId =
        GlobalNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "globalNetworkId") in
      make ~transitGatewayArn ~globalNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let transitGatewayArn =
        field_map_exn json__ "TransitGatewayArn" TransitGatewayArn.of_json in
      let globalNetworkId =
        field_map_exn json__ "GlobalNetworkId" GlobalNetworkId.of_json in
      make ~transitGatewayArn ~globalNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Registers a transit gateway in your global network. Not all Regions support transit gateways for global networks. For a list of the supported Regions, see Region Availability in the Amazon Web Services Transit Gateways for Global Networks User Guide. The transit gateway can be in any of the supported Amazon Web Services Regions, but it must be owned by the same Amazon Web Services account that owns the global network. You cannot register a transit gateway in more than one global network."]
module PutResourcePolicyResponse =
  struct
    type nonrec t = unit
    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 () = ()
    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 of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates or updates a resource policy."]
module PutResourcePolicyRequest =
  struct
    type nonrec t =
      {
      policyDocument: ResourcePolicyDocument.t
        [@ocaml.doc "The JSON resource policy document."];
      resourceArn: ResourceArn.t
        [@ocaml.doc "The ARN of the resource policy."]}
    let context_ = "PutResourcePolicyRequest"
    let make ~policyDocument =
      fun ~resourceArn -> fun () -> { policyDocument; resourceArn }
    let to_value x =
      structure_to_value
        [("PolicyDocument",
           (Some (ResourcePolicyDocument.to_value x.policyDocument)));
        ("resourceArn", (Some (ResourceArn.to_value x.resourceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        ResourceArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      let policyDocument =
        ResourcePolicyDocument.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PolicyDocument") in
      make ~resourceArn ~policyDocument ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceArn =
        field_map_exn json__ "ResourceArn" ResourceArn.of_json in
      let policyDocument =
        field_map_exn json__ "PolicyDocument" ResourcePolicyDocument.of_json in
      make ~resourceArn ~policyDocument ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates or updates a resource policy."]
module PutCoreNetworkPolicyResponse =
  struct
    type nonrec t =
      {
      coreNetworkPolicy: CoreNetworkPolicy.t option
        [@ocaml.doc "Describes the changed core network policy."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `CoreNetworkPolicyException of CoreNetworkPolicyException.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 ?coreNetworkPolicy = fun () -> { coreNetworkPolicy }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "CoreNetworkPolicyException" ->
          `CoreNetworkPolicyException
            (CoreNetworkPolicyException.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)
      | "CoreNetworkPolicyException" ->
          `CoreNetworkPolicyException (CoreNetworkPolicyException.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))]
      | `CoreNetworkPolicyException e ->
          `Assoc
            [("error", (`String "CoreNetworkPolicyException"));
            ("details", (CoreNetworkPolicyException.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
        [("CoreNetworkPolicy",
           (Option.map x.coreNetworkPolicy ~f:CoreNetworkPolicy.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let coreNetworkPolicy =
        (Option.map ~f:CoreNetworkPolicy.of_xml)
          (Xml.child xml_arg0 "CoreNetworkPolicy") in
      make ?coreNetworkPolicy ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let coreNetworkPolicy =
        field_map json__ "CoreNetworkPolicy" CoreNetworkPolicy.of_json in
      make ?coreNetworkPolicy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new, immutable version of a core network policy. A subsequent change set is created showing the differences between the LIVE policy and the submitted policy."]
module PutCoreNetworkPolicyRequest =
  struct
    type nonrec t =
      {
      coreNetworkId: CoreNetworkId.t [@ocaml.doc "The ID of a core network."];
      policyDocument: CoreNetworkPolicyDocument.t
        [@ocaml.doc "The policy document."];
      description: ConstrainedString.t option
        [@ocaml.doc "a core network policy description."];
      latestVersionId: Integer.t option
        [@ocaml.doc "The ID of a core network policy."];
      clientToken: ClientToken.t option
        [@ocaml.doc "The client token associated with the request."]}
    let context_ = "PutCoreNetworkPolicyRequest"
    let make ?description =
      fun ?latestVersionId ->
        fun ?clientToken ->
          fun ~coreNetworkId ->
            fun ~policyDocument ->
              fun () ->
                {
                  description;
                  latestVersionId;
                  clientToken;
                  coreNetworkId;
                  policyDocument
                }
    let to_value x =
      structure_to_value
        [("coreNetworkId", (Some (CoreNetworkId.to_value x.coreNetworkId)));
        ("PolicyDocument",
          (Some (CoreNetworkPolicyDocument.to_value x.policyDocument)));
        ("Description",
          (Option.map x.description ~f:ConstrainedString.to_value));
        ("LatestVersionId",
          (Option.map x.latestVersionId ~f:Integer.to_value));
        ("ClientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "ClientToken") in
      let latestVersionId =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "LatestVersionId") in
      let description =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "Description") in
      let policyDocument =
        CoreNetworkPolicyDocument.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PolicyDocument") in
      let coreNetworkId =
        CoreNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "coreNetworkId") in
      make ?clientToken ?latestVersionId ?description ~policyDocument
        ~coreNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "ClientToken" ClientToken.of_json in
      let latestVersionId =
        field_map json__ "LatestVersionId" Integer.of_json in
      let description =
        field_map json__ "Description" ConstrainedString.of_json in
      let policyDocument =
        field_map_exn json__ "PolicyDocument"
          CoreNetworkPolicyDocument.of_json in
      let coreNetworkId =
        field_map_exn json__ "CoreNetworkId" CoreNetworkId.of_json in
      make ?clientToken ?latestVersionId ?description ~policyDocument
        ~coreNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new, immutable version of a core network policy. A subsequent change set is created showing the differences between the LIVE policy and the submitted policy."]
module PutAttachmentRoutingPolicyLabelResponse =
  struct
    type nonrec t =
      {
      coreNetworkId: CoreNetworkId.t option
        [@ocaml.doc "The ID of the core network containing the attachment."];
      attachmentId: AttachmentId.t option
        [@ocaml.doc
          "The ID of the attachment that received the routing policy label."];
      routingPolicyLabel: ConstrainedString.t option
        [@ocaml.doc
          "The routing policy label that was applied to the attachment."]}
    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 ?coreNetworkId =
      fun ?attachmentId ->
        fun ?routingPolicyLabel ->
          fun () -> { coreNetworkId; attachmentId; routingPolicyLabel }
    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
        [("CoreNetworkId",
           (Option.map x.coreNetworkId ~f:CoreNetworkId.to_value));
        ("AttachmentId",
          (Option.map x.attachmentId ~f:AttachmentId.to_value));
        ("RoutingPolicyLabel",
          (Option.map x.routingPolicyLabel ~f:ConstrainedString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let routingPolicyLabel =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "RoutingPolicyLabel") in
      let attachmentId =
        (Option.map ~f:AttachmentId.of_xml)
          (Xml.child xml_arg0 "AttachmentId") in
      let coreNetworkId =
        (Option.map ~f:CoreNetworkId.of_xml)
          (Xml.child xml_arg0 "CoreNetworkId") in
      make ?routingPolicyLabel ?attachmentId ?coreNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let routingPolicyLabel =
        field_map json__ "RoutingPolicyLabel" ConstrainedString.of_json in
      let attachmentId = field_map json__ "AttachmentId" AttachmentId.of_json in
      let coreNetworkId =
        field_map json__ "CoreNetworkId" CoreNetworkId.of_json in
      make ?routingPolicyLabel ?attachmentId ?coreNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Applies a routing policy label to an attachment for traffic routing decisions."]
module PutAttachmentRoutingPolicyLabelRequest =
  struct
    type nonrec t =
      {
      coreNetworkId: CoreNetworkId.t
        [@ocaml.doc "The ID of the core network containing the attachment."];
      attachmentId: AttachmentId.t
        [@ocaml.doc
          "The ID of the attachment to apply the routing policy label to."];
      routingPolicyLabel: ConstrainedString.t
        [@ocaml.doc "The routing policy label to apply to the attachment."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A unique, case-sensitive identifier that you provide to ensure the idempotency of the request."]}
    let context_ = "PutAttachmentRoutingPolicyLabelRequest"
    let make ?clientToken =
      fun ~coreNetworkId ->
        fun ~attachmentId ->
          fun ~routingPolicyLabel ->
            fun () ->
              { clientToken; coreNetworkId; attachmentId; routingPolicyLabel
              }
    let to_value x =
      structure_to_value
        [("CoreNetworkId", (Some (CoreNetworkId.to_value x.coreNetworkId)));
        ("AttachmentId", (Some (AttachmentId.to_value x.attachmentId)));
        ("RoutingPolicyLabel",
          (Some (ConstrainedString.to_value x.routingPolicyLabel)));
        ("ClientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "ClientToken") in
      let routingPolicyLabel =
        ConstrainedString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RoutingPolicyLabel") in
      let attachmentId =
        AttachmentId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AttachmentId") in
      let coreNetworkId =
        CoreNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "CoreNetworkId") in
      make ?clientToken ~routingPolicyLabel ~attachmentId ~coreNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "ClientToken" ClientToken.of_json in
      let routingPolicyLabel =
        field_map_exn json__ "RoutingPolicyLabel" ConstrainedString.of_json in
      let attachmentId =
        field_map_exn json__ "AttachmentId" AttachmentId.of_json in
      let coreNetworkId =
        field_map_exn json__ "CoreNetworkId" CoreNetworkId.of_json in
      make ?clientToken ~routingPolicyLabel ~attachmentId ~coreNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Applies a routing policy label to an attachment for traffic routing decisions."]
module ListTagsForResourceResponse =
  struct
    type nonrec t =
      {
      tagList: TagList.t option [@ocaml.doc "The list of tags."]}
    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 ?tagList = fun () -> { tagList }
    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
        [("TagList", (Option.map x.tagList ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagList =
        (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "TagList") in
      make ?tagList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagList = field_map json__ "TagList" TagList.of_json in
      make ?tagList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the tags for a specified resource."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: ResourceArn.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 (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 "Lists the tags for a specified resource."]
module ListPeeringsResponse =
  struct
    type nonrec t =
      {
      peerings: PeeringList.t option
        [@ocaml.doc
          "Lists the transit gateway peerings for the ListPeerings request."];
      nextToken: NextToken.t option
        [@ocaml.doc "The 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 ?peerings = fun ?nextToken -> fun () -> { peerings; 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
        [("Peerings", (Option.map x.peerings ~f:PeeringList.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 peerings =
        (Option.map ~f:PeeringList.of_xml) (Xml.child xml_arg0 "Peerings") in
      make ?nextToken ?peerings ()
    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 peerings = field_map json__ "Peerings" PeeringList.of_json in
      make ?nextToken ?peerings ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the peerings for a core network."]
module ListPeeringsRequest =
  struct
    type nonrec t =
      {
      coreNetworkId: CoreNetworkId.t option
        [@ocaml.doc "The ID of a core network."];
      peeringType: PeeringType.t option
        [@ocaml.doc "Returns a list of a peering requests."];
      edgeLocation: ExternalRegionCode.t option
        [@ocaml.doc "Returns a list edge locations for the"];
      state: PeeringState.t option
        [@ocaml.doc "Returns a list of the peering request states."];
      maxResults: MaxResults.t option
        [@ocaml.doc "The maximum number of results to return."];
      nextToken: NextToken.t option
        [@ocaml.doc "The token for the next page of results."]}
    let make ?coreNetworkId =
      fun ?peeringType ->
        fun ?edgeLocation ->
          fun ?state ->
            fun ?maxResults ->
              fun ?nextToken ->
                fun () ->
                  {
                    coreNetworkId;
                    peeringType;
                    edgeLocation;
                    state;
                    maxResults;
                    nextToken
                  }
    let to_value x =
      structure_to_value
        [("coreNetworkId",
           (Option.map x.coreNetworkId ~f:CoreNetworkId.to_value));
        ("peeringType", (Option.map x.peeringType ~f:PeeringType.to_value));
        ("edgeLocation",
          (Option.map x.edgeLocation ~f:ExternalRegionCode.to_value));
        ("state", (Option.map x.state ~f:PeeringState.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 state =
        (Option.map ~f:PeeringState.of_xml) (Xml.child xml_arg0 "state") in
      let edgeLocation =
        (Option.map ~f:ExternalRegionCode.of_xml)
          (Xml.child xml_arg0 "edgeLocation") in
      let peeringType =
        (Option.map ~f:PeeringType.of_xml) (Xml.child xml_arg0 "peeringType") in
      let coreNetworkId =
        (Option.map ~f:CoreNetworkId.of_xml)
          (Xml.child xml_arg0 "coreNetworkId") in
      make ?nextToken ?maxResults ?state ?edgeLocation ?peeringType
        ?coreNetworkId ()
    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 state = field_map json__ "State" PeeringState.of_json in
      let edgeLocation =
        field_map json__ "EdgeLocation" ExternalRegionCode.of_json in
      let peeringType = field_map json__ "PeeringType" PeeringType.of_json in
      let coreNetworkId =
        field_map json__ "CoreNetworkId" CoreNetworkId.of_json in
      make ?nextToken ?maxResults ?state ?edgeLocation ?peeringType
        ?coreNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the peerings for a core network."]
module ListOrganizationServiceAccessStatusResponse =
  struct
    type nonrec t =
      {
      organizationStatus: OrganizationStatus.t option
        [@ocaml.doc
          "Displays the status of an Amazon Web Services Organization."];
      nextToken: NextToken.t option
        [@ocaml.doc "The token for the next page of results."]}
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?organizationStatus =
      fun ?nextToken -> fun () -> { organizationStatus; nextToken }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `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
        [("OrganizationStatus",
           (Option.map x.organizationStatus ~f:OrganizationStatus.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 organizationStatus =
        (Option.map ~f:OrganizationStatus.of_xml)
          (Xml.child xml_arg0 "OrganizationStatus") in
      make ?nextToken ?organizationStatus ()
    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 organizationStatus =
        field_map json__ "OrganizationStatus" OrganizationStatus.of_json in
      make ?nextToken ?organizationStatus ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the status of the Service Linked Role (SLR) deployment for the accounts in a given Amazon Web Services Organization."]
module ListOrganizationServiceAccessStatusRequest =
  struct
    type nonrec t =
      {
      maxResults: MaxResults.t option
        [@ocaml.doc "The maximum number of results to return."];
      nextToken: NextToken.t option
        [@ocaml.doc "The 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
       "Gets the status of the Service Linked Role (SLR) deployment for the accounts in a given Amazon Web Services Organization."]
module ListCoreNetworksResponse =
  struct
    type nonrec t =
      {
      coreNetworks: CoreNetworkSummaryList.t option
        [@ocaml.doc "Describes the list of core networks."];
      nextToken: NextToken.t option
        [@ocaml.doc "The 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 ?coreNetworks =
      fun ?nextToken -> fun () -> { coreNetworks; 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
        [("CoreNetworks",
           (Option.map x.coreNetworks ~f:CoreNetworkSummaryList.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 coreNetworks =
        (Option.map ~f:CoreNetworkSummaryList.of_xml)
          (Xml.child xml_arg0 "CoreNetworks") in
      make ?nextToken ?coreNetworks ()
    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 coreNetworks =
        field_map json__ "CoreNetworks" CoreNetworkSummaryList.of_json in
      make ?nextToken ?coreNetworks ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a list of owned and shared core networks."]
module ListCoreNetworksRequest =
  struct
    type nonrec t =
      {
      maxResults: MaxResults.t option
        [@ocaml.doc "The maximum number of results to return."];
      nextToken: NextToken.t option
        [@ocaml.doc "The 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 "Returns a list of owned and shared core networks."]
module ListCoreNetworkRoutingInformationResponse =
  struct
    type nonrec t =
      {
      coreNetworkRoutingInformation:
        CoreNetworkRoutingInformationList.t option
        [@ocaml.doc "The list of routing information for the core network."];
      nextToken: NextToken.t option
        [@ocaml.doc "The 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 ?coreNetworkRoutingInformation =
      fun ?nextToken ->
        fun () -> { coreNetworkRoutingInformation; 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
        [("CoreNetworkRoutingInformation",
           (Option.map x.coreNetworkRoutingInformation
              ~f:CoreNetworkRoutingInformationList.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 coreNetworkRoutingInformation =
        (Option.map ~f:CoreNetworkRoutingInformationList.of_xml)
          (Xml.child xml_arg0 "CoreNetworkRoutingInformation") in
      make ?nextToken ?coreNetworkRoutingInformation ()
    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 coreNetworkRoutingInformation =
        field_map json__ "CoreNetworkRoutingInformation"
          CoreNetworkRoutingInformationList.of_json in
      make ?nextToken ?coreNetworkRoutingInformation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists routing information for a core network, including routes and their attributes."]
module ListCoreNetworkRoutingInformationRequest =
  struct
    type nonrec t =
      {
      coreNetworkId: CoreNetworkId.t
        [@ocaml.doc
          "The ID of the core network to retrieve routing information for."];
      segmentName: ConstrainedString.t
        [@ocaml.doc
          "The name of the segment to filter routing information by."];
      edgeLocation: ExternalRegionCode.t
        [@ocaml.doc "The edge location to filter routing information by."];
      nextHopFilters: FilterMap.t option
        [@ocaml.doc "Filters to apply based on next hop information."];
      localPreferenceMatches: ConstrainedStringList.t option
        [@ocaml.doc
          "Local preference values to match when filtering routing information."];
      exactAsPathMatches: ConstrainedStringList.t option
        [@ocaml.doc
          "Exact AS path values to match when filtering routing information."];
      medMatches: ConstrainedStringList.t option
        [@ocaml.doc
          "Multi-Exit Discriminator (MED) values to match when filtering routing information."];
      communityMatches: ConstrainedStringList.t option
        [@ocaml.doc
          "BGP community values to match when filtering routing information."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of routing information entries to return in a single page."];
      nextToken: NextToken.t option
        [@ocaml.doc "The token for the next page of results."]}
    let context_ = "ListCoreNetworkRoutingInformationRequest"
    let make ?nextHopFilters =
      fun ?localPreferenceMatches ->
        fun ?exactAsPathMatches ->
          fun ?medMatches ->
            fun ?communityMatches ->
              fun ?maxResults ->
                fun ?nextToken ->
                  fun ~coreNetworkId ->
                    fun ~segmentName ->
                      fun ~edgeLocation ->
                        fun () ->
                          {
                            nextHopFilters;
                            localPreferenceMatches;
                            exactAsPathMatches;
                            medMatches;
                            communityMatches;
                            maxResults;
                            nextToken;
                            coreNetworkId;
                            segmentName;
                            edgeLocation
                          }
    let to_value x =
      structure_to_value
        [("coreNetworkId", (Some (CoreNetworkId.to_value x.coreNetworkId)));
        ("SegmentName", (Some (ConstrainedString.to_value x.segmentName)));
        ("EdgeLocation", (Some (ExternalRegionCode.to_value x.edgeLocation)));
        ("NextHopFilters",
          (Option.map x.nextHopFilters ~f:FilterMap.to_value));
        ("LocalPreferenceMatches",
          (Option.map x.localPreferenceMatches
             ~f:ConstrainedStringList.to_value));
        ("ExactAsPathMatches",
          (Option.map x.exactAsPathMatches ~f:ConstrainedStringList.to_value));
        ("MedMatches",
          (Option.map x.medMatches ~f:ConstrainedStringList.to_value));
        ("CommunityMatches",
          (Option.map x.communityMatches ~f:ConstrainedStringList.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 communityMatches =
        (Option.map ~f:ConstrainedStringList.of_xml)
          (Xml.child xml_arg0 "CommunityMatches") in
      let medMatches =
        (Option.map ~f:ConstrainedStringList.of_xml)
          (Xml.child xml_arg0 "MedMatches") in
      let exactAsPathMatches =
        (Option.map ~f:ConstrainedStringList.of_xml)
          (Xml.child xml_arg0 "ExactAsPathMatches") in
      let localPreferenceMatches =
        (Option.map ~f:ConstrainedStringList.of_xml)
          (Xml.child xml_arg0 "LocalPreferenceMatches") in
      let nextHopFilters =
        (Option.map ~f:FilterMap.of_xml)
          (Xml.child xml_arg0 "NextHopFilters") in
      let edgeLocation =
        ExternalRegionCode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EdgeLocation") in
      let segmentName =
        ConstrainedString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SegmentName") in
      let coreNetworkId =
        CoreNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "coreNetworkId") in
      make ?nextToken ?maxResults ?communityMatches ?medMatches
        ?exactAsPathMatches ?localPreferenceMatches ?nextHopFilters
        ~edgeLocation ~segmentName ~coreNetworkId ()
    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 communityMatches =
        field_map json__ "CommunityMatches" ConstrainedStringList.of_json in
      let medMatches =
        field_map json__ "MedMatches" ConstrainedStringList.of_json in
      let exactAsPathMatches =
        field_map json__ "ExactAsPathMatches" ConstrainedStringList.of_json in
      let localPreferenceMatches =
        field_map json__ "LocalPreferenceMatches"
          ConstrainedStringList.of_json in
      let nextHopFilters =
        field_map json__ "NextHopFilters" FilterMap.of_json in
      let edgeLocation =
        field_map_exn json__ "EdgeLocation" ExternalRegionCode.of_json in
      let segmentName =
        field_map_exn json__ "SegmentName" ConstrainedString.of_json in
      let coreNetworkId =
        field_map_exn json__ "CoreNetworkId" CoreNetworkId.of_json in
      make ?nextToken ?maxResults ?communityMatches ?medMatches
        ?exactAsPathMatches ?localPreferenceMatches ?nextHopFilters
        ~edgeLocation ~segmentName ~coreNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists routing information for a core network, including routes and their attributes."]
module ListCoreNetworkPrefixListAssociationsResponse =
  struct
    type nonrec t =
      {
      prefixListAssociations: PrefixListAssociationList.t option
        [@ocaml.doc
          "The list of prefix list associations for the core network."];
      nextToken: NextToken.t option
        [@ocaml.doc "The 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 ?prefixListAssociations =
      fun ?nextToken -> fun () -> { prefixListAssociations; 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
        [("PrefixListAssociations",
           (Option.map x.prefixListAssociations
              ~f:PrefixListAssociationList.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 prefixListAssociations =
        (Option.map ~f:PrefixListAssociationList.of_xml)
          (Xml.child xml_arg0 "PrefixListAssociations") in
      make ?nextToken ?prefixListAssociations ()
    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 prefixListAssociations =
        field_map json__ "PrefixListAssociations"
          PrefixListAssociationList.of_json in
      make ?nextToken ?prefixListAssociations ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the prefix list associations for a core network."]
module ListCoreNetworkPrefixListAssociationsRequest =
  struct
    type nonrec t =
      {
      coreNetworkId: CoreNetworkId.t
        [@ocaml.doc
          "The ID of the core network to list prefix list associations for."];
      prefixListArn: PrefixListArn.t option
        [@ocaml.doc
          "The ARN of a specific prefix list to filter the associations."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to return in a single page."];
      nextToken: NextToken.t option
        [@ocaml.doc "The token for the next page of results."]}
    let context_ = "ListCoreNetworkPrefixListAssociationsRequest"
    let make ?prefixListArn =
      fun ?maxResults ->
        fun ?nextToken ->
          fun ~coreNetworkId ->
            fun () -> { prefixListArn; maxResults; nextToken; coreNetworkId }
    let to_value x =
      structure_to_value
        [("coreNetworkId", (Some (CoreNetworkId.to_value x.coreNetworkId)));
        ("prefixListArn",
          (Option.map x.prefixListArn ~f:PrefixListArn.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 prefixListArn =
        (Option.map ~f:PrefixListArn.of_xml)
          (Xml.child xml_arg0 "prefixListArn") in
      let coreNetworkId =
        CoreNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "coreNetworkId") in
      make ?nextToken ?maxResults ?prefixListArn ~coreNetworkId ()
    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 prefixListArn =
        field_map json__ "PrefixListArn" PrefixListArn.of_json in
      let coreNetworkId =
        field_map_exn json__ "CoreNetworkId" CoreNetworkId.of_json in
      make ?nextToken ?maxResults ?prefixListArn ~coreNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the prefix list associations for a core network."]
module ListCoreNetworkPolicyVersionsResponse =
  struct
    type nonrec t =
      {
      coreNetworkPolicyVersions: CoreNetworkPolicyVersionList.t option
        [@ocaml.doc "Describes core network policy versions."];
      nextToken: NextToken.t option
        [@ocaml.doc "The 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 ?coreNetworkPolicyVersions =
      fun ?nextToken -> fun () -> { coreNetworkPolicyVersions; 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
        [("CoreNetworkPolicyVersions",
           (Option.map x.coreNetworkPolicyVersions
              ~f:CoreNetworkPolicyVersionList.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 coreNetworkPolicyVersions =
        (Option.map ~f:CoreNetworkPolicyVersionList.of_xml)
          (Xml.child xml_arg0 "CoreNetworkPolicyVersions") in
      make ?nextToken ?coreNetworkPolicyVersions ()
    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 coreNetworkPolicyVersions =
        field_map json__ "CoreNetworkPolicyVersions"
          CoreNetworkPolicyVersionList.of_json in
      make ?nextToken ?coreNetworkPolicyVersions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a list of core network policy versions."]
module ListCoreNetworkPolicyVersionsRequest =
  struct
    type nonrec t =
      {
      coreNetworkId: CoreNetworkId.t [@ocaml.doc "The ID of a core network."];
      maxResults: MaxResults.t option
        [@ocaml.doc "The maximum number of results to return."];
      nextToken: NextToken.t option
        [@ocaml.doc "The token for the next page of results."]}
    let context_ = "ListCoreNetworkPolicyVersionsRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~coreNetworkId ->
          fun () -> { maxResults; nextToken; coreNetworkId }
    let to_value x =
      structure_to_value
        [("coreNetworkId", (Some (CoreNetworkId.to_value x.coreNetworkId)));
        ("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 coreNetworkId =
        CoreNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "coreNetworkId") in
      make ?nextToken ?maxResults ~coreNetworkId ()
    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 coreNetworkId =
        field_map_exn json__ "CoreNetworkId" CoreNetworkId.of_json in
      make ?nextToken ?maxResults ~coreNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a list of core network policy versions."]
module ListConnectPeersResponse =
  struct
    type nonrec t =
      {
      connectPeers: ConnectPeerSummaryList.t option
        [@ocaml.doc "Describes the Connect peers."];
      nextToken: NextToken.t option
        [@ocaml.doc "The 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 ?connectPeers =
      fun ?nextToken -> fun () -> { connectPeers; 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
        [("ConnectPeers",
           (Option.map x.connectPeers ~f:ConnectPeerSummaryList.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 connectPeers =
        (Option.map ~f:ConnectPeerSummaryList.of_xml)
          (Xml.child xml_arg0 "ConnectPeers") in
      make ?nextToken ?connectPeers ()
    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 connectPeers =
        field_map json__ "ConnectPeers" ConnectPeerSummaryList.of_json in
      make ?nextToken ?connectPeers ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a list of core network Connect peers."]
module ListConnectPeersRequest =
  struct
    type nonrec t =
      {
      coreNetworkId: CoreNetworkId.t option
        [@ocaml.doc "The ID of a core network."];
      connectAttachmentId: AttachmentId.t option
        [@ocaml.doc "The ID of the attachment."];
      maxResults: MaxResults.t option
        [@ocaml.doc "The maximum number of results to return."];
      nextToken: NextToken.t option
        [@ocaml.doc "The token for the next page of results."]}
    let make ?coreNetworkId =
      fun ?connectAttachmentId ->
        fun ?maxResults ->
          fun ?nextToken ->
            fun () ->
              { coreNetworkId; connectAttachmentId; maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("coreNetworkId",
           (Option.map x.coreNetworkId ~f:CoreNetworkId.to_value));
        ("connectAttachmentId",
          (Option.map x.connectAttachmentId ~f:AttachmentId.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 connectAttachmentId =
        (Option.map ~f:AttachmentId.of_xml)
          (Xml.child xml_arg0 "connectAttachmentId") in
      let coreNetworkId =
        (Option.map ~f:CoreNetworkId.of_xml)
          (Xml.child xml_arg0 "coreNetworkId") in
      make ?nextToken ?maxResults ?connectAttachmentId ?coreNetworkId ()
    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 connectAttachmentId =
        field_map json__ "ConnectAttachmentId" AttachmentId.of_json in
      let coreNetworkId =
        field_map json__ "CoreNetworkId" CoreNetworkId.of_json in
      make ?nextToken ?maxResults ?connectAttachmentId ?coreNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a list of core network Connect peers."]
module ListAttachmentsResponse =
  struct
    type nonrec t =
      {
      attachments: AttachmentList.t option
        [@ocaml.doc "Describes the list of attachments."];
      nextToken: NextToken.t option
        [@ocaml.doc "The 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 ?attachments =
      fun ?nextToken -> fun () -> { attachments; 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
        [("Attachments",
           (Option.map x.attachments ~f:AttachmentList.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 attachments =
        (Option.map ~f:AttachmentList.of_xml)
          (Xml.child xml_arg0 "Attachments") in
      make ?nextToken ?attachments ()
    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 attachments = field_map json__ "Attachments" AttachmentList.of_json in
      make ?nextToken ?attachments ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a list of core network attachments."]
module ListAttachmentsRequest =
  struct
    type nonrec t =
      {
      coreNetworkId: CoreNetworkId.t option
        [@ocaml.doc "The ID of a core network."];
      attachmentType: AttachmentType.t option
        [@ocaml.doc "The type of attachment."];
      edgeLocation: ExternalRegionCode.t option
        [@ocaml.doc "The Region where the edge is located."];
      state: AttachmentState.t option
        [@ocaml.doc "The state of the attachment."];
      maxResults: MaxResults.t option
        [@ocaml.doc "The maximum number of results to return."];
      nextToken: NextToken.t option
        [@ocaml.doc "The token for the next page of results."]}
    let make ?coreNetworkId =
      fun ?attachmentType ->
        fun ?edgeLocation ->
          fun ?state ->
            fun ?maxResults ->
              fun ?nextToken ->
                fun () ->
                  {
                    coreNetworkId;
                    attachmentType;
                    edgeLocation;
                    state;
                    maxResults;
                    nextToken
                  }
    let to_value x =
      structure_to_value
        [("coreNetworkId",
           (Option.map x.coreNetworkId ~f:CoreNetworkId.to_value));
        ("attachmentType",
          (Option.map x.attachmentType ~f:AttachmentType.to_value));
        ("edgeLocation",
          (Option.map x.edgeLocation ~f:ExternalRegionCode.to_value));
        ("state", (Option.map x.state ~f:AttachmentState.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 state =
        (Option.map ~f:AttachmentState.of_xml) (Xml.child xml_arg0 "state") in
      let edgeLocation =
        (Option.map ~f:ExternalRegionCode.of_xml)
          (Xml.child xml_arg0 "edgeLocation") in
      let attachmentType =
        (Option.map ~f:AttachmentType.of_xml)
          (Xml.child xml_arg0 "attachmentType") in
      let coreNetworkId =
        (Option.map ~f:CoreNetworkId.of_xml)
          (Xml.child xml_arg0 "coreNetworkId") in
      make ?nextToken ?maxResults ?state ?edgeLocation ?attachmentType
        ?coreNetworkId ()
    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 state = field_map json__ "State" AttachmentState.of_json in
      let edgeLocation =
        field_map json__ "EdgeLocation" ExternalRegionCode.of_json in
      let attachmentType =
        field_map json__ "AttachmentType" AttachmentType.of_json in
      let coreNetworkId =
        field_map json__ "CoreNetworkId" CoreNetworkId.of_json in
      make ?nextToken ?maxResults ?state ?edgeLocation ?attachmentType
        ?coreNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a list of core network attachments."]
module ListAttachmentRoutingPolicyAssociationsResponse =
  struct
    type nonrec t =
      {
      attachmentRoutingPolicyAssociations:
        AttachmentRoutingPolicyAssociationsList.t option
        [@ocaml.doc "The list of attachment routing policy associations."];
      nextToken: NextToken.t option
        [@ocaml.doc "The 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 ?attachmentRoutingPolicyAssociations =
      fun ?nextToken ->
        fun () -> { attachmentRoutingPolicyAssociations; 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
        [("AttachmentRoutingPolicyAssociations",
           (Option.map x.attachmentRoutingPolicyAssociations
              ~f:AttachmentRoutingPolicyAssociationsList.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 attachmentRoutingPolicyAssociations =
        (Option.map ~f:AttachmentRoutingPolicyAssociationsList.of_xml)
          (Xml.child xml_arg0 "AttachmentRoutingPolicyAssociations") in
      make ?nextToken ?attachmentRoutingPolicyAssociations ()
    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 attachmentRoutingPolicyAssociations =
        field_map json__ "AttachmentRoutingPolicyAssociations"
          AttachmentRoutingPolicyAssociationsList.of_json in
      make ?nextToken ?attachmentRoutingPolicyAssociations ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the routing policy associations for attachments in a core network."]
module ListAttachmentRoutingPolicyAssociationsRequest =
  struct
    type nonrec t =
      {
      coreNetworkId: CoreNetworkId.t
        [@ocaml.doc
          "The ID of the core network to list attachment routing policy associations for."];
      attachmentId: AttachmentId.t option
        [@ocaml.doc
          "The ID of a specific attachment to filter the routing policy associations."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to return in a single page."];
      nextToken: NextToken.t option
        [@ocaml.doc "The token for the next page of results."]}
    let context_ = "ListAttachmentRoutingPolicyAssociationsRequest"
    let make ?attachmentId =
      fun ?maxResults ->
        fun ?nextToken ->
          fun ~coreNetworkId ->
            fun () -> { attachmentId; maxResults; nextToken; coreNetworkId }
    let to_value x =
      structure_to_value
        [("coreNetworkId", (Some (CoreNetworkId.to_value x.coreNetworkId)));
        ("attachmentId",
          (Option.map x.attachmentId ~f:AttachmentId.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 attachmentId =
        (Option.map ~f:AttachmentId.of_xml)
          (Xml.child xml_arg0 "attachmentId") in
      let coreNetworkId =
        CoreNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "coreNetworkId") in
      make ?nextToken ?maxResults ?attachmentId ~coreNetworkId ()
    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 attachmentId = field_map json__ "AttachmentId" AttachmentId.of_json in
      let coreNetworkId =
        field_map_exn json__ "CoreNetworkId" CoreNetworkId.of_json in
      make ?nextToken ?maxResults ?attachmentId ~coreNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the routing policy associations for attachments in a core network."]
module GetVpcAttachmentResponse =
  struct
    type nonrec t =
      {
      vpcAttachment: VpcAttachment.t option
        [@ocaml.doc "Returns details about a VPC attachment."]}
    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 ?vpcAttachment = fun () -> { vpcAttachment }
    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
        [("VpcAttachment",
           (Option.map x.vpcAttachment ~f:VpcAttachment.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vpcAttachment =
        (Option.map ~f:VpcAttachment.of_xml)
          (Xml.child xml_arg0 "VpcAttachment") in
      make ?vpcAttachment ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vpcAttachment =
        field_map json__ "VpcAttachment" VpcAttachment.of_json in
      make ?vpcAttachment ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about a VPC attachment."]
module GetVpcAttachmentRequest =
  struct
    type nonrec t =
      {
      attachmentId: AttachmentId.t [@ocaml.doc "The ID of the attachment."]}
    let context_ = "GetVpcAttachmentRequest"
    let make ~attachmentId = fun () -> { attachmentId }
    let to_value x =
      structure_to_value
        [("attachmentId", (Some (AttachmentId.to_value x.attachmentId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attachmentId =
        AttachmentId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "attachmentId") in
      make ~attachmentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attachmentId =
        field_map_exn json__ "AttachmentId" AttachmentId.of_json in
      make ~attachmentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about a VPC attachment."]
module GetTransitGatewayRouteTableAttachmentResponse =
  struct
    type nonrec t =
      {
      transitGatewayRouteTableAttachment:
        TransitGatewayRouteTableAttachment.t option
        [@ocaml.doc
          "Returns information about the transit gateway route table attachment."]}
    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 ?transitGatewayRouteTableAttachment =
      fun () -> { transitGatewayRouteTableAttachment }
    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
        [("TransitGatewayRouteTableAttachment",
           (Option.map x.transitGatewayRouteTableAttachment
              ~f:TransitGatewayRouteTableAttachment.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let transitGatewayRouteTableAttachment =
        (Option.map ~f:TransitGatewayRouteTableAttachment.of_xml)
          (Xml.child xml_arg0 "TransitGatewayRouteTableAttachment") in
      make ?transitGatewayRouteTableAttachment ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let transitGatewayRouteTableAttachment =
        field_map json__ "TransitGatewayRouteTableAttachment"
          TransitGatewayRouteTableAttachment.of_json in
      make ?transitGatewayRouteTableAttachment ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about a transit gateway route table attachment."]
module GetTransitGatewayRouteTableAttachmentRequest =
  struct
    type nonrec t =
      {
      attachmentId: AttachmentId.t
        [@ocaml.doc "The ID of the transit gateway route table attachment."]}
    let context_ = "GetTransitGatewayRouteTableAttachmentRequest"
    let make ~attachmentId = fun () -> { attachmentId }
    let to_value x =
      structure_to_value
        [("attachmentId", (Some (AttachmentId.to_value x.attachmentId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attachmentId =
        AttachmentId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "attachmentId") in
      make ~attachmentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attachmentId =
        field_map_exn json__ "AttachmentId" AttachmentId.of_json in
      make ~attachmentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about a transit gateway route table attachment."]
module GetTransitGatewayRegistrationsResponse =
  struct
    type nonrec t =
      {
      transitGatewayRegistrations: TransitGatewayRegistrationList.t option
        [@ocaml.doc "The transit gateway registrations."];
      nextToken: NextToken.t option
        [@ocaml.doc "The 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 ?transitGatewayRegistrations =
      fun ?nextToken -> fun () -> { transitGatewayRegistrations; 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
        [("TransitGatewayRegistrations",
           (Option.map x.transitGatewayRegistrations
              ~f:TransitGatewayRegistrationList.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 transitGatewayRegistrations =
        (Option.map ~f:TransitGatewayRegistrationList.of_xml)
          (Xml.child xml_arg0 "TransitGatewayRegistrations") in
      make ?nextToken ?transitGatewayRegistrations ()
    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 transitGatewayRegistrations =
        field_map json__ "TransitGatewayRegistrations"
          TransitGatewayRegistrationList.of_json in
      make ?nextToken ?transitGatewayRegistrations ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets information about the transit gateway registrations in a specified global network."]
module GetTransitGatewayRegistrationsRequest =
  struct
    type nonrec t =
      {
      globalNetworkId: GlobalNetworkId.t
        [@ocaml.doc "The ID of the global network."];
      transitGatewayArns: TransitGatewayArnList.t option
        [@ocaml.doc
          "The Amazon Resource Names (ARNs) of one or more transit gateways. The maximum is 10."];
      maxResults: MaxResults.t option
        [@ocaml.doc "The maximum number of results to return."];
      nextToken: NextToken.t option
        [@ocaml.doc "The token for the next page of results."]}
    let context_ = "GetTransitGatewayRegistrationsRequest"
    let make ?transitGatewayArns =
      fun ?maxResults ->
        fun ?nextToken ->
          fun ~globalNetworkId ->
            fun () ->
              { transitGatewayArns; maxResults; nextToken; globalNetworkId }
    let to_value x =
      structure_to_value
        [("globalNetworkId",
           (Some (GlobalNetworkId.to_value x.globalNetworkId)));
        ("transitGatewayArns",
          (Option.map x.transitGatewayArns ~f:TransitGatewayArnList.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 transitGatewayArns =
        (Option.map ~f:TransitGatewayArnList.of_xml)
          (Xml.child xml_arg0 "transitGatewayArns") in
      let globalNetworkId =
        GlobalNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "globalNetworkId") in
      make ?nextToken ?maxResults ?transitGatewayArns ~globalNetworkId ()
    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 transitGatewayArns =
        field_map json__ "TransitGatewayArns" TransitGatewayArnList.of_json in
      let globalNetworkId =
        field_map_exn json__ "GlobalNetworkId" GlobalNetworkId.of_json in
      make ?nextToken ?maxResults ?transitGatewayArns ~globalNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets information about the transit gateway registrations in a specified global network."]
module GetTransitGatewayPeeringResponse =
  struct
    type nonrec t =
      {
      transitGatewayPeering: TransitGatewayPeering.t option
        [@ocaml.doc "Returns information about a transit gateway peering."]}
    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 ?transitGatewayPeering = fun () -> { transitGatewayPeering }
    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
        [("TransitGatewayPeering",
           (Option.map x.transitGatewayPeering
              ~f:TransitGatewayPeering.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let transitGatewayPeering =
        (Option.map ~f:TransitGatewayPeering.of_xml)
          (Xml.child xml_arg0 "TransitGatewayPeering") in
      make ?transitGatewayPeering ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let transitGatewayPeering =
        field_map json__ "TransitGatewayPeering"
          TransitGatewayPeering.of_json in
      make ?transitGatewayPeering ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about a transit gateway peer."]
module GetTransitGatewayPeeringRequest =
  struct
    type nonrec t =
      {
      peeringId: PeeringId.t [@ocaml.doc "The ID of the peering request."]}
    let context_ = "GetTransitGatewayPeeringRequest"
    let make ~peeringId = fun () -> { peeringId }
    let to_value x =
      structure_to_value
        [("peeringId", (Some (PeeringId.to_value x.peeringId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let peeringId =
        PeeringId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "peeringId") in
      make ~peeringId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let peeringId = field_map_exn json__ "PeeringId" PeeringId.of_json in
      make ~peeringId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about a transit gateway peer."]
module GetTransitGatewayConnectPeerAssociationsResponse =
  struct
    type nonrec t =
      {
      transitGatewayConnectPeerAssociations:
        TransitGatewayConnectPeerAssociationList.t option
        [@ocaml.doc
          "Information about the transit gateway Connect peer associations."];
      nextToken: NextToken.t option
        [@ocaml.doc "The token to use for the next page of results."]}
    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 ?transitGatewayConnectPeerAssociations =
      fun ?nextToken ->
        fun () -> { transitGatewayConnectPeerAssociations; nextToken }
    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
        [("TransitGatewayConnectPeerAssociations",
           (Option.map x.transitGatewayConnectPeerAssociations
              ~f:TransitGatewayConnectPeerAssociationList.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 transitGatewayConnectPeerAssociations =
        (Option.map ~f:TransitGatewayConnectPeerAssociationList.of_xml)
          (Xml.child xml_arg0 "TransitGatewayConnectPeerAssociations") in
      make ?nextToken ?transitGatewayConnectPeerAssociations ()
    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 transitGatewayConnectPeerAssociations =
        field_map json__ "TransitGatewayConnectPeerAssociations"
          TransitGatewayConnectPeerAssociationList.of_json in
      make ?nextToken ?transitGatewayConnectPeerAssociations ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets information about one or more of your transit gateway Connect peer associations in a global network."]
module GetTransitGatewayConnectPeerAssociationsRequest =
  struct
    type nonrec t =
      {
      globalNetworkId: GlobalNetworkId.t
        [@ocaml.doc "The ID of the global network."];
      transitGatewayConnectPeerArns:
        TransitGatewayConnectPeerArnList.t option
        [@ocaml.doc
          "One or more transit gateway Connect peer Amazon Resource Names (ARNs)."];
      maxResults: MaxResults.t option
        [@ocaml.doc "The maximum number of results to return."];
      nextToken: NextToken.t option
        [@ocaml.doc "The token for the next page of results."]}
    let context_ = "GetTransitGatewayConnectPeerAssociationsRequest"
    let make ?transitGatewayConnectPeerArns =
      fun ?maxResults ->
        fun ?nextToken ->
          fun ~globalNetworkId ->
            fun () ->
              {
                transitGatewayConnectPeerArns;
                maxResults;
                nextToken;
                globalNetworkId
              }
    let to_value x =
      structure_to_value
        [("globalNetworkId",
           (Some (GlobalNetworkId.to_value x.globalNetworkId)));
        ("transitGatewayConnectPeerArns",
          (Option.map x.transitGatewayConnectPeerArns
             ~f:TransitGatewayConnectPeerArnList.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 transitGatewayConnectPeerArns =
        (Option.map ~f:TransitGatewayConnectPeerArnList.of_xml)
          (Xml.child xml_arg0 "transitGatewayConnectPeerArns") in
      let globalNetworkId =
        GlobalNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "globalNetworkId") in
      make ?nextToken ?maxResults ?transitGatewayConnectPeerArns
        ~globalNetworkId ()
    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 transitGatewayConnectPeerArns =
        field_map json__ "TransitGatewayConnectPeerArns"
          TransitGatewayConnectPeerArnList.of_json in
      let globalNetworkId =
        field_map_exn json__ "GlobalNetworkId" GlobalNetworkId.of_json in
      make ?nextToken ?maxResults ?transitGatewayConnectPeerArns
        ~globalNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets information about one or more of your transit gateway Connect peer associations in a global network."]
module GetSitesResponse =
  struct
    type nonrec t =
      {
      sites: SiteList.t option [@ocaml.doc "The sites."];
      nextToken: NextToken.t option
        [@ocaml.doc "The 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 ?sites = fun ?nextToken -> fun () -> { sites; 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
        [("Sites", (Option.map x.sites ~f:SiteList.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 sites =
        (Option.map ~f:SiteList.of_xml) (Xml.child xml_arg0 "Sites") in
      make ?nextToken ?sites ()
    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 sites = field_map json__ "Sites" SiteList.of_json in
      make ?nextToken ?sites ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets information about one or more of your sites in a global network."]
module GetSitesRequest =
  struct
    type nonrec t =
      {
      globalNetworkId: GlobalNetworkId.t
        [@ocaml.doc "The ID of the global network."];
      siteIds: SiteIdList.t option
        [@ocaml.doc "One or more site IDs. The maximum is 10."];
      maxResults: MaxResults.t option
        [@ocaml.doc "The maximum number of results to return."];
      nextToken: NextToken.t option
        [@ocaml.doc "The token for the next page of results."]}
    let context_ = "GetSitesRequest"
    let make ?siteIds =
      fun ?maxResults ->
        fun ?nextToken ->
          fun ~globalNetworkId ->
            fun () -> { siteIds; maxResults; nextToken; globalNetworkId }
    let to_value x =
      structure_to_value
        [("globalNetworkId",
           (Some (GlobalNetworkId.to_value x.globalNetworkId)));
        ("siteIds", (Option.map x.siteIds ~f:SiteIdList.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 siteIds =
        (Option.map ~f:SiteIdList.of_xml) (Xml.child xml_arg0 "siteIds") in
      let globalNetworkId =
        GlobalNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "globalNetworkId") in
      make ?nextToken ?maxResults ?siteIds ~globalNetworkId ()
    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 siteIds = field_map json__ "SiteIds" SiteIdList.of_json in
      let globalNetworkId =
        field_map_exn json__ "GlobalNetworkId" GlobalNetworkId.of_json in
      make ?nextToken ?maxResults ?siteIds ~globalNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets information about one or more of your sites in a global network."]
module GetSiteToSiteVpnAttachmentResponse =
  struct
    type nonrec t =
      {
      siteToSiteVpnAttachment: SiteToSiteVpnAttachment.t option
        [@ocaml.doc "Describes the site-to-site attachment."]}
    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 ?siteToSiteVpnAttachment = fun () -> { siteToSiteVpnAttachment }
    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
        [("SiteToSiteVpnAttachment",
           (Option.map x.siteToSiteVpnAttachment
              ~f:SiteToSiteVpnAttachment.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let siteToSiteVpnAttachment =
        (Option.map ~f:SiteToSiteVpnAttachment.of_xml)
          (Xml.child xml_arg0 "SiteToSiteVpnAttachment") in
      make ?siteToSiteVpnAttachment ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let siteToSiteVpnAttachment =
        field_map json__ "SiteToSiteVpnAttachment"
          SiteToSiteVpnAttachment.of_json in
      make ?siteToSiteVpnAttachment ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about a site-to-site VPN attachment."]
module GetSiteToSiteVpnAttachmentRequest =
  struct
    type nonrec t =
      {
      attachmentId: AttachmentId.t [@ocaml.doc "The ID of the attachment."]}
    let context_ = "GetSiteToSiteVpnAttachmentRequest"
    let make ~attachmentId = fun () -> { attachmentId }
    let to_value x =
      structure_to_value
        [("attachmentId", (Some (AttachmentId.to_value x.attachmentId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attachmentId =
        AttachmentId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "attachmentId") in
      make ~attachmentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attachmentId =
        field_map_exn json__ "AttachmentId" AttachmentId.of_json in
      make ~attachmentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about a site-to-site VPN attachment."]
module GetRouteAnalysisResponse =
  struct
    type nonrec t =
      {
      routeAnalysis: RouteAnalysis.t option
        [@ocaml.doc "The route analysis."]}
    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 ?routeAnalysis = fun () -> { routeAnalysis }
    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
        [("RouteAnalysis",
           (Option.map x.routeAnalysis ~f:RouteAnalysis.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let routeAnalysis =
        (Option.map ~f:RouteAnalysis.of_xml)
          (Xml.child xml_arg0 "RouteAnalysis") in
      make ?routeAnalysis ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let routeAnalysis =
        field_map json__ "RouteAnalysis" RouteAnalysis.of_json in
      make ?routeAnalysis ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets information about the specified route analysis."]
module GetRouteAnalysisRequest =
  struct
    type nonrec t =
      {
      globalNetworkId: GlobalNetworkId.t
        [@ocaml.doc "The ID of the global network."];
      routeAnalysisId: ConstrainedString.t
        [@ocaml.doc "The ID of the route analysis."]}
    let context_ = "GetRouteAnalysisRequest"
    let make ~globalNetworkId =
      fun ~routeAnalysisId -> fun () -> { globalNetworkId; routeAnalysisId }
    let to_value x =
      structure_to_value
        [("globalNetworkId",
           (Some (GlobalNetworkId.to_value x.globalNetworkId)));
        ("routeAnalysisId",
          (Some (ConstrainedString.to_value x.routeAnalysisId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let routeAnalysisId =
        ConstrainedString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "routeAnalysisId") in
      let globalNetworkId =
        GlobalNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "globalNetworkId") in
      make ~routeAnalysisId ~globalNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let routeAnalysisId =
        field_map_exn json__ "RouteAnalysisId" ConstrainedString.of_json in
      let globalNetworkId =
        field_map_exn json__ "GlobalNetworkId" GlobalNetworkId.of_json in
      make ~routeAnalysisId ~globalNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets information about the specified route analysis."]
module GetResourcePolicyResponse =
  struct
    type nonrec t =
      {
      policyDocument: ResourcePolicyDocument.t option
        [@ocaml.doc "The resource policy document."]}
    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 ?policyDocument = fun () -> { policyDocument }
    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
        [("PolicyDocument",
           (Option.map x.policyDocument ~f:ResourcePolicyDocument.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policyDocument =
        (Option.map ~f:ResourcePolicyDocument.of_xml)
          (Xml.child xml_arg0 "PolicyDocument") in
      make ?policyDocument ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let policyDocument =
        field_map json__ "PolicyDocument" ResourcePolicyDocument.of_json in
      make ?policyDocument ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about a resource policy."]
module GetResourcePolicyRequest =
  struct
    type nonrec t =
      {
      resourceArn: ResourceArn.t [@ocaml.doc "The ARN of the resource."]}
    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 "Returns information about a resource policy."]
module GetNetworkTelemetryResponse =
  struct
    type nonrec t =
      {
      networkTelemetry: NetworkTelemetryList.t option
        [@ocaml.doc "The network telemetry."];
      nextToken: NextToken.t option
        [@ocaml.doc "The 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 ?networkTelemetry =
      fun ?nextToken -> fun () -> { networkTelemetry; 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
        [("NetworkTelemetry",
           (Option.map x.networkTelemetry ~f:NetworkTelemetryList.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 networkTelemetry =
        (Option.map ~f:NetworkTelemetryList.of_xml)
          (Xml.child xml_arg0 "NetworkTelemetry") in
      make ?nextToken ?networkTelemetry ()
    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 networkTelemetry =
        field_map json__ "NetworkTelemetry" NetworkTelemetryList.of_json in
      make ?nextToken ?networkTelemetry ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the network telemetry of the specified global network."]
module GetNetworkTelemetryRequest =
  struct
    type nonrec t =
      {
      globalNetworkId: GlobalNetworkId.t
        [@ocaml.doc "The ID of the global network."];
      coreNetworkId: CoreNetworkId.t option
        [@ocaml.doc "The ID of a core network."];
      registeredGatewayArn: ResourceArn.t option
        [@ocaml.doc "The ARN of the gateway."];
      awsRegion: ExternalRegionCode.t option
        [@ocaml.doc "The Amazon Web Services Region."];
      accountId: AWSAccountId.t option
        [@ocaml.doc "The Amazon Web Services account ID."];
      resourceType: ConstrainedString.t option
        [@ocaml.doc
          "The resource type. The following are the supported resource types: connect-peer transit-gateway-connect-peer vpn-connection"];
      resourceArn: ResourceArn.t option
        [@ocaml.doc "The ARN of the resource."];
      maxResults: MaxResults.t option
        [@ocaml.doc "The maximum number of results to return."];
      nextToken: NextToken.t option
        [@ocaml.doc "The token for the next page of results."]}
    let context_ = "GetNetworkTelemetryRequest"
    let make ?coreNetworkId =
      fun ?registeredGatewayArn ->
        fun ?awsRegion ->
          fun ?accountId ->
            fun ?resourceType ->
              fun ?resourceArn ->
                fun ?maxResults ->
                  fun ?nextToken ->
                    fun ~globalNetworkId ->
                      fun () ->
                        {
                          coreNetworkId;
                          registeredGatewayArn;
                          awsRegion;
                          accountId;
                          resourceType;
                          resourceArn;
                          maxResults;
                          nextToken;
                          globalNetworkId
                        }
    let to_value x =
      structure_to_value
        [("globalNetworkId",
           (Some (GlobalNetworkId.to_value x.globalNetworkId)));
        ("coreNetworkId",
          (Option.map x.coreNetworkId ~f:CoreNetworkId.to_value));
        ("registeredGatewayArn",
          (Option.map x.registeredGatewayArn ~f:ResourceArn.to_value));
        ("awsRegion",
          (Option.map x.awsRegion ~f:ExternalRegionCode.to_value));
        ("accountId", (Option.map x.accountId ~f:AWSAccountId.to_value));
        ("resourceType",
          (Option.map x.resourceType ~f:ConstrainedString.to_value));
        ("resourceArn", (Option.map x.resourceArn ~f:ResourceArn.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 resourceArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "resourceArn") in
      let resourceType =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "resourceType") in
      let accountId =
        (Option.map ~f:AWSAccountId.of_xml) (Xml.child xml_arg0 "accountId") in
      let awsRegion =
        (Option.map ~f:ExternalRegionCode.of_xml)
          (Xml.child xml_arg0 "awsRegion") in
      let registeredGatewayArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "registeredGatewayArn") in
      let coreNetworkId =
        (Option.map ~f:CoreNetworkId.of_xml)
          (Xml.child xml_arg0 "coreNetworkId") in
      let globalNetworkId =
        GlobalNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "globalNetworkId") in
      make ?nextToken ?maxResults ?resourceArn ?resourceType ?accountId
        ?awsRegion ?registeredGatewayArn ?coreNetworkId ~globalNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let resourceArn = field_map json__ "ResourceArn" ResourceArn.of_json in
      let resourceType =
        field_map json__ "ResourceType" ConstrainedString.of_json in
      let accountId = field_map json__ "AccountId" AWSAccountId.of_json in
      let awsRegion = field_map json__ "AwsRegion" ExternalRegionCode.of_json in
      let registeredGatewayArn =
        field_map json__ "RegisteredGatewayArn" ResourceArn.of_json in
      let coreNetworkId =
        field_map json__ "CoreNetworkId" CoreNetworkId.of_json in
      let globalNetworkId =
        field_map_exn json__ "GlobalNetworkId" GlobalNetworkId.of_json in
      make ?nextToken ?maxResults ?resourceArn ?resourceType ?accountId
        ?awsRegion ?registeredGatewayArn ?coreNetworkId ~globalNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the network telemetry of the specified global network."]
module GetNetworkRoutesResponse =
  struct
    type nonrec t =
      {
      routeTableArn: ResourceArn.t option
        [@ocaml.doc "The ARN of the route table."];
      coreNetworkSegmentEdge: CoreNetworkSegmentEdgeIdentifier.t option
        [@ocaml.doc "Describes a core network segment edge."];
      routeTableType: RouteTableType.t option
        [@ocaml.doc "The route table type."];
      routeTableTimestamp: DateTime.t option
        [@ocaml.doc "The route table creation time."];
      networkRoutes: NetworkRouteList.t option
        [@ocaml.doc "The network routes."]}
    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 ?routeTableArn =
      fun ?coreNetworkSegmentEdge ->
        fun ?routeTableType ->
          fun ?routeTableTimestamp ->
            fun ?networkRoutes ->
              fun () ->
                {
                  routeTableArn;
                  coreNetworkSegmentEdge;
                  routeTableType;
                  routeTableTimestamp;
                  networkRoutes
                }
    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
        [("RouteTableArn",
           (Option.map x.routeTableArn ~f:ResourceArn.to_value));
        ("CoreNetworkSegmentEdge",
          (Option.map x.coreNetworkSegmentEdge
             ~f:CoreNetworkSegmentEdgeIdentifier.to_value));
        ("RouteTableType",
          (Option.map x.routeTableType ~f:RouteTableType.to_value));
        ("RouteTableTimestamp",
          (Option.map x.routeTableTimestamp ~f:DateTime.to_value));
        ("NetworkRoutes",
          (Option.map x.networkRoutes ~f:NetworkRouteList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let networkRoutes =
        (Option.map ~f:NetworkRouteList.of_xml)
          (Xml.child xml_arg0 "NetworkRoutes") in
      let routeTableTimestamp =
        (Option.map ~f:DateTime.of_xml)
          (Xml.child xml_arg0 "RouteTableTimestamp") in
      let routeTableType =
        (Option.map ~f:RouteTableType.of_xml)
          (Xml.child xml_arg0 "RouteTableType") in
      let coreNetworkSegmentEdge =
        (Option.map ~f:CoreNetworkSegmentEdgeIdentifier.of_xml)
          (Xml.child xml_arg0 "CoreNetworkSegmentEdge") in
      let routeTableArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "RouteTableArn") in
      make ?networkRoutes ?routeTableTimestamp ?routeTableType
        ?coreNetworkSegmentEdge ?routeTableArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let networkRoutes =
        field_map json__ "NetworkRoutes" NetworkRouteList.of_json in
      let routeTableTimestamp =
        field_map json__ "RouteTableTimestamp" DateTime.of_json in
      let routeTableType =
        field_map json__ "RouteTableType" RouteTableType.of_json in
      let coreNetworkSegmentEdge =
        field_map json__ "CoreNetworkSegmentEdge"
          CoreNetworkSegmentEdgeIdentifier.of_json in
      let routeTableArn =
        field_map json__ "RouteTableArn" ResourceArn.of_json in
      make ?networkRoutes ?routeTableTimestamp ?routeTableType
        ?coreNetworkSegmentEdge ?routeTableArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets the network routes of the specified global network."]
module GetNetworkRoutesRequest =
  struct
    type nonrec t =
      {
      globalNetworkId: GlobalNetworkId.t
        [@ocaml.doc "The ID of the global network."];
      routeTableIdentifier: RouteTableIdentifier.t
        [@ocaml.doc "The ID of the route table."];
      exactCidrMatches: ConstrainedStringList.t option
        [@ocaml.doc "An exact CIDR block."];
      longestPrefixMatches: ConstrainedStringList.t option
        [@ocaml.doc
          "The most specific route that matches the traffic (longest prefix match)."];
      subnetOfMatches: ConstrainedStringList.t option
        [@ocaml.doc
          "The routes with a subnet that match the specified CIDR filter."];
      supernetOfMatches: ConstrainedStringList.t option
        [@ocaml.doc
          "The routes with a CIDR that encompasses the CIDR filter. Example: If you specify 10.0.1.0/30, then the result returns 10.0.1.0/29."];
      prefixListIds: ConstrainedStringList.t option
        [@ocaml.doc "The IDs of the prefix lists."];
      states: RouteStateList.t option [@ocaml.doc "The route states."];
      types: RouteTypeList.t option [@ocaml.doc "The route types."];
      destinationFilters: FilterMap.t option
        [@ocaml.doc
          "Filter by route table destination. Possible Values: TRANSIT_GATEWAY_ATTACHMENT_ID, RESOURCE_ID, or RESOURCE_TYPE."]}
    let context_ = "GetNetworkRoutesRequest"
    let make ?exactCidrMatches =
      fun ?longestPrefixMatches ->
        fun ?subnetOfMatches ->
          fun ?supernetOfMatches ->
            fun ?prefixListIds ->
              fun ?states ->
                fun ?types ->
                  fun ?destinationFilters ->
                    fun ~globalNetworkId ->
                      fun ~routeTableIdentifier ->
                        fun () ->
                          {
                            exactCidrMatches;
                            longestPrefixMatches;
                            subnetOfMatches;
                            supernetOfMatches;
                            prefixListIds;
                            states;
                            types;
                            destinationFilters;
                            globalNetworkId;
                            routeTableIdentifier
                          }
    let to_value x =
      structure_to_value
        [("globalNetworkId",
           (Some (GlobalNetworkId.to_value x.globalNetworkId)));
        ("RouteTableIdentifier",
          (Some (RouteTableIdentifier.to_value x.routeTableIdentifier)));
        ("ExactCidrMatches",
          (Option.map x.exactCidrMatches ~f:ConstrainedStringList.to_value));
        ("LongestPrefixMatches",
          (Option.map x.longestPrefixMatches
             ~f:ConstrainedStringList.to_value));
        ("SubnetOfMatches",
          (Option.map x.subnetOfMatches ~f:ConstrainedStringList.to_value));
        ("SupernetOfMatches",
          (Option.map x.supernetOfMatches ~f:ConstrainedStringList.to_value));
        ("PrefixListIds",
          (Option.map x.prefixListIds ~f:ConstrainedStringList.to_value));
        ("States", (Option.map x.states ~f:RouteStateList.to_value));
        ("Types", (Option.map x.types ~f:RouteTypeList.to_value));
        ("DestinationFilters",
          (Option.map x.destinationFilters ~f:FilterMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let destinationFilters =
        (Option.map ~f:FilterMap.of_xml)
          (Xml.child xml_arg0 "DestinationFilters") in
      let types =
        (Option.map ~f:RouteTypeList.of_xml) (Xml.child xml_arg0 "Types") in
      let states =
        (Option.map ~f:RouteStateList.of_xml) (Xml.child xml_arg0 "States") in
      let prefixListIds =
        (Option.map ~f:ConstrainedStringList.of_xml)
          (Xml.child xml_arg0 "PrefixListIds") in
      let supernetOfMatches =
        (Option.map ~f:ConstrainedStringList.of_xml)
          (Xml.child xml_arg0 "SupernetOfMatches") in
      let subnetOfMatches =
        (Option.map ~f:ConstrainedStringList.of_xml)
          (Xml.child xml_arg0 "SubnetOfMatches") in
      let longestPrefixMatches =
        (Option.map ~f:ConstrainedStringList.of_xml)
          (Xml.child xml_arg0 "LongestPrefixMatches") in
      let exactCidrMatches =
        (Option.map ~f:ConstrainedStringList.of_xml)
          (Xml.child xml_arg0 "ExactCidrMatches") in
      let routeTableIdentifier =
        RouteTableIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RouteTableIdentifier") in
      let globalNetworkId =
        GlobalNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "globalNetworkId") in
      make ?destinationFilters ?types ?states ?prefixListIds
        ?supernetOfMatches ?subnetOfMatches ?longestPrefixMatches
        ?exactCidrMatches ~routeTableIdentifier ~globalNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let destinationFilters =
        field_map json__ "DestinationFilters" FilterMap.of_json in
      let types = field_map json__ "Types" RouteTypeList.of_json in
      let states = field_map json__ "States" RouteStateList.of_json in
      let prefixListIds =
        field_map json__ "PrefixListIds" ConstrainedStringList.of_json in
      let supernetOfMatches =
        field_map json__ "SupernetOfMatches" ConstrainedStringList.of_json in
      let subnetOfMatches =
        field_map json__ "SubnetOfMatches" ConstrainedStringList.of_json in
      let longestPrefixMatches =
        field_map json__ "LongestPrefixMatches" ConstrainedStringList.of_json in
      let exactCidrMatches =
        field_map json__ "ExactCidrMatches" ConstrainedStringList.of_json in
      let routeTableIdentifier =
        field_map_exn json__ "RouteTableIdentifier"
          RouteTableIdentifier.of_json in
      let globalNetworkId =
        field_map_exn json__ "GlobalNetworkId" GlobalNetworkId.of_json in
      make ?destinationFilters ?types ?states ?prefixListIds
        ?supernetOfMatches ?subnetOfMatches ?longestPrefixMatches
        ?exactCidrMatches ~routeTableIdentifier ~globalNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets the network routes of the specified global network."]
module GetNetworkResourcesResponse =
  struct
    type nonrec t =
      {
      networkResources: NetworkResourceList.t option
        [@ocaml.doc "The network resources."];
      nextToken: NextToken.t option
        [@ocaml.doc "The 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 ?networkResources =
      fun ?nextToken -> fun () -> { networkResources; 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
        [("NetworkResources",
           (Option.map x.networkResources ~f:NetworkResourceList.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 networkResources =
        (Option.map ~f:NetworkResourceList.of_xml)
          (Xml.child xml_arg0 "NetworkResources") in
      make ?nextToken ?networkResources ()
    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 networkResources =
        field_map json__ "NetworkResources" NetworkResourceList.of_json in
      make ?nextToken ?networkResources ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the network resources for the specified global network. The results include information from the corresponding Describe call for the resource, minus any sensitive information such as pre-shared keys."]
module GetNetworkResourcesRequest =
  struct
    type nonrec t =
      {
      globalNetworkId: GlobalNetworkId.t
        [@ocaml.doc "The ID of the global network."];
      coreNetworkId: CoreNetworkId.t option
        [@ocaml.doc "The ID of a core network."];
      registeredGatewayArn: ResourceArn.t option
        [@ocaml.doc "The ARN of the gateway."];
      awsRegion: ExternalRegionCode.t option
        [@ocaml.doc "The Amazon Web Services Region."];
      accountId: AWSAccountId.t option
        [@ocaml.doc "The Amazon Web Services account ID."];
      resourceType: ConstrainedString.t option
        [@ocaml.doc
          "The resource type. The following are the supported resource types for Direct Connect: dxcon dx-gateway dx-vif The following are the supported resource types for Network Manager: attachment connect-peer connection core-network device link peering site The following are the supported resource types for Amazon VPC: customer-gateway transit-gateway transit-gateway-attachment transit-gateway-connect-peer transit-gateway-route-table vpn-connection"];
      resourceArn: ResourceArn.t option
        [@ocaml.doc "The ARN of the resource."];
      maxResults: MaxResults.t option
        [@ocaml.doc "The maximum number of results to return."];
      nextToken: NextToken.t option
        [@ocaml.doc "The token for the next page of results."]}
    let context_ = "GetNetworkResourcesRequest"
    let make ?coreNetworkId =
      fun ?registeredGatewayArn ->
        fun ?awsRegion ->
          fun ?accountId ->
            fun ?resourceType ->
              fun ?resourceArn ->
                fun ?maxResults ->
                  fun ?nextToken ->
                    fun ~globalNetworkId ->
                      fun () ->
                        {
                          coreNetworkId;
                          registeredGatewayArn;
                          awsRegion;
                          accountId;
                          resourceType;
                          resourceArn;
                          maxResults;
                          nextToken;
                          globalNetworkId
                        }
    let to_value x =
      structure_to_value
        [("globalNetworkId",
           (Some (GlobalNetworkId.to_value x.globalNetworkId)));
        ("coreNetworkId",
          (Option.map x.coreNetworkId ~f:CoreNetworkId.to_value));
        ("registeredGatewayArn",
          (Option.map x.registeredGatewayArn ~f:ResourceArn.to_value));
        ("awsRegion",
          (Option.map x.awsRegion ~f:ExternalRegionCode.to_value));
        ("accountId", (Option.map x.accountId ~f:AWSAccountId.to_value));
        ("resourceType",
          (Option.map x.resourceType ~f:ConstrainedString.to_value));
        ("resourceArn", (Option.map x.resourceArn ~f:ResourceArn.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 resourceArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "resourceArn") in
      let resourceType =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "resourceType") in
      let accountId =
        (Option.map ~f:AWSAccountId.of_xml) (Xml.child xml_arg0 "accountId") in
      let awsRegion =
        (Option.map ~f:ExternalRegionCode.of_xml)
          (Xml.child xml_arg0 "awsRegion") in
      let registeredGatewayArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "registeredGatewayArn") in
      let coreNetworkId =
        (Option.map ~f:CoreNetworkId.of_xml)
          (Xml.child xml_arg0 "coreNetworkId") in
      let globalNetworkId =
        GlobalNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "globalNetworkId") in
      make ?nextToken ?maxResults ?resourceArn ?resourceType ?accountId
        ?awsRegion ?registeredGatewayArn ?coreNetworkId ~globalNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let resourceArn = field_map json__ "ResourceArn" ResourceArn.of_json in
      let resourceType =
        field_map json__ "ResourceType" ConstrainedString.of_json in
      let accountId = field_map json__ "AccountId" AWSAccountId.of_json in
      let awsRegion = field_map json__ "AwsRegion" ExternalRegionCode.of_json in
      let registeredGatewayArn =
        field_map json__ "RegisteredGatewayArn" ResourceArn.of_json in
      let coreNetworkId =
        field_map json__ "CoreNetworkId" CoreNetworkId.of_json in
      let globalNetworkId =
        field_map_exn json__ "GlobalNetworkId" GlobalNetworkId.of_json in
      make ?nextToken ?maxResults ?resourceArn ?resourceType ?accountId
        ?awsRegion ?registeredGatewayArn ?coreNetworkId ~globalNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the network resources for the specified global network. The results include information from the corresponding Describe call for the resource, minus any sensitive information such as pre-shared keys."]
module GetNetworkResourceRelationshipsResponse =
  struct
    type nonrec t =
      {
      relationships: RelationshipList.t option
        [@ocaml.doc "The resource relationships."];
      nextToken: NextToken.t option
        [@ocaml.doc "The 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 ?relationships =
      fun ?nextToken -> fun () -> { relationships; 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
        [("Relationships",
           (Option.map x.relationships ~f:RelationshipList.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 relationships =
        (Option.map ~f:RelationshipList.of_xml)
          (Xml.child xml_arg0 "Relationships") in
      make ?nextToken ?relationships ()
    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 relationships =
        field_map json__ "Relationships" RelationshipList.of_json in
      make ?nextToken ?relationships ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the network resource relationships for the specified global network."]
module GetNetworkResourceRelationshipsRequest =
  struct
    type nonrec t =
      {
      globalNetworkId: GlobalNetworkId.t
        [@ocaml.doc "The ID of the global network."];
      coreNetworkId: CoreNetworkId.t option
        [@ocaml.doc "The ID of a core network."];
      registeredGatewayArn: ResourceArn.t option
        [@ocaml.doc "The ARN of the registered gateway."];
      awsRegion: ExternalRegionCode.t option
        [@ocaml.doc "The Amazon Web Services Region."];
      accountId: AWSAccountId.t option
        [@ocaml.doc "The Amazon Web Services account ID."];
      resourceType: ConstrainedString.t option
        [@ocaml.doc
          "The resource type. The following are the supported resource types for Direct Connect: dxcon dx-gateway dx-vif The following are the supported resource types for Network Manager: attachment connect-peer connection core-network device link peering site The following are the supported resource types for Amazon VPC: customer-gateway transit-gateway transit-gateway-attachment transit-gateway-connect-peer transit-gateway-route-table vpn-connection"];
      resourceArn: ResourceArn.t option
        [@ocaml.doc "The ARN of the gateway."];
      maxResults: MaxResults.t option
        [@ocaml.doc "The maximum number of results to return."];
      nextToken: NextToken.t option
        [@ocaml.doc "The token for the next page of results."]}
    let context_ = "GetNetworkResourceRelationshipsRequest"
    let make ?coreNetworkId =
      fun ?registeredGatewayArn ->
        fun ?awsRegion ->
          fun ?accountId ->
            fun ?resourceType ->
              fun ?resourceArn ->
                fun ?maxResults ->
                  fun ?nextToken ->
                    fun ~globalNetworkId ->
                      fun () ->
                        {
                          coreNetworkId;
                          registeredGatewayArn;
                          awsRegion;
                          accountId;
                          resourceType;
                          resourceArn;
                          maxResults;
                          nextToken;
                          globalNetworkId
                        }
    let to_value x =
      structure_to_value
        [("globalNetworkId",
           (Some (GlobalNetworkId.to_value x.globalNetworkId)));
        ("coreNetworkId",
          (Option.map x.coreNetworkId ~f:CoreNetworkId.to_value));
        ("registeredGatewayArn",
          (Option.map x.registeredGatewayArn ~f:ResourceArn.to_value));
        ("awsRegion",
          (Option.map x.awsRegion ~f:ExternalRegionCode.to_value));
        ("accountId", (Option.map x.accountId ~f:AWSAccountId.to_value));
        ("resourceType",
          (Option.map x.resourceType ~f:ConstrainedString.to_value));
        ("resourceArn", (Option.map x.resourceArn ~f:ResourceArn.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 resourceArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "resourceArn") in
      let resourceType =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "resourceType") in
      let accountId =
        (Option.map ~f:AWSAccountId.of_xml) (Xml.child xml_arg0 "accountId") in
      let awsRegion =
        (Option.map ~f:ExternalRegionCode.of_xml)
          (Xml.child xml_arg0 "awsRegion") in
      let registeredGatewayArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "registeredGatewayArn") in
      let coreNetworkId =
        (Option.map ~f:CoreNetworkId.of_xml)
          (Xml.child xml_arg0 "coreNetworkId") in
      let globalNetworkId =
        GlobalNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "globalNetworkId") in
      make ?nextToken ?maxResults ?resourceArn ?resourceType ?accountId
        ?awsRegion ?registeredGatewayArn ?coreNetworkId ~globalNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let resourceArn = field_map json__ "ResourceArn" ResourceArn.of_json in
      let resourceType =
        field_map json__ "ResourceType" ConstrainedString.of_json in
      let accountId = field_map json__ "AccountId" AWSAccountId.of_json in
      let awsRegion = field_map json__ "AwsRegion" ExternalRegionCode.of_json in
      let registeredGatewayArn =
        field_map json__ "RegisteredGatewayArn" ResourceArn.of_json in
      let coreNetworkId =
        field_map json__ "CoreNetworkId" CoreNetworkId.of_json in
      let globalNetworkId =
        field_map_exn json__ "GlobalNetworkId" GlobalNetworkId.of_json in
      make ?nextToken ?maxResults ?resourceArn ?resourceType ?accountId
        ?awsRegion ?registeredGatewayArn ?coreNetworkId ~globalNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the network resource relationships for the specified global network."]
module GetNetworkResourceCountsResponse =
  struct
    type nonrec t =
      {
      networkResourceCounts: NetworkResourceCountList.t option
        [@ocaml.doc "The count of resources."];
      nextToken: NextToken.t option
        [@ocaml.doc "The 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 ?networkResourceCounts =
      fun ?nextToken -> fun () -> { networkResourceCounts; 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
        [("NetworkResourceCounts",
           (Option.map x.networkResourceCounts
              ~f:NetworkResourceCountList.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 networkResourceCounts =
        (Option.map ~f:NetworkResourceCountList.of_xml)
          (Xml.child xml_arg0 "NetworkResourceCounts") in
      make ?nextToken ?networkResourceCounts ()
    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 networkResourceCounts =
        field_map json__ "NetworkResourceCounts"
          NetworkResourceCountList.of_json in
      make ?nextToken ?networkResourceCounts ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the count of network resources, by resource type, for the specified global network."]
module GetNetworkResourceCountsRequest =
  struct
    type nonrec t =
      {
      globalNetworkId: GlobalNetworkId.t
        [@ocaml.doc "The ID of the global network."];
      resourceType: ConstrainedString.t option
        [@ocaml.doc
          "The resource type. The following are the supported resource types for Direct Connect: dxcon dx-gateway dx-vif The following are the supported resource types for Network Manager: attachment connect-peer connection core-network device link peering site The following are the supported resource types for Amazon VPC: customer-gateway transit-gateway transit-gateway-attachment transit-gateway-connect-peer transit-gateway-route-table vpn-connection"];
      maxResults: MaxResults.t option
        [@ocaml.doc "The maximum number of results to return."];
      nextToken: NextToken.t option
        [@ocaml.doc "The token for the next page of results."]}
    let context_ = "GetNetworkResourceCountsRequest"
    let make ?resourceType =
      fun ?maxResults ->
        fun ?nextToken ->
          fun ~globalNetworkId ->
            fun () ->
              { resourceType; maxResults; nextToken; globalNetworkId }
    let to_value x =
      structure_to_value
        [("globalNetworkId",
           (Some (GlobalNetworkId.to_value x.globalNetworkId)));
        ("resourceType",
          (Option.map x.resourceType ~f:ConstrainedString.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 resourceType =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "resourceType") in
      let globalNetworkId =
        GlobalNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "globalNetworkId") in
      make ?nextToken ?maxResults ?resourceType ~globalNetworkId ()
    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 resourceType =
        field_map json__ "ResourceType" ConstrainedString.of_json in
      let globalNetworkId =
        field_map_exn json__ "GlobalNetworkId" GlobalNetworkId.of_json in
      make ?nextToken ?maxResults ?resourceType ~globalNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the count of network resources, by resource type, for the specified global network."]
module GetLinksResponse =
  struct
    type nonrec t =
      {
      links: LinkList.t option [@ocaml.doc "The links."];
      nextToken: NextToken.t option
        [@ocaml.doc "The 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 ?links = fun ?nextToken -> fun () -> { links; 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
        [("Links", (Option.map x.links ~f:LinkList.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 links =
        (Option.map ~f:LinkList.of_xml) (Xml.child xml_arg0 "Links") in
      make ?nextToken ?links ()
    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 links = field_map json__ "Links" LinkList.of_json in
      make ?nextToken ?links ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets information about one or more links in a specified global network. If you specify the site ID, you cannot specify the type or provider in the same request. You can specify the type and provider in the same request."]
module GetLinksRequest =
  struct
    type nonrec t =
      {
      globalNetworkId: GlobalNetworkId.t
        [@ocaml.doc "The ID of the global network."];
      linkIds: LinkIdList.t option
        [@ocaml.doc "One or more link IDs. The maximum is 10."];
      siteId: SiteId.t option [@ocaml.doc "The ID of the site."];
      type_: ConstrainedString.t option [@ocaml.doc "The link type."];
      provider: ConstrainedString.t option [@ocaml.doc "The link provider."];
      maxResults: MaxResults.t option
        [@ocaml.doc "The maximum number of results to return."];
      nextToken: NextToken.t option
        [@ocaml.doc "The token for the next page of results."]}
    let context_ = "GetLinksRequest"
    let make ?linkIds =
      fun ?siteId ->
        fun ?type_ ->
          fun ?provider ->
            fun ?maxResults ->
              fun ?nextToken ->
                fun ~globalNetworkId ->
                  fun () ->
                    {
                      linkIds;
                      siteId;
                      type_;
                      provider;
                      maxResults;
                      nextToken;
                      globalNetworkId
                    }
    let to_value x =
      structure_to_value
        [("globalNetworkId",
           (Some (GlobalNetworkId.to_value x.globalNetworkId)));
        ("linkIds", (Option.map x.linkIds ~f:LinkIdList.to_value));
        ("siteId", (Option.map x.siteId ~f:SiteId.to_value));
        ("type", (Option.map x.type_ ~f:ConstrainedString.to_value));
        ("provider", (Option.map x.provider ~f:ConstrainedString.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 provider =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "provider") in
      let type_ =
        (Option.map ~f:ConstrainedString.of_xml) (Xml.child xml_arg0 "type") in
      let siteId =
        (Option.map ~f:SiteId.of_xml) (Xml.child xml_arg0 "siteId") in
      let linkIds =
        (Option.map ~f:LinkIdList.of_xml) (Xml.child xml_arg0 "linkIds") in
      let globalNetworkId =
        GlobalNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "globalNetworkId") in
      make ?nextToken ?maxResults ?provider ?type_ ?siteId ?linkIds
        ~globalNetworkId ()
    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 provider = field_map json__ "Provider" ConstrainedString.of_json in
      let type_ = field_map json__ "Type" ConstrainedString.of_json in
      let siteId = field_map json__ "SiteId" SiteId.of_json in
      let linkIds = field_map json__ "LinkIds" LinkIdList.of_json in
      let globalNetworkId =
        field_map_exn json__ "GlobalNetworkId" GlobalNetworkId.of_json in
      make ?nextToken ?maxResults ?provider ?type_ ?siteId ?linkIds
        ~globalNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets information about one or more links in a specified global network. If you specify the site ID, you cannot specify the type or provider in the same request. You can specify the type and provider in the same request."]
module GetLinkAssociationsResponse =
  struct
    type nonrec t =
      {
      linkAssociations: LinkAssociationList.t option
        [@ocaml.doc "The link associations."];
      nextToken: NextToken.t option
        [@ocaml.doc "The 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 ?linkAssociations =
      fun ?nextToken -> fun () -> { linkAssociations; 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
        [("LinkAssociations",
           (Option.map x.linkAssociations ~f:LinkAssociationList.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 linkAssociations =
        (Option.map ~f:LinkAssociationList.of_xml)
          (Xml.child xml_arg0 "LinkAssociations") in
      make ?nextToken ?linkAssociations ()
    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 linkAssociations =
        field_map json__ "LinkAssociations" LinkAssociationList.of_json in
      make ?nextToken ?linkAssociations ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the link associations for a device or a link. Either the device ID or the link ID must be specified."]
module GetLinkAssociationsRequest =
  struct
    type nonrec t =
      {
      globalNetworkId: GlobalNetworkId.t
        [@ocaml.doc "The ID of the global network."];
      deviceId: DeviceId.t option [@ocaml.doc "The ID of the device."];
      linkId: LinkId.t option [@ocaml.doc "The ID of the link."];
      maxResults: MaxResults.t option
        [@ocaml.doc "The maximum number of results to return."];
      nextToken: NextToken.t option
        [@ocaml.doc "The token for the next page of results."]}
    let context_ = "GetLinkAssociationsRequest"
    let make ?deviceId =
      fun ?linkId ->
        fun ?maxResults ->
          fun ?nextToken ->
            fun ~globalNetworkId ->
              fun () ->
                { deviceId; linkId; maxResults; nextToken; globalNetworkId }
    let to_value x =
      structure_to_value
        [("globalNetworkId",
           (Some (GlobalNetworkId.to_value x.globalNetworkId)));
        ("deviceId", (Option.map x.deviceId ~f:DeviceId.to_value));
        ("linkId", (Option.map x.linkId ~f:LinkId.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 linkId =
        (Option.map ~f:LinkId.of_xml) (Xml.child xml_arg0 "linkId") in
      let deviceId =
        (Option.map ~f:DeviceId.of_xml) (Xml.child xml_arg0 "deviceId") in
      let globalNetworkId =
        GlobalNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "globalNetworkId") in
      make ?nextToken ?maxResults ?linkId ?deviceId ~globalNetworkId ()
    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 linkId = field_map json__ "LinkId" LinkId.of_json in
      let deviceId = field_map json__ "DeviceId" DeviceId.of_json in
      let globalNetworkId =
        field_map_exn json__ "GlobalNetworkId" GlobalNetworkId.of_json in
      make ?nextToken ?maxResults ?linkId ?deviceId ~globalNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the link associations for a device or a link. Either the device ID or the link ID must be specified."]
module GetDirectConnectGatewayAttachmentResponse =
  struct
    type nonrec t =
      {
      directConnectGatewayAttachment: DirectConnectGatewayAttachment.t option
        [@ocaml.doc
          "Shows details about the Direct Connect gateway attachment."]}
    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 ?directConnectGatewayAttachment =
      fun () -> { directConnectGatewayAttachment }
    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
        [("DirectConnectGatewayAttachment",
           (Option.map x.directConnectGatewayAttachment
              ~f:DirectConnectGatewayAttachment.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let directConnectGatewayAttachment =
        (Option.map ~f:DirectConnectGatewayAttachment.of_xml)
          (Xml.child xml_arg0 "DirectConnectGatewayAttachment") in
      make ?directConnectGatewayAttachment ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let directConnectGatewayAttachment =
        field_map json__ "DirectConnectGatewayAttachment"
          DirectConnectGatewayAttachment.of_json in
      make ?directConnectGatewayAttachment ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about a specific Amazon Web Services Direct Connect gateway attachment."]
module GetDirectConnectGatewayAttachmentRequest =
  struct
    type nonrec t =
      {
      attachmentId: AttachmentId.t
        [@ocaml.doc
          "The ID of the Direct Connect gateway attachment that you want to see details about."]}
    let context_ = "GetDirectConnectGatewayAttachmentRequest"
    let make ~attachmentId = fun () -> { attachmentId }
    let to_value x =
      structure_to_value
        [("attachmentId", (Some (AttachmentId.to_value x.attachmentId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attachmentId =
        AttachmentId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "attachmentId") in
      make ~attachmentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attachmentId =
        field_map_exn json__ "AttachmentId" AttachmentId.of_json in
      make ~attachmentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about a specific Amazon Web Services Direct Connect gateway attachment."]
module GetDevicesResponse =
  struct
    type nonrec t =
      {
      devices: DeviceList.t option [@ocaml.doc "The devices."];
      nextToken: NextToken.t option
        [@ocaml.doc "The 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 ?devices = fun ?nextToken -> fun () -> { devices; 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
        [("Devices", (Option.map x.devices ~f:DeviceList.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 devices =
        (Option.map ~f:DeviceList.of_xml) (Xml.child xml_arg0 "Devices") in
      make ?nextToken ?devices ()
    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 devices = field_map json__ "Devices" DeviceList.of_json in
      make ?nextToken ?devices ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets information about one or more of your devices in a global network."]
module GetDevicesRequest =
  struct
    type nonrec t =
      {
      globalNetworkId: GlobalNetworkId.t
        [@ocaml.doc "The ID of the global network."];
      deviceIds: DeviceIdList.t option
        [@ocaml.doc "One or more device IDs. The maximum is 10."];
      siteId: SiteId.t option [@ocaml.doc "The ID of the site."];
      maxResults: MaxResults.t option
        [@ocaml.doc "The maximum number of results to return."];
      nextToken: NextToken.t option
        [@ocaml.doc "The token for the next page of results."]}
    let context_ = "GetDevicesRequest"
    let make ?deviceIds =
      fun ?siteId ->
        fun ?maxResults ->
          fun ?nextToken ->
            fun ~globalNetworkId ->
              fun () ->
                { deviceIds; siteId; maxResults; nextToken; globalNetworkId }
    let to_value x =
      structure_to_value
        [("globalNetworkId",
           (Some (GlobalNetworkId.to_value x.globalNetworkId)));
        ("deviceIds", (Option.map x.deviceIds ~f:DeviceIdList.to_value));
        ("siteId", (Option.map x.siteId ~f:SiteId.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 siteId =
        (Option.map ~f:SiteId.of_xml) (Xml.child xml_arg0 "siteId") in
      let deviceIds =
        (Option.map ~f:DeviceIdList.of_xml) (Xml.child xml_arg0 "deviceIds") in
      let globalNetworkId =
        GlobalNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "globalNetworkId") in
      make ?nextToken ?maxResults ?siteId ?deviceIds ~globalNetworkId ()
    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 siteId = field_map json__ "SiteId" SiteId.of_json in
      let deviceIds = field_map json__ "DeviceIds" DeviceIdList.of_json in
      let globalNetworkId =
        field_map_exn json__ "GlobalNetworkId" GlobalNetworkId.of_json in
      make ?nextToken ?maxResults ?siteId ?deviceIds ~globalNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets information about one or more of your devices in a global network."]
module GetCustomerGatewayAssociationsResponse =
  struct
    type nonrec t =
      {
      customerGatewayAssociations: CustomerGatewayAssociationList.t option
        [@ocaml.doc "The customer gateway associations."];
      nextToken: NextToken.t option
        [@ocaml.doc "The token for the next page of results."]}
    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 ?customerGatewayAssociations =
      fun ?nextToken -> fun () -> { customerGatewayAssociations; nextToken }
    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
        [("CustomerGatewayAssociations",
           (Option.map x.customerGatewayAssociations
              ~f:CustomerGatewayAssociationList.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 customerGatewayAssociations =
        (Option.map ~f:CustomerGatewayAssociationList.of_xml)
          (Xml.child xml_arg0 "CustomerGatewayAssociations") in
      make ?nextToken ?customerGatewayAssociations ()
    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 customerGatewayAssociations =
        field_map json__ "CustomerGatewayAssociations"
          CustomerGatewayAssociationList.of_json in
      make ?nextToken ?customerGatewayAssociations ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the association information for customer gateways that are associated with devices and links in your global network."]
module GetCustomerGatewayAssociationsRequest =
  struct
    type nonrec t =
      {
      globalNetworkId: GlobalNetworkId.t
        [@ocaml.doc "The ID of the global network."];
      customerGatewayArns: CustomerGatewayArnList.t option
        [@ocaml.doc
          "One or more customer gateway Amazon Resource Names (ARNs). The maximum is 10."];
      maxResults: MaxResults.t option
        [@ocaml.doc "The maximum number of results to return."];
      nextToken: NextToken.t option
        [@ocaml.doc "The token for the next page of results."]}
    let context_ = "GetCustomerGatewayAssociationsRequest"
    let make ?customerGatewayArns =
      fun ?maxResults ->
        fun ?nextToken ->
          fun ~globalNetworkId ->
            fun () ->
              { customerGatewayArns; maxResults; nextToken; globalNetworkId }
    let to_value x =
      structure_to_value
        [("globalNetworkId",
           (Some (GlobalNetworkId.to_value x.globalNetworkId)));
        ("customerGatewayArns",
          (Option.map x.customerGatewayArns
             ~f:CustomerGatewayArnList.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 customerGatewayArns =
        (Option.map ~f:CustomerGatewayArnList.of_xml)
          (Xml.child xml_arg0 "customerGatewayArns") in
      let globalNetworkId =
        GlobalNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "globalNetworkId") in
      make ?nextToken ?maxResults ?customerGatewayArns ~globalNetworkId ()
    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 customerGatewayArns =
        field_map json__ "CustomerGatewayArns" CustomerGatewayArnList.of_json in
      let globalNetworkId =
        field_map_exn json__ "GlobalNetworkId" GlobalNetworkId.of_json in
      make ?nextToken ?maxResults ?customerGatewayArns ~globalNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the association information for customer gateways that are associated with devices and links in your global network."]
module GetCoreNetworkResponse =
  struct
    type nonrec t =
      {
      coreNetwork: CoreNetwork.t option
        [@ocaml.doc "Details about a core 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 ?coreNetwork = fun () -> { coreNetwork }
    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
        [("CoreNetwork", (Option.map x.coreNetwork ~f:CoreNetwork.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let coreNetwork =
        (Option.map ~f:CoreNetwork.of_xml) (Xml.child xml_arg0 "CoreNetwork") in
      make ?coreNetwork ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let coreNetwork = field_map json__ "CoreNetwork" CoreNetwork.of_json in
      make ?coreNetwork ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about the LIVE policy for a core network."]
module GetCoreNetworkRequest =
  struct
    type nonrec t =
      {
      coreNetworkId: CoreNetworkId.t [@ocaml.doc "The ID of a core network."]}
    let context_ = "GetCoreNetworkRequest"
    let make ~coreNetworkId = fun () -> { coreNetworkId }
    let to_value x =
      structure_to_value
        [("coreNetworkId", (Some (CoreNetworkId.to_value x.coreNetworkId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let coreNetworkId =
        CoreNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "coreNetworkId") in
      make ~coreNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let coreNetworkId =
        field_map_exn json__ "CoreNetworkId" CoreNetworkId.of_json in
      make ~coreNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about the LIVE policy for a core network."]
module GetCoreNetworkPolicyResponse =
  struct
    type nonrec t =
      {
      coreNetworkPolicy: CoreNetworkPolicy.t option
        [@ocaml.doc "The details about a core network 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 ?coreNetworkPolicy = fun () -> { coreNetworkPolicy }
    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
        [("CoreNetworkPolicy",
           (Option.map x.coreNetworkPolicy ~f:CoreNetworkPolicy.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let coreNetworkPolicy =
        (Option.map ~f:CoreNetworkPolicy.of_xml)
          (Xml.child xml_arg0 "CoreNetworkPolicy") in
      make ?coreNetworkPolicy ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let coreNetworkPolicy =
        field_map json__ "CoreNetworkPolicy" CoreNetworkPolicy.of_json in
      make ?coreNetworkPolicy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns details about a core network policy. You can get details about your current live policy or any previous policy version."]
module GetCoreNetworkPolicyRequest =
  struct
    type nonrec t =
      {
      coreNetworkId: CoreNetworkId.t [@ocaml.doc "The ID of a core network."];
      policyVersionId: Integer.t option
        [@ocaml.doc "The ID of a core network policy version."];
      alias: CoreNetworkPolicyAlias.t option
        [@ocaml.doc "The alias of a core network policy"]}
    let context_ = "GetCoreNetworkPolicyRequest"
    let make ?policyVersionId =
      fun ?alias ->
        fun ~coreNetworkId ->
          fun () -> { policyVersionId; alias; coreNetworkId }
    let to_value x =
      structure_to_value
        [("coreNetworkId", (Some (CoreNetworkId.to_value x.coreNetworkId)));
        ("policyVersionId",
          (Option.map x.policyVersionId ~f:Integer.to_value));
        ("alias", (Option.map x.alias ~f:CoreNetworkPolicyAlias.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let alias =
        (Option.map ~f:CoreNetworkPolicyAlias.of_xml)
          (Xml.child xml_arg0 "alias") in
      let policyVersionId =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "policyVersionId") in
      let coreNetworkId =
        CoreNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "coreNetworkId") in
      make ?alias ?policyVersionId ~coreNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let alias = field_map json__ "Alias" CoreNetworkPolicyAlias.of_json in
      let policyVersionId =
        field_map json__ "PolicyVersionId" Integer.of_json in
      let coreNetworkId =
        field_map_exn json__ "CoreNetworkId" CoreNetworkId.of_json in
      make ?alias ?policyVersionId ~coreNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns details about a core network policy. You can get details about your current live policy or any previous policy version."]
module GetCoreNetworkChangeSetResponse =
  struct
    type nonrec t =
      {
      coreNetworkChanges: CoreNetworkChangeList.t option
        [@ocaml.doc "Describes a core network changes."];
      nextToken: NextToken.t option
        [@ocaml.doc "The 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 ?coreNetworkChanges =
      fun ?nextToken -> fun () -> { coreNetworkChanges; 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
        [("CoreNetworkChanges",
           (Option.map x.coreNetworkChanges ~f:CoreNetworkChangeList.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 coreNetworkChanges =
        (Option.map ~f:CoreNetworkChangeList.of_xml)
          (Xml.child xml_arg0 "CoreNetworkChanges") in
      make ?nextToken ?coreNetworkChanges ()
    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 coreNetworkChanges =
        field_map json__ "CoreNetworkChanges" CoreNetworkChangeList.of_json in
      make ?nextToken ?coreNetworkChanges ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a change set between the LIVE core network policy and a submitted policy."]
module GetCoreNetworkChangeSetRequest =
  struct
    type nonrec t =
      {
      coreNetworkId: CoreNetworkId.t [@ocaml.doc "The ID of a core network."];
      policyVersionId: Integer.t [@ocaml.doc "The ID of the policy version."];
      maxResults: MaxResults.t option
        [@ocaml.doc "The maximum number of results to return."];
      nextToken: NextToken.t option
        [@ocaml.doc "The token for the next page of results."]}
    let context_ = "GetCoreNetworkChangeSetRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~coreNetworkId ->
          fun ~policyVersionId ->
            fun () ->
              { maxResults; nextToken; coreNetworkId; policyVersionId }
    let to_value x =
      structure_to_value
        [("coreNetworkId", (Some (CoreNetworkId.to_value x.coreNetworkId)));
        ("policyVersionId", (Some (Integer.to_value x.policyVersionId)));
        ("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 policyVersionId =
        Integer.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "policyVersionId") in
      let coreNetworkId =
        CoreNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "coreNetworkId") in
      make ?nextToken ?maxResults ~policyVersionId ~coreNetworkId ()
    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 policyVersionId =
        field_map_exn json__ "PolicyVersionId" Integer.of_json in
      let coreNetworkId =
        field_map_exn json__ "CoreNetworkId" CoreNetworkId.of_json in
      make ?nextToken ?maxResults ~policyVersionId ~coreNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a change set between the LIVE core network policy and a submitted policy."]
module GetCoreNetworkChangeEventsResponse =
  struct
    type nonrec t =
      {
      coreNetworkChangeEvents: CoreNetworkChangeEventList.t option
        [@ocaml.doc "The response to GetCoreNetworkChangeEventsRequest."];
      nextToken: NextToken.t option
        [@ocaml.doc "The 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 ?coreNetworkChangeEvents =
      fun ?nextToken -> fun () -> { coreNetworkChangeEvents; 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
        [("CoreNetworkChangeEvents",
           (Option.map x.coreNetworkChangeEvents
              ~f:CoreNetworkChangeEventList.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 coreNetworkChangeEvents =
        (Option.map ~f:CoreNetworkChangeEventList.of_xml)
          (Xml.child xml_arg0 "CoreNetworkChangeEvents") in
      make ?nextToken ?coreNetworkChangeEvents ()
    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 coreNetworkChangeEvents =
        field_map json__ "CoreNetworkChangeEvents"
          CoreNetworkChangeEventList.of_json in
      make ?nextToken ?coreNetworkChangeEvents ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about a core network change event."]
module GetCoreNetworkChangeEventsRequest =
  struct
    type nonrec t =
      {
      coreNetworkId: CoreNetworkId.t [@ocaml.doc "The ID of a core network."];
      policyVersionId: Integer.t [@ocaml.doc "The ID of the policy version."];
      maxResults: MaxResults.t option
        [@ocaml.doc "The maximum number of results to return."];
      nextToken: NextToken.t option
        [@ocaml.doc "The token for the next page of results."]}
    let context_ = "GetCoreNetworkChangeEventsRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~coreNetworkId ->
          fun ~policyVersionId ->
            fun () ->
              { maxResults; nextToken; coreNetworkId; policyVersionId }
    let to_value x =
      structure_to_value
        [("coreNetworkId", (Some (CoreNetworkId.to_value x.coreNetworkId)));
        ("policyVersionId", (Some (Integer.to_value x.policyVersionId)));
        ("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 policyVersionId =
        Integer.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "policyVersionId") in
      let coreNetworkId =
        CoreNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "coreNetworkId") in
      make ?nextToken ?maxResults ~policyVersionId ~coreNetworkId ()
    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 policyVersionId =
        field_map_exn json__ "PolicyVersionId" Integer.of_json in
      let coreNetworkId =
        field_map_exn json__ "CoreNetworkId" CoreNetworkId.of_json in
      make ?nextToken ?maxResults ~policyVersionId ~coreNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about a core network change event."]
module GetConnectionsResponse =
  struct
    type nonrec t =
      {
      connections: ConnectionList.t option
        [@ocaml.doc "Information about the connections."];
      nextToken: NextToken.t option
        [@ocaml.doc "The token to use 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 ?connections =
      fun ?nextToken -> fun () -> { connections; 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
        [("Connections",
           (Option.map x.connections ~f:ConnectionList.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 connections =
        (Option.map ~f:ConnectionList.of_xml)
          (Xml.child xml_arg0 "Connections") in
      make ?nextToken ?connections ()
    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 connections = field_map json__ "Connections" ConnectionList.of_json in
      make ?nextToken ?connections ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets information about one or more of your connections in a global network."]
module GetConnectionsRequest =
  struct
    type nonrec t =
      {
      globalNetworkId: GlobalNetworkId.t
        [@ocaml.doc "The ID of the global network."];
      connectionIds: ConnectionIdList.t option
        [@ocaml.doc "One or more connection IDs."];
      deviceId: DeviceId.t option [@ocaml.doc "The ID of the device."];
      maxResults: MaxResults.t option
        [@ocaml.doc "The maximum number of results to return."];
      nextToken: NextToken.t option
        [@ocaml.doc "The token for the next page of results."]}
    let context_ = "GetConnectionsRequest"
    let make ?connectionIds =
      fun ?deviceId ->
        fun ?maxResults ->
          fun ?nextToken ->
            fun ~globalNetworkId ->
              fun () ->
                {
                  connectionIds;
                  deviceId;
                  maxResults;
                  nextToken;
                  globalNetworkId
                }
    let to_value x =
      structure_to_value
        [("globalNetworkId",
           (Some (GlobalNetworkId.to_value x.globalNetworkId)));
        ("connectionIds",
          (Option.map x.connectionIds ~f:ConnectionIdList.to_value));
        ("deviceId", (Option.map x.deviceId ~f:DeviceId.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 deviceId =
        (Option.map ~f:DeviceId.of_xml) (Xml.child xml_arg0 "deviceId") in
      let connectionIds =
        (Option.map ~f:ConnectionIdList.of_xml)
          (Xml.child xml_arg0 "connectionIds") in
      let globalNetworkId =
        GlobalNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "globalNetworkId") in
      make ?nextToken ?maxResults ?deviceId ?connectionIds ~globalNetworkId
        ()
    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 deviceId = field_map json__ "DeviceId" DeviceId.of_json in
      let connectionIds =
        field_map json__ "ConnectionIds" ConnectionIdList.of_json in
      let globalNetworkId =
        field_map_exn json__ "GlobalNetworkId" GlobalNetworkId.of_json in
      make ?nextToken ?maxResults ?deviceId ?connectionIds ~globalNetworkId
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets information about one or more of your connections in a global network."]
module GetConnectPeerResponse =
  struct
    type nonrec t =
      {
      connectPeer: ConnectPeer.t option
        [@ocaml.doc "Returns information about a core network Connect peer."]}
    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 ?connectPeer = fun () -> { connectPeer }
    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
        [("ConnectPeer", (Option.map x.connectPeer ~f:ConnectPeer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let connectPeer =
        (Option.map ~f:ConnectPeer.of_xml) (Xml.child xml_arg0 "ConnectPeer") in
      make ?connectPeer ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let connectPeer = field_map json__ "ConnectPeer" ConnectPeer.of_json in
      make ?connectPeer ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about a core network Connect peer."]
module GetConnectPeerRequest =
  struct
    type nonrec t =
      {
      connectPeerId: ConnectPeerId.t
        [@ocaml.doc "The ID of the Connect peer."]}
    let context_ = "GetConnectPeerRequest"
    let make ~connectPeerId = fun () -> { connectPeerId }
    let to_value x =
      structure_to_value
        [("connectPeerId", (Some (ConnectPeerId.to_value x.connectPeerId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let connectPeerId =
        ConnectPeerId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "connectPeerId") in
      make ~connectPeerId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let connectPeerId =
        field_map_exn json__ "ConnectPeerId" ConnectPeerId.of_json in
      make ~connectPeerId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about a core network Connect peer."]
module GetConnectPeerAssociationsResponse =
  struct
    type nonrec t =
      {
      connectPeerAssociations: ConnectPeerAssociationList.t option
        [@ocaml.doc "Displays a list of Connect peer associations."];
      nextToken: NextToken.t option
        [@ocaml.doc "The token for the next page of results."]}
    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 ?connectPeerAssociations =
      fun ?nextToken -> fun () -> { connectPeerAssociations; nextToken }
    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
        [("ConnectPeerAssociations",
           (Option.map x.connectPeerAssociations
              ~f:ConnectPeerAssociationList.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 connectPeerAssociations =
        (Option.map ~f:ConnectPeerAssociationList.of_xml)
          (Xml.child xml_arg0 "ConnectPeerAssociations") in
      make ?nextToken ?connectPeerAssociations ()
    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 connectPeerAssociations =
        field_map json__ "ConnectPeerAssociations"
          ConnectPeerAssociationList.of_json in
      make ?nextToken ?connectPeerAssociations ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about a core network Connect peer associations."]
module GetConnectPeerAssociationsRequest =
  struct
    type nonrec t =
      {
      globalNetworkId: GlobalNetworkId.t
        [@ocaml.doc "The ID of the global network."];
      connectPeerIds: ConnectPeerIdList.t option
        [@ocaml.doc "The IDs of the Connect peers."];
      maxResults: MaxResults.t option
        [@ocaml.doc "The maximum number of results to return."];
      nextToken: NextToken.t option
        [@ocaml.doc "The token for the next page of results."]}
    let context_ = "GetConnectPeerAssociationsRequest"
    let make ?connectPeerIds =
      fun ?maxResults ->
        fun ?nextToken ->
          fun ~globalNetworkId ->
            fun () ->
              { connectPeerIds; maxResults; nextToken; globalNetworkId }
    let to_value x =
      structure_to_value
        [("globalNetworkId",
           (Some (GlobalNetworkId.to_value x.globalNetworkId)));
        ("connectPeerIds",
          (Option.map x.connectPeerIds ~f:ConnectPeerIdList.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 connectPeerIds =
        (Option.map ~f:ConnectPeerIdList.of_xml)
          (Xml.child xml_arg0 "connectPeerIds") in
      let globalNetworkId =
        GlobalNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "globalNetworkId") in
      make ?nextToken ?maxResults ?connectPeerIds ~globalNetworkId ()
    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 connectPeerIds =
        field_map json__ "ConnectPeerIds" ConnectPeerIdList.of_json in
      let globalNetworkId =
        field_map_exn json__ "GlobalNetworkId" GlobalNetworkId.of_json in
      make ?nextToken ?maxResults ?connectPeerIds ~globalNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about a core network Connect peer associations."]
module GetConnectAttachmentResponse =
  struct
    type nonrec t =
      {
      connectAttachment: ConnectAttachment.t option
        [@ocaml.doc "Details about the Connect attachment."]}
    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 ?connectAttachment = fun () -> { connectAttachment }
    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
        [("ConnectAttachment",
           (Option.map x.connectAttachment ~f:ConnectAttachment.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let connectAttachment =
        (Option.map ~f:ConnectAttachment.of_xml)
          (Xml.child xml_arg0 "ConnectAttachment") in
      make ?connectAttachment ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let connectAttachment =
        field_map json__ "ConnectAttachment" ConnectAttachment.of_json in
      make ?connectAttachment ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about a core network Connect attachment."]
module GetConnectAttachmentRequest =
  struct
    type nonrec t =
      {
      attachmentId: AttachmentId.t [@ocaml.doc "The ID of the attachment."]}
    let context_ = "GetConnectAttachmentRequest"
    let make ~attachmentId = fun () -> { attachmentId }
    let to_value x =
      structure_to_value
        [("attachmentId", (Some (AttachmentId.to_value x.attachmentId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attachmentId =
        AttachmentId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "attachmentId") in
      make ~attachmentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attachmentId =
        field_map_exn json__ "AttachmentId" AttachmentId.of_json in
      make ~attachmentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about a core network Connect attachment."]
module ExecuteCoreNetworkChangeSetResponse =
  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
       "Executes a change set on your core network. Deploys changes globally based on the policy submitted.."]
module ExecuteCoreNetworkChangeSetRequest =
  struct
    type nonrec t =
      {
      coreNetworkId: CoreNetworkId.t [@ocaml.doc "The ID of a core network."];
      policyVersionId: Integer.t [@ocaml.doc "The ID of the policy version."]}
    let context_ = "ExecuteCoreNetworkChangeSetRequest"
    let make ~coreNetworkId =
      fun ~policyVersionId -> fun () -> { coreNetworkId; policyVersionId }
    let to_value x =
      structure_to_value
        [("coreNetworkId", (Some (CoreNetworkId.to_value x.coreNetworkId)));
        ("policyVersionId", (Some (Integer.to_value x.policyVersionId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policyVersionId =
        Integer.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "policyVersionId") in
      let coreNetworkId =
        CoreNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "coreNetworkId") in
      make ~policyVersionId ~coreNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let policyVersionId =
        field_map_exn json__ "PolicyVersionId" Integer.of_json in
      let coreNetworkId =
        field_map_exn json__ "CoreNetworkId" CoreNetworkId.of_json in
      make ~policyVersionId ~coreNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Executes a change set on your core network. Deploys changes globally based on the policy submitted.."]
module DisassociateTransitGatewayConnectPeerResponse =
  struct
    type nonrec t =
      {
      transitGatewayConnectPeerAssociation:
        TransitGatewayConnectPeerAssociation.t option
        [@ocaml.doc "The transit gateway Connect peer 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 ?transitGatewayConnectPeerAssociation =
      fun () -> { transitGatewayConnectPeerAssociation }
    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
        [("TransitGatewayConnectPeerAssociation",
           (Option.map x.transitGatewayConnectPeerAssociation
              ~f:TransitGatewayConnectPeerAssociation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let transitGatewayConnectPeerAssociation =
        (Option.map ~f:TransitGatewayConnectPeerAssociation.of_xml)
          (Xml.child xml_arg0 "TransitGatewayConnectPeerAssociation") in
      make ?transitGatewayConnectPeerAssociation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let transitGatewayConnectPeerAssociation =
        field_map json__ "TransitGatewayConnectPeerAssociation"
          TransitGatewayConnectPeerAssociation.of_json in
      make ?transitGatewayConnectPeerAssociation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disassociates a transit gateway Connect peer from a device and link."]
module DisassociateTransitGatewayConnectPeerRequest =
  struct
    type nonrec t =
      {
      globalNetworkId: GlobalNetworkId.t
        [@ocaml.doc "The ID of the global network."];
      transitGatewayConnectPeerArn: TransitGatewayConnectPeerArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the transit gateway Connect peer."]}
    let context_ = "DisassociateTransitGatewayConnectPeerRequest"
    let make ~globalNetworkId =
      fun ~transitGatewayConnectPeerArn ->
        fun () -> { globalNetworkId; transitGatewayConnectPeerArn }
    let to_value x =
      structure_to_value
        [("globalNetworkId",
           (Some (GlobalNetworkId.to_value x.globalNetworkId)));
        ("transitGatewayConnectPeerArn",
          (Some
             (TransitGatewayConnectPeerArn.to_value
                x.transitGatewayConnectPeerArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let transitGatewayConnectPeerArn =
        TransitGatewayConnectPeerArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "transitGatewayConnectPeerArn") in
      let globalNetworkId =
        GlobalNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "globalNetworkId") in
      make ~transitGatewayConnectPeerArn ~globalNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let transitGatewayConnectPeerArn =
        field_map_exn json__ "TransitGatewayConnectPeerArn"
          TransitGatewayConnectPeerArn.of_json in
      let globalNetworkId =
        field_map_exn json__ "GlobalNetworkId" GlobalNetworkId.of_json in
      make ~transitGatewayConnectPeerArn ~globalNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disassociates a transit gateway Connect peer from a device and link."]
module DisassociateLinkResponse =
  struct
    type nonrec t =
      {
      linkAssociation: LinkAssociation.t option
        [@ocaml.doc "Information about the link 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 ?linkAssociation = fun () -> { linkAssociation }
    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
        [("LinkAssociation",
           (Option.map x.linkAssociation ~f:LinkAssociation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let linkAssociation =
        (Option.map ~f:LinkAssociation.of_xml)
          (Xml.child xml_arg0 "LinkAssociation") in
      make ?linkAssociation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let linkAssociation =
        field_map json__ "LinkAssociation" LinkAssociation.of_json in
      make ?linkAssociation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disassociates an existing device from a link. You must first disassociate any customer gateways that are associated with the link."]
module DisassociateLinkRequest =
  struct
    type nonrec t =
      {
      globalNetworkId: GlobalNetworkId.t
        [@ocaml.doc "The ID of the global network."];
      deviceId: DeviceId.t [@ocaml.doc "The ID of the device."];
      linkId: LinkId.t [@ocaml.doc "The ID of the link."]}
    let context_ = "DisassociateLinkRequest"
    let make ~globalNetworkId =
      fun ~deviceId ->
        fun ~linkId -> fun () -> { globalNetworkId; deviceId; linkId }
    let to_value x =
      structure_to_value
        [("globalNetworkId",
           (Some (GlobalNetworkId.to_value x.globalNetworkId)));
        ("deviceId", (Some (DeviceId.to_value x.deviceId)));
        ("linkId", (Some (LinkId.to_value x.linkId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let linkId =
        LinkId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "linkId") in
      let deviceId =
        DeviceId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "deviceId") in
      let globalNetworkId =
        GlobalNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "globalNetworkId") in
      make ~linkId ~deviceId ~globalNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let linkId = field_map_exn json__ "LinkId" LinkId.of_json in
      let deviceId = field_map_exn json__ "DeviceId" DeviceId.of_json in
      let globalNetworkId =
        field_map_exn json__ "GlobalNetworkId" GlobalNetworkId.of_json in
      make ~linkId ~deviceId ~globalNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disassociates an existing device from a link. You must first disassociate any customer gateways that are associated with the link."]
module DisassociateCustomerGatewayResponse =
  struct
    type nonrec t =
      {
      customerGatewayAssociation: CustomerGatewayAssociation.t option
        [@ocaml.doc "Information about the customer gateway 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 ?customerGatewayAssociation =
      fun () -> { customerGatewayAssociation }
    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
        [("CustomerGatewayAssociation",
           (Option.map x.customerGatewayAssociation
              ~f:CustomerGatewayAssociation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let customerGatewayAssociation =
        (Option.map ~f:CustomerGatewayAssociation.of_xml)
          (Xml.child xml_arg0 "CustomerGatewayAssociation") in
      make ?customerGatewayAssociation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let customerGatewayAssociation =
        field_map json__ "CustomerGatewayAssociation"
          CustomerGatewayAssociation.of_json in
      make ?customerGatewayAssociation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disassociates a customer gateway from a device and a link."]
module DisassociateCustomerGatewayRequest =
  struct
    type nonrec t =
      {
      globalNetworkId: GlobalNetworkId.t
        [@ocaml.doc "The ID of the global network."];
      customerGatewayArn: CustomerGatewayArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the customer gateway."]}
    let context_ = "DisassociateCustomerGatewayRequest"
    let make ~globalNetworkId =
      fun ~customerGatewayArn ->
        fun () -> { globalNetworkId; customerGatewayArn }
    let to_value x =
      structure_to_value
        [("globalNetworkId",
           (Some (GlobalNetworkId.to_value x.globalNetworkId)));
        ("customerGatewayArn",
          (Some (CustomerGatewayArn.to_value x.customerGatewayArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let customerGatewayArn =
        CustomerGatewayArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "customerGatewayArn") in
      let globalNetworkId =
        GlobalNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "globalNetworkId") in
      make ~customerGatewayArn ~globalNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let customerGatewayArn =
        field_map_exn json__ "CustomerGatewayArn" CustomerGatewayArn.of_json in
      let globalNetworkId =
        field_map_exn json__ "GlobalNetworkId" GlobalNetworkId.of_json in
      make ~customerGatewayArn ~globalNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disassociates a customer gateway from a device and a link."]
module DisassociateConnectPeerResponse =
  struct
    type nonrec t =
      {
      connectPeerAssociation: ConnectPeerAssociation.t option
        [@ocaml.doc "Describes the Connect peer 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 ?connectPeerAssociation = fun () -> { connectPeerAssociation }
    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
        [("ConnectPeerAssociation",
           (Option.map x.connectPeerAssociation
              ~f:ConnectPeerAssociation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let connectPeerAssociation =
        (Option.map ~f:ConnectPeerAssociation.of_xml)
          (Xml.child xml_arg0 "ConnectPeerAssociation") in
      make ?connectPeerAssociation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let connectPeerAssociation =
        field_map json__ "ConnectPeerAssociation"
          ConnectPeerAssociation.of_json in
      make ?connectPeerAssociation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disassociates a core network Connect peer from a device and a link."]
module DisassociateConnectPeerRequest =
  struct
    type nonrec t =
      {
      globalNetworkId: GlobalNetworkId.t
        [@ocaml.doc "The ID of the global network."];
      connectPeerId: ConnectPeerId.t
        [@ocaml.doc
          "The ID of the Connect peer to disassociate from a device."]}
    let context_ = "DisassociateConnectPeerRequest"
    let make ~globalNetworkId =
      fun ~connectPeerId -> fun () -> { globalNetworkId; connectPeerId }
    let to_value x =
      structure_to_value
        [("globalNetworkId",
           (Some (GlobalNetworkId.to_value x.globalNetworkId)));
        ("connectPeerId", (Some (ConnectPeerId.to_value x.connectPeerId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let connectPeerId =
        ConnectPeerId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "connectPeerId") in
      let globalNetworkId =
        GlobalNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "globalNetworkId") in
      make ~connectPeerId ~globalNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let connectPeerId =
        field_map_exn json__ "ConnectPeerId" ConnectPeerId.of_json in
      let globalNetworkId =
        field_map_exn json__ "GlobalNetworkId" GlobalNetworkId.of_json in
      make ~connectPeerId ~globalNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disassociates a core network Connect peer from a device and a link."]
module DescribeGlobalNetworksResponse =
  struct
    type nonrec t =
      {
      globalNetworks: GlobalNetworkList.t option
        [@ocaml.doc "Information about the global networks."];
      nextToken: NextToken.t option
        [@ocaml.doc "The 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 ?globalNetworks =
      fun ?nextToken -> fun () -> { globalNetworks; 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
        [("GlobalNetworks",
           (Option.map x.globalNetworks ~f:GlobalNetworkList.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 globalNetworks =
        (Option.map ~f:GlobalNetworkList.of_xml)
          (Xml.child xml_arg0 "GlobalNetworks") in
      make ?nextToken ?globalNetworks ()
    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 globalNetworks =
        field_map json__ "GlobalNetworks" GlobalNetworkList.of_json in
      make ?nextToken ?globalNetworks ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes one or more global networks. By default, all global networks are described. To describe the objects in your global network, you must use the appropriate Get* action. For example, to list the transit gateways in your global network, use GetTransitGatewayRegistrations."]
module DescribeGlobalNetworksRequest =
  struct
    type nonrec t =
      {
      globalNetworkIds: GlobalNetworkIdList.t option
        [@ocaml.doc
          "The IDs of one or more global networks. The maximum is 10."];
      maxResults: MaxResults.t option
        [@ocaml.doc "The maximum number of results to return."];
      nextToken: NextToken.t option
        [@ocaml.doc "The token for the next page of results."]}
    let make ?globalNetworkIds =
      fun ?maxResults ->
        fun ?nextToken ->
          fun () -> { globalNetworkIds; maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("globalNetworkIds",
           (Option.map x.globalNetworkIds ~f:GlobalNetworkIdList.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 globalNetworkIds =
        (Option.map ~f:GlobalNetworkIdList.of_xml)
          (Xml.child xml_arg0 "globalNetworkIds") in
      make ?nextToken ?maxResults ?globalNetworkIds ()
    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 globalNetworkIds =
        field_map json__ "GlobalNetworkIds" GlobalNetworkIdList.of_json in
      make ?nextToken ?maxResults ?globalNetworkIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes one or more global networks. By default, all global networks are described. To describe the objects in your global network, you must use the appropriate Get* action. For example, to list the transit gateways in your global network, use GetTransitGatewayRegistrations."]
module DeregisterTransitGatewayResponse =
  struct
    type nonrec t =
      {
      transitGatewayRegistration: TransitGatewayRegistration.t option
        [@ocaml.doc "The transit gateway registration information."]}
    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 ?transitGatewayRegistration =
      fun () -> { transitGatewayRegistration }
    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
        [("TransitGatewayRegistration",
           (Option.map x.transitGatewayRegistration
              ~f:TransitGatewayRegistration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let transitGatewayRegistration =
        (Option.map ~f:TransitGatewayRegistration.of_xml)
          (Xml.child xml_arg0 "TransitGatewayRegistration") in
      make ?transitGatewayRegistration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let transitGatewayRegistration =
        field_map json__ "TransitGatewayRegistration"
          TransitGatewayRegistration.of_json in
      make ?transitGatewayRegistration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deregisters a transit gateway from your global network. This action does not delete your transit gateway, or modify any of its attachments. This action removes any customer gateway associations."]
module DeregisterTransitGatewayRequest =
  struct
    type nonrec t =
      {
      globalNetworkId: GlobalNetworkId.t
        [@ocaml.doc "The ID of the global network."];
      transitGatewayArn: TransitGatewayArn.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the transit gateway."]}
    let context_ = "DeregisterTransitGatewayRequest"
    let make ~globalNetworkId =
      fun ~transitGatewayArn ->
        fun () -> { globalNetworkId; transitGatewayArn }
    let to_value x =
      structure_to_value
        [("globalNetworkId",
           (Some (GlobalNetworkId.to_value x.globalNetworkId)));
        ("transitGatewayArn",
          (Some (TransitGatewayArn.to_value x.transitGatewayArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let transitGatewayArn =
        TransitGatewayArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "transitGatewayArn") in
      let globalNetworkId =
        GlobalNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "globalNetworkId") in
      make ~transitGatewayArn ~globalNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let transitGatewayArn =
        field_map_exn json__ "TransitGatewayArn" TransitGatewayArn.of_json in
      let globalNetworkId =
        field_map_exn json__ "GlobalNetworkId" GlobalNetworkId.of_json in
      make ~transitGatewayArn ~globalNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deregisters a transit gateway from your global network. This action does not delete your transit gateway, or modify any of its attachments. This action removes any customer gateway associations."]
module DeleteSiteResponse =
  struct
    type nonrec t =
      {
      site: Site.t option [@ocaml.doc "Information about the site."]}
    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 ?site = fun () -> { site }
    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 [("Site", (Option.map x.site ~f:Site.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let site = (Option.map ~f:Site.of_xml) (Xml.child xml_arg0 "Site") in
      make ?site ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let site = field_map json__ "Site" Site.of_json in make ?site ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an existing site. The site cannot be associated with any device or link."]
module DeleteSiteRequest =
  struct
    type nonrec t =
      {
      globalNetworkId: GlobalNetworkId.t
        [@ocaml.doc "The ID of the global network."];
      siteId: SiteId.t [@ocaml.doc "The ID of the site."]}
    let context_ = "DeleteSiteRequest"
    let make ~globalNetworkId =
      fun ~siteId -> fun () -> { globalNetworkId; siteId }
    let to_value x =
      structure_to_value
        [("globalNetworkId",
           (Some (GlobalNetworkId.to_value x.globalNetworkId)));
        ("siteId", (Some (SiteId.to_value x.siteId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let siteId =
        SiteId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "siteId") in
      let globalNetworkId =
        GlobalNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "globalNetworkId") in
      make ~siteId ~globalNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let siteId = field_map_exn json__ "SiteId" SiteId.of_json in
      let globalNetworkId =
        field_map_exn json__ "GlobalNetworkId" GlobalNetworkId.of_json in
      make ~siteId ~globalNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an existing site. The site cannot be associated with any device or link."]
module DeleteResourcePolicyResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a resource policy for the specified resource. This revokes the access of the principals specified in the resource policy."]
module DeleteResourcePolicyRequest =
  struct
    type nonrec t =
      {
      resourceArn: ResourceArn.t
        [@ocaml.doc "The ARN of the policy to delete."]}
    let context_ = "DeleteResourcePolicyRequest"
    let make ~resourceArn = fun () -> { resourceArn }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (ResourceArn.to_value x.resourceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        ResourceArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceArn =
        field_map_exn json__ "ResourceArn" ResourceArn.of_json in
      make ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a resource policy for the specified resource. This revokes the access of the principals specified in the resource policy."]
module DeletePeeringResponse =
  struct
    type nonrec t =
      {
      peering: Peering.t option
        [@ocaml.doc "Information about a deleted peering connection."]}
    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 ?peering = fun () -> { peering }
    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
        [("Peering", (Option.map x.peering ~f:Peering.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let peering =
        (Option.map ~f:Peering.of_xml) (Xml.child xml_arg0 "Peering") in
      make ?peering ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let peering = field_map json__ "Peering" Peering.of_json in
      make ?peering ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes an existing peering connection."]
module DeletePeeringRequest =
  struct
    type nonrec t =
      {
      peeringId: PeeringId.t
        [@ocaml.doc "The ID of the peering connection to delete."]}
    let context_ = "DeletePeeringRequest"
    let make ~peeringId = fun () -> { peeringId }
    let to_value x =
      structure_to_value
        [("peeringId", (Some (PeeringId.to_value x.peeringId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let peeringId =
        PeeringId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "peeringId") in
      make ~peeringId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let peeringId = field_map_exn json__ "PeeringId" PeeringId.of_json in
      make ~peeringId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes an existing peering connection."]
module DeleteLinkResponse =
  struct
    type nonrec t =
      {
      link: Link.t option [@ocaml.doc "Information about the link."]}
    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 ?link = fun () -> { link }
    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 [("Link", (Option.map x.link ~f:Link.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let link = (Option.map ~f:Link.of_xml) (Xml.child xml_arg0 "Link") in
      make ?link ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let link = field_map json__ "Link" Link.of_json in make ?link ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an existing link. You must first disassociate the link from any devices and customer gateways."]
module DeleteLinkRequest =
  struct
    type nonrec t =
      {
      globalNetworkId: GlobalNetworkId.t
        [@ocaml.doc "The ID of the global network."];
      linkId: LinkId.t [@ocaml.doc "The ID of the link."]}
    let context_ = "DeleteLinkRequest"
    let make ~globalNetworkId =
      fun ~linkId -> fun () -> { globalNetworkId; linkId }
    let to_value x =
      structure_to_value
        [("globalNetworkId",
           (Some (GlobalNetworkId.to_value x.globalNetworkId)));
        ("linkId", (Some (LinkId.to_value x.linkId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let linkId =
        LinkId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "linkId") in
      let globalNetworkId =
        GlobalNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "globalNetworkId") in
      make ~linkId ~globalNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let linkId = field_map_exn json__ "LinkId" LinkId.of_json in
      let globalNetworkId =
        field_map_exn json__ "GlobalNetworkId" GlobalNetworkId.of_json in
      make ~linkId ~globalNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an existing link. You must first disassociate the link from any devices and customer gateways."]
module DeleteGlobalNetworkResponse =
  struct
    type nonrec t =
      {
      globalNetwork: GlobalNetwork.t option
        [@ocaml.doc "Information about the global network."]}
    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 ?globalNetwork = fun () -> { globalNetwork }
    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
        [("GlobalNetwork",
           (Option.map x.globalNetwork ~f:GlobalNetwork.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let globalNetwork =
        (Option.map ~f:GlobalNetwork.of_xml)
          (Xml.child xml_arg0 "GlobalNetwork") in
      make ?globalNetwork ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let globalNetwork =
        field_map json__ "GlobalNetwork" GlobalNetwork.of_json in
      make ?globalNetwork ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an existing global network. You must first delete all global network objects (devices, links, and sites), deregister all transit gateways, and delete any core networks."]
module DeleteGlobalNetworkRequest =
  struct
    type nonrec t =
      {
      globalNetworkId: GlobalNetworkId.t
        [@ocaml.doc "The ID of the global network."]}
    let context_ = "DeleteGlobalNetworkRequest"
    let make ~globalNetworkId = fun () -> { globalNetworkId }
    let to_value x =
      structure_to_value
        [("globalNetworkId",
           (Some (GlobalNetworkId.to_value x.globalNetworkId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let globalNetworkId =
        GlobalNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "globalNetworkId") in
      make ~globalNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let globalNetworkId =
        field_map_exn json__ "GlobalNetworkId" GlobalNetworkId.of_json in
      make ~globalNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an existing global network. You must first delete all global network objects (devices, links, and sites), deregister all transit gateways, and delete any core networks."]
module DeleteDeviceResponse =
  struct
    type nonrec t =
      {
      device: Device.t option [@ocaml.doc "Information about the device."]}
    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 ?device = fun () -> { device }
    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
        [("Device", (Option.map x.device ~f:Device.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let device =
        (Option.map ~f:Device.of_xml) (Xml.child xml_arg0 "Device") in
      make ?device ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let device = field_map json__ "Device" Device.of_json in
      make ?device ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an existing device. You must first disassociate the device from any links and customer gateways."]
module DeleteDeviceRequest =
  struct
    type nonrec t =
      {
      globalNetworkId: GlobalNetworkId.t
        [@ocaml.doc "The ID of the global network."];
      deviceId: DeviceId.t [@ocaml.doc "The ID of the device."]}
    let context_ = "DeleteDeviceRequest"
    let make ~globalNetworkId =
      fun ~deviceId -> fun () -> { globalNetworkId; deviceId }
    let to_value x =
      structure_to_value
        [("globalNetworkId",
           (Some (GlobalNetworkId.to_value x.globalNetworkId)));
        ("deviceId", (Some (DeviceId.to_value x.deviceId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deviceId =
        DeviceId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "deviceId") in
      let globalNetworkId =
        GlobalNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "globalNetworkId") in
      make ~deviceId ~globalNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deviceId = field_map_exn json__ "DeviceId" DeviceId.of_json in
      let globalNetworkId =
        field_map_exn json__ "GlobalNetworkId" GlobalNetworkId.of_json in
      make ~deviceId ~globalNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an existing device. You must first disassociate the device from any links and customer gateways."]
module DeleteCoreNetworkResponse =
  struct
    type nonrec t =
      {
      coreNetwork: CoreNetwork.t option
        [@ocaml.doc "Information about the deleted core network."]}
    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 ?coreNetwork = fun () -> { coreNetwork }
    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
        [("CoreNetwork", (Option.map x.coreNetwork ~f:CoreNetwork.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let coreNetwork =
        (Option.map ~f:CoreNetwork.of_xml) (Xml.child xml_arg0 "CoreNetwork") in
      make ?coreNetwork ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let coreNetwork = field_map json__ "CoreNetwork" CoreNetwork.of_json in
      make ?coreNetwork ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a core network along with all core network policies. This can only be done if there are no attachments on a core network."]
module DeleteCoreNetworkRequest =
  struct
    type nonrec t =
      {
      coreNetworkId: CoreNetworkId.t
        [@ocaml.doc "The network ID of the deleted core network."]}
    let context_ = "DeleteCoreNetworkRequest"
    let make ~coreNetworkId = fun () -> { coreNetworkId }
    let to_value x =
      structure_to_value
        [("coreNetworkId", (Some (CoreNetworkId.to_value x.coreNetworkId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let coreNetworkId =
        CoreNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "coreNetworkId") in
      make ~coreNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let coreNetworkId =
        field_map_exn json__ "CoreNetworkId" CoreNetworkId.of_json in
      make ~coreNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a core network along with all core network policies. This can only be done if there are no attachments on a core network."]
module DeleteCoreNetworkPrefixListAssociationResponse =
  struct
    type nonrec t =
      {
      coreNetworkId: CoreNetworkId.t option
        [@ocaml.doc
          "The ID of the core network from which the prefix list association was deleted."];
      prefixListArn: PrefixListArn.t option
        [@ocaml.doc
          "The ARN of the prefix list that was disassociated from the core network."]}
    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 ?coreNetworkId =
      fun ?prefixListArn -> fun () -> { coreNetworkId; prefixListArn }
    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
        [("CoreNetworkId",
           (Option.map x.coreNetworkId ~f:CoreNetworkId.to_value));
        ("PrefixListArn",
          (Option.map x.prefixListArn ~f:PrefixListArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let prefixListArn =
        (Option.map ~f:PrefixListArn.of_xml)
          (Xml.child xml_arg0 "PrefixListArn") in
      let coreNetworkId =
        (Option.map ~f:CoreNetworkId.of_xml)
          (Xml.child xml_arg0 "CoreNetworkId") in
      make ?prefixListArn ?coreNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let prefixListArn =
        field_map json__ "PrefixListArn" PrefixListArn.of_json in
      let coreNetworkId =
        field_map json__ "CoreNetworkId" CoreNetworkId.of_json in
      make ?prefixListArn ?coreNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an association between a core network and a prefix list."]
module DeleteCoreNetworkPrefixListAssociationRequest =
  struct
    type nonrec t =
      {
      coreNetworkId: CoreNetworkId.t
        [@ocaml.doc
          "The ID of the core network from which to delete the prefix list association."];
      prefixListArn: PrefixListArn.t
        [@ocaml.doc
          "The ARN of the prefix list to disassociate from the core network."]}
    let context_ = "DeleteCoreNetworkPrefixListAssociationRequest"
    let make ~coreNetworkId =
      fun ~prefixListArn -> fun () -> { coreNetworkId; prefixListArn }
    let to_value x =
      structure_to_value
        [("coreNetworkId", (Some (CoreNetworkId.to_value x.coreNetworkId)));
        ("prefixListArn", (Some (PrefixListArn.to_value x.prefixListArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let prefixListArn =
        PrefixListArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "prefixListArn") in
      let coreNetworkId =
        CoreNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "coreNetworkId") in
      make ~prefixListArn ~coreNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let prefixListArn =
        field_map_exn json__ "PrefixListArn" PrefixListArn.of_json in
      let coreNetworkId =
        field_map_exn json__ "CoreNetworkId" CoreNetworkId.of_json in
      make ~prefixListArn ~coreNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an association between a core network and a prefix list."]
module DeleteCoreNetworkPolicyVersionResponse =
  struct
    type nonrec t =
      {
      coreNetworkPolicy: CoreNetworkPolicy.t option
        [@ocaml.doc "Returns information about the deleted policy version."]}
    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 ?coreNetworkPolicy = fun () -> { coreNetworkPolicy }
    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
        [("CoreNetworkPolicy",
           (Option.map x.coreNetworkPolicy ~f:CoreNetworkPolicy.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let coreNetworkPolicy =
        (Option.map ~f:CoreNetworkPolicy.of_xml)
          (Xml.child xml_arg0 "CoreNetworkPolicy") in
      make ?coreNetworkPolicy ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let coreNetworkPolicy =
        field_map json__ "CoreNetworkPolicy" CoreNetworkPolicy.of_json in
      make ?coreNetworkPolicy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a policy version from a core network. You can't delete the current LIVE policy."]
module DeleteCoreNetworkPolicyVersionRequest =
  struct
    type nonrec t =
      {
      coreNetworkId: CoreNetworkId.t
        [@ocaml.doc "The ID of a core network for the deleted policy."];
      policyVersionId: Integer.t
        [@ocaml.doc "The version ID of the deleted policy."]}
    let context_ = "DeleteCoreNetworkPolicyVersionRequest"
    let make ~coreNetworkId =
      fun ~policyVersionId -> fun () -> { coreNetworkId; policyVersionId }
    let to_value x =
      structure_to_value
        [("coreNetworkId", (Some (CoreNetworkId.to_value x.coreNetworkId)));
        ("policyVersionId", (Some (Integer.to_value x.policyVersionId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policyVersionId =
        Integer.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "policyVersionId") in
      let coreNetworkId =
        CoreNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "coreNetworkId") in
      make ~policyVersionId ~coreNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let policyVersionId =
        field_map_exn json__ "PolicyVersionId" Integer.of_json in
      let coreNetworkId =
        field_map_exn json__ "CoreNetworkId" CoreNetworkId.of_json in
      make ~policyVersionId ~coreNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a policy version from a core network. You can't delete the current LIVE policy."]
module DeleteConnectionResponse =
  struct
    type nonrec t =
      {
      connection: Connection.t option
        [@ocaml.doc "Information about the connection."]}
    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 ?connection = fun () -> { connection }
    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
        [("Connection", (Option.map x.connection ~f:Connection.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let connection =
        (Option.map ~f:Connection.of_xml) (Xml.child xml_arg0 "Connection") in
      make ?connection ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let connection = field_map json__ "Connection" Connection.of_json in
      make ?connection ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes the specified connection in your global network."]
module DeleteConnectionRequest =
  struct
    type nonrec t =
      {
      globalNetworkId: GlobalNetworkId.t
        [@ocaml.doc "The ID of the global network."];
      connectionId: ConnectionId.t [@ocaml.doc "The ID of the connection."]}
    let context_ = "DeleteConnectionRequest"
    let make ~globalNetworkId =
      fun ~connectionId -> fun () -> { globalNetworkId; connectionId }
    let to_value x =
      structure_to_value
        [("globalNetworkId",
           (Some (GlobalNetworkId.to_value x.globalNetworkId)));
        ("connectionId", (Some (ConnectionId.to_value x.connectionId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let connectionId =
        ConnectionId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "connectionId") in
      let globalNetworkId =
        GlobalNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "globalNetworkId") in
      make ~connectionId ~globalNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let connectionId =
        field_map_exn json__ "ConnectionId" ConnectionId.of_json in
      let globalNetworkId =
        field_map_exn json__ "GlobalNetworkId" GlobalNetworkId.of_json in
      make ~connectionId ~globalNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes the specified connection in your global network."]
module DeleteConnectPeerResponse =
  struct
    type nonrec t =
      {
      connectPeer: ConnectPeer.t option
        [@ocaml.doc "Information about the deleted Connect peer."]}
    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 ?connectPeer = fun () -> { connectPeer }
    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
        [("ConnectPeer", (Option.map x.connectPeer ~f:ConnectPeer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let connectPeer =
        (Option.map ~f:ConnectPeer.of_xml) (Xml.child xml_arg0 "ConnectPeer") in
      make ?connectPeer ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let connectPeer = field_map json__ "ConnectPeer" ConnectPeer.of_json in
      make ?connectPeer ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes a Connect peer."]
module DeleteConnectPeerRequest =
  struct
    type nonrec t =
      {
      connectPeerId: ConnectPeerId.t
        [@ocaml.doc "The ID of the deleted Connect peer."]}
    let context_ = "DeleteConnectPeerRequest"
    let make ~connectPeerId = fun () -> { connectPeerId }
    let to_value x =
      structure_to_value
        [("connectPeerId", (Some (ConnectPeerId.to_value x.connectPeerId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let connectPeerId =
        ConnectPeerId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "connectPeerId") in
      make ~connectPeerId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let connectPeerId =
        field_map_exn json__ "ConnectPeerId" ConnectPeerId.of_json in
      make ~connectPeerId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes a Connect peer."]
module DeleteAttachmentResponse =
  struct
    type nonrec t =
      {
      attachment: Attachment.t option
        [@ocaml.doc "Information about the deleted attachment."]}
    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 ?attachment = fun () -> { attachment }
    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
        [("Attachment", (Option.map x.attachment ~f:Attachment.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attachment =
        (Option.map ~f:Attachment.of_xml) (Xml.child xml_arg0 "Attachment") in
      make ?attachment ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attachment = field_map json__ "Attachment" Attachment.of_json in
      make ?attachment ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes an attachment. Supports all attachment types."]
module DeleteAttachmentRequest =
  struct
    type nonrec t =
      {
      attachmentId: AttachmentId.t
        [@ocaml.doc "The ID of the attachment to delete."]}
    let context_ = "DeleteAttachmentRequest"
    let make ~attachmentId = fun () -> { attachmentId }
    let to_value x =
      structure_to_value
        [("attachmentId", (Some (AttachmentId.to_value x.attachmentId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attachmentId =
        AttachmentId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "attachmentId") in
      make ~attachmentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attachmentId =
        field_map_exn json__ "AttachmentId" AttachmentId.of_json in
      make ~attachmentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes an attachment. Supports all attachment types."]
module CreateVpcAttachmentResponse =
  struct
    type nonrec t =
      {
      vpcAttachment: VpcAttachment.t option
        [@ocaml.doc "Provides details about the VPC attachment."]}
    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 ?vpcAttachment = fun () -> { vpcAttachment }
    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
        [("VpcAttachment",
           (Option.map x.vpcAttachment ~f:VpcAttachment.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vpcAttachment =
        (Option.map ~f:VpcAttachment.of_xml)
          (Xml.child xml_arg0 "VpcAttachment") in
      make ?vpcAttachment ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vpcAttachment =
        field_map json__ "VpcAttachment" VpcAttachment.of_json in
      make ?vpcAttachment ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a VPC attachment on an edge location of a core network."]
module CreateVpcAttachmentRequest =
  struct
    type nonrec t =
      {
      coreNetworkId: CoreNetworkId.t
        [@ocaml.doc "The ID of a core network for the VPC attachment."];
      vpcArn: VpcArn.t [@ocaml.doc "The ARN of the VPC."];
      subnetArns: SubnetArnList.t
        [@ocaml.doc "The subnet ARN of the VPC attachment."];
      options: VpcOptions.t option
        [@ocaml.doc "Options for the VPC attachment."];
      routingPolicyLabel: ConstrainedString.t option
        [@ocaml.doc
          "The routing policy label to apply to the VPC attachment for traffic routing decisions."];
      tags: TagList.t option
        [@ocaml.doc "The key-value tags associated with the request."];
      clientToken: ClientToken.t option
        [@ocaml.doc "The client token associated with the request."]}
    let context_ = "CreateVpcAttachmentRequest"
    let make ?options =
      fun ?routingPolicyLabel ->
        fun ?tags ->
          fun ?clientToken ->
            fun ~coreNetworkId ->
              fun ~vpcArn ->
                fun ~subnetArns ->
                  fun () ->
                    {
                      options;
                      routingPolicyLabel;
                      tags;
                      clientToken;
                      coreNetworkId;
                      vpcArn;
                      subnetArns
                    }
    let to_value x =
      structure_to_value
        [("CoreNetworkId", (Some (CoreNetworkId.to_value x.coreNetworkId)));
        ("VpcArn", (Some (VpcArn.to_value x.vpcArn)));
        ("SubnetArns", (Some (SubnetArnList.to_value x.subnetArns)));
        ("Options", (Option.map x.options ~f:VpcOptions.to_value));
        ("RoutingPolicyLabel",
          (Option.map x.routingPolicyLabel ~f:ConstrainedString.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("ClientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "ClientToken") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let routingPolicyLabel =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "RoutingPolicyLabel") in
      let options =
        (Option.map ~f:VpcOptions.of_xml) (Xml.child xml_arg0 "Options") in
      let subnetArns =
        SubnetArnList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SubnetArns") in
      let vpcArn =
        VpcArn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "VpcArn") in
      let coreNetworkId =
        CoreNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "CoreNetworkId") in
      make ?clientToken ?tags ?routingPolicyLabel ?options ~subnetArns
        ~vpcArn ~coreNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "ClientToken" ClientToken.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let routingPolicyLabel =
        field_map json__ "RoutingPolicyLabel" ConstrainedString.of_json in
      let options = field_map json__ "Options" VpcOptions.of_json in
      let subnetArns =
        field_map_exn json__ "SubnetArns" SubnetArnList.of_json in
      let vpcArn = field_map_exn json__ "VpcArn" VpcArn.of_json in
      let coreNetworkId =
        field_map_exn json__ "CoreNetworkId" CoreNetworkId.of_json in
      make ?clientToken ?tags ?routingPolicyLabel ?options ~subnetArns
        ~vpcArn ~coreNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a VPC attachment on an edge location of a core network."]
module CreateTransitGatewayRouteTableAttachmentResponse =
  struct
    type nonrec t =
      {
      transitGatewayRouteTableAttachment:
        TransitGatewayRouteTableAttachment.t option
        [@ocaml.doc
          "The route table associated with the create transit gateway route table attachment request."]}
    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 ?transitGatewayRouteTableAttachment =
      fun () -> { transitGatewayRouteTableAttachment }
    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
        [("TransitGatewayRouteTableAttachment",
           (Option.map x.transitGatewayRouteTableAttachment
              ~f:TransitGatewayRouteTableAttachment.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let transitGatewayRouteTableAttachment =
        (Option.map ~f:TransitGatewayRouteTableAttachment.of_xml)
          (Xml.child xml_arg0 "TransitGatewayRouteTableAttachment") in
      make ?transitGatewayRouteTableAttachment ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let transitGatewayRouteTableAttachment =
        field_map json__ "TransitGatewayRouteTableAttachment"
          TransitGatewayRouteTableAttachment.of_json in
      make ?transitGatewayRouteTableAttachment ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a transit gateway route table attachment."]
module CreateTransitGatewayRouteTableAttachmentRequest =
  struct
    type nonrec t =
      {
      peeringId: PeeringId.t [@ocaml.doc "The ID of the peer for the"];
      transitGatewayRouteTableArn: TransitGatewayRouteTableArn.t
        [@ocaml.doc
          "The ARN of the transit gateway route table for the attachment request. For example, \"TransitGatewayRouteTableArn\": \"arn:aws:ec2:us-west-2:123456789012:transit-gateway-route-table/tgw-rtb-9876543210123456\"."];
      routingPolicyLabel: ConstrainedString.t option
        [@ocaml.doc
          "The routing policy label to apply to the Transit Gateway route table attachment for traffic routing decisions."];
      tags: TagList.t option
        [@ocaml.doc
          "The list of key-value tags associated with the request."];
      clientToken: ClientToken.t option
        [@ocaml.doc "The client token associated with the request."]}
    let context_ = "CreateTransitGatewayRouteTableAttachmentRequest"
    let make ?routingPolicyLabel =
      fun ?tags ->
        fun ?clientToken ->
          fun ~peeringId ->
            fun ~transitGatewayRouteTableArn ->
              fun () ->
                {
                  routingPolicyLabel;
                  tags;
                  clientToken;
                  peeringId;
                  transitGatewayRouteTableArn
                }
    let to_value x =
      structure_to_value
        [("PeeringId", (Some (PeeringId.to_value x.peeringId)));
        ("TransitGatewayRouteTableArn",
          (Some
             (TransitGatewayRouteTableArn.to_value
                x.transitGatewayRouteTableArn)));
        ("RoutingPolicyLabel",
          (Option.map x.routingPolicyLabel ~f:ConstrainedString.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("ClientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "ClientToken") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let routingPolicyLabel =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "RoutingPolicyLabel") in
      let transitGatewayRouteTableArn =
        TransitGatewayRouteTableArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "TransitGatewayRouteTableArn") in
      let peeringId =
        PeeringId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PeeringId") in
      make ?clientToken ?tags ?routingPolicyLabel
        ~transitGatewayRouteTableArn ~peeringId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "ClientToken" ClientToken.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let routingPolicyLabel =
        field_map json__ "RoutingPolicyLabel" ConstrainedString.of_json in
      let transitGatewayRouteTableArn =
        field_map_exn json__ "TransitGatewayRouteTableArn"
          TransitGatewayRouteTableArn.of_json in
      let peeringId = field_map_exn json__ "PeeringId" PeeringId.of_json in
      make ?clientToken ?tags ?routingPolicyLabel
        ~transitGatewayRouteTableArn ~peeringId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a transit gateway route table attachment."]
module CreateTransitGatewayPeeringResponse =
  struct
    type nonrec t =
      {
      transitGatewayPeering: TransitGatewayPeering.t option
        [@ocaml.doc
          "Returns information about the transit gateway peering connection request."]}
    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 ?transitGatewayPeering = fun () -> { transitGatewayPeering }
    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
        [("TransitGatewayPeering",
           (Option.map x.transitGatewayPeering
              ~f:TransitGatewayPeering.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let transitGatewayPeering =
        (Option.map ~f:TransitGatewayPeering.of_xml)
          (Xml.child xml_arg0 "TransitGatewayPeering") in
      make ?transitGatewayPeering ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let transitGatewayPeering =
        field_map json__ "TransitGatewayPeering"
          TransitGatewayPeering.of_json in
      make ?transitGatewayPeering ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a transit gateway peering connection."]
module CreateTransitGatewayPeeringRequest =
  struct
    type nonrec t =
      {
      coreNetworkId: CoreNetworkId.t [@ocaml.doc "The ID of a core network."];
      transitGatewayArn: TransitGatewayArn.t
        [@ocaml.doc
          "The ARN of the transit gateway for the peering request."];
      tags: TagList.t option
        [@ocaml.doc
          "The list of key-value tags associated with the request."];
      clientToken: ClientToken.t option
        [@ocaml.doc "The client token associated with the request."]}
    let context_ = "CreateTransitGatewayPeeringRequest"
    let make ?tags =
      fun ?clientToken ->
        fun ~coreNetworkId ->
          fun ~transitGatewayArn ->
            fun () -> { tags; clientToken; coreNetworkId; transitGatewayArn }
    let to_value x =
      structure_to_value
        [("CoreNetworkId", (Some (CoreNetworkId.to_value x.coreNetworkId)));
        ("TransitGatewayArn",
          (Some (TransitGatewayArn.to_value x.transitGatewayArn)));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("ClientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "ClientToken") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let transitGatewayArn =
        TransitGatewayArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TransitGatewayArn") in
      let coreNetworkId =
        CoreNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "CoreNetworkId") in
      make ?clientToken ?tags ~transitGatewayArn ~coreNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "ClientToken" ClientToken.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let transitGatewayArn =
        field_map_exn json__ "TransitGatewayArn" TransitGatewayArn.of_json in
      let coreNetworkId =
        field_map_exn json__ "CoreNetworkId" CoreNetworkId.of_json in
      make ?clientToken ?tags ~transitGatewayArn ~coreNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a transit gateway peering connection."]
module CreateSiteToSiteVpnAttachmentResponse =
  struct
    type nonrec t =
      {
      siteToSiteVpnAttachment: SiteToSiteVpnAttachment.t option
        [@ocaml.doc "Details about a site-to-site VPN attachment."]}
    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 ?siteToSiteVpnAttachment = fun () -> { siteToSiteVpnAttachment }
    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
        [("SiteToSiteVpnAttachment",
           (Option.map x.siteToSiteVpnAttachment
              ~f:SiteToSiteVpnAttachment.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let siteToSiteVpnAttachment =
        (Option.map ~f:SiteToSiteVpnAttachment.of_xml)
          (Xml.child xml_arg0 "SiteToSiteVpnAttachment") in
      make ?siteToSiteVpnAttachment ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let siteToSiteVpnAttachment =
        field_map json__ "SiteToSiteVpnAttachment"
          SiteToSiteVpnAttachment.of_json in
      make ?siteToSiteVpnAttachment ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an Amazon Web Services site-to-site VPN attachment on an edge location of a core network."]
module CreateSiteToSiteVpnAttachmentRequest =
  struct
    type nonrec t =
      {
      coreNetworkId: CoreNetworkId.t
        [@ocaml.doc
          "The ID of a core network where you're creating a site-to-site VPN attachment."];
      vpnConnectionArn: VpnConnectionArn.t
        [@ocaml.doc "The ARN identifying the VPN attachment."];
      routingPolicyLabel: ConstrainedString.t option
        [@ocaml.doc
          "The routing policy label to apply to the Site-to-Site VPN attachment for traffic routing decisions."];
      tags: TagList.t option
        [@ocaml.doc "The tags associated with the request."];
      clientToken: ClientToken.t option
        [@ocaml.doc "The client token associated with the request."]}
    let context_ = "CreateSiteToSiteVpnAttachmentRequest"
    let make ?routingPolicyLabel =
      fun ?tags ->
        fun ?clientToken ->
          fun ~coreNetworkId ->
            fun ~vpnConnectionArn ->
              fun () ->
                {
                  routingPolicyLabel;
                  tags;
                  clientToken;
                  coreNetworkId;
                  vpnConnectionArn
                }
    let to_value x =
      structure_to_value
        [("CoreNetworkId", (Some (CoreNetworkId.to_value x.coreNetworkId)));
        ("VpnConnectionArn",
          (Some (VpnConnectionArn.to_value x.vpnConnectionArn)));
        ("RoutingPolicyLabel",
          (Option.map x.routingPolicyLabel ~f:ConstrainedString.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("ClientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "ClientToken") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let routingPolicyLabel =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "RoutingPolicyLabel") in
      let vpnConnectionArn =
        VpnConnectionArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VpnConnectionArn") in
      let coreNetworkId =
        CoreNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "CoreNetworkId") in
      make ?clientToken ?tags ?routingPolicyLabel ~vpnConnectionArn
        ~coreNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "ClientToken" ClientToken.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let routingPolicyLabel =
        field_map json__ "RoutingPolicyLabel" ConstrainedString.of_json in
      let vpnConnectionArn =
        field_map_exn json__ "VpnConnectionArn" VpnConnectionArn.of_json in
      let coreNetworkId =
        field_map_exn json__ "CoreNetworkId" CoreNetworkId.of_json in
      make ?clientToken ?tags ?routingPolicyLabel ~vpnConnectionArn
        ~coreNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an Amazon Web Services site-to-site VPN attachment on an edge location of a core network."]
module CreateSiteResponse =
  struct
    type nonrec t =
      {
      site: Site.t option [@ocaml.doc "Information about the site."]}
    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 ?site = fun () -> { site }
    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 [("Site", (Option.map x.site ~f:Site.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let site = (Option.map ~f:Site.of_xml) (Xml.child xml_arg0 "Site") in
      make ?site ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let site = field_map json__ "Site" Site.of_json in make ?site ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a new site in a global network."]
module CreateSiteRequest =
  struct
    type nonrec t =
      {
      globalNetworkId: GlobalNetworkId.t
        [@ocaml.doc "The ID of the global network."];
      description: ConstrainedString.t option
        [@ocaml.doc
          "A description of your site. Constraints: Maximum length of 256 characters."];
      location: Location.t option
        [@ocaml.doc
          "The site location. This information is used for visualization in the Network Manager console. If you specify the address, the latitude and longitude are automatically calculated. Address: The physical address of the site. Latitude: The latitude of the site. Longitude: The longitude of the site."];
      tags: TagList.t option
        [@ocaml.doc "The tags to apply to the resource during creation."]}
    let context_ = "CreateSiteRequest"
    let make ?description =
      fun ?location ->
        fun ?tags ->
          fun ~globalNetworkId ->
            fun () -> { description; location; tags; globalNetworkId }
    let to_value x =
      structure_to_value
        [("globalNetworkId",
           (Some (GlobalNetworkId.to_value x.globalNetworkId)));
        ("Description",
          (Option.map x.description ~f:ConstrainedString.to_value));
        ("Location", (Option.map x.location ~f:Location.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let location =
        (Option.map ~f:Location.of_xml) (Xml.child xml_arg0 "Location") in
      let description =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "Description") in
      let globalNetworkId =
        GlobalNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "globalNetworkId") in
      make ?tags ?location ?description ~globalNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagList.of_json in
      let location = field_map json__ "Location" Location.of_json in
      let description =
        field_map json__ "Description" ConstrainedString.of_json in
      let globalNetworkId =
        field_map_exn json__ "GlobalNetworkId" GlobalNetworkId.of_json in
      make ?tags ?location ?description ~globalNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a new site in a global network."]
module CreateLinkResponse =
  struct
    type nonrec t =
      {
      link: Link.t option [@ocaml.doc "Information about the link."]}
    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 ?link = fun () -> { link }
    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 [("Link", (Option.map x.link ~f:Link.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let link = (Option.map ~f:Link.of_xml) (Xml.child xml_arg0 "Link") in
      make ?link ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let link = field_map json__ "Link" Link.of_json in make ?link ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a new link for a specified site."]
module CreateLinkRequest =
  struct
    type nonrec t =
      {
      globalNetworkId: GlobalNetworkId.t
        [@ocaml.doc "The ID of the global network."];
      description: ConstrainedString.t option
        [@ocaml.doc
          "A description of the link. Constraints: Maximum length of 256 characters."];
      type_: ConstrainedString.t option
        [@ocaml.doc
          "The type of the link. Constraints: Maximum length of 128 characters. Cannot include the following characters: | \\ ^"];
      bandwidth: Bandwidth.t
        [@ocaml.doc "The upload speed and download speed in Mbps."];
      provider: ConstrainedString.t option
        [@ocaml.doc
          "The provider of the link. Constraints: Maximum length of 128 characters. Cannot include the following characters: | \\ ^"];
      siteId: SiteId.t [@ocaml.doc "The ID of the site."];
      tags: TagList.t option
        [@ocaml.doc "The tags to apply to the resource during creation."]}
    let context_ = "CreateLinkRequest"
    let make ?description =
      fun ?type_ ->
        fun ?provider ->
          fun ?tags ->
            fun ~globalNetworkId ->
              fun ~bandwidth ->
                fun ~siteId ->
                  fun () ->
                    {
                      description;
                      type_;
                      provider;
                      tags;
                      globalNetworkId;
                      bandwidth;
                      siteId
                    }
    let to_value x =
      structure_to_value
        [("globalNetworkId",
           (Some (GlobalNetworkId.to_value x.globalNetworkId)));
        ("Description",
          (Option.map x.description ~f:ConstrainedString.to_value));
        ("Type", (Option.map x.type_ ~f:ConstrainedString.to_value));
        ("Bandwidth", (Some (Bandwidth.to_value x.bandwidth)));
        ("Provider", (Option.map x.provider ~f:ConstrainedString.to_value));
        ("SiteId", (Some (SiteId.to_value x.siteId)));
        ("Tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let siteId =
        SiteId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "SiteId") in
      let provider =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "Provider") in
      let bandwidth =
        Bandwidth.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Bandwidth") in
      let type_ =
        (Option.map ~f:ConstrainedString.of_xml) (Xml.child xml_arg0 "Type") in
      let description =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "Description") in
      let globalNetworkId =
        GlobalNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "globalNetworkId") in
      make ?tags ~siteId ?provider ~bandwidth ?type_ ?description
        ~globalNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagList.of_json in
      let siteId = field_map_exn json__ "SiteId" SiteId.of_json in
      let provider = field_map json__ "Provider" ConstrainedString.of_json in
      let bandwidth = field_map_exn json__ "Bandwidth" Bandwidth.of_json in
      let type_ = field_map json__ "Type" ConstrainedString.of_json in
      let description =
        field_map json__ "Description" ConstrainedString.of_json in
      let globalNetworkId =
        field_map_exn json__ "GlobalNetworkId" GlobalNetworkId.of_json in
      make ?tags ~siteId ?provider ~bandwidth ?type_ ?description
        ~globalNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a new link for a specified site."]
module CreateGlobalNetworkResponse =
  struct
    type nonrec t =
      {
      globalNetwork: GlobalNetwork.t option
        [@ocaml.doc "Information about the global network object."]}
    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 ?globalNetwork = fun () -> { globalNetwork }
    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
        [("GlobalNetwork",
           (Option.map x.globalNetwork ~f:GlobalNetwork.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let globalNetwork =
        (Option.map ~f:GlobalNetwork.of_xml)
          (Xml.child xml_arg0 "GlobalNetwork") in
      make ?globalNetwork ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let globalNetwork =
        field_map json__ "GlobalNetwork" GlobalNetwork.of_json in
      make ?globalNetwork ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a new, empty global network."]
module CreateGlobalNetworkRequest =
  struct
    type nonrec t =
      {
      description: ConstrainedString.t option
        [@ocaml.doc
          "A description of the global network. Constraints: Maximum length of 256 characters."];
      tags: TagList.t option
        [@ocaml.doc "The tags to apply to the resource during creation."]}
    let make ?description = fun ?tags -> fun () -> { description; tags }
    let to_value x =
      structure_to_value
        [("Description",
           (Option.map x.description ~f:ConstrainedString.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let description =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "Description") in
      make ?tags ?description ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagList.of_json in
      let description =
        field_map json__ "Description" ConstrainedString.of_json in
      make ?tags ?description ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a new, empty global network."]
module CreateDirectConnectGatewayAttachmentResponse =
  struct
    type nonrec t =
      {
      directConnectGatewayAttachment: DirectConnectGatewayAttachment.t option
        [@ocaml.doc
          "Describes the details of a CreateDirectConnectGatewayAttachment request."]}
    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 ?directConnectGatewayAttachment =
      fun () -> { directConnectGatewayAttachment }
    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
        [("DirectConnectGatewayAttachment",
           (Option.map x.directConnectGatewayAttachment
              ~f:DirectConnectGatewayAttachment.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let directConnectGatewayAttachment =
        (Option.map ~f:DirectConnectGatewayAttachment.of_xml)
          (Xml.child xml_arg0 "DirectConnectGatewayAttachment") in
      make ?directConnectGatewayAttachment ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let directConnectGatewayAttachment =
        field_map json__ "DirectConnectGatewayAttachment"
          DirectConnectGatewayAttachment.of_json in
      make ?directConnectGatewayAttachment ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an Amazon Web Services Direct Connect gateway attachment"]
module CreateDirectConnectGatewayAttachmentRequest =
  struct
    type nonrec t =
      {
      coreNetworkId: CoreNetworkId.t
        [@ocaml.doc
          "The ID of the Cloud WAN core network that the Direct Connect gateway attachment should be attached to."];
      directConnectGatewayArn: DirectConnectGatewayArn.t
        [@ocaml.doc "The ARN of the Direct Connect gateway attachment."];
      routingPolicyLabel: ConstrainedString.t option
        [@ocaml.doc
          "The routing policy label to apply to the Direct Connect Gateway attachment for traffic routing decisions."];
      edgeLocations: ExternalRegionCodeList.t
        [@ocaml.doc
          "One or more core network edge locations that the Direct Connect gateway attachment is associated with."];
      tags: TagList.t option
        [@ocaml.doc
          "The key value tags to apply to the Direct Connect gateway attachment during creation."];
      clientToken: ClientToken.t option [@ocaml.doc "client token"]}
    let context_ = "CreateDirectConnectGatewayAttachmentRequest"
    let make ?routingPolicyLabel =
      fun ?tags ->
        fun ?clientToken ->
          fun ~coreNetworkId ->
            fun ~directConnectGatewayArn ->
              fun ~edgeLocations ->
                fun () ->
                  {
                    routingPolicyLabel;
                    tags;
                    clientToken;
                    coreNetworkId;
                    directConnectGatewayArn;
                    edgeLocations
                  }
    let to_value x =
      structure_to_value
        [("CoreNetworkId", (Some (CoreNetworkId.to_value x.coreNetworkId)));
        ("DirectConnectGatewayArn",
          (Some (DirectConnectGatewayArn.to_value x.directConnectGatewayArn)));
        ("RoutingPolicyLabel",
          (Option.map x.routingPolicyLabel ~f:ConstrainedString.to_value));
        ("EdgeLocations",
          (Some (ExternalRegionCodeList.to_value x.edgeLocations)));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("ClientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "ClientToken") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let edgeLocations =
        ExternalRegionCodeList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EdgeLocations") in
      let routingPolicyLabel =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "RoutingPolicyLabel") in
      let directConnectGatewayArn =
        DirectConnectGatewayArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectConnectGatewayArn") in
      let coreNetworkId =
        CoreNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "CoreNetworkId") in
      make ?clientToken ?tags ~edgeLocations ?routingPolicyLabel
        ~directConnectGatewayArn ~coreNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "ClientToken" ClientToken.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let edgeLocations =
        field_map_exn json__ "EdgeLocations" ExternalRegionCodeList.of_json in
      let routingPolicyLabel =
        field_map json__ "RoutingPolicyLabel" ConstrainedString.of_json in
      let directConnectGatewayArn =
        field_map_exn json__ "DirectConnectGatewayArn"
          DirectConnectGatewayArn.of_json in
      let coreNetworkId =
        field_map_exn json__ "CoreNetworkId" CoreNetworkId.of_json in
      make ?clientToken ?tags ~edgeLocations ?routingPolicyLabel
        ~directConnectGatewayArn ~coreNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an Amazon Web Services Direct Connect gateway attachment"]
module CreateDeviceResponse =
  struct
    type nonrec t =
      {
      device: Device.t option [@ocaml.doc "Information about the device."]}
    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 ?device = fun () -> { device }
    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
        [("Device", (Option.map x.device ~f:Device.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let device =
        (Option.map ~f:Device.of_xml) (Xml.child xml_arg0 "Device") in
      make ?device ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let device = field_map json__ "Device" Device.of_json in
      make ?device ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new device in a global network. If you specify both a site ID and a location, the location of the site is used for visualization in the Network Manager console."]
module CreateDeviceRequest =
  struct
    type nonrec t =
      {
      globalNetworkId: GlobalNetworkId.t
        [@ocaml.doc "The ID of the global network."];
      aWSLocation: AWSLocation.t option
        [@ocaml.doc
          "The Amazon Web Services location of the device, if applicable. For an on-premises device, you can omit this parameter."];
      description: ConstrainedString.t option
        [@ocaml.doc
          "A description of the device. Constraints: Maximum length of 256 characters."];
      type_: ConstrainedString.t option
        [@ocaml.doc "The type of the device."];
      vendor: ConstrainedString.t option
        [@ocaml.doc
          "The vendor of the device. Constraints: Maximum length of 128 characters."];
      model: ConstrainedString.t option
        [@ocaml.doc
          "The model of the device. Constraints: Maximum length of 128 characters."];
      serialNumber: ConstrainedString.t option
        [@ocaml.doc
          "The serial number of the device. Constraints: Maximum length of 128 characters."];
      location: Location.t option [@ocaml.doc "The location of the device."];
      siteId: SiteId.t option [@ocaml.doc "The ID of the site."];
      tags: TagList.t option
        [@ocaml.doc "The tags to apply to the resource during creation."]}
    let context_ = "CreateDeviceRequest"
    let make ?aWSLocation =
      fun ?description ->
        fun ?type_ ->
          fun ?vendor ->
            fun ?model ->
              fun ?serialNumber ->
                fun ?location ->
                  fun ?siteId ->
                    fun ?tags ->
                      fun ~globalNetworkId ->
                        fun () ->
                          {
                            aWSLocation;
                            description;
                            type_;
                            vendor;
                            model;
                            serialNumber;
                            location;
                            siteId;
                            tags;
                            globalNetworkId
                          }
    let to_value x =
      structure_to_value
        [("globalNetworkId",
           (Some (GlobalNetworkId.to_value x.globalNetworkId)));
        ("AWSLocation", (Option.map x.aWSLocation ~f:AWSLocation.to_value));
        ("Description",
          (Option.map x.description ~f:ConstrainedString.to_value));
        ("Type", (Option.map x.type_ ~f:ConstrainedString.to_value));
        ("Vendor", (Option.map x.vendor ~f:ConstrainedString.to_value));
        ("Model", (Option.map x.model ~f:ConstrainedString.to_value));
        ("SerialNumber",
          (Option.map x.serialNumber ~f:ConstrainedString.to_value));
        ("Location", (Option.map x.location ~f:Location.to_value));
        ("SiteId", (Option.map x.siteId ~f:SiteId.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let siteId =
        (Option.map ~f:SiteId.of_xml) (Xml.child xml_arg0 "SiteId") in
      let location =
        (Option.map ~f:Location.of_xml) (Xml.child xml_arg0 "Location") in
      let serialNumber =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "SerialNumber") in
      let model =
        (Option.map ~f:ConstrainedString.of_xml) (Xml.child xml_arg0 "Model") in
      let vendor =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "Vendor") in
      let type_ =
        (Option.map ~f:ConstrainedString.of_xml) (Xml.child xml_arg0 "Type") in
      let description =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "Description") in
      let aWSLocation =
        (Option.map ~f:AWSLocation.of_xml) (Xml.child xml_arg0 "AWSLocation") in
      let globalNetworkId =
        GlobalNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "globalNetworkId") in
      make ?tags ?siteId ?location ?serialNumber ?model ?vendor ?type_
        ?description ?aWSLocation ~globalNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagList.of_json in
      let siteId = field_map json__ "SiteId" SiteId.of_json in
      let location = field_map json__ "Location" Location.of_json in
      let serialNumber =
        field_map json__ "SerialNumber" ConstrainedString.of_json in
      let model = field_map json__ "Model" ConstrainedString.of_json in
      let vendor = field_map json__ "Vendor" ConstrainedString.of_json in
      let type_ = field_map json__ "Type" ConstrainedString.of_json in
      let description =
        field_map json__ "Description" ConstrainedString.of_json in
      let aWSLocation = field_map json__ "AWSLocation" AWSLocation.of_json in
      let globalNetworkId =
        field_map_exn json__ "GlobalNetworkId" GlobalNetworkId.of_json in
      make ?tags ?siteId ?location ?serialNumber ?model ?vendor ?type_
        ?description ?aWSLocation ~globalNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new device in a global network. If you specify both a site ID and a location, the location of the site is used for visualization in the Network Manager console."]
module CreateCoreNetworkResponse =
  struct
    type nonrec t =
      {
      coreNetwork: CoreNetwork.t option
        [@ocaml.doc "Returns details about a core network."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `CoreNetworkPolicyException of CoreNetworkPolicyException.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 ?coreNetwork = fun () -> { coreNetwork }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "CoreNetworkPolicyException" ->
          `CoreNetworkPolicyException
            (CoreNetworkPolicyException.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)
      | "CoreNetworkPolicyException" ->
          `CoreNetworkPolicyException (CoreNetworkPolicyException.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))]
      | `CoreNetworkPolicyException e ->
          `Assoc
            [("error", (`String "CoreNetworkPolicyException"));
            ("details", (CoreNetworkPolicyException.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
        [("CoreNetwork", (Option.map x.coreNetwork ~f:CoreNetwork.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let coreNetwork =
        (Option.map ~f:CoreNetwork.of_xml) (Xml.child xml_arg0 "CoreNetwork") in
      make ?coreNetwork ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let coreNetwork = field_map json__ "CoreNetwork" CoreNetwork.of_json in
      make ?coreNetwork ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a core network as part of your global network, and optionally, with a core network policy."]
module CreateCoreNetworkRequest =
  struct
    type nonrec t =
      {
      globalNetworkId: GlobalNetworkId.t
        [@ocaml.doc
          "The ID of the global network that a core network will be a part of."];
      description: ConstrainedString.t option
        [@ocaml.doc "The description of a core network."];
      tags: TagList.t option
        [@ocaml.doc "Key-value tags associated with a core network request."];
      policyDocument: CoreNetworkPolicyDocument.t option
        [@ocaml.doc "The policy document for creating a core network."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "The client token associated with a core network request."]}
    let context_ = "CreateCoreNetworkRequest"
    let make ?description =
      fun ?tags ->
        fun ?policyDocument ->
          fun ?clientToken ->
            fun ~globalNetworkId ->
              fun () ->
                {
                  description;
                  tags;
                  policyDocument;
                  clientToken;
                  globalNetworkId
                }
    let to_value x =
      structure_to_value
        [("GlobalNetworkId",
           (Some (GlobalNetworkId.to_value x.globalNetworkId)));
        ("Description",
          (Option.map x.description ~f:ConstrainedString.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("PolicyDocument",
          (Option.map x.policyDocument ~f:CoreNetworkPolicyDocument.to_value));
        ("ClientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "ClientToken") in
      let policyDocument =
        (Option.map ~f:CoreNetworkPolicyDocument.of_xml)
          (Xml.child xml_arg0 "PolicyDocument") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let description =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "Description") in
      let globalNetworkId =
        GlobalNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GlobalNetworkId") in
      make ?clientToken ?policyDocument ?tags ?description ~globalNetworkId
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "ClientToken" ClientToken.of_json in
      let policyDocument =
        field_map json__ "PolicyDocument" CoreNetworkPolicyDocument.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let description =
        field_map json__ "Description" ConstrainedString.of_json in
      let globalNetworkId =
        field_map_exn json__ "GlobalNetworkId" GlobalNetworkId.of_json in
      make ?clientToken ?policyDocument ?tags ?description ~globalNetworkId
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a core network as part of your global network, and optionally, with a core network policy."]
module CreateCoreNetworkPrefixListAssociationResponse =
  struct
    type nonrec t =
      {
      coreNetworkId: CoreNetworkId.t option
        [@ocaml.doc
          "The ID of the core network associated with the prefix list."];
      prefixListArn: PrefixListArn.t option
        [@ocaml.doc
          "The ARN of the prefix list that was associated with the core network."];
      prefixListAlias: ConstrainedString.t option
        [@ocaml.doc "The alias of the prefix list association, if provided."]}
    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 ?coreNetworkId =
      fun ?prefixListArn ->
        fun ?prefixListAlias ->
          fun () -> { coreNetworkId; prefixListArn; prefixListAlias }
    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
        [("CoreNetworkId",
           (Option.map x.coreNetworkId ~f:CoreNetworkId.to_value));
        ("PrefixListArn",
          (Option.map x.prefixListArn ~f:PrefixListArn.to_value));
        ("PrefixListAlias",
          (Option.map x.prefixListAlias ~f:ConstrainedString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let prefixListAlias =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "PrefixListAlias") in
      let prefixListArn =
        (Option.map ~f:PrefixListArn.of_xml)
          (Xml.child xml_arg0 "PrefixListArn") in
      let coreNetworkId =
        (Option.map ~f:CoreNetworkId.of_xml)
          (Xml.child xml_arg0 "CoreNetworkId") in
      make ?prefixListAlias ?prefixListArn ?coreNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let prefixListAlias =
        field_map json__ "PrefixListAlias" ConstrainedString.of_json in
      let prefixListArn =
        field_map json__ "PrefixListArn" PrefixListArn.of_json in
      let coreNetworkId =
        field_map json__ "CoreNetworkId" CoreNetworkId.of_json in
      make ?prefixListAlias ?prefixListArn ?coreNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an association between a core network and a prefix list for routing control."]
module CreateCoreNetworkPrefixListAssociationRequest =
  struct
    type nonrec t =
      {
      coreNetworkId: CoreNetworkId.t
        [@ocaml.doc
          "The ID of the core network to associate with the prefix list."];
      prefixListArn: PrefixListArn.t
        [@ocaml.doc
          "The ARN of the prefix list to associate with the core network."];
      prefixListAlias: ConstrainedString.t
        [@ocaml.doc "An optional alias for the prefix list association."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A unique, case-sensitive identifier that you provide to ensure the idempotency of the request."]}
    let context_ = "CreateCoreNetworkPrefixListAssociationRequest"
    let make ?clientToken =
      fun ~coreNetworkId ->
        fun ~prefixListArn ->
          fun ~prefixListAlias ->
            fun () ->
              { clientToken; coreNetworkId; prefixListArn; prefixListAlias }
    let to_value x =
      structure_to_value
        [("CoreNetworkId", (Some (CoreNetworkId.to_value x.coreNetworkId)));
        ("PrefixListArn", (Some (PrefixListArn.to_value x.prefixListArn)));
        ("PrefixListAlias",
          (Some (ConstrainedString.to_value x.prefixListAlias)));
        ("ClientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "ClientToken") in
      let prefixListAlias =
        ConstrainedString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PrefixListAlias") in
      let prefixListArn =
        PrefixListArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PrefixListArn") in
      let coreNetworkId =
        CoreNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "CoreNetworkId") in
      make ?clientToken ~prefixListAlias ~prefixListArn ~coreNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "ClientToken" ClientToken.of_json in
      let prefixListAlias =
        field_map_exn json__ "PrefixListAlias" ConstrainedString.of_json in
      let prefixListArn =
        field_map_exn json__ "PrefixListArn" PrefixListArn.of_json in
      let coreNetworkId =
        field_map_exn json__ "CoreNetworkId" CoreNetworkId.of_json in
      make ?clientToken ~prefixListAlias ~prefixListArn ~coreNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an association between a core network and a prefix list for routing control."]
module CreateConnectionResponse =
  struct
    type nonrec t =
      {
      connection: Connection.t option
        [@ocaml.doc "Information about the connection."]}
    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 ?connection = fun () -> { connection }
    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
        [("Connection", (Option.map x.connection ~f:Connection.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let connection =
        (Option.map ~f:Connection.of_xml) (Xml.child xml_arg0 "Connection") in
      make ?connection ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let connection = field_map json__ "Connection" Connection.of_json in
      make ?connection ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a connection between two devices. The devices can be a physical or virtual appliance that connects to a third-party appliance in a VPC, or a physical appliance that connects to another physical appliance in an on-premises network."]
module CreateConnectionRequest =
  struct
    type nonrec t =
      {
      globalNetworkId: GlobalNetworkId.t
        [@ocaml.doc "The ID of the global network."];
      deviceId: DeviceId.t
        [@ocaml.doc "The ID of the first device in the connection."];
      connectedDeviceId: DeviceId.t
        [@ocaml.doc "The ID of the second device in the connection."];
      linkId: LinkId.t option
        [@ocaml.doc "The ID of the link for the first device."];
      connectedLinkId: LinkId.t option
        [@ocaml.doc "The ID of the link for the second device."];
      description: ConstrainedString.t option
        [@ocaml.doc
          "A description of the connection. Length Constraints: Maximum length of 256 characters."];
      tags: TagList.t option
        [@ocaml.doc "The tags to apply to the resource during creation."]}
    let context_ = "CreateConnectionRequest"
    let make ?linkId =
      fun ?connectedLinkId ->
        fun ?description ->
          fun ?tags ->
            fun ~globalNetworkId ->
              fun ~deviceId ->
                fun ~connectedDeviceId ->
                  fun () ->
                    {
                      linkId;
                      connectedLinkId;
                      description;
                      tags;
                      globalNetworkId;
                      deviceId;
                      connectedDeviceId
                    }
    let to_value x =
      structure_to_value
        [("globalNetworkId",
           (Some (GlobalNetworkId.to_value x.globalNetworkId)));
        ("DeviceId", (Some (DeviceId.to_value x.deviceId)));
        ("ConnectedDeviceId", (Some (DeviceId.to_value x.connectedDeviceId)));
        ("LinkId", (Option.map x.linkId ~f:LinkId.to_value));
        ("ConnectedLinkId",
          (Option.map x.connectedLinkId ~f:LinkId.to_value));
        ("Description",
          (Option.map x.description ~f:ConstrainedString.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let description =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "Description") in
      let connectedLinkId =
        (Option.map ~f:LinkId.of_xml) (Xml.child xml_arg0 "ConnectedLinkId") in
      let linkId =
        (Option.map ~f:LinkId.of_xml) (Xml.child xml_arg0 "LinkId") in
      let connectedDeviceId =
        DeviceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ConnectedDeviceId") in
      let deviceId =
        DeviceId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "DeviceId") in
      let globalNetworkId =
        GlobalNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "globalNetworkId") in
      make ?tags ?description ?connectedLinkId ?linkId ~connectedDeviceId
        ~deviceId ~globalNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagList.of_json in
      let description =
        field_map json__ "Description" ConstrainedString.of_json in
      let connectedLinkId = field_map json__ "ConnectedLinkId" LinkId.of_json in
      let linkId = field_map json__ "LinkId" LinkId.of_json in
      let connectedDeviceId =
        field_map_exn json__ "ConnectedDeviceId" DeviceId.of_json in
      let deviceId = field_map_exn json__ "DeviceId" DeviceId.of_json in
      let globalNetworkId =
        field_map_exn json__ "GlobalNetworkId" GlobalNetworkId.of_json in
      make ?tags ?description ?connectedLinkId ?linkId ~connectedDeviceId
        ~deviceId ~globalNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a connection between two devices. The devices can be a physical or virtual appliance that connects to a third-party appliance in a VPC, or a physical appliance that connects to another physical appliance in an on-premises network."]
module CreateConnectPeerResponse =
  struct
    type nonrec t =
      {
      connectPeer: ConnectPeer.t option
        [@ocaml.doc "The response to the request."]}
    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 ?connectPeer = fun () -> { connectPeer }
    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
        [("ConnectPeer", (Option.map x.connectPeer ~f:ConnectPeer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let connectPeer =
        (Option.map ~f:ConnectPeer.of_xml) (Xml.child xml_arg0 "ConnectPeer") in
      make ?connectPeer ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let connectPeer = field_map json__ "ConnectPeer" ConnectPeer.of_json in
      make ?connectPeer ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a core network Connect peer for a specified core network connect attachment between a core network and an appliance. The peer address and transit gateway address must be the same IP address family (IPv4 or IPv6)."]
module CreateConnectPeerRequest =
  struct
    type nonrec t =
      {
      connectAttachmentId: AttachmentId.t
        [@ocaml.doc "The ID of the connection attachment."];
      coreNetworkAddress: IPAddress.t option
        [@ocaml.doc
          "A Connect peer core network address. This only applies only when the protocol is GRE."];
      peerAddress: IPAddress.t [@ocaml.doc "The Connect peer address."];
      bgpOptions: BgpOptions.t option
        [@ocaml.doc
          "The Connect peer BGP options. This only applies only when the protocol is GRE."];
      insideCidrBlocks: ConstrainedStringList.t option
        [@ocaml.doc "The inside IP addresses used for BGP peering."];
      tags: TagList.t option
        [@ocaml.doc "The tags associated with the peer request."];
      clientToken: ClientToken.t option
        [@ocaml.doc "The client token associated with the request."];
      subnetArn: SubnetArn.t option
        [@ocaml.doc
          "The subnet ARN for the Connect peer. This only applies only when the protocol is NO_ENCAP."]}
    let context_ = "CreateConnectPeerRequest"
    let make ?coreNetworkAddress =
      fun ?bgpOptions ->
        fun ?insideCidrBlocks ->
          fun ?tags ->
            fun ?clientToken ->
              fun ?subnetArn ->
                fun ~connectAttachmentId ->
                  fun ~peerAddress ->
                    fun () ->
                      {
                        coreNetworkAddress;
                        bgpOptions;
                        insideCidrBlocks;
                        tags;
                        clientToken;
                        subnetArn;
                        connectAttachmentId;
                        peerAddress
                      }
    let to_value x =
      structure_to_value
        [("ConnectAttachmentId",
           (Some (AttachmentId.to_value x.connectAttachmentId)));
        ("CoreNetworkAddress",
          (Option.map x.coreNetworkAddress ~f:IPAddress.to_value));
        ("PeerAddress", (Some (IPAddress.to_value x.peerAddress)));
        ("BgpOptions", (Option.map x.bgpOptions ~f:BgpOptions.to_value));
        ("InsideCidrBlocks",
          (Option.map x.insideCidrBlocks ~f:ConstrainedStringList.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("ClientToken", (Option.map x.clientToken ~f:ClientToken.to_value));
        ("SubnetArn", (Option.map x.subnetArn ~f:SubnetArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let subnetArn =
        (Option.map ~f:SubnetArn.of_xml) (Xml.child xml_arg0 "SubnetArn") in
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "ClientToken") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let insideCidrBlocks =
        (Option.map ~f:ConstrainedStringList.of_xml)
          (Xml.child xml_arg0 "InsideCidrBlocks") in
      let bgpOptions =
        (Option.map ~f:BgpOptions.of_xml) (Xml.child xml_arg0 "BgpOptions") in
      let peerAddress =
        IPAddress.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PeerAddress") in
      let coreNetworkAddress =
        (Option.map ~f:IPAddress.of_xml)
          (Xml.child xml_arg0 "CoreNetworkAddress") in
      let connectAttachmentId =
        AttachmentId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ConnectAttachmentId") in
      make ?subnetArn ?clientToken ?tags ?insideCidrBlocks ?bgpOptions
        ~peerAddress ?coreNetworkAddress ~connectAttachmentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let subnetArn = field_map json__ "SubnetArn" SubnetArn.of_json in
      let clientToken = field_map json__ "ClientToken" ClientToken.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let insideCidrBlocks =
        field_map json__ "InsideCidrBlocks" ConstrainedStringList.of_json in
      let bgpOptions = field_map json__ "BgpOptions" BgpOptions.of_json in
      let peerAddress = field_map_exn json__ "PeerAddress" IPAddress.of_json in
      let coreNetworkAddress =
        field_map json__ "CoreNetworkAddress" IPAddress.of_json in
      let connectAttachmentId =
        field_map_exn json__ "ConnectAttachmentId" AttachmentId.of_json in
      make ?subnetArn ?clientToken ?tags ?insideCidrBlocks ?bgpOptions
        ~peerAddress ?coreNetworkAddress ~connectAttachmentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a core network Connect peer for a specified core network connect attachment between a core network and an appliance. The peer address and transit gateway address must be the same IP address family (IPv4 or IPv6)."]
module CreateConnectAttachmentResponse =
  struct
    type nonrec t =
      {
      connectAttachment: ConnectAttachment.t option
        [@ocaml.doc "The response to a Connect attachment request."]}
    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 ?connectAttachment = fun () -> { connectAttachment }
    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
        [("ConnectAttachment",
           (Option.map x.connectAttachment ~f:ConnectAttachment.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let connectAttachment =
        (Option.map ~f:ConnectAttachment.of_xml)
          (Xml.child xml_arg0 "ConnectAttachment") in
      make ?connectAttachment ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let connectAttachment =
        field_map json__ "ConnectAttachment" ConnectAttachment.of_json in
      make ?connectAttachment ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a core network Connect attachment from a specified core network attachment. A core network Connect attachment is a GRE-based tunnel attachment that you can use to establish a connection between a core network and an appliance. A core network Connect attachment uses an existing VPC attachment as the underlying transport mechanism."]
module CreateConnectAttachmentRequest =
  struct
    type nonrec t =
      {
      coreNetworkId: CoreNetworkId.t
        [@ocaml.doc
          "The ID of a core network where you want to create the attachment."];
      edgeLocation: ExternalRegionCode.t
        [@ocaml.doc "The Region where the edge is located."];
      transportAttachmentId: AttachmentId.t
        [@ocaml.doc "The ID of the attachment between the two connections."];
      routingPolicyLabel: ConstrainedString.t option
        [@ocaml.doc
          "The routing policy label to apply to the Connect attachment for traffic routing decisions."];
      options: ConnectAttachmentOptions.t
        [@ocaml.doc "Options for creating an attachment."];
      tags: TagList.t option
        [@ocaml.doc
          "The list of key-value tags associated with the request."];
      clientToken: ClientToken.t option
        [@ocaml.doc "The client token associated with the request."]}
    let context_ = "CreateConnectAttachmentRequest"
    let make ?routingPolicyLabel =
      fun ?tags ->
        fun ?clientToken ->
          fun ~coreNetworkId ->
            fun ~edgeLocation ->
              fun ~transportAttachmentId ->
                fun ~options ->
                  fun () ->
                    {
                      routingPolicyLabel;
                      tags;
                      clientToken;
                      coreNetworkId;
                      edgeLocation;
                      transportAttachmentId;
                      options
                    }
    let to_value x =
      structure_to_value
        [("CoreNetworkId", (Some (CoreNetworkId.to_value x.coreNetworkId)));
        ("EdgeLocation", (Some (ExternalRegionCode.to_value x.edgeLocation)));
        ("TransportAttachmentId",
          (Some (AttachmentId.to_value x.transportAttachmentId)));
        ("RoutingPolicyLabel",
          (Option.map x.routingPolicyLabel ~f:ConstrainedString.to_value));
        ("Options", (Some (ConnectAttachmentOptions.to_value x.options)));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("ClientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "ClientToken") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let options =
        ConnectAttachmentOptions.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Options") in
      let routingPolicyLabel =
        (Option.map ~f:ConstrainedString.of_xml)
          (Xml.child xml_arg0 "RoutingPolicyLabel") in
      let transportAttachmentId =
        AttachmentId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TransportAttachmentId") in
      let edgeLocation =
        ExternalRegionCode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EdgeLocation") in
      let coreNetworkId =
        CoreNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "CoreNetworkId") in
      make ?clientToken ?tags ~options ?routingPolicyLabel
        ~transportAttachmentId ~edgeLocation ~coreNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "ClientToken" ClientToken.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let options =
        field_map_exn json__ "Options" ConnectAttachmentOptions.of_json in
      let routingPolicyLabel =
        field_map json__ "RoutingPolicyLabel" ConstrainedString.of_json in
      let transportAttachmentId =
        field_map_exn json__ "TransportAttachmentId" AttachmentId.of_json in
      let edgeLocation =
        field_map_exn json__ "EdgeLocation" ExternalRegionCode.of_json in
      let coreNetworkId =
        field_map_exn json__ "CoreNetworkId" CoreNetworkId.of_json in
      make ?clientToken ?tags ~options ?routingPolicyLabel
        ~transportAttachmentId ~edgeLocation ~coreNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a core network Connect attachment from a specified core network attachment. A core network Connect attachment is a GRE-based tunnel attachment that you can use to establish a connection between a core network and an appliance. A core network Connect attachment uses an existing VPC attachment as the underlying transport mechanism."]
module AssociateTransitGatewayConnectPeerResponse =
  struct
    type nonrec t =
      {
      transitGatewayConnectPeerAssociation:
        TransitGatewayConnectPeerAssociation.t option
        [@ocaml.doc "The transit gateway Connect peer 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 ?transitGatewayConnectPeerAssociation =
      fun () -> { transitGatewayConnectPeerAssociation }
    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
        [("TransitGatewayConnectPeerAssociation",
           (Option.map x.transitGatewayConnectPeerAssociation
              ~f:TransitGatewayConnectPeerAssociation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let transitGatewayConnectPeerAssociation =
        (Option.map ~f:TransitGatewayConnectPeerAssociation.of_xml)
          (Xml.child xml_arg0 "TransitGatewayConnectPeerAssociation") in
      make ?transitGatewayConnectPeerAssociation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let transitGatewayConnectPeerAssociation =
        field_map json__ "TransitGatewayConnectPeerAssociation"
          TransitGatewayConnectPeerAssociation.of_json in
      make ?transitGatewayConnectPeerAssociation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates a transit gateway Connect peer with a device, and optionally, with a link. If you specify a link, it must be associated with the specified device. You can only associate transit gateway Connect peers that have been created on a transit gateway that's registered in your global network. You cannot associate a transit gateway Connect peer with more than one device and link."]
module AssociateTransitGatewayConnectPeerRequest =
  struct
    type nonrec t =
      {
      globalNetworkId: GlobalNetworkId.t
        [@ocaml.doc "The ID of the global network."];
      transitGatewayConnectPeerArn: TransitGatewayConnectPeerArn.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the Connect peer."];
      deviceId: DeviceId.t [@ocaml.doc "The ID of the device."];
      linkId: LinkId.t option [@ocaml.doc "The ID of the link."]}
    let context_ = "AssociateTransitGatewayConnectPeerRequest"
    let make ?linkId =
      fun ~globalNetworkId ->
        fun ~transitGatewayConnectPeerArn ->
          fun ~deviceId ->
            fun () ->
              {
                linkId;
                globalNetworkId;
                transitGatewayConnectPeerArn;
                deviceId
              }
    let to_value x =
      structure_to_value
        [("globalNetworkId",
           (Some (GlobalNetworkId.to_value x.globalNetworkId)));
        ("TransitGatewayConnectPeerArn",
          (Some
             (TransitGatewayConnectPeerArn.to_value
                x.transitGatewayConnectPeerArn)));
        ("DeviceId", (Some (DeviceId.to_value x.deviceId)));
        ("LinkId", (Option.map x.linkId ~f:LinkId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let linkId =
        (Option.map ~f:LinkId.of_xml) (Xml.child xml_arg0 "LinkId") in
      let deviceId =
        DeviceId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "DeviceId") in
      let transitGatewayConnectPeerArn =
        TransitGatewayConnectPeerArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "TransitGatewayConnectPeerArn") in
      let globalNetworkId =
        GlobalNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "globalNetworkId") in
      make ?linkId ~deviceId ~transitGatewayConnectPeerArn ~globalNetworkId
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let linkId = field_map json__ "LinkId" LinkId.of_json in
      let deviceId = field_map_exn json__ "DeviceId" DeviceId.of_json in
      let transitGatewayConnectPeerArn =
        field_map_exn json__ "TransitGatewayConnectPeerArn"
          TransitGatewayConnectPeerArn.of_json in
      let globalNetworkId =
        field_map_exn json__ "GlobalNetworkId" GlobalNetworkId.of_json in
      make ?linkId ~deviceId ~transitGatewayConnectPeerArn ~globalNetworkId
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates a transit gateway Connect peer with a device, and optionally, with a link. If you specify a link, it must be associated with the specified device. You can only associate transit gateway Connect peers that have been created on a transit gateway that's registered in your global network. You cannot associate a transit gateway Connect peer with more than one device and link."]
module AssociateLinkResponse =
  struct
    type nonrec t =
      {
      linkAssociation: LinkAssociation.t option
        [@ocaml.doc "The link 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 ?linkAssociation = fun () -> { linkAssociation }
    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
        [("LinkAssociation",
           (Option.map x.linkAssociation ~f:LinkAssociation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let linkAssociation =
        (Option.map ~f:LinkAssociation.of_xml)
          (Xml.child xml_arg0 "LinkAssociation") in
      make ?linkAssociation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let linkAssociation =
        field_map json__ "LinkAssociation" LinkAssociation.of_json in
      make ?linkAssociation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates a link to a device. A device can be associated to multiple links and a link can be associated to multiple devices. The device and link must be in the same global network and the same site."]
module AssociateLinkRequest =
  struct
    type nonrec t =
      {
      globalNetworkId: GlobalNetworkId.t
        [@ocaml.doc "The ID of the global network."];
      deviceId: DeviceId.t [@ocaml.doc "The ID of the device."];
      linkId: LinkId.t [@ocaml.doc "The ID of the link."]}
    let context_ = "AssociateLinkRequest"
    let make ~globalNetworkId =
      fun ~deviceId ->
        fun ~linkId -> fun () -> { globalNetworkId; deviceId; linkId }
    let to_value x =
      structure_to_value
        [("globalNetworkId",
           (Some (GlobalNetworkId.to_value x.globalNetworkId)));
        ("DeviceId", (Some (DeviceId.to_value x.deviceId)));
        ("LinkId", (Some (LinkId.to_value x.linkId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let linkId =
        LinkId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "LinkId") in
      let deviceId =
        DeviceId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "DeviceId") in
      let globalNetworkId =
        GlobalNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "globalNetworkId") in
      make ~linkId ~deviceId ~globalNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let linkId = field_map_exn json__ "LinkId" LinkId.of_json in
      let deviceId = field_map_exn json__ "DeviceId" DeviceId.of_json in
      let globalNetworkId =
        field_map_exn json__ "GlobalNetworkId" GlobalNetworkId.of_json in
      make ~linkId ~deviceId ~globalNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates a link to a device. A device can be associated to multiple links and a link can be associated to multiple devices. The device and link must be in the same global network and the same site."]
module AssociateCustomerGatewayResponse =
  struct
    type nonrec t =
      {
      customerGatewayAssociation: CustomerGatewayAssociation.t option
        [@ocaml.doc "The customer gateway 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 ?customerGatewayAssociation =
      fun () -> { customerGatewayAssociation }
    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
        [("CustomerGatewayAssociation",
           (Option.map x.customerGatewayAssociation
              ~f:CustomerGatewayAssociation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let customerGatewayAssociation =
        (Option.map ~f:CustomerGatewayAssociation.of_xml)
          (Xml.child xml_arg0 "CustomerGatewayAssociation") in
      make ?customerGatewayAssociation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let customerGatewayAssociation =
        field_map json__ "CustomerGatewayAssociation"
          CustomerGatewayAssociation.of_json in
      make ?customerGatewayAssociation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates a customer gateway with a device and optionally, with a link. If you specify a link, it must be associated with the specified device. You can only associate customer gateways that are connected to a VPN attachment on a transit gateway or core network registered in your global network. When you register a transit gateway or core network, customer gateways that are connected to the transit gateway are automatically included in the global network. To list customer gateways that are connected to a transit gateway, use the DescribeVpnConnections EC2 API and filter by transit-gateway-id. You cannot associate a customer gateway with more than one device and link."]
module AssociateCustomerGatewayRequest =
  struct
    type nonrec t =
      {
      customerGatewayArn: CustomerGatewayArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the customer gateway."];
      globalNetworkId: GlobalNetworkId.t
        [@ocaml.doc "The ID of the global network."];
      deviceId: DeviceId.t [@ocaml.doc "The ID of the device."];
      linkId: LinkId.t option [@ocaml.doc "The ID of the link."]}
    let context_ = "AssociateCustomerGatewayRequest"
    let make ?linkId =
      fun ~customerGatewayArn ->
        fun ~globalNetworkId ->
          fun ~deviceId ->
            fun () ->
              { linkId; customerGatewayArn; globalNetworkId; deviceId }
    let to_value x =
      structure_to_value
        [("CustomerGatewayArn",
           (Some (CustomerGatewayArn.to_value x.customerGatewayArn)));
        ("globalNetworkId",
          (Some (GlobalNetworkId.to_value x.globalNetworkId)));
        ("DeviceId", (Some (DeviceId.to_value x.deviceId)));
        ("LinkId", (Option.map x.linkId ~f:LinkId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let linkId =
        (Option.map ~f:LinkId.of_xml) (Xml.child xml_arg0 "LinkId") in
      let deviceId =
        DeviceId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "DeviceId") in
      let globalNetworkId =
        GlobalNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "globalNetworkId") in
      let customerGatewayArn =
        CustomerGatewayArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "CustomerGatewayArn") in
      make ?linkId ~deviceId ~globalNetworkId ~customerGatewayArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let linkId = field_map json__ "LinkId" LinkId.of_json in
      let deviceId = field_map_exn json__ "DeviceId" DeviceId.of_json in
      let globalNetworkId =
        field_map_exn json__ "GlobalNetworkId" GlobalNetworkId.of_json in
      let customerGatewayArn =
        field_map_exn json__ "CustomerGatewayArn" CustomerGatewayArn.of_json in
      make ?linkId ~deviceId ~globalNetworkId ~customerGatewayArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates a customer gateway with a device and optionally, with a link. If you specify a link, it must be associated with the specified device. You can only associate customer gateways that are connected to a VPN attachment on a transit gateway or core network registered in your global network. When you register a transit gateway or core network, customer gateways that are connected to the transit gateway are automatically included in the global network. To list customer gateways that are connected to a transit gateway, use the DescribeVpnConnections EC2 API and filter by transit-gateway-id. You cannot associate a customer gateway with more than one device and link."]
module AssociateConnectPeerResponse =
  struct
    type nonrec t =
      {
      connectPeerAssociation: ConnectPeerAssociation.t option
        [@ocaml.doc "The response to the Connect peer request."]}
    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 ?connectPeerAssociation = fun () -> { connectPeerAssociation }
    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
        [("ConnectPeerAssociation",
           (Option.map x.connectPeerAssociation
              ~f:ConnectPeerAssociation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let connectPeerAssociation =
        (Option.map ~f:ConnectPeerAssociation.of_xml)
          (Xml.child xml_arg0 "ConnectPeerAssociation") in
      make ?connectPeerAssociation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let connectPeerAssociation =
        field_map json__ "ConnectPeerAssociation"
          ConnectPeerAssociation.of_json in
      make ?connectPeerAssociation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates a core network Connect peer with a device and optionally, with a link. If you specify a link, it must be associated with the specified device. You can only associate core network Connect peers that have been created on a core network Connect attachment on a core network."]
module AssociateConnectPeerRequest =
  struct
    type nonrec t =
      {
      globalNetworkId: GlobalNetworkId.t
        [@ocaml.doc "The ID of your global network."];
      connectPeerId: ConnectPeerId.t
        [@ocaml.doc "The ID of the Connect peer."];
      deviceId: DeviceId.t [@ocaml.doc "The ID of the device."];
      linkId: LinkId.t option [@ocaml.doc "The ID of the link."]}
    let context_ = "AssociateConnectPeerRequest"
    let make ?linkId =
      fun ~globalNetworkId ->
        fun ~connectPeerId ->
          fun ~deviceId ->
            fun () -> { linkId; globalNetworkId; connectPeerId; deviceId }
    let to_value x =
      structure_to_value
        [("globalNetworkId",
           (Some (GlobalNetworkId.to_value x.globalNetworkId)));
        ("ConnectPeerId", (Some (ConnectPeerId.to_value x.connectPeerId)));
        ("DeviceId", (Some (DeviceId.to_value x.deviceId)));
        ("LinkId", (Option.map x.linkId ~f:LinkId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let linkId =
        (Option.map ~f:LinkId.of_xml) (Xml.child xml_arg0 "LinkId") in
      let deviceId =
        DeviceId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "DeviceId") in
      let connectPeerId =
        ConnectPeerId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ConnectPeerId") in
      let globalNetworkId =
        GlobalNetworkId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "globalNetworkId") in
      make ?linkId ~deviceId ~connectPeerId ~globalNetworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let linkId = field_map json__ "LinkId" LinkId.of_json in
      let deviceId = field_map_exn json__ "DeviceId" DeviceId.of_json in
      let connectPeerId =
        field_map_exn json__ "ConnectPeerId" ConnectPeerId.of_json in
      let globalNetworkId =
        field_map_exn json__ "GlobalNetworkId" GlobalNetworkId.of_json in
      make ?linkId ~deviceId ~connectPeerId ~globalNetworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates a core network Connect peer with a device and optionally, with a link. If you specify a link, it must be associated with the specified device. You can only associate core network Connect peers that have been created on a core network Connect attachment on a core network."]
module AcceptAttachmentResponse =
  struct
    type nonrec t =
      {
      attachment: Attachment.t option
        [@ocaml.doc "The response to the attachment request."]}
    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 ?attachment = fun () -> { attachment }
    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
        [("Attachment", (Option.map x.attachment ~f:Attachment.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attachment =
        (Option.map ~f:Attachment.of_xml) (Xml.child xml_arg0 "Attachment") in
      make ?attachment ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attachment = field_map json__ "Attachment" Attachment.of_json in
      make ?attachment ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Accepts a core network attachment request. Once the attachment request is accepted by a core network owner, the attachment is created and connected to a core network."]
module AcceptAttachmentRequest =
  struct
    type nonrec t =
      {
      attachmentId: AttachmentId.t [@ocaml.doc "The ID of the attachment."]}
    let context_ = "AcceptAttachmentRequest"
    let make ~attachmentId = fun () -> { attachmentId }
    let to_value x =
      structure_to_value
        [("attachmentId", (Some (AttachmentId.to_value x.attachmentId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attachmentId =
        AttachmentId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "attachmentId") in
      make ~attachmentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attachmentId =
        field_map_exn json__ "AttachmentId" AttachmentId.of_json in
      make ~attachmentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Accepts a core network attachment request. Once the attachment request is accepted by a core network owner, the attachment is created and connected to a core network."]