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.kinesis_video_signaling
let apiVersion = "2019-12-04"
let endpointPrefix = "kinesisvideo"
let serviceFullName = "Amazon Kinesis Video Signaling Channels"
let signatureVersion = "v4"
let protocol = "rest_json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let serviceAbbreviation = "Amazon Kinesis Video Signaling Channels"
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 Uri_ =
  struct
    type nonrec t = string
    let context_ = "Uri"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (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:"Uri" j
    let to_json = simple_to_json to_value
  end
module Password =
  struct
    type nonrec t = string
    let context_ = "Password"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (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:"Password" j
    let to_json = simple_to_json to_value
  end
module Ttl =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:86400) >>=
             (fun () -> check_int_min i ~min:30));
        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 Ttl" 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 Uris =
  struct
    type nonrec t = Uri_.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:Uri_.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:Uri_.of_xml)
    let of_json j = list_of_json ~kind:"Uris" ~of_json:Uri_.of_json j
    let to_json v = composed_to_json to_value v
  end
module Username =
  struct
    type nonrec t = string
    let context_ = "Username"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (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:"Username" 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 IceServer =
  struct
    type nonrec t =
      {
      uris: Uris.t option
        [@ocaml.doc
          "An array of URIs, in the form specified in the I-D.petithuguenin-behave-turn-uris spec. These URIs provide the different addresses and/or protocols that can be used to reach the TURN server."];
      username: Username.t option
        [@ocaml.doc "A username to login to the ICE server."];
      password: Password.t option
        [@ocaml.doc "A password to login to the ICE server."];
      ttl: Ttl.t option
        [@ocaml.doc
          "The period of time, in seconds, during which the username and password are valid."]}
    let make ?uris =
      fun ?username ->
        fun ?password ->
          fun ?ttl -> fun () -> { uris; username; password; ttl }
    let to_value x =
      structure_to_value
        [("Uris", (Option.map x.uris ~f:Uris.to_value));
        ("Username", (Option.map x.username ~f:Username.to_value));
        ("Password", (Option.map x.password ~f:Password.to_value));
        ("Ttl", (Option.map x.ttl ~f:Ttl.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ttl = (Option.map ~f:Ttl.of_xml) (Xml.child xml_arg0 "Ttl") in
      let password =
        (Option.map ~f:Password.of_xml) (Xml.child xml_arg0 "Password") in
      let username =
        (Option.map ~f:Username.of_xml) (Xml.child xml_arg0 "Username") in
      let uris = (Option.map ~f:Uris.of_xml) (Xml.child xml_arg0 "Uris") in
      make ?ttl ?password ?username ?uris ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ttl = field_map json__ "Ttl" Ttl.of_json in
      let password = field_map json__ "Password" Password.of_json in
      let username = field_map json__ "Username" Username.of_json in
      let uris = field_map json__ "Uris" Uris.of_json in
      make ?ttl ?password ?username ?uris ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A structure for the ICE server connection data."]
module ErrorMessage__lc1 =
  struct
    type nonrec t = string
    let context_ = "ErrorMessage__lc1"
    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__lc1" j
    let to_json = simple_to_json to_value
  end
module Answer =
  struct
    type nonrec t = string
    let context_ = "Answer"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:10000) >>=
             (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:"Answer" j
    let to_json = simple_to_json to_value
  end
module ClientLimitExceededException =
  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
       "Your request was throttled because you have exceeded the limit of allowed client calls. Try making the call later."]
module InvalidArgumentException =
  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 "The value for this input parameter is invalid."]
module NotAuthorizedException =
  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 "The caller is not authorized to perform this operation."]
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 "The specified resource is not found."]
module ClientId =
  struct
    type nonrec t = string
    let context_ = "ClientId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (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:"ClientId" j
    let to_json = simple_to_json to_value
  end
module MessagePayload =
  struct
    type nonrec t = string
    let context_ = "MessagePayload"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:10000) >>=
                  (fun () -> check_pattern i ~pattern:"[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:"MessagePayload" j
    let to_json = simple_to_json to_value
  end
module ResourceARN =
  struct
    type nonrec t = string
    let context_ = "ResourceARN"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:aws:kinesisvideo:[a-z0-9-]+:[0-9]+:[a-z]+/[a-zA-Z0-9_.-]+/[0-9]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ResourceARN" j
    let to_json = simple_to_json to_value
  end
module IceServerList =
  struct
    type nonrec t = IceServer.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:IceServer.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:IceServer.of_xml)
    let of_json j =
      list_of_json ~kind:"IceServerList" ~of_json:IceServer.of_json j
    let to_json v = composed_to_json to_value v
  end
module InvalidClientException =
  struct
    type nonrec t = {
      message: ErrorMessage__lc1.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage__lc1.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage__lc1.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__lc1.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The specified client is invalid."]
module SessionExpiredException =
  struct
    type nonrec t = {
      message: ErrorMessage__lc1.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage__lc1.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage__lc1.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__lc1.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "If the client session is expired. Once the client is connected, the session is valid for 45 minutes. Client should reconnect to the channel to continue sending/receiving messages."]
module Service =
  struct
    type nonrec t =
      | TURN 
      | Non_static_id of string 
    let make i = i
    let to_string = function | TURN -> "TURN" | Non_static_id s -> s
    let of_string = function | "TURN" -> TURN | 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 Service" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Service" j)
    let to_json = simple_to_json to_value
  end
module SendAlexaOfferToMasterResponse =
  struct
    type nonrec t =
      {
      answer: Answer.t option
        [@ocaml.doc "The base64-encoded SDP answer content."]}
    type nonrec error =
      [ `ClientLimitExceededException of ClientLimitExceededException.t 
      | `InvalidArgumentException of InvalidArgumentException.t 
      | `NotAuthorizedException of NotAuthorizedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?answer = fun () -> { answer }
    let error_of_json name json =
      match name with
      | "ClientLimitExceededException" ->
          `ClientLimitExceededException
            (ClientLimitExceededException.of_json json)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_json json)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_json json)
      | "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
      | "ClientLimitExceededException" ->
          `ClientLimitExceededException
            (ClientLimitExceededException.of_xml xml)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_xml xml)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_xml xml)
      | "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
      | `ClientLimitExceededException e ->
          `Assoc
            [("error", (`String "ClientLimitExceededException"));
            ("details", (ClientLimitExceededException.to_json e))]
      | `InvalidArgumentException e ->
          `Assoc
            [("error", (`String "InvalidArgumentException"));
            ("details", (InvalidArgumentException.to_json e))]
      | `NotAuthorizedException e ->
          `Assoc
            [("error", (`String "NotAuthorizedException"));
            ("details", (NotAuthorizedException.to_json e))]
      | `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
        [("Answer", (Option.map x.answer ~f:Answer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let answer =
        (Option.map ~f:Answer.of_xml) (Xml.child xml_arg0 "Answer") in
      make ?answer ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let answer = field_map json__ "Answer" Answer.of_json in
      make ?answer ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This API allows you to connect WebRTC-enabled devices with Alexa display devices. When invoked, it sends the Alexa Session Description Protocol (SDP) offer to the master peer. The offer is delivered as soon as the master is connected to the specified signaling channel. This API returns the SDP answer from the connected master. If the master is not connected to the signaling channel, redelivery requests are made until the message expires."]
module SendAlexaOfferToMasterRequest =
  struct
    type nonrec t =
      {
      channelARN: ResourceARN.t
        [@ocaml.doc
          "The ARN of the signaling channel by which Alexa and the master peer communicate."];
      senderClientId: ClientId.t
        [@ocaml.doc "The unique identifier for the sender client."];
      messagePayload: MessagePayload.t
        [@ocaml.doc "The base64-encoded SDP offer content."]}
    let context_ = "SendAlexaOfferToMasterRequest"
    let make ~channelARN =
      fun ~senderClientId ->
        fun ~messagePayload ->
          fun () -> { channelARN; senderClientId; messagePayload }
    let to_value x =
      structure_to_value
        [("ChannelARN", (Some (ResourceARN.to_value x.channelARN)));
        ("SenderClientId", (Some (ClientId.to_value x.senderClientId)));
        ("MessagePayload", (Some (MessagePayload.to_value x.messagePayload)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let messagePayload =
        MessagePayload.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MessagePayload") in
      let senderClientId =
        ClientId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SenderClientId") in
      let channelARN =
        ResourceARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ChannelARN") in
      make ~messagePayload ~senderClientId ~channelARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let messagePayload =
        field_map_exn json__ "MessagePayload" MessagePayload.of_json in
      let senderClientId =
        field_map_exn json__ "SenderClientId" ClientId.of_json in
      let channelARN = field_map_exn json__ "ChannelARN" ResourceARN.of_json in
      make ~messagePayload ~senderClientId ~channelARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This API allows you to connect WebRTC-enabled devices with Alexa display devices. When invoked, it sends the Alexa Session Description Protocol (SDP) offer to the master peer. The offer is delivered as soon as the master is connected to the specified signaling channel. This API returns the SDP answer from the connected master. If the master is not connected to the signaling channel, redelivery requests are made until the message expires."]
module GetIceServerConfigResponse =
  struct
    type nonrec t =
      {
      iceServerList: IceServerList.t option
        [@ocaml.doc "The list of ICE server information objects."]}
    type nonrec error =
      [ `ClientLimitExceededException of ClientLimitExceededException.t 
      | `InvalidArgumentException of InvalidArgumentException.t 
      | `InvalidClientException of InvalidClientException.t 
      | `NotAuthorizedException of NotAuthorizedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `SessionExpiredException of SessionExpiredException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?iceServerList = fun () -> { iceServerList }
    let error_of_json name json =
      match name with
      | "ClientLimitExceededException" ->
          `ClientLimitExceededException
            (ClientLimitExceededException.of_json json)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_json json)
      | "InvalidClientException" ->
          `InvalidClientException (InvalidClientException.of_json json)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "SessionExpiredException" ->
          `SessionExpiredException (SessionExpiredException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientLimitExceededException" ->
          `ClientLimitExceededException
            (ClientLimitExceededException.of_xml xml)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_xml xml)
      | "InvalidClientException" ->
          `InvalidClientException (InvalidClientException.of_xml xml)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "SessionExpiredException" ->
          `SessionExpiredException (SessionExpiredException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientLimitExceededException e ->
          `Assoc
            [("error", (`String "ClientLimitExceededException"));
            ("details", (ClientLimitExceededException.to_json e))]
      | `InvalidArgumentException e ->
          `Assoc
            [("error", (`String "InvalidArgumentException"));
            ("details", (InvalidArgumentException.to_json e))]
      | `InvalidClientException e ->
          `Assoc
            [("error", (`String "InvalidClientException"));
            ("details", (InvalidClientException.to_json e))]
      | `NotAuthorizedException e ->
          `Assoc
            [("error", (`String "NotAuthorizedException"));
            ("details", (NotAuthorizedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `SessionExpiredException e ->
          `Assoc
            [("error", (`String "SessionExpiredException"));
            ("details", (SessionExpiredException.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
        [("IceServerList",
           (Option.map x.iceServerList ~f:IceServerList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let iceServerList =
        (Option.map ~f:IceServerList.of_xml)
          (Xml.child xml_arg0 "IceServerList") in
      make ?iceServerList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let iceServerList =
        field_map json__ "IceServerList" IceServerList.of_json in
      make ?iceServerList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the Interactive Connectivity Establishment (ICE) server configuration information, including URIs, username, and password which can be used to configure the WebRTC connection. The ICE component uses this configuration information to setup the WebRTC connection, including authenticating with the Traversal Using Relays around NAT (TURN) relay server. TURN is a protocol that is used to improve the connectivity of peer-to-peer applications. By providing a cloud-based relay service, TURN ensures that a connection can be established even when one or more peers are incapable of a direct peer-to-peer connection. For more information, see A REST API For Access To TURN Services. You can invoke this API to establish a fallback mechanism in case either of the peers is unable to establish a direct peer-to-peer connection over a signaling channel. You must specify either a signaling channel ARN or the client ID in order to invoke this API."]
module GetIceServerConfigRequest =
  struct
    type nonrec t =
      {
      channelARN: ResourceARN.t
        [@ocaml.doc
          "The ARN of the signaling channel to be used for the peer-to-peer connection between configured peers."];
      clientId: ClientId.t option
        [@ocaml.doc
          "Unique identifier for the viewer. Must be unique within the signaling channel."];
      service: Service.t option
        [@ocaml.doc
          "Specifies the desired service. Currently, TURN is the only valid value."];
      username: Username.t option
        [@ocaml.doc
          "An optional user ID to be associated with the credentials."]}
    let context_ = "GetIceServerConfigRequest"
    let make ?clientId =
      fun ?service ->
        fun ?username ->
          fun ~channelARN ->
            fun () -> { clientId; service; username; channelARN }
    let to_value x =
      structure_to_value
        [("ChannelARN", (Some (ResourceARN.to_value x.channelARN)));
        ("ClientId", (Option.map x.clientId ~f:ClientId.to_value));
        ("Service", (Option.map x.service ~f:Service.to_value));
        ("Username", (Option.map x.username ~f:Username.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let username =
        (Option.map ~f:Username.of_xml) (Xml.child xml_arg0 "Username") in
      let service =
        (Option.map ~f:Service.of_xml) (Xml.child xml_arg0 "Service") in
      let clientId =
        (Option.map ~f:ClientId.of_xml) (Xml.child xml_arg0 "ClientId") in
      let channelARN =
        ResourceARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ChannelARN") in
      make ?username ?service ?clientId ~channelARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let username = field_map json__ "Username" Username.of_json in
      let service = field_map json__ "Service" Service.of_json in
      let clientId = field_map json__ "ClientId" ClientId.of_json in
      let channelARN = field_map_exn json__ "ChannelARN" ResourceARN.of_json in
      make ?username ?service ?clientId ~channelARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the Interactive Connectivity Establishment (ICE) server configuration information, including URIs, username, and password which can be used to configure the WebRTC connection. The ICE component uses this configuration information to setup the WebRTC connection, including authenticating with the Traversal Using Relays around NAT (TURN) relay server. TURN is a protocol that is used to improve the connectivity of peer-to-peer applications. By providing a cloud-based relay service, TURN ensures that a connection can be established even when one or more peers are incapable of a direct peer-to-peer connection. For more information, see A REST API For Access To TURN Services. You can invoke this API to establish a fallback mechanism in case either of the peers is unable to establish a direct peer-to-peer connection over a signaling channel. You must specify either a signaling channel ARN or the client ID in order to invoke this API."]