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.rtbfabric
let apiVersion = "2023-05-15"
let endpointPrefix = "rtbfabric"
let serviceFullName = "RTBFabric"
let signatureVersion = "v4"
let protocol = "rest_json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let serviceAbbreviation = "RTBFabric"
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 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 FilterCriterionValuesList =
  struct
    type nonrec t = String_.t list
    let make i =
      let open Result in ok_or_failwith (check_list_min i ~min:1); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:String_.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:String_.of_xml)
    let of_json j =
      list_of_json ~kind:"FilterCriterionValuesList" ~of_json:String_.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module FilterCriterion =
  struct
    type nonrec t =
      {
      path: String_.t [@ocaml.doc "The path to filter."];
      values: FilterCriterionValuesList.t [@ocaml.doc "The value to filter."]}
    let context_ = "FilterCriterion"
    let make ~path = fun ~values -> fun () -> { path; values }
    let to_value x =
      structure_to_value
        [("path", (Some (String_.to_value x.path)));
        ("values", (Some (FilterCriterionValuesList.to_value x.values)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let values =
        FilterCriterionValuesList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "values") in
      let path =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "path") in
      make ~values ~path ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let values =
        field_map_exn json__ "values" FilterCriterionValuesList.of_json in
      let path = field_map_exn json__ "path" String_.of_json in
      make ~values ~path ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the criteria for a filter."]
module NoBidActionNoBidReasonCodeInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (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 NoBidActionNoBidReasonCodeInteger" 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 FilterCriteria =
  struct
    type nonrec t = FilterCriterion.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:FilterCriterion.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:FilterCriterion.of_xml)
    let of_json j =
      list_of_json ~kind:"FilterCriteria" ~of_json:FilterCriterion.of_json j
    let to_json v = composed_to_json to_value v
  end
module HeaderTagAction =
  struct
    type nonrec t =
      {
      name: String_.t [@ocaml.doc "The name of the bid action."];
      value: String_.t [@ocaml.doc "The value of the bid action."]}
    let context_ = "HeaderTagAction"
    let make ~name = fun ~value -> fun () -> { name; value }
    let to_value x =
      structure_to_value
        [("name", (Some (String_.to_value x.name)));
        ("value", (Some (String_.to_value x.value)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "value") in
      let name =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ~value ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map_exn json__ "value" String_.of_json in
      let name = field_map_exn json__ "name" String_.of_json in
      make ~value ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the header tag for a bid action."]
module NoBidAction =
  struct
    type nonrec t =
      {
      noBidReasonCode: NoBidActionNoBidReasonCodeInteger.t option
        [@ocaml.doc "The reason code for the no bid action."]}
    let make ?noBidReasonCode = fun () -> { noBidReasonCode }
    let to_value x =
      structure_to_value
        [("noBidReasonCode",
           (Option.map x.noBidReasonCode
              ~f:NoBidActionNoBidReasonCodeInteger.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let noBidReasonCode =
        (Option.map ~f:NoBidActionNoBidReasonCodeInteger.of_xml)
          (Xml.child xml_arg0 "noBidReasonCode") in
      make ?noBidReasonCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let noBidReasonCode =
        field_map json__ "noBidReasonCode"
          NoBidActionNoBidReasonCodeInteger.of_json in
      make ?noBidReasonCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a no bid action."]
module Filter =
  struct
    type nonrec t =
      {
      criteria: FilterCriteria.t
        [@ocaml.doc "Describes the criteria for a filter."]}
    let context_ = "Filter"
    let make ~criteria = fun () -> { criteria }
    let to_value x =
      structure_to_value
        [("criteria", (Some (FilterCriteria.to_value x.criteria)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let criteria =
        FilterCriteria.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "criteria") in
      make ~criteria ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let criteria = field_map_exn json__ "criteria" FilterCriteria.of_json in
      make ~criteria ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the configuration of a filter."]
module ResponderErrorMaskingLoggingType =
  struct
    type nonrec t =
      | NONE 
      | METRIC 
      | RESPONSE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | NONE -> "NONE"
      | METRIC -> "METRIC"
      | RESPONSE -> "RESPONSE"
      | Non_static_id s -> s
    let of_string =
      function
      | "NONE" -> NONE
      | "METRIC" -> METRIC
      | "RESPONSE" -> RESPONSE
      | 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 ResponderErrorMaskingLoggingType"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ResponderErrorMaskingLoggingType" j)
    let to_json = simple_to_json to_value
  end
module NoBidModuleParametersPassThroughPercentageFloat =
  struct
    type nonrec t = float
    let make i =
      let open Result in
        ok_or_failwith
          ((check_float_min i ~min:100.) >>=
             (fun () -> check_float_min i ~min:0.));
        i
    let of_string = Float.of_string
    let to_value x = `Float x
    let to_query v = to_query to_value v
    let to_header x = Stdlib.Float.to_string x
    let of_xml xml_arg0 =
      Float.of_string (string_of_xml ~kind:"a float" xml_arg0)
    let of_json j = float_of_json ~kind:"a float" j
    let to_json = simple_to_json to_value
  end
module NoBidModuleParametersReasonCodeInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:10) >>= (fun () -> check_int_min i ~min:0));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml
           ~kind:"an integer for NoBidModuleParametersReasonCodeInteger"
           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 NoBidModuleParametersReasonString =
  struct
    type nonrec t = string
    let context_ = "NoBidModuleParametersReasonString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:50) >>=
                  (fun () -> check_pattern i ~pattern:"[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:"NoBidModuleParametersReasonString" j
    let to_json = simple_to_json to_value
  end
module Action =
  struct
    type nonrec t =
      {
      noBid: NoBidAction.t option [@ocaml.doc "Describes a no bid action."];
      headerTag: HeaderTagAction.t option
        [@ocaml.doc "Describes the header tag for a bid action."]}
    let make ?noBid = fun ?headerTag -> fun () -> { noBid; headerTag }
    let to_value x =
      structure_to_value
        [("noBid", (Option.map x.noBid ~f:NoBidAction.to_value));
        ("headerTag", (Option.map x.headerTag ~f:HeaderTagAction.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let headerTag =
        (Option.map ~f:HeaderTagAction.of_xml)
          (Xml.child xml_arg0 "headerTag") in
      let noBid =
        (Option.map ~f:NoBidAction.of_xml) (Xml.child xml_arg0 "noBid") in
      make ?headerTag ?noBid ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let headerTag = field_map json__ "headerTag" HeaderTagAction.of_json in
      let noBid = field_map json__ "noBid" NoBidAction.of_json in
      make ?headerTag ?noBid ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a bid action."]
module FilterConfiguration =
  struct
    type nonrec t = Filter.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Filter.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:Filter.of_xml)
    let of_json j =
      list_of_json ~kind:"FilterConfiguration" ~of_json:Filter.of_json j
    let to_json v = composed_to_json to_value v
  end
module FilterType =
  struct
    type nonrec t =
      | INCLUDE 
      | EXCLUDE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | INCLUDE -> "INCLUDE"
      | EXCLUDE -> "EXCLUDE"
      | Non_static_id s -> s
    let of_string =
      function
      | "INCLUDE" -> INCLUDE
      | "EXCLUDE" -> EXCLUDE
      | 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 FilterType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"FilterType" j)
    let to_json = simple_to_json to_value
  end
module OpenRtbAttributeModuleParametersHoldbackPercentageFloat =
  struct
    type nonrec t = float
    let make i =
      let open Result in
        ok_or_failwith
          ((check_float_min i ~min:100.) >>=
             (fun () -> check_float_min i ~min:0.));
        i
    let of_string = Float.of_string
    let to_value x = `Float x
    let to_query v = to_query to_value v
    let to_header x = Stdlib.Float.to_string x
    let of_xml xml_arg0 =
      Float.of_string (string_of_xml ~kind:"a float" xml_arg0)
    let of_json j = float_of_json ~kind:"a float" j
    let to_json = simple_to_json to_value
  end
module Float_ =
  struct
    type nonrec t = float
    let make i = i
    let of_string = Float.of_string
    let to_value x = `Float x
    let to_query v = to_query to_value v
    let to_header x = Stdlib.Float.to_string x
    let of_xml xml_arg0 =
      Float.of_string (string_of_xml ~kind:"a float" xml_arg0)
    let of_json j = float_of_json ~kind:"a float" j
    let to_json = simple_to_json to_value
  end
module ResponderErrorMaskingAction =
  struct
    type nonrec t =
      | NO_BID 
      | PASSTHROUGH 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | NO_BID -> "NO_BID"
      | PASSTHROUGH -> "PASSTHROUGH"
      | Non_static_id s -> s
    let of_string =
      function
      | "NO_BID" -> NO_BID
      | "PASSTHROUGH" -> PASSTHROUGH
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration ResponderErrorMaskingAction"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ResponderErrorMaskingAction" j)
    let to_json = simple_to_json to_value
  end
module ResponderErrorMaskingForHttpCodeHttpCodeString =
  struct
    type nonrec t = string
    let context_ = "ResponderErrorMaskingForHttpCodeHttpCodeString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:3) >>=
             (fun () ->
                (check_string_max i ~max:7) >>=
                  (fun () ->
                     check_pattern i ~pattern:"DEFAULT|4XX|5XX|\\d{3}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"ResponderErrorMaskingForHttpCodeHttpCodeString" j
    let to_json = simple_to_json to_value
  end
module ResponderErrorMaskingForHttpCodeResponseLoggingPercentageFloat =
  struct
    type nonrec t = float
    let make i =
      let open Result in
        ok_or_failwith
          ((check_float_min i ~min:100.) >>=
             (fun () -> check_float_min i ~min:0.));
        i
    let of_string = Float.of_string
    let to_value x = `Float x
    let to_query v = to_query to_value v
    let to_header x = Stdlib.Float.to_string x
    let of_xml xml_arg0 =
      Float.of_string (string_of_xml ~kind:"a float" xml_arg0)
    let of_json j = float_of_json ~kind:"a float" j
    let to_json = simple_to_json to_value
  end
module ResponderErrorMaskingLoggingTypes =
  struct
    type nonrec t = ResponderErrorMaskingLoggingType.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:2) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ResponderErrorMaskingLoggingType.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:ResponderErrorMaskingLoggingType.of_xml)
    let of_json j =
      list_of_json ~kind:"ResponderErrorMaskingLoggingTypes"
        ~of_json:ResponderErrorMaskingLoggingType.of_json j
    let to_json v = composed_to_json to_value v
  end
module LinkApplicationLogSamplingErrorLogDouble =
  struct
    type nonrec t = float
    let make i =
      let open Result in
        ok_or_failwith
          ((check_float_min i ~min:100.) >>=
             (fun () -> check_float_min i ~min:0.));
        i
    let of_string = Float.of_string
    let to_value x = `Double x
    let to_query v = to_query to_value v
    let to_header x = Stdlib.Float.to_string x
    let of_xml xml_arg0 =
      Float.of_string (string_of_xml ~kind:"a double" xml_arg0)
    let of_json j = float_of_json ~kind:"a double" j
    let to_json = simple_to_json to_value
  end
module LinkApplicationLogSamplingFilterLogDouble =
  struct
    type nonrec t = float
    let make i =
      let open Result in
        ok_or_failwith
          ((check_float_min i ~min:100.) >>=
             (fun () -> check_float_min i ~min:0.));
        i
    let of_string = Float.of_string
    let to_value x = `Double x
    let to_query v = to_query to_value v
    let to_header x = Stdlib.Float.to_string x
    let of_xml xml_arg0 =
      Float.of_string (string_of_xml ~kind:"a double" xml_arg0)
    let of_json j = float_of_json ~kind:"a double" j
    let to_json = simple_to_json to_value
  end
module FlowModuleName =
  struct
    type nonrec t = string
    let context_ = "FlowModuleName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (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:"FlowModuleName" j
    let to_json = simple_to_json to_value
  end
module NoBidModuleParameters =
  struct
    type nonrec t =
      {
      reason: NoBidModuleParametersReasonString.t option
        [@ocaml.doc "The reason description."];
      reasonCode: NoBidModuleParametersReasonCodeInteger.t option
        [@ocaml.doc "The reason code."];
      passThroughPercentage:
        NoBidModuleParametersPassThroughPercentageFloat.t option
        [@ocaml.doc "The pass through percentage."]}
    let make ?reason =
      fun ?reasonCode ->
        fun ?passThroughPercentage ->
          fun () -> { reason; reasonCode; passThroughPercentage }
    let to_value x =
      structure_to_value
        [("reason",
           (Option.map x.reason ~f:NoBidModuleParametersReasonString.to_value));
        ("reasonCode",
          (Option.map x.reasonCode
             ~f:NoBidModuleParametersReasonCodeInteger.to_value));
        ("passThroughPercentage",
          (Option.map x.passThroughPercentage
             ~f:NoBidModuleParametersPassThroughPercentageFloat.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let passThroughPercentage =
        (Option.map ~f:NoBidModuleParametersPassThroughPercentageFloat.of_xml)
          (Xml.child xml_arg0 "passThroughPercentage") in
      let reasonCode =
        (Option.map ~f:NoBidModuleParametersReasonCodeInteger.of_xml)
          (Xml.child xml_arg0 "reasonCode") in
      let reason =
        (Option.map ~f:NoBidModuleParametersReasonString.of_xml)
          (Xml.child xml_arg0 "reason") in
      make ?passThroughPercentage ?reasonCode ?reason ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let passThroughPercentage =
        field_map json__ "passThroughPercentage"
          NoBidModuleParametersPassThroughPercentageFloat.of_json in
      let reasonCode =
        field_map json__ "reasonCode"
          NoBidModuleParametersReasonCodeInteger.of_json in
      let reason =
        field_map json__ "reason" NoBidModuleParametersReasonString.of_json in
      make ?passThroughPercentage ?reasonCode ?reason ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the parameters of a no bid module."]
module OpenRtbAttributeModuleParameters =
  struct
    type nonrec t =
      {
      filterType: FilterType.t [@ocaml.doc "The filter type."];
      filterConfiguration: FilterConfiguration.t
        [@ocaml.doc "Describes the configuration of a filter."];
      action: Action.t [@ocaml.doc "Describes a bid action."];
      holdbackPercentage:
        OpenRtbAttributeModuleParametersHoldbackPercentageFloat.t
        [@ocaml.doc "The hold back percentage."]}
    let context_ = "OpenRtbAttributeModuleParameters"
    let make ~filterType =
      fun ~filterConfiguration ->
        fun ~action ->
          fun ~holdbackPercentage ->
            fun () ->
              { filterType; filterConfiguration; action; holdbackPercentage }
    let to_value x =
      structure_to_value
        [("filterType", (Some (FilterType.to_value x.filterType)));
        ("filterConfiguration",
          (Some (FilterConfiguration.to_value x.filterConfiguration)));
        ("action", (Some (Action.to_value x.action)));
        ("holdbackPercentage",
          (Some
             (OpenRtbAttributeModuleParametersHoldbackPercentageFloat.to_value
                x.holdbackPercentage)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let holdbackPercentage =
        OpenRtbAttributeModuleParametersHoldbackPercentageFloat.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "holdbackPercentage") in
      let action =
        Action.of_xml (Xml.child_exn ~context:context_ xml_arg0 "action") in
      let filterConfiguration =
        FilterConfiguration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "filterConfiguration") in
      let filterType =
        FilterType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "filterType") in
      make ~holdbackPercentage ~action ~filterConfiguration ~filterType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let holdbackPercentage =
        field_map_exn json__ "holdbackPercentage"
          OpenRtbAttributeModuleParametersHoldbackPercentageFloat.of_json in
      let action = field_map_exn json__ "action" Action.of_json in
      let filterConfiguration =
        field_map_exn json__ "filterConfiguration"
          FilterConfiguration.of_json in
      let filterType = field_map_exn json__ "filterType" FilterType.of_json in
      make ~holdbackPercentage ~action ~filterConfiguration ~filterType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the parameters of an open RTB attribute module."]
module RateLimiterModuleParameters =
  struct
    type nonrec t =
      {
      tps: Float_.t option
        [@ocaml.doc "The transactions per second rate limit."]}
    let make ?tps = fun () -> { tps }
    let to_value x =
      structure_to_value [("tps", (Option.map x.tps ~f:Float_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tps = (Option.map ~f:Float_.of_xml) (Xml.child xml_arg0 "tps") in
      make ?tps ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tps = field_map json__ "tps" Float_.of_json in make ?tps ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the parameters of a rate limit."]
module ResponderErrorMaskingForHttpCode =
  struct
    type nonrec t =
      {
      httpCode: ResponderErrorMaskingForHttpCodeHttpCodeString.t
        [@ocaml.doc "The HTTP error code."];
      action: ResponderErrorMaskingAction.t
        [@ocaml.doc "The action for the error.."];
      loggingTypes: ResponderErrorMaskingLoggingTypes.t
        [@ocaml.doc "The error log type."];
      responseLoggingPercentage:
        ResponderErrorMaskingForHttpCodeResponseLoggingPercentageFloat.t
          option
        [@ocaml.doc "The percentage of response logging."]}
    let context_ = "ResponderErrorMaskingForHttpCode"
    let make ?responseLoggingPercentage =
      fun ~httpCode ->
        fun ~action ->
          fun ~loggingTypes ->
            fun () ->
              { responseLoggingPercentage; httpCode; action; loggingTypes }
    let to_value x =
      structure_to_value
        [("httpCode",
           (Some
              (ResponderErrorMaskingForHttpCodeHttpCodeString.to_value
                 x.httpCode)));
        ("action", (Some (ResponderErrorMaskingAction.to_value x.action)));
        ("loggingTypes",
          (Some (ResponderErrorMaskingLoggingTypes.to_value x.loggingTypes)));
        ("responseLoggingPercentage",
          (Option.map x.responseLoggingPercentage
             ~f:ResponderErrorMaskingForHttpCodeResponseLoggingPercentageFloat.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let responseLoggingPercentage =
        (Option.map
           ~f:ResponderErrorMaskingForHttpCodeResponseLoggingPercentageFloat.of_xml)
          (Xml.child xml_arg0 "responseLoggingPercentage") in
      let loggingTypes =
        ResponderErrorMaskingLoggingTypes.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "loggingTypes") in
      let action =
        ResponderErrorMaskingAction.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "action") in
      let httpCode =
        ResponderErrorMaskingForHttpCodeHttpCodeString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "httpCode") in
      make ?responseLoggingPercentage ~loggingTypes ~action ~httpCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let responseLoggingPercentage =
        field_map json__ "responseLoggingPercentage"
          ResponderErrorMaskingForHttpCodeResponseLoggingPercentageFloat.of_json in
      let loggingTypes =
        field_map_exn json__ "loggingTypes"
          ResponderErrorMaskingLoggingTypes.of_json in
      let action =
        field_map_exn json__ "action" ResponderErrorMaskingAction.of_json in
      let httpCode =
        field_map_exn json__ "httpCode"
          ResponderErrorMaskingForHttpCodeHttpCodeString.of_json in
      make ?responseLoggingPercentage ~loggingTypes ~action ~httpCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the masking for HTTP error codes."]
module LinkApplicationLogSampling =
  struct
    type nonrec t =
      {
      errorLog: LinkApplicationLogSamplingErrorLogDouble.t
        [@ocaml.doc "An error log entry."];
      filterLog: LinkApplicationLogSamplingFilterLogDouble.t
        [@ocaml.doc "A filter log entry."]}
    let context_ = "LinkApplicationLogSampling"
    let make ~errorLog = fun ~filterLog -> fun () -> { errorLog; filterLog }
    let to_value x =
      structure_to_value
        [("errorLog",
           (Some
              (LinkApplicationLogSamplingErrorLogDouble.to_value x.errorLog)));
        ("filterLog",
          (Some
             (LinkApplicationLogSamplingFilterLogDouble.to_value x.filterLog)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let filterLog =
        LinkApplicationLogSamplingFilterLogDouble.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "filterLog") in
      let errorLog =
        LinkApplicationLogSamplingErrorLogDouble.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "errorLog") in
      make ~filterLog ~errorLog ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let filterLog =
        field_map_exn json__ "filterLog"
          LinkApplicationLogSamplingFilterLogDouble.of_json in
      let errorLog =
        field_map_exn json__ "errorLog"
          LinkApplicationLogSamplingErrorLogDouble.of_json in
      make ~filterLog ~errorLog ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a link application log sample."]
module FlowModuleNameList =
  struct
    type nonrec t = FlowModuleName.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:FlowModuleName.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:FlowModuleName.of_xml)
    let of_json j =
      list_of_json ~kind:"FlowModuleNameList" ~of_json:FlowModuleName.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module ModuleParameters =
  struct
    type nonrec t =
      {
      noBid: NoBidModuleParameters.t option
        [@ocaml.doc "Describes the parameters of a no bid module."];
      openRtbAttribute: OpenRtbAttributeModuleParameters.t option
        [@ocaml.doc
          "Describes the parameters of an open RTB attribute module."];
      rateLimiter: RateLimiterModuleParameters.t option
        [@ocaml.doc "Describes the parameters of a rate limit."]}
    let make ?noBid =
      fun ?openRtbAttribute ->
        fun ?rateLimiter ->
          fun () -> { noBid; openRtbAttribute; rateLimiter }
    let to_value x =
      structure_to_value
        [("noBid", (Option.map x.noBid ~f:NoBidModuleParameters.to_value));
        ("openRtbAttribute",
          (Option.map x.openRtbAttribute
             ~f:OpenRtbAttributeModuleParameters.to_value));
        ("rateLimiter",
          (Option.map x.rateLimiter ~f:RateLimiterModuleParameters.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let rateLimiter =
        (Option.map ~f:RateLimiterModuleParameters.of_xml)
          (Xml.child xml_arg0 "rateLimiter") in
      let openRtbAttribute =
        (Option.map ~f:OpenRtbAttributeModuleParameters.of_xml)
          (Xml.child xml_arg0 "openRtbAttribute") in
      let noBid =
        (Option.map ~f:NoBidModuleParameters.of_xml)
          (Xml.child xml_arg0 "noBid") in
      make ?rateLimiter ?openRtbAttribute ?noBid ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let rateLimiter =
        field_map json__ "rateLimiter" RateLimiterModuleParameters.of_json in
      let openRtbAttribute =
        field_map json__ "openRtbAttribute"
          OpenRtbAttributeModuleParameters.of_json in
      let noBid = field_map json__ "noBid" NoBidModuleParameters.of_json in
      make ?rateLimiter ?openRtbAttribute ?noBid ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the parameters of a module."]
module Version =
  struct
    type nonrec t = string
    let context_ = "Version"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:25) >>=
                  (fun () -> check_pattern i ~pattern:"[a-z0-9-]{1,25}")));
        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:"Version" j
    let to_json = simple_to_json to_value
  end
module QueryStringKeyValuePairKeyString =
  struct
    type nonrec t = string
    let context_ = "QueryStringKeyValuePairKeyString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () -> check_pattern i ~pattern:"[A-Za-z0-9._~-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"QueryStringKeyValuePairKeyString" j
    let to_json = simple_to_json to_value
  end
module QueryStringKeyValuePairValueString =
  struct
    type nonrec t = string
    let context_ = "QueryStringKeyValuePairValueString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () -> check_pattern i ~pattern:"[A-Za-z0-9._~-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"QueryStringKeyValuePairValueString" j
    let to_json = simple_to_json to_value
  end
module AutoScalingGroupName =
  struct
    type nonrec t = string
    let context_ = "AutoScalingGroupName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AutoScalingGroupName" j
    let to_json = simple_to_json to_value
  end
module HealthCheckConfigHealthyThresholdCountInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:10) >>= (fun () -> check_int_min i ~min:2));
        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 HealthCheckConfigHealthyThresholdCountInteger"
           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 HealthCheckConfigIntervalSecondsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:60) >>= (fun () -> check_int_min i ~min:5));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml
           ~kind:"an integer for HealthCheckConfigIntervalSecondsInteger"
           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 HealthCheckConfigPathString =
  struct
    type nonrec t = string
    let context_ = "HealthCheckConfigPathString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () -> check_pattern i ~pattern:"/.*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"HealthCheckConfigPathString" j
    let to_json = simple_to_json to_value
  end
module HealthCheckConfigPortInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:65535) >>=
             (fun () -> check_int_min i ~min:80));
        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 HealthCheckConfigPortInteger"
           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 HealthCheckConfigTimeoutMsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:5000) >>=
             (fun () -> check_int_min i ~min:100));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml
           ~kind:"an integer for HealthCheckConfigTimeoutMsInteger" 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 HealthCheckConfigUnhealthyThresholdCountInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:10) >>= (fun () -> check_int_min i ~min:2));
        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 HealthCheckConfigUnhealthyThresholdCountInteger"
           xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module Protocol =
  struct
    type nonrec t =
      | HTTP 
      | HTTPS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | HTTP -> "HTTP" | HTTPS -> "HTTPS" | Non_static_id s -> s
    let of_string =
      function | "HTTP" -> HTTP | "HTTPS" -> HTTPS | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration Protocol" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Protocol" j)
    let to_json = simple_to_json to_value
  end
module StatusCodeMatcher =
  struct
    type nonrec t = string
    let context_ = "StatusCodeMatcher"
    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:"StatusCodeMatcher" j
    let to_json = simple_to_json to_value
  end
module CustomerProvidedId =
  struct
    type nonrec t = string
    let context_ = "CustomerProvidedId"
    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:"CustomerProvidedId" j
    let to_json = simple_to_json to_value
  end
module ResponderErrorMasking =
  struct
    type nonrec t = ResponderErrorMaskingForHttpCode.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:200) >>=
             (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ResponderErrorMaskingForHttpCode.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:ResponderErrorMaskingForHttpCode.of_xml)
    let of_json j =
      list_of_json ~kind:"ResponderErrorMasking"
        ~of_json:ResponderErrorMaskingForHttpCode.of_json j
    let to_json v = composed_to_json to_value v
  end
module LinkApplicationLogConfiguration =
  struct
    type nonrec t =
      {
      sampling: LinkApplicationLogSampling.t
        [@ocaml.doc "Describes a link application log sample."]}
    let context_ = "LinkApplicationLogConfiguration"
    let make ~sampling = fun () -> { sampling }
    let to_value x =
      structure_to_value
        [("sampling",
           (Some (LinkApplicationLogSampling.to_value x.sampling)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sampling =
        LinkApplicationLogSampling.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sampling") in
      make ~sampling ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sampling =
        field_map_exn json__ "sampling" LinkApplicationLogSampling.of_json in
      make ~sampling ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the configuration of a link application log."]
module ModuleConfiguration =
  struct
    type nonrec t =
      {
      version: Version.t option [@ocaml.doc "The version of the module."];
      name: FlowModuleName.t [@ocaml.doc "The name of the module."];
      dependsOn: FlowModuleNameList.t option
        [@ocaml.doc "The dependencies of the module."];
      moduleParameters: ModuleParameters.t option
        [@ocaml.doc "Describes the parameters of a module."]}
    let context_ = "ModuleConfiguration"
    let make ?version =
      fun ?dependsOn ->
        fun ?moduleParameters ->
          fun ~name ->
            fun () -> { version; dependsOn; moduleParameters; name }
    let to_value x =
      structure_to_value
        [("version", (Option.map x.version ~f:Version.to_value));
        ("name", (Some (FlowModuleName.to_value x.name)));
        ("dependsOn",
          (Option.map x.dependsOn ~f:FlowModuleNameList.to_value));
        ("moduleParameters",
          (Option.map x.moduleParameters ~f:ModuleParameters.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let moduleParameters =
        (Option.map ~f:ModuleParameters.of_xml)
          (Xml.child xml_arg0 "moduleParameters") in
      let dependsOn =
        (Option.map ~f:FlowModuleNameList.of_xml)
          (Xml.child xml_arg0 "dependsOn") in
      let name =
        FlowModuleName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let version =
        (Option.map ~f:Version.of_xml) (Xml.child xml_arg0 "version") in
      make ?moduleParameters ?dependsOn ~name ?version ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let moduleParameters =
        field_map json__ "moduleParameters" ModuleParameters.of_json in
      let dependsOn = field_map json__ "dependsOn" FlowModuleNameList.of_json in
      let name = field_map_exn json__ "name" FlowModuleName.of_json in
      let version = field_map json__ "version" Version.of_json in
      make ?moduleParameters ?dependsOn ~name ?version ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the configuration of a module."]
module TagKey =
  struct
    type nonrec t = string
    let context_ = "TagKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"(resourceArn|internalId|[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:"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:1600) >>=
             (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 QueryStringKeyValuePair =
  struct
    type nonrec t =
      {
      key: QueryStringKeyValuePairKeyString.t
        [@ocaml.doc "RFC 3986 unreserved characters"];
      value: QueryStringKeyValuePairValueString.t
        [@ocaml.doc "RFC 3986 unreserved characters"]}
    let context_ = "QueryStringKeyValuePair"
    let make ~key = fun ~value -> fun () -> { key; value }
    let to_value x =
      structure_to_value
        [("key", (Some (QueryStringKeyValuePairKeyString.to_value x.key)));
        ("value",
          (Some (QueryStringKeyValuePairValueString.to_value x.value)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        QueryStringKeyValuePairValueString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "value") in
      let key =
        QueryStringKeyValuePairKeyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "key") in
      make ~value ~key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value =
        field_map_exn json__ "value"
          QueryStringKeyValuePairValueString.of_json in
      let key =
        field_map_exn json__ "key" QueryStringKeyValuePairKeyString.of_json in
      make ~value ~key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Key-value pair for query string matching"]
module RuleConditionHostHeaderString =
  struct
    type nonrec t = string
    let context_ = "RuleConditionHostHeaderString"
    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:"RuleConditionHostHeaderString" j
    let to_json = simple_to_json to_value
  end
module RuleConditionHostHeaderWildcardString =
  struct
    type nonrec t = string
    let context_ = "RuleConditionHostHeaderWildcardString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:3) >>=
             (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:"RuleConditionHostHeaderWildcardString" j
    let to_json = simple_to_json to_value
  end
module RuleConditionPathExactString =
  struct
    type nonrec t = string
    let context_ = "RuleConditionPathExactString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () -> check_pattern i ~pattern:"/[A-Za-z0-9._~/-]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"RuleConditionPathExactString" j
    let to_json = simple_to_json to_value
  end
module RuleConditionPathPrefixString =
  struct
    type nonrec t = string
    let context_ = "RuleConditionPathPrefixString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () -> check_pattern i ~pattern:"/[A-Za-z0-9._~/-]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"RuleConditionPathPrefixString" j
    let to_json = simple_to_json to_value
  end
module RuleConditionQueryStringExistsString =
  struct
    type nonrec t = string
    let context_ = "RuleConditionQueryStringExistsString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () -> check_pattern i ~pattern:"[A-Za-z0-9._~-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"RuleConditionQueryStringExistsString" j
    let to_json = simple_to_json to_value
  end
module AutoScalingGroupNameList =
  struct
    type nonrec t = AutoScalingGroupName.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:AutoScalingGroupName.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:AutoScalingGroupName.of_xml)
    let of_json j =
      list_of_json ~kind:"AutoScalingGroupNameList"
        ~of_json:AutoScalingGroupName.of_json j
    let to_json v = composed_to_json to_value v
  end
module AutoScalingGroupsConfigurationRoleArnString =
  struct
    type nonrec t = string
    let context_ = "AutoScalingGroupsConfigurationRoleArnString"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i ~pattern:"arn:aws:iam::[0-9]{12}:role/.{1,2048}");
        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:"AutoScalingGroupsConfigurationRoleArnString" j
    let to_json = simple_to_json to_value
  end
module HealthCheckConfig =
  struct
    type nonrec t =
      {
      port: HealthCheckConfigPortInteger.t
        [@ocaml.doc
          "The port to use for health check probes. Valid range is 80 to 65535."];
      path: HealthCheckConfigPathString.t
        [@ocaml.doc
          "The destination path for the health check request. Must start with /."];
      protocol: Protocol.t option
        [@ocaml.doc "The protocol to use for health check probes."];
      timeoutMs: HealthCheckConfigTimeoutMsInteger.t option
        [@ocaml.doc
          "The timeout for each health check probe, in milliseconds. Valid range is 100 to 5000."];
      intervalSeconds: HealthCheckConfigIntervalSecondsInteger.t option
        [@ocaml.doc
          "The interval between health check probes, in seconds. Valid range is 5 to 60."];
      statusCodeMatcher: StatusCodeMatcher.t option
        [@ocaml.doc
          "The expected HTTP status code or status code pattern from healthy instances. Supports a single code (for example, 200), a range (for example, 200-299), or a comma-separated list (for example, 200,204)."];
      healthyThresholdCount:
        HealthCheckConfigHealthyThresholdCountInteger.t option
        [@ocaml.doc
          "The number of consecutive successful health checks required before an instance is considered healthy. Valid range is 2 to 10."];
      unhealthyThresholdCount:
        HealthCheckConfigUnhealthyThresholdCountInteger.t option
        [@ocaml.doc
          "The number of consecutive failed health checks required before an instance is considered unhealthy. Valid range is 2 to 10."]}
    let context_ = "HealthCheckConfig"
    let make ?protocol =
      fun ?timeoutMs ->
        fun ?intervalSeconds ->
          fun ?statusCodeMatcher ->
            fun ?healthyThresholdCount ->
              fun ?unhealthyThresholdCount ->
                fun ~port ->
                  fun ~path ->
                    fun () ->
                      {
                        protocol;
                        timeoutMs;
                        intervalSeconds;
                        statusCodeMatcher;
                        healthyThresholdCount;
                        unhealthyThresholdCount;
                        port;
                        path
                      }
    let to_value x =
      structure_to_value
        [("port", (Some (HealthCheckConfigPortInteger.to_value x.port)));
        ("path", (Some (HealthCheckConfigPathString.to_value x.path)));
        ("protocol", (Option.map x.protocol ~f:Protocol.to_value));
        ("timeoutMs",
          (Option.map x.timeoutMs
             ~f:HealthCheckConfigTimeoutMsInteger.to_value));
        ("intervalSeconds",
          (Option.map x.intervalSeconds
             ~f:HealthCheckConfigIntervalSecondsInteger.to_value));
        ("statusCodeMatcher",
          (Option.map x.statusCodeMatcher ~f:StatusCodeMatcher.to_value));
        ("healthyThresholdCount",
          (Option.map x.healthyThresholdCount
             ~f:HealthCheckConfigHealthyThresholdCountInteger.to_value));
        ("unhealthyThresholdCount",
          (Option.map x.unhealthyThresholdCount
             ~f:HealthCheckConfigUnhealthyThresholdCountInteger.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let unhealthyThresholdCount =
        (Option.map ~f:HealthCheckConfigUnhealthyThresholdCountInteger.of_xml)
          (Xml.child xml_arg0 "unhealthyThresholdCount") in
      let healthyThresholdCount =
        (Option.map ~f:HealthCheckConfigHealthyThresholdCountInteger.of_xml)
          (Xml.child xml_arg0 "healthyThresholdCount") in
      let statusCodeMatcher =
        (Option.map ~f:StatusCodeMatcher.of_xml)
          (Xml.child xml_arg0 "statusCodeMatcher") in
      let intervalSeconds =
        (Option.map ~f:HealthCheckConfigIntervalSecondsInteger.of_xml)
          (Xml.child xml_arg0 "intervalSeconds") in
      let timeoutMs =
        (Option.map ~f:HealthCheckConfigTimeoutMsInteger.of_xml)
          (Xml.child xml_arg0 "timeoutMs") in
      let protocol =
        (Option.map ~f:Protocol.of_xml) (Xml.child xml_arg0 "protocol") in
      let path =
        HealthCheckConfigPathString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "path") in
      let port =
        HealthCheckConfigPortInteger.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "port") in
      make ?unhealthyThresholdCount ?healthyThresholdCount ?statusCodeMatcher
        ?intervalSeconds ?timeoutMs ?protocol ~path ~port ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let unhealthyThresholdCount =
        field_map json__ "unhealthyThresholdCount"
          HealthCheckConfigUnhealthyThresholdCountInteger.of_json in
      let healthyThresholdCount =
        field_map json__ "healthyThresholdCount"
          HealthCheckConfigHealthyThresholdCountInteger.of_json in
      let statusCodeMatcher =
        field_map json__ "statusCodeMatcher" StatusCodeMatcher.of_json in
      let intervalSeconds =
        field_map json__ "intervalSeconds"
          HealthCheckConfigIntervalSecondsInteger.of_json in
      let timeoutMs =
        field_map json__ "timeoutMs"
          HealthCheckConfigTimeoutMsInteger.of_json in
      let protocol = field_map json__ "protocol" Protocol.of_json in
      let path =
        field_map_exn json__ "path" HealthCheckConfigPathString.of_json in
      let port =
        field_map_exn json__ "port" HealthCheckConfigPortInteger.of_json in
      make ?unhealthyThresholdCount ?healthyThresholdCount ?statusCodeMatcher
        ?intervalSeconds ?timeoutMs ?protocol ~path ~port ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The health check configuration for a managed endpoint. Defines how the service probes instances in the Auto Scaling group to determine their health status."]
module Base64EncodedCertificateChain =
  struct
    type nonrec t = string
    let context_ = "Base64EncodedCertificateChain"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2097152) >>=
             (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:"Base64EncodedCertificateChain" j
    let to_json = simple_to_json to_value
  end
module EksEndpointsConfigurationRoleArnString =
  struct
    type nonrec t = string
    let context_ = "EksEndpointsConfigurationRoleArnString"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i ~pattern:"arn:aws:iam::[0-9]{12}:role/.{1,2048}");
        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:"EksEndpointsConfigurationRoleArnString" j
    let to_json = simple_to_json to_value
  end
module KubernetesClusterName =
  struct
    type nonrec t = string
    let context_ = "KubernetesClusterName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:2) >>=
             (fun () ->
                (check_string_max i ~max:63) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[A-Za-z0-9][A-Za-z0-9-]{0,61}[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:"KubernetesClusterName" j
    let to_json = simple_to_json to_value
  end
module KubernetesEndpointsResourceName =
  struct
    type nonrec t = string
    let context_ = "KubernetesEndpointsResourceName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:2) >>=
             (fun () ->
                (check_string_max i ~max:63) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[A-Za-z0-9][A-Za-z0-9-]{0,61}[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:"KubernetesEndpointsResourceName" j
    let to_json = simple_to_json to_value
  end
module KubernetesNamespace =
  struct
    type nonrec t = string
    let context_ = "KubernetesNamespace"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:2) >>=
             (fun () ->
                (check_string_max i ~max:63) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[A-Za-z0-9][A-Za-z0-9-]{0,61}[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:"KubernetesNamespace" j
    let to_json = simple_to_json to_value
  end
module URI =
  struct
    type nonrec t = string
    let context_ = "URI"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:255) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"(https|http)://(?:[A-Za-z0-9](?:[A-Za-z0-9-]{0,61}[A-Za-z0-9])?)(?:\\.(?:[A-Za-z0-9](?:[A-Za-z0-9-]{0,61}[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:"URI" j
    let to_json = simple_to_json to_value
  end
module ConnectivityType =
  struct
    type nonrec t =
      | DEFAULT 
      | PUBLIC_INGRESS 
      | PUBLIC_EGRESS 
      | EXTERNAL_INBOUND 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DEFAULT -> "DEFAULT"
      | PUBLIC_INGRESS -> "PUBLIC_INGRESS"
      | PUBLIC_EGRESS -> "PUBLIC_EGRESS"
      | EXTERNAL_INBOUND -> "EXTERNAL_INBOUND"
      | Non_static_id s -> s
    let of_string =
      function
      | "DEFAULT" -> DEFAULT
      | "PUBLIC_INGRESS" -> PUBLIC_INGRESS
      | "PUBLIC_EGRESS" -> PUBLIC_EGRESS
      | "EXTERNAL_INBOUND" -> EXTERNAL_INBOUND
      | 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 ConnectivityType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ConnectivityType" j)
    let to_json = simple_to_json to_value
  end
module GatewayId =
  struct
    type nonrec t = string
    let context_ = "GatewayId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:8) >>=
             (fun () ->
                (check_string_max i ~max:32) >>=
                  (fun () ->
                     check_pattern i ~pattern:"rtb-gw-[a-z0-9-]{1,25}")));
        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:"GatewayId" j
    let to_json = simple_to_json to_value
  end
module LinkAttributes =
  struct
    type nonrec t =
      {
      responderErrorMasking: ResponderErrorMasking.t option
        [@ocaml.doc "Describes the masking for HTTP error codes."];
      customerProvidedId: CustomerProvidedId.t option
        [@ocaml.doc "The customer-provided unique identifier of the link."]}
    let make ?responderErrorMasking =
      fun ?customerProvidedId ->
        fun () -> { responderErrorMasking; customerProvidedId }
    let to_value x =
      structure_to_value
        [("responderErrorMasking",
           (Option.map x.responderErrorMasking
              ~f:ResponderErrorMasking.to_value));
        ("customerProvidedId",
          (Option.map x.customerProvidedId ~f:CustomerProvidedId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let customerProvidedId =
        (Option.map ~f:CustomerProvidedId.of_xml)
          (Xml.child xml_arg0 "customerProvidedId") in
      let responderErrorMasking =
        (Option.map ~f:ResponderErrorMasking.of_xml)
          (Xml.child xml_arg0 "responderErrorMasking") in
      make ?customerProvidedId ?responderErrorMasking ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let customerProvidedId =
        field_map json__ "customerProvidedId" CustomerProvidedId.of_json in
      let responderErrorMasking =
        field_map json__ "responderErrorMasking"
          ResponderErrorMasking.of_json in
      make ?customerProvidedId ?responderErrorMasking ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the attributes of a link."]
module LinkDirection =
  struct
    type nonrec t =
      | RESPONSE 
      | REQUEST 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | RESPONSE -> "RESPONSE"
      | REQUEST -> "REQUEST"
      | Non_static_id s -> s
    let of_string =
      function
      | "RESPONSE" -> RESPONSE
      | "REQUEST" -> REQUEST
      | 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 LinkDirection" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"LinkDirection" j)
    let to_json = simple_to_json to_value
  end
module LinkId =
  struct
    type nonrec t = string
    let context_ = "LinkId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:6) >>=
             (fun () ->
                (check_string_max i ~max:30) >>=
                  (fun () -> check_pattern i ~pattern:"link-[a-z0-9-]{1,25}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"LinkId" j
    let to_json = simple_to_json to_value
  end
module LinkLogSettings =
  struct
    type nonrec t =
      {
      applicationLogs: LinkApplicationLogConfiguration.t
        [@ocaml.doc "Describes the configuration of a link application log."]}
    let context_ = "LinkLogSettings"
    let make ~applicationLogs = fun () -> { applicationLogs }
    let to_value x =
      structure_to_value
        [("applicationLogs",
           (Some (LinkApplicationLogConfiguration.to_value x.applicationLogs)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let applicationLogs =
        LinkApplicationLogConfiguration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "applicationLogs") in
      make ~applicationLogs ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let applicationLogs =
        field_map_exn json__ "applicationLogs"
          LinkApplicationLogConfiguration.of_json in
      make ~applicationLogs ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the settings for a link log."]
module LinkStatus =
  struct
    type nonrec t =
      | PENDING_CREATION 
      | PENDING_REQUEST 
      | REQUESTED 
      | ACCEPTED 
      | ACTIVE 
      | REJECTED 
      | FAILED 
      | PENDING_DELETION 
      | DELETED 
      | PENDING_UPDATE 
      | PENDING_ISOLATION 
      | ISOLATED 
      | PENDING_RESTORATION 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING_CREATION -> "PENDING_CREATION"
      | PENDING_REQUEST -> "PENDING_REQUEST"
      | REQUESTED -> "REQUESTED"
      | ACCEPTED -> "ACCEPTED"
      | ACTIVE -> "ACTIVE"
      | REJECTED -> "REJECTED"
      | FAILED -> "FAILED"
      | PENDING_DELETION -> "PENDING_DELETION"
      | DELETED -> "DELETED"
      | PENDING_UPDATE -> "PENDING_UPDATE"
      | PENDING_ISOLATION -> "PENDING_ISOLATION"
      | ISOLATED -> "ISOLATED"
      | PENDING_RESTORATION -> "PENDING_RESTORATION"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING_CREATION" -> PENDING_CREATION
      | "PENDING_REQUEST" -> PENDING_REQUEST
      | "REQUESTED" -> REQUESTED
      | "ACCEPTED" -> ACCEPTED
      | "ACTIVE" -> ACTIVE
      | "REJECTED" -> REJECTED
      | "FAILED" -> FAILED
      | "PENDING_DELETION" -> PENDING_DELETION
      | "DELETED" -> DELETED
      | "PENDING_UPDATE" -> PENDING_UPDATE
      | "PENDING_ISOLATION" -> PENDING_ISOLATION
      | "ISOLATED" -> ISOLATED
      | "PENDING_RESTORATION" -> PENDING_RESTORATION
      | 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 LinkStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"LinkStatus" j)
    let to_json = simple_to_json to_value
  end
module ModuleConfigurationList =
  struct
    type nonrec t = ModuleConfiguration.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:ModuleConfiguration.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:ModuleConfiguration.of_xml)
    let of_json j =
      list_of_json ~kind:"ModuleConfigurationList"
        ~of_json:ModuleConfiguration.of_json j
    let to_json v = composed_to_json to_value v
  end
module TagsMap =
  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 Timestamp =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module URL =
  struct
    type nonrec t = string
    let context_ = "URL"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:255) >>=
                  (fun () -> check_pattern i ~pattern:"(https|http)://.+")));
        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:"URL" j
    let to_json = simple_to_json to_value
  end
module RuleCondition =
  struct
    type nonrec t =
      {
      hostHeader: RuleConditionHostHeaderString.t option
        [@ocaml.doc
          "Exact host match \226\128\148 RFC 3986 unreserved characters"];
      hostHeaderWildcard: RuleConditionHostHeaderWildcardString.t option
        [@ocaml.doc
          "Wildcard host pattern (e.g., *.example.com) \226\128\148 RFC 3986 unreserved plus *"];
      pathPrefix: RuleConditionPathPrefixString.t option
        [@ocaml.doc
          "Path prefix matching \226\128\148 strict starts-with, no wildcard (preferred for new rules). Must start with /; RFC 3986 unreserved plus /"];
      pathExact: RuleConditionPathExactString.t option
        [@ocaml.doc
          "Exact path match \226\128\148 must start with /; RFC 3986 unreserved plus /"];
      queryStringEquals: QueryStringKeyValuePair.t option
        [@ocaml.doc "Query string key=value pair match (single pair)"];
      queryStringExists: RuleConditionQueryStringExistsString.t option
        [@ocaml.doc
          "Query string key presence check (any value accepted) \226\128\148 RFC 3986 unreserved characters"]}
    let make ?hostHeader =
      fun ?hostHeaderWildcard ->
        fun ?pathPrefix ->
          fun ?pathExact ->
            fun ?queryStringEquals ->
              fun ?queryStringExists ->
                fun () ->
                  {
                    hostHeader;
                    hostHeaderWildcard;
                    pathPrefix;
                    pathExact;
                    queryStringEquals;
                    queryStringExists
                  }
    let to_value x =
      structure_to_value
        [("hostHeader",
           (Option.map x.hostHeader ~f:RuleConditionHostHeaderString.to_value));
        ("hostHeaderWildcard",
          (Option.map x.hostHeaderWildcard
             ~f:RuleConditionHostHeaderWildcardString.to_value));
        ("pathPrefix",
          (Option.map x.pathPrefix ~f:RuleConditionPathPrefixString.to_value));
        ("pathExact",
          (Option.map x.pathExact ~f:RuleConditionPathExactString.to_value));
        ("queryStringEquals",
          (Option.map x.queryStringEquals ~f:QueryStringKeyValuePair.to_value));
        ("queryStringExists",
          (Option.map x.queryStringExists
             ~f:RuleConditionQueryStringExistsString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let queryStringExists =
        (Option.map ~f:RuleConditionQueryStringExistsString.of_xml)
          (Xml.child xml_arg0 "queryStringExists") in
      let queryStringEquals =
        (Option.map ~f:QueryStringKeyValuePair.of_xml)
          (Xml.child xml_arg0 "queryStringEquals") in
      let pathExact =
        (Option.map ~f:RuleConditionPathExactString.of_xml)
          (Xml.child xml_arg0 "pathExact") in
      let pathPrefix =
        (Option.map ~f:RuleConditionPathPrefixString.of_xml)
          (Xml.child xml_arg0 "pathPrefix") in
      let hostHeaderWildcard =
        (Option.map ~f:RuleConditionHostHeaderWildcardString.of_xml)
          (Xml.child xml_arg0 "hostHeaderWildcard") in
      let hostHeader =
        (Option.map ~f:RuleConditionHostHeaderString.of_xml)
          (Xml.child xml_arg0 "hostHeader") in
      make ?queryStringExists ?queryStringEquals ?pathExact ?pathPrefix
        ?hostHeaderWildcard ?hostHeader ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let queryStringExists =
        field_map json__ "queryStringExists"
          RuleConditionQueryStringExistsString.of_json in
      let queryStringEquals =
        field_map json__ "queryStringEquals" QueryStringKeyValuePair.of_json in
      let pathExact =
        field_map json__ "pathExact" RuleConditionPathExactString.of_json in
      let pathPrefix =
        field_map json__ "pathPrefix" RuleConditionPathPrefixString.of_json in
      let hostHeaderWildcard =
        field_map json__ "hostHeaderWildcard"
          RuleConditionHostHeaderWildcardString.of_json in
      let hostHeader =
        field_map json__ "hostHeader" RuleConditionHostHeaderString.of_json in
      make ?queryStringExists ?queryStringEquals ?pathExact ?pathPrefix
        ?hostHeaderWildcard ?hostHeader ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Conditions bag for a routing rule. All non-null fields must match (AND logic). At least one field must be set (enforced by CP)."]
module RuleId =
  struct
    type nonrec t = string[@@ocaml.doc "Identifier for a routing rule"]
    let context_ = "RuleId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:6) >>=
             (fun () ->
                (check_string_max i ~max:30) >>=
                  (fun () -> check_pattern i ~pattern:"rule-[a-z0-9-]{1,25}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"RuleId" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Identifier for a routing rule"]
module RulePriority =
  struct
    type nonrec t = int[@@ocaml.doc
                         "WAF-style evaluation priority. Lower number = evaluated first (priority 1 before 10). Gaps are allowed (1, 10, 20 is valid). Must be between 1 and 1000 inclusive. Uniqueness per link among non-deleted rules is enforced at the API layer (HTTP 409 on conflict)."]
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:1000) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for RulePriority" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "WAF-style evaluation priority. Lower number = evaluated first (priority 1 before 10). Gaps are allowed (1, 10, 20 is valid). Must be between 1 and 1000 inclusive. Uniqueness per link among non-deleted rules is enforced at the API layer (HTTP 409 on conflict)."]
module RuleStatus =
  struct
    type nonrec t =
      | CREATION_IN_PROGRESS 
      | ACTIVE 
      | UPDATE_IN_PROGRESS 
      | DELETION_IN_PROGRESS 
      | DELETED 
      | FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATION_IN_PROGRESS -> "CREATION_IN_PROGRESS"
      | ACTIVE -> "ACTIVE"
      | UPDATE_IN_PROGRESS -> "UPDATE_IN_PROGRESS"
      | DELETION_IN_PROGRESS -> "DELETION_IN_PROGRESS"
      | DELETED -> "DELETED"
      | FAILED -> "FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATION_IN_PROGRESS" -> CREATION_IN_PROGRESS
      | "ACTIVE" -> ACTIVE
      | "UPDATE_IN_PROGRESS" -> UPDATE_IN_PROGRESS
      | "DELETION_IN_PROGRESS" -> DELETION_IN_PROGRESS
      | "DELETED" -> DELETED
      | "FAILED" -> FAILED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration RuleStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RuleStatus" j)
    let to_json = simple_to_json to_value
  end
module AcmCertificateArn =
  struct
    type nonrec t = string
    let context_ = "AcmCertificateArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:75) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:(aws|aws-cn|aws-us-gov):acm:[a-z0-9-]+:[0-9]{12}:certificate/[0-9a-f]{8}-[0-9a-f]{4}-[0-9a-f]{4}-[0-9a-f]{4}-[0-9a-f]{12}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AcmCertificateArn" j
    let to_json = simple_to_json to_value
  end
module CertificateAssociationStatus =
  struct
    type nonrec t =
      | PENDING_ASSOCIATION 
      | ASSOCIATED 
      | PENDING_DISASSOCIATION 
      | DISASSOCIATED 
      | FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING_ASSOCIATION -> "PENDING_ASSOCIATION"
      | ASSOCIATED -> "ASSOCIATED"
      | PENDING_DISASSOCIATION -> "PENDING_DISASSOCIATION"
      | DISASSOCIATED -> "DISASSOCIATED"
      | FAILED -> "FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING_ASSOCIATION" -> PENDING_ASSOCIATION
      | "ASSOCIATED" -> ASSOCIATED
      | "PENDING_DISASSOCIATION" -> PENDING_DISASSOCIATION
      | "DISASSOCIATED" -> DISASSOCIATED
      | "FAILED" -> FAILED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration CertificateAssociationStatus"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"CertificateAssociationStatus" j)
    let to_json = simple_to_json to_value
  end
module ProtocolList =
  struct
    type nonrec t = Protocol.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:2) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Protocol.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:Protocol.of_xml)
    let of_json j =
      list_of_json ~kind:"ProtocolList" ~of_json:Protocol.of_json j
    let to_json v = composed_to_json to_value v
  end
module AutoScalingGroupsConfiguration =
  struct
    type nonrec t =
      {
      autoScalingGroupNames: AutoScalingGroupNameList.t
        [@ocaml.doc "The names of the auto scaling group."];
      roleArn: AutoScalingGroupsConfigurationRoleArnString.t
        [@ocaml.doc "The role ARN of the auto scaling group."];
      healthCheckConfig: HealthCheckConfig.t option
        [@ocaml.doc
          "The health check configuration for the Auto Scaling group managed endpoint."]}
    let context_ = "AutoScalingGroupsConfiguration"
    let make ?healthCheckConfig =
      fun ~autoScalingGroupNames ->
        fun ~roleArn ->
          fun () -> { healthCheckConfig; autoScalingGroupNames; roleArn }
    let to_value x =
      structure_to_value
        [("autoScalingGroupNames",
           (Some (AutoScalingGroupNameList.to_value x.autoScalingGroupNames)));
        ("roleArn",
          (Some
             (AutoScalingGroupsConfigurationRoleArnString.to_value x.roleArn)));
        ("healthCheckConfig",
          (Option.map x.healthCheckConfig ~f:HealthCheckConfig.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let healthCheckConfig =
        (Option.map ~f:HealthCheckConfig.of_xml)
          (Xml.child xml_arg0 "healthCheckConfig") in
      let roleArn =
        AutoScalingGroupsConfigurationRoleArnString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "roleArn") in
      let autoScalingGroupNames =
        AutoScalingGroupNameList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "autoScalingGroupNames") in
      make ?healthCheckConfig ~roleArn ~autoScalingGroupNames ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let healthCheckConfig =
        field_map json__ "healthCheckConfig" HealthCheckConfig.of_json in
      let roleArn =
        field_map_exn json__ "roleArn"
          AutoScalingGroupsConfigurationRoleArnString.of_json in
      let autoScalingGroupNames =
        field_map_exn json__ "autoScalingGroupNames"
          AutoScalingGroupNameList.of_json in
      make ?healthCheckConfig ~roleArn ~autoScalingGroupNames ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the configuration of an auto scaling group."]
module EksEndpointsConfiguration =
  struct
    type nonrec t =
      {
      endpointsResourceName: KubernetesEndpointsResourceName.t
        [@ocaml.doc "The name of the endpoint resource."];
      endpointsResourceNamespace: KubernetesNamespace.t
        [@ocaml.doc "The namespace of the endpoint resource."];
      clusterApiServerEndpointUri: URI.t
        [@ocaml.doc "The URI of the cluster API server endpoint."];
      clusterApiServerCaCertificateChain: Base64EncodedCertificateChain.t
        [@ocaml.doc "The CA certificate chain of the cluster API server."];
      clusterName: KubernetesClusterName.t
        [@ocaml.doc "The name of the cluster."];
      roleArn: EksEndpointsConfigurationRoleArnString.t
        [@ocaml.doc "The role ARN for the cluster."]}
    let context_ = "EksEndpointsConfiguration"
    let make ~endpointsResourceName =
      fun ~endpointsResourceNamespace ->
        fun ~clusterApiServerEndpointUri ->
          fun ~clusterApiServerCaCertificateChain ->
            fun ~clusterName ->
              fun ~roleArn ->
                fun () ->
                  {
                    endpointsResourceName;
                    endpointsResourceNamespace;
                    clusterApiServerEndpointUri;
                    clusterApiServerCaCertificateChain;
                    clusterName;
                    roleArn
                  }
    let to_value x =
      structure_to_value
        [("endpointsResourceName",
           (Some
              (KubernetesEndpointsResourceName.to_value
                 x.endpointsResourceName)));
        ("endpointsResourceNamespace",
          (Some (KubernetesNamespace.to_value x.endpointsResourceNamespace)));
        ("clusterApiServerEndpointUri",
          (Some (URI.to_value x.clusterApiServerEndpointUri)));
        ("clusterApiServerCaCertificateChain",
          (Some
             (Base64EncodedCertificateChain.to_value
                x.clusterApiServerCaCertificateChain)));
        ("clusterName",
          (Some (KubernetesClusterName.to_value x.clusterName)));
        ("roleArn",
          (Some (EksEndpointsConfigurationRoleArnString.to_value x.roleArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let roleArn =
        EksEndpointsConfigurationRoleArnString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "roleArn") in
      let clusterName =
        KubernetesClusterName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "clusterName") in
      let clusterApiServerCaCertificateChain =
        Base64EncodedCertificateChain.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "clusterApiServerCaCertificateChain") in
      let clusterApiServerEndpointUri =
        URI.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "clusterApiServerEndpointUri") in
      let endpointsResourceNamespace =
        KubernetesNamespace.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "endpointsResourceNamespace") in
      let endpointsResourceName =
        KubernetesEndpointsResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "endpointsResourceName") in
      make ~roleArn ~clusterName ~clusterApiServerCaCertificateChain
        ~clusterApiServerEndpointUri ~endpointsResourceNamespace
        ~endpointsResourceName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let roleArn =
        field_map_exn json__ "roleArn"
          EksEndpointsConfigurationRoleArnString.of_json in
      let clusterName =
        field_map_exn json__ "clusterName" KubernetesClusterName.of_json in
      let clusterApiServerCaCertificateChain =
        field_map_exn json__ "clusterApiServerCaCertificateChain"
          Base64EncodedCertificateChain.of_json in
      let clusterApiServerEndpointUri =
        field_map_exn json__ "clusterApiServerEndpointUri" URI.of_json in
      let endpointsResourceNamespace =
        field_map_exn json__ "endpointsResourceNamespace"
          KubernetesNamespace.of_json in
      let endpointsResourceName =
        field_map_exn json__ "endpointsResourceName"
          KubernetesEndpointsResourceName.of_json in
      make ~roleArn ~clusterName ~clusterApiServerCaCertificateChain
        ~clusterApiServerEndpointUri ~endpointsResourceNamespace
        ~endpointsResourceName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the configuration of an Amazon Elastic Kubernetes Service endpoint."]
module CertificateAuthorityCertificates =
  struct
    type nonrec t = Base64EncodedCertificateChain.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:2) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Base64EncodedCertificateChain.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:Base64EncodedCertificateChain.of_xml)
    let of_json j =
      list_of_json ~kind:"CertificateAuthorityCertificates"
        ~of_json:Base64EncodedCertificateChain.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListLinksResponseStructure =
  struct
    type nonrec t =
      {
      gatewayId: GatewayId.t option
        [@ocaml.doc "The unique identifier of the gateway."];
      peerGatewayId: GatewayId.t option
        [@ocaml.doc "The unique identifier of the peer gateway."];
      status: LinkStatus.t option [@ocaml.doc "The status of the link."];
      createdAt: Timestamp.t option
        [@ocaml.doc "The timestamp of when the link was created."];
      updatedAt: Timestamp.t option
        [@ocaml.doc "The timestamp of when the link was updated."];
      direction: LinkDirection.t option
        [@ocaml.doc "The direction of the link."];
      flowModules: ModuleConfigurationList.t option
        [@ocaml.doc "Describes the configuration of flow modules."];
      pendingFlowModules: ModuleConfigurationList.t option
        [@ocaml.doc "Describes the configuration of pending flow modules."];
      attributes: LinkAttributes.t option
        [@ocaml.doc "Describes attributes of a link."];
      logSettings: LinkLogSettings.t option ;
      connectivityType: ConnectivityType.t option
        [@ocaml.doc "The connectivity type of the link."];
      linkId: LinkId.t option
        [@ocaml.doc "The unique identifier of the link."];
      tags: TagsMap.t option
        [@ocaml.doc
          "A map of the key-value pairs of the tag or tags to assign to the resource."];
      publicEndpoint: URL.t option
        [@ocaml.doc "The public endpoint of the outbound link."]}
    let make ?gatewayId =
      fun ?peerGatewayId ->
        fun ?status ->
          fun ?createdAt ->
            fun ?updatedAt ->
              fun ?direction ->
                fun ?flowModules ->
                  fun ?pendingFlowModules ->
                    fun ?attributes ->
                      fun ?logSettings ->
                        fun ?connectivityType ->
                          fun ?linkId ->
                            fun ?tags ->
                              fun ?publicEndpoint ->
                                fun () ->
                                  {
                                    gatewayId;
                                    peerGatewayId;
                                    status;
                                    createdAt;
                                    updatedAt;
                                    direction;
                                    flowModules;
                                    pendingFlowModules;
                                    attributes;
                                    logSettings;
                                    connectivityType;
                                    linkId;
                                    tags;
                                    publicEndpoint
                                  }
    let to_value x =
      structure_to_value
        [("gatewayId", (Option.map x.gatewayId ~f:GatewayId.to_value));
        ("peerGatewayId", (Option.map x.peerGatewayId ~f:GatewayId.to_value));
        ("status", (Option.map x.status ~f:LinkStatus.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("updatedAt", (Option.map x.updatedAt ~f:Timestamp.to_value));
        ("direction", (Option.map x.direction ~f:LinkDirection.to_value));
        ("flowModules",
          (Option.map x.flowModules ~f:ModuleConfigurationList.to_value));
        ("pendingFlowModules",
          (Option.map x.pendingFlowModules
             ~f:ModuleConfigurationList.to_value));
        ("attributes", (Option.map x.attributes ~f:LinkAttributes.to_value));
        ("logSettings",
          (Option.map x.logSettings ~f:LinkLogSettings.to_value));
        ("connectivityType",
          (Option.map x.connectivityType ~f:ConnectivityType.to_value));
        ("linkId", (Option.map x.linkId ~f:LinkId.to_value));
        ("tags", (Option.map x.tags ~f:TagsMap.to_value));
        ("publicEndpoint", (Option.map x.publicEndpoint ~f:URL.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let publicEndpoint =
        (Option.map ~f:URL.of_xml) (Xml.child xml_arg0 "publicEndpoint") in
      let tags = (Option.map ~f:TagsMap.of_xml) (Xml.child xml_arg0 "tags") in
      let linkId =
        (Option.map ~f:LinkId.of_xml) (Xml.child xml_arg0 "linkId") in
      let connectivityType =
        (Option.map ~f:ConnectivityType.of_xml)
          (Xml.child xml_arg0 "connectivityType") in
      let logSettings =
        (Option.map ~f:LinkLogSettings.of_xml)
          (Xml.child xml_arg0 "logSettings") in
      let attributes =
        (Option.map ~f:LinkAttributes.of_xml)
          (Xml.child xml_arg0 "attributes") in
      let pendingFlowModules =
        (Option.map ~f:ModuleConfigurationList.of_xml)
          (Xml.child xml_arg0 "pendingFlowModules") in
      let flowModules =
        (Option.map ~f:ModuleConfigurationList.of_xml)
          (Xml.child xml_arg0 "flowModules") in
      let direction =
        (Option.map ~f:LinkDirection.of_xml) (Xml.child xml_arg0 "direction") in
      let updatedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "updatedAt") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let status =
        (Option.map ~f:LinkStatus.of_xml) (Xml.child xml_arg0 "status") in
      let peerGatewayId =
        (Option.map ~f:GatewayId.of_xml) (Xml.child xml_arg0 "peerGatewayId") in
      let gatewayId =
        (Option.map ~f:GatewayId.of_xml) (Xml.child xml_arg0 "gatewayId") in
      make ?publicEndpoint ?tags ?linkId ?connectivityType ?logSettings
        ?attributes ?pendingFlowModules ?flowModules ?direction ?updatedAt
        ?createdAt ?status ?peerGatewayId ?gatewayId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let publicEndpoint = field_map json__ "publicEndpoint" URL.of_json in
      let tags = field_map json__ "tags" TagsMap.of_json in
      let linkId = field_map json__ "linkId" LinkId.of_json in
      let connectivityType =
        field_map json__ "connectivityType" ConnectivityType.of_json in
      let logSettings =
        field_map json__ "logSettings" LinkLogSettings.of_json in
      let attributes = field_map json__ "attributes" LinkAttributes.of_json in
      let pendingFlowModules =
        field_map json__ "pendingFlowModules" ModuleConfigurationList.of_json in
      let flowModules =
        field_map json__ "flowModules" ModuleConfigurationList.of_json in
      let direction = field_map json__ "direction" LinkDirection.of_json in
      let updatedAt = field_map json__ "updatedAt" Timestamp.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let status = field_map json__ "status" LinkStatus.of_json in
      let peerGatewayId = field_map json__ "peerGatewayId" GatewayId.of_json in
      let gatewayId = field_map json__ "gatewayId" GatewayId.of_json in
      make ?publicEndpoint ?tags ?linkId ?connectivityType ?logSettings
        ?attributes ?pendingFlowModules ?flowModules ?direction ?updatedAt
        ?createdAt ?status ?peerGatewayId ?gatewayId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a link."]
module LinkRoutingRuleSummary =
  struct
    type nonrec t =
      {
      ruleId: RuleId.t option
        [@ocaml.doc "The unique identifier of the routing rule."];
      priority: RulePriority.t option
        [@ocaml.doc "The priority of the routing rule."];
      conditions: RuleCondition.t option
        [@ocaml.doc "The conditions for the routing rule."];
      status: RuleStatus.t option
        [@ocaml.doc "The status of the routing rule."];
      createdAt: Timestamp.t option
        [@ocaml.doc "The timestamp of when the routing rule was created."];
      updatedAt: Timestamp.t option
        [@ocaml.doc
          "The timestamp of when the routing rule was last updated."]}
    let make ?ruleId =
      fun ?priority ->
        fun ?conditions ->
          fun ?status ->
            fun ?createdAt ->
              fun ?updatedAt ->
                fun () ->
                  {
                    ruleId;
                    priority;
                    conditions;
                    status;
                    createdAt;
                    updatedAt
                  }
    let to_value x =
      structure_to_value
        [("ruleId", (Option.map x.ruleId ~f:RuleId.to_value));
        ("priority", (Option.map x.priority ~f:RulePriority.to_value));
        ("conditions", (Option.map x.conditions ~f:RuleCondition.to_value));
        ("status", (Option.map x.status ~f:RuleStatus.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("updatedAt", (Option.map x.updatedAt ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updatedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "updatedAt") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let status =
        (Option.map ~f:RuleStatus.of_xml) (Xml.child xml_arg0 "status") in
      let conditions =
        (Option.map ~f:RuleCondition.of_xml)
          (Xml.child xml_arg0 "conditions") in
      let priority =
        (Option.map ~f:RulePriority.of_xml) (Xml.child xml_arg0 "priority") in
      let ruleId =
        (Option.map ~f:RuleId.of_xml) (Xml.child xml_arg0 "ruleId") in
      make ?updatedAt ?createdAt ?status ?conditions ?priority ?ruleId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updatedAt = field_map json__ "updatedAt" Timestamp.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let status = field_map json__ "status" RuleStatus.of_json in
      let conditions = field_map json__ "conditions" RuleCondition.of_json in
      let priority = field_map json__ "priority" RulePriority.of_json in
      let ruleId = field_map json__ "ruleId" RuleId.of_json in
      make ?updatedAt ?createdAt ?status ?conditions ?priority ?ruleId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Summary of a routing rule for list responses"]
module CertificateAssociationSummary =
  struct
    type nonrec t =
      {
      acmCertificateArn: AcmCertificateArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the ACM certificate."];
      status: CertificateAssociationStatus.t option
        [@ocaml.doc "The status of the certificate association."];
      associatedAt: Timestamp.t option
        [@ocaml.doc "The timestamp of when the certificate was associated."];
      updatedAt: Timestamp.t option
        [@ocaml.doc
          "The timestamp of when the certificate association was last updated."]}
    let make ?acmCertificateArn =
      fun ?status ->
        fun ?associatedAt ->
          fun ?updatedAt ->
            fun () -> { acmCertificateArn; status; associatedAt; updatedAt }
    let to_value x =
      structure_to_value
        [("acmCertificateArn",
           (Option.map x.acmCertificateArn ~f:AcmCertificateArn.to_value));
        ("status",
          (Option.map x.status ~f:CertificateAssociationStatus.to_value));
        ("associatedAt", (Option.map x.associatedAt ~f:Timestamp.to_value));
        ("updatedAt", (Option.map x.updatedAt ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updatedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "updatedAt") in
      let associatedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "associatedAt") in
      let status =
        (Option.map ~f:CertificateAssociationStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let acmCertificateArn =
        (Option.map ~f:AcmCertificateArn.of_xml)
          (Xml.child xml_arg0 "acmCertificateArn") in
      make ?updatedAt ?associatedAt ?status ?acmCertificateArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updatedAt = field_map json__ "updatedAt" Timestamp.of_json in
      let associatedAt = field_map json__ "associatedAt" Timestamp.of_json in
      let status =
        field_map json__ "status" CertificateAssociationStatus.of_json in
      let acmCertificateArn =
        field_map json__ "acmCertificateArn" AcmCertificateArn.of_json in
      make ?updatedAt ?associatedAt ?status ?acmCertificateArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a summary of a certificate association."]
module SecurityGroupId =
  struct
    type nonrec t = string
    let context_ = "SecurityGroupId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:11) >>=
             (fun () ->
                (check_string_max i ~max:43) >>=
                  (fun () -> check_pattern i ~pattern:"sg-[0-9a-f]{8,40}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SecurityGroupId" j
    let to_json = simple_to_json to_value
  end
module SubnetId =
  struct
    type nonrec t = string
    let context_ = "SubnetId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:15) >>=
             (fun () ->
                (check_string_max i ~max:24) >>=
                  (fun () -> check_pattern i ~pattern:"subnet-\\w{8,17}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SubnetId" 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 request could not be completed because you do not have sufficient access to perform this action."]
module ConflictException =
  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 could not be completed because of a conflict in the current state of the resource."]
module InternalServerException =
  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 could not be completed because of an internal server error. Try your call again."]
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 could not be completed because the resource does not exist."]
module ResponderGatewayStatus =
  struct
    type nonrec t =
      | PENDING_CREATION 
      | ACTIVE 
      | PENDING_DELETION 
      | DELETED 
      | ERROR 
      | PENDING_UPDATE 
      | ISOLATED 
      | PENDING_ISOLATION 
      | PENDING_RESTORATION 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING_CREATION -> "PENDING_CREATION"
      | ACTIVE -> "ACTIVE"
      | PENDING_DELETION -> "PENDING_DELETION"
      | DELETED -> "DELETED"
      | ERROR -> "ERROR"
      | PENDING_UPDATE -> "PENDING_UPDATE"
      | ISOLATED -> "ISOLATED"
      | PENDING_ISOLATION -> "PENDING_ISOLATION"
      | PENDING_RESTORATION -> "PENDING_RESTORATION"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING_CREATION" -> PENDING_CREATION
      | "ACTIVE" -> ACTIVE
      | "PENDING_DELETION" -> PENDING_DELETION
      | "DELETED" -> DELETED
      | "ERROR" -> ERROR
      | "PENDING_UPDATE" -> PENDING_UPDATE
      | "ISOLATED" -> ISOLATED
      | "PENDING_ISOLATION" -> PENDING_ISOLATION
      | "PENDING_RESTORATION" -> PENDING_RESTORATION
      | 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 ResponderGatewayStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ResponderGatewayStatus" j)
    let to_json = simple_to_json to_value
  end
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 ValidationException =
  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 could not be completed because it fails satisfy the constraints specified by the service."]
module DomainName =
  struct
    type nonrec t = string
    let context_ = "DomainName"
    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-z0-9](?:[a-z0-9-]{0,61}[a-z0-9])?)(?:\\.(?:[a-z0-9](?:[a-z0-9-]{0,61}[a-z0-9])?))+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DomainName" j
    let to_json = simple_to_json to_value
  end
module ListenerConfig =
  struct
    type nonrec t =
      {
      protocols: ProtocolList.t
        [@ocaml.doc
          "The protocol for connections from clients to the gateway"]}
    let context_ = "ListenerConfig"
    let make ~protocols = fun () -> { protocols }
    let to_value x =
      structure_to_value
        [("protocols", (Some (ProtocolList.to_value x.protocols)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let protocols =
        ProtocolList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "protocols") in
      make ~protocols ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let protocols = field_map_exn json__ "protocols" ProtocolList.of_json in
      make ~protocols ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Listener configuration for the protocols (HTTP, HTTPS, or both) accepted by the gateway."]
module ManagedEndpointConfiguration =
  struct
    type nonrec t =
      {
      autoScalingGroups: AutoScalingGroupsConfiguration.t option
        [@ocaml.doc "Describes the configuration of an auto scaling group."];
      eksEndpoints: EksEndpointsConfiguration.t option
        [@ocaml.doc
          "Describes the configuration of an Amazon Elastic Kubernetes Service endpoint."]}
    let make ?autoScalingGroups =
      fun ?eksEndpoints -> fun () -> { autoScalingGroups; eksEndpoints }
    let to_value x =
      structure_to_value
        [("autoScalingGroups",
           (Option.map x.autoScalingGroups
              ~f:AutoScalingGroupsConfiguration.to_value));
        ("eksEndpoints",
          (Option.map x.eksEndpoints ~f:EksEndpointsConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eksEndpoints =
        (Option.map ~f:EksEndpointsConfiguration.of_xml)
          (Xml.child xml_arg0 "eksEndpoints") in
      let autoScalingGroups =
        (Option.map ~f:AutoScalingGroupsConfiguration.of_xml)
          (Xml.child xml_arg0 "autoScalingGroups") in
      make ?eksEndpoints ?autoScalingGroups ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eksEndpoints =
        field_map json__ "eksEndpoints" EksEndpointsConfiguration.of_json in
      let autoScalingGroups =
        field_map json__ "autoScalingGroups"
          AutoScalingGroupsConfiguration.of_json in
      make ?eksEndpoints ?autoScalingGroups ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the configuration of a managed endpoint."]
module TrustStoreConfiguration =
  struct
    type nonrec t =
      {
      certificateAuthorityCertificates: CertificateAuthorityCertificates.t
        [@ocaml.doc "The certificate authority certificate."]}
    let context_ = "TrustStoreConfiguration"
    let make ~certificateAuthorityCertificates =
      fun () -> { certificateAuthorityCertificates }
    let to_value x =
      structure_to_value
        [("certificateAuthorityCertificates",
           (Some
              (CertificateAuthorityCertificates.to_value
                 x.certificateAuthorityCertificates)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let certificateAuthorityCertificates =
        CertificateAuthorityCertificates.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "certificateAuthorityCertificates") in
      make ~certificateAuthorityCertificates ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let certificateAuthorityCertificates =
        field_map_exn json__ "certificateAuthorityCertificates"
          CertificateAuthorityCertificates.of_json in
      make ~certificateAuthorityCertificates ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the configuration of a trust store."]
module UpdateResponderGatewayRequestDescriptionString =
  struct
    type nonrec t = string
    let context_ = "UpdateResponderGatewayRequestDescriptionString"
    let make i =
      let open Result in
        ok_or_failwith (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:"UpdateResponderGatewayRequestDescriptionString" j
    let to_json = simple_to_json to_value
  end
module UpdateResponderGatewayRequestPortInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:65535) >>=
             (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml
           ~kind:"an integer for UpdateResponderGatewayRequestPortInteger"
           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 RequesterGatewayStatus =
  struct
    type nonrec t =
      | PENDING_CREATION 
      | ACTIVE 
      | PENDING_DELETION 
      | DELETED 
      | ERROR 
      | PENDING_UPDATE 
      | ISOLATED 
      | PENDING_ISOLATION 
      | PENDING_RESTORATION 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING_CREATION -> "PENDING_CREATION"
      | ACTIVE -> "ACTIVE"
      | PENDING_DELETION -> "PENDING_DELETION"
      | DELETED -> "DELETED"
      | ERROR -> "ERROR"
      | PENDING_UPDATE -> "PENDING_UPDATE"
      | ISOLATED -> "ISOLATED"
      | PENDING_ISOLATION -> "PENDING_ISOLATION"
      | PENDING_RESTORATION -> "PENDING_RESTORATION"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING_CREATION" -> PENDING_CREATION
      | "ACTIVE" -> ACTIVE
      | "PENDING_DELETION" -> PENDING_DELETION
      | "DELETED" -> DELETED
      | "ERROR" -> ERROR
      | "PENDING_UPDATE" -> PENDING_UPDATE
      | "ISOLATED" -> ISOLATED
      | "PENDING_ISOLATION" -> PENDING_ISOLATION
      | "PENDING_RESTORATION" -> PENDING_RESTORATION
      | 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 RequesterGatewayStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"RequesterGatewayStatus" j)
    let to_json = simple_to_json to_value
  end
module UpdateRequesterGatewayRequestDescriptionString =
  struct
    type nonrec t = string
    let context_ = "UpdateRequesterGatewayRequestDescriptionString"
    let make i =
      let open Result in
        ok_or_failwith (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:"UpdateRequesterGatewayRequestDescriptionString" j
    let to_json = simple_to_json to_value
  end
module LinkTimeoutInMillis =
  struct
    type nonrec t = Int64.t
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int64_max i ~max:5000L) >>=
             (fun () -> check_int64_min i ~min:100L));
        i
    let of_string = Int64.of_string
    let to_value x = `Long x
    let to_query v = to_query to_value v
    let to_header x = Int64.to_string x
    let of_xml xml_arg0 =
      Int64.of_string (string_of_xml ~kind:"a long" xml_arg0)
    let of_json j = Int64.of_float (float_of_json ~kind:"a long" j)
    let to_json = simple_to_json to_value
  end
module 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 request could not be completed because you exceeded a service quota."]
module RtbTaggableResourceArn =
  struct
    type nonrec t = string
    let context_ = "RtbTaggableResourceArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1600) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:aws:rtbfabric:[a-zA-Z0-9_-]+:[0-9]{12}:gateway/[a-zA-Z0-9-]+(/link/[a-zA-Z0-9-]+(/routing-rule/[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:"RtbTaggableResourceArn" j
    let to_json = simple_to_json to_value
  end
module TagKeyList =
  struct
    type nonrec t = TagKey.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:50) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f: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 GatewayIdList =
  struct
    type nonrec t = GatewayId.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:GatewayId.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:GatewayId.of_xml)
    let of_json j =
      list_of_json ~kind:"GatewayIdList" ~of_json:GatewayId.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListResponderGatewaysRequestMaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:10) >>= (fun () -> check_int_min i ~min: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 ListResponderGatewaysRequestMaxResultsInteger"
           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 ListRequesterGatewaysRequestMaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:10) >>= (fun () -> check_int_min i ~min: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 ListRequesterGatewaysRequestMaxResultsInteger"
           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 LinkList =
  struct
    type nonrec t = ListLinksResponseStructure.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:ListLinksResponseStructure.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:ListLinksResponseStructure.of_xml)
    let of_json j =
      list_of_json ~kind:"LinkList"
        ~of_json:ListLinksResponseStructure.of_json j
    let to_json v = composed_to_json to_value v
  end
module Integer =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string (string_of_xml ~kind:"an integer for Integer" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module LinkRoutingRuleList =
  struct
    type nonrec t = LinkRoutingRuleSummary.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:LinkRoutingRuleSummary.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:LinkRoutingRuleSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"LinkRoutingRuleList"
        ~of_json:LinkRoutingRuleSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListLinkRoutingRulesRequestMaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:10) >>= (fun () -> check_int_min i ~min: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 ListLinkRoutingRulesRequestMaxResultsInteger"
           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 CertificateAssociationSummaryList =
  struct
    type nonrec t = CertificateAssociationSummary.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:CertificateAssociationSummary.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:CertificateAssociationSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"CertificateAssociationSummaryList"
        ~of_json:CertificateAssociationSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListCertificateAssociationsRequestMaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:10) >>= (fun () -> check_int_min i ~min: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 ListCertificateAssociationsRequestMaxResultsInteger"
           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 GatewayType =
  struct
    type nonrec t =
      | EXTERNAL 
      | INTERNAL 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | EXTERNAL -> "EXTERNAL"
      | INTERNAL -> "INTERNAL"
      | Non_static_id s -> s
    let of_string =
      function
      | "EXTERNAL" -> EXTERNAL
      | "INTERNAL" -> INTERNAL
      | 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 GatewayType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"GatewayType" j)
    let to_json = simple_to_json to_value
  end
module GetResponderGatewayResponseDescriptionString =
  struct
    type nonrec t = string
    let context_ = "GetResponderGatewayResponseDescriptionString"
    let make i =
      let open Result in
        ok_or_failwith (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:"GetResponderGatewayResponseDescriptionString" j
    let to_json = simple_to_json to_value
  end
module GetResponderGatewayResponsePortInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:65535) >>=
             (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml
           ~kind:"an integer for GetResponderGatewayResponsePortInteger"
           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 GetResponderGatewayResponseSecurityGroupIdsList =
  struct
    type nonrec t = SecurityGroupId.t list
    let make i =
      let open Result in ok_or_failwith (check_list_min i ~min:1); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:SecurityGroupId.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:SecurityGroupId.of_xml)
    let of_json j =
      list_of_json ~kind:"GetResponderGatewayResponseSecurityGroupIdsList"
        ~of_json:SecurityGroupId.of_json j
    let to_json v = composed_to_json to_value v
  end
module GetResponderGatewayResponseSubnetIdsList =
  struct
    type nonrec t = SubnetId.t list
    let make i =
      let open Result in ok_or_failwith (check_list_min i ~min:1); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:SubnetId.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:SubnetId.of_xml)
    let of_json j =
      list_of_json ~kind:"GetResponderGatewayResponseSubnetIdsList"
        ~of_json:SubnetId.of_json j
    let to_json v = composed_to_json to_value v
  end
module VpcId =
  struct
    type nonrec t = string
    let context_ = "VpcId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:12) >>=
             (fun () ->
                (check_string_max i ~max:21) >>=
                  (fun () -> check_pattern i ~pattern:"vpc-[a-f0-9]{8,17}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"VpcId" j
    let to_json = simple_to_json to_value
  end
module GetRequesterGatewayResponseDescriptionString =
  struct
    type nonrec t = string
    let context_ = "GetRequesterGatewayResponseDescriptionString"
    let make i =
      let open Result in
        ok_or_failwith (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:"GetRequesterGatewayResponseDescriptionString" j
    let to_json = simple_to_json to_value
  end
module GetRequesterGatewayResponseSecurityGroupIdsList =
  struct
    type nonrec t = SecurityGroupId.t list
    let make i =
      let open Result in ok_or_failwith (check_list_min i ~min:1); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:SecurityGroupId.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:SecurityGroupId.of_xml)
    let of_json j =
      list_of_json ~kind:"GetRequesterGatewayResponseSecurityGroupIdsList"
        ~of_json:SecurityGroupId.of_json j
    let to_json v = composed_to_json to_value v
  end
module GetRequesterGatewayResponseSubnetIdsList =
  struct
    type nonrec t = SubnetId.t list
    let make i =
      let open Result in ok_or_failwith (check_list_min i ~min:1); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:SubnetId.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:SubnetId.of_xml)
    let of_json j =
      list_of_json ~kind:"GetRequesterGatewayResponseSubnetIdsList"
        ~of_json:SubnetId.of_json j
    let to_json v = composed_to_json to_value v
  end
module Boolean =
  struct
    type nonrec t = bool
    let make i = i
    let of_string = Bool.of_string
    let to_value x = `Boolean x
    let to_query v = to_query to_value v
    let to_header x = Bool.to_string x
    let of_xml xml_arg0 =
      Bool.of_string (string_of_xml ~kind:"a boolean" xml_arg0)
    let of_json = bool_of_json
    let to_json = simple_to_json to_value
  end
module CreateResponderGatewayRequestDescriptionString =
  struct
    type nonrec t = string
    let context_ = "CreateResponderGatewayRequestDescriptionString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:255) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"([\\p{L}\\p{Z}\\p{N}_.:/=+\\-@]*)")));
        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:"CreateResponderGatewayRequestDescriptionString" j
    let to_json = simple_to_json to_value
  end
module CreateResponderGatewayRequestPortInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:65535) >>=
             (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml
           ~kind:"an integer for CreateResponderGatewayRequestPortInteger"
           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 CreateResponderGatewayRequestSecurityGroupIdsList =
  struct
    type nonrec t = SecurityGroupId.t list
    let make i =
      let open Result in ok_or_failwith (check_list_min i ~min:1); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:SecurityGroupId.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:SecurityGroupId.of_xml)
    let of_json j =
      list_of_json ~kind:"CreateResponderGatewayRequestSecurityGroupIdsList"
        ~of_json:SecurityGroupId.of_json j
    let to_json v = composed_to_json to_value v
  end
module CreateResponderGatewayRequestSubnetIdsList =
  struct
    type nonrec t = SubnetId.t list
    let make i =
      let open Result in ok_or_failwith (check_list_min i ~min:1); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:SubnetId.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:SubnetId.of_xml)
    let of_json j =
      list_of_json ~kind:"CreateResponderGatewayRequestSubnetIdsList"
        ~of_json:SubnetId.of_json j
    let to_json v = composed_to_json to_value v
  end
module CreateRequesterGatewayRequestDescriptionString =
  struct
    type nonrec t = string
    let context_ = "CreateRequesterGatewayRequestDescriptionString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:255) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"([\\p{L}\\p{Z}\\p{N}_.:/=+\\-@]*)")));
        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:"CreateRequesterGatewayRequestDescriptionString" j
    let to_json = simple_to_json to_value
  end
module CreateRequesterGatewayRequestSecurityGroupIdsList =
  struct
    type nonrec t = SecurityGroupId.t list
    let make i =
      let open Result in ok_or_failwith (check_list_min i ~min:1); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:SecurityGroupId.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:SecurityGroupId.of_xml)
    let of_json j =
      list_of_json ~kind:"CreateRequesterGatewayRequestSecurityGroupIdsList"
        ~of_json:SecurityGroupId.of_json j
    let to_json v = composed_to_json to_value v
  end
module CreateRequesterGatewayRequestSubnetIdsList =
  struct
    type nonrec t = SubnetId.t list
    let make i =
      let open Result in ok_or_failwith (check_list_min i ~min:1); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:SubnetId.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:SubnetId.of_xml)
    let of_json j =
      list_of_json ~kind:"CreateRequesterGatewayRequestSubnetIdsList"
        ~of_json:SubnetId.of_json j
    let to_json v = composed_to_json to_value v
  end
module CreateLinkResponseCustomerProvidedIdString =
  struct
    type nonrec t = string
    let context_ = "CreateLinkResponseCustomerProvidedIdString"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[a-zA-Z0-9_-]{5,50}"); 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:"CreateLinkResponseCustomerProvidedIdString" j
    let to_json = simple_to_json to_value
  end
module UpdateResponderGatewayResponse =
  struct
    type nonrec t =
      {
      gatewayId: GatewayId.t option
        [@ocaml.doc "The unique identifier of the gateway."];
      status: ResponderGatewayStatus.t option
        [@ocaml.doc "The status of the request."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayId = fun ?status -> fun () -> { gatewayId; status }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("gatewayId", (Option.map x.gatewayId ~f:GatewayId.to_value));
        ("status", (Option.map x.status ~f:ResponderGatewayStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:ResponderGatewayStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let gatewayId =
        (Option.map ~f:GatewayId.of_xml) (Xml.child xml_arg0 "gatewayId") in
      make ?status ?gatewayId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" ResponderGatewayStatus.of_json in
      let gatewayId = field_map json__ "gatewayId" GatewayId.of_json in
      make ?status ?gatewayId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a responder gateway."]
module UpdateResponderGatewayRequest =
  struct
    type nonrec t =
      {
      domainName: DomainName.t option
        [@ocaml.doc "The domain name for the responder gateway."];
      port: UpdateResponderGatewayRequestPortInteger.t
        [@ocaml.doc "The networking port to use."];
      protocol: Protocol.t [@ocaml.doc "The networking protocol to use."];
      listenerConfig: ListenerConfig.t option
        [@ocaml.doc "The listener configuration for the responder gateway."];
      trustStoreConfiguration: TrustStoreConfiguration.t option
        [@ocaml.doc "The configuration of the trust store."];
      managedEndpointConfiguration: ManagedEndpointConfiguration.t option
        [@ocaml.doc "The configuration for the managed endpoint."];
      clientToken: String_.t [@ocaml.doc "The unique client token."];
      gatewayId: GatewayId.t
        [@ocaml.doc "The unique identifier of the gateway."];
      description: UpdateResponderGatewayRequestDescriptionString.t option
        [@ocaml.doc "An optional description for the responder gateway."]}
    let context_ = "UpdateResponderGatewayRequest"
    let make ?domainName =
      fun ?listenerConfig ->
        fun ?trustStoreConfiguration ->
          fun ?managedEndpointConfiguration ->
            fun ?description ->
              fun ~port ->
                fun ~protocol ->
                  fun ~clientToken ->
                    fun ~gatewayId ->
                      fun () ->
                        {
                          domainName;
                          listenerConfig;
                          trustStoreConfiguration;
                          managedEndpointConfiguration;
                          description;
                          port;
                          protocol;
                          clientToken;
                          gatewayId
                        }
    let to_value x =
      structure_to_value
        [("domainName", (Option.map x.domainName ~f:DomainName.to_value));
        ("port",
          (Some (UpdateResponderGatewayRequestPortInteger.to_value x.port)));
        ("protocol", (Some (Protocol.to_value x.protocol)));
        ("listenerConfig",
          (Option.map x.listenerConfig ~f:ListenerConfig.to_value));
        ("trustStoreConfiguration",
          (Option.map x.trustStoreConfiguration
             ~f:TrustStoreConfiguration.to_value));
        ("managedEndpointConfiguration",
          (Option.map x.managedEndpointConfiguration
             ~f:ManagedEndpointConfiguration.to_value));
        ("clientToken", (Some (String_.to_value x.clientToken)));
        ("gatewayId", (Some (GatewayId.to_value x.gatewayId)));
        ("description",
          (Option.map x.description
             ~f:UpdateResponderGatewayRequestDescriptionString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let description =
        (Option.map ~f:UpdateResponderGatewayRequestDescriptionString.of_xml)
          (Xml.child xml_arg0 "description") in
      let gatewayId =
        GatewayId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "gatewayId") in
      let clientToken =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "clientToken") in
      let managedEndpointConfiguration =
        (Option.map ~f:ManagedEndpointConfiguration.of_xml)
          (Xml.child xml_arg0 "managedEndpointConfiguration") in
      let trustStoreConfiguration =
        (Option.map ~f:TrustStoreConfiguration.of_xml)
          (Xml.child xml_arg0 "trustStoreConfiguration") in
      let listenerConfig =
        (Option.map ~f:ListenerConfig.of_xml)
          (Xml.child xml_arg0 "listenerConfig") in
      let protocol =
        Protocol.of_xml (Xml.child_exn ~context:context_ xml_arg0 "protocol") in
      let port =
        UpdateResponderGatewayRequestPortInteger.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "port") in
      let domainName =
        (Option.map ~f:DomainName.of_xml) (Xml.child xml_arg0 "domainName") in
      make ?description ~gatewayId ~clientToken ?managedEndpointConfiguration
        ?trustStoreConfiguration ?listenerConfig ~protocol ~port ?domainName
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let description =
        field_map json__ "description"
          UpdateResponderGatewayRequestDescriptionString.of_json in
      let gatewayId = field_map_exn json__ "gatewayId" GatewayId.of_json in
      let clientToken = field_map_exn json__ "clientToken" String_.of_json in
      let managedEndpointConfiguration =
        field_map json__ "managedEndpointConfiguration"
          ManagedEndpointConfiguration.of_json in
      let trustStoreConfiguration =
        field_map json__ "trustStoreConfiguration"
          TrustStoreConfiguration.of_json in
      let listenerConfig =
        field_map json__ "listenerConfig" ListenerConfig.of_json in
      let protocol = field_map_exn json__ "protocol" Protocol.of_json in
      let port =
        field_map_exn json__ "port"
          UpdateResponderGatewayRequestPortInteger.of_json in
      let domainName = field_map json__ "domainName" DomainName.of_json in
      make ?description ~gatewayId ~clientToken ?managedEndpointConfiguration
        ?trustStoreConfiguration ?listenerConfig ~protocol ~port ?domainName
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a responder gateway."]
module UpdateRequesterGatewayResponse =
  struct
    type nonrec t =
      {
      gatewayId: GatewayId.t option
        [@ocaml.doc "The unique identifier of the gateway."];
      status: RequesterGatewayStatus.t option
        [@ocaml.doc "The status of the request."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayId = fun ?status -> fun () -> { gatewayId; status }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("gatewayId", (Option.map x.gatewayId ~f:GatewayId.to_value));
        ("status", (Option.map x.status ~f:RequesterGatewayStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:RequesterGatewayStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let gatewayId =
        (Option.map ~f:GatewayId.of_xml) (Xml.child xml_arg0 "gatewayId") in
      make ?status ?gatewayId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" RequesterGatewayStatus.of_json in
      let gatewayId = field_map json__ "gatewayId" GatewayId.of_json in
      make ?status ?gatewayId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a requester gateway."]
module UpdateRequesterGatewayRequest =
  struct
    type nonrec t =
      {
      clientToken: String_.t [@ocaml.doc "The unique client token."];
      gatewayId: GatewayId.t
        [@ocaml.doc "The unique identifier of the gateway."];
      description: UpdateRequesterGatewayRequestDescriptionString.t option
        [@ocaml.doc "An optional description for the requester gateway."]}
    let context_ = "UpdateRequesterGatewayRequest"
    let make ?description =
      fun ~clientToken ->
        fun ~gatewayId -> fun () -> { description; clientToken; gatewayId }
    let to_value x =
      structure_to_value
        [("clientToken", (Some (String_.to_value x.clientToken)));
        ("gatewayId", (Some (GatewayId.to_value x.gatewayId)));
        ("description",
          (Option.map x.description
             ~f:UpdateRequesterGatewayRequestDescriptionString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let description =
        (Option.map ~f:UpdateRequesterGatewayRequestDescriptionString.of_xml)
          (Xml.child xml_arg0 "description") in
      let gatewayId =
        GatewayId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "gatewayId") in
      let clientToken =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "clientToken") in
      make ?description ~gatewayId ~clientToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let description =
        field_map json__ "description"
          UpdateRequesterGatewayRequestDescriptionString.of_json in
      let gatewayId = field_map_exn json__ "gatewayId" GatewayId.of_json in
      let clientToken = field_map_exn json__ "clientToken" String_.of_json in
      make ?description ~gatewayId ~clientToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a requester gateway."]
module UpdateLinkRoutingRuleResponse =
  struct
    type nonrec t =
      {
      ruleId: RuleId.t option
        [@ocaml.doc "The unique identifier of the routing rule."];
      status: RuleStatus.t option
        [@ocaml.doc "The status of the routing rule."];
      updatedAt: Timestamp.t option
        [@ocaml.doc
          "The timestamp of when the routing rule was last updated."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?ruleId =
      fun ?status ->
        fun ?updatedAt -> fun () -> { ruleId; status; updatedAt }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ruleId", (Option.map x.ruleId ~f:RuleId.to_value));
        ("status", (Option.map x.status ~f:RuleStatus.to_value));
        ("updatedAt", (Option.map x.updatedAt ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updatedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "updatedAt") in
      let status =
        (Option.map ~f:RuleStatus.of_xml) (Xml.child xml_arg0 "status") in
      let ruleId =
        (Option.map ~f:RuleId.of_xml) (Xml.child xml_arg0 "ruleId") in
      make ?updatedAt ?status ?ruleId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updatedAt = field_map json__ "updatedAt" Timestamp.of_json in
      let status = field_map json__ "status" RuleStatus.of_json in
      let ruleId = field_map json__ "ruleId" RuleId.of_json in
      make ?updatedAt ?status ?ruleId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a routing rule for a link."]
module UpdateLinkRoutingRuleRequest =
  struct
    type nonrec t =
      {
      gatewayId: GatewayId.t
        [@ocaml.doc "The unique identifier of the gateway."];
      linkId: LinkId.t [@ocaml.doc "The unique identifier of the link."];
      ruleId: RuleId.t
        [@ocaml.doc "The unique identifier of the routing rule."];
      priority: RulePriority.t
        [@ocaml.doc
          "The updated priority of the routing rule. Lower numbers are evaluated first. Valid values are 1 to 1000. Priority must be unique among non-deleted rules within a link."];
      conditions: RuleCondition.t
        [@ocaml.doc
          "The updated conditions for the routing rule. All specified fields must match for the rule to apply. At least one condition field must be set."]}
    let context_ = "UpdateLinkRoutingRuleRequest"
    let make ~gatewayId =
      fun ~linkId ->
        fun ~ruleId ->
          fun ~priority ->
            fun ~conditions ->
              fun () -> { gatewayId; linkId; ruleId; priority; conditions }
    let to_value x =
      structure_to_value
        [("gatewayId", (Some (GatewayId.to_value x.gatewayId)));
        ("linkId", (Some (LinkId.to_value x.linkId)));
        ("ruleId", (Some (RuleId.to_value x.ruleId)));
        ("priority", (Some (RulePriority.to_value x.priority)));
        ("conditions", (Some (RuleCondition.to_value x.conditions)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let conditions =
        RuleCondition.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "conditions") in
      let priority =
        RulePriority.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "priority") in
      let ruleId =
        RuleId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "ruleId") in
      let linkId =
        LinkId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "linkId") in
      let gatewayId =
        GatewayId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "gatewayId") in
      make ~conditions ~priority ~ruleId ~linkId ~gatewayId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let conditions =
        field_map_exn json__ "conditions" RuleCondition.of_json in
      let priority = field_map_exn json__ "priority" RulePriority.of_json in
      let ruleId = field_map_exn json__ "ruleId" RuleId.of_json in
      let linkId = field_map_exn json__ "linkId" LinkId.of_json in
      let gatewayId = field_map_exn json__ "gatewayId" GatewayId.of_json in
      make ~conditions ~priority ~ruleId ~linkId ~gatewayId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a routing rule for a link."]
module UpdateLinkResponse =
  struct
    type nonrec t =
      {
      linkId: LinkId.t option
        [@ocaml.doc "The unique identifier of the link."];
      status: LinkStatus.t option [@ocaml.doc "The status of the request."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?linkId = fun ?status -> fun () -> { linkId; status }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("linkId", (Option.map x.linkId ~f:LinkId.to_value));
        ("status", (Option.map x.status ~f:LinkStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:LinkStatus.of_xml) (Xml.child xml_arg0 "status") in
      let linkId =
        (Option.map ~f:LinkId.of_xml) (Xml.child xml_arg0 "linkId") in
      make ?status ?linkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" LinkStatus.of_json in
      let linkId = field_map json__ "linkId" LinkId.of_json in
      make ?status ?linkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the configuration of a link between gateways. Allows you to modify settings and parameters for an existing link."]
module UpdateLinkRequest =
  struct
    type nonrec t =
      {
      gatewayId: GatewayId.t
        [@ocaml.doc "The unique identifier of the gateway."];
      linkId: LinkId.t [@ocaml.doc "The unique identifier of the link."];
      logSettings: LinkLogSettings.t option
        [@ocaml.doc "Settings for the application logs."];
      timeoutInMillis: LinkTimeoutInMillis.t option
        [@ocaml.doc "The timeout value in milliseconds."]}
    let context_ = "UpdateLinkRequest"
    let make ?logSettings =
      fun ?timeoutInMillis ->
        fun ~gatewayId ->
          fun ~linkId ->
            fun () -> { logSettings; timeoutInMillis; gatewayId; linkId }
    let to_value x =
      structure_to_value
        [("gatewayId", (Some (GatewayId.to_value x.gatewayId)));
        ("linkId", (Some (LinkId.to_value x.linkId)));
        ("logSettings",
          (Option.map x.logSettings ~f:LinkLogSettings.to_value));
        ("timeoutInMillis",
          (Option.map x.timeoutInMillis ~f:LinkTimeoutInMillis.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let timeoutInMillis =
        (Option.map ~f:LinkTimeoutInMillis.of_xml)
          (Xml.child xml_arg0 "timeoutInMillis") in
      let logSettings =
        (Option.map ~f:LinkLogSettings.of_xml)
          (Xml.child xml_arg0 "logSettings") in
      let linkId =
        LinkId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "linkId") in
      let gatewayId =
        GatewayId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "gatewayId") in
      make ?timeoutInMillis ?logSettings ~linkId ~gatewayId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let timeoutInMillis =
        field_map json__ "timeoutInMillis" LinkTimeoutInMillis.of_json in
      let logSettings =
        field_map json__ "logSettings" LinkLogSettings.of_json in
      let linkId = field_map_exn json__ "linkId" LinkId.of_json in
      let gatewayId = field_map_exn json__ "gatewayId" GatewayId.of_json in
      make ?timeoutInMillis ?logSettings ~linkId ~gatewayId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the configuration of a link between gateways. Allows you to modify settings and parameters for an existing link."]
module UpdateLinkModuleFlowResponse =
  struct
    type nonrec t =
      {
      gatewayId: GatewayId.t option
        [@ocaml.doc "The unique identifier of the gateway."];
      linkId: LinkId.t option
        [@ocaml.doc "The unique identifier of the link."];
      status: LinkStatus.t option [@ocaml.doc "The status of the request."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayId =
      fun ?linkId -> fun ?status -> fun () -> { gatewayId; linkId; status }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("gatewayId", (Option.map x.gatewayId ~f:GatewayId.to_value));
        ("linkId", (Option.map x.linkId ~f:LinkId.to_value));
        ("status", (Option.map x.status ~f:LinkStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:LinkStatus.of_xml) (Xml.child xml_arg0 "status") in
      let linkId =
        (Option.map ~f:LinkId.of_xml) (Xml.child xml_arg0 "linkId") in
      let gatewayId =
        (Option.map ~f:GatewayId.of_xml) (Xml.child xml_arg0 "gatewayId") in
      make ?status ?linkId ?gatewayId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" LinkStatus.of_json in
      let linkId = field_map json__ "linkId" LinkId.of_json in
      let gatewayId = field_map json__ "gatewayId" GatewayId.of_json in
      make ?status ?linkId ?gatewayId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a link module flow."]
module UpdateLinkModuleFlowRequest =
  struct
    type nonrec t =
      {
      clientToken: String_.t [@ocaml.doc "The unique client token."];
      gatewayId: GatewayId.t
        [@ocaml.doc "The unique identifier of the gateway."];
      linkId: LinkId.t [@ocaml.doc "The unique identifier of the link."];
      modules: ModuleConfigurationList.t
        [@ocaml.doc "The configuration of a module."]}
    let context_ = "UpdateLinkModuleFlowRequest"
    let make ~clientToken =
      fun ~gatewayId ->
        fun ~linkId ->
          fun ~modules ->
            fun () -> { clientToken; gatewayId; linkId; modules }
    let to_value x =
      structure_to_value
        [("clientToken", (Some (String_.to_value x.clientToken)));
        ("gatewayId", (Some (GatewayId.to_value x.gatewayId)));
        ("linkId", (Some (LinkId.to_value x.linkId)));
        ("modules", (Some (ModuleConfigurationList.to_value x.modules)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let modules =
        ModuleConfigurationList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "modules") in
      let linkId =
        LinkId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "linkId") in
      let gatewayId =
        GatewayId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "gatewayId") in
      let clientToken =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "clientToken") in
      make ~modules ~linkId ~gatewayId ~clientToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let modules =
        field_map_exn json__ "modules" ModuleConfigurationList.of_json in
      let linkId = field_map_exn json__ "linkId" LinkId.of_json in
      let gatewayId = field_map_exn json__ "gatewayId" GatewayId.of_json in
      let clientToken = field_map_exn json__ "clientToken" String_.of_json in
      make ~modules ~linkId ~gatewayId ~clientToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a link module flow."]
module UntagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Removes a tag or tags from a resource."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: RtbTaggableResourceArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource that you want to untag."];
      tagKeys: TagKeyList.t
        [@ocaml.doc
          "The keys of the key-value pairs for the tag or tags you want to remove from the specified resource."]}
    let context_ = "UntagResourceRequest"
    let make ~resourceArn =
      fun ~tagKeys -> fun () -> { resourceArn; tagKeys }
    let to_value x =
      structure_to_value
        [("resourceArn",
           (Some (RtbTaggableResourceArn.to_value x.resourceArn)));
        ("tagKeys", (Some (TagKeyList.to_value x.tagKeys)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagKeys =
        TagKeyList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tagKeys") in
      let resourceArn =
        RtbTaggableResourceArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~tagKeys ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagKeys = field_map_exn json__ "tagKeys" TagKeyList.of_json in
      let resourceArn =
        field_map_exn json__ "resourceArn" RtbTaggableResourceArn.of_json in
      make ~tagKeys ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Removes a tag or tags from a resource."]
module TagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Assigns one or more tags (key-value pairs) to the specified resource."]
module TagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: RtbTaggableResourceArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource that you want to tag."];
      tags: TagsMap.t
        [@ocaml.doc
          "A map of the key-value pairs of the tag or tags to assign to the resource."]}
    let context_ = "TagResourceRequest"
    let make ~resourceArn = fun ~tags -> fun () -> { resourceArn; tags }
    let to_value x =
      structure_to_value
        [("resourceArn",
           (Some (RtbTaggableResourceArn.to_value x.resourceArn)));
        ("tags", (Some (TagsMap.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        TagsMap.of_xml (Xml.child_exn ~context:context_ xml_arg0 "tags") in
      let resourceArn =
        RtbTaggableResourceArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~tags ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map_exn json__ "tags" TagsMap.of_json in
      let resourceArn =
        field_map_exn json__ "resourceArn" RtbTaggableResourceArn.of_json in
      make ~tags ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Assigns one or more tags (key-value pairs) to the specified resource."]
module RejectLinkResponse =
  struct
    type nonrec t =
      {
      gatewayId: GatewayId.t option
        [@ocaml.doc "The unique identifier of the gateway."];
      peerGatewayId: GatewayId.t option
        [@ocaml.doc "The unique identifier of the peer gateway."];
      status: LinkStatus.t option [@ocaml.doc "The status of the link."];
      createdAt: Timestamp.t option
        [@ocaml.doc "The timestamp of when the link was created."];
      updatedAt: Timestamp.t option
        [@ocaml.doc "The timestamp of when the link was updated."];
      direction: LinkDirection.t option
        [@ocaml.doc "The direction of the link."];
      flowModules: ModuleConfigurationList.t option
        [@ocaml.doc "The configuration of flow modules."];
      pendingFlowModules: ModuleConfigurationList.t option
        [@ocaml.doc "The configuration of pending flow modules."];
      attributes: LinkAttributes.t option
        [@ocaml.doc "Attributes of the link."];
      logSettings: LinkLogSettings.t option ;
      connectivityType: ConnectivityType.t option
        [@ocaml.doc "The connectivity type of the link."];
      linkId: LinkId.t option
        [@ocaml.doc "The unique identifier of the link."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayId =
      fun ?peerGatewayId ->
        fun ?status ->
          fun ?createdAt ->
            fun ?updatedAt ->
              fun ?direction ->
                fun ?flowModules ->
                  fun ?pendingFlowModules ->
                    fun ?attributes ->
                      fun ?logSettings ->
                        fun ?connectivityType ->
                          fun ?linkId ->
                            fun () ->
                              {
                                gatewayId;
                                peerGatewayId;
                                status;
                                createdAt;
                                updatedAt;
                                direction;
                                flowModules;
                                pendingFlowModules;
                                attributes;
                                logSettings;
                                connectivityType;
                                linkId
                              }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("gatewayId", (Option.map x.gatewayId ~f:GatewayId.to_value));
        ("peerGatewayId", (Option.map x.peerGatewayId ~f:GatewayId.to_value));
        ("status", (Option.map x.status ~f:LinkStatus.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("updatedAt", (Option.map x.updatedAt ~f:Timestamp.to_value));
        ("direction", (Option.map x.direction ~f:LinkDirection.to_value));
        ("flowModules",
          (Option.map x.flowModules ~f:ModuleConfigurationList.to_value));
        ("pendingFlowModules",
          (Option.map x.pendingFlowModules
             ~f:ModuleConfigurationList.to_value));
        ("attributes", (Option.map x.attributes ~f:LinkAttributes.to_value));
        ("logSettings",
          (Option.map x.logSettings ~f:LinkLogSettings.to_value));
        ("connectivityType",
          (Option.map x.connectivityType ~f:ConnectivityType.to_value));
        ("linkId", (Option.map x.linkId ~f:LinkId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let linkId =
        (Option.map ~f:LinkId.of_xml) (Xml.child xml_arg0 "linkId") in
      let connectivityType =
        (Option.map ~f:ConnectivityType.of_xml)
          (Xml.child xml_arg0 "connectivityType") in
      let logSettings =
        (Option.map ~f:LinkLogSettings.of_xml)
          (Xml.child xml_arg0 "logSettings") in
      let attributes =
        (Option.map ~f:LinkAttributes.of_xml)
          (Xml.child xml_arg0 "attributes") in
      let pendingFlowModules =
        (Option.map ~f:ModuleConfigurationList.of_xml)
          (Xml.child xml_arg0 "pendingFlowModules") in
      let flowModules =
        (Option.map ~f:ModuleConfigurationList.of_xml)
          (Xml.child xml_arg0 "flowModules") in
      let direction =
        (Option.map ~f:LinkDirection.of_xml) (Xml.child xml_arg0 "direction") in
      let updatedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "updatedAt") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let status =
        (Option.map ~f:LinkStatus.of_xml) (Xml.child xml_arg0 "status") in
      let peerGatewayId =
        (Option.map ~f:GatewayId.of_xml) (Xml.child xml_arg0 "peerGatewayId") in
      let gatewayId =
        (Option.map ~f:GatewayId.of_xml) (Xml.child xml_arg0 "gatewayId") in
      make ?linkId ?connectivityType ?logSettings ?attributes
        ?pendingFlowModules ?flowModules ?direction ?updatedAt ?createdAt
        ?status ?peerGatewayId ?gatewayId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let linkId = field_map json__ "linkId" LinkId.of_json in
      let connectivityType =
        field_map json__ "connectivityType" ConnectivityType.of_json in
      let logSettings =
        field_map json__ "logSettings" LinkLogSettings.of_json in
      let attributes = field_map json__ "attributes" LinkAttributes.of_json in
      let pendingFlowModules =
        field_map json__ "pendingFlowModules" ModuleConfigurationList.of_json in
      let flowModules =
        field_map json__ "flowModules" ModuleConfigurationList.of_json in
      let direction = field_map json__ "direction" LinkDirection.of_json in
      let updatedAt = field_map json__ "updatedAt" Timestamp.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let status = field_map json__ "status" LinkStatus.of_json in
      let peerGatewayId = field_map json__ "peerGatewayId" GatewayId.of_json in
      let gatewayId = field_map json__ "gatewayId" GatewayId.of_json in
      make ?linkId ?connectivityType ?logSettings ?attributes
        ?pendingFlowModules ?flowModules ?direction ?updatedAt ?createdAt
        ?status ?peerGatewayId ?gatewayId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Rejects a link request between gateways. When a requester gateway requests to link with a responder gateway, the responder can use this operation to decline the link request."]
module RejectLinkRequest =
  struct
    type nonrec t =
      {
      gatewayId: GatewayId.t
        [@ocaml.doc "The unique identifier of the gateway."];
      linkId: LinkId.t [@ocaml.doc "The unique identifier of the link."]}
    let context_ = "RejectLinkRequest"
    let make ~gatewayId = fun ~linkId -> fun () -> { gatewayId; linkId }
    let to_value x =
      structure_to_value
        [("gatewayId", (Some (GatewayId.to_value x.gatewayId)));
        ("linkId", (Some (LinkId.to_value x.linkId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let linkId =
        LinkId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "linkId") in
      let gatewayId =
        GatewayId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "gatewayId") in
      make ~linkId ~gatewayId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let linkId = field_map_exn json__ "linkId" LinkId.of_json in
      let gatewayId = field_map_exn json__ "gatewayId" GatewayId.of_json in
      make ~linkId ~gatewayId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Rejects a link request between gateways. When a requester gateway requests to link with a responder gateway, the responder can use this operation to decline the link request."]
module ListTagsForResourceResponse =
  struct
    type nonrec t =
      {
      tags: TagsMap.t option
        [@ocaml.doc
          "A map of the key-value pairs for the tag or tags assigned to the specified resource."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tags = fun () -> { tags }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value [("tags", (Option.map x.tags ~f:TagsMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagsMap.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" TagsMap.of_json in make ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists tags for a resource."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: RtbTaggableResourceArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource for which you want to retrieve tags."]}
    let context_ = "ListTagsForResourceRequest"
    let make ~resourceArn = fun () -> { resourceArn }
    let to_value x =
      structure_to_value
        [("resourceArn",
           (Some (RtbTaggableResourceArn.to_value x.resourceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        RtbTaggableResourceArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceArn =
        field_map_exn json__ "resourceArn" RtbTaggableResourceArn.of_json in
      make ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists tags for a resource."]
module ListResponderGatewaysResponse =
  struct
    type nonrec t =
      {
      gatewayIds: GatewayIdList.t option
        [@ocaml.doc "The unique identifier of the gateways."];
      nextToken: String_.t option
        [@ocaml.doc
          "If nextToken is returned, there are more results available. The value of nextToken is a unique pagination token for each page. Make the call again using the returned token to retrieve the next page. Keep all other arguments unchanged. Each pagination token expires after 24 hours. Using an expired pagination token will return an HTTP 400 InvalidToken error."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayIds =
      fun ?nextToken -> fun () -> { gatewayIds; nextToken }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("gatewayIds", (Option.map x.gatewayIds ~f:GatewayIdList.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 gatewayIds =
        (Option.map ~f:GatewayIdList.of_xml)
          (Xml.child xml_arg0 "gatewayIds") in
      make ?nextToken ?gatewayIds ()
    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 gatewayIds = field_map json__ "gatewayIds" GatewayIdList.of_json in
      make ?nextToken ?gatewayIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists reponder gateways."]
module ListResponderGatewaysRequest =
  struct
    type nonrec t =
      {
      maxResults: ListResponderGatewaysRequestMaxResultsInteger.t option
        [@ocaml.doc
          "The maximum number of results that are returned per call. You can use nextToken to obtain further pages of results. This is only an upper limit. The actual number of results returned per call might be fewer than the specified maximum."];
      nextToken: String_.t option
        [@ocaml.doc
          "If nextToken is returned, there are more results available. The value of nextToken is a unique pagination token for each page. Make the call again using the returned token to retrieve the next page. Keep all other arguments unchanged. Each pagination token expires after 24 hours. Using an expired pagination token will return an HTTP 400 InvalidToken error."]}
    let make ?maxResults =
      fun ?nextToken -> fun () -> { maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("maxResults",
           (Option.map x.maxResults
              ~f:ListResponderGatewaysRequestMaxResultsInteger.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 maxResults =
        (Option.map ~f:ListResponderGatewaysRequestMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      make ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let maxResults =
        field_map json__ "maxResults"
          ListResponderGatewaysRequestMaxResultsInteger.of_json in
      make ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists reponder gateways."]
module ListRequesterGatewaysResponse =
  struct
    type nonrec t =
      {
      gatewayIds: GatewayIdList.t option
        [@ocaml.doc "The unique identifier of the gateways."];
      nextToken: String_.t option
        [@ocaml.doc
          "If nextToken is returned, there are more results available. The value of nextToken is a unique pagination token for each page. Make the call again using the returned token to retrieve the next page. Keep all other arguments unchanged. Each pagination token expires after 24 hours. Using an expired pagination token will return an HTTP 400 InvalidToken error."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayIds =
      fun ?nextToken -> fun () -> { gatewayIds; nextToken }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("gatewayIds", (Option.map x.gatewayIds ~f:GatewayIdList.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 gatewayIds =
        (Option.map ~f:GatewayIdList.of_xml)
          (Xml.child xml_arg0 "gatewayIds") in
      make ?nextToken ?gatewayIds ()
    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 gatewayIds = field_map json__ "gatewayIds" GatewayIdList.of_json in
      make ?nextToken ?gatewayIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists requester gateways."]
module ListRequesterGatewaysRequest =
  struct
    type nonrec t =
      {
      maxResults: ListRequesterGatewaysRequestMaxResultsInteger.t option
        [@ocaml.doc
          "The maximum number of results that are returned per call. You can use nextToken to obtain further pages of results. This is only an upper limit. The actual number of results returned per call might be fewer than the specified maximum."];
      nextToken: String_.t option
        [@ocaml.doc
          "If nextToken is returned, there are more results available. The value of nextToken is a unique pagination token for each page. Make the call again using the returned token to retrieve the next page. Keep all other arguments unchanged. Each pagination token expires after 24 hours. Using an expired pagination token will return an HTTP 400 InvalidToken error."]}
    let make ?maxResults =
      fun ?nextToken -> fun () -> { maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("maxResults",
           (Option.map x.maxResults
              ~f:ListRequesterGatewaysRequestMaxResultsInteger.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 maxResults =
        (Option.map ~f:ListRequesterGatewaysRequestMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      make ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let maxResults =
        field_map json__ "maxResults"
          ListRequesterGatewaysRequestMaxResultsInteger.of_json in
      make ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists requester gateways."]
module ListLinksResponse =
  struct
    type nonrec t =
      {
      links: LinkList.t option
        [@ocaml.doc "Information about created links."];
      nextToken: String_.t option
        [@ocaml.doc
          "If nextToken is returned, there are more results available. The value of nextToken is a unique pagination token for each page. Make the call again using the returned token to retrieve the next page. Keep all other arguments unchanged. Each pagination token expires after 24 hours. Using an expired pagination token will return an HTTP 400 InvalidToken error."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?links = fun ?nextToken -> fun () -> { links; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("links", (Option.map x.links ~f:LinkList.to_value));
        ("nextToken", (Option.map x.nextToken ~f: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 links =
        (Option.map ~f:LinkList.of_xml) (Xml.child xml_arg0 "links") in
      make ?nextToken ?links ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let links = field_map json__ "links" LinkList.of_json in
      make ?nextToken ?links ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists links associated with gateways. Returns a list of all links for the specified gateways, including their status and configuration details."]
module ListLinksRequest =
  struct
    type nonrec t =
      {
      gatewayId: GatewayId.t
        [@ocaml.doc "The unique identifier of the gateway."];
      nextToken: String_.t option
        [@ocaml.doc
          "If nextToken is returned, there are more results available. The value of nextToken is a unique pagination token for each page. Make the call again using the returned token to retrieve the next page. Keep all other arguments unchanged. Each pagination token expires after 24 hours. Using an expired pagination token will return an HTTP 400 InvalidToken error."];
      maxResults: Integer.t option
        [@ocaml.doc
          "The maximum number of results that are returned per call. You can use nextToken to obtain further pages of results. This is only an upper limit. The actual number of results returned per call might be fewer than the specified maximum."]}
    let context_ = "ListLinksRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~gatewayId -> fun () -> { nextToken; maxResults; gatewayId }
    let to_value x =
      structure_to_value
        [("gatewayId", (Some (GatewayId.to_value x.gatewayId)));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("maxResults", (Option.map x.maxResults ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let gatewayId =
        GatewayId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "gatewayId") in
      make ?maxResults ?nextToken ~gatewayId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" Integer.of_json in
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let gatewayId = field_map_exn json__ "gatewayId" GatewayId.of_json in
      make ?maxResults ?nextToken ~gatewayId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists links associated with gateways. Returns a list of all links for the specified gateways, including their status and configuration details."]
module ListLinkRoutingRulesResponse =
  struct
    type nonrec t =
      {
      rules: LinkRoutingRuleList.t option
        [@ocaml.doc "The list of routing rules for the link."];
      nextToken: String_.t option
        [@ocaml.doc
          "If nextToken is returned, there are more results available. The value of nextToken is a unique pagination token for each page. Make the call again using the returned token to retrieve the next page. Keep all other arguments unchanged. Each pagination token expires after 24 hours. Using an expired pagination token will return an HTTP 400 InvalidToken error."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?rules = fun ?nextToken -> fun () -> { rules; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("rules", (Option.map x.rules ~f:LinkRoutingRuleList.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 rules =
        (Option.map ~f:LinkRoutingRuleList.of_xml)
          (Xml.child xml_arg0 "rules") in
      make ?nextToken ?rules ()
    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 rules = field_map json__ "rules" LinkRoutingRuleList.of_json in
      make ?nextToken ?rules ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the routing rules for a link."]
module ListLinkRoutingRulesRequest =
  struct
    type nonrec t =
      {
      gatewayId: GatewayId.t
        [@ocaml.doc "The unique identifier of the gateway."];
      linkId: LinkId.t [@ocaml.doc "The unique identifier of the link."];
      nextToken: String_.t option
        [@ocaml.doc
          "If nextToken is returned, there are more results available. The value of nextToken is a unique pagination token for each page. Make the call again using the returned token to retrieve the next page. Keep all other arguments unchanged. Each pagination token expires after 24 hours. Using an expired pagination token will return an HTTP 400 InvalidToken error."];
      maxResults: ListLinkRoutingRulesRequestMaxResultsInteger.t option
        [@ocaml.doc
          "The maximum number of results that are returned per call. You can use nextToken to obtain further pages of results. This is only an upper limit. The actual number of results returned per call might be fewer than the specified maximum."]}
    let context_ = "ListLinkRoutingRulesRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~gatewayId ->
          fun ~linkId ->
            fun () -> { nextToken; maxResults; gatewayId; linkId }
    let to_value x =
      structure_to_value
        [("gatewayId", (Some (GatewayId.to_value x.gatewayId)));
        ("linkId", (Some (LinkId.to_value x.linkId)));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("maxResults",
          (Option.map x.maxResults
             ~f:ListLinkRoutingRulesRequestMaxResultsInteger.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:ListLinkRoutingRulesRequestMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let linkId =
        LinkId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "linkId") in
      let gatewayId =
        GatewayId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "gatewayId") in
      make ?maxResults ?nextToken ~linkId ~gatewayId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "maxResults"
          ListLinkRoutingRulesRequestMaxResultsInteger.of_json in
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let linkId = field_map_exn json__ "linkId" LinkId.of_json in
      let gatewayId = field_map_exn json__ "gatewayId" GatewayId.of_json in
      make ?maxResults ?nextToken ~linkId ~gatewayId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the routing rules for a link."]
module ListCertificateAssociationsResponse =
  struct
    type nonrec t =
      {
      certificateAssociations: CertificateAssociationSummaryList.t option
        [@ocaml.doc "The list of certificate associations for the gateway."];
      nextToken: String_.t option
        [@ocaml.doc
          "If nextToken is returned, there are more results available. The value of nextToken is a unique pagination token for each page. Make the call again using the returned token to retrieve the next page. Keep all other arguments unchanged. Each pagination token expires after 24 hours. Using an expired pagination token will return an HTTP 400 InvalidToken error."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?certificateAssociations =
      fun ?nextToken -> fun () -> { certificateAssociations; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("certificateAssociations",
           (Option.map x.certificateAssociations
              ~f:CertificateAssociationSummaryList.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 certificateAssociations =
        (Option.map ~f:CertificateAssociationSummaryList.of_xml)
          (Xml.child xml_arg0 "certificateAssociations") in
      make ?nextToken ?certificateAssociations ()
    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 certificateAssociations =
        field_map json__ "certificateAssociations"
          CertificateAssociationSummaryList.of_json in
      make ?nextToken ?certificateAssociations ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the certificate associations for a responder gateway."]
module ListCertificateAssociationsRequest =
  struct
    type nonrec t =
      {
      gatewayId: GatewayId.t
        [@ocaml.doc "The unique identifier of the gateway."];
      nextToken: String_.t option
        [@ocaml.doc
          "If nextToken is returned, there are more results available. The value of nextToken is a unique pagination token for each page. Make the call again using the returned token to retrieve the next page. Keep all other arguments unchanged. Each pagination token expires after 24 hours. Using an expired pagination token will return an HTTP 400 InvalidToken error."];
      maxResults:
        ListCertificateAssociationsRequestMaxResultsInteger.t option
        [@ocaml.doc
          "The maximum number of results that are returned per call. You can use nextToken to obtain further pages of results. This is only an upper limit. The actual number of results returned per call might be fewer than the specified maximum."]}
    let context_ = "ListCertificateAssociationsRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~gatewayId -> fun () -> { nextToken; maxResults; gatewayId }
    let to_value x =
      structure_to_value
        [("gatewayId", (Some (GatewayId.to_value x.gatewayId)));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("maxResults",
          (Option.map x.maxResults
             ~f:ListCertificateAssociationsRequestMaxResultsInteger.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map
           ~f:ListCertificateAssociationsRequestMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let gatewayId =
        GatewayId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "gatewayId") in
      make ?maxResults ?nextToken ~gatewayId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "maxResults"
          ListCertificateAssociationsRequestMaxResultsInteger.of_json in
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let gatewayId = field_map_exn json__ "gatewayId" GatewayId.of_json in
      make ?maxResults ?nextToken ~gatewayId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the certificate associations for a responder gateway."]
module GetResponderGatewayResponse =
  struct
    type nonrec t =
      {
      vpcId: VpcId.t option
        [@ocaml.doc
          "The unique identifier of the Virtual Private Cloud (VPC)."];
      subnetIds: GetResponderGatewayResponseSubnetIdsList.t option
        [@ocaml.doc "The unique identifiers of the subnets."];
      securityGroupIds:
        GetResponderGatewayResponseSecurityGroupIdsList.t option
        [@ocaml.doc "The unique identifiers of the security groups."];
      status: ResponderGatewayStatus.t option
        [@ocaml.doc "The status of the request."];
      description: GetResponderGatewayResponseDescriptionString.t option
        [@ocaml.doc "The description of the responder gateway."];
      createdAt: Timestamp.t option
        [@ocaml.doc
          "The timestamp of when the responder gateway was created."];
      updatedAt: Timestamp.t option
        [@ocaml.doc
          "The timestamp of when the responder gateway was updated."];
      domainName: DomainName.t option
        [@ocaml.doc "The domain name of the responder gateway."];
      port: GetResponderGatewayResponsePortInteger.t option
        [@ocaml.doc "The networking port."];
      protocol: Protocol.t option [@ocaml.doc "The networking protocol."];
      listenerConfig: ListenerConfig.t option
        [@ocaml.doc "The listener configuration for the responder gateway."];
      trustStoreConfiguration: TrustStoreConfiguration.t option
        [@ocaml.doc "The configuration of the trust store."];
      managedEndpointConfiguration: ManagedEndpointConfiguration.t option
        [@ocaml.doc "The configuration of the managed endpoint."];
      gatewayId: GatewayId.t option
        [@ocaml.doc "The unique identifier of the gateway."];
      tags: TagsMap.t option
        [@ocaml.doc
          "A map of the key-value pairs for the tag or tags assigned to the specified resource."];
      activeLinksCount: Integer.t option
        [@ocaml.doc "The count of active links for the responder gateway."];
      totalLinksCount: Integer.t option
        [@ocaml.doc "The total count of links for the responder gateway."];
      inboundLinksCount: Integer.t option
        [@ocaml.doc "The count of inbound links for the responder gateway."];
      gatewayType: GatewayType.t option
        [@ocaml.doc
          "The type of gateway. Valid values are EXTERNAL or INTERNAL."];
      externalInboundEndpoint: DomainName.t option
        [@ocaml.doc
          "The external inbound endpoint for the responder gateway."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?vpcId =
      fun ?subnetIds ->
        fun ?securityGroupIds ->
          fun ?status ->
            fun ?description ->
              fun ?createdAt ->
                fun ?updatedAt ->
                  fun ?domainName ->
                    fun ?port ->
                      fun ?protocol ->
                        fun ?listenerConfig ->
                          fun ?trustStoreConfiguration ->
                            fun ?managedEndpointConfiguration ->
                              fun ?gatewayId ->
                                fun ?tags ->
                                  fun ?activeLinksCount ->
                                    fun ?totalLinksCount ->
                                      fun ?inboundLinksCount ->
                                        fun ?gatewayType ->
                                          fun ?externalInboundEndpoint ->
                                            fun () ->
                                              {
                                                vpcId;
                                                subnetIds;
                                                securityGroupIds;
                                                status;
                                                description;
                                                createdAt;
                                                updatedAt;
                                                domainName;
                                                port;
                                                protocol;
                                                listenerConfig;
                                                trustStoreConfiguration;
                                                managedEndpointConfiguration;
                                                gatewayId;
                                                tags;
                                                activeLinksCount;
                                                totalLinksCount;
                                                inboundLinksCount;
                                                gatewayType;
                                                externalInboundEndpoint
                                              }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("vpcId", (Option.map x.vpcId ~f:VpcId.to_value));
        ("subnetIds",
          (Option.map x.subnetIds
             ~f:GetResponderGatewayResponseSubnetIdsList.to_value));
        ("securityGroupIds",
          (Option.map x.securityGroupIds
             ~f:GetResponderGatewayResponseSecurityGroupIdsList.to_value));
        ("status", (Option.map x.status ~f:ResponderGatewayStatus.to_value));
        ("description",
          (Option.map x.description
             ~f:GetResponderGatewayResponseDescriptionString.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("updatedAt", (Option.map x.updatedAt ~f:Timestamp.to_value));
        ("domainName", (Option.map x.domainName ~f:DomainName.to_value));
        ("port",
          (Option.map x.port
             ~f:GetResponderGatewayResponsePortInteger.to_value));
        ("protocol", (Option.map x.protocol ~f:Protocol.to_value));
        ("listenerConfig",
          (Option.map x.listenerConfig ~f:ListenerConfig.to_value));
        ("trustStoreConfiguration",
          (Option.map x.trustStoreConfiguration
             ~f:TrustStoreConfiguration.to_value));
        ("managedEndpointConfiguration",
          (Option.map x.managedEndpointConfiguration
             ~f:ManagedEndpointConfiguration.to_value));
        ("gatewayId", (Option.map x.gatewayId ~f:GatewayId.to_value));
        ("tags", (Option.map x.tags ~f:TagsMap.to_value));
        ("activeLinksCount",
          (Option.map x.activeLinksCount ~f:Integer.to_value));
        ("totalLinksCount",
          (Option.map x.totalLinksCount ~f:Integer.to_value));
        ("inboundLinksCount",
          (Option.map x.inboundLinksCount ~f:Integer.to_value));
        ("gatewayType", (Option.map x.gatewayType ~f:GatewayType.to_value));
        ("externalInboundEndpoint",
          (Option.map x.externalInboundEndpoint ~f:DomainName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let externalInboundEndpoint =
        (Option.map ~f:DomainName.of_xml)
          (Xml.child xml_arg0 "externalInboundEndpoint") in
      let gatewayType =
        (Option.map ~f:GatewayType.of_xml) (Xml.child xml_arg0 "gatewayType") in
      let inboundLinksCount =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "inboundLinksCount") in
      let totalLinksCount =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "totalLinksCount") in
      let activeLinksCount =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "activeLinksCount") in
      let tags = (Option.map ~f:TagsMap.of_xml) (Xml.child xml_arg0 "tags") in
      let gatewayId =
        (Option.map ~f:GatewayId.of_xml) (Xml.child xml_arg0 "gatewayId") in
      let managedEndpointConfiguration =
        (Option.map ~f:ManagedEndpointConfiguration.of_xml)
          (Xml.child xml_arg0 "managedEndpointConfiguration") in
      let trustStoreConfiguration =
        (Option.map ~f:TrustStoreConfiguration.of_xml)
          (Xml.child xml_arg0 "trustStoreConfiguration") in
      let listenerConfig =
        (Option.map ~f:ListenerConfig.of_xml)
          (Xml.child xml_arg0 "listenerConfig") in
      let protocol =
        (Option.map ~f:Protocol.of_xml) (Xml.child xml_arg0 "protocol") in
      let port =
        (Option.map ~f:GetResponderGatewayResponsePortInteger.of_xml)
          (Xml.child xml_arg0 "port") in
      let domainName =
        (Option.map ~f:DomainName.of_xml) (Xml.child xml_arg0 "domainName") in
      let updatedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "updatedAt") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let description =
        (Option.map ~f:GetResponderGatewayResponseDescriptionString.of_xml)
          (Xml.child xml_arg0 "description") in
      let status =
        (Option.map ~f:ResponderGatewayStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let securityGroupIds =
        (Option.map ~f:GetResponderGatewayResponseSecurityGroupIdsList.of_xml)
          (Xml.child xml_arg0 "securityGroupIds") in
      let subnetIds =
        (Option.map ~f:GetResponderGatewayResponseSubnetIdsList.of_xml)
          (Xml.child xml_arg0 "subnetIds") in
      let vpcId = (Option.map ~f:VpcId.of_xml) (Xml.child xml_arg0 "vpcId") in
      make ?externalInboundEndpoint ?gatewayType ?inboundLinksCount
        ?totalLinksCount ?activeLinksCount ?tags ?gatewayId
        ?managedEndpointConfiguration ?trustStoreConfiguration
        ?listenerConfig ?protocol ?port ?domainName ?updatedAt ?createdAt
        ?description ?status ?securityGroupIds ?subnetIds ?vpcId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let externalInboundEndpoint =
        field_map json__ "externalInboundEndpoint" DomainName.of_json in
      let gatewayType = field_map json__ "gatewayType" GatewayType.of_json in
      let inboundLinksCount =
        field_map json__ "inboundLinksCount" Integer.of_json in
      let totalLinksCount =
        field_map json__ "totalLinksCount" Integer.of_json in
      let activeLinksCount =
        field_map json__ "activeLinksCount" Integer.of_json in
      let tags = field_map json__ "tags" TagsMap.of_json in
      let gatewayId = field_map json__ "gatewayId" GatewayId.of_json in
      let managedEndpointConfiguration =
        field_map json__ "managedEndpointConfiguration"
          ManagedEndpointConfiguration.of_json in
      let trustStoreConfiguration =
        field_map json__ "trustStoreConfiguration"
          TrustStoreConfiguration.of_json in
      let listenerConfig =
        field_map json__ "listenerConfig" ListenerConfig.of_json in
      let protocol = field_map json__ "protocol" Protocol.of_json in
      let port =
        field_map json__ "port"
          GetResponderGatewayResponsePortInteger.of_json in
      let domainName = field_map json__ "domainName" DomainName.of_json in
      let updatedAt = field_map json__ "updatedAt" Timestamp.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let description =
        field_map json__ "description"
          GetResponderGatewayResponseDescriptionString.of_json in
      let status = field_map json__ "status" ResponderGatewayStatus.of_json in
      let securityGroupIds =
        field_map json__ "securityGroupIds"
          GetResponderGatewayResponseSecurityGroupIdsList.of_json in
      let subnetIds =
        field_map json__ "subnetIds"
          GetResponderGatewayResponseSubnetIdsList.of_json in
      let vpcId = field_map json__ "vpcId" VpcId.of_json in
      make ?externalInboundEndpoint ?gatewayType ?inboundLinksCount
        ?totalLinksCount ?activeLinksCount ?tags ?gatewayId
        ?managedEndpointConfiguration ?trustStoreConfiguration
        ?listenerConfig ?protocol ?port ?domainName ?updatedAt ?createdAt
        ?description ?status ?securityGroupIds ?subnetIds ?vpcId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves information about a responder gateway."]
module GetResponderGatewayRequest =
  struct
    type nonrec t =
      {
      gatewayId: GatewayId.t
        [@ocaml.doc "The unique identifier of the gateway."]}
    let context_ = "GetResponderGatewayRequest"
    let make ~gatewayId = fun () -> { gatewayId }
    let to_value x =
      structure_to_value
        [("gatewayId", (Some (GatewayId.to_value x.gatewayId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatewayId =
        GatewayId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "gatewayId") in
      make ~gatewayId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatewayId = field_map_exn json__ "gatewayId" GatewayId.of_json in
      make ~gatewayId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves information about a responder gateway."]
module GetRequesterGatewayResponse =
  struct
    type nonrec t =
      {
      status: RequesterGatewayStatus.t option
        [@ocaml.doc "The status of the request."];
      domainName: DomainName.t option
        [@ocaml.doc "The domain name of the requester gateway."];
      description: GetRequesterGatewayResponseDescriptionString.t option
        [@ocaml.doc "The description of the requester gateway."];
      createdAt: Timestamp.t option
        [@ocaml.doc
          "The timestamp of when the requester gateway was created."];
      updatedAt: Timestamp.t option
        [@ocaml.doc
          "The timestamp of when the requester gateway was updated."];
      vpcId: VpcId.t option
        [@ocaml.doc
          "The unique identifier of the Virtual Private Cloud (VPC)."];
      subnetIds: GetRequesterGatewayResponseSubnetIdsList.t option
        [@ocaml.doc "The unique identifiers of the subnets."];
      securityGroupIds:
        GetRequesterGatewayResponseSecurityGroupIdsList.t option
        [@ocaml.doc "The unique identifiers of the security groups."];
      gatewayId: GatewayId.t option
        [@ocaml.doc "The unique identifier of the gateway."];
      tags: TagsMap.t option
        [@ocaml.doc
          "A map of the key-value pairs for the tag or tags assigned to the specified resource."];
      activeLinksCount: Integer.t option
        [@ocaml.doc "The count of active links for the requester gateway."];
      totalLinksCount: Integer.t option
        [@ocaml.doc "The total count of links for the requester gateway."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?status =
      fun ?domainName ->
        fun ?description ->
          fun ?createdAt ->
            fun ?updatedAt ->
              fun ?vpcId ->
                fun ?subnetIds ->
                  fun ?securityGroupIds ->
                    fun ?gatewayId ->
                      fun ?tags ->
                        fun ?activeLinksCount ->
                          fun ?totalLinksCount ->
                            fun () ->
                              {
                                status;
                                domainName;
                                description;
                                createdAt;
                                updatedAt;
                                vpcId;
                                subnetIds;
                                securityGroupIds;
                                gatewayId;
                                tags;
                                activeLinksCount;
                                totalLinksCount
                              }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("status", (Option.map x.status ~f:RequesterGatewayStatus.to_value));
        ("domainName", (Option.map x.domainName ~f:DomainName.to_value));
        ("description",
          (Option.map x.description
             ~f:GetRequesterGatewayResponseDescriptionString.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("updatedAt", (Option.map x.updatedAt ~f:Timestamp.to_value));
        ("vpcId", (Option.map x.vpcId ~f:VpcId.to_value));
        ("subnetIds",
          (Option.map x.subnetIds
             ~f:GetRequesterGatewayResponseSubnetIdsList.to_value));
        ("securityGroupIds",
          (Option.map x.securityGroupIds
             ~f:GetRequesterGatewayResponseSecurityGroupIdsList.to_value));
        ("gatewayId", (Option.map x.gatewayId ~f:GatewayId.to_value));
        ("tags", (Option.map x.tags ~f:TagsMap.to_value));
        ("activeLinksCount",
          (Option.map x.activeLinksCount ~f:Integer.to_value));
        ("totalLinksCount",
          (Option.map x.totalLinksCount ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let totalLinksCount =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "totalLinksCount") in
      let activeLinksCount =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "activeLinksCount") in
      let tags = (Option.map ~f:TagsMap.of_xml) (Xml.child xml_arg0 "tags") in
      let gatewayId =
        (Option.map ~f:GatewayId.of_xml) (Xml.child xml_arg0 "gatewayId") in
      let securityGroupIds =
        (Option.map ~f:GetRequesterGatewayResponseSecurityGroupIdsList.of_xml)
          (Xml.child xml_arg0 "securityGroupIds") in
      let subnetIds =
        (Option.map ~f:GetRequesterGatewayResponseSubnetIdsList.of_xml)
          (Xml.child xml_arg0 "subnetIds") in
      let vpcId = (Option.map ~f:VpcId.of_xml) (Xml.child xml_arg0 "vpcId") in
      let updatedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "updatedAt") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let description =
        (Option.map ~f:GetRequesterGatewayResponseDescriptionString.of_xml)
          (Xml.child xml_arg0 "description") in
      let domainName =
        (Option.map ~f:DomainName.of_xml) (Xml.child xml_arg0 "domainName") in
      let status =
        (Option.map ~f:RequesterGatewayStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      make ?totalLinksCount ?activeLinksCount ?tags ?gatewayId
        ?securityGroupIds ?subnetIds ?vpcId ?updatedAt ?createdAt
        ?description ?domainName ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let totalLinksCount =
        field_map json__ "totalLinksCount" Integer.of_json in
      let activeLinksCount =
        field_map json__ "activeLinksCount" Integer.of_json in
      let tags = field_map json__ "tags" TagsMap.of_json in
      let gatewayId = field_map json__ "gatewayId" GatewayId.of_json in
      let securityGroupIds =
        field_map json__ "securityGroupIds"
          GetRequesterGatewayResponseSecurityGroupIdsList.of_json in
      let subnetIds =
        field_map json__ "subnetIds"
          GetRequesterGatewayResponseSubnetIdsList.of_json in
      let vpcId = field_map json__ "vpcId" VpcId.of_json in
      let updatedAt = field_map json__ "updatedAt" Timestamp.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let description =
        field_map json__ "description"
          GetRequesterGatewayResponseDescriptionString.of_json in
      let domainName = field_map json__ "domainName" DomainName.of_json in
      let status = field_map json__ "status" RequesterGatewayStatus.of_json in
      make ?totalLinksCount ?activeLinksCount ?tags ?gatewayId
        ?securityGroupIds ?subnetIds ?vpcId ?updatedAt ?createdAt
        ?description ?domainName ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves information about a requester gateway."]
module GetRequesterGatewayRequest =
  struct
    type nonrec t =
      {
      gatewayId: GatewayId.t
        [@ocaml.doc "The unique identifier of the gateway."]}
    let context_ = "GetRequesterGatewayRequest"
    let make ~gatewayId = fun () -> { gatewayId }
    let to_value x =
      structure_to_value
        [("gatewayId", (Some (GatewayId.to_value x.gatewayId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatewayId =
        GatewayId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "gatewayId") in
      make ~gatewayId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatewayId = field_map_exn json__ "gatewayId" GatewayId.of_json in
      make ~gatewayId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves information about a requester gateway."]
module GetOutboundExternalLinkResponse =
  struct
    type nonrec t =
      {
      gatewayId: GatewayId.t option
        [@ocaml.doc "The unique identifier of the gateway."];
      linkId: LinkId.t option
        [@ocaml.doc "The unique identifier of the link."];
      status: LinkStatus.t option [@ocaml.doc "The status of the request."];
      publicEndpoint: URL.t option
        [@ocaml.doc "The public endpoint for the link."];
      flowModules: ModuleConfigurationList.t option
        [@ocaml.doc "The configuration of flow modules."];
      pendingFlowModules: ModuleConfigurationList.t option
        [@ocaml.doc "The configuration of pending flow modules."];
      attributes: LinkAttributes.t option ;
      createdAt: Timestamp.t option
        [@ocaml.doc
          "The timestamp of when the outbound external link was created."];
      updatedAt: Timestamp.t option
        [@ocaml.doc
          "The timestamp of when the outbound external link was updated."];
      tags: TagsMap.t option
        [@ocaml.doc
          "A map of the key-value pairs for the tag or tags assigned to the specified resource."];
      logSettings: LinkLogSettings.t option
        [@ocaml.doc "Settings for the application logs."];
      connectivityType: ConnectivityType.t option
        [@ocaml.doc "The connectivity type of the link."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayId =
      fun ?linkId ->
        fun ?status ->
          fun ?publicEndpoint ->
            fun ?flowModules ->
              fun ?pendingFlowModules ->
                fun ?attributes ->
                  fun ?createdAt ->
                    fun ?updatedAt ->
                      fun ?tags ->
                        fun ?logSettings ->
                          fun ?connectivityType ->
                            fun () ->
                              {
                                gatewayId;
                                linkId;
                                status;
                                publicEndpoint;
                                flowModules;
                                pendingFlowModules;
                                attributes;
                                createdAt;
                                updatedAt;
                                tags;
                                logSettings;
                                connectivityType
                              }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("gatewayId", (Option.map x.gatewayId ~f:GatewayId.to_value));
        ("linkId", (Option.map x.linkId ~f:LinkId.to_value));
        ("status", (Option.map x.status ~f:LinkStatus.to_value));
        ("publicEndpoint", (Option.map x.publicEndpoint ~f:URL.to_value));
        ("flowModules",
          (Option.map x.flowModules ~f:ModuleConfigurationList.to_value));
        ("pendingFlowModules",
          (Option.map x.pendingFlowModules
             ~f:ModuleConfigurationList.to_value));
        ("attributes", (Option.map x.attributes ~f:LinkAttributes.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("updatedAt", (Option.map x.updatedAt ~f:Timestamp.to_value));
        ("tags", (Option.map x.tags ~f:TagsMap.to_value));
        ("logSettings",
          (Option.map x.logSettings ~f:LinkLogSettings.to_value));
        ("connectivityType",
          (Option.map x.connectivityType ~f:ConnectivityType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let connectivityType =
        (Option.map ~f:ConnectivityType.of_xml)
          (Xml.child xml_arg0 "connectivityType") in
      let logSettings =
        (Option.map ~f:LinkLogSettings.of_xml)
          (Xml.child xml_arg0 "logSettings") in
      let tags = (Option.map ~f:TagsMap.of_xml) (Xml.child xml_arg0 "tags") in
      let updatedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "updatedAt") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let attributes =
        (Option.map ~f:LinkAttributes.of_xml)
          (Xml.child xml_arg0 "attributes") in
      let pendingFlowModules =
        (Option.map ~f:ModuleConfigurationList.of_xml)
          (Xml.child xml_arg0 "pendingFlowModules") in
      let flowModules =
        (Option.map ~f:ModuleConfigurationList.of_xml)
          (Xml.child xml_arg0 "flowModules") in
      let publicEndpoint =
        (Option.map ~f:URL.of_xml) (Xml.child xml_arg0 "publicEndpoint") in
      let status =
        (Option.map ~f:LinkStatus.of_xml) (Xml.child xml_arg0 "status") in
      let linkId =
        (Option.map ~f:LinkId.of_xml) (Xml.child xml_arg0 "linkId") in
      let gatewayId =
        (Option.map ~f:GatewayId.of_xml) (Xml.child xml_arg0 "gatewayId") in
      make ?connectivityType ?logSettings ?tags ?updatedAt ?createdAt
        ?attributes ?pendingFlowModules ?flowModules ?publicEndpoint ?status
        ?linkId ?gatewayId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let connectivityType =
        field_map json__ "connectivityType" ConnectivityType.of_json in
      let logSettings =
        field_map json__ "logSettings" LinkLogSettings.of_json in
      let tags = field_map json__ "tags" TagsMap.of_json in
      let updatedAt = field_map json__ "updatedAt" Timestamp.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let attributes = field_map json__ "attributes" LinkAttributes.of_json in
      let pendingFlowModules =
        field_map json__ "pendingFlowModules" ModuleConfigurationList.of_json in
      let flowModules =
        field_map json__ "flowModules" ModuleConfigurationList.of_json in
      let publicEndpoint = field_map json__ "publicEndpoint" URL.of_json in
      let status = field_map json__ "status" LinkStatus.of_json in
      let linkId = field_map json__ "linkId" LinkId.of_json in
      let gatewayId = field_map json__ "gatewayId" GatewayId.of_json in
      make ?connectivityType ?logSettings ?tags ?updatedAt ?createdAt
        ?attributes ?pendingFlowModules ?flowModules ?publicEndpoint ?status
        ?linkId ?gatewayId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves information about an outbound external link."]
module GetOutboundExternalLinkRequest =
  struct
    type nonrec t =
      {
      gatewayId: GatewayId.t
        [@ocaml.doc "The unique identifier of the gateway."];
      linkId: LinkId.t [@ocaml.doc "The unique identifier of the link."]}
    let context_ = "GetOutboundExternalLinkRequest"
    let make ~gatewayId = fun ~linkId -> fun () -> { gatewayId; linkId }
    let to_value x =
      structure_to_value
        [("gatewayId", (Some (GatewayId.to_value x.gatewayId)));
        ("linkId", (Some (LinkId.to_value x.linkId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let linkId =
        LinkId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "linkId") in
      let gatewayId =
        GatewayId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "gatewayId") in
      make ~linkId ~gatewayId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let linkId = field_map_exn json__ "linkId" LinkId.of_json in
      let gatewayId = field_map_exn json__ "gatewayId" GatewayId.of_json in
      make ~linkId ~gatewayId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves information about an outbound external link."]
module GetLinkRoutingRuleResponse =
  struct
    type nonrec t =
      {
      gatewayId: GatewayId.t option
        [@ocaml.doc "The unique identifier of the gateway."];
      linkId: LinkId.t option
        [@ocaml.doc "The unique identifier of the link."];
      ruleId: RuleId.t option
        [@ocaml.doc "The unique identifier of the routing rule."];
      priority: RulePriority.t option
        [@ocaml.doc "The priority of the routing rule."];
      conditions: RuleCondition.t option
        [@ocaml.doc "The conditions for the routing rule."];
      status: RuleStatus.t option
        [@ocaml.doc "The status of the routing rule."];
      createdAt: Timestamp.t option
        [@ocaml.doc "The timestamp of when the routing rule was created."];
      updatedAt: Timestamp.t option
        [@ocaml.doc
          "The timestamp of when the routing rule was last updated."];
      tags: TagsMap.t option
        [@ocaml.doc
          "A map of the key-value pairs for the tag or tags assigned to the specified resource."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayId =
      fun ?linkId ->
        fun ?ruleId ->
          fun ?priority ->
            fun ?conditions ->
              fun ?status ->
                fun ?createdAt ->
                  fun ?updatedAt ->
                    fun ?tags ->
                      fun () ->
                        {
                          gatewayId;
                          linkId;
                          ruleId;
                          priority;
                          conditions;
                          status;
                          createdAt;
                          updatedAt;
                          tags
                        }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("gatewayId", (Option.map x.gatewayId ~f:GatewayId.to_value));
        ("linkId", (Option.map x.linkId ~f:LinkId.to_value));
        ("ruleId", (Option.map x.ruleId ~f:RuleId.to_value));
        ("priority", (Option.map x.priority ~f:RulePriority.to_value));
        ("conditions", (Option.map x.conditions ~f:RuleCondition.to_value));
        ("status", (Option.map x.status ~f:RuleStatus.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("updatedAt", (Option.map x.updatedAt ~f:Timestamp.to_value));
        ("tags", (Option.map x.tags ~f:TagsMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagsMap.of_xml) (Xml.child xml_arg0 "tags") in
      let updatedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "updatedAt") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let status =
        (Option.map ~f:RuleStatus.of_xml) (Xml.child xml_arg0 "status") in
      let conditions =
        (Option.map ~f:RuleCondition.of_xml)
          (Xml.child xml_arg0 "conditions") in
      let priority =
        (Option.map ~f:RulePriority.of_xml) (Xml.child xml_arg0 "priority") in
      let ruleId =
        (Option.map ~f:RuleId.of_xml) (Xml.child xml_arg0 "ruleId") in
      let linkId =
        (Option.map ~f:LinkId.of_xml) (Xml.child xml_arg0 "linkId") in
      let gatewayId =
        (Option.map ~f:GatewayId.of_xml) (Xml.child xml_arg0 "gatewayId") in
      make ?tags ?updatedAt ?createdAt ?status ?conditions ?priority ?ruleId
        ?linkId ?gatewayId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagsMap.of_json in
      let updatedAt = field_map json__ "updatedAt" Timestamp.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let status = field_map json__ "status" RuleStatus.of_json in
      let conditions = field_map json__ "conditions" RuleCondition.of_json in
      let priority = field_map json__ "priority" RulePriority.of_json in
      let ruleId = field_map json__ "ruleId" RuleId.of_json in
      let linkId = field_map json__ "linkId" LinkId.of_json in
      let gatewayId = field_map json__ "gatewayId" GatewayId.of_json in
      make ?tags ?updatedAt ?createdAt ?status ?conditions ?priority ?ruleId
        ?linkId ?gatewayId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves the details of a routing rule for a link."]
module GetLinkRoutingRuleRequest =
  struct
    type nonrec t =
      {
      gatewayId: GatewayId.t
        [@ocaml.doc "The unique identifier of the gateway."];
      linkId: LinkId.t [@ocaml.doc "The unique identifier of the link."];
      ruleId: RuleId.t
        [@ocaml.doc "The unique identifier of the routing rule."]}
    let context_ = "GetLinkRoutingRuleRequest"
    let make ~gatewayId =
      fun ~linkId -> fun ~ruleId -> fun () -> { gatewayId; linkId; ruleId }
    let to_value x =
      structure_to_value
        [("gatewayId", (Some (GatewayId.to_value x.gatewayId)));
        ("linkId", (Some (LinkId.to_value x.linkId)));
        ("ruleId", (Some (RuleId.to_value x.ruleId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ruleId =
        RuleId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "ruleId") in
      let linkId =
        LinkId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "linkId") in
      let gatewayId =
        GatewayId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "gatewayId") in
      make ~ruleId ~linkId ~gatewayId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ruleId = field_map_exn json__ "ruleId" RuleId.of_json in
      let linkId = field_map_exn json__ "linkId" LinkId.of_json in
      let gatewayId = field_map_exn json__ "gatewayId" GatewayId.of_json in
      make ~ruleId ~linkId ~gatewayId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves the details of a routing rule for a link."]
module GetLinkResponse =
  struct
    type nonrec t =
      {
      gatewayId: GatewayId.t option
        [@ocaml.doc "The unique identifier of the gateway."];
      peerGatewayId: GatewayId.t option
        [@ocaml.doc "The unique identifier of the peer gateway."];
      status: LinkStatus.t option [@ocaml.doc "The status of the link."];
      createdAt: Timestamp.t option
        [@ocaml.doc "The timestamp of when the link was created."];
      updatedAt: Timestamp.t option
        [@ocaml.doc "The timestamp of when the link was updated."];
      direction: LinkDirection.t option
        [@ocaml.doc "The direction of the link."];
      flowModules: ModuleConfigurationList.t option
        [@ocaml.doc "The configuration of flow modules."];
      pendingFlowModules: ModuleConfigurationList.t option
        [@ocaml.doc "The configuration of pending flow modules."];
      attributes: LinkAttributes.t option
        [@ocaml.doc "Attributes of the link."];
      logSettings: LinkLogSettings.t option
        [@ocaml.doc "Settings for the application logs."];
      connectivityType: ConnectivityType.t option
        [@ocaml.doc "The connectivity type of the link."];
      linkId: LinkId.t option
        [@ocaml.doc "The unique identifier of the link."];
      tags: TagsMap.t option
        [@ocaml.doc
          "A map of the key-value pairs for the tag or tags assigned to the specified resource."];
      httpResponderAllowed: Boolean.t option
        [@ocaml.doc "Boolean to specify if an HTTP responder is allowed."];
      timeoutInMillis: LinkTimeoutInMillis.t option
        [@ocaml.doc "The timeout value in milliseconds."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayId =
      fun ?peerGatewayId ->
        fun ?status ->
          fun ?createdAt ->
            fun ?updatedAt ->
              fun ?direction ->
                fun ?flowModules ->
                  fun ?pendingFlowModules ->
                    fun ?attributes ->
                      fun ?logSettings ->
                        fun ?connectivityType ->
                          fun ?linkId ->
                            fun ?tags ->
                              fun ?httpResponderAllowed ->
                                fun ?timeoutInMillis ->
                                  fun () ->
                                    {
                                      gatewayId;
                                      peerGatewayId;
                                      status;
                                      createdAt;
                                      updatedAt;
                                      direction;
                                      flowModules;
                                      pendingFlowModules;
                                      attributes;
                                      logSettings;
                                      connectivityType;
                                      linkId;
                                      tags;
                                      httpResponderAllowed;
                                      timeoutInMillis
                                    }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("gatewayId", (Option.map x.gatewayId ~f:GatewayId.to_value));
        ("peerGatewayId", (Option.map x.peerGatewayId ~f:GatewayId.to_value));
        ("status", (Option.map x.status ~f:LinkStatus.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("updatedAt", (Option.map x.updatedAt ~f:Timestamp.to_value));
        ("direction", (Option.map x.direction ~f:LinkDirection.to_value));
        ("flowModules",
          (Option.map x.flowModules ~f:ModuleConfigurationList.to_value));
        ("pendingFlowModules",
          (Option.map x.pendingFlowModules
             ~f:ModuleConfigurationList.to_value));
        ("attributes", (Option.map x.attributes ~f:LinkAttributes.to_value));
        ("logSettings",
          (Option.map x.logSettings ~f:LinkLogSettings.to_value));
        ("connectivityType",
          (Option.map x.connectivityType ~f:ConnectivityType.to_value));
        ("linkId", (Option.map x.linkId ~f:LinkId.to_value));
        ("tags", (Option.map x.tags ~f:TagsMap.to_value));
        ("httpResponderAllowed",
          (Option.map x.httpResponderAllowed ~f:Boolean.to_value));
        ("timeoutInMillis",
          (Option.map x.timeoutInMillis ~f:LinkTimeoutInMillis.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let timeoutInMillis =
        (Option.map ~f:LinkTimeoutInMillis.of_xml)
          (Xml.child xml_arg0 "timeoutInMillis") in
      let httpResponderAllowed =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "httpResponderAllowed") in
      let tags = (Option.map ~f:TagsMap.of_xml) (Xml.child xml_arg0 "tags") in
      let linkId =
        (Option.map ~f:LinkId.of_xml) (Xml.child xml_arg0 "linkId") in
      let connectivityType =
        (Option.map ~f:ConnectivityType.of_xml)
          (Xml.child xml_arg0 "connectivityType") in
      let logSettings =
        (Option.map ~f:LinkLogSettings.of_xml)
          (Xml.child xml_arg0 "logSettings") in
      let attributes =
        (Option.map ~f:LinkAttributes.of_xml)
          (Xml.child xml_arg0 "attributes") in
      let pendingFlowModules =
        (Option.map ~f:ModuleConfigurationList.of_xml)
          (Xml.child xml_arg0 "pendingFlowModules") in
      let flowModules =
        (Option.map ~f:ModuleConfigurationList.of_xml)
          (Xml.child xml_arg0 "flowModules") in
      let direction =
        (Option.map ~f:LinkDirection.of_xml) (Xml.child xml_arg0 "direction") in
      let updatedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "updatedAt") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let status =
        (Option.map ~f:LinkStatus.of_xml) (Xml.child xml_arg0 "status") in
      let peerGatewayId =
        (Option.map ~f:GatewayId.of_xml) (Xml.child xml_arg0 "peerGatewayId") in
      let gatewayId =
        (Option.map ~f:GatewayId.of_xml) (Xml.child xml_arg0 "gatewayId") in
      make ?timeoutInMillis ?httpResponderAllowed ?tags ?linkId
        ?connectivityType ?logSettings ?attributes ?pendingFlowModules
        ?flowModules ?direction ?updatedAt ?createdAt ?status ?peerGatewayId
        ?gatewayId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let timeoutInMillis =
        field_map json__ "timeoutInMillis" LinkTimeoutInMillis.of_json in
      let httpResponderAllowed =
        field_map json__ "httpResponderAllowed" Boolean.of_json in
      let tags = field_map json__ "tags" TagsMap.of_json in
      let linkId = field_map json__ "linkId" LinkId.of_json in
      let connectivityType =
        field_map json__ "connectivityType" ConnectivityType.of_json in
      let logSettings =
        field_map json__ "logSettings" LinkLogSettings.of_json in
      let attributes = field_map json__ "attributes" LinkAttributes.of_json in
      let pendingFlowModules =
        field_map json__ "pendingFlowModules" ModuleConfigurationList.of_json in
      let flowModules =
        field_map json__ "flowModules" ModuleConfigurationList.of_json in
      let direction = field_map json__ "direction" LinkDirection.of_json in
      let updatedAt = field_map json__ "updatedAt" Timestamp.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let status = field_map json__ "status" LinkStatus.of_json in
      let peerGatewayId = field_map json__ "peerGatewayId" GatewayId.of_json in
      let gatewayId = field_map json__ "gatewayId" GatewayId.of_json in
      make ?timeoutInMillis ?httpResponderAllowed ?tags ?linkId
        ?connectivityType ?logSettings ?attributes ?pendingFlowModules
        ?flowModules ?direction ?updatedAt ?createdAt ?status ?peerGatewayId
        ?gatewayId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves information about a link between gateways. Returns detailed information about the link configuration, status, and associated gateways."]
module GetLinkRequest =
  struct
    type nonrec t =
      {
      gatewayId: GatewayId.t
        [@ocaml.doc "The unique identifier of the gateway."];
      linkId: LinkId.t [@ocaml.doc "The unique identifier of the link."]}
    let context_ = "GetLinkRequest"
    let make ~gatewayId = fun ~linkId -> fun () -> { gatewayId; linkId }
    let to_value x =
      structure_to_value
        [("gatewayId", (Some (GatewayId.to_value x.gatewayId)));
        ("linkId", (Some (LinkId.to_value x.linkId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let linkId =
        LinkId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "linkId") in
      let gatewayId =
        GatewayId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "gatewayId") in
      make ~linkId ~gatewayId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let linkId = field_map_exn json__ "linkId" LinkId.of_json in
      let gatewayId = field_map_exn json__ "gatewayId" GatewayId.of_json in
      make ~linkId ~gatewayId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves information about a link between gateways. Returns detailed information about the link configuration, status, and associated gateways."]
module GetInboundExternalLinkResponse =
  struct
    type nonrec t =
      {
      gatewayId: GatewayId.t option
        [@ocaml.doc "The unique identifier of the gateway."];
      linkId: LinkId.t option
        [@ocaml.doc "The unique identifier of the link."];
      status: LinkStatus.t option [@ocaml.doc "The status of the request."];
      domainName: DomainName.t option [@ocaml.doc "The domain name."];
      flowModules: ModuleConfigurationList.t option
        [@ocaml.doc "The configuration of flow modules."];
      pendingFlowModules: ModuleConfigurationList.t option
        [@ocaml.doc "The configuration of pending flow modules."];
      attributes: LinkAttributes.t option
        [@ocaml.doc "Attributes of the link."];
      createdAt: Timestamp.t option
        [@ocaml.doc
          "The timestamp of when the inbound external link was created."];
      updatedAt: Timestamp.t option
        [@ocaml.doc
          "The timestamp of when the inbound external link was updated."];
      tags: TagsMap.t option
        [@ocaml.doc
          "A map of the key-value pairs for the tag or tags assigned to the specified resource."];
      logSettings: LinkLogSettings.t option
        [@ocaml.doc "Settings for the application logs."];
      connectivityType: ConnectivityType.t option
        [@ocaml.doc "The connectivity type of the link."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayId =
      fun ?linkId ->
        fun ?status ->
          fun ?domainName ->
            fun ?flowModules ->
              fun ?pendingFlowModules ->
                fun ?attributes ->
                  fun ?createdAt ->
                    fun ?updatedAt ->
                      fun ?tags ->
                        fun ?logSettings ->
                          fun ?connectivityType ->
                            fun () ->
                              {
                                gatewayId;
                                linkId;
                                status;
                                domainName;
                                flowModules;
                                pendingFlowModules;
                                attributes;
                                createdAt;
                                updatedAt;
                                tags;
                                logSettings;
                                connectivityType
                              }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("gatewayId", (Option.map x.gatewayId ~f:GatewayId.to_value));
        ("linkId", (Option.map x.linkId ~f:LinkId.to_value));
        ("status", (Option.map x.status ~f:LinkStatus.to_value));
        ("domainName", (Option.map x.domainName ~f:DomainName.to_value));
        ("flowModules",
          (Option.map x.flowModules ~f:ModuleConfigurationList.to_value));
        ("pendingFlowModules",
          (Option.map x.pendingFlowModules
             ~f:ModuleConfigurationList.to_value));
        ("attributes", (Option.map x.attributes ~f:LinkAttributes.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("updatedAt", (Option.map x.updatedAt ~f:Timestamp.to_value));
        ("tags", (Option.map x.tags ~f:TagsMap.to_value));
        ("logSettings",
          (Option.map x.logSettings ~f:LinkLogSettings.to_value));
        ("connectivityType",
          (Option.map x.connectivityType ~f:ConnectivityType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let connectivityType =
        (Option.map ~f:ConnectivityType.of_xml)
          (Xml.child xml_arg0 "connectivityType") in
      let logSettings =
        (Option.map ~f:LinkLogSettings.of_xml)
          (Xml.child xml_arg0 "logSettings") in
      let tags = (Option.map ~f:TagsMap.of_xml) (Xml.child xml_arg0 "tags") in
      let updatedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "updatedAt") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let attributes =
        (Option.map ~f:LinkAttributes.of_xml)
          (Xml.child xml_arg0 "attributes") in
      let pendingFlowModules =
        (Option.map ~f:ModuleConfigurationList.of_xml)
          (Xml.child xml_arg0 "pendingFlowModules") in
      let flowModules =
        (Option.map ~f:ModuleConfigurationList.of_xml)
          (Xml.child xml_arg0 "flowModules") in
      let domainName =
        (Option.map ~f:DomainName.of_xml) (Xml.child xml_arg0 "domainName") in
      let status =
        (Option.map ~f:LinkStatus.of_xml) (Xml.child xml_arg0 "status") in
      let linkId =
        (Option.map ~f:LinkId.of_xml) (Xml.child xml_arg0 "linkId") in
      let gatewayId =
        (Option.map ~f:GatewayId.of_xml) (Xml.child xml_arg0 "gatewayId") in
      make ?connectivityType ?logSettings ?tags ?updatedAt ?createdAt
        ?attributes ?pendingFlowModules ?flowModules ?domainName ?status
        ?linkId ?gatewayId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let connectivityType =
        field_map json__ "connectivityType" ConnectivityType.of_json in
      let logSettings =
        field_map json__ "logSettings" LinkLogSettings.of_json in
      let tags = field_map json__ "tags" TagsMap.of_json in
      let updatedAt = field_map json__ "updatedAt" Timestamp.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let attributes = field_map json__ "attributes" LinkAttributes.of_json in
      let pendingFlowModules =
        field_map json__ "pendingFlowModules" ModuleConfigurationList.of_json in
      let flowModules =
        field_map json__ "flowModules" ModuleConfigurationList.of_json in
      let domainName = field_map json__ "domainName" DomainName.of_json in
      let status = field_map json__ "status" LinkStatus.of_json in
      let linkId = field_map json__ "linkId" LinkId.of_json in
      let gatewayId = field_map json__ "gatewayId" GatewayId.of_json in
      make ?connectivityType ?logSettings ?tags ?updatedAt ?createdAt
        ?attributes ?pendingFlowModules ?flowModules ?domainName ?status
        ?linkId ?gatewayId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves information about an inbound external link."]
module GetInboundExternalLinkRequest =
  struct
    type nonrec t =
      {
      gatewayId: GatewayId.t
        [@ocaml.doc "The unique identifier of the gateway."];
      linkId: LinkId.t [@ocaml.doc "The unique identifier of the link."]}
    let context_ = "GetInboundExternalLinkRequest"
    let make ~gatewayId = fun ~linkId -> fun () -> { gatewayId; linkId }
    let to_value x =
      structure_to_value
        [("gatewayId", (Some (GatewayId.to_value x.gatewayId)));
        ("linkId", (Some (LinkId.to_value x.linkId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let linkId =
        LinkId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "linkId") in
      let gatewayId =
        GatewayId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "gatewayId") in
      make ~linkId ~gatewayId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let linkId = field_map_exn json__ "linkId" LinkId.of_json in
      let gatewayId = field_map_exn json__ "gatewayId" GatewayId.of_json in
      make ~linkId ~gatewayId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves information about an inbound external link."]
module GetCertificateAssociationResponse =
  struct
    type nonrec t =
      {
      gatewayId: GatewayId.t option
        [@ocaml.doc "The unique identifier of the gateway."];
      acmCertificateArn: AcmCertificateArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the ACM certificate."];
      status: CertificateAssociationStatus.t option
        [@ocaml.doc "The status of the certificate association."];
      associatedAt: Timestamp.t option
        [@ocaml.doc "The timestamp of when the certificate was associated."];
      updatedAt: Timestamp.t option
        [@ocaml.doc
          "The timestamp of when the certificate association was last updated."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayId =
      fun ?acmCertificateArn ->
        fun ?status ->
          fun ?associatedAt ->
            fun ?updatedAt ->
              fun () ->
                {
                  gatewayId;
                  acmCertificateArn;
                  status;
                  associatedAt;
                  updatedAt
                }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("gatewayId", (Option.map x.gatewayId ~f:GatewayId.to_value));
        ("acmCertificateArn",
          (Option.map x.acmCertificateArn ~f:AcmCertificateArn.to_value));
        ("status",
          (Option.map x.status ~f:CertificateAssociationStatus.to_value));
        ("associatedAt", (Option.map x.associatedAt ~f:Timestamp.to_value));
        ("updatedAt", (Option.map x.updatedAt ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updatedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "updatedAt") in
      let associatedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "associatedAt") in
      let status =
        (Option.map ~f:CertificateAssociationStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let acmCertificateArn =
        (Option.map ~f:AcmCertificateArn.of_xml)
          (Xml.child xml_arg0 "acmCertificateArn") in
      let gatewayId =
        (Option.map ~f:GatewayId.of_xml) (Xml.child xml_arg0 "gatewayId") in
      make ?updatedAt ?associatedAt ?status ?acmCertificateArn ?gatewayId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updatedAt = field_map json__ "updatedAt" Timestamp.of_json in
      let associatedAt = field_map json__ "associatedAt" Timestamp.of_json in
      let status =
        field_map json__ "status" CertificateAssociationStatus.of_json in
      let acmCertificateArn =
        field_map json__ "acmCertificateArn" AcmCertificateArn.of_json in
      let gatewayId = field_map json__ "gatewayId" GatewayId.of_json in
      make ?updatedAt ?associatedAt ?status ?acmCertificateArn ?gatewayId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the details of a certificate association with a responder gateway."]
module GetCertificateAssociationRequest =
  struct
    type nonrec t =
      {
      gatewayId: GatewayId.t
        [@ocaml.doc "The unique identifier of the gateway."];
      acmCertificateArn: AcmCertificateArn.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the ACM certificate."]}
    let context_ = "GetCertificateAssociationRequest"
    let make ~gatewayId =
      fun ~acmCertificateArn -> fun () -> { gatewayId; acmCertificateArn }
    let to_value x =
      structure_to_value
        [("gatewayId", (Some (GatewayId.to_value x.gatewayId)));
        ("acmCertificateArn",
          (Some (AcmCertificateArn.to_value x.acmCertificateArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let acmCertificateArn =
        AcmCertificateArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "acmCertificateArn") in
      let gatewayId =
        GatewayId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "gatewayId") in
      make ~acmCertificateArn ~gatewayId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let acmCertificateArn =
        field_map_exn json__ "acmCertificateArn" AcmCertificateArn.of_json in
      let gatewayId = field_map_exn json__ "gatewayId" GatewayId.of_json in
      make ~acmCertificateArn ~gatewayId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the details of a certificate association with a responder gateway."]
module DisassociateCertificateResponse =
  struct
    type nonrec t =
      {
      gatewayId: GatewayId.t option
        [@ocaml.doc "The unique identifier of the gateway."];
      acmCertificateArn: AcmCertificateArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the ACM certificate."];
      status: CertificateAssociationStatus.t option
        [@ocaml.doc "The status of the certificate association."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayId =
      fun ?acmCertificateArn ->
        fun ?status -> fun () -> { gatewayId; acmCertificateArn; status }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("gatewayId", (Option.map x.gatewayId ~f:GatewayId.to_value));
        ("acmCertificateArn",
          (Option.map x.acmCertificateArn ~f:AcmCertificateArn.to_value));
        ("status",
          (Option.map x.status ~f:CertificateAssociationStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:CertificateAssociationStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let acmCertificateArn =
        (Option.map ~f:AcmCertificateArn.of_xml)
          (Xml.child xml_arg0 "acmCertificateArn") in
      let gatewayId =
        (Option.map ~f:GatewayId.of_xml) (Xml.child xml_arg0 "gatewayId") in
      make ?status ?acmCertificateArn ?gatewayId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status =
        field_map json__ "status" CertificateAssociationStatus.of_json in
      let acmCertificateArn =
        field_map json__ "acmCertificateArn" AcmCertificateArn.of_json in
      let gatewayId = field_map json__ "gatewayId" GatewayId.of_json in
      make ?status ?acmCertificateArn ?gatewayId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes a certificate association from a responder gateway."]
module DisassociateCertificateRequest =
  struct
    type nonrec t =
      {
      gatewayId: GatewayId.t
        [@ocaml.doc "The unique identifier of the gateway."];
      acmCertificateArn: AcmCertificateArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the ACM certificate to disassociate."]}
    let context_ = "DisassociateCertificateRequest"
    let make ~gatewayId =
      fun ~acmCertificateArn -> fun () -> { gatewayId; acmCertificateArn }
    let to_value x =
      structure_to_value
        [("gatewayId", (Some (GatewayId.to_value x.gatewayId)));
        ("acmCertificateArn",
          (Some (AcmCertificateArn.to_value x.acmCertificateArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let acmCertificateArn =
        AcmCertificateArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "acmCertificateArn") in
      let gatewayId =
        GatewayId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "gatewayId") in
      make ~acmCertificateArn ~gatewayId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let acmCertificateArn =
        field_map_exn json__ "acmCertificateArn" AcmCertificateArn.of_json in
      let gatewayId = field_map_exn json__ "gatewayId" GatewayId.of_json in
      make ~acmCertificateArn ~gatewayId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes a certificate association from a responder gateway."]
module DeleteResponderGatewayResponse =
  struct
    type nonrec t =
      {
      gatewayId: GatewayId.t option
        [@ocaml.doc "The unique identifier of the gateway."];
      status: ResponderGatewayStatus.t option
        [@ocaml.doc "The status of the request."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayId = fun ?status -> fun () -> { gatewayId; status }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("gatewayId", (Option.map x.gatewayId ~f:GatewayId.to_value));
        ("status", (Option.map x.status ~f:ResponderGatewayStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:ResponderGatewayStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let gatewayId =
        (Option.map ~f:GatewayId.of_xml) (Xml.child xml_arg0 "gatewayId") in
      make ?status ?gatewayId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" ResponderGatewayStatus.of_json in
      let gatewayId = field_map json__ "gatewayId" GatewayId.of_json in
      make ?status ?gatewayId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes a responder gateway."]
module DeleteResponderGatewayRequest =
  struct
    type nonrec t =
      {
      gatewayId: GatewayId.t
        [@ocaml.doc "The unique identifier of the gateway."]}
    let context_ = "DeleteResponderGatewayRequest"
    let make ~gatewayId = fun () -> { gatewayId }
    let to_value x =
      structure_to_value
        [("gatewayId", (Some (GatewayId.to_value x.gatewayId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatewayId =
        GatewayId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "gatewayId") in
      make ~gatewayId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatewayId = field_map_exn json__ "gatewayId" GatewayId.of_json in
      make ~gatewayId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes a responder gateway."]
module DeleteRequesterGatewayResponse =
  struct
    type nonrec t =
      {
      gatewayId: GatewayId.t option
        [@ocaml.doc "The unique identifier of the gateway."];
      status: RequesterGatewayStatus.t option
        [@ocaml.doc "The status of the request."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayId = fun ?status -> fun () -> { gatewayId; status }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("gatewayId", (Option.map x.gatewayId ~f:GatewayId.to_value));
        ("status", (Option.map x.status ~f:RequesterGatewayStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:RequesterGatewayStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let gatewayId =
        (Option.map ~f:GatewayId.of_xml) (Xml.child xml_arg0 "gatewayId") in
      make ?status ?gatewayId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" RequesterGatewayStatus.of_json in
      let gatewayId = field_map json__ "gatewayId" GatewayId.of_json in
      make ?status ?gatewayId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes a requester gateway."]
module DeleteRequesterGatewayRequest =
  struct
    type nonrec t =
      {
      gatewayId: GatewayId.t
        [@ocaml.doc "The unique identifier of the gateway."]}
    let context_ = "DeleteRequesterGatewayRequest"
    let make ~gatewayId = fun () -> { gatewayId }
    let to_value x =
      structure_to_value
        [("gatewayId", (Some (GatewayId.to_value x.gatewayId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatewayId =
        GatewayId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "gatewayId") in
      make ~gatewayId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatewayId = field_map_exn json__ "gatewayId" GatewayId.of_json in
      make ~gatewayId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes a requester gateway."]
module DeleteOutboundExternalLinkResponse =
  struct
    type nonrec t =
      {
      linkId: LinkId.t option
        [@ocaml.doc "The unique identifier of the link."];
      status: LinkStatus.t option [@ocaml.doc "The status of the request."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?linkId = fun ?status -> fun () -> { linkId; status }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("linkId", (Option.map x.linkId ~f:LinkId.to_value));
        ("status", (Option.map x.status ~f:LinkStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:LinkStatus.of_xml) (Xml.child xml_arg0 "status") in
      let linkId =
        (Option.map ~f:LinkId.of_xml) (Xml.child xml_arg0 "linkId") in
      make ?status ?linkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" LinkStatus.of_json in
      let linkId = field_map json__ "linkId" LinkId.of_json in
      make ?status ?linkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes an outbound external link."]
module DeleteOutboundExternalLinkRequest =
  struct
    type nonrec t =
      {
      gatewayId: GatewayId.t
        [@ocaml.doc "The unique identifier of the gateway."];
      linkId: LinkId.t [@ocaml.doc "The unique identifier of the link."]}
    let context_ = "DeleteOutboundExternalLinkRequest"
    let make ~gatewayId = fun ~linkId -> fun () -> { gatewayId; linkId }
    let to_value x =
      structure_to_value
        [("gatewayId", (Some (GatewayId.to_value x.gatewayId)));
        ("linkId", (Some (LinkId.to_value x.linkId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let linkId =
        LinkId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "linkId") in
      let gatewayId =
        GatewayId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "gatewayId") in
      make ~linkId ~gatewayId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let linkId = field_map_exn json__ "linkId" LinkId.of_json in
      let gatewayId = field_map_exn json__ "gatewayId" GatewayId.of_json in
      make ~linkId ~gatewayId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes an outbound external link."]
module DeleteLinkRoutingRuleResponse =
  struct
    type nonrec t =
      {
      ruleId: RuleId.t option
        [@ocaml.doc "The unique identifier of the routing rule."];
      status: RuleStatus.t option
        [@ocaml.doc "The status of the routing rule."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?ruleId = fun ?status -> fun () -> { ruleId; status }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ruleId", (Option.map x.ruleId ~f:RuleId.to_value));
        ("status", (Option.map x.status ~f:RuleStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:RuleStatus.of_xml) (Xml.child xml_arg0 "status") in
      let ruleId =
        (Option.map ~f:RuleId.of_xml) (Xml.child xml_arg0 "ruleId") in
      make ?status ?ruleId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" RuleStatus.of_json in
      let ruleId = field_map json__ "ruleId" RuleId.of_json in
      make ?status ?ruleId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes a routing rule from a link."]
module DeleteLinkRoutingRuleRequest =
  struct
    type nonrec t =
      {
      gatewayId: GatewayId.t
        [@ocaml.doc "The unique identifier of the gateway."];
      linkId: LinkId.t [@ocaml.doc "The unique identifier of the link."];
      ruleId: RuleId.t
        [@ocaml.doc "The unique identifier of the routing rule."]}
    let context_ = "DeleteLinkRoutingRuleRequest"
    let make ~gatewayId =
      fun ~linkId -> fun ~ruleId -> fun () -> { gatewayId; linkId; ruleId }
    let to_value x =
      structure_to_value
        [("gatewayId", (Some (GatewayId.to_value x.gatewayId)));
        ("linkId", (Some (LinkId.to_value x.linkId)));
        ("ruleId", (Some (RuleId.to_value x.ruleId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ruleId =
        RuleId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "ruleId") in
      let linkId =
        LinkId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "linkId") in
      let gatewayId =
        GatewayId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "gatewayId") in
      make ~ruleId ~linkId ~gatewayId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ruleId = field_map_exn json__ "ruleId" RuleId.of_json in
      let linkId = field_map_exn json__ "linkId" LinkId.of_json in
      let gatewayId = field_map_exn json__ "gatewayId" GatewayId.of_json in
      make ~ruleId ~linkId ~gatewayId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes a routing rule from a link."]
module DeleteLinkResponse =
  struct
    type nonrec t =
      {
      linkId: LinkId.t option
        [@ocaml.doc "The unique identifier of the link."];
      status: LinkStatus.t option [@ocaml.doc "The status of the link."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?linkId = fun ?status -> fun () -> { linkId; status }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("linkId", (Option.map x.linkId ~f:LinkId.to_value));
        ("status", (Option.map x.status ~f:LinkStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:LinkStatus.of_xml) (Xml.child xml_arg0 "status") in
      let linkId =
        (Option.map ~f:LinkId.of_xml) (Xml.child xml_arg0 "linkId") in
      make ?status ?linkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" LinkStatus.of_json in
      let linkId = field_map json__ "linkId" LinkId.of_json in
      make ?status ?linkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a link between gateways. Permanently removes the connection between gateways. This action cannot be undone."]
module DeleteLinkRequest =
  struct
    type nonrec t =
      {
      gatewayId: GatewayId.t
        [@ocaml.doc "The unique identifier of the gateway."];
      linkId: LinkId.t [@ocaml.doc "The unique identifier of the link."]}
    let context_ = "DeleteLinkRequest"
    let make ~gatewayId = fun ~linkId -> fun () -> { gatewayId; linkId }
    let to_value x =
      structure_to_value
        [("gatewayId", (Some (GatewayId.to_value x.gatewayId)));
        ("linkId", (Some (LinkId.to_value x.linkId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let linkId =
        LinkId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "linkId") in
      let gatewayId =
        GatewayId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "gatewayId") in
      make ~linkId ~gatewayId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let linkId = field_map_exn json__ "linkId" LinkId.of_json in
      let gatewayId = field_map_exn json__ "gatewayId" GatewayId.of_json in
      make ~linkId ~gatewayId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a link between gateways. Permanently removes the connection between gateways. This action cannot be undone."]
module DeleteInboundExternalLinkResponse =
  struct
    type nonrec t =
      {
      linkId: LinkId.t option
        [@ocaml.doc "The unique identifier of the link."];
      status: LinkStatus.t option [@ocaml.doc "The status of the request."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?linkId = fun ?status -> fun () -> { linkId; status }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("linkId", (Option.map x.linkId ~f:LinkId.to_value));
        ("status", (Option.map x.status ~f:LinkStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:LinkStatus.of_xml) (Xml.child xml_arg0 "status") in
      let linkId =
        (Option.map ~f:LinkId.of_xml) (Xml.child xml_arg0 "linkId") in
      make ?status ?linkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" LinkStatus.of_json in
      let linkId = field_map json__ "linkId" LinkId.of_json in
      make ?status ?linkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes an inbound external link."]
module DeleteInboundExternalLinkRequest =
  struct
    type nonrec t =
      {
      gatewayId: GatewayId.t
        [@ocaml.doc "The unique identifier of the gateway."];
      linkId: LinkId.t [@ocaml.doc "The unique identifier of the link."]}
    let context_ = "DeleteInboundExternalLinkRequest"
    let make ~gatewayId = fun ~linkId -> fun () -> { gatewayId; linkId }
    let to_value x =
      structure_to_value
        [("gatewayId", (Some (GatewayId.to_value x.gatewayId)));
        ("linkId", (Some (LinkId.to_value x.linkId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let linkId =
        LinkId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "linkId") in
      let gatewayId =
        GatewayId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "gatewayId") in
      make ~linkId ~gatewayId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let linkId = field_map_exn json__ "linkId" LinkId.of_json in
      let gatewayId = field_map_exn json__ "gatewayId" GatewayId.of_json in
      make ~linkId ~gatewayId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes an inbound external link."]
module CreateResponderGatewayResponse =
  struct
    type nonrec t =
      {
      gatewayId: GatewayId.t option
        [@ocaml.doc "The unique identifier of the gateway."];
      status: ResponderGatewayStatus.t option
        [@ocaml.doc "The status of the request."];
      listenerConfig: ListenerConfig.t option
        [@ocaml.doc "The listener configuration for the responder gateway."];
      externalInboundEndpoint: DomainName.t option
        [@ocaml.doc
          "The external inbound endpoint for the responder gateway."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayId =
      fun ?status ->
        fun ?listenerConfig ->
          fun ?externalInboundEndpoint ->
            fun () ->
              { gatewayId; status; listenerConfig; externalInboundEndpoint }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("gatewayId", (Option.map x.gatewayId ~f:GatewayId.to_value));
        ("status", (Option.map x.status ~f:ResponderGatewayStatus.to_value));
        ("listenerConfig",
          (Option.map x.listenerConfig ~f:ListenerConfig.to_value));
        ("externalInboundEndpoint",
          (Option.map x.externalInboundEndpoint ~f:DomainName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let externalInboundEndpoint =
        (Option.map ~f:DomainName.of_xml)
          (Xml.child xml_arg0 "externalInboundEndpoint") in
      let listenerConfig =
        (Option.map ~f:ListenerConfig.of_xml)
          (Xml.child xml_arg0 "listenerConfig") in
      let status =
        (Option.map ~f:ResponderGatewayStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let gatewayId =
        (Option.map ~f:GatewayId.of_xml) (Xml.child xml_arg0 "gatewayId") in
      make ?externalInboundEndpoint ?listenerConfig ?status ?gatewayId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let externalInboundEndpoint =
        field_map json__ "externalInboundEndpoint" DomainName.of_json in
      let listenerConfig =
        field_map json__ "listenerConfig" ListenerConfig.of_json in
      let status = field_map json__ "status" ResponderGatewayStatus.of_json in
      let gatewayId = field_map json__ "gatewayId" GatewayId.of_json in
      make ?externalInboundEndpoint ?listenerConfig ?status ?gatewayId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a responder gateway. A domain name or managed endpoint is required."]
module CreateResponderGatewayRequest =
  struct
    type nonrec t =
      {
      vpcId: VpcId.t
        [@ocaml.doc
          "The unique identifier of the Virtual Private Cloud (VPC)."];
      subnetIds: CreateResponderGatewayRequestSubnetIdsList.t
        [@ocaml.doc "The unique identifiers of the subnets."];
      securityGroupIds: CreateResponderGatewayRequestSecurityGroupIdsList.t
        [@ocaml.doc "The unique identifiers of the security groups."];
      domainName: DomainName.t option
        [@ocaml.doc "The domain name for the responder gateway."];
      port: CreateResponderGatewayRequestPortInteger.t
        [@ocaml.doc "The networking port to use."];
      protocol: Protocol.t [@ocaml.doc "The networking protocol to use."];
      listenerConfig: ListenerConfig.t option ;
      trustStoreConfiguration: TrustStoreConfiguration.t option
        [@ocaml.doc "The configuration of the trust store."];
      managedEndpointConfiguration: ManagedEndpointConfiguration.t option
        [@ocaml.doc "The configuration for the managed endpoint."];
      clientToken: String_.t [@ocaml.doc "The unique client token."];
      description: CreateResponderGatewayRequestDescriptionString.t option
        [@ocaml.doc "An optional description for the responder gateway."];
      tags: TagsMap.t option
        [@ocaml.doc
          "A map of the key-value pairs of the tag or tags to assign to the resource."];
      gatewayType: GatewayType.t option
        [@ocaml.doc
          "The type of gateway. Valid values are EXTERNAL or INTERNAL."]}
    let context_ = "CreateResponderGatewayRequest"
    let make ?domainName =
      fun ?listenerConfig ->
        fun ?trustStoreConfiguration ->
          fun ?managedEndpointConfiguration ->
            fun ?description ->
              fun ?tags ->
                fun ?gatewayType ->
                  fun ~vpcId ->
                    fun ~subnetIds ->
                      fun ~securityGroupIds ->
                        fun ~port ->
                          fun ~protocol ->
                            fun ~clientToken ->
                              fun () ->
                                {
                                  domainName;
                                  listenerConfig;
                                  trustStoreConfiguration;
                                  managedEndpointConfiguration;
                                  description;
                                  tags;
                                  gatewayType;
                                  vpcId;
                                  subnetIds;
                                  securityGroupIds;
                                  port;
                                  protocol;
                                  clientToken
                                }
    let to_value x =
      structure_to_value
        [("vpcId", (Some (VpcId.to_value x.vpcId)));
        ("subnetIds",
          (Some
             (CreateResponderGatewayRequestSubnetIdsList.to_value x.subnetIds)));
        ("securityGroupIds",
          (Some
             (CreateResponderGatewayRequestSecurityGroupIdsList.to_value
                x.securityGroupIds)));
        ("domainName", (Option.map x.domainName ~f:DomainName.to_value));
        ("port",
          (Some (CreateResponderGatewayRequestPortInteger.to_value x.port)));
        ("protocol", (Some (Protocol.to_value x.protocol)));
        ("listenerConfig",
          (Option.map x.listenerConfig ~f:ListenerConfig.to_value));
        ("trustStoreConfiguration",
          (Option.map x.trustStoreConfiguration
             ~f:TrustStoreConfiguration.to_value));
        ("managedEndpointConfiguration",
          (Option.map x.managedEndpointConfiguration
             ~f:ManagedEndpointConfiguration.to_value));
        ("clientToken", (Some (String_.to_value x.clientToken)));
        ("description",
          (Option.map x.description
             ~f:CreateResponderGatewayRequestDescriptionString.to_value));
        ("tags", (Option.map x.tags ~f:TagsMap.to_value));
        ("gatewayType", (Option.map x.gatewayType ~f:GatewayType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatewayType =
        (Option.map ~f:GatewayType.of_xml) (Xml.child xml_arg0 "gatewayType") in
      let tags = (Option.map ~f:TagsMap.of_xml) (Xml.child xml_arg0 "tags") in
      let description =
        (Option.map ~f:CreateResponderGatewayRequestDescriptionString.of_xml)
          (Xml.child xml_arg0 "description") in
      let clientToken =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "clientToken") in
      let managedEndpointConfiguration =
        (Option.map ~f:ManagedEndpointConfiguration.of_xml)
          (Xml.child xml_arg0 "managedEndpointConfiguration") in
      let trustStoreConfiguration =
        (Option.map ~f:TrustStoreConfiguration.of_xml)
          (Xml.child xml_arg0 "trustStoreConfiguration") in
      let listenerConfig =
        (Option.map ~f:ListenerConfig.of_xml)
          (Xml.child xml_arg0 "listenerConfig") in
      let protocol =
        Protocol.of_xml (Xml.child_exn ~context:context_ xml_arg0 "protocol") in
      let port =
        CreateResponderGatewayRequestPortInteger.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "port") in
      let domainName =
        (Option.map ~f:DomainName.of_xml) (Xml.child xml_arg0 "domainName") in
      let securityGroupIds =
        CreateResponderGatewayRequestSecurityGroupIdsList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "securityGroupIds") in
      let subnetIds =
        CreateResponderGatewayRequestSubnetIdsList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "subnetIds") in
      let vpcId =
        VpcId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "vpcId") in
      make ?gatewayType ?tags ?description ~clientToken
        ?managedEndpointConfiguration ?trustStoreConfiguration
        ?listenerConfig ~protocol ~port ?domainName ~securityGroupIds
        ~subnetIds ~vpcId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatewayType = field_map json__ "gatewayType" GatewayType.of_json in
      let tags = field_map json__ "tags" TagsMap.of_json in
      let description =
        field_map json__ "description"
          CreateResponderGatewayRequestDescriptionString.of_json in
      let clientToken = field_map_exn json__ "clientToken" String_.of_json in
      let managedEndpointConfiguration =
        field_map json__ "managedEndpointConfiguration"
          ManagedEndpointConfiguration.of_json in
      let trustStoreConfiguration =
        field_map json__ "trustStoreConfiguration"
          TrustStoreConfiguration.of_json in
      let listenerConfig =
        field_map json__ "listenerConfig" ListenerConfig.of_json in
      let protocol = field_map_exn json__ "protocol" Protocol.of_json in
      let port =
        field_map_exn json__ "port"
          CreateResponderGatewayRequestPortInteger.of_json in
      let domainName = field_map json__ "domainName" DomainName.of_json in
      let securityGroupIds =
        field_map_exn json__ "securityGroupIds"
          CreateResponderGatewayRequestSecurityGroupIdsList.of_json in
      let subnetIds =
        field_map_exn json__ "subnetIds"
          CreateResponderGatewayRequestSubnetIdsList.of_json in
      let vpcId = field_map_exn json__ "vpcId" VpcId.of_json in
      make ?gatewayType ?tags ?description ~clientToken
        ?managedEndpointConfiguration ?trustStoreConfiguration
        ?listenerConfig ~protocol ~port ?domainName ~securityGroupIds
        ~subnetIds ~vpcId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a responder gateway. A domain name or managed endpoint is required."]
module CreateRequesterGatewayResponse =
  struct
    type nonrec t =
      {
      gatewayId: GatewayId.t option
        [@ocaml.doc "The unique identifier of the gateway."];
      domainName: DomainName.t option
        [@ocaml.doc "The domain name of the requester gateway."];
      status: RequesterGatewayStatus.t option
        [@ocaml.doc "The status of the request."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayId =
      fun ?domainName ->
        fun ?status -> fun () -> { gatewayId; domainName; status }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("gatewayId", (Option.map x.gatewayId ~f:GatewayId.to_value));
        ("domainName", (Option.map x.domainName ~f:DomainName.to_value));
        ("status", (Option.map x.status ~f:RequesterGatewayStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:RequesterGatewayStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let domainName =
        (Option.map ~f:DomainName.of_xml) (Xml.child xml_arg0 "domainName") in
      let gatewayId =
        (Option.map ~f:GatewayId.of_xml) (Xml.child xml_arg0 "gatewayId") in
      make ?status ?domainName ?gatewayId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" RequesterGatewayStatus.of_json in
      let domainName = field_map json__ "domainName" DomainName.of_json in
      let gatewayId = field_map json__ "gatewayId" GatewayId.of_json in
      make ?status ?domainName ?gatewayId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a requester gateway."]
module CreateRequesterGatewayRequest =
  struct
    type nonrec t =
      {
      vpcId: VpcId.t
        [@ocaml.doc
          "The unique identifier of the Virtual Private Cloud (VPC)."];
      subnetIds: CreateRequesterGatewayRequestSubnetIdsList.t
        [@ocaml.doc "The unique identifiers of the subnets."];
      securityGroupIds: CreateRequesterGatewayRequestSecurityGroupIdsList.t
        [@ocaml.doc "The unique identifiers of the security groups."];
      clientToken: String_.t [@ocaml.doc "The unique client token."];
      description: CreateRequesterGatewayRequestDescriptionString.t option
        [@ocaml.doc "An optional description for the requester gateway."];
      tags: TagsMap.t option
        [@ocaml.doc
          "A map of the key-value pairs of the tag or tags to assign to the resource."]}
    let context_ = "CreateRequesterGatewayRequest"
    let make ?description =
      fun ?tags ->
        fun ~vpcId ->
          fun ~subnetIds ->
            fun ~securityGroupIds ->
              fun ~clientToken ->
                fun () ->
                  {
                    description;
                    tags;
                    vpcId;
                    subnetIds;
                    securityGroupIds;
                    clientToken
                  }
    let to_value x =
      structure_to_value
        [("vpcId", (Some (VpcId.to_value x.vpcId)));
        ("subnetIds",
          (Some
             (CreateRequesterGatewayRequestSubnetIdsList.to_value x.subnetIds)));
        ("securityGroupIds",
          (Some
             (CreateRequesterGatewayRequestSecurityGroupIdsList.to_value
                x.securityGroupIds)));
        ("clientToken", (Some (String_.to_value x.clientToken)));
        ("description",
          (Option.map x.description
             ~f:CreateRequesterGatewayRequestDescriptionString.to_value));
        ("tags", (Option.map x.tags ~f:TagsMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagsMap.of_xml) (Xml.child xml_arg0 "tags") in
      let description =
        (Option.map ~f:CreateRequesterGatewayRequestDescriptionString.of_xml)
          (Xml.child xml_arg0 "description") in
      let clientToken =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "clientToken") in
      let securityGroupIds =
        CreateRequesterGatewayRequestSecurityGroupIdsList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "securityGroupIds") in
      let subnetIds =
        CreateRequesterGatewayRequestSubnetIdsList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "subnetIds") in
      let vpcId =
        VpcId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "vpcId") in
      make ?tags ?description ~clientToken ~securityGroupIds ~subnetIds
        ~vpcId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagsMap.of_json in
      let description =
        field_map json__ "description"
          CreateRequesterGatewayRequestDescriptionString.of_json in
      let clientToken = field_map_exn json__ "clientToken" String_.of_json in
      let securityGroupIds =
        field_map_exn json__ "securityGroupIds"
          CreateRequesterGatewayRequestSecurityGroupIdsList.of_json in
      let subnetIds =
        field_map_exn json__ "subnetIds"
          CreateRequesterGatewayRequestSubnetIdsList.of_json in
      let vpcId = field_map_exn json__ "vpcId" VpcId.of_json in
      make ?tags ?description ~clientToken ~securityGroupIds ~subnetIds
        ~vpcId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a requester gateway."]
module CreateOutboundExternalLinkResponse =
  struct
    type nonrec t =
      {
      gatewayId: GatewayId.t option
        [@ocaml.doc "The unique identifier of the gateway."];
      linkId: LinkId.t option
        [@ocaml.doc "The unique identifier of the link."];
      status: LinkStatus.t option [@ocaml.doc "The status of the request."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayId =
      fun ?linkId -> fun ?status -> fun () -> { gatewayId; linkId; status }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("gatewayId", (Option.map x.gatewayId ~f:GatewayId.to_value));
        ("linkId", (Option.map x.linkId ~f:LinkId.to_value));
        ("status", (Option.map x.status ~f:LinkStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:LinkStatus.of_xml) (Xml.child xml_arg0 "status") in
      let linkId =
        (Option.map ~f:LinkId.of_xml) (Xml.child xml_arg0 "linkId") in
      let gatewayId =
        (Option.map ~f:GatewayId.of_xml) (Xml.child xml_arg0 "gatewayId") in
      make ?status ?linkId ?gatewayId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" LinkStatus.of_json in
      let linkId = field_map json__ "linkId" LinkId.of_json in
      let gatewayId = field_map json__ "gatewayId" GatewayId.of_json in
      make ?status ?linkId ?gatewayId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates an outbound external link."]
module CreateOutboundExternalLinkRequest =
  struct
    type nonrec t =
      {
      clientToken: String_.t [@ocaml.doc "The unique client token."];
      gatewayId: GatewayId.t
        [@ocaml.doc "The unique identifier of the gateway."];
      attributes: LinkAttributes.t option
        [@ocaml.doc "Attributes of the link."];
      publicEndpoint: URL.t [@ocaml.doc "The public endpoint of the link."];
      logSettings: LinkLogSettings.t
        [@ocaml.doc "Settings for the application logs."];
      tags: TagsMap.t option
        [@ocaml.doc
          "A map of the key-value pairs of the tag or tags to assign to the resource."]}
    let context_ = "CreateOutboundExternalLinkRequest"
    let make ?attributes =
      fun ?tags ->
        fun ~clientToken ->
          fun ~gatewayId ->
            fun ~publicEndpoint ->
              fun ~logSettings ->
                fun () ->
                  {
                    attributes;
                    tags;
                    clientToken;
                    gatewayId;
                    publicEndpoint;
                    logSettings
                  }
    let to_value x =
      structure_to_value
        [("clientToken", (Some (String_.to_value x.clientToken)));
        ("gatewayId", (Some (GatewayId.to_value x.gatewayId)));
        ("attributes", (Option.map x.attributes ~f:LinkAttributes.to_value));
        ("publicEndpoint", (Some (URL.to_value x.publicEndpoint)));
        ("logSettings", (Some (LinkLogSettings.to_value x.logSettings)));
        ("tags", (Option.map x.tags ~f:TagsMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagsMap.of_xml) (Xml.child xml_arg0 "tags") in
      let logSettings =
        LinkLogSettings.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "logSettings") in
      let publicEndpoint =
        URL.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "publicEndpoint") in
      let attributes =
        (Option.map ~f:LinkAttributes.of_xml)
          (Xml.child xml_arg0 "attributes") in
      let gatewayId =
        GatewayId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "gatewayId") in
      let clientToken =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "clientToken") in
      make ?tags ~logSettings ~publicEndpoint ?attributes ~gatewayId
        ~clientToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagsMap.of_json in
      let logSettings =
        field_map_exn json__ "logSettings" LinkLogSettings.of_json in
      let publicEndpoint = field_map_exn json__ "publicEndpoint" URL.of_json in
      let attributes = field_map json__ "attributes" LinkAttributes.of_json in
      let gatewayId = field_map_exn json__ "gatewayId" GatewayId.of_json in
      let clientToken = field_map_exn json__ "clientToken" String_.of_json in
      make ?tags ~logSettings ~publicEndpoint ?attributes ~gatewayId
        ~clientToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates an outbound external link."]
module CreateLinkRoutingRuleResponse =
  struct
    type nonrec t =
      {
      ruleId: RuleId.t option
        [@ocaml.doc "The unique identifier of the routing rule."];
      status: RuleStatus.t option
        [@ocaml.doc "The status of the routing rule."];
      createdAt: Timestamp.t option
        [@ocaml.doc "The timestamp of when the routing rule was created."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?ruleId =
      fun ?status ->
        fun ?createdAt -> fun () -> { ruleId; status; createdAt }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ruleId", (Option.map x.ruleId ~f:RuleId.to_value));
        ("status", (Option.map x.status ~f:RuleStatus.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let status =
        (Option.map ~f:RuleStatus.of_xml) (Xml.child xml_arg0 "status") in
      let ruleId =
        (Option.map ~f:RuleId.of_xml) (Xml.child xml_arg0 "ruleId") in
      make ?createdAt ?status ?ruleId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let status = field_map json__ "status" RuleStatus.of_json in
      let ruleId = field_map json__ "ruleId" RuleId.of_json in
      make ?createdAt ?status ?ruleId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a routing rule for a link. Routing rules use priority-based evaluation where lower priority numbers are evaluated first. Each rule specifies conditions that must all match for the rule to apply."]
module CreateLinkRoutingRuleRequest =
  struct
    type nonrec t =
      {
      clientToken: String_.t
        [@ocaml.doc
          "Specifies a unique, case-sensitive identifier that you provide to ensure the idempotency of the request. This lets you safely retry the request without accidentally performing the same operation a second time. Passing the same value to a later call to an operation requires that you also pass the same value for all other parameters. We recommend that you use a UUID type of value. If you don't provide this value, then Amazon Web Services generates a random one for you. If you retry the operation with the same ClientToken, but with different parameters, the retry fails with an IdempotentParameterMismatch error."];
      gatewayId: GatewayId.t
        [@ocaml.doc "The unique identifier of the gateway."];
      linkId: LinkId.t [@ocaml.doc "The unique identifier of the link."];
      priority: RulePriority.t
        [@ocaml.doc
          "The priority of the routing rule. Lower numbers are evaluated first. Valid values are 1 to 1000. Priority must be unique among non-deleted rules within a link."];
      conditions: RuleCondition.t
        [@ocaml.doc
          "The conditions for the routing rule. All specified fields must match for the rule to apply. At least one condition field must be set."];
      tags: TagsMap.t option
        [@ocaml.doc
          "A map of the key-value pairs of the tag or tags to assign to the resource."]}
    let context_ = "CreateLinkRoutingRuleRequest"
    let make ?tags =
      fun ~clientToken ->
        fun ~gatewayId ->
          fun ~linkId ->
            fun ~priority ->
              fun ~conditions ->
                fun () ->
                  {
                    tags;
                    clientToken;
                    gatewayId;
                    linkId;
                    priority;
                    conditions
                  }
    let to_value x =
      structure_to_value
        [("clientToken", (Some (String_.to_value x.clientToken)));
        ("gatewayId", (Some (GatewayId.to_value x.gatewayId)));
        ("linkId", (Some (LinkId.to_value x.linkId)));
        ("priority", (Some (RulePriority.to_value x.priority)));
        ("conditions", (Some (RuleCondition.to_value x.conditions)));
        ("tags", (Option.map x.tags ~f:TagsMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagsMap.of_xml) (Xml.child xml_arg0 "tags") in
      let conditions =
        RuleCondition.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "conditions") in
      let priority =
        RulePriority.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "priority") in
      let linkId =
        LinkId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "linkId") in
      let gatewayId =
        GatewayId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "gatewayId") in
      let clientToken =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "clientToken") in
      make ?tags ~conditions ~priority ~linkId ~gatewayId ~clientToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagsMap.of_json in
      let conditions =
        field_map_exn json__ "conditions" RuleCondition.of_json in
      let priority = field_map_exn json__ "priority" RulePriority.of_json in
      let linkId = field_map_exn json__ "linkId" LinkId.of_json in
      let gatewayId = field_map_exn json__ "gatewayId" GatewayId.of_json in
      let clientToken = field_map_exn json__ "clientToken" String_.of_json in
      make ?tags ~conditions ~priority ~linkId ~gatewayId ~clientToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a routing rule for a link. Routing rules use priority-based evaluation where lower priority numbers are evaluated first. Each rule specifies conditions that must all match for the rule to apply."]
module CreateLinkResponse =
  struct
    type nonrec t =
      {
      gatewayId: GatewayId.t option
        [@ocaml.doc "The unique identifier of the gateway."];
      peerGatewayId: GatewayId.t option
        [@ocaml.doc "The unique identifier of the peer gateway."];
      status: LinkStatus.t option [@ocaml.doc "The status of the request."];
      createdAt: Timestamp.t option
        [@ocaml.doc "The timestamp of when the link was created."];
      updatedAt: Timestamp.t option
        [@ocaml.doc "The timestamp of when the link was updated."];
      direction: LinkDirection.t option
        [@ocaml.doc "The direction of the link."];
      flowModules: ModuleConfigurationList.t option
        [@ocaml.doc "The configuration of flow modules."];
      pendingFlowModules: ModuleConfigurationList.t option
        [@ocaml.doc "The configuration of pending flow modules."];
      attributes: LinkAttributes.t option
        [@ocaml.doc "Attributes of the link."];
      logSettings: LinkLogSettings.t option ;
      connectivityType: ConnectivityType.t option
        [@ocaml.doc "The connectivity type of the link."];
      linkId: LinkId.t option
        [@ocaml.doc "The unique identifier of the link."];
      customerProvidedId: CreateLinkResponseCustomerProvidedIdString.t option
        [@ocaml.doc "The customer-provided unique identifier of the link."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayId =
      fun ?peerGatewayId ->
        fun ?status ->
          fun ?createdAt ->
            fun ?updatedAt ->
              fun ?direction ->
                fun ?flowModules ->
                  fun ?pendingFlowModules ->
                    fun ?attributes ->
                      fun ?logSettings ->
                        fun ?connectivityType ->
                          fun ?linkId ->
                            fun ?customerProvidedId ->
                              fun () ->
                                {
                                  gatewayId;
                                  peerGatewayId;
                                  status;
                                  createdAt;
                                  updatedAt;
                                  direction;
                                  flowModules;
                                  pendingFlowModules;
                                  attributes;
                                  logSettings;
                                  connectivityType;
                                  linkId;
                                  customerProvidedId
                                }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("gatewayId", (Option.map x.gatewayId ~f:GatewayId.to_value));
        ("peerGatewayId", (Option.map x.peerGatewayId ~f:GatewayId.to_value));
        ("status", (Option.map x.status ~f:LinkStatus.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("updatedAt", (Option.map x.updatedAt ~f:Timestamp.to_value));
        ("direction", (Option.map x.direction ~f:LinkDirection.to_value));
        ("flowModules",
          (Option.map x.flowModules ~f:ModuleConfigurationList.to_value));
        ("pendingFlowModules",
          (Option.map x.pendingFlowModules
             ~f:ModuleConfigurationList.to_value));
        ("attributes", (Option.map x.attributes ~f:LinkAttributes.to_value));
        ("logSettings",
          (Option.map x.logSettings ~f:LinkLogSettings.to_value));
        ("connectivityType",
          (Option.map x.connectivityType ~f:ConnectivityType.to_value));
        ("linkId", (Option.map x.linkId ~f:LinkId.to_value));
        ("customerProvidedId",
          (Option.map x.customerProvidedId
             ~f:CreateLinkResponseCustomerProvidedIdString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let customerProvidedId =
        (Option.map ~f:CreateLinkResponseCustomerProvidedIdString.of_xml)
          (Xml.child xml_arg0 "customerProvidedId") in
      let linkId =
        (Option.map ~f:LinkId.of_xml) (Xml.child xml_arg0 "linkId") in
      let connectivityType =
        (Option.map ~f:ConnectivityType.of_xml)
          (Xml.child xml_arg0 "connectivityType") in
      let logSettings =
        (Option.map ~f:LinkLogSettings.of_xml)
          (Xml.child xml_arg0 "logSettings") in
      let attributes =
        (Option.map ~f:LinkAttributes.of_xml)
          (Xml.child xml_arg0 "attributes") in
      let pendingFlowModules =
        (Option.map ~f:ModuleConfigurationList.of_xml)
          (Xml.child xml_arg0 "pendingFlowModules") in
      let flowModules =
        (Option.map ~f:ModuleConfigurationList.of_xml)
          (Xml.child xml_arg0 "flowModules") in
      let direction =
        (Option.map ~f:LinkDirection.of_xml) (Xml.child xml_arg0 "direction") in
      let updatedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "updatedAt") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let status =
        (Option.map ~f:LinkStatus.of_xml) (Xml.child xml_arg0 "status") in
      let peerGatewayId =
        (Option.map ~f:GatewayId.of_xml) (Xml.child xml_arg0 "peerGatewayId") in
      let gatewayId =
        (Option.map ~f:GatewayId.of_xml) (Xml.child xml_arg0 "gatewayId") in
      make ?customerProvidedId ?linkId ?connectivityType ?logSettings
        ?attributes ?pendingFlowModules ?flowModules ?direction ?updatedAt
        ?createdAt ?status ?peerGatewayId ?gatewayId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let customerProvidedId =
        field_map json__ "customerProvidedId"
          CreateLinkResponseCustomerProvidedIdString.of_json in
      let linkId = field_map json__ "linkId" LinkId.of_json in
      let connectivityType =
        field_map json__ "connectivityType" ConnectivityType.of_json in
      let logSettings =
        field_map json__ "logSettings" LinkLogSettings.of_json in
      let attributes = field_map json__ "attributes" LinkAttributes.of_json in
      let pendingFlowModules =
        field_map json__ "pendingFlowModules" ModuleConfigurationList.of_json in
      let flowModules =
        field_map json__ "flowModules" ModuleConfigurationList.of_json in
      let direction = field_map json__ "direction" LinkDirection.of_json in
      let updatedAt = field_map json__ "updatedAt" Timestamp.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let status = field_map json__ "status" LinkStatus.of_json in
      let peerGatewayId = field_map json__ "peerGatewayId" GatewayId.of_json in
      let gatewayId = field_map json__ "gatewayId" GatewayId.of_json in
      make ?customerProvidedId ?linkId ?connectivityType ?logSettings
        ?attributes ?pendingFlowModules ?flowModules ?direction ?updatedAt
        ?createdAt ?status ?peerGatewayId ?gatewayId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new link between gateways. Establishes a connection that allows gateways to communicate and exchange bid requests and responses."]
module CreateLinkRequest =
  struct
    type nonrec t =
      {
      gatewayId: GatewayId.t
        [@ocaml.doc "The unique identifier of the gateway."];
      peerGatewayId: GatewayId.t
        [@ocaml.doc "The unique identifier of the peer gateway."];
      attributes: LinkAttributes.t option
        [@ocaml.doc "Attributes of the link."];
      httpResponderAllowed: Boolean.t option
        [@ocaml.doc "Boolean to specify if an HTTP responder is allowed."];
      tags: TagsMap.t option
        [@ocaml.doc
          "A map of the key-value pairs of the tag or tags to assign to the resource."];
      logSettings: LinkLogSettings.t
        [@ocaml.doc "Settings for the application logs."];
      timeoutInMillis: LinkTimeoutInMillis.t option
        [@ocaml.doc "The timeout value in milliseconds."]}
    let context_ = "CreateLinkRequest"
    let make ?attributes =
      fun ?httpResponderAllowed ->
        fun ?tags ->
          fun ?timeoutInMillis ->
            fun ~gatewayId ->
              fun ~peerGatewayId ->
                fun ~logSettings ->
                  fun () ->
                    {
                      attributes;
                      httpResponderAllowed;
                      tags;
                      timeoutInMillis;
                      gatewayId;
                      peerGatewayId;
                      logSettings
                    }
    let to_value x =
      structure_to_value
        [("gatewayId", (Some (GatewayId.to_value x.gatewayId)));
        ("peerGatewayId", (Some (GatewayId.to_value x.peerGatewayId)));
        ("attributes", (Option.map x.attributes ~f:LinkAttributes.to_value));
        ("httpResponderAllowed",
          (Option.map x.httpResponderAllowed ~f:Boolean.to_value));
        ("tags", (Option.map x.tags ~f:TagsMap.to_value));
        ("logSettings", (Some (LinkLogSettings.to_value x.logSettings)));
        ("timeoutInMillis",
          (Option.map x.timeoutInMillis ~f:LinkTimeoutInMillis.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let timeoutInMillis =
        (Option.map ~f:LinkTimeoutInMillis.of_xml)
          (Xml.child xml_arg0 "timeoutInMillis") in
      let logSettings =
        LinkLogSettings.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "logSettings") in
      let tags = (Option.map ~f:TagsMap.of_xml) (Xml.child xml_arg0 "tags") in
      let httpResponderAllowed =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "httpResponderAllowed") in
      let attributes =
        (Option.map ~f:LinkAttributes.of_xml)
          (Xml.child xml_arg0 "attributes") in
      let peerGatewayId =
        GatewayId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "peerGatewayId") in
      let gatewayId =
        GatewayId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "gatewayId") in
      make ?timeoutInMillis ~logSettings ?tags ?httpResponderAllowed
        ?attributes ~peerGatewayId ~gatewayId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let timeoutInMillis =
        field_map json__ "timeoutInMillis" LinkTimeoutInMillis.of_json in
      let logSettings =
        field_map_exn json__ "logSettings" LinkLogSettings.of_json in
      let tags = field_map json__ "tags" TagsMap.of_json in
      let httpResponderAllowed =
        field_map json__ "httpResponderAllowed" Boolean.of_json in
      let attributes = field_map json__ "attributes" LinkAttributes.of_json in
      let peerGatewayId =
        field_map_exn json__ "peerGatewayId" GatewayId.of_json in
      let gatewayId = field_map_exn json__ "gatewayId" GatewayId.of_json in
      make ?timeoutInMillis ~logSettings ?tags ?httpResponderAllowed
        ?attributes ~peerGatewayId ~gatewayId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new link between gateways. Establishes a connection that allows gateways to communicate and exchange bid requests and responses."]
module CreateInboundExternalLinkResponse =
  struct
    type nonrec t =
      {
      gatewayId: GatewayId.t option
        [@ocaml.doc "The unique identifier of the gateway."];
      linkId: LinkId.t option
        [@ocaml.doc "The unique identifier of the link."];
      status: LinkStatus.t option [@ocaml.doc "The status of the request."];
      domainName: DomainName.t option [@ocaml.doc "The domain name."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayId =
      fun ?linkId ->
        fun ?status ->
          fun ?domainName ->
            fun () -> { gatewayId; linkId; status; domainName }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("gatewayId", (Option.map x.gatewayId ~f:GatewayId.to_value));
        ("linkId", (Option.map x.linkId ~f:LinkId.to_value));
        ("status", (Option.map x.status ~f:LinkStatus.to_value));
        ("domainName", (Option.map x.domainName ~f:DomainName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let domainName =
        (Option.map ~f:DomainName.of_xml) (Xml.child xml_arg0 "domainName") in
      let status =
        (Option.map ~f:LinkStatus.of_xml) (Xml.child xml_arg0 "status") in
      let linkId =
        (Option.map ~f:LinkId.of_xml) (Xml.child xml_arg0 "linkId") in
      let gatewayId =
        (Option.map ~f:GatewayId.of_xml) (Xml.child xml_arg0 "gatewayId") in
      make ?domainName ?status ?linkId ?gatewayId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let domainName = field_map json__ "domainName" DomainName.of_json in
      let status = field_map json__ "status" LinkStatus.of_json in
      let linkId = field_map json__ "linkId" LinkId.of_json in
      let gatewayId = field_map json__ "gatewayId" GatewayId.of_json in
      make ?domainName ?status ?linkId ?gatewayId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates an inbound external link."]
module CreateInboundExternalLinkRequest =
  struct
    type nonrec t =
      {
      clientToken: String_.t [@ocaml.doc "The unique client token."];
      gatewayId: GatewayId.t
        [@ocaml.doc "The unique identifier of the gateway."];
      attributes: LinkAttributes.t option
        [@ocaml.doc "Attributes of the link."];
      logSettings: LinkLogSettings.t
        [@ocaml.doc "Settings for the application logs."];
      tags: TagsMap.t option
        [@ocaml.doc
          "A map of the key-value pairs of the tag or tags to assign to the resource."]}
    let context_ = "CreateInboundExternalLinkRequest"
    let make ?attributes =
      fun ?tags ->
        fun ~clientToken ->
          fun ~gatewayId ->
            fun ~logSettings ->
              fun () ->
                { attributes; tags; clientToken; gatewayId; logSettings }
    let to_value x =
      structure_to_value
        [("clientToken", (Some (String_.to_value x.clientToken)));
        ("gatewayId", (Some (GatewayId.to_value x.gatewayId)));
        ("attributes", (Option.map x.attributes ~f:LinkAttributes.to_value));
        ("logSettings", (Some (LinkLogSettings.to_value x.logSettings)));
        ("tags", (Option.map x.tags ~f:TagsMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagsMap.of_xml) (Xml.child xml_arg0 "tags") in
      let logSettings =
        LinkLogSettings.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "logSettings") in
      let attributes =
        (Option.map ~f:LinkAttributes.of_xml)
          (Xml.child xml_arg0 "attributes") in
      let gatewayId =
        GatewayId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "gatewayId") in
      let clientToken =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "clientToken") in
      make ?tags ~logSettings ?attributes ~gatewayId ~clientToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagsMap.of_json in
      let logSettings =
        field_map_exn json__ "logSettings" LinkLogSettings.of_json in
      let attributes = field_map json__ "attributes" LinkAttributes.of_json in
      let gatewayId = field_map_exn json__ "gatewayId" GatewayId.of_json in
      let clientToken = field_map_exn json__ "clientToken" String_.of_json in
      make ?tags ~logSettings ?attributes ~gatewayId ~clientToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates an inbound external link."]
module AssociateCertificateResponse =
  struct
    type nonrec t =
      {
      gatewayId: GatewayId.t option
        [@ocaml.doc "The unique identifier of the gateway."];
      acmCertificateArn: AcmCertificateArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the ACM certificate."];
      status: CertificateAssociationStatus.t option
        [@ocaml.doc "The status of the certificate association."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayId =
      fun ?acmCertificateArn ->
        fun ?status -> fun () -> { gatewayId; acmCertificateArn; status }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("gatewayId", (Option.map x.gatewayId ~f:GatewayId.to_value));
        ("acmCertificateArn",
          (Option.map x.acmCertificateArn ~f:AcmCertificateArn.to_value));
        ("status",
          (Option.map x.status ~f:CertificateAssociationStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:CertificateAssociationStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let acmCertificateArn =
        (Option.map ~f:AcmCertificateArn.of_xml)
          (Xml.child xml_arg0 "acmCertificateArn") in
      let gatewayId =
        (Option.map ~f:GatewayId.of_xml) (Xml.child xml_arg0 "gatewayId") in
      make ?status ?acmCertificateArn ?gatewayId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status =
        field_map json__ "status" CertificateAssociationStatus.of_json in
      let acmCertificateArn =
        field_map json__ "acmCertificateArn" AcmCertificateArn.of_json in
      let gatewayId = field_map json__ "gatewayId" GatewayId.of_json in
      make ?status ?acmCertificateArn ?gatewayId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Associates an ACM certificate with a responder gateway."]
module AssociateCertificateRequest =
  struct
    type nonrec t =
      {
      gatewayId: GatewayId.t
        [@ocaml.doc "The unique identifier of the gateway."];
      acmCertificateArn: AcmCertificateArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the ACM certificate to associate."];
      clientToken: String_.t
        [@ocaml.doc
          "Specifies a unique, case-sensitive identifier that you provide to ensure the idempotency of the request. This lets you safely retry the request without accidentally performing the same operation a second time. Passing the same value to a later call to an operation requires that you also pass the same value for all other parameters. We recommend that you use a UUID type of value. If you don't provide this value, then Amazon Web Services generates a random one for you. If you retry the operation with the same ClientToken, but with different parameters, the retry fails with an IdempotentParameterMismatch error."]}
    let context_ = "AssociateCertificateRequest"
    let make ~gatewayId =
      fun ~acmCertificateArn ->
        fun ~clientToken ->
          fun () -> { gatewayId; acmCertificateArn; clientToken }
    let to_value x =
      structure_to_value
        [("gatewayId", (Some (GatewayId.to_value x.gatewayId)));
        ("acmCertificateArn",
          (Some (AcmCertificateArn.to_value x.acmCertificateArn)));
        ("clientToken", (Some (String_.to_value x.clientToken)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "clientToken") in
      let acmCertificateArn =
        AcmCertificateArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "acmCertificateArn") in
      let gatewayId =
        GatewayId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "gatewayId") in
      make ~clientToken ~acmCertificateArn ~gatewayId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map_exn json__ "clientToken" String_.of_json in
      let acmCertificateArn =
        field_map_exn json__ "acmCertificateArn" AcmCertificateArn.of_json in
      let gatewayId = field_map_exn json__ "gatewayId" GatewayId.of_json in
      make ~clientToken ~acmCertificateArn ~gatewayId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Associates an ACM certificate with a responder gateway."]
module AcceptLinkResponse =
  struct
    type nonrec t =
      {
      gatewayId: GatewayId.t option
        [@ocaml.doc "The unique identifier of the gateway."];
      peerGatewayId: GatewayId.t option
        [@ocaml.doc "The unique identifier of the peer gateway."];
      status: LinkStatus.t option [@ocaml.doc "The status of the link."];
      createdAt: Timestamp.t option
        [@ocaml.doc "The timestamp of when the link was created."];
      updatedAt: Timestamp.t option
        [@ocaml.doc "The timestamp of when the link was updated."];
      direction: LinkDirection.t option
        [@ocaml.doc "The direction of the link."];
      flowModules: ModuleConfigurationList.t option
        [@ocaml.doc "The configuration of flow modules."];
      pendingFlowModules: ModuleConfigurationList.t option
        [@ocaml.doc "The configuration of pending flow modules."];
      attributes: LinkAttributes.t option
        [@ocaml.doc "Attributes of the link."];
      logSettings: LinkLogSettings.t option ;
      connectivityType: ConnectivityType.t option
        [@ocaml.doc "The connectivity type of the link."];
      linkId: LinkId.t option
        [@ocaml.doc "The unique identifier of the link."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayId =
      fun ?peerGatewayId ->
        fun ?status ->
          fun ?createdAt ->
            fun ?updatedAt ->
              fun ?direction ->
                fun ?flowModules ->
                  fun ?pendingFlowModules ->
                    fun ?attributes ->
                      fun ?logSettings ->
                        fun ?connectivityType ->
                          fun ?linkId ->
                            fun () ->
                              {
                                gatewayId;
                                peerGatewayId;
                                status;
                                createdAt;
                                updatedAt;
                                direction;
                                flowModules;
                                pendingFlowModules;
                                attributes;
                                logSettings;
                                connectivityType;
                                linkId
                              }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("gatewayId", (Option.map x.gatewayId ~f:GatewayId.to_value));
        ("peerGatewayId", (Option.map x.peerGatewayId ~f:GatewayId.to_value));
        ("status", (Option.map x.status ~f:LinkStatus.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("updatedAt", (Option.map x.updatedAt ~f:Timestamp.to_value));
        ("direction", (Option.map x.direction ~f:LinkDirection.to_value));
        ("flowModules",
          (Option.map x.flowModules ~f:ModuleConfigurationList.to_value));
        ("pendingFlowModules",
          (Option.map x.pendingFlowModules
             ~f:ModuleConfigurationList.to_value));
        ("attributes", (Option.map x.attributes ~f:LinkAttributes.to_value));
        ("logSettings",
          (Option.map x.logSettings ~f:LinkLogSettings.to_value));
        ("connectivityType",
          (Option.map x.connectivityType ~f:ConnectivityType.to_value));
        ("linkId", (Option.map x.linkId ~f:LinkId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let linkId =
        (Option.map ~f:LinkId.of_xml) (Xml.child xml_arg0 "linkId") in
      let connectivityType =
        (Option.map ~f:ConnectivityType.of_xml)
          (Xml.child xml_arg0 "connectivityType") in
      let logSettings =
        (Option.map ~f:LinkLogSettings.of_xml)
          (Xml.child xml_arg0 "logSettings") in
      let attributes =
        (Option.map ~f:LinkAttributes.of_xml)
          (Xml.child xml_arg0 "attributes") in
      let pendingFlowModules =
        (Option.map ~f:ModuleConfigurationList.of_xml)
          (Xml.child xml_arg0 "pendingFlowModules") in
      let flowModules =
        (Option.map ~f:ModuleConfigurationList.of_xml)
          (Xml.child xml_arg0 "flowModules") in
      let direction =
        (Option.map ~f:LinkDirection.of_xml) (Xml.child xml_arg0 "direction") in
      let updatedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "updatedAt") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let status =
        (Option.map ~f:LinkStatus.of_xml) (Xml.child xml_arg0 "status") in
      let peerGatewayId =
        (Option.map ~f:GatewayId.of_xml) (Xml.child xml_arg0 "peerGatewayId") in
      let gatewayId =
        (Option.map ~f:GatewayId.of_xml) (Xml.child xml_arg0 "gatewayId") in
      make ?linkId ?connectivityType ?logSettings ?attributes
        ?pendingFlowModules ?flowModules ?direction ?updatedAt ?createdAt
        ?status ?peerGatewayId ?gatewayId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let linkId = field_map json__ "linkId" LinkId.of_json in
      let connectivityType =
        field_map json__ "connectivityType" ConnectivityType.of_json in
      let logSettings =
        field_map json__ "logSettings" LinkLogSettings.of_json in
      let attributes = field_map json__ "attributes" LinkAttributes.of_json in
      let pendingFlowModules =
        field_map json__ "pendingFlowModules" ModuleConfigurationList.of_json in
      let flowModules =
        field_map json__ "flowModules" ModuleConfigurationList.of_json in
      let direction = field_map json__ "direction" LinkDirection.of_json in
      let updatedAt = field_map json__ "updatedAt" Timestamp.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let status = field_map json__ "status" LinkStatus.of_json in
      let peerGatewayId = field_map json__ "peerGatewayId" GatewayId.of_json in
      let gatewayId = field_map json__ "gatewayId" GatewayId.of_json in
      make ?linkId ?connectivityType ?logSettings ?attributes
        ?pendingFlowModules ?flowModules ?direction ?updatedAt ?createdAt
        ?status ?peerGatewayId ?gatewayId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Accepts a link request between gateways. When a requester gateway requests to link with a responder gateway, the responder can use this operation to accept the link request and establish the connection."]
module AcceptLinkRequest =
  struct
    type nonrec t =
      {
      gatewayId: GatewayId.t
        [@ocaml.doc "The unique identifier of the gateway."];
      linkId: LinkId.t [@ocaml.doc "The unique identifier of the link."];
      attributes: LinkAttributes.t option
        [@ocaml.doc "Attributes of the link."];
      logSettings: LinkLogSettings.t
        [@ocaml.doc "Settings for the application logs."];
      timeoutInMillis: LinkTimeoutInMillis.t option
        [@ocaml.doc "The timeout value in milliseconds."]}
    let context_ = "AcceptLinkRequest"
    let make ?attributes =
      fun ?timeoutInMillis ->
        fun ~gatewayId ->
          fun ~linkId ->
            fun ~logSettings ->
              fun () ->
                { attributes; timeoutInMillis; gatewayId; linkId; logSettings
                }
    let to_value x =
      structure_to_value
        [("gatewayId", (Some (GatewayId.to_value x.gatewayId)));
        ("linkId", (Some (LinkId.to_value x.linkId)));
        ("attributes", (Option.map x.attributes ~f:LinkAttributes.to_value));
        ("logSettings", (Some (LinkLogSettings.to_value x.logSettings)));
        ("timeoutInMillis",
          (Option.map x.timeoutInMillis ~f:LinkTimeoutInMillis.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let timeoutInMillis =
        (Option.map ~f:LinkTimeoutInMillis.of_xml)
          (Xml.child xml_arg0 "timeoutInMillis") in
      let logSettings =
        LinkLogSettings.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "logSettings") in
      let attributes =
        (Option.map ~f:LinkAttributes.of_xml)
          (Xml.child xml_arg0 "attributes") in
      let linkId =
        LinkId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "linkId") in
      let gatewayId =
        GatewayId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "gatewayId") in
      make ?timeoutInMillis ~logSettings ?attributes ~linkId ~gatewayId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let timeoutInMillis =
        field_map json__ "timeoutInMillis" LinkTimeoutInMillis.of_json in
      let logSettings =
        field_map_exn json__ "logSettings" LinkLogSettings.of_json in
      let attributes = field_map json__ "attributes" LinkAttributes.of_json in
      let linkId = field_map_exn json__ "linkId" LinkId.of_json in
      let gatewayId = field_map_exn json__ "gatewayId" GatewayId.of_json in
      make ?timeoutInMillis ~logSettings ?attributes ~linkId ~gatewayId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Accepts a link request between gateways. When a requester gateway requests to link with a responder gateway, the responder can use this operation to accept the link request and establish the connection."]