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.iotsecuretunneling
let apiVersion = "2018-10-05"
let endpointPrefix = "api.tunneling.iot"
let serviceFullName = "AWS IoT Secure Tunneling"
let signatureVersion = "v4"
let protocol = "json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let targetPrefix = "IoTSecuredTunneling"
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 Service =
  struct
    type nonrec t = string
    let context_ = "Service"
    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:"Service" j
    let to_json = simple_to_json to_value
  end
module TagKey =
  struct
    type nonrec t = string
    let context_ = "TagKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^([\\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:"TagKey" j
    let to_json = simple_to_json to_value
  end
module TagValue =
  struct
    type nonrec t = string
    let context_ = "TagValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^([\\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:"TagValue" j
    let to_json = simple_to_json to_value
  end
module DateType =
  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 Description =
  struct
    type nonrec t = string
    let context_ = "Description"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[^\\p{C}]{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:"Description" j
    let to_json = simple_to_json to_value
  end
module TunnelArn =
  struct
    type nonrec t = string
    let context_ = "TunnelArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1600) >>=
             (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:"TunnelArn" j
    let to_json = simple_to_json to_value
  end
module TunnelId =
  struct
    type nonrec t = string
    let context_ = "TunnelId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[a-zA-Z0-9_\\-+=:]{1,128}");
        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:"TunnelId" j
    let to_json = simple_to_json to_value
  end
module TunnelStatus =
  struct
    type nonrec t =
      | OPEN 
      | CLOSED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | OPEN -> "OPEN" | CLOSED -> "CLOSED" | Non_static_id s -> s
    let of_string =
      function | "OPEN" -> OPEN | "CLOSED" -> CLOSED | 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 TunnelStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TunnelStatus" j)
    let to_json = simple_to_json to_value
  end
module ConnectionStatus =
  struct
    type nonrec t =
      | CONNECTED 
      | DISCONNECTED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CONNECTED -> "CONNECTED"
      | DISCONNECTED -> "DISCONNECTED"
      | Non_static_id s -> s
    let of_string =
      function
      | "CONNECTED" -> CONNECTED
      | "DISCONNECTED" -> DISCONNECTED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration ConnectionStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ConnectionStatus" j)
    let to_json = simple_to_json to_value
  end
module ServiceList =
  struct
    type nonrec t = Service.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:Service.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:Service.of_xml)
    let of_json j =
      list_of_json ~kind:"ServiceList" ~of_json:Service.of_json j
    let to_json v = composed_to_json to_value v
  end
module ThingName =
  struct
    type nonrec t = string
    let context_ = "ThingName"
    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:"ThingName" j
    let to_json = simple_to_json to_value
  end
module Tag =
  struct
    type nonrec t =
      {
      key: TagKey.t [@ocaml.doc "The key of the tag."];
      value: TagValue.t [@ocaml.doc "The value of the tag."]}
    let context_ = "Tag"
    let make ~key = fun ~value -> fun () -> { key; value }
    let to_value x =
      structure_to_value
        [("key", (Some (TagKey.to_value x.key)));
        ("value", (Some (TagValue.to_value x.value)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        TagValue.of_xml (Xml.child_exn ~context:context_ xml_arg0 "value") in
      let key =
        TagKey.of_xml (Xml.child_exn ~context:context_ xml_arg0 "key") in
      make ~value ~key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map_exn json__ "value" TagValue.of_json in
      let key = field_map_exn json__ "key" TagKey.of_json in
      make ~value ~key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An arbitary key/value pair used to add searchable metadata to secure tunnel resources."]
module TimeoutInMin =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:720) >>= (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 TimeoutInMin" 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 ErrorMessage =
  struct
    type nonrec t = string
    let context_ = "ErrorMessage"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ErrorMessage" j
    let to_json = simple_to_json to_value
  end
module TunnelSummary =
  struct
    type nonrec t =
      {
      tunnelId: TunnelId.t option
        [@ocaml.doc "The unique alpha-numeric identifier for the tunnel."];
      tunnelArn: TunnelArn.t option
        [@ocaml.doc "The Amazon Resource Name of the tunnel."];
      status: TunnelStatus.t option
        [@ocaml.doc
          "The status of a tunnel. Valid values are: Open and Closed."];
      description: Description.t option
        [@ocaml.doc "A description of the tunnel."];
      createdAt: DateType.t option
        [@ocaml.doc "The time the tunnel was created."];
      lastUpdatedAt: DateType.t option
        [@ocaml.doc "The time the tunnel was last updated."]}
    let make ?tunnelId =
      fun ?tunnelArn ->
        fun ?status ->
          fun ?description ->
            fun ?createdAt ->
              fun ?lastUpdatedAt ->
                fun () ->
                  {
                    tunnelId;
                    tunnelArn;
                    status;
                    description;
                    createdAt;
                    lastUpdatedAt
                  }
    let to_value x =
      structure_to_value
        [("tunnelId", (Option.map x.tunnelId ~f:TunnelId.to_value));
        ("tunnelArn", (Option.map x.tunnelArn ~f:TunnelArn.to_value));
        ("status", (Option.map x.status ~f:TunnelStatus.to_value));
        ("description", (Option.map x.description ~f:Description.to_value));
        ("createdAt", (Option.map x.createdAt ~f:DateType.to_value));
        ("lastUpdatedAt", (Option.map x.lastUpdatedAt ~f:DateType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdatedAt =
        (Option.map ~f:DateType.of_xml) (Xml.child xml_arg0 "lastUpdatedAt") in
      let createdAt =
        (Option.map ~f:DateType.of_xml) (Xml.child xml_arg0 "createdAt") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let status =
        (Option.map ~f:TunnelStatus.of_xml) (Xml.child xml_arg0 "status") in
      let tunnelArn =
        (Option.map ~f:TunnelArn.of_xml) (Xml.child xml_arg0 "tunnelArn") in
      let tunnelId =
        (Option.map ~f:TunnelId.of_xml) (Xml.child xml_arg0 "tunnelId") in
      make ?lastUpdatedAt ?createdAt ?description ?status ?tunnelArn
        ?tunnelId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdatedAt = field_map json__ "lastUpdatedAt" DateType.of_json in
      let createdAt = field_map json__ "createdAt" DateType.of_json in
      let description = field_map json__ "description" Description.of_json in
      let status = field_map json__ "status" TunnelStatus.of_json in
      let tunnelArn = field_map json__ "tunnelArn" TunnelArn.of_json in
      let tunnelId = field_map json__ "tunnelId" TunnelId.of_json in
      make ?lastUpdatedAt ?createdAt ?description ?status ?tunnelArn
        ?tunnelId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about the tunnel."]
module ConnectionState =
  struct
    type nonrec t =
      {
      status: ConnectionStatus.t option
        [@ocaml.doc
          "The connection status of the tunnel. Valid values are CONNECTED and DISCONNECTED."];
      lastUpdatedAt: DateType.t option
        [@ocaml.doc "The last time the connection status was updated."]}
    let make ?status =
      fun ?lastUpdatedAt -> fun () -> { status; lastUpdatedAt }
    let to_value x =
      structure_to_value
        [("status", (Option.map x.status ~f:ConnectionStatus.to_value));
        ("lastUpdatedAt", (Option.map x.lastUpdatedAt ~f:DateType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdatedAt =
        (Option.map ~f:DateType.of_xml) (Xml.child xml_arg0 "lastUpdatedAt") in
      let status =
        (Option.map ~f:ConnectionStatus.of_xml) (Xml.child xml_arg0 "status") in
      make ?lastUpdatedAt ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdatedAt = field_map json__ "lastUpdatedAt" DateType.of_json in
      let status = field_map json__ "status" ConnectionStatus.of_json in
      make ?lastUpdatedAt ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The state of a connection."]
module DestinationConfig =
  struct
    type nonrec t =
      {
      thingName: ThingName.t option
        [@ocaml.doc
          "The name of the IoT thing to which you want to connect."];
      services: ServiceList.t
        [@ocaml.doc
          "A list of service names that identify the target application. The IoT client running on the destination device reads this value and uses it to look up a port or an IP address and a port. The IoT client instantiates the local proxy, which uses this information to connect to the destination application."]}
    let context_ = "DestinationConfig"
    let make ?thingName = fun ~services -> fun () -> { thingName; services }
    let to_value x =
      structure_to_value
        [("thingName", (Option.map x.thingName ~f:ThingName.to_value));
        ("services", (Some (ServiceList.to_value x.services)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let services =
        ServiceList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "services") in
      let thingName =
        (Option.map ~f:ThingName.of_xml) (Xml.child xml_arg0 "thingName") in
      make ~services ?thingName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let services = field_map_exn json__ "services" ServiceList.of_json in
      let thingName = field_map json__ "thingName" ThingName.of_json in
      make ~services ?thingName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The destination configuration."]
module TagList =
  struct
    type nonrec t = Tag.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:200) >>=
             (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Tag.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:Tag.of_xml)
    let of_json j = list_of_json ~kind:"TagList" ~of_json:Tag.of_json j
    let to_json v = composed_to_json to_value v
  end
module TimeoutConfig =
  struct
    type nonrec t =
      {
      maxLifetimeTimeoutMinutes: TimeoutInMin.t option
        [@ocaml.doc
          "The maximum amount of time (in minutes) a tunnel can remain open. If not specified, maxLifetimeTimeoutMinutes defaults to 720 minutes. Valid values are from 1 minute to 12 hours (720 minutes)"]}
    let make ?maxLifetimeTimeoutMinutes =
      fun () -> { maxLifetimeTimeoutMinutes }
    let to_value x =
      structure_to_value
        [("maxLifetimeTimeoutMinutes",
           (Option.map x.maxLifetimeTimeoutMinutes ~f:TimeoutInMin.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxLifetimeTimeoutMinutes =
        (Option.map ~f:TimeoutInMin.of_xml)
          (Xml.child xml_arg0 "maxLifetimeTimeoutMinutes") in
      make ?maxLifetimeTimeoutMinutes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxLifetimeTimeoutMinutes =
        field_map json__ "maxLifetimeTimeoutMinutes" TimeoutInMin.of_json in
      make ?maxLifetimeTimeoutMinutes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Tunnel timeout configuration."]
module ResourceNotFoundException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Thrown when an operation is attempted on a resource that does not exist."]
module AmazonResourceName =
  struct
    type nonrec t = string
    let context_ = "AmazonResourceName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1011) >>=
             (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:"AmazonResourceName" 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:200) >>=
             (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:TagKey.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:TagKey.of_xml)
    let of_json j = list_of_json ~kind:"TagKeyList" ~of_json:TagKey.of_json j
    let to_json v = composed_to_json to_value v
  end
module ClientAccessToken =
  struct
    type nonrec t = string
    let context_ = "ClientAccessToken"
    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:"ClientAccessToken" j
    let to_json = simple_to_json to_value
  end
module ClientMode =
  struct
    type nonrec t =
      | SOURCE 
      | DESTINATION 
      | ALL 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SOURCE -> "SOURCE"
      | DESTINATION -> "DESTINATION"
      | ALL -> "ALL"
      | Non_static_id s -> s
    let of_string =
      function
      | "SOURCE" -> SOURCE
      | "DESTINATION" -> DESTINATION
      | "ALL" -> ALL
      | 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 ClientMode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ClientMode" j)
    let to_json = simple_to_json to_value
  end
module LimitExceededException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Thrown when a tunnel limit is exceeded."]
module NextToken =
  struct
    type nonrec t = string
    let context_ = "NextToken"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[a-zA-Z0-9_=-]{1,4096}"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"NextToken" j
    let to_json = simple_to_json to_value
  end
module TunnelSummaryList =
  struct
    type nonrec t = TunnelSummary.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:TunnelSummary.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:TunnelSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"TunnelSummaryList" ~of_json:TunnelSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:100) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for MaxResults" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module Tunnel =
  struct
    type nonrec t =
      {
      tunnelId: TunnelId.t option
        [@ocaml.doc "A unique alpha-numeric ID that identifies a tunnel."];
      tunnelArn: TunnelArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of a tunnel."];
      status: TunnelStatus.t option
        [@ocaml.doc
          "The status of a tunnel. Valid values are: Open and Closed."];
      sourceConnectionState: ConnectionState.t option
        [@ocaml.doc "The connection state of the source application."];
      destinationConnectionState: ConnectionState.t option
        [@ocaml.doc "The connection state of the destination application."];
      description: Description.t option
        [@ocaml.doc "A description of the tunnel."];
      destinationConfig: DestinationConfig.t option
        [@ocaml.doc
          "The destination configuration that specifies the thing name of the destination device and a service name that the local proxy uses to connect to the destination application."];
      timeoutConfig: TimeoutConfig.t option
        [@ocaml.doc "Timeout configuration for the tunnel."];
      tags: TagList.t option
        [@ocaml.doc
          "A list of tag metadata associated with the secure tunnel."];
      createdAt: DateType.t option
        [@ocaml.doc "The time when the tunnel was created."];
      lastUpdatedAt: DateType.t option
        [@ocaml.doc "The last time the tunnel was updated."]}
    let make ?tunnelId =
      fun ?tunnelArn ->
        fun ?status ->
          fun ?sourceConnectionState ->
            fun ?destinationConnectionState ->
              fun ?description ->
                fun ?destinationConfig ->
                  fun ?timeoutConfig ->
                    fun ?tags ->
                      fun ?createdAt ->
                        fun ?lastUpdatedAt ->
                          fun () ->
                            {
                              tunnelId;
                              tunnelArn;
                              status;
                              sourceConnectionState;
                              destinationConnectionState;
                              description;
                              destinationConfig;
                              timeoutConfig;
                              tags;
                              createdAt;
                              lastUpdatedAt
                            }
    let to_value x =
      structure_to_value
        [("tunnelId", (Option.map x.tunnelId ~f:TunnelId.to_value));
        ("tunnelArn", (Option.map x.tunnelArn ~f:TunnelArn.to_value));
        ("status", (Option.map x.status ~f:TunnelStatus.to_value));
        ("sourceConnectionState",
          (Option.map x.sourceConnectionState ~f:ConnectionState.to_value));
        ("destinationConnectionState",
          (Option.map x.destinationConnectionState
             ~f:ConnectionState.to_value));
        ("description", (Option.map x.description ~f:Description.to_value));
        ("destinationConfig",
          (Option.map x.destinationConfig ~f:DestinationConfig.to_value));
        ("timeoutConfig",
          (Option.map x.timeoutConfig ~f:TimeoutConfig.to_value));
        ("tags", (Option.map x.tags ~f:TagList.to_value));
        ("createdAt", (Option.map x.createdAt ~f:DateType.to_value));
        ("lastUpdatedAt", (Option.map x.lastUpdatedAt ~f:DateType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdatedAt =
        (Option.map ~f:DateType.of_xml) (Xml.child xml_arg0 "lastUpdatedAt") in
      let createdAt =
        (Option.map ~f:DateType.of_xml) (Xml.child xml_arg0 "createdAt") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "tags") in
      let timeoutConfig =
        (Option.map ~f:TimeoutConfig.of_xml)
          (Xml.child xml_arg0 "timeoutConfig") in
      let destinationConfig =
        (Option.map ~f:DestinationConfig.of_xml)
          (Xml.child xml_arg0 "destinationConfig") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let destinationConnectionState =
        (Option.map ~f:ConnectionState.of_xml)
          (Xml.child xml_arg0 "destinationConnectionState") in
      let sourceConnectionState =
        (Option.map ~f:ConnectionState.of_xml)
          (Xml.child xml_arg0 "sourceConnectionState") in
      let status =
        (Option.map ~f:TunnelStatus.of_xml) (Xml.child xml_arg0 "status") in
      let tunnelArn =
        (Option.map ~f:TunnelArn.of_xml) (Xml.child xml_arg0 "tunnelArn") in
      let tunnelId =
        (Option.map ~f:TunnelId.of_xml) (Xml.child xml_arg0 "tunnelId") in
      make ?lastUpdatedAt ?createdAt ?tags ?timeoutConfig ?destinationConfig
        ?description ?destinationConnectionState ?sourceConnectionState
        ?status ?tunnelArn ?tunnelId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdatedAt = field_map json__ "lastUpdatedAt" DateType.of_json in
      let createdAt = field_map json__ "createdAt" DateType.of_json in
      let tags = field_map json__ "tags" TagList.of_json in
      let timeoutConfig =
        field_map json__ "timeoutConfig" TimeoutConfig.of_json in
      let destinationConfig =
        field_map json__ "destinationConfig" DestinationConfig.of_json in
      let description = field_map json__ "description" Description.of_json in
      let destinationConnectionState =
        field_map json__ "destinationConnectionState" ConnectionState.of_json in
      let sourceConnectionState =
        field_map json__ "sourceConnectionState" ConnectionState.of_json in
      let status = field_map json__ "status" TunnelStatus.of_json in
      let tunnelArn = field_map json__ "tunnelArn" TunnelArn.of_json in
      let tunnelId = field_map json__ "tunnelId" TunnelId.of_json in
      make ?lastUpdatedAt ?createdAt ?tags ?timeoutConfig ?destinationConfig
        ?description ?destinationConnectionState ?sourceConnectionState
        ?status ?tunnelArn ?tunnelId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A connection between a source computer and a destination device."]
module DeleteFlag =
  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 UntagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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 from a resource."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: AmazonResourceName.t [@ocaml.doc "The resource ARN."];
      tagKeys: TagKeyList.t [@ocaml.doc "The keys of the tags to remove."]}
    let context_ = "UntagResourceRequest"
    let make ~resourceArn =
      fun ~tagKeys -> fun () -> { resourceArn; tagKeys }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (AmazonResourceName.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 =
        AmazonResourceName.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" AmazonResourceName.of_json in
      make ~tagKeys ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Removes a tag from a resource."]
module TagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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 "A resource tag."]
module TagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: AmazonResourceName.t
        [@ocaml.doc "The ARN of the resource."];
      tags: TagList.t [@ocaml.doc "The tags for the resource."]}
    let context_ = "TagResourceRequest"
    let make ~resourceArn = fun ~tags -> fun () -> { resourceArn; tags }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (AmazonResourceName.to_value x.resourceArn)));
        ("tags", (Some (TagList.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        TagList.of_xml (Xml.child_exn ~context:context_ xml_arg0 "tags") in
      let resourceArn =
        AmazonResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~tags ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map_exn json__ "tags" TagList.of_json in
      let resourceArn =
        field_map_exn json__ "resourceArn" AmazonResourceName.of_json in
      make ~tags ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A resource tag."]
module RotateTunnelAccessTokenResponse =
  struct
    type nonrec t =
      {
      tunnelArn: TunnelArn.t option
        [@ocaml.doc "The Amazon Resource Name for the tunnel."];
      sourceAccessToken: ClientAccessToken.t option
        [@ocaml.doc
          "The client access token that the source local proxy uses to connect to IoT Secure Tunneling."];
      destinationAccessToken: ClientAccessToken.t option
        [@ocaml.doc
          "The client access token that the destination local proxy uses to connect to IoT Secure Tunneling."]}
    type nonrec error =
      [ `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tunnelArn =
      fun ?sourceAccessToken ->
        fun ?destinationAccessToken ->
          fun () -> { tunnelArn; sourceAccessToken; destinationAccessToken }
    let error_of_json name json =
      match name with
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("tunnelArn", (Option.map x.tunnelArn ~f:TunnelArn.to_value));
        ("sourceAccessToken",
          (Option.map x.sourceAccessToken ~f:ClientAccessToken.to_value));
        ("destinationAccessToken",
          (Option.map x.destinationAccessToken ~f:ClientAccessToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let destinationAccessToken =
        (Option.map ~f:ClientAccessToken.of_xml)
          (Xml.child xml_arg0 "destinationAccessToken") in
      let sourceAccessToken =
        (Option.map ~f:ClientAccessToken.of_xml)
          (Xml.child xml_arg0 "sourceAccessToken") in
      let tunnelArn =
        (Option.map ~f:TunnelArn.of_xml) (Xml.child xml_arg0 "tunnelArn") in
      make ?destinationAccessToken ?sourceAccessToken ?tunnelArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let destinationAccessToken =
        field_map json__ "destinationAccessToken" ClientAccessToken.of_json in
      let sourceAccessToken =
        field_map json__ "sourceAccessToken" ClientAccessToken.of_json in
      let tunnelArn = field_map json__ "tunnelArn" TunnelArn.of_json in
      make ?destinationAccessToken ?sourceAccessToken ?tunnelArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Revokes the current client access token (CAT) and returns new CAT for clients to use when reconnecting to secure tunneling to access the same tunnel. Requires permission to access the RotateTunnelAccessToken action. Rotating the CAT doesn't extend the tunnel duration. For example, say the tunnel duration is 12 hours and the tunnel has already been open for 4 hours. When you rotate the access tokens, the new tokens that are generated can only be used for the remaining 8 hours."]
module RotateTunnelAccessTokenRequest =
  struct
    type nonrec t =
      {
      tunnelId: TunnelId.t
        [@ocaml.doc
          "The tunnel for which you want to rotate the access tokens."];
      clientMode: ClientMode.t
        [@ocaml.doc
          "The mode of the client that will use the client token, which can be either the source or destination, or both source and destination."];
      destinationConfig: DestinationConfig.t option }
    let context_ = "RotateTunnelAccessTokenRequest"
    let make ?destinationConfig =
      fun ~tunnelId ->
        fun ~clientMode ->
          fun () -> { destinationConfig; tunnelId; clientMode }
    let to_value x =
      structure_to_value
        [("tunnelId", (Some (TunnelId.to_value x.tunnelId)));
        ("clientMode", (Some (ClientMode.to_value x.clientMode)));
        ("destinationConfig",
          (Option.map x.destinationConfig ~f:DestinationConfig.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let destinationConfig =
        (Option.map ~f:DestinationConfig.of_xml)
          (Xml.child xml_arg0 "destinationConfig") in
      let clientMode =
        ClientMode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "clientMode") in
      let tunnelId =
        TunnelId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "tunnelId") in
      make ?destinationConfig ~clientMode ~tunnelId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let destinationConfig =
        field_map json__ "destinationConfig" DestinationConfig.of_json in
      let clientMode = field_map_exn json__ "clientMode" ClientMode.of_json in
      let tunnelId = field_map_exn json__ "tunnelId" TunnelId.of_json in
      make ?destinationConfig ~clientMode ~tunnelId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Revokes the current client access token (CAT) and returns new CAT for clients to use when reconnecting to secure tunneling to access the same tunnel. Requires permission to access the RotateTunnelAccessToken action. Rotating the CAT doesn't extend the tunnel duration. For example, say the tunnel duration is 12 hours and the tunnel has already been open for 4 hours. When you rotate the access tokens, the new tokens that are generated can only be used for the remaining 8 hours."]
module OpenTunnelResponse =
  struct
    type nonrec t =
      {
      tunnelId: TunnelId.t option
        [@ocaml.doc "A unique alpha-numeric tunnel ID."];
      tunnelArn: TunnelArn.t option
        [@ocaml.doc "The Amazon Resource Name for the tunnel."];
      sourceAccessToken: ClientAccessToken.t option
        [@ocaml.doc
          "The access token the source local proxy uses to connect to IoT Secure Tunneling."];
      destinationAccessToken: ClientAccessToken.t option
        [@ocaml.doc
          "The access token the destination local proxy uses to connect to IoT Secure Tunneling."]}
    type nonrec error =
      [ `LimitExceededException of LimitExceededException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tunnelId =
      fun ?tunnelArn ->
        fun ?sourceAccessToken ->
          fun ?destinationAccessToken ->
            fun () ->
              {
                tunnelId;
                tunnelArn;
                sourceAccessToken;
                destinationAccessToken
              }
    let error_of_json name json =
      match name with
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("tunnelId", (Option.map x.tunnelId ~f:TunnelId.to_value));
        ("tunnelArn", (Option.map x.tunnelArn ~f:TunnelArn.to_value));
        ("sourceAccessToken",
          (Option.map x.sourceAccessToken ~f:ClientAccessToken.to_value));
        ("destinationAccessToken",
          (Option.map x.destinationAccessToken ~f:ClientAccessToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let destinationAccessToken =
        (Option.map ~f:ClientAccessToken.of_xml)
          (Xml.child xml_arg0 "destinationAccessToken") in
      let sourceAccessToken =
        (Option.map ~f:ClientAccessToken.of_xml)
          (Xml.child xml_arg0 "sourceAccessToken") in
      let tunnelArn =
        (Option.map ~f:TunnelArn.of_xml) (Xml.child xml_arg0 "tunnelArn") in
      let tunnelId =
        (Option.map ~f:TunnelId.of_xml) (Xml.child xml_arg0 "tunnelId") in
      make ?destinationAccessToken ?sourceAccessToken ?tunnelArn ?tunnelId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let destinationAccessToken =
        field_map json__ "destinationAccessToken" ClientAccessToken.of_json in
      let sourceAccessToken =
        field_map json__ "sourceAccessToken" ClientAccessToken.of_json in
      let tunnelArn = field_map json__ "tunnelArn" TunnelArn.of_json in
      let tunnelId = field_map json__ "tunnelId" TunnelId.of_json in
      make ?destinationAccessToken ?sourceAccessToken ?tunnelArn ?tunnelId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new tunnel, and returns two client access tokens for clients to use to connect to the IoT Secure Tunneling proxy server. Requires permission to access the OpenTunnel action."]
module OpenTunnelRequest =
  struct
    type nonrec t =
      {
      description: Description.t option
        [@ocaml.doc "A short text description of the tunnel."];
      tags: TagList.t option [@ocaml.doc "A collection of tag metadata."];
      destinationConfig: DestinationConfig.t option
        [@ocaml.doc
          "The destination configuration for the OpenTunnel request."];
      timeoutConfig: TimeoutConfig.t option
        [@ocaml.doc "Timeout configuration for a tunnel."]}
    let make ?description =
      fun ?tags ->
        fun ?destinationConfig ->
          fun ?timeoutConfig ->
            fun () -> { description; tags; destinationConfig; timeoutConfig }
    let to_value x =
      structure_to_value
        [("description", (Option.map x.description ~f:Description.to_value));
        ("tags", (Option.map x.tags ~f:TagList.to_value));
        ("destinationConfig",
          (Option.map x.destinationConfig ~f:DestinationConfig.to_value));
        ("timeoutConfig",
          (Option.map x.timeoutConfig ~f:TimeoutConfig.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let timeoutConfig =
        (Option.map ~f:TimeoutConfig.of_xml)
          (Xml.child xml_arg0 "timeoutConfig") in
      let destinationConfig =
        (Option.map ~f:DestinationConfig.of_xml)
          (Xml.child xml_arg0 "destinationConfig") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "tags") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      make ?timeoutConfig ?destinationConfig ?tags ?description ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let timeoutConfig =
        field_map json__ "timeoutConfig" TimeoutConfig.of_json in
      let destinationConfig =
        field_map json__ "destinationConfig" DestinationConfig.of_json in
      let tags = field_map json__ "tags" TagList.of_json in
      let description = field_map json__ "description" Description.of_json in
      make ?timeoutConfig ?destinationConfig ?tags ?description ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new tunnel, and returns two client access tokens for clients to use to connect to the IoT Secure Tunneling proxy server. Requires permission to access the OpenTunnel action."]
module ListTunnelsResponse =
  struct
    type nonrec t =
      {
      tunnelSummaries: TunnelSummaryList.t option
        [@ocaml.doc
          "A short description of the tunnels in an Amazon Web Services account."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to use to get the next set of results, or null if there are no additional results."]}
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?tunnelSummaries =
      fun ?nextToken -> fun () -> { tunnelSummaries; nextToken }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("tunnelSummaries",
           (Option.map x.tunnelSummaries ~f:TunnelSummaryList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let tunnelSummaries =
        (Option.map ~f:TunnelSummaryList.of_xml)
          (Xml.child xml_arg0 "tunnelSummaries") in
      make ?nextToken ?tunnelSummaries ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let tunnelSummaries =
        field_map json__ "tunnelSummaries" TunnelSummaryList.of_json in
      make ?nextToken ?tunnelSummaries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "List all tunnels for an Amazon Web Services account. Tunnels are listed by creation time in descending order, newer tunnels will be listed before older tunnels. Requires permission to access the ListTunnels action."]
module ListTunnelsRequest =
  struct
    type nonrec t =
      {
      thingName: ThingName.t option
        [@ocaml.doc
          "The name of the IoT thing associated with the destination device."];
      maxResults: MaxResults.t option
        [@ocaml.doc "The maximum number of results to return at once."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "To retrieve the next set of results, the nextToken value from a previous response; otherwise null to receive the first set of results."]}
    let make ?thingName =
      fun ?maxResults ->
        fun ?nextToken -> fun () -> { thingName; maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("thingName", (Option.map x.thingName ~f:ThingName.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let thingName =
        (Option.map ~f:ThingName.of_xml) (Xml.child xml_arg0 "thingName") in
      make ?nextToken ?maxResults ?thingName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let thingName = field_map json__ "thingName" ThingName.of_json in
      make ?nextToken ?maxResults ?thingName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "List all tunnels for an Amazon Web Services account. Tunnels are listed by creation time in descending order, newer tunnels will be listed before older tunnels. Requires permission to access the ListTunnels action."]
module ListTagsForResourceResponse =
  struct
    type nonrec t =
      {
      tags: TagList.t option
        [@ocaml.doc "The tags for the specified resource."]}
    type nonrec error =
      [ `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tags = fun () -> { tags }
    let error_of_json name json =
      match name with
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_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:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "tags") in
      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" TagList.of_json in make ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the tags for the specified resource."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: AmazonResourceName.t [@ocaml.doc "The resource ARN."]}
    let context_ = "ListTagsForResourceRequest"
    let make ~resourceArn = fun () -> { resourceArn }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (AmazonResourceName.to_value x.resourceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        AmazonResourceName.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" AmazonResourceName.of_json in
      make ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the tags for the specified resource."]
module DescribeTunnelResponse =
  struct
    type nonrec t =
      {
      tunnel: Tunnel.t option [@ocaml.doc "The tunnel being described."]}
    type nonrec error =
      [ `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tunnel = fun () -> { tunnel }
    let error_of_json name json =
      match name with
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("tunnel", (Option.map x.tunnel ~f:Tunnel.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tunnel =
        (Option.map ~f:Tunnel.of_xml) (Xml.child xml_arg0 "tunnel") in
      make ?tunnel ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tunnel = field_map json__ "tunnel" Tunnel.of_json in
      make ?tunnel ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets information about a tunnel identified by the unique tunnel id. Requires permission to access the DescribeTunnel action."]
module DescribeTunnelRequest =
  struct
    type nonrec t =
      {
      tunnelId: TunnelId.t [@ocaml.doc "The tunnel to describe."]}
    let context_ = "DescribeTunnelRequest"
    let make ~tunnelId = fun () -> { tunnelId }
    let to_value x =
      structure_to_value
        [("tunnelId", (Some (TunnelId.to_value x.tunnelId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tunnelId =
        TunnelId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "tunnelId") in
      make ~tunnelId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tunnelId = field_map_exn json__ "tunnelId" TunnelId.of_json in
      make ~tunnelId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets information about a tunnel identified by the unique tunnel id. Requires permission to access the DescribeTunnel action."]
module CloseTunnelResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
       "Closes a tunnel identified by the unique tunnel id. When a CloseTunnel request is received, we close the WebSocket connections between the client and proxy server so no data can be transmitted. Requires permission to access the CloseTunnel action."]
module CloseTunnelRequest =
  struct
    type nonrec t =
      {
      tunnelId: TunnelId.t [@ocaml.doc "The ID of the tunnel to close."];
      delete: DeleteFlag.t option
        [@ocaml.doc
          "When set to true, IoT Secure Tunneling deletes the tunnel data immediately."]}
    let context_ = "CloseTunnelRequest"
    let make ?delete = fun ~tunnelId -> fun () -> { delete; tunnelId }
    let to_value x =
      structure_to_value
        [("tunnelId", (Some (TunnelId.to_value x.tunnelId)));
        ("delete", (Option.map x.delete ~f:DeleteFlag.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let delete =
        (Option.map ~f:DeleteFlag.of_xml) (Xml.child xml_arg0 "delete") in
      let tunnelId =
        TunnelId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "tunnelId") in
      make ?delete ~tunnelId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let delete = field_map json__ "delete" DeleteFlag.of_json in
      let tunnelId = field_map_exn json__ "tunnelId" TunnelId.of_json in
      make ?delete ~tunnelId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Closes a tunnel identified by the unique tunnel id. When a CloseTunnel request is received, we close the WebSocket connections between the client and proxy server so no data can be transmitted. Requires permission to access the CloseTunnel action."]