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.interconnect
let apiVersion = "2022-07-26"
let endpointPrefix = "interconnect"
let serviceFullName = "Interconnect"
let signatureVersion = "v4"
let protocol = "json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let targetPrefix = "Interconnect"
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 ConnectionBandwidth =
  struct
    type nonrec t = string
    let context_ = "ConnectionBandwidth"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:8) >>=
                  (fun () -> check_pattern i ~pattern:"\\d+[MG]bps")));
        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:"ConnectionBandwidth" j
    let to_json = simple_to_json to_value
  end
module BandwidthList =
  struct
    type nonrec t = ConnectionBandwidth.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:ConnectionBandwidth.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:ConnectionBandwidth.of_xml)
    let of_json j =
      list_of_json ~kind:"BandwidthList" ~of_json:ConnectionBandwidth.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module CloudServiceProvider =
  struct
    type nonrec t = string
    let context_ = "CloudServiceProvider"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:32) >>=
             (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:"CloudServiceProvider" j
    let to_json = simple_to_json to_value
  end
module LastMileProvider =
  struct
    type nonrec t = string
    let context_ = "LastMileProvider"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:32) >>=
             (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:"LastMileProvider" j
    let to_json = simple_to_json to_value
  end
module AmazonResourceName =
  struct
    type nonrec t = string
    let context_ = "AmazonResourceName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:59) >>=
             (fun () ->
                (check_string_max i ~max:150) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:aws[a-z-]*:interconnect:[^:]+:[0-9]{12}:connection/(mcc|lmcc)-[a-z0-9]{8}")));
        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:"AmazonResourceName" j
    let to_json = simple_to_json to_value
  end
module DirectConnectGatewayAttachPoint =
  struct
    type nonrec t = string
    let context_ = "DirectConnectGatewayAttachPoint"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:36) >>=
             (fun () ->
                (check_string_max i ~max:36) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[0-9a-fA-F]{8}-[0-9a-fA-F]{4}-[0-9a-fA-F]{4}-[0-9a-fA-F]{4}-[0-9a-fA-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:"DirectConnectGatewayAttachPoint" j
    let to_json = simple_to_json to_value
  end
module TagKey =
  struct
    type nonrec t = string
    let context_ = "TagKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagKey" j
    let to_json = simple_to_json to_value
  end
module TagValue =
  struct
    type nonrec t = string
    let context_ = "TagValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagValue" j
    let to_json = simple_to_json to_value
  end
module Bandwidths =
  struct
    type nonrec t =
      {
      available: BandwidthList.t option
        [@ocaml.doc "The list of currently available bandwidths."];
      supported: BandwidthList.t option
        [@ocaml.doc
          "The list of all bandwidths that this environment plans to support"]}
    let make ?available =
      fun ?supported -> fun () -> { available; supported }
    let to_value x =
      structure_to_value
        [("available", (Option.map x.available ~f:BandwidthList.to_value));
        ("supported", (Option.map x.supported ~f:BandwidthList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let supported =
        (Option.map ~f:BandwidthList.of_xml) (Xml.child xml_arg0 "supported") in
      let available =
        (Option.map ~f:BandwidthList.of_xml) (Xml.child xml_arg0 "available") in
      make ?supported ?available ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let supported = field_map json__ "supported" BandwidthList.of_json in
      let available = field_map json__ "available" BandwidthList.of_json in
      make ?supported ?available ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the details about the available and supported bandwidths."]
module EnvironmentId =
  struct
    type nonrec t = string
    let context_ = "EnvironmentId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:64) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"EnvironmentId" j
    let to_json = simple_to_json to_value
  end
module EnvironmentState =
  struct
    type nonrec t =
      | Available 
      | Limited 
      | Unavailable 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Available -> "available"
      | Limited -> "limited"
      | Unavailable -> "unavailable"
      | Non_static_id s -> s
    let of_string =
      function
      | "available" -> Available
      | "limited" -> Limited
      | "unavailable" -> Unavailable
      | 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 EnvironmentState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"EnvironmentState" j)
    let to_json = simple_to_json to_value
  end
module Location =
  struct
    type nonrec t = string
    let context_ = "Location"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Location" j
    let to_json = simple_to_json to_value
  end
module ProductType =
  struct
    type nonrec t = string
    let context_ = "ProductType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:32) >>=
             (fun () -> check_string_min i ~min:5));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ProductType" j
    let to_json = simple_to_json to_value
  end
module Provider =
  struct
    type nonrec t =
      {
      cloudServiceProvider: CloudServiceProvider.t option
        [@ocaml.doc
          "The provider's name. Specifically, connections to/from this Cloud Service Provider will be considered Multicloud connections."];
      lastMileProvider: LastMileProvider.t option
        [@ocaml.doc
          "The provider's name. Specifically, connections to/from this Last Mile Provider will be considered LastMile connections."]}
    let make ?cloudServiceProvider =
      fun ?lastMileProvider ->
        fun () -> { cloudServiceProvider; lastMileProvider }
    let to_value x =
      structure_to_value
        [("cloudServiceProvider",
           (Option.map x.cloudServiceProvider
              ~f:CloudServiceProvider.to_value));
        ("lastMileProvider",
          (Option.map x.lastMileProvider ~f:LastMileProvider.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastMileProvider =
        (Option.map ~f:LastMileProvider.of_xml)
          (Xml.child xml_arg0 "lastMileProvider") in
      let cloudServiceProvider =
        (Option.map ~f:CloudServiceProvider.of_xml)
          (Xml.child xml_arg0 "cloudServiceProvider") in
      make ?lastMileProvider ?cloudServiceProvider ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastMileProvider =
        field_map json__ "lastMileProvider" LastMileProvider.of_json in
      let cloudServiceProvider =
        field_map json__ "cloudServiceProvider" CloudServiceProvider.of_json in
      make ?lastMileProvider ?cloudServiceProvider ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the respective AWS Interconnect Partner organization."]
module RemoteAccountIdentifierType =
  struct
    type nonrec t =
      | Account 
      | Email 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Account -> "account"
      | Email -> "email"
      | Non_static_id s -> s
    let of_string =
      function
      | "account" -> Account
      | "email" -> Email
      | 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 RemoteAccountIdentifierType"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"RemoteAccountIdentifierType" j)
    let to_json = simple_to_json to_value
  end
module String_ =
  struct
    type nonrec t = string
    let context_ = "String"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"String" j
    let to_json = simple_to_json to_value
  end
module AttachPoint =
  struct
    type nonrec t =
      {
      directConnectGateway: DirectConnectGatewayAttachPoint.t option
        [@ocaml.doc
          "Identifies an DirectConnect Gateway attach point by DirectConnectGatewayID."];
      arn: AmazonResourceName.t option
        [@ocaml.doc "Identifies an attach point by full ARN."]}
    let make ?directConnectGateway =
      fun ?arn -> fun () -> { directConnectGateway; arn }
    let to_value x =
      structure_to_value
        [("directConnectGateway",
           (Option.map x.directConnectGateway
              ~f:DirectConnectGatewayAttachPoint.to_value));
        ("arn", (Option.map x.arn ~f:AmazonResourceName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        (Option.map ~f:AmazonResourceName.of_xml) (Xml.child xml_arg0 "arn") in
      let directConnectGateway =
        (Option.map ~f:DirectConnectGatewayAttachPoint.of_xml)
          (Xml.child xml_arg0 "directConnectGateway") in
      make ?arn ?directConnectGateway ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map json__ "arn" AmazonResourceName.of_json in
      let directConnectGateway =
        field_map json__ "directConnectGateway"
          DirectConnectGatewayAttachPoint.of_json in
      make ?arn ?directConnectGateway ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Identifies an attach point to use with a Connection."]
module BillingTier =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:8) >>= (fun () -> check_int_min i ~min:0));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for BillingTier" 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 ConnectionDescription =
  struct
    type nonrec t = string
    let context_ = "ConnectionDescription"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:255) >>=
                  (fun () -> check_pattern i ~pattern:"[-a-zA-Z0-9_ ]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ConnectionDescription" 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:1) >>=
             (fun () ->
                (check_string_max i ~max:32) >>=
                  (fun () ->
                     check_pattern i ~pattern:"(mcc|lmcc)-[a-z0-9]{8}")));
        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 ConnectionSharedId =
  struct
    type nonrec t = string
    let context_ = "ConnectionSharedId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:36) >>=
             (fun () ->
                (check_string_max i ~max:36) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[0-9a-fA-F]{8}-[0-9a-fA-F]{4}-[0-9a-fA-F]{4}-[0-9a-fA-F]{4}-[0-9a-fA-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:"ConnectionSharedId" j
    let to_json = simple_to_json to_value
  end
module ConnectionState =
  struct
    type nonrec t =
      | Available 
      | Requested 
      | Pending 
      | Down 
      | Deleting 
      | Deleted 
      | Failed 
      | Updating 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Available -> "available"
      | Requested -> "requested"
      | Pending -> "pending"
      | Down -> "down"
      | Deleting -> "deleting"
      | Deleted -> "deleted"
      | Failed -> "failed"
      | Updating -> "updating"
      | Non_static_id s -> s
    let of_string =
      function
      | "available" -> Available
      | "requested" -> Requested
      | "pending" -> Pending
      | "down" -> Down
      | "deleting" -> Deleting
      | "deleted" -> Deleted
      | "failed" -> Failed
      | "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 AttachPointType =
  struct
    type nonrec t =
      | DirectConnectGateway 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DirectConnectGateway -> "DirectConnectGateway"
      | Non_static_id s -> s
    let of_string =
      function
      | "DirectConnectGateway" -> DirectConnectGateway
      | 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 AttachPointType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AttachPointType" j)
    let to_json = simple_to_json to_value
  end
module ActivationKey =
  struct
    type nonrec t = string
    let context_ = "ActivationKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2048) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ActivationKey" j
    let to_json = simple_to_json to_value
  end
module OwnerAccountId =
  struct
    type nonrec t = string
    let context_ = "OwnerAccountId"
    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:"[0-9]{12}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"OwnerAccountId" j
    let to_json = simple_to_json to_value
  end
module TagMap =
  struct
    type nonrec t = (TagKey.t * TagValue.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 ->
                            ((TagKey.of_string chopped),
                              (TagValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (TagKey.to_value x) |>
                    (fun x -> (TagValue.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:TagKey.of_string
        ~of_json:TagValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module Environment =
  struct
    type nonrec t =
      {
      provider: Provider.t option
        [@ocaml.doc "The provider on the remote side of this Connection."];
      location: Location.t option
        [@ocaml.doc
          "The provider specific location on the remote side of this Connection."];
      environmentId: EnvironmentId.t option
        [@ocaml.doc "The identifier of this Environment"];
      state: EnvironmentState.t option
        [@ocaml.doc
          "The state of the Environment. Possible values: available: The environment is available and new Connection objects can be requested. limited: The environment is available, but overall capacity is limited. The set of available bandwidths unavailable: The environment is currently unavailable."];
      bandwidths: Bandwidths.t option
        [@ocaml.doc
          "The sets of bandwidths that are available and supported on this environment."];
      type_: ProductType.t option
        [@ocaml.doc
          "The specific product type of Connection objects provided by this Environment."];
      activationPageUrl: String_.t option
        [@ocaml.doc
          "An HTTPS URL on the remote partner portal where the Activation Key should be brought to complete the creation process."];
      remoteIdentifierType: RemoteAccountIdentifierType.t option
        [@ocaml.doc
          "The type of identifying information that should be supplied to the remoteAccount parameter of a CreateConnection call for this specific Environment."]}
    let make ?provider =
      fun ?location ->
        fun ?environmentId ->
          fun ?state ->
            fun ?bandwidths ->
              fun ?type_ ->
                fun ?activationPageUrl ->
                  fun ?remoteIdentifierType ->
                    fun () ->
                      {
                        provider;
                        location;
                        environmentId;
                        state;
                        bandwidths;
                        type_;
                        activationPageUrl;
                        remoteIdentifierType
                      }
    let to_value x =
      structure_to_value
        [("provider", (Option.map x.provider ~f:Provider.to_value));
        ("location", (Option.map x.location ~f:Location.to_value));
        ("environmentId",
          (Option.map x.environmentId ~f:EnvironmentId.to_value));
        ("state", (Option.map x.state ~f:EnvironmentState.to_value));
        ("bandwidths", (Option.map x.bandwidths ~f:Bandwidths.to_value));
        ("type", (Option.map x.type_ ~f:ProductType.to_value));
        ("activationPageUrl",
          (Option.map x.activationPageUrl ~f:String_.to_value));
        ("remoteIdentifierType",
          (Option.map x.remoteIdentifierType
             ~f:RemoteAccountIdentifierType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let remoteIdentifierType =
        (Option.map ~f:RemoteAccountIdentifierType.of_xml)
          (Xml.child xml_arg0 "remoteIdentifierType") in
      let activationPageUrl =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "activationPageUrl") in
      let type_ =
        (Option.map ~f:ProductType.of_xml) (Xml.child xml_arg0 "type") in
      let bandwidths =
        (Option.map ~f:Bandwidths.of_xml) (Xml.child xml_arg0 "bandwidths") in
      let state =
        (Option.map ~f:EnvironmentState.of_xml) (Xml.child xml_arg0 "state") in
      let environmentId =
        (Option.map ~f:EnvironmentId.of_xml)
          (Xml.child xml_arg0 "environmentId") in
      let location =
        (Option.map ~f:Location.of_xml) (Xml.child xml_arg0 "location") in
      let provider =
        (Option.map ~f:Provider.of_xml) (Xml.child xml_arg0 "provider") in
      make ?remoteIdentifierType ?activationPageUrl ?type_ ?bandwidths ?state
        ?environmentId ?location ?provider ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let remoteIdentifierType =
        field_map json__ "remoteIdentifierType"
          RemoteAccountIdentifierType.of_json in
      let activationPageUrl =
        field_map json__ "activationPageUrl" String_.of_json in
      let type_ = field_map json__ "type" ProductType.of_json in
      let bandwidths = field_map json__ "bandwidths" Bandwidths.of_json in
      let state = field_map json__ "state" EnvironmentState.of_json in
      let environmentId =
        field_map json__ "environmentId" EnvironmentId.of_json in
      let location = field_map json__ "location" Location.of_json in
      let provider = field_map json__ "provider" Provider.of_json in
      make ?remoteIdentifierType ?activationPageUrl ?type_ ?bandwidths ?state
        ?environmentId ?location ?provider ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Defines the logical topology that an AWS Interconnect Connection is created upon. Specifically, an Environment defines the partner The remote Cloud Service Provider of this resource. or The remote Last Mile Provider of this resource. and the region or location specification to which an AWS Interconnect Connection can be made."]
module ConnectionSummary =
  struct
    type nonrec t =
      {
      id: ConnectionId.t option
        [@ocaml.doc "The identifier of the requested Connection"];
      arn: AmazonResourceName.t option
        [@ocaml.doc "The ARN of the Connection"];
      description: ConnectionDescription.t option
        [@ocaml.doc "A descriptive name of the Connection"];
      bandwidth: ConnectionBandwidth.t option
        [@ocaml.doc "The bandwidth of the Connection"];
      attachPoint: AttachPoint.t option
        [@ocaml.doc
          "The Attach Point to which the connection should be associated."];
      environmentId: EnvironmentId.t option
        [@ocaml.doc "The Environment that this Connection is created on."];
      provider: Provider.t option
        [@ocaml.doc "The provider on the remote end of this Connection"];
      location: Location.t option
        [@ocaml.doc
          "The provider specific location at the remote end of this Connection"];
      type_: ProductType.t option
        [@ocaml.doc "The product variant supplied by this resource."];
      state: ConnectionState.t option
        [@ocaml.doc
          "requested: The initial state of a connection. The state will remain here until the Connection is accepted on the Partner portal. pending: The connection has been accepted and is being provisioned between AWS and the Partner. available: The connection has been fully provisioned between AWS and the Partner. deleting: The connection is being deleted. deleted: The connection has been deleted. failed: The connection has failed to be created. updating: The connection is being updated."];
      sharedId: ConnectionSharedId.t option
        [@ocaml.doc
          "An identifier used by both AWS and the remote partner to identify the specific connection."];
      billingTier: BillingTier.t option
        [@ocaml.doc
          "The billing tier this connection is currently assigned."]}
    let make ?id =
      fun ?arn ->
        fun ?description ->
          fun ?bandwidth ->
            fun ?attachPoint ->
              fun ?environmentId ->
                fun ?provider ->
                  fun ?location ->
                    fun ?type_ ->
                      fun ?state ->
                        fun ?sharedId ->
                          fun ?billingTier ->
                            fun () ->
                              {
                                id;
                                arn;
                                description;
                                bandwidth;
                                attachPoint;
                                environmentId;
                                provider;
                                location;
                                type_;
                                state;
                                sharedId;
                                billingTier
                              }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:ConnectionId.to_value));
        ("arn", (Option.map x.arn ~f:AmazonResourceName.to_value));
        ("description",
          (Option.map x.description ~f:ConnectionDescription.to_value));
        ("bandwidth",
          (Option.map x.bandwidth ~f:ConnectionBandwidth.to_value));
        ("attachPoint", (Option.map x.attachPoint ~f:AttachPoint.to_value));
        ("environmentId",
          (Option.map x.environmentId ~f:EnvironmentId.to_value));
        ("provider", (Option.map x.provider ~f:Provider.to_value));
        ("location", (Option.map x.location ~f:Location.to_value));
        ("type", (Option.map x.type_ ~f:ProductType.to_value));
        ("state", (Option.map x.state ~f:ConnectionState.to_value));
        ("sharedId", (Option.map x.sharedId ~f:ConnectionSharedId.to_value));
        ("billingTier", (Option.map x.billingTier ~f:BillingTier.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let billingTier =
        (Option.map ~f:BillingTier.of_xml) (Xml.child xml_arg0 "billingTier") in
      let sharedId =
        (Option.map ~f:ConnectionSharedId.of_xml)
          (Xml.child xml_arg0 "sharedId") in
      let state =
        (Option.map ~f:ConnectionState.of_xml) (Xml.child xml_arg0 "state") in
      let type_ =
        (Option.map ~f:ProductType.of_xml) (Xml.child xml_arg0 "type") in
      let location =
        (Option.map ~f:Location.of_xml) (Xml.child xml_arg0 "location") in
      let provider =
        (Option.map ~f:Provider.of_xml) (Xml.child xml_arg0 "provider") in
      let environmentId =
        (Option.map ~f:EnvironmentId.of_xml)
          (Xml.child xml_arg0 "environmentId") in
      let attachPoint =
        (Option.map ~f:AttachPoint.of_xml) (Xml.child xml_arg0 "attachPoint") in
      let bandwidth =
        (Option.map ~f:ConnectionBandwidth.of_xml)
          (Xml.child xml_arg0 "bandwidth") in
      let description =
        (Option.map ~f:ConnectionDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let arn =
        (Option.map ~f:AmazonResourceName.of_xml) (Xml.child xml_arg0 "arn") in
      let id = (Option.map ~f:ConnectionId.of_xml) (Xml.child xml_arg0 "id") in
      make ?billingTier ?sharedId ?state ?type_ ?location ?provider
        ?environmentId ?attachPoint ?bandwidth ?description ?arn ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let billingTier = field_map json__ "billingTier" BillingTier.of_json in
      let sharedId = field_map json__ "sharedId" ConnectionSharedId.of_json in
      let state = field_map json__ "state" ConnectionState.of_json in
      let type_ = field_map json__ "type" ProductType.of_json in
      let location = field_map json__ "location" Location.of_json in
      let provider = field_map json__ "provider" Provider.of_json in
      let environmentId =
        field_map json__ "environmentId" EnvironmentId.of_json in
      let attachPoint = field_map json__ "attachPoint" AttachPoint.of_json in
      let bandwidth =
        field_map json__ "bandwidth" ConnectionBandwidth.of_json in
      let description =
        field_map json__ "description" ConnectionDescription.of_json in
      let arn = field_map json__ "arn" AmazonResourceName.of_json in
      let id = field_map json__ "id" ConnectionId.of_json in
      make ?billingTier ?sharedId ?state ?type_ ?location ?provider
        ?environmentId ?attachPoint ?bandwidth ?description ?arn ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Summarized view of a Connection object."]
module AttachPointDescriptor =
  struct
    type nonrec t =
      {
      type_: AttachPointType.t option
        [@ocaml.doc
          "The type of this AttachPoint, which will dictate the syntax of the identifier. Current types include: ARN DirectConnect Gateway"];
      identifier: String_.t option
        [@ocaml.doc
          "The identifier for the specific type of the AttachPoint."];
      name: String_.t option
        [@ocaml.doc "The descriptive name of the identifier attach point."]}
    let make ?type_ =
      fun ?identifier -> fun ?name -> fun () -> { type_; identifier; name }
    let to_value x =
      structure_to_value
        [("type", (Option.map x.type_ ~f:AttachPointType.to_value));
        ("identifier", (Option.map x.identifier ~f:String_.to_value));
        ("name", (Option.map x.name ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "name") in
      let identifier =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "identifier") in
      let type_ =
        (Option.map ~f:AttachPointType.of_xml) (Xml.child xml_arg0 "type") in
      make ?name ?identifier ?type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map json__ "name" String_.of_json in
      let identifier = field_map json__ "identifier" String_.of_json in
      let type_ = field_map json__ "type" AttachPointType.of_json in
      make ?name ?identifier ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a possible Attach Point for a Connection."]
module RemoteOwnerAccount =
  struct
    type nonrec t = string
    let context_ = "RemoteOwnerAccount"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:255) >>=
                  (fun () -> check_pattern i ~pattern:"[-a-zA-Z0-9_@\\.]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"RemoteOwnerAccount" j
    let to_json = simple_to_json to_value
  end
module AccessDeniedException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The calling principal is not allowed to access the specified resource, or the resource does not exist."]
module Connection =
  struct
    type nonrec t =
      {
      id: ConnectionId.t option
        [@ocaml.doc "The short identifier of the connection object."];
      arn: AmazonResourceName.t option
        [@ocaml.doc "An ARN of a Connection object."];
      description: ConnectionDescription.t option
        [@ocaml.doc "A descriptive name for the connection."];
      bandwidth: ConnectionBandwidth.t option
        [@ocaml.doc "The specific selected bandwidth of this connection."];
      attachPoint: AttachPoint.t option
        [@ocaml.doc
          "The Attach Point to which the connection should be associated.\""];
      environmentId: EnvironmentId.t option
        [@ocaml.doc
          "The specific Environment this connection is placed upon."];
      provider: Provider.t option
        [@ocaml.doc "The provider on the remote side of this Connection."];
      location: Location.t option
        [@ocaml.doc
          "The provider specific location on the remote side of this Connection"];
      type_: ProductType.t option
        [@ocaml.doc "The specific product type of this Connection."];
      state: ConnectionState.t option
        [@ocaml.doc
          "requested: The initial state of a connection. The state will remain here until the Connection is accepted on the Partner portal. pending: The connection has been accepted and is being provisioned between AWS and the Partner. available: The connection has been fully provisioned between AWS and the Partner. deleting: The connection is being deleted. deleted: The connection has been deleted. failed: The connection has failed to be created. updating: The connection is being updated."];
      sharedId: ConnectionSharedId.t option
        [@ocaml.doc
          "An identifier used by both AWS and the remote partner to identify the specific connection."];
      billingTier: BillingTier.t option
        [@ocaml.doc
          "The billing tier this connection is currently assigned."];
      ownerAccount: OwnerAccountId.t option
        [@ocaml.doc "The account that owns this Connection"];
      activationKey: ActivationKey.t option
        [@ocaml.doc "The Activation Key associated to this connection."];
      tags: TagMap.t option [@ocaml.doc "The tags on the Connection"]}
    let make ?id =
      fun ?arn ->
        fun ?description ->
          fun ?bandwidth ->
            fun ?attachPoint ->
              fun ?environmentId ->
                fun ?provider ->
                  fun ?location ->
                    fun ?type_ ->
                      fun ?state ->
                        fun ?sharedId ->
                          fun ?billingTier ->
                            fun ?ownerAccount ->
                              fun ?activationKey ->
                                fun ?tags ->
                                  fun () ->
                                    {
                                      id;
                                      arn;
                                      description;
                                      bandwidth;
                                      attachPoint;
                                      environmentId;
                                      provider;
                                      location;
                                      type_;
                                      state;
                                      sharedId;
                                      billingTier;
                                      ownerAccount;
                                      activationKey;
                                      tags
                                    }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:ConnectionId.to_value));
        ("arn", (Option.map x.arn ~f:AmazonResourceName.to_value));
        ("description",
          (Option.map x.description ~f:ConnectionDescription.to_value));
        ("bandwidth",
          (Option.map x.bandwidth ~f:ConnectionBandwidth.to_value));
        ("attachPoint", (Option.map x.attachPoint ~f:AttachPoint.to_value));
        ("environmentId",
          (Option.map x.environmentId ~f:EnvironmentId.to_value));
        ("provider", (Option.map x.provider ~f:Provider.to_value));
        ("location", (Option.map x.location ~f:Location.to_value));
        ("type", (Option.map x.type_ ~f:ProductType.to_value));
        ("state", (Option.map x.state ~f:ConnectionState.to_value));
        ("sharedId", (Option.map x.sharedId ~f:ConnectionSharedId.to_value));
        ("billingTier", (Option.map x.billingTier ~f:BillingTier.to_value));
        ("ownerAccount",
          (Option.map x.ownerAccount ~f:OwnerAccountId.to_value));
        ("activationKey",
          (Option.map x.activationKey ~f:ActivationKey.to_value));
        ("tags", (Option.map x.tags ~f:TagMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "tags") in
      let activationKey =
        (Option.map ~f:ActivationKey.of_xml)
          (Xml.child xml_arg0 "activationKey") in
      let ownerAccount =
        (Option.map ~f:OwnerAccountId.of_xml)
          (Xml.child xml_arg0 "ownerAccount") in
      let billingTier =
        (Option.map ~f:BillingTier.of_xml) (Xml.child xml_arg0 "billingTier") in
      let sharedId =
        (Option.map ~f:ConnectionSharedId.of_xml)
          (Xml.child xml_arg0 "sharedId") in
      let state =
        (Option.map ~f:ConnectionState.of_xml) (Xml.child xml_arg0 "state") in
      let type_ =
        (Option.map ~f:ProductType.of_xml) (Xml.child xml_arg0 "type") in
      let location =
        (Option.map ~f:Location.of_xml) (Xml.child xml_arg0 "location") in
      let provider =
        (Option.map ~f:Provider.of_xml) (Xml.child xml_arg0 "provider") in
      let environmentId =
        (Option.map ~f:EnvironmentId.of_xml)
          (Xml.child xml_arg0 "environmentId") in
      let attachPoint =
        (Option.map ~f:AttachPoint.of_xml) (Xml.child xml_arg0 "attachPoint") in
      let bandwidth =
        (Option.map ~f:ConnectionBandwidth.of_xml)
          (Xml.child xml_arg0 "bandwidth") in
      let description =
        (Option.map ~f:ConnectionDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let arn =
        (Option.map ~f:AmazonResourceName.of_xml) (Xml.child xml_arg0 "arn") in
      let id = (Option.map ~f:ConnectionId.of_xml) (Xml.child xml_arg0 "id") in
      make ?tags ?activationKey ?ownerAccount ?billingTier ?sharedId ?state
        ?type_ ?location ?provider ?environmentId ?attachPoint ?bandwidth
        ?description ?arn ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagMap.of_json in
      let activationKey =
        field_map json__ "activationKey" ActivationKey.of_json in
      let ownerAccount =
        field_map json__ "ownerAccount" OwnerAccountId.of_json in
      let billingTier = field_map json__ "billingTier" BillingTier.of_json in
      let sharedId = field_map json__ "sharedId" ConnectionSharedId.of_json in
      let state = field_map json__ "state" ConnectionState.of_json in
      let type_ = field_map json__ "type" ProductType.of_json in
      let location = field_map json__ "location" Location.of_json in
      let provider = field_map json__ "provider" Provider.of_json in
      let environmentId =
        field_map json__ "environmentId" EnvironmentId.of_json in
      let attachPoint = field_map json__ "attachPoint" AttachPoint.of_json in
      let bandwidth =
        field_map json__ "bandwidth" ConnectionBandwidth.of_json in
      let description =
        field_map json__ "description" ConnectionDescription.of_json in
      let arn = field_map json__ "arn" AmazonResourceName.of_json in
      let id = field_map json__ "id" ConnectionId.of_json in
      make ?tags ?activationKey ?ownerAccount ?billingTier ?sharedId ?state
        ?type_ ?location ?provider ?environmentId ?attachPoint ?bandwidth
        ?description ?arn ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The object describing the provided connectivity from the AWS region to the partner location."]
module InterconnectClientException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request was denied due to incorrect client supplied parameters."]
module InterconnectServerException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request resulted in an exception internal to the service."]
module InterconnectValidationException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The input fails to satisfy the constraints specified."]
module ResourceNotFoundException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request specifies a resource that does not exist on the server."]
module ServiceQuotaExceededException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The requested operation would result in the calling principal exceeding their allotted quota."]
module ThrottlingException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request was denied due to request throttling."]
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 EnvironmentList =
  struct
    type nonrec t = Environment.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:Environment.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:Environment.of_xml)
    let of_json j =
      list_of_json ~kind:"EnvironmentList" ~of_json:Environment.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:100) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for MaxResults" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module NextToken =
  struct
    type nonrec t = string
    let context_ = "NextToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"NextToken" j
    let to_json = simple_to_json to_value
  end
module ConnectionSummariesList =
  struct
    type nonrec t = ConnectionSummary.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:ConnectionSummary.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:ConnectionSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ConnectionSummariesList"
        ~of_json:ConnectionSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module AttachPointDescriptorList =
  struct
    type nonrec t = AttachPointDescriptor.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:AttachPointDescriptor.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:AttachPointDescriptor.of_xml)
    let of_json j =
      list_of_json ~kind:"AttachPointDescriptorList"
        ~of_json:AttachPointDescriptor.of_json j
    let to_json v = composed_to_json to_value v
  end
module RemoteAccountIdentifier =
  struct
    type nonrec t =
      {
      identifier: RemoteOwnerAccount.t option
        [@ocaml.doc
          "A generic bit of identifying information. Can be used in place of any of the more specific types."]}
    let make ?identifier = fun () -> { identifier }
    let to_value x =
      structure_to_value
        [("identifier",
           (Option.map x.identifier ~f:RemoteOwnerAccount.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let identifier =
        (Option.map ~f:RemoteOwnerAccount.of_xml)
          (Xml.child xml_arg0 "identifier") in
      make ?identifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let identifier =
        field_map json__ "identifier" RemoteOwnerAccount.of_json in
      make ?identifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The types of identifiers that may be needed for remote account specification."]
module UpdateConnectionResponse =
  struct
    type nonrec t =
      {
      connection: Connection.t option
        [@ocaml.doc "The resulting updated Connection"]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InterconnectClientException of InterconnectClientException.t 
      | `InterconnectServerException of InterconnectServerException.t 
      | `InterconnectValidationException of InterconnectValidationException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.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)
      | "InterconnectClientException" ->
          `InterconnectClientException
            (InterconnectClientException.of_json json)
      | "InterconnectServerException" ->
          `InterconnectServerException
            (InterconnectServerException.of_json json)
      | "InterconnectValidationException" ->
          `InterconnectValidationException
            (InterconnectValidationException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InterconnectClientException" ->
          `InterconnectClientException
            (InterconnectClientException.of_xml xml)
      | "InterconnectServerException" ->
          `InterconnectServerException
            (InterconnectServerException.of_xml xml)
      | "InterconnectValidationException" ->
          `InterconnectValidationException
            (InterconnectValidationException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InterconnectClientException e ->
          `Assoc
            [("error", (`String "InterconnectClientException"));
            ("details", (InterconnectClientException.to_json e))]
      | `InterconnectServerException e ->
          `Assoc
            [("error", (`String "InterconnectServerException"));
            ("details", (InterconnectServerException.to_json e))]
      | `InterconnectValidationException e ->
          `Assoc
            [("error", (`String "InterconnectValidationException"));
            ("details", (InterconnectValidationException.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))]
      | `Unknown_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
       "Modifies an existing connection. Currently we support modifications to the connection's description and/or bandwidth."]
module UpdateConnectionRequest =
  struct
    type nonrec t =
      {
      identifier: ConnectionId.t
        [@ocaml.doc
          "The identifier of the Connection that should be updated."];
      description: ConnectionDescription.t option
        [@ocaml.doc "An updated description to apply to the Connection"];
      bandwidth: ConnectionBandwidth.t option
        [@ocaml.doc
          "Request a new bandwidth size on the given Connection. Note that changes to the size may be subject to additional policy, and does require the remote partner provider to acknowledge and permit this new bandwidth size."];
      clientToken: String_.t option
        [@ocaml.doc "Idempotency token used for the request."]}
    let context_ = "UpdateConnectionRequest"
    let make ?description =
      fun ?bandwidth ->
        fun ?clientToken ->
          fun ~identifier ->
            fun () -> { description; bandwidth; clientToken; identifier }
    let to_value x =
      structure_to_value
        [("identifier", (Some (ConnectionId.to_value x.identifier)));
        ("description",
          (Option.map x.description ~f:ConnectionDescription.to_value));
        ("bandwidth",
          (Option.map x.bandwidth ~f:ConnectionBandwidth.to_value));
        ("clientToken", (Option.map x.clientToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "clientToken") in
      let bandwidth =
        (Option.map ~f:ConnectionBandwidth.of_xml)
          (Xml.child xml_arg0 "bandwidth") in
      let description =
        (Option.map ~f:ConnectionDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let identifier =
        ConnectionId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "identifier") in
      make ?clientToken ?bandwidth ?description ~identifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" String_.of_json in
      let bandwidth =
        field_map json__ "bandwidth" ConnectionBandwidth.of_json in
      let description =
        field_map json__ "description" ConnectionDescription.of_json in
      let identifier = field_map_exn json__ "identifier" ConnectionId.of_json in
      make ?clientToken ?bandwidth ?description ~identifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Modifies an existing connection. Currently we support modifications to the connection's description and/or bandwidth."]
module UntagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InterconnectClientException of InterconnectClientException.t 
      | `InterconnectServerException of InterconnectServerException.t 
      | `InterconnectValidationException of InterconnectValidationException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.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)
      | "InterconnectClientException" ->
          `InterconnectClientException
            (InterconnectClientException.of_json json)
      | "InterconnectServerException" ->
          `InterconnectServerException
            (InterconnectServerException.of_json json)
      | "InterconnectValidationException" ->
          `InterconnectValidationException
            (InterconnectValidationException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InterconnectClientException" ->
          `InterconnectClientException
            (InterconnectClientException.of_xml xml)
      | "InterconnectServerException" ->
          `InterconnectServerException
            (InterconnectServerException.of_xml xml)
      | "InterconnectValidationException" ->
          `InterconnectValidationException
            (InterconnectValidationException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InterconnectClientException e ->
          `Assoc
            [("error", (`String "InterconnectClientException"));
            ("details", (InterconnectClientException.to_json e))]
      | `InterconnectServerException e ->
          `Assoc
            [("error", (`String "InterconnectServerException"));
            ("details", (InterconnectServerException.to_json e))]
      | `InterconnectValidationException e ->
          `Assoc
            [("error", (`String "InterconnectValidationException"));
            ("details", (InterconnectValidationException.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))]
      | `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 the specified resource."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      arn: AmazonResourceName.t
        [@ocaml.doc
          "The ARN of the resource from which the specified tags should be removed."];
      tagKeys: TagKeyList.t
        [@ocaml.doc
          "The list of tag keys that should be removed from the resource."]}
    let context_ = "UntagResourceRequest"
    let make ~arn = fun ~tagKeys -> fun () -> { arn; tagKeys }
    let to_value x =
      structure_to_value
        [("arn", (Some (AmazonResourceName.to_value x.arn)));
        ("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 arn =
        AmazonResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "arn") in
      make ~tagKeys ~arn ()
    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 arn = field_map_exn json__ "arn" AmazonResourceName.of_json in
      make ~tagKeys ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Removes tags from the specified resource."]
module TagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InterconnectClientException of InterconnectClientException.t 
      | `InterconnectServerException of InterconnectServerException.t 
      | `InterconnectValidationException of InterconnectValidationException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.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)
      | "InterconnectClientException" ->
          `InterconnectClientException
            (InterconnectClientException.of_json json)
      | "InterconnectServerException" ->
          `InterconnectServerException
            (InterconnectServerException.of_json json)
      | "InterconnectValidationException" ->
          `InterconnectValidationException
            (InterconnectValidationException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InterconnectClientException" ->
          `InterconnectClientException
            (InterconnectClientException.of_xml xml)
      | "InterconnectServerException" ->
          `InterconnectServerException
            (InterconnectServerException.of_xml xml)
      | "InterconnectValidationException" ->
          `InterconnectValidationException
            (InterconnectValidationException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InterconnectClientException e ->
          `Assoc
            [("error", (`String "InterconnectClientException"));
            ("details", (InterconnectClientException.to_json e))]
      | `InterconnectServerException e ->
          `Assoc
            [("error", (`String "InterconnectServerException"));
            ("details", (InterconnectServerException.to_json e))]
      | `InterconnectValidationException e ->
          `Assoc
            [("error", (`String "InterconnectValidationException"));
            ("details", (InterconnectValidationException.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))]
      | `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 "Add new tags to the specified resource."]
module TagResourceRequest =
  struct
    type nonrec t =
      {
      arn: AmazonResourceName.t
        [@ocaml.doc
          "The ARN of the resource that should receive the new tags."];
      tags: TagMap.t
        [@ocaml.doc "A map of tags to apply to the specified resource."]}
    let context_ = "TagResourceRequest"
    let make ~arn = fun ~tags -> fun () -> { arn; tags }
    let to_value x =
      structure_to_value
        [("arn", (Some (AmazonResourceName.to_value x.arn)));
        ("tags", (Some (TagMap.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        TagMap.of_xml (Xml.child_exn ~context:context_ xml_arg0 "tags") in
      let arn =
        AmazonResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "arn") in
      make ~tags ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map_exn json__ "tags" TagMap.of_json in
      let arn = field_map_exn json__ "arn" AmazonResourceName.of_json in
      make ~tags ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Add new tags to the specified resource."]
module ListTagsForResourceResponse =
  struct
    type nonrec t =
      {
      tags: TagMap.t option [@ocaml.doc "The tags on the specified ARN."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InterconnectClientException of InterconnectClientException.t 
      | `InterconnectServerException of InterconnectServerException.t 
      | `InterconnectValidationException of InterconnectValidationException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tags = fun () -> { tags }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InterconnectClientException" ->
          `InterconnectClientException
            (InterconnectClientException.of_json json)
      | "InterconnectServerException" ->
          `InterconnectServerException
            (InterconnectServerException.of_json json)
      | "InterconnectValidationException" ->
          `InterconnectValidationException
            (InterconnectValidationException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InterconnectClientException" ->
          `InterconnectClientException
            (InterconnectClientException.of_xml xml)
      | "InterconnectServerException" ->
          `InterconnectServerException
            (InterconnectServerException.of_xml xml)
      | "InterconnectValidationException" ->
          `InterconnectValidationException
            (InterconnectValidationException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InterconnectClientException e ->
          `Assoc
            [("error", (`String "InterconnectClientException"));
            ("details", (InterconnectClientException.to_json e))]
      | `InterconnectServerException e ->
          `Assoc
            [("error", (`String "InterconnectServerException"));
            ("details", (InterconnectServerException.to_json e))]
      | `InterconnectValidationException e ->
          `Assoc
            [("error", (`String "InterconnectValidationException"));
            ("details", (InterconnectValidationException.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))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value [("tags", (Option.map x.tags ~f:TagMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "tags") in
      make ?tags ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagMap.of_json in make ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "List all current tags on the specified resource. Currently this supports Connection resources."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      arn: AmazonResourceName.t
        [@ocaml.doc "The resource ARN for which to list tags."]}
    let context_ = "ListTagsForResourceRequest"
    let make ~arn = fun () -> { arn }
    let to_value x =
      structure_to_value
        [("arn", (Some (AmazonResourceName.to_value x.arn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        AmazonResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "arn") in
      make ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map_exn json__ "arn" AmazonResourceName.of_json in
      make ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "List all current tags on the specified resource. Currently this supports Connection resources."]
module ListEnvironmentsResponse =
  struct
    type nonrec t =
      {
      environments: EnvironmentList.t option
        [@ocaml.doc "The list of matching Environment objects."];
      nextToken: String_.t option
        [@ocaml.doc
          "A pagination token for use in subsequent calls to fetch the next page of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InterconnectClientException of InterconnectClientException.t 
      | `InterconnectServerException of InterconnectServerException.t 
      | `InterconnectValidationException of InterconnectValidationException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?environments =
      fun ?nextToken -> fun () -> { environments; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InterconnectClientException" ->
          `InterconnectClientException
            (InterconnectClientException.of_json json)
      | "InterconnectServerException" ->
          `InterconnectServerException
            (InterconnectServerException.of_json json)
      | "InterconnectValidationException" ->
          `InterconnectValidationException
            (InterconnectValidationException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InterconnectClientException" ->
          `InterconnectClientException
            (InterconnectClientException.of_xml xml)
      | "InterconnectServerException" ->
          `InterconnectServerException
            (InterconnectServerException.of_xml xml)
      | "InterconnectValidationException" ->
          `InterconnectValidationException
            (InterconnectValidationException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InterconnectClientException e ->
          `Assoc
            [("error", (`String "InterconnectClientException"));
            ("details", (InterconnectClientException.to_json e))]
      | `InterconnectServerException e ->
          `Assoc
            [("error", (`String "InterconnectServerException"));
            ("details", (InterconnectServerException.to_json e))]
      | `InterconnectValidationException e ->
          `Assoc
            [("error", (`String "InterconnectValidationException"));
            ("details", (InterconnectValidationException.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))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("environments",
           (Option.map x.environments ~f:EnvironmentList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let environments =
        (Option.map ~f:EnvironmentList.of_xml)
          (Xml.child xml_arg0 "environments") in
      make ?nextToken ?environments ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let environments =
        field_map json__ "environments" EnvironmentList.of_json in
      make ?nextToken ?environments ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all of the environments that can produce connections that will land in the called AWS region."]
module ListEnvironmentsRequest =
  struct
    type nonrec t =
      {
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The max number of list results in a single paginated response."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A pagination token from a previous paginated response indicating you wish to get the next page of results."];
      provider: Provider.t option
        [@ocaml.doc
          "Filter results to only include Environment objects that connect to the Provider."];
      location: Location.t option
        [@ocaml.doc
          "Filter results to only include Environment objects that connect to a given location distiguisher."]}
    let make ?maxResults =
      fun ?nextToken ->
        fun ?provider ->
          fun ?location ->
            fun () -> { maxResults; nextToken; provider; location }
    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));
        ("provider", (Option.map x.provider ~f:Provider.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 provider =
        (Option.map ~f:Provider.of_xml) (Xml.child xml_arg0 "provider") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      make ?location ?provider ?nextToken ?maxResults ()
    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 provider = field_map json__ "provider" Provider.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      make ?location ?provider ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all of the environments that can produce connections that will land in the called AWS region."]
module ListConnectionsResponse =
  struct
    type nonrec t =
      {
      connections: ConnectionSummariesList.t option
        [@ocaml.doc "The resulting list of Connection objects."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A pagination token for use in subsequent calls to fetch the next page of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InterconnectClientException of InterconnectClientException.t 
      | `InterconnectServerException of InterconnectServerException.t 
      | `InterconnectValidationException of InterconnectValidationException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.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)
      | "InterconnectClientException" ->
          `InterconnectClientException
            (InterconnectClientException.of_json json)
      | "InterconnectServerException" ->
          `InterconnectServerException
            (InterconnectServerException.of_json json)
      | "InterconnectValidationException" ->
          `InterconnectValidationException
            (InterconnectValidationException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InterconnectClientException" ->
          `InterconnectClientException
            (InterconnectClientException.of_xml xml)
      | "InterconnectServerException" ->
          `InterconnectServerException
            (InterconnectServerException.of_xml xml)
      | "InterconnectValidationException" ->
          `InterconnectValidationException
            (InterconnectValidationException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InterconnectClientException e ->
          `Assoc
            [("error", (`String "InterconnectClientException"));
            ("details", (InterconnectClientException.to_json e))]
      | `InterconnectServerException e ->
          `Assoc
            [("error", (`String "InterconnectServerException"));
            ("details", (InterconnectServerException.to_json e))]
      | `InterconnectValidationException e ->
          `Assoc
            [("error", (`String "InterconnectValidationException"));
            ("details", (InterconnectValidationException.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))]
      | `Unknown_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:ConnectionSummariesList.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:ConnectionSummariesList.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" ConnectionSummariesList.of_json in
      make ?nextToken ?connections ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all connection objects to which the caller has access. Allows for optional filtering by the following properties: state environmentId provider attach point Only Connection objects matching all filters will be returned."]
module ListConnectionsRequest =
  struct
    type nonrec t =
      {
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The max number of list results in a single paginated response."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A pagination token from a previous paginated response indicating you wish to get the next page of results."];
      state: ConnectionState.t option
        [@ocaml.doc
          "Filter the results to only include Connection objects in the given Connection$state."];
      environmentId: EnvironmentId.t option
        [@ocaml.doc
          "Filter the results to only include Connection objects on the given Environment."];
      provider: Provider.t option
        [@ocaml.doc
          "Filter the results to only include Connection objects to the given Provider."];
      attachPoint: AttachPoint.t option
        [@ocaml.doc
          "Filter results to only include Connection objects attached to the given AttachPoint."]}
    let make ?maxResults =
      fun ?nextToken ->
        fun ?state ->
          fun ?environmentId ->
            fun ?provider ->
              fun ?attachPoint ->
                fun () ->
                  {
                    maxResults;
                    nextToken;
                    state;
                    environmentId;
                    provider;
                    attachPoint
                  }
    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));
        ("state", (Option.map x.state ~f:ConnectionState.to_value));
        ("environmentId",
          (Option.map x.environmentId ~f:EnvironmentId.to_value));
        ("provider", (Option.map x.provider ~f:Provider.to_value));
        ("attachPoint", (Option.map x.attachPoint ~f:AttachPoint.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attachPoint =
        (Option.map ~f:AttachPoint.of_xml) (Xml.child xml_arg0 "attachPoint") in
      let provider =
        (Option.map ~f:Provider.of_xml) (Xml.child xml_arg0 "provider") in
      let environmentId =
        (Option.map ~f:EnvironmentId.of_xml)
          (Xml.child xml_arg0 "environmentId") in
      let state =
        (Option.map ~f:ConnectionState.of_xml) (Xml.child xml_arg0 "state") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      make ?attachPoint ?provider ?environmentId ?state ?nextToken
        ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attachPoint = field_map json__ "attachPoint" AttachPoint.of_json in
      let provider = field_map json__ "provider" Provider.of_json in
      let environmentId =
        field_map json__ "environmentId" EnvironmentId.of_json in
      let state = field_map json__ "state" ConnectionState.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      make ?attachPoint ?provider ?environmentId ?state ?nextToken
        ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all connection objects to which the caller has access. Allows for optional filtering by the following properties: state environmentId provider attach point Only Connection objects matching all filters will be returned."]
module ListAttachPointsResponse =
  struct
    type nonrec t =
      {
      attachPoints: AttachPointDescriptorList.t option
        [@ocaml.doc "The valid AttachPoint"];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A pagination token indicating that there are more results that can be fetched."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InterconnectClientException of InterconnectClientException.t 
      | `InterconnectServerException of InterconnectServerException.t 
      | `InterconnectValidationException of InterconnectValidationException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?attachPoints =
      fun ?nextToken -> fun () -> { attachPoints; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InterconnectClientException" ->
          `InterconnectClientException
            (InterconnectClientException.of_json json)
      | "InterconnectServerException" ->
          `InterconnectServerException
            (InterconnectServerException.of_json json)
      | "InterconnectValidationException" ->
          `InterconnectValidationException
            (InterconnectValidationException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InterconnectClientException" ->
          `InterconnectClientException
            (InterconnectClientException.of_xml xml)
      | "InterconnectServerException" ->
          `InterconnectServerException
            (InterconnectServerException.of_xml xml)
      | "InterconnectValidationException" ->
          `InterconnectValidationException
            (InterconnectValidationException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InterconnectClientException e ->
          `Assoc
            [("error", (`String "InterconnectClientException"));
            ("details", (InterconnectClientException.to_json e))]
      | `InterconnectServerException e ->
          `Assoc
            [("error", (`String "InterconnectServerException"));
            ("details", (InterconnectServerException.to_json e))]
      | `InterconnectValidationException e ->
          `Assoc
            [("error", (`String "InterconnectValidationException"));
            ("details", (InterconnectValidationException.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))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("attachPoints",
           (Option.map x.attachPoints ~f:AttachPointDescriptorList.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 attachPoints =
        (Option.map ~f:AttachPointDescriptorList.of_xml)
          (Xml.child xml_arg0 "attachPoints") in
      make ?nextToken ?attachPoints ()
    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 attachPoints =
        field_map json__ "attachPoints" AttachPointDescriptorList.of_json in
      make ?nextToken ?attachPoints ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all Attach Points the caller has access to that are valid for the specified Environment."]
module ListAttachPointsRequest =
  struct
    type nonrec t =
      {
      environmentId: EnvironmentId.t
        [@ocaml.doc
          "The identifier of the Environment for which to list valid Attach Points."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The max number of list results in a single paginated response."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A pagination token from a previous paginated response indicating you wish to get the next page."]}
    let context_ = "ListAttachPointsRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~environmentId ->
          fun () -> { maxResults; nextToken; environmentId }
    let to_value x =
      structure_to_value
        [("environmentId", (Some (EnvironmentId.to_value x.environmentId)));
        ("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 environmentId =
        EnvironmentId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "environmentId") in
      make ?nextToken ?maxResults ~environmentId ()
    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 environmentId =
        field_map_exn json__ "environmentId" EnvironmentId.of_json in
      make ?nextToken ?maxResults ~environmentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all Attach Points the caller has access to that are valid for the specified Environment."]
module GetEnvironmentResponse =
  struct
    type nonrec t =
      {
      environment: Environment.t option
        [@ocaml.doc "The requested Environment structure."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InterconnectClientException of InterconnectClientException.t 
      | `InterconnectServerException of InterconnectServerException.t 
      | `InterconnectValidationException of InterconnectValidationException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?environment = fun () -> { environment }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InterconnectClientException" ->
          `InterconnectClientException
            (InterconnectClientException.of_json json)
      | "InterconnectServerException" ->
          `InterconnectServerException
            (InterconnectServerException.of_json json)
      | "InterconnectValidationException" ->
          `InterconnectValidationException
            (InterconnectValidationException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InterconnectClientException" ->
          `InterconnectClientException
            (InterconnectClientException.of_xml xml)
      | "InterconnectServerException" ->
          `InterconnectServerException
            (InterconnectServerException.of_xml xml)
      | "InterconnectValidationException" ->
          `InterconnectValidationException
            (InterconnectValidationException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InterconnectClientException e ->
          `Assoc
            [("error", (`String "InterconnectClientException"));
            ("details", (InterconnectClientException.to_json e))]
      | `InterconnectServerException e ->
          `Assoc
            [("error", (`String "InterconnectServerException"));
            ("details", (InterconnectServerException.to_json e))]
      | `InterconnectValidationException e ->
          `Assoc
            [("error", (`String "InterconnectValidationException"));
            ("details", (InterconnectValidationException.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))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("environment", (Option.map x.environment ~f:Environment.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let environment =
        (Option.map ~f:Environment.of_xml) (Xml.child xml_arg0 "environment") in
      make ?environment ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let environment = field_map json__ "environment" Environment.of_json in
      make ?environment ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a specific Environment"]
module GetEnvironmentRequest =
  struct
    type nonrec t =
      {
      id: EnvironmentId.t
        [@ocaml.doc
          "The identifier of the specific Environment to describe."]}
    let context_ = "GetEnvironmentRequest"
    let make ~id = fun () -> { id }
    let to_value x =
      structure_to_value [("id", (Some (EnvironmentId.to_value x.id)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let id =
        EnvironmentId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      make ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let id = field_map_exn json__ "id" EnvironmentId.of_json in make ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a specific Environment"]
module GetConnectionResponse =
  struct
    type nonrec t =
      {
      connection: Connection.t option
        [@ocaml.doc "The existing Connection resource."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InterconnectClientException of InterconnectClientException.t 
      | `InterconnectServerException of InterconnectServerException.t 
      | `InterconnectValidationException of InterconnectValidationException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.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)
      | "InterconnectClientException" ->
          `InterconnectClientException
            (InterconnectClientException.of_json json)
      | "InterconnectServerException" ->
          `InterconnectServerException
            (InterconnectServerException.of_json json)
      | "InterconnectValidationException" ->
          `InterconnectValidationException
            (InterconnectValidationException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InterconnectClientException" ->
          `InterconnectClientException
            (InterconnectClientException.of_xml xml)
      | "InterconnectServerException" ->
          `InterconnectServerException
            (InterconnectServerException.of_xml xml)
      | "InterconnectValidationException" ->
          `InterconnectValidationException
            (InterconnectValidationException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InterconnectClientException e ->
          `Assoc
            [("error", (`String "InterconnectClientException"));
            ("details", (InterconnectClientException.to_json e))]
      | `InterconnectServerException e ->
          `Assoc
            [("error", (`String "InterconnectServerException"));
            ("details", (InterconnectServerException.to_json e))]
      | `InterconnectValidationException e ->
          `Assoc
            [("error", (`String "InterconnectValidationException"));
            ("details", (InterconnectValidationException.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))]
      | `Unknown_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
       "Describes the current state of a Connection resource as specified by the identifier."]
module GetConnectionRequest =
  struct
    type nonrec t =
      {
      identifier: ConnectionId.t
        [@ocaml.doc "The identifier of the requested Connection"]}
    let context_ = "GetConnectionRequest"
    let make ~identifier = fun () -> { identifier }
    let to_value x =
      structure_to_value
        [("identifier", (Some (ConnectionId.to_value x.identifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let identifier =
        ConnectionId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "identifier") in
      make ~identifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let identifier = field_map_exn json__ "identifier" ConnectionId.of_json in
      make ~identifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the current state of a Connection resource as specified by the identifier."]
module DescribeConnectionProposalResponse =
  struct
    type nonrec t =
      {
      bandwidth: ConnectionBandwidth.t option
        [@ocaml.doc "The bandwidth of the proposed Connection."];
      environmentId: EnvironmentId.t option
        [@ocaml.doc
          "The identifier of the Environment upon which the Connection would be placed if this proposal were accepted."];
      provider: Provider.t option
        [@ocaml.doc
          "The partner provider of the specific Environment of the proposal."];
      location: Location.t option
        [@ocaml.doc
          "The partner specific location distinguisher of the specific Environment of the proposal."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InterconnectClientException of InterconnectClientException.t 
      | `InterconnectServerException of InterconnectServerException.t 
      | `InterconnectValidationException of InterconnectValidationException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?bandwidth =
      fun ?environmentId ->
        fun ?provider ->
          fun ?location ->
            fun () -> { bandwidth; environmentId; provider; location }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InterconnectClientException" ->
          `InterconnectClientException
            (InterconnectClientException.of_json json)
      | "InterconnectServerException" ->
          `InterconnectServerException
            (InterconnectServerException.of_json json)
      | "InterconnectValidationException" ->
          `InterconnectValidationException
            (InterconnectValidationException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InterconnectClientException" ->
          `InterconnectClientException
            (InterconnectClientException.of_xml xml)
      | "InterconnectServerException" ->
          `InterconnectServerException
            (InterconnectServerException.of_xml xml)
      | "InterconnectValidationException" ->
          `InterconnectValidationException
            (InterconnectValidationException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InterconnectClientException e ->
          `Assoc
            [("error", (`String "InterconnectClientException"));
            ("details", (InterconnectClientException.to_json e))]
      | `InterconnectServerException e ->
          `Assoc
            [("error", (`String "InterconnectServerException"));
            ("details", (InterconnectServerException.to_json e))]
      | `InterconnectValidationException e ->
          `Assoc
            [("error", (`String "InterconnectValidationException"));
            ("details", (InterconnectValidationException.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))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("bandwidth",
           (Option.map x.bandwidth ~f:ConnectionBandwidth.to_value));
        ("environmentId",
          (Option.map x.environmentId ~f:EnvironmentId.to_value));
        ("provider", (Option.map x.provider ~f:Provider.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 provider =
        (Option.map ~f:Provider.of_xml) (Xml.child xml_arg0 "provider") in
      let environmentId =
        (Option.map ~f:EnvironmentId.of_xml)
          (Xml.child xml_arg0 "environmentId") in
      let bandwidth =
        (Option.map ~f:ConnectionBandwidth.of_xml)
          (Xml.child xml_arg0 "bandwidth") in
      make ?location ?provider ?environmentId ?bandwidth ()
    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 provider = field_map json__ "provider" Provider.of_json in
      let environmentId =
        field_map json__ "environmentId" EnvironmentId.of_json in
      let bandwidth =
        field_map json__ "bandwidth" ConnectionBandwidth.of_json in
      make ?location ?provider ?environmentId ?bandwidth ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the details of a connection proposal generated at a partner's portal."]
module DescribeConnectionProposalRequest =
  struct
    type nonrec t =
      {
      activationKey: ActivationKey.t
        [@ocaml.doc
          "An Activation Key that was generated on a supported partner's portal. This key captures the desired parameters from the initial creation request."]}
    let context_ = "DescribeConnectionProposalRequest"
    let make ~activationKey = fun () -> { activationKey }
    let to_value x =
      structure_to_value
        [("activationKey", (Some (ActivationKey.to_value x.activationKey)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let activationKey =
        ActivationKey.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "activationKey") in
      make ~activationKey ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let activationKey =
        field_map_exn json__ "activationKey" ActivationKey.of_json in
      make ~activationKey ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the details of a connection proposal generated at a partner's portal."]
module DeleteConnectionResponse =
  struct
    type nonrec t =
      {
      connection: Connection.t option
        [@ocaml.doc
          "The Connection object that has been marked for deletion."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InterconnectClientException of InterconnectClientException.t 
      | `InterconnectServerException of InterconnectServerException.t 
      | `InterconnectValidationException of InterconnectValidationException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.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)
      | "InterconnectClientException" ->
          `InterconnectClientException
            (InterconnectClientException.of_json json)
      | "InterconnectServerException" ->
          `InterconnectServerException
            (InterconnectServerException.of_json json)
      | "InterconnectValidationException" ->
          `InterconnectValidationException
            (InterconnectValidationException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InterconnectClientException" ->
          `InterconnectClientException
            (InterconnectClientException.of_xml xml)
      | "InterconnectServerException" ->
          `InterconnectServerException
            (InterconnectServerException.of_xml xml)
      | "InterconnectValidationException" ->
          `InterconnectValidationException
            (InterconnectValidationException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InterconnectClientException e ->
          `Assoc
            [("error", (`String "InterconnectClientException"));
            ("details", (InterconnectClientException.to_json e))]
      | `InterconnectServerException e ->
          `Assoc
            [("error", (`String "InterconnectServerException"));
            ("details", (InterconnectServerException.to_json e))]
      | `InterconnectValidationException e ->
          `Assoc
            [("error", (`String "InterconnectValidationException"));
            ("details", (InterconnectValidationException.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))]
      | `Unknown_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 an existing Connection with the supplied identifier. This operation will also inform the remote partner of your intention to delete your connection. Note, the partner may still require you to delete to fully clean up resources, but the network connectivity provided by the Connection will cease to exist."]
module DeleteConnectionRequest =
  struct
    type nonrec t =
      {
      identifier: ConnectionId.t
        [@ocaml.doc "The identifier of the Connection to be deleted."];
      clientToken: String_.t option
        [@ocaml.doc "Idempotency token used for the request."]}
    let context_ = "DeleteConnectionRequest"
    let make ?clientToken =
      fun ~identifier -> fun () -> { clientToken; identifier }
    let to_value x =
      structure_to_value
        [("identifier", (Some (ConnectionId.to_value x.identifier)));
        ("clientToken", (Option.map x.clientToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "clientToken") in
      let identifier =
        ConnectionId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "identifier") in
      make ?clientToken ~identifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" String_.of_json in
      let identifier = field_map_exn json__ "identifier" ConnectionId.of_json in
      make ?clientToken ~identifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an existing Connection with the supplied identifier. This operation will also inform the remote partner of your intention to delete your connection. Note, the partner may still require you to delete to fully clean up resources, but the network connectivity provided by the Connection will cease to exist."]
module CreateConnectionResponse =
  struct
    type nonrec t =
      {
      connection: Connection.t option
        [@ocaml.doc "The resulting Connection."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InterconnectClientException of InterconnectClientException.t 
      | `InterconnectServerException of InterconnectServerException.t 
      | `InterconnectValidationException of InterconnectValidationException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.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)
      | "InterconnectClientException" ->
          `InterconnectClientException
            (InterconnectClientException.of_json json)
      | "InterconnectServerException" ->
          `InterconnectServerException
            (InterconnectServerException.of_json json)
      | "InterconnectValidationException" ->
          `InterconnectValidationException
            (InterconnectValidationException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InterconnectClientException" ->
          `InterconnectClientException
            (InterconnectClientException.of_xml xml)
      | "InterconnectServerException" ->
          `InterconnectServerException
            (InterconnectServerException.of_xml xml)
      | "InterconnectValidationException" ->
          `InterconnectValidationException
            (InterconnectValidationException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InterconnectClientException e ->
          `Assoc
            [("error", (`String "InterconnectClientException"));
            ("details", (InterconnectClientException.to_json e))]
      | `InterconnectServerException e ->
          `Assoc
            [("error", (`String "InterconnectServerException"));
            ("details", (InterconnectServerException.to_json e))]
      | `InterconnectValidationException e ->
          `Assoc
            [("error", (`String "InterconnectValidationException"));
            ("details", (InterconnectValidationException.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))]
      | `Unknown_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
       "Initiates the process to create a Connection across the specified Environment. The Environment dictates the specified partner and location to which the other end of the connection should attach. You can see a list of the available Environments by calling ListEnvironments The Attach Point specifies where within the AWS Network your connection will logically connect. After a successful call to this method, the resulting Connection will return an Activation Key which will need to be brought to the specific partner's portal to confirm the Connection on both sides. (See Environment$activationPageUrl for a direct link to the partner portal)."]
module CreateConnectionRequest =
  struct
    type nonrec t =
      {
      description: ConnectionDescription.t option
        [@ocaml.doc "A description to distinguish this Connection."];
      bandwidth: ConnectionBandwidth.t
        [@ocaml.doc "The desired bandwidth of the requested Connection"];
      attachPoint: AttachPoint.t
        [@ocaml.doc
          "The Attach Point to which the connection should be associated.\""];
      environmentId: EnvironmentId.t
        [@ocaml.doc
          "The identifier of the Environment across which this Connection should be created. The available Environment objects can be determined using ListEnvironments."];
      remoteAccount: RemoteAccountIdentifier.t option
        [@ocaml.doc
          "Account and/or principal identifying information that can be verified by the partner of this specific Environment."];
      tags: TagMap.t option
        [@ocaml.doc "The tag to associate with the resulting Connection."];
      clientToken: String_.t option
        [@ocaml.doc "Idempotency token used for the request."]}
    let context_ = "CreateConnectionRequest"
    let make ?description =
      fun ?remoteAccount ->
        fun ?tags ->
          fun ?clientToken ->
            fun ~bandwidth ->
              fun ~attachPoint ->
                fun ~environmentId ->
                  fun () ->
                    {
                      description;
                      remoteAccount;
                      tags;
                      clientToken;
                      bandwidth;
                      attachPoint;
                      environmentId
                    }
    let to_value x =
      structure_to_value
        [("description",
           (Option.map x.description ~f:ConnectionDescription.to_value));
        ("bandwidth", (Some (ConnectionBandwidth.to_value x.bandwidth)));
        ("attachPoint", (Some (AttachPoint.to_value x.attachPoint)));
        ("environmentId", (Some (EnvironmentId.to_value x.environmentId)));
        ("remoteAccount",
          (Option.map x.remoteAccount ~f:RemoteAccountIdentifier.to_value));
        ("tags", (Option.map x.tags ~f:TagMap.to_value));
        ("clientToken", (Option.map x.clientToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "clientToken") in
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "tags") in
      let remoteAccount =
        (Option.map ~f:RemoteAccountIdentifier.of_xml)
          (Xml.child xml_arg0 "remoteAccount") in
      let environmentId =
        EnvironmentId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "environmentId") in
      let attachPoint =
        AttachPoint.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "attachPoint") in
      let bandwidth =
        ConnectionBandwidth.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "bandwidth") in
      let description =
        (Option.map ~f:ConnectionDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      make ?clientToken ?tags ?remoteAccount ~environmentId ~attachPoint
        ~bandwidth ?description ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" String_.of_json in
      let tags = field_map json__ "tags" TagMap.of_json in
      let remoteAccount =
        field_map json__ "remoteAccount" RemoteAccountIdentifier.of_json in
      let environmentId =
        field_map_exn json__ "environmentId" EnvironmentId.of_json in
      let attachPoint =
        field_map_exn json__ "attachPoint" AttachPoint.of_json in
      let bandwidth =
        field_map_exn json__ "bandwidth" ConnectionBandwidth.of_json in
      let description =
        field_map json__ "description" ConnectionDescription.of_json in
      make ?clientToken ?tags ?remoteAccount ~environmentId ~attachPoint
        ~bandwidth ?description ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Initiates the process to create a Connection across the specified Environment. The Environment dictates the specified partner and location to which the other end of the connection should attach. You can see a list of the available Environments by calling ListEnvironments The Attach Point specifies where within the AWS Network your connection will logically connect. After a successful call to this method, the resulting Connection will return an Activation Key which will need to be brought to the specific partner's portal to confirm the Connection on both sides. (See Environment$activationPageUrl for a direct link to the partner portal)."]
module AcceptConnectionProposalResponse =
  struct
    type nonrec t =
      {
      connection: Connection.t option
        [@ocaml.doc "The created Connection object."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InterconnectClientException of InterconnectClientException.t 
      | `InterconnectServerException of InterconnectServerException.t 
      | `InterconnectValidationException of InterconnectValidationException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.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)
      | "InterconnectClientException" ->
          `InterconnectClientException
            (InterconnectClientException.of_json json)
      | "InterconnectServerException" ->
          `InterconnectServerException
            (InterconnectServerException.of_json json)
      | "InterconnectValidationException" ->
          `InterconnectValidationException
            (InterconnectValidationException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InterconnectClientException" ->
          `InterconnectClientException
            (InterconnectClientException.of_xml xml)
      | "InterconnectServerException" ->
          `InterconnectServerException
            (InterconnectServerException.of_xml xml)
      | "InterconnectValidationException" ->
          `InterconnectValidationException
            (InterconnectValidationException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InterconnectClientException e ->
          `Assoc
            [("error", (`String "InterconnectClientException"));
            ("details", (InterconnectClientException.to_json e))]
      | `InterconnectServerException e ->
          `Assoc
            [("error", (`String "InterconnectServerException"));
            ("details", (InterconnectServerException.to_json e))]
      | `InterconnectValidationException e ->
          `Assoc
            [("error", (`String "InterconnectValidationException"));
            ("details", (InterconnectValidationException.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))]
      | `Unknown_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
       "Accepts a connection proposal which was generated at a supported partner's portal. The proposal contains the Environment and bandwidth that were chosen on the partner's portal and cannot be modified. Upon accepting the proposal a connection will be made between the AWS network as accessed via the selected Attach Point and the network previously selected network on the partner's portal."]
module AcceptConnectionProposalRequest =
  struct
    type nonrec t =
      {
      attachPoint: AttachPoint.t
        [@ocaml.doc
          "The Attach Point to which the connection should be associated."];
      activationKey: ActivationKey.t
        [@ocaml.doc
          "An Activation Key that was generated on a supported partner's portal. This key captures the desired parameters from the initial creation request. The details of this request can be described using with DescribeConnectionProposal."];
      description: ConnectionDescription.t option
        [@ocaml.doc "A description to distinguish this Connection."];
      tags: TagMap.t option
        [@ocaml.doc "The tags to associate with the resulting Connection."];
      clientToken: String_.t option
        [@ocaml.doc "Idempotency token used for the request."]}
    let context_ = "AcceptConnectionProposalRequest"
    let make ?description =
      fun ?tags ->
        fun ?clientToken ->
          fun ~attachPoint ->
            fun ~activationKey ->
              fun () ->
                { description; tags; clientToken; attachPoint; activationKey
                }
    let to_value x =
      structure_to_value
        [("attachPoint", (Some (AttachPoint.to_value x.attachPoint)));
        ("activationKey", (Some (ActivationKey.to_value x.activationKey)));
        ("description",
          (Option.map x.description ~f:ConnectionDescription.to_value));
        ("tags", (Option.map x.tags ~f:TagMap.to_value));
        ("clientToken", (Option.map x.clientToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "clientToken") in
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "tags") in
      let description =
        (Option.map ~f:ConnectionDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let activationKey =
        ActivationKey.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "activationKey") in
      let attachPoint =
        AttachPoint.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "attachPoint") in
      make ?clientToken ?tags ?description ~activationKey ~attachPoint ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" String_.of_json in
      let tags = field_map json__ "tags" TagMap.of_json in
      let description =
        field_map json__ "description" ConnectionDescription.of_json in
      let activationKey =
        field_map_exn json__ "activationKey" ActivationKey.of_json in
      let attachPoint =
        field_map_exn json__ "attachPoint" AttachPoint.of_json in
      make ?clientToken ?tags ?description ~activationKey ~attachPoint ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Accepts a connection proposal which was generated at a supported partner's portal. The proposal contains the Environment and bandwidth that were chosen on the partner's portal and cannot be modified. Upon accepting the proposal a connection will be made between the AWS network as accessed via the selected Attach Point and the network previously selected network on the partner's portal."]