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.ivs_realtime
let apiVersion = "2020-07-14"
let endpointPrefix = "ivsrealtime"
let serviceFullName = "Amazon Interactive Video Service RealTime"
let signatureVersion = "v4"
let protocol = "rest_json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let serviceAbbreviation = "ivsrealtime"
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 ThumbnailStorageType =
  struct
    type nonrec t =
      | SEQUENTIAL 
      | LATEST 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SEQUENTIAL -> "SEQUENTIAL"
      | LATEST -> "LATEST"
      | Non_static_id s -> s
    let of_string =
      function
      | "SEQUENTIAL" -> SEQUENTIAL
      | "LATEST" -> LATEST
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration ThumbnailStorageType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ThumbnailStorageType" j)
    let to_json = simple_to_json to_value
  end
module ThumbnailIntervalSeconds =
  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: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 ThumbnailIntervalSeconds"
           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 ThumbnailStorageTypeList =
  struct
    type nonrec t = ThumbnailStorageType.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:2) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ThumbnailStorageType.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:ThumbnailStorageType.of_xml)
    let of_json j =
      list_of_json ~kind:"ThumbnailStorageTypeList"
        ~of_json:ThumbnailStorageType.of_json j
    let to_json v = composed_to_json to_value v
  end
module CompositionRecordingTargetSegmentDurationSeconds =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:10) >>= (fun () -> check_int_min i ~min:2));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml
           ~kind:"an integer for CompositionRecordingTargetSegmentDurationSeconds"
           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 CompositionThumbnailConfiguration =
  struct
    type nonrec t =
      {
      targetIntervalSeconds: ThumbnailIntervalSeconds.t option
        [@ocaml.doc
          "The targeted thumbnail-generation interval in seconds. Default: 60."];
      storage: ThumbnailStorageTypeList.t option
        [@ocaml.doc
          "Indicates the format in which thumbnails are recorded. SEQUENTIAL records all generated thumbnails in a serial manner, to the media/thumbnails/(width)x(height) directory, where (width) and (height) are the width and height of the thumbnail. LATEST saves the latest thumbnail in media/latest_thumbnail/(width)x(height)/thumb.jpg and overwrites it at the interval specified by targetIntervalSeconds. You can enable both SEQUENTIAL and LATEST. Default: SEQUENTIAL."]}
    let make ?targetIntervalSeconds =
      fun ?storage -> fun () -> { targetIntervalSeconds; storage }
    let to_value x =
      structure_to_value
        [("targetIntervalSeconds",
           (Option.map x.targetIntervalSeconds
              ~f:ThumbnailIntervalSeconds.to_value));
        ("storage",
          (Option.map x.storage ~f:ThumbnailStorageTypeList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let storage =
        (Option.map ~f:ThumbnailStorageTypeList.of_xml)
          (Xml.child xml_arg0 "storage") in
      let targetIntervalSeconds =
        (Option.map ~f:ThumbnailIntervalSeconds.of_xml)
          (Xml.child xml_arg0 "targetIntervalSeconds") in
      make ?storage ?targetIntervalSeconds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let storage =
        field_map json__ "storage" ThumbnailStorageTypeList.of_json in
      let targetIntervalSeconds =
        field_map json__ "targetIntervalSeconds"
          ThumbnailIntervalSeconds.of_json in
      make ?storage ?targetIntervalSeconds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object representing a configuration of thumbnails for recorded video for a Composition."]
module EncoderConfigurationArn =
  struct
    type nonrec t = string
    let context_ = "EncoderConfigurationArn"
    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:"arn:aws:ivs:[a-z0-9-]+:[0-9]+:encoder-configuration/[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:"EncoderConfigurationArn" j
    let to_json = simple_to_json to_value
  end
module CompositionRecordingHlsConfiguration =
  struct
    type nonrec t =
      {
      targetSegmentDurationSeconds:
        CompositionRecordingTargetSegmentDurationSeconds.t option
        [@ocaml.doc
          "Defines the target duration for recorded segments generated when using composite recording. Default: 2."]}
    let make ?targetSegmentDurationSeconds =
      fun () -> { targetSegmentDurationSeconds }
    let to_value x =
      structure_to_value
        [("targetSegmentDurationSeconds",
           (Option.map x.targetSegmentDurationSeconds
              ~f:CompositionRecordingTargetSegmentDurationSeconds.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let targetSegmentDurationSeconds =
        (Option.map
           ~f:CompositionRecordingTargetSegmentDurationSeconds.of_xml)
          (Xml.child xml_arg0 "targetSegmentDurationSeconds") in
      make ?targetSegmentDurationSeconds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let targetSegmentDurationSeconds =
        field_map json__ "targetSegmentDurationSeconds"
          CompositionRecordingTargetSegmentDurationSeconds.of_json in
      make ?targetSegmentDurationSeconds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object representing a configuration of HLS recordings for server-side composition."]
module RecordingConfigurationFormat =
  struct
    type nonrec t =
      | HLS 
      | Non_static_id of string 
    let make i = i
    let to_string = function | HLS -> "HLS" | Non_static_id s -> s
    let of_string = function | "HLS" -> HLS | 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 RecordingConfigurationFormat"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"RecordingConfigurationFormat" j)
    let to_json = simple_to_json to_value
  end
module ChannelArn =
  struct
    type nonrec t = string
    let context_ = "ChannelArn"
    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:"arn:aws:ivs:[a-z0-9-]+:[0-9]+:channel/[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:"ChannelArn" j
    let to_json = simple_to_json to_value
  end
module CompositionThumbnailConfigurationList =
  struct
    type nonrec t = CompositionThumbnailConfiguration.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:1) >>= (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:CompositionThumbnailConfiguration.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:CompositionThumbnailConfiguration.of_xml)
    let of_json j =
      list_of_json ~kind:"CompositionThumbnailConfigurationList"
        ~of_json:CompositionThumbnailConfiguration.of_json j
    let to_json v = composed_to_json to_value v
  end
module EncoderConfigurationArnList =
  struct
    type nonrec t = EncoderConfigurationArn.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:1) >>= (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:EncoderConfigurationArn.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:EncoderConfigurationArn.of_xml)
    let of_json j =
      list_of_json ~kind:"EncoderConfigurationArnList"
        ~of_json:EncoderConfigurationArn.of_json j
    let to_json v = composed_to_json to_value v
  end
module RecordingConfiguration =
  struct
    type nonrec t =
      {
      hlsConfiguration: CompositionRecordingHlsConfiguration.t option
        [@ocaml.doc
          "An HLS configuration object to return information about how the recording will be configured."];
      format: RecordingConfigurationFormat.t option
        [@ocaml.doc
          "The recording format for storing a recording in Amazon S3."]}
    let make ?hlsConfiguration =
      fun ?format -> fun () -> { hlsConfiguration; format }
    let to_value x =
      structure_to_value
        [("hlsConfiguration",
           (Option.map x.hlsConfiguration
              ~f:CompositionRecordingHlsConfiguration.to_value));
        ("format",
          (Option.map x.format ~f:RecordingConfigurationFormat.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let format =
        (Option.map ~f:RecordingConfigurationFormat.of_xml)
          (Xml.child xml_arg0 "format") in
      let hlsConfiguration =
        (Option.map ~f:CompositionRecordingHlsConfiguration.of_xml)
          (Xml.child xml_arg0 "hlsConfiguration") in
      make ?format ?hlsConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let format =
        field_map json__ "format" RecordingConfigurationFormat.of_json in
      let hlsConfiguration =
        field_map json__ "hlsConfiguration"
          CompositionRecordingHlsConfiguration.of_json in
      make ?format ?hlsConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object representing a configuration to record a stage stream."]
module StorageConfigurationArn =
  struct
    type nonrec t = string
    let context_ = "StorageConfigurationArn"
    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:"arn:aws:ivs:[a-z0-9-]+:[0-9]+:storage-configuration/[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:"StorageConfigurationArn" j
    let to_json = simple_to_json to_value
  end
module String_ =
  struct
    type nonrec t = string
    let context_ = "String"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"String" j
    let to_json = simple_to_json to_value
  end
module ChannelDestinationConfiguration =
  struct
    type nonrec t =
      {
      channelArn: ChannelArn.t
        [@ocaml.doc
          "ARN of the channel to use for broadcasting. The channel and stage resources must be in the same AWS account and region. The channel must be offline (not broadcasting)."];
      encoderConfigurationArn: EncoderConfigurationArn.t option
        [@ocaml.doc
          "ARN of the EncoderConfiguration resource. The encoder configuration and stage resources must be in the same AWS account and region."]}
    let context_ = "ChannelDestinationConfiguration"
    let make ?encoderConfigurationArn =
      fun ~channelArn -> fun () -> { encoderConfigurationArn; channelArn }
    let to_value x =
      structure_to_value
        [("channelArn", (Some (ChannelArn.to_value x.channelArn)));
        ("encoderConfigurationArn",
          (Option.map x.encoderConfigurationArn
             ~f:EncoderConfigurationArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let encoderConfigurationArn =
        (Option.map ~f:EncoderConfigurationArn.of_xml)
          (Xml.child xml_arg0 "encoderConfigurationArn") in
      let channelArn =
        ChannelArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "channelArn") in
      make ?encoderConfigurationArn ~channelArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let encoderConfigurationArn =
        field_map json__ "encoderConfigurationArn"
          EncoderConfigurationArn.of_json in
      let channelArn = field_map_exn json__ "channelArn" ChannelArn.of_json in
      make ?encoderConfigurationArn ~channelArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Object specifying a channel as a destination."]
module DestinationConfigurationName =
  struct
    type nonrec t = string
    let context_ = "DestinationConfigurationName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (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:"DestinationConfigurationName" j
    let to_json = simple_to_json to_value
  end
module S3DestinationConfiguration =
  struct
    type nonrec t =
      {
      storageConfigurationArn: StorageConfigurationArn.t
        [@ocaml.doc
          "ARN of the StorageConfiguration where recorded videos will be stored."];
      encoderConfigurationArns: EncoderConfigurationArnList.t
        [@ocaml.doc
          "ARNs of the EncoderConfiguration resource. The encoder configuration and stage resources must be in the same AWS account and region."];
      recordingConfiguration: RecordingConfiguration.t option
        [@ocaml.doc
          "Array of maps, each of the form string:string (key:value). This is an optional customer specification, currently used only to specify the recording format for storing a recording in Amazon S3."];
      thumbnailConfigurations: CompositionThumbnailConfigurationList.t option
        [@ocaml.doc
          "A complex type that allows you to enable/disable the recording of thumbnails for a Composition and modify the interval at which thumbnails are generated for the live session."]}
    let context_ = "S3DestinationConfiguration"
    let make ?recordingConfiguration =
      fun ?thumbnailConfigurations ->
        fun ~storageConfigurationArn ->
          fun ~encoderConfigurationArns ->
            fun () ->
              {
                recordingConfiguration;
                thumbnailConfigurations;
                storageConfigurationArn;
                encoderConfigurationArns
              }
    let to_value x =
      structure_to_value
        [("storageConfigurationArn",
           (Some (StorageConfigurationArn.to_value x.storageConfigurationArn)));
        ("encoderConfigurationArns",
          (Some
             (EncoderConfigurationArnList.to_value x.encoderConfigurationArns)));
        ("recordingConfiguration",
          (Option.map x.recordingConfiguration
             ~f:RecordingConfiguration.to_value));
        ("thumbnailConfigurations",
          (Option.map x.thumbnailConfigurations
             ~f:CompositionThumbnailConfigurationList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let thumbnailConfigurations =
        (Option.map ~f:CompositionThumbnailConfigurationList.of_xml)
          (Xml.child xml_arg0 "thumbnailConfigurations") in
      let recordingConfiguration =
        (Option.map ~f:RecordingConfiguration.of_xml)
          (Xml.child xml_arg0 "recordingConfiguration") in
      let encoderConfigurationArns =
        EncoderConfigurationArnList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "encoderConfigurationArns") in
      let storageConfigurationArn =
        StorageConfigurationArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "storageConfigurationArn") in
      make ?thumbnailConfigurations ?recordingConfiguration
        ~encoderConfigurationArns ~storageConfigurationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let thumbnailConfigurations =
        field_map json__ "thumbnailConfigurations"
          CompositionThumbnailConfigurationList.of_json in
      let recordingConfiguration =
        field_map json__ "recordingConfiguration"
          RecordingConfiguration.of_json in
      let encoderConfigurationArns =
        field_map_exn json__ "encoderConfigurationArns"
          EncoderConfigurationArnList.of_json in
      let storageConfigurationArn =
        field_map_exn json__ "storageConfigurationArn"
          StorageConfigurationArn.of_json in
      make ?thumbnailConfigurations ?recordingConfiguration
        ~encoderConfigurationArns ~storageConfigurationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A complex type that describes an S3 location where recorded videos will be stored."]
module S3Detail =
  struct
    type nonrec t =
      {
      recordingPrefix: String_.t option
        [@ocaml.doc
          "The S3 bucket prefix under which the recording is stored."]}
    let make ?recordingPrefix = fun () -> { recordingPrefix }
    let to_value x =
      structure_to_value
        [("recordingPrefix",
           (Option.map x.recordingPrefix ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let recordingPrefix =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "recordingPrefix") in
      make ?recordingPrefix ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let recordingPrefix =
        field_map json__ "recordingPrefix" String_.of_json in
      make ?recordingPrefix ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Complex data type that defines S3Detail objects."]
module ParticipantTokenCapability =
  struct
    type nonrec t =
      | PUBLISH 
      | SUBSCRIBE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PUBLISH -> "PUBLISH"
      | SUBSCRIBE -> "SUBSCRIBE"
      | Non_static_id s -> s
    let of_string =
      function
      | "PUBLISH" -> PUBLISH
      | "SUBSCRIBE" -> SUBSCRIBE
      | 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 ParticipantTokenCapability"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ParticipantTokenCapability" j)
    let to_json = simple_to_json to_value
  end
module DestinationState =
  struct
    type nonrec t =
      | STARTING 
      | ACTIVE 
      | STOPPING 
      | RECONNECTING 
      | FAILED 
      | STOPPED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | STARTING -> "STARTING"
      | ACTIVE -> "ACTIVE"
      | STOPPING -> "STOPPING"
      | RECONNECTING -> "RECONNECTING"
      | FAILED -> "FAILED"
      | STOPPED -> "STOPPED"
      | Non_static_id s -> s
    let of_string =
      function
      | "STARTING" -> STARTING
      | "ACTIVE" -> ACTIVE
      | "STOPPING" -> STOPPING
      | "RECONNECTING" -> RECONNECTING
      | "FAILED" -> FAILED
      | "STOPPED" -> STOPPED
      | 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 DestinationState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DestinationState" j)
    let to_json = simple_to_json to_value
  end
module Time =
  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 ParticipantRecordingTargetSegmentDurationSeconds =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:10) >>= (fun () -> check_int_min i ~min:2));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml
           ~kind:"an integer for ParticipantRecordingTargetSegmentDurationSeconds"
           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 ParticipantRecordingMediaType =
  struct
    type nonrec t =
      | AUDIO_VIDEO 
      | AUDIO_ONLY 
      | NONE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | AUDIO_VIDEO -> "AUDIO_VIDEO"
      | AUDIO_ONLY -> "AUDIO_ONLY"
      | NONE -> "NONE"
      | Non_static_id s -> s
    let of_string =
      function
      | "AUDIO_VIDEO" -> AUDIO_VIDEO
      | "AUDIO_ONLY" -> AUDIO_ONLY
      | "NONE" -> NONE
      | 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 ParticipantRecordingMediaType"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ParticipantRecordingMediaType" j)
    let to_json = simple_to_json to_value
  end
module ThumbnailRecordingMode =
  struct
    type nonrec t =
      | INTERVAL 
      | DISABLED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | INTERVAL -> "INTERVAL"
      | DISABLED -> "DISABLED"
      | Non_static_id s -> s
    let of_string =
      function
      | "INTERVAL" -> INTERVAL
      | "DISABLED" -> DISABLED
      | 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 ThumbnailRecordingMode" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ThumbnailRecordingMode" j)
    let to_json = simple_to_json to_value
  end
module ParticipantId =
  struct
    type nonrec t = string
    let context_ = "ParticipantId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (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:"ParticipantId" j
    let to_json = simple_to_json to_value
  end
module StreamKey =
  struct
    type nonrec t = string
    let context_ = "StreamKey"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i ~pattern:"rt_[0-9]+_[a-z0-9-]+_[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:"StreamKey" j
    let to_json = simple_to_json to_value
  end
module DestinationConfiguration =
  struct
    type nonrec t =
      {
      name: DestinationConfigurationName.t option
        [@ocaml.doc
          "Name that can be specified to help identify the destination."];
      channel: ChannelDestinationConfiguration.t option
        [@ocaml.doc
          "An IVS channel to be used for broadcasting, for server-side composition. Either a channel or an s3 must be specified."];
      s3: S3DestinationConfiguration.t option
        [@ocaml.doc
          "An S3 storage configuration to be used for recording video data. Either a channel or an s3 must be specified."]}
    let make ?name =
      fun ?channel -> fun ?s3 -> fun () -> { name; channel; s3 }
    let to_value x =
      structure_to_value
        [("name",
           (Option.map x.name ~f:DestinationConfigurationName.to_value));
        ("channel",
          (Option.map x.channel ~f:ChannelDestinationConfiguration.to_value));
        ("s3", (Option.map x.s3 ~f:S3DestinationConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let s3 =
        (Option.map ~f:S3DestinationConfiguration.of_xml)
          (Xml.child xml_arg0 "s3") in
      let channel =
        (Option.map ~f:ChannelDestinationConfiguration.of_xml)
          (Xml.child xml_arg0 "channel") in
      let name =
        (Option.map ~f:DestinationConfigurationName.of_xml)
          (Xml.child xml_arg0 "name") in
      make ?s3 ?channel ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let s3 = field_map json__ "s3" S3DestinationConfiguration.of_json in
      let channel =
        field_map json__ "channel" ChannelDestinationConfiguration.of_json in
      let name = field_map json__ "name" DestinationConfigurationName.of_json in
      make ?s3 ?channel ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Complex data type that defines destination-configuration objects."]
module DestinationDetail =
  struct
    type nonrec t =
      {
      s3: S3Detail.t option
        [@ocaml.doc
          "An S3 detail object to return information about the S3 destination."]}
    let make ?s3 = fun () -> { s3 }
    let to_value x =
      structure_to_value [("s3", (Option.map x.s3 ~f:S3Detail.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let s3 = (Option.map ~f:S3Detail.of_xml) (Xml.child xml_arg0 "s3") in
      make ?s3 ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let s3 = field_map json__ "s3" S3Detail.of_json in make ?s3 ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Complex data type that defines destination-detail objects."]
module AttributeKey =
  struct
    type nonrec t = string
    let context_ = "AttributeKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (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:"AttributeKey" j
    let to_json = simple_to_json to_value
  end
module GridGap =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (check_int_min i ~min:0); i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string (string_of_xml ~kind:"an integer for GridGap" 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 OmitStoppedVideo =
  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 VideoAspectRatio =
  struct
    type nonrec t =
      | AUTO 
      | VIDEO 
      | SQUARE 
      | PORTRAIT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | AUTO -> "AUTO"
      | VIDEO -> "VIDEO"
      | SQUARE -> "SQUARE"
      | PORTRAIT -> "PORTRAIT"
      | Non_static_id s -> s
    let of_string =
      function
      | "AUTO" -> AUTO
      | "VIDEO" -> VIDEO
      | "SQUARE" -> SQUARE
      | "PORTRAIT" -> PORTRAIT
      | 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 VideoAspectRatio" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"VideoAspectRatio" j)
    let to_json = simple_to_json to_value
  end
module VideoFillMode =
  struct
    type nonrec t =
      | FILL 
      | COVER 
      | CONTAIN 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | FILL -> "FILL"
      | COVER -> "COVER"
      | CONTAIN -> "CONTAIN"
      | Non_static_id s -> s
    let of_string =
      function
      | "FILL" -> FILL
      | "COVER" -> COVER
      | "CONTAIN" -> CONTAIN
      | 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 VideoFillMode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"VideoFillMode" j)
    let to_json = simple_to_json to_value
  end
module PipBehavior =
  struct
    type nonrec t =
      | STATIC 
      | DYNAMIC 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | STATIC -> "STATIC"
      | DYNAMIC -> "DYNAMIC"
      | Non_static_id s -> s
    let of_string =
      function
      | "STATIC" -> STATIC
      | "DYNAMIC" -> DYNAMIC
      | 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 PipBehavior" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"PipBehavior" j)
    let to_json = simple_to_json to_value
  end
module PipHeight =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (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 PipHeight" 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 PipOffset =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (check_int_min i ~min:0); i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string (string_of_xml ~kind:"an integer for PipOffset" 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 PipPosition =
  struct
    type nonrec t =
      | TOP_LEFT 
      | TOP_RIGHT 
      | BOTTOM_LEFT 
      | BOTTOM_RIGHT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | TOP_LEFT -> "TOP_LEFT"
      | TOP_RIGHT -> "TOP_RIGHT"
      | BOTTOM_LEFT -> "BOTTOM_LEFT"
      | BOTTOM_RIGHT -> "BOTTOM_RIGHT"
      | Non_static_id s -> s
    let of_string =
      function
      | "TOP_LEFT" -> TOP_LEFT
      | "TOP_RIGHT" -> TOP_RIGHT
      | "BOTTOM_LEFT" -> BOTTOM_LEFT
      | "BOTTOM_RIGHT" -> BOTTOM_RIGHT
      | 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 PipPosition" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"PipPosition" j)
    let to_json = simple_to_json to_value
  end
module PipWidth =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (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 PipWidth" 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 S3BucketName =
  struct
    type nonrec t = string
    let context_ = "S3BucketName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:3) >>=
             (fun () ->
                (check_string_max i ~max:63) >>=
                  (fun () -> check_pattern i ~pattern:"[a-z0-9-.]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"S3BucketName" j
    let to_json = simple_to_json to_value
  end
module TagKey =
  struct
    type nonrec t = string
    let context_ = "TagKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagKey" j
    let to_json = simple_to_json to_value
  end
module TagValue =
  struct
    type nonrec t = string
    let context_ = "TagValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagValue" j
    let to_json = simple_to_json to_value
  end
module ParticipantTokenAttributes =
  struct
    type nonrec t = (String_.t * String_.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((String_.of_string chopped),
                              (String_.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (String_.to_value x) |>
                    (fun x -> (String_.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:String_.of_string
        ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module ParticipantTokenCapabilities =
  struct
    type nonrec t = ParticipantTokenCapability.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:2) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ParticipantTokenCapability.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:ParticipantTokenCapability.of_xml)
    let of_json j =
      list_of_json ~kind:"ParticipantTokenCapabilities"
        ~of_json:ParticipantTokenCapability.of_json j
    let to_json v = composed_to_json to_value v
  end
module ParticipantTokenExpirationTime =
  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 ParticipantTokenUserId =
  struct
    type nonrec t = string
    let context_ = "ParticipantTokenUserId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ParticipantTokenUserId" j
    let to_json = simple_to_json to_value
  end
module DestinationSummary =
  struct
    type nonrec t =
      {
      id: String_.t option
        [@ocaml.doc
          "Unique identifier for this destination, assigned by IVS."];
      state: DestinationState.t option
        [@ocaml.doc "State of the Composition Destination."];
      startTime: Time.t option
        [@ocaml.doc
          "UTC time of the destination start. This is an ISO 8601 timestamp; note that this is returned as a string."];
      endTime: Time.t option
        [@ocaml.doc
          "UTC time of the destination end. This is an ISO 8601 timestamp; note that this is returned as a string."]}
    let make ?id =
      fun ?state ->
        fun ?startTime ->
          fun ?endTime -> fun () -> { id; state; startTime; endTime }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:String_.to_value));
        ("state", (Option.map x.state ~f:DestinationState.to_value));
        ("startTime", (Option.map x.startTime ~f:Time.to_value));
        ("endTime", (Option.map x.endTime ~f:Time.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "endTime") in
      let startTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "startTime") in
      let state =
        (Option.map ~f:DestinationState.of_xml) (Xml.child xml_arg0 "state") in
      let id = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "id") in
      make ?endTime ?startTime ?state ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endTime = field_map json__ "endTime" Time.of_json in
      let startTime = field_map json__ "startTime" Time.of_json in
      let state = field_map json__ "state" DestinationState.of_json in
      let id = field_map json__ "id" String_.of_json in
      make ?endTime ?startTime ?state ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Summary information about a Destination."]
module AutoParticipantRecordingStorageConfigurationArn =
  struct
    type nonrec t = string
    let context_ = "AutoParticipantRecordingStorageConfigurationArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^$|^arn:aws:ivs:[a-z0-9-]+:[0-9]+:storage-configuration/[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:"AutoParticipantRecordingStorageConfigurationArn"
        j
    let to_json = simple_to_json to_value
  end
module ParticipantRecordingHlsConfiguration =
  struct
    type nonrec t =
      {
      targetSegmentDurationSeconds:
        ParticipantRecordingTargetSegmentDurationSeconds.t option
        [@ocaml.doc
          "Defines the target duration for recorded segments generated when recording a stage participant. Segments may have durations longer than the specified value when needed to ensure each segment begins with a keyframe. Default: 6."]}
    let make ?targetSegmentDurationSeconds =
      fun () -> { targetSegmentDurationSeconds }
    let to_value x =
      structure_to_value
        [("targetSegmentDurationSeconds",
           (Option.map x.targetSegmentDurationSeconds
              ~f:ParticipantRecordingTargetSegmentDurationSeconds.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let targetSegmentDurationSeconds =
        (Option.map
           ~f:ParticipantRecordingTargetSegmentDurationSeconds.of_xml)
          (Xml.child xml_arg0 "targetSegmentDurationSeconds") in
      make ?targetSegmentDurationSeconds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let targetSegmentDurationSeconds =
        field_map json__ "targetSegmentDurationSeconds"
          ParticipantRecordingTargetSegmentDurationSeconds.of_json in
      make ?targetSegmentDurationSeconds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object representing a configuration of participant HLS recordings for individual participant recording."]
module ParticipantRecordingMediaTypeList =
  struct
    type nonrec t = ParticipantRecordingMediaType.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:1) >>= (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:ParticipantRecordingMediaType.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:ParticipantRecordingMediaType.of_xml)
    let of_json j =
      list_of_json ~kind:"ParticipantRecordingMediaTypeList"
        ~of_json:ParticipantRecordingMediaType.of_json j
    let to_json v = composed_to_json to_value v
  end
module ParticipantRecordingReconnectWindowSeconds =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:300) >>= (fun () -> check_int_min i ~min:0));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml
           ~kind:"an integer for ParticipantRecordingReconnectWindowSeconds"
           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 ParticipantThumbnailConfiguration =
  struct
    type nonrec t =
      {
      targetIntervalSeconds: ThumbnailIntervalSeconds.t option
        [@ocaml.doc
          "The targeted thumbnail-generation interval in seconds. This is configurable only if recordingMode is INTERVAL. Default: 60."];
      storage: ThumbnailStorageTypeList.t option
        [@ocaml.doc
          "Indicates the format in which thumbnails are recorded. SEQUENTIAL records all generated thumbnails in a serial manner, to the media/thumbnails/high directory. LATEST saves the latest thumbnail in media/latest_thumbnail/high/thumb.jpg and overwrites it at the interval specified by targetIntervalSeconds. You can enable both SEQUENTIAL and LATEST. Default: SEQUENTIAL."];
      recordingMode: ThumbnailRecordingMode.t option
        [@ocaml.doc "Thumbnail recording mode. Default: DISABLED."]}
    let make ?targetIntervalSeconds =
      fun ?storage ->
        fun ?recordingMode ->
          fun () -> { targetIntervalSeconds; storage; recordingMode }
    let to_value x =
      structure_to_value
        [("targetIntervalSeconds",
           (Option.map x.targetIntervalSeconds
              ~f:ThumbnailIntervalSeconds.to_value));
        ("storage",
          (Option.map x.storage ~f:ThumbnailStorageTypeList.to_value));
        ("recordingMode",
          (Option.map x.recordingMode ~f:ThumbnailRecordingMode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let recordingMode =
        (Option.map ~f:ThumbnailRecordingMode.of_xml)
          (Xml.child xml_arg0 "recordingMode") in
      let storage =
        (Option.map ~f:ThumbnailStorageTypeList.of_xml)
          (Xml.child xml_arg0 "storage") in
      let targetIntervalSeconds =
        (Option.map ~f:ThumbnailIntervalSeconds.of_xml)
          (Xml.child xml_arg0 "targetIntervalSeconds") in
      make ?recordingMode ?storage ?targetIntervalSeconds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let recordingMode =
        field_map json__ "recordingMode" ThumbnailRecordingMode.of_json in
      let storage =
        field_map json__ "storage" ThumbnailStorageTypeList.of_json in
      let targetIntervalSeconds =
        field_map json__ "targetIntervalSeconds"
          ThumbnailIntervalSeconds.of_json in
      make ?recordingMode ?storage ?targetIntervalSeconds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object representing a configuration of thumbnails for recorded video from an individual participant."]
module RecordParticipantReplicas =
  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 StageEndpoint =
  struct
    type nonrec t = string
    let context_ = "StageEndpoint"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2048) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"StageEndpoint" j
    let to_json = simple_to_json to_value
  end
module RedundantIngestCredential =
  struct
    type nonrec t =
      {
      participantId: ParticipantId.t option
        [@ocaml.doc "ID of the participant within the stage."];
      streamKey: StreamKey.t option [@ocaml.doc "Ingest-key value."]}
    let make ?participantId =
      fun ?streamKey -> fun () -> { participantId; streamKey }
    let to_value x =
      structure_to_value
        [("participantId",
           (Option.map x.participantId ~f:ParticipantId.to_value));
        ("streamKey", (Option.map x.streamKey ~f:StreamKey.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let streamKey =
        (Option.map ~f:StreamKey.of_xml) (Xml.child xml_arg0 "streamKey") in
      let participantId =
        (Option.map ~f:ParticipantId.of_xml)
          (Xml.child xml_arg0 "participantId") in
      make ?streamKey ?participantId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let streamKey = field_map json__ "streamKey" StreamKey.of_json in
      let participantId =
        field_map json__ "participantId" ParticipantId.of_json in
      make ?streamKey ?participantId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "An object representing a redundant ingest credential."]
module Destination =
  struct
    type nonrec t =
      {
      id: String_.t option
        [@ocaml.doc
          "Unique identifier for this destination, assigned by IVS."];
      state: DestinationState.t option
        [@ocaml.doc "State of the Composition Destination."];
      startTime: Time.t option
        [@ocaml.doc
          "UTC time of the destination start. This is an ISO 8601 timestamp; note that this is returned as a string."];
      endTime: Time.t option
        [@ocaml.doc
          "UTC time of the destination end. This is an ISO 8601 timestamp; note that this is returned as a string."];
      configuration: DestinationConfiguration.t option
        [@ocaml.doc "Configuration used to create this destination."];
      detail: DestinationDetail.t option
        [@ocaml.doc
          "Optional details regarding the status of the destination."]}
    let make ?id =
      fun ?state ->
        fun ?startTime ->
          fun ?endTime ->
            fun ?configuration ->
              fun ?detail ->
                fun () ->
                  { id; state; startTime; endTime; configuration; detail }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:String_.to_value));
        ("state", (Option.map x.state ~f:DestinationState.to_value));
        ("startTime", (Option.map x.startTime ~f:Time.to_value));
        ("endTime", (Option.map x.endTime ~f:Time.to_value));
        ("configuration",
          (Option.map x.configuration ~f:DestinationConfiguration.to_value));
        ("detail", (Option.map x.detail ~f:DestinationDetail.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let detail =
        (Option.map ~f:DestinationDetail.of_xml)
          (Xml.child xml_arg0 "detail") in
      let configuration =
        (Option.map ~f:DestinationConfiguration.of_xml)
          (Xml.child xml_arg0 "configuration") in
      let endTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "endTime") in
      let startTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "startTime") in
      let state =
        (Option.map ~f:DestinationState.of_xml) (Xml.child xml_arg0 "state") in
      let id = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "id") in
      make ?detail ?configuration ?endTime ?startTime ?state ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let detail = field_map json__ "detail" DestinationDetail.of_json in
      let configuration =
        field_map json__ "configuration" DestinationConfiguration.of_json in
      let endTime = field_map json__ "endTime" Time.of_json in
      let startTime = field_map json__ "startTime" Time.of_json in
      let state = field_map json__ "state" DestinationState.of_json in
      let id = field_map json__ "id" String_.of_json in
      make ?detail ?configuration ?endTime ?startTime ?state ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Object specifying the status of a Destination."]
module GridConfiguration =
  struct
    type nonrec t =
      {
      featuredParticipantAttribute: AttributeKey.t option
        [@ocaml.doc
          "This attribute name identifies the featured slot. A participant with this attribute set to \"true\" (as a string value) in ParticipantTokenConfiguration is placed in the featured slot. Default: \"\" (no featured participant)."];
      omitStoppedVideo: OmitStoppedVideo.t option
        [@ocaml.doc
          "Determines whether to omit participants with stopped video in the composition. Default: false."];
      videoAspectRatio: VideoAspectRatio.t option
        [@ocaml.doc
          "Sets the non-featured participant display mode, to control the aspect ratio of video tiles. VIDEO is 16:9, SQUARE is 1:1, and PORTRAIT is 3:4. Default: VIDEO."];
      videoFillMode: VideoFillMode.t option
        [@ocaml.doc
          "Defines how video content fits within the participant tile: FILL (stretched), COVER (cropped), or CONTAIN (letterboxed). When not set, videoFillMode defaults to COVER fill mode for participants in the grid and to CONTAIN fill mode for featured participants."];
      gridGap: GridGap.t option
        [@ocaml.doc
          "Specifies the spacing between participant tiles in pixels. Default: 2."];
      participantOrderAttribute: AttributeKey.t option
        [@ocaml.doc
          "Attribute name in ParticipantTokenConfiguration identifying the participant ordering key. Participants with participantOrderAttribute set to \"\" or not specified are ordered based on their arrival time into the stage."]}
    let make ?featuredParticipantAttribute =
      fun ?omitStoppedVideo ->
        fun ?videoAspectRatio ->
          fun ?videoFillMode ->
            fun ?gridGap ->
              fun ?participantOrderAttribute ->
                fun () ->
                  {
                    featuredParticipantAttribute;
                    omitStoppedVideo;
                    videoAspectRatio;
                    videoFillMode;
                    gridGap;
                    participantOrderAttribute
                  }
    let to_value x =
      structure_to_value
        [("featuredParticipantAttribute",
           (Option.map x.featuredParticipantAttribute
              ~f:AttributeKey.to_value));
        ("omitStoppedVideo",
          (Option.map x.omitStoppedVideo ~f:OmitStoppedVideo.to_value));
        ("videoAspectRatio",
          (Option.map x.videoAspectRatio ~f:VideoAspectRatio.to_value));
        ("videoFillMode",
          (Option.map x.videoFillMode ~f:VideoFillMode.to_value));
        ("gridGap", (Option.map x.gridGap ~f:GridGap.to_value));
        ("participantOrderAttribute",
          (Option.map x.participantOrderAttribute ~f:AttributeKey.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let participantOrderAttribute =
        (Option.map ~f:AttributeKey.of_xml)
          (Xml.child xml_arg0 "participantOrderAttribute") in
      let gridGap =
        (Option.map ~f:GridGap.of_xml) (Xml.child xml_arg0 "gridGap") in
      let videoFillMode =
        (Option.map ~f:VideoFillMode.of_xml)
          (Xml.child xml_arg0 "videoFillMode") in
      let videoAspectRatio =
        (Option.map ~f:VideoAspectRatio.of_xml)
          (Xml.child xml_arg0 "videoAspectRatio") in
      let omitStoppedVideo =
        (Option.map ~f:OmitStoppedVideo.of_xml)
          (Xml.child xml_arg0 "omitStoppedVideo") in
      let featuredParticipantAttribute =
        (Option.map ~f:AttributeKey.of_xml)
          (Xml.child xml_arg0 "featuredParticipantAttribute") in
      make ?participantOrderAttribute ?gridGap ?videoFillMode
        ?videoAspectRatio ?omitStoppedVideo ?featuredParticipantAttribute ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let participantOrderAttribute =
        field_map json__ "participantOrderAttribute" AttributeKey.of_json in
      let gridGap = field_map json__ "gridGap" GridGap.of_json in
      let videoFillMode =
        field_map json__ "videoFillMode" VideoFillMode.of_json in
      let videoAspectRatio =
        field_map json__ "videoAspectRatio" VideoAspectRatio.of_json in
      let omitStoppedVideo =
        field_map json__ "omitStoppedVideo" OmitStoppedVideo.of_json in
      let featuredParticipantAttribute =
        field_map json__ "featuredParticipantAttribute" AttributeKey.of_json in
      make ?participantOrderAttribute ?gridGap ?videoFillMode
        ?videoAspectRatio ?omitStoppedVideo ?featuredParticipantAttribute ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Configuration information specific to Grid layout, for server-side composition. See \"Layouts\" in Server-Side Composition."]
module PipConfiguration =
  struct
    type nonrec t =
      {
      featuredParticipantAttribute: AttributeKey.t option
        [@ocaml.doc
          "This attribute name identifies the featured slot. A participant with this attribute set to \"true\" (as a string value) in ParticipantTokenConfiguration is placed in the featured slot. Default: \"\" (no featured participant)."];
      omitStoppedVideo: OmitStoppedVideo.t option
        [@ocaml.doc
          "Determines whether to omit participants with stopped video in the composition. Default: false."];
      videoFillMode: VideoFillMode.t option
        [@ocaml.doc
          "Defines how video content fits within the participant tile: FILL (stretched), COVER (cropped), or CONTAIN (letterboxed). Default: COVER."];
      gridGap: GridGap.t option
        [@ocaml.doc
          "Specifies the spacing between participant tiles in pixels. Default: 0."];
      pipParticipantAttribute: AttributeKey.t option
        [@ocaml.doc
          "Specifies the participant for the PiP window. A participant with this attribute set to \"true\" (as a string value) in ParticipantTokenConfiguration is placed in the PiP slot. Default: \"\" (no PiP participant)."];
      pipBehavior: PipBehavior.t option
        [@ocaml.doc
          "Defines PiP behavior when all participants have left: STATIC (maintains original position/size) or DYNAMIC (expands to full composition). Default: STATIC."];
      pipOffset: PipOffset.t option
        [@ocaml.doc
          "Sets the PiP window\226\128\153s offset position in pixels from the closest edges determined by PipPosition. Default: 0."];
      pipPosition: PipPosition.t option
        [@ocaml.doc
          "Determines the corner position of the PiP window. Default: BOTTOM_RIGHT."];
      pipWidth: PipWidth.t option
        [@ocaml.doc
          "Specifies the width of the PiP window in pixels. When this is not set explicitly, pipWidth\226\128\153s value will be based on the size of the composition and the aspect ratio of the participant\226\128\153s video."];
      pipHeight: PipHeight.t option
        [@ocaml.doc
          "Specifies the height of the PiP window in pixels. When this is not set explicitly, pipHeight\226\128\153s value will be based on the size of the composition and the aspect ratio of the participant\226\128\153s video."];
      participantOrderAttribute: AttributeKey.t option
        [@ocaml.doc
          "Attribute name in ParticipantTokenConfiguration identifying the participant ordering key. Participants with participantOrderAttribute set to \"\" or not specified are ordered based on their arrival time into the stage."]}
    let make ?featuredParticipantAttribute =
      fun ?omitStoppedVideo ->
        fun ?videoFillMode ->
          fun ?gridGap ->
            fun ?pipParticipantAttribute ->
              fun ?pipBehavior ->
                fun ?pipOffset ->
                  fun ?pipPosition ->
                    fun ?pipWidth ->
                      fun ?pipHeight ->
                        fun ?participantOrderAttribute ->
                          fun () ->
                            {
                              featuredParticipantAttribute;
                              omitStoppedVideo;
                              videoFillMode;
                              gridGap;
                              pipParticipantAttribute;
                              pipBehavior;
                              pipOffset;
                              pipPosition;
                              pipWidth;
                              pipHeight;
                              participantOrderAttribute
                            }
    let to_value x =
      structure_to_value
        [("featuredParticipantAttribute",
           (Option.map x.featuredParticipantAttribute
              ~f:AttributeKey.to_value));
        ("omitStoppedVideo",
          (Option.map x.omitStoppedVideo ~f:OmitStoppedVideo.to_value));
        ("videoFillMode",
          (Option.map x.videoFillMode ~f:VideoFillMode.to_value));
        ("gridGap", (Option.map x.gridGap ~f:GridGap.to_value));
        ("pipParticipantAttribute",
          (Option.map x.pipParticipantAttribute ~f:AttributeKey.to_value));
        ("pipBehavior", (Option.map x.pipBehavior ~f:PipBehavior.to_value));
        ("pipOffset", (Option.map x.pipOffset ~f:PipOffset.to_value));
        ("pipPosition", (Option.map x.pipPosition ~f:PipPosition.to_value));
        ("pipWidth", (Option.map x.pipWidth ~f:PipWidth.to_value));
        ("pipHeight", (Option.map x.pipHeight ~f:PipHeight.to_value));
        ("participantOrderAttribute",
          (Option.map x.participantOrderAttribute ~f:AttributeKey.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let participantOrderAttribute =
        (Option.map ~f:AttributeKey.of_xml)
          (Xml.child xml_arg0 "participantOrderAttribute") in
      let pipHeight =
        (Option.map ~f:PipHeight.of_xml) (Xml.child xml_arg0 "pipHeight") in
      let pipWidth =
        (Option.map ~f:PipWidth.of_xml) (Xml.child xml_arg0 "pipWidth") in
      let pipPosition =
        (Option.map ~f:PipPosition.of_xml) (Xml.child xml_arg0 "pipPosition") in
      let pipOffset =
        (Option.map ~f:PipOffset.of_xml) (Xml.child xml_arg0 "pipOffset") in
      let pipBehavior =
        (Option.map ~f:PipBehavior.of_xml) (Xml.child xml_arg0 "pipBehavior") in
      let pipParticipantAttribute =
        (Option.map ~f:AttributeKey.of_xml)
          (Xml.child xml_arg0 "pipParticipantAttribute") in
      let gridGap =
        (Option.map ~f:GridGap.of_xml) (Xml.child xml_arg0 "gridGap") in
      let videoFillMode =
        (Option.map ~f:VideoFillMode.of_xml)
          (Xml.child xml_arg0 "videoFillMode") in
      let omitStoppedVideo =
        (Option.map ~f:OmitStoppedVideo.of_xml)
          (Xml.child xml_arg0 "omitStoppedVideo") in
      let featuredParticipantAttribute =
        (Option.map ~f:AttributeKey.of_xml)
          (Xml.child xml_arg0 "featuredParticipantAttribute") in
      make ?participantOrderAttribute ?pipHeight ?pipWidth ?pipPosition
        ?pipOffset ?pipBehavior ?pipParticipantAttribute ?gridGap
        ?videoFillMode ?omitStoppedVideo ?featuredParticipantAttribute ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let participantOrderAttribute =
        field_map json__ "participantOrderAttribute" AttributeKey.of_json in
      let pipHeight = field_map json__ "pipHeight" PipHeight.of_json in
      let pipWidth = field_map json__ "pipWidth" PipWidth.of_json in
      let pipPosition = field_map json__ "pipPosition" PipPosition.of_json in
      let pipOffset = field_map json__ "pipOffset" PipOffset.of_json in
      let pipBehavior = field_map json__ "pipBehavior" PipBehavior.of_json in
      let pipParticipantAttribute =
        field_map json__ "pipParticipantAttribute" AttributeKey.of_json in
      let gridGap = field_map json__ "gridGap" GridGap.of_json in
      let videoFillMode =
        field_map json__ "videoFillMode" VideoFillMode.of_json in
      let omitStoppedVideo =
        field_map json__ "omitStoppedVideo" OmitStoppedVideo.of_json in
      let featuredParticipantAttribute =
        field_map json__ "featuredParticipantAttribute" AttributeKey.of_json in
      make ?participantOrderAttribute ?pipHeight ?pipWidth ?pipPosition
        ?pipOffset ?pipBehavior ?pipParticipantAttribute ?gridGap
        ?videoFillMode ?omitStoppedVideo ?featuredParticipantAttribute ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Configuration information specific to Picture-in-Picture (PiP) layout, for server-side composition."]
module S3StorageConfiguration =
  struct
    type nonrec t =
      {
      bucketName: S3BucketName.t
        [@ocaml.doc
          "Location (S3 bucket name) where recorded videos will be stored. Note that the StorageConfiguration and S3 bucket must be in the same region as the Composition."]}
    let context_ = "S3StorageConfiguration"
    let make ~bucketName = fun () -> { bucketName }
    let to_value x =
      structure_to_value
        [("bucketName", (Some (S3BucketName.to_value x.bucketName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let bucketName =
        S3BucketName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "bucketName") in
      make ~bucketName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let bucketName = field_map_exn json__ "bucketName" S3BucketName.of_json in
      make ~bucketName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A complex type that describes an S3 location where recorded videos will be stored."]
module StorageConfigurationName =
  struct
    type nonrec t = string
    let context_ = "StorageConfigurationName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (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:"StorageConfigurationName" j
    let to_json = simple_to_json to_value
  end
module Tags =
  struct
    type nonrec t = (TagKey.t * TagValue.t) list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:50) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((TagKey.of_string chopped),
                              (TagValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (TagKey.to_value x) |>
                    (fun x -> (TagValue.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:TagKey.of_string
        ~of_json:TagValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module StageArn =
  struct
    type nonrec t = string
    let context_ = "StageArn"
    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:"arn:aws:ivs:[a-z0-9-]+:[0-9]+:stage/[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:"StageArn" j
    let to_json = simple_to_json to_value
  end
module StageName =
  struct
    type nonrec t = string
    let context_ = "StageName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (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:"StageName" j
    let to_json = simple_to_json to_value
  end
module StageSessionId =
  struct
    type nonrec t = string
    let context_ = "StageSessionId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:16) >>=
             (fun () ->
                (check_string_max i ~max:16) >>=
                  (fun () -> check_pattern i ~pattern:"st-[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:"StageSessionId" j
    let to_json = simple_to_json to_value
  end
module PublicKeyArn =
  struct
    type nonrec t = string
    let context_ = "PublicKeyArn"
    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:"arn:aws:ivs:[a-z0-9-]+:[0-9]+:public-key/[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:"PublicKeyArn" j
    let to_json = simple_to_json to_value
  end
module PublicKeyName =
  struct
    type nonrec t = string
    let context_ = "PublicKeyName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (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:"PublicKeyName" j
    let to_json = simple_to_json to_value
  end
module IngestConfigurationArn =
  struct
    type nonrec t = string
    let context_ = "IngestConfigurationArn"
    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:"arn:aws:ivs:[a-z0-9-]+:[0-9]+:ingest-configuration/[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:"IngestConfigurationArn" j
    let to_json = simple_to_json to_value
  end
module ParticipantRecordingState =
  struct
    type nonrec t =
      | STARTING 
      | ACTIVE 
      | STOPPING 
      | STOPPED 
      | FAILED 
      | DISABLED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | STARTING -> "STARTING"
      | ACTIVE -> "ACTIVE"
      | STOPPING -> "STOPPING"
      | STOPPED -> "STOPPED"
      | FAILED -> "FAILED"
      | DISABLED -> "DISABLED"
      | Non_static_id s -> s
    let of_string =
      function
      | "STARTING" -> STARTING
      | "ACTIVE" -> ACTIVE
      | "STOPPING" -> STOPPING
      | "STOPPED" -> STOPPED
      | "FAILED" -> FAILED
      | "DISABLED" -> DISABLED
      | 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 ParticipantRecordingState" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ParticipantRecordingState" j)
    let to_json = simple_to_json to_value
  end
module ParticipantState =
  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 ParticipantState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ParticipantState" j)
    let to_json = simple_to_json to_value
  end
module Published =
  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 RedundantIngest =
  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 ReplicationState =
  struct
    type nonrec t =
      | ACTIVE 
      | STOPPED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ACTIVE -> "ACTIVE"
      | STOPPED -> "STOPPED"
      | Non_static_id s -> s
    let of_string =
      function
      | "ACTIVE" -> ACTIVE
      | "STOPPED" -> STOPPED
      | 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 ReplicationState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ReplicationState" j)
    let to_json = simple_to_json to_value
  end
module ReplicationType =
  struct
    type nonrec t =
      | SOURCE 
      | REPLICA 
      | NONE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SOURCE -> "SOURCE"
      | REPLICA -> "REPLICA"
      | NONE -> "NONE"
      | Non_static_id s -> s
    let of_string =
      function
      | "SOURCE" -> SOURCE
      | "REPLICA" -> REPLICA
      | "NONE" -> NONE
      | 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 ReplicationType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ReplicationType" j)
    let to_json = simple_to_json to_value
  end
module UserId =
  struct
    type nonrec t = string
    let context_ = "UserId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"UserId" j
    let to_json = simple_to_json to_value
  end
module EventErrorCode =
  struct
    type nonrec t =
      | INSUFFICIENT_CAPABILITIES 
      | QUOTA_EXCEEDED 
      | PUBLISHER_NOT_FOUND 
      | BITRATE_EXCEEDED 
      | RESOLUTION_EXCEEDED 
      | STREAM_DURATION_EXCEEDED 
      | INVALID_AUDIO_CODEC 
      | INVALID_VIDEO_CODEC 
      | INVALID_PROTOCOL 
      | INVALID_STREAM_KEY 
      | REUSE_OF_STREAM_KEY 
      | B_FRAME_PRESENT 
      | INVALID_INPUT 
      | INTERNAL_SERVER_EXCEPTION 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | INSUFFICIENT_CAPABILITIES -> "INSUFFICIENT_CAPABILITIES"
      | QUOTA_EXCEEDED -> "QUOTA_EXCEEDED"
      | PUBLISHER_NOT_FOUND -> "PUBLISHER_NOT_FOUND"
      | BITRATE_EXCEEDED -> "BITRATE_EXCEEDED"
      | RESOLUTION_EXCEEDED -> "RESOLUTION_EXCEEDED"
      | STREAM_DURATION_EXCEEDED -> "STREAM_DURATION_EXCEEDED"
      | INVALID_AUDIO_CODEC -> "INVALID_AUDIO_CODEC"
      | INVALID_VIDEO_CODEC -> "INVALID_VIDEO_CODEC"
      | INVALID_PROTOCOL -> "INVALID_PROTOCOL"
      | INVALID_STREAM_KEY -> "INVALID_STREAM_KEY"
      | REUSE_OF_STREAM_KEY -> "REUSE_OF_STREAM_KEY"
      | B_FRAME_PRESENT -> "B_FRAME_PRESENT"
      | INVALID_INPUT -> "INVALID_INPUT"
      | INTERNAL_SERVER_EXCEPTION -> "INTERNAL_SERVER_EXCEPTION"
      | Non_static_id s -> s
    let of_string =
      function
      | "INSUFFICIENT_CAPABILITIES" -> INSUFFICIENT_CAPABILITIES
      | "QUOTA_EXCEEDED" -> QUOTA_EXCEEDED
      | "PUBLISHER_NOT_FOUND" -> PUBLISHER_NOT_FOUND
      | "BITRATE_EXCEEDED" -> BITRATE_EXCEEDED
      | "RESOLUTION_EXCEEDED" -> RESOLUTION_EXCEEDED
      | "STREAM_DURATION_EXCEEDED" -> STREAM_DURATION_EXCEEDED
      | "INVALID_AUDIO_CODEC" -> INVALID_AUDIO_CODEC
      | "INVALID_VIDEO_CODEC" -> INVALID_VIDEO_CODEC
      | "INVALID_PROTOCOL" -> INVALID_PROTOCOL
      | "INVALID_STREAM_KEY" -> INVALID_STREAM_KEY
      | "REUSE_OF_STREAM_KEY" -> REUSE_OF_STREAM_KEY
      | "B_FRAME_PRESENT" -> B_FRAME_PRESENT
      | "INVALID_INPUT" -> INVALID_INPUT
      | "INTERNAL_SERVER_EXCEPTION" -> INTERNAL_SERVER_EXCEPTION
      | 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 EventErrorCode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"EventErrorCode" j)
    let to_json = simple_to_json to_value
  end
module EventName =
  struct
    type nonrec t =
      | JOINED 
      | LEFT 
      | PUBLISH_STARTED 
      | PUBLISH_STOPPED 
      | SUBSCRIBE_STARTED 
      | SUBSCRIBE_STOPPED 
      | PUBLISH_ERROR 
      | SUBSCRIBE_ERROR 
      | JOIN_ERROR 
      | REPLICATION_STARTED 
      | REPLICATION_STOPPED 
      | TOKEN_EXCHANGED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | JOINED -> "JOINED"
      | LEFT -> "LEFT"
      | PUBLISH_STARTED -> "PUBLISH_STARTED"
      | PUBLISH_STOPPED -> "PUBLISH_STOPPED"
      | SUBSCRIBE_STARTED -> "SUBSCRIBE_STARTED"
      | SUBSCRIBE_STOPPED -> "SUBSCRIBE_STOPPED"
      | PUBLISH_ERROR -> "PUBLISH_ERROR"
      | SUBSCRIBE_ERROR -> "SUBSCRIBE_ERROR"
      | JOIN_ERROR -> "JOIN_ERROR"
      | REPLICATION_STARTED -> "REPLICATION_STARTED"
      | REPLICATION_STOPPED -> "REPLICATION_STOPPED"
      | TOKEN_EXCHANGED -> "TOKEN_EXCHANGED"
      | Non_static_id s -> s
    let of_string =
      function
      | "JOINED" -> JOINED
      | "LEFT" -> LEFT
      | "PUBLISH_STARTED" -> PUBLISH_STARTED
      | "PUBLISH_STOPPED" -> PUBLISH_STOPPED
      | "SUBSCRIBE_STARTED" -> SUBSCRIBE_STARTED
      | "SUBSCRIBE_STOPPED" -> SUBSCRIBE_STOPPED
      | "PUBLISH_ERROR" -> PUBLISH_ERROR
      | "SUBSCRIBE_ERROR" -> SUBSCRIBE_ERROR
      | "JOIN_ERROR" -> JOIN_ERROR
      | "REPLICATION_STARTED" -> REPLICATION_STARTED
      | "REPLICATION_STOPPED" -> REPLICATION_STOPPED
      | "TOKEN_EXCHANGED" -> TOKEN_EXCHANGED
      | 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 EventName" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"EventName" j)
    let to_json = simple_to_json to_value
  end
module ExchangedParticipantToken =
  struct
    type nonrec t =
      {
      capabilities: ParticipantTokenCapabilities.t option
        [@ocaml.doc
          "Set of capabilities that the user is allowed to perform in the stage."];
      attributes: ParticipantTokenAttributes.t option
        [@ocaml.doc
          "Application-provided attributes to encode into the token and attach to a stage. Map keys and values can contain UTF-8 encoded text. The maximum length of this field is 1 KB total. This field is exposed to all stage participants and should not be used for personally identifying, confidential, or sensitive information."];
      userId: ParticipantTokenUserId.t option
        [@ocaml.doc
          "Customer-assigned name to help identify the token; this can be used to link a participant to a user in the customer\226\128\153s own systems. This can be any UTF-8 encoded text. This field is exposed to all stage participants and should not be used for personally identifying, confidential, or sensitive information."];
      expirationTime: ParticipantTokenExpirationTime.t option
        [@ocaml.doc
          "ISO 8601 timestamp (returned as a string) for when this token expires."]}
    let make ?capabilities =
      fun ?attributes ->
        fun ?userId ->
          fun ?expirationTime ->
            fun () -> { capabilities; attributes; userId; expirationTime }
    let to_value x =
      structure_to_value
        [("capabilities",
           (Option.map x.capabilities
              ~f:ParticipantTokenCapabilities.to_value));
        ("attributes",
          (Option.map x.attributes ~f:ParticipantTokenAttributes.to_value));
        ("userId", (Option.map x.userId ~f:ParticipantTokenUserId.to_value));
        ("expirationTime",
          (Option.map x.expirationTime
             ~f:ParticipantTokenExpirationTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let expirationTime =
        (Option.map ~f:ParticipantTokenExpirationTime.of_xml)
          (Xml.child xml_arg0 "expirationTime") in
      let userId =
        (Option.map ~f:ParticipantTokenUserId.of_xml)
          (Xml.child xml_arg0 "userId") in
      let attributes =
        (Option.map ~f:ParticipantTokenAttributes.of_xml)
          (Xml.child xml_arg0 "attributes") in
      let capabilities =
        (Option.map ~f:ParticipantTokenCapabilities.of_xml)
          (Xml.child xml_arg0 "capabilities") in
      make ?expirationTime ?userId ?attributes ?capabilities ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let expirationTime =
        field_map json__ "expirationTime"
          ParticipantTokenExpirationTime.of_json in
      let userId = field_map json__ "userId" ParticipantTokenUserId.of_json in
      let attributes =
        field_map json__ "attributes" ParticipantTokenAttributes.of_json in
      let capabilities =
        field_map json__ "capabilities" ParticipantTokenCapabilities.of_json in
      make ?expirationTime ?userId ?attributes ?capabilities ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Object specifying an exchanged participant token in a stage, created when an original participant token is updated. Important: Treat tokens as opaque; i.e., do not build functionality based on token contents. The format of tokens could change in the future."]
module Replica =
  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 IngestConfigurationName =
  struct
    type nonrec t = string
    let context_ = "IngestConfigurationName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (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:"IngestConfigurationName" j
    let to_json = simple_to_json to_value
  end
module IngestConfigurationStageArn =
  struct
    type nonrec t = string
    let context_ = "IngestConfigurationStageArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^$|^arn:aws:ivs:[a-z0-9-]+:[0-9]+:stage/[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:"IngestConfigurationStageArn" j
    let to_json = simple_to_json to_value
  end
module IngestConfigurationState =
  struct
    type nonrec t =
      | ACTIVE 
      | INACTIVE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ACTIVE -> "ACTIVE"
      | INACTIVE -> "INACTIVE"
      | Non_static_id s -> s
    let of_string =
      function
      | "ACTIVE" -> ACTIVE
      | "INACTIVE" -> INACTIVE
      | 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 IngestConfigurationState" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"IngestConfigurationState" j)
    let to_json = simple_to_json to_value
  end
module IngestProtocol =
  struct
    type nonrec t =
      | RTMP 
      | RTMPS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | RTMP -> "RTMP" | RTMPS -> "RTMPS" | Non_static_id s -> s
    let of_string =
      function | "RTMP" -> RTMP | "RTMPS" -> RTMPS | 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 IngestProtocol" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"IngestProtocol" j)
    let to_json = simple_to_json to_value
  end
module EncoderConfigurationName =
  struct
    type nonrec t = string
    let context_ = "EncoderConfigurationName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (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:"EncoderConfigurationName" j
    let to_json = simple_to_json to_value
  end
module CompositionArn =
  struct
    type nonrec t = string
    let context_ = "CompositionArn"
    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:"arn:aws:ivs:[a-z0-9-]+:[0-9]+:composition/[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:"CompositionArn" j
    let to_json = simple_to_json to_value
  end
module CompositionState =
  struct
    type nonrec t =
      | STARTING 
      | ACTIVE 
      | STOPPING 
      | FAILED 
      | STOPPED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | STARTING -> "STARTING"
      | ACTIVE -> "ACTIVE"
      | STOPPING -> "STOPPING"
      | FAILED -> "FAILED"
      | STOPPED -> "STOPPED"
      | Non_static_id s -> s
    let of_string =
      function
      | "STARTING" -> STARTING
      | "ACTIVE" -> ACTIVE
      | "STOPPING" -> STOPPING
      | "FAILED" -> FAILED
      | "STOPPED" -> STOPPED
      | 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 CompositionState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"CompositionState" j)
    let to_json = simple_to_json to_value
  end
module DestinationSummaryList =
  struct
    type nonrec t = DestinationSummary.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:2) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:DestinationSummary.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:DestinationSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"DestinationSummaryList"
        ~of_json:DestinationSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module Bitrate =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:8500000) >>=
             (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 Bitrate" 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 Framerate =
  struct
    type nonrec t = float
    let make i =
      let open Result in
        ok_or_failwith
          ((check_float_min i ~min:60.) >>=
             (fun () -> check_float_min i ~min:1.));
        i
    let of_string = Float.of_string
    let to_value x = `Float x
    let to_query v = to_query to_value v
    let to_header x = Stdlib.Float.to_string x
    let of_xml xml_arg0 =
      Float.of_string (string_of_xml ~kind:"a float" xml_arg0)
    let of_json j = float_of_json ~kind:"a float" j
    let to_json = simple_to_json to_value
  end
module Height =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:1920) >>= (fun () -> check_int_min i ~min:2));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string (string_of_xml ~kind:"an integer for Height" 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 Width =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:1920) >>= (fun () -> check_int_min i ~min:2));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string (string_of_xml ~kind:"an integer for Width" 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 ParticipantTokenDurationMinutes =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:20160) >>=
             (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 ParticipantTokenDurationMinutes"
           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 ParticipantTokenId =
  struct
    type nonrec t = string
    let context_ = "ParticipantTokenId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (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:"ParticipantTokenId" j
    let to_json = simple_to_json to_value
  end
module ParticipantTokenString =
  struct
    type nonrec t = string
    let context_ = "ParticipantTokenString"
    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:"ParticipantTokenString" 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 AutoParticipantRecordingConfiguration =
  struct
    type nonrec t =
      {
      storageConfigurationArn:
        AutoParticipantRecordingStorageConfigurationArn.t
        [@ocaml.doc
          "ARN of the StorageConfiguration resource to use for individual participant recording. Default: \"\" (empty string, no storage configuration is specified). Individual participant recording cannot be started unless a storage configuration is specified, when a Stage is created or updated. To disable individual participant recording, set this to \"\"; other fields in this object will get reset to their defaults when sending \"\"."];
      mediaTypes: ParticipantRecordingMediaTypeList.t option
        [@ocaml.doc "Types of media to be recorded. Default: AUDIO_VIDEO."];
      thumbnailConfiguration: ParticipantThumbnailConfiguration.t option
        [@ocaml.doc
          "A complex type that allows you to enable/disable the recording of thumbnails for individual participant recording and modify the interval at which thumbnails are generated for the live session."];
      recordingReconnectWindowSeconds:
        ParticipantRecordingReconnectWindowSeconds.t option
        [@ocaml.doc
          "If a stage publisher disconnects and then reconnects within the specified interval, the multiple recordings will be considered a single recording and merged together. The default value is 0, which disables merging."];
      hlsConfiguration: ParticipantRecordingHlsConfiguration.t option
        [@ocaml.doc
          "HLS configuration object for individual participant recording."];
      recordParticipantReplicas: RecordParticipantReplicas.t option
        [@ocaml.doc
          "Optional field to disable replica participant recording. If this is set to false when a participant is a replica, replica participants are not recorded. Default: true."]}
    let context_ = "AutoParticipantRecordingConfiguration"
    let make ?mediaTypes =
      fun ?thumbnailConfiguration ->
        fun ?recordingReconnectWindowSeconds ->
          fun ?hlsConfiguration ->
            fun ?recordParticipantReplicas ->
              fun ~storageConfigurationArn ->
                fun () ->
                  {
                    mediaTypes;
                    thumbnailConfiguration;
                    recordingReconnectWindowSeconds;
                    hlsConfiguration;
                    recordParticipantReplicas;
                    storageConfigurationArn
                  }
    let to_value x =
      structure_to_value
        [("storageConfigurationArn",
           (Some
              (AutoParticipantRecordingStorageConfigurationArn.to_value
                 x.storageConfigurationArn)));
        ("mediaTypes",
          (Option.map x.mediaTypes
             ~f:ParticipantRecordingMediaTypeList.to_value));
        ("thumbnailConfiguration",
          (Option.map x.thumbnailConfiguration
             ~f:ParticipantThumbnailConfiguration.to_value));
        ("recordingReconnectWindowSeconds",
          (Option.map x.recordingReconnectWindowSeconds
             ~f:ParticipantRecordingReconnectWindowSeconds.to_value));
        ("hlsConfiguration",
          (Option.map x.hlsConfiguration
             ~f:ParticipantRecordingHlsConfiguration.to_value));
        ("recordParticipantReplicas",
          (Option.map x.recordParticipantReplicas
             ~f:RecordParticipantReplicas.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let recordParticipantReplicas =
        (Option.map ~f:RecordParticipantReplicas.of_xml)
          (Xml.child xml_arg0 "recordParticipantReplicas") in
      let hlsConfiguration =
        (Option.map ~f:ParticipantRecordingHlsConfiguration.of_xml)
          (Xml.child xml_arg0 "hlsConfiguration") in
      let recordingReconnectWindowSeconds =
        (Option.map ~f:ParticipantRecordingReconnectWindowSeconds.of_xml)
          (Xml.child xml_arg0 "recordingReconnectWindowSeconds") in
      let thumbnailConfiguration =
        (Option.map ~f:ParticipantThumbnailConfiguration.of_xml)
          (Xml.child xml_arg0 "thumbnailConfiguration") in
      let mediaTypes =
        (Option.map ~f:ParticipantRecordingMediaTypeList.of_xml)
          (Xml.child xml_arg0 "mediaTypes") in
      let storageConfigurationArn =
        AutoParticipantRecordingStorageConfigurationArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "storageConfigurationArn") in
      make ?recordParticipantReplicas ?hlsConfiguration
        ?recordingReconnectWindowSeconds ?thumbnailConfiguration ?mediaTypes
        ~storageConfigurationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let recordParticipantReplicas =
        field_map json__ "recordParticipantReplicas"
          RecordParticipantReplicas.of_json in
      let hlsConfiguration =
        field_map json__ "hlsConfiguration"
          ParticipantRecordingHlsConfiguration.of_json in
      let recordingReconnectWindowSeconds =
        field_map json__ "recordingReconnectWindowSeconds"
          ParticipantRecordingReconnectWindowSeconds.of_json in
      let thumbnailConfiguration =
        field_map json__ "thumbnailConfiguration"
          ParticipantThumbnailConfiguration.of_json in
      let mediaTypes =
        field_map json__ "mediaTypes"
          ParticipantRecordingMediaTypeList.of_json in
      let storageConfigurationArn =
        field_map_exn json__ "storageConfigurationArn"
          AutoParticipantRecordingStorageConfigurationArn.of_json in
      make ?recordParticipantReplicas ?hlsConfiguration
        ?recordingReconnectWindowSeconds ?thumbnailConfiguration ?mediaTypes
        ~storageConfigurationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Object specifying a configuration for individual participant recording."]
module StageEndpoints =
  struct
    type nonrec t =
      {
      events: StageEndpoint.t option [@ocaml.doc "Events endpoint."];
      whip: StageEndpoint.t option
        [@ocaml.doc
          "The endpoint to be used for IVS real-time streaming using the WHIP protocol."];
      rtmp: StageEndpoint.t option
        [@ocaml.doc
          "The endpoint to be used for IVS real-time streaming using the RTMP protocol."];
      rtmps: StageEndpoint.t option
        [@ocaml.doc
          "The endpoint to be used for IVS real-time streaming using the RTMPS protocol."]}
    let make ?events =
      fun ?whip ->
        fun ?rtmp -> fun ?rtmps -> fun () -> { events; whip; rtmp; rtmps }
    let to_value x =
      structure_to_value
        [("events", (Option.map x.events ~f:StageEndpoint.to_value));
        ("whip", (Option.map x.whip ~f:StageEndpoint.to_value));
        ("rtmp", (Option.map x.rtmp ~f:StageEndpoint.to_value));
        ("rtmps", (Option.map x.rtmps ~f:StageEndpoint.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let rtmps =
        (Option.map ~f:StageEndpoint.of_xml) (Xml.child xml_arg0 "rtmps") in
      let rtmp =
        (Option.map ~f:StageEndpoint.of_xml) (Xml.child xml_arg0 "rtmp") in
      let whip =
        (Option.map ~f:StageEndpoint.of_xml) (Xml.child xml_arg0 "whip") in
      let events =
        (Option.map ~f:StageEndpoint.of_xml) (Xml.child xml_arg0 "events") in
      make ?rtmps ?rtmp ?whip ?events ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let rtmps = field_map json__ "rtmps" StageEndpoint.of_json in
      let rtmp = field_map json__ "rtmp" StageEndpoint.of_json in
      let whip = field_map json__ "whip" StageEndpoint.of_json in
      let events = field_map json__ "events" StageEndpoint.of_json in
      make ?rtmps ?rtmp ?whip ?events ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Summary information about various endpoints for a stage. We recommend that you cache these values at stage creation; the values can be cached for up to 14 days."]
module ParticipantAttributes =
  struct
    type nonrec t = (String_.t * String_.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((String_.of_string chopped),
                              (String_.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (String_.to_value x) |>
                    (fun x -> (String_.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:String_.of_string
        ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module RedundantIngestCredentials =
  struct
    type nonrec t = RedundantIngestCredential.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:RedundantIngestCredential.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:RedundantIngestCredential.of_xml)
    let of_json j =
      list_of_json ~kind:"RedundantIngestCredentials"
        ~of_json:RedundantIngestCredential.of_json j
    let to_json v = composed_to_json to_value v
  end
module DestinationList =
  struct
    type nonrec t = Destination.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:2) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Destination.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:Destination.of_xml)
    let of_json j =
      list_of_json ~kind:"DestinationList" ~of_json:Destination.of_json j
    let to_json v = composed_to_json to_value v
  end
module LayoutConfiguration =
  struct
    type nonrec t =
      {
      grid: GridConfiguration.t option
        [@ocaml.doc
          "Configuration related to grid layout. Default: Grid layout."];
      pip: PipConfiguration.t option
        [@ocaml.doc "Configuration related to PiP layout."]}
    let make ?grid = fun ?pip -> fun () -> { grid; pip }
    let to_value x =
      structure_to_value
        [("grid", (Option.map x.grid ~f:GridConfiguration.to_value));
        ("pip", (Option.map x.pip ~f:PipConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pip =
        (Option.map ~f:PipConfiguration.of_xml) (Xml.child xml_arg0 "pip") in
      let grid =
        (Option.map ~f:GridConfiguration.of_xml) (Xml.child xml_arg0 "grid") in
      make ?pip ?grid ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pip = field_map json__ "pip" PipConfiguration.of_json in
      let grid = field_map json__ "grid" GridConfiguration.of_json in
      make ?pip ?grid ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Configuration information of supported layouts for server-side composition."]
module StorageConfigurationSummary =
  struct
    type nonrec t =
      {
      arn: StorageConfigurationArn.t option
        [@ocaml.doc "ARN of the storage configuration."];
      name: StorageConfigurationName.t option
        [@ocaml.doc "Name of the storage configuration."];
      s3: S3StorageConfiguration.t option
        [@ocaml.doc
          "An S3 destination configuration where recorded videos will be stored."];
      tags: Tags.t option
        [@ocaml.doc
          "Tags attached to the resource. Array of maps, each of the form string:string (key:value). See Best practices and strategies in Tagging AWS Resources and Tag Editor for details, including restrictions that apply to tags and \"Tag naming limits and requirements\"; Amazon IVS has no constraints on tags beyond what is documented there."]}
    let make ?arn =
      fun ?name -> fun ?s3 -> fun ?tags -> fun () -> { arn; name; s3; tags }
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:StorageConfigurationArn.to_value));
        ("name", (Option.map x.name ~f:StorageConfigurationName.to_value));
        ("s3", (Option.map x.s3 ~f:S3StorageConfiguration.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let s3 =
        (Option.map ~f:S3StorageConfiguration.of_xml)
          (Xml.child xml_arg0 "s3") in
      let name =
        (Option.map ~f:StorageConfigurationName.of_xml)
          (Xml.child xml_arg0 "name") in
      let arn =
        (Option.map ~f:StorageConfigurationArn.of_xml)
          (Xml.child xml_arg0 "arn") in
      make ?tags ?s3 ?name ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" Tags.of_json in
      let s3 = field_map json__ "s3" S3StorageConfiguration.of_json in
      let name = field_map json__ "name" StorageConfigurationName.of_json in
      let arn = field_map json__ "arn" StorageConfigurationArn.of_json in
      make ?tags ?s3 ?name ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Summary information about a storage configuration."]
module StageSummary =
  struct
    type nonrec t =
      {
      arn: StageArn.t option [@ocaml.doc "Stage ARN."];
      name: StageName.t option [@ocaml.doc "Stage name."];
      activeSessionId: StageSessionId.t option
        [@ocaml.doc "ID of the active session within the stage."];
      tags: Tags.t option
        [@ocaml.doc
          "Tags attached to the resource. Array of maps, each of the form string:string (key:value). See Best practices and strategies in Tagging AWS Resources and Tag Editor for details, including restrictions that apply to tags and \"Tag naming limits and requirements\"; Amazon IVS has no constraints on tags beyond what is documented there."]}
    let make ?arn =
      fun ?name ->
        fun ?activeSessionId ->
          fun ?tags -> fun () -> { arn; name; activeSessionId; tags }
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:StageArn.to_value));
        ("name", (Option.map x.name ~f:StageName.to_value));
        ("activeSessionId",
          (Option.map x.activeSessionId ~f:StageSessionId.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let activeSessionId =
        (Option.map ~f:StageSessionId.of_xml)
          (Xml.child xml_arg0 "activeSessionId") in
      let name = (Option.map ~f:StageName.of_xml) (Xml.child xml_arg0 "name") in
      let arn = (Option.map ~f:StageArn.of_xml) (Xml.child xml_arg0 "arn") in
      make ?tags ?activeSessionId ?name ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" Tags.of_json in
      let activeSessionId =
        field_map json__ "activeSessionId" StageSessionId.of_json in
      let name = field_map json__ "name" StageName.of_json in
      let arn = field_map json__ "arn" StageArn.of_json in
      make ?tags ?activeSessionId ?name ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Summary information about a stage."]
module StageSessionSummary =
  struct
    type nonrec t =
      {
      sessionId: StageSessionId.t option
        [@ocaml.doc "ID of the session within the stage."];
      startTime: Time.t option
        [@ocaml.doc
          "ISO 8601 timestamp (returned as a string) when this stage session began."];
      endTime: Time.t option
        [@ocaml.doc
          "ISO 8601 timestamp (returned as a string) when the stage session ended. This is null if the stage is active."]}
    let make ?sessionId =
      fun ?startTime ->
        fun ?endTime -> fun () -> { sessionId; startTime; endTime }
    let to_value x =
      structure_to_value
        [("sessionId", (Option.map x.sessionId ~f:StageSessionId.to_value));
        ("startTime", (Option.map x.startTime ~f:Time.to_value));
        ("endTime", (Option.map x.endTime ~f:Time.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "endTime") in
      let startTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "startTime") in
      let sessionId =
        (Option.map ~f:StageSessionId.of_xml)
          (Xml.child xml_arg0 "sessionId") in
      make ?endTime ?startTime ?sessionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endTime = field_map json__ "endTime" Time.of_json in
      let startTime = field_map json__ "startTime" Time.of_json in
      let sessionId = field_map json__ "sessionId" StageSessionId.of_json in
      make ?endTime ?startTime ?sessionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Summary information about a stage session."]
module PublicKeySummary =
  struct
    type nonrec t =
      {
      arn: PublicKeyArn.t option [@ocaml.doc "Public key ARN."];
      name: PublicKeyName.t option [@ocaml.doc "Public key name."];
      tags: Tags.t option
        [@ocaml.doc
          "Tags attached to the resource. Array of maps, each of the form string:string (key:value). See Best practices and strategies in Tagging AWS Resources and Tag Editor for details, including restrictions that apply to tags and \"Tag naming limits and requirements\"; Amazon IVS has no constraints on tags beyond what is documented there."]}
    let make ?arn = fun ?name -> fun ?tags -> fun () -> { arn; name; tags }
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:PublicKeyArn.to_value));
        ("name", (Option.map x.name ~f:PublicKeyName.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let name =
        (Option.map ~f:PublicKeyName.of_xml) (Xml.child xml_arg0 "name") in
      let arn =
        (Option.map ~f:PublicKeyArn.of_xml) (Xml.child xml_arg0 "arn") in
      make ?tags ?name ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" Tags.of_json in
      let name = field_map json__ "name" PublicKeyName.of_json in
      let arn = field_map json__ "arn" PublicKeyArn.of_json in
      make ?tags ?name ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Summary information about a public key."]
module ParticipantSummary =
  struct
    type nonrec t =
      {
      participantId: ParticipantId.t option
        [@ocaml.doc
          "Unique identifier for this participant, assigned by IVS."];
      userId: UserId.t option
        [@ocaml.doc
          "Customer-assigned name to help identify the token; this can be used to link a participant to a user in the customer\226\128\153s own systems. This can be any UTF-8 encoded text. This field is exposed to all stage participants and should not be used for personally identifying, confidential, or sensitive information."];
      state: ParticipantState.t option
        [@ocaml.doc
          "Whether the participant is connected to or disconnected from the stage."];
      firstJoinTime: Time.t option
        [@ocaml.doc
          "ISO 8601 timestamp (returned as a string) when the participant first joined the stage session."];
      published: Published.t option
        [@ocaml.doc
          "Whether the participant ever published to the stage session."];
      recordingState: ParticipantRecordingState.t option
        [@ocaml.doc "The participant\226\128\153s recording state."];
      replicationType: ReplicationType.t option
        [@ocaml.doc
          "Indicates if the participant has been replicated to another stage or is a replica from another stage. Default: NONE."];
      replicationState: ReplicationState.t option
        [@ocaml.doc "The participant's replication state."];
      sourceStageArn: StageArn.t option
        [@ocaml.doc
          "Source stage ARN from which this participant is replicated, if replicationType is REPLICA."];
      sourceSessionId: StageSessionId.t option
        [@ocaml.doc
          "ID of the session within the source stage, if replicationType is REPLICA."];
      redundantIngest: RedundantIngest.t option
        [@ocaml.doc
          "Indicates whether redundant ingest is enabled for the participant."];
      ingestConfigurationArn: IngestConfigurationArn.t option
        [@ocaml.doc "The participant\226\128\153s ingest configuration."]}
    let make ?participantId =
      fun ?userId ->
        fun ?state ->
          fun ?firstJoinTime ->
            fun ?published ->
              fun ?recordingState ->
                fun ?replicationType ->
                  fun ?replicationState ->
                    fun ?sourceStageArn ->
                      fun ?sourceSessionId ->
                        fun ?redundantIngest ->
                          fun ?ingestConfigurationArn ->
                            fun () ->
                              {
                                participantId;
                                userId;
                                state;
                                firstJoinTime;
                                published;
                                recordingState;
                                replicationType;
                                replicationState;
                                sourceStageArn;
                                sourceSessionId;
                                redundantIngest;
                                ingestConfigurationArn
                              }
    let to_value x =
      structure_to_value
        [("participantId",
           (Option.map x.participantId ~f:ParticipantId.to_value));
        ("userId", (Option.map x.userId ~f:UserId.to_value));
        ("state", (Option.map x.state ~f:ParticipantState.to_value));
        ("firstJoinTime", (Option.map x.firstJoinTime ~f:Time.to_value));
        ("published", (Option.map x.published ~f:Published.to_value));
        ("recordingState",
          (Option.map x.recordingState ~f:ParticipantRecordingState.to_value));
        ("replicationType",
          (Option.map x.replicationType ~f:ReplicationType.to_value));
        ("replicationState",
          (Option.map x.replicationState ~f:ReplicationState.to_value));
        ("sourceStageArn",
          (Option.map x.sourceStageArn ~f:StageArn.to_value));
        ("sourceSessionId",
          (Option.map x.sourceSessionId ~f:StageSessionId.to_value));
        ("redundantIngest",
          (Option.map x.redundantIngest ~f:RedundantIngest.to_value));
        ("ingestConfigurationArn",
          (Option.map x.ingestConfigurationArn
             ~f:IngestConfigurationArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ingestConfigurationArn =
        (Option.map ~f:IngestConfigurationArn.of_xml)
          (Xml.child xml_arg0 "ingestConfigurationArn") in
      let redundantIngest =
        (Option.map ~f:RedundantIngest.of_xml)
          (Xml.child xml_arg0 "redundantIngest") in
      let sourceSessionId =
        (Option.map ~f:StageSessionId.of_xml)
          (Xml.child xml_arg0 "sourceSessionId") in
      let sourceStageArn =
        (Option.map ~f:StageArn.of_xml) (Xml.child xml_arg0 "sourceStageArn") in
      let replicationState =
        (Option.map ~f:ReplicationState.of_xml)
          (Xml.child xml_arg0 "replicationState") in
      let replicationType =
        (Option.map ~f:ReplicationType.of_xml)
          (Xml.child xml_arg0 "replicationType") in
      let recordingState =
        (Option.map ~f:ParticipantRecordingState.of_xml)
          (Xml.child xml_arg0 "recordingState") in
      let published =
        (Option.map ~f:Published.of_xml) (Xml.child xml_arg0 "published") in
      let firstJoinTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "firstJoinTime") in
      let state =
        (Option.map ~f:ParticipantState.of_xml) (Xml.child xml_arg0 "state") in
      let userId =
        (Option.map ~f:UserId.of_xml) (Xml.child xml_arg0 "userId") in
      let participantId =
        (Option.map ~f:ParticipantId.of_xml)
          (Xml.child xml_arg0 "participantId") in
      make ?ingestConfigurationArn ?redundantIngest ?sourceSessionId
        ?sourceStageArn ?replicationState ?replicationType ?recordingState
        ?published ?firstJoinTime ?state ?userId ?participantId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ingestConfigurationArn =
        field_map json__ "ingestConfigurationArn"
          IngestConfigurationArn.of_json in
      let redundantIngest =
        field_map json__ "redundantIngest" RedundantIngest.of_json in
      let sourceSessionId =
        field_map json__ "sourceSessionId" StageSessionId.of_json in
      let sourceStageArn = field_map json__ "sourceStageArn" StageArn.of_json in
      let replicationState =
        field_map json__ "replicationState" ReplicationState.of_json in
      let replicationType =
        field_map json__ "replicationType" ReplicationType.of_json in
      let recordingState =
        field_map json__ "recordingState" ParticipantRecordingState.of_json in
      let published = field_map json__ "published" Published.of_json in
      let firstJoinTime = field_map json__ "firstJoinTime" Time.of_json in
      let state = field_map json__ "state" ParticipantState.of_json in
      let userId = field_map json__ "userId" UserId.of_json in
      let participantId =
        field_map json__ "participantId" ParticipantId.of_json in
      make ?ingestConfigurationArn ?redundantIngest ?sourceSessionId
        ?sourceStageArn ?replicationState ?replicationType ?recordingState
        ?published ?firstJoinTime ?state ?userId ?participantId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Summary object describing a participant that has joined a stage."]
module ParticipantReplica =
  struct
    type nonrec t =
      {
      sourceStageArn: StageArn.t option
        [@ocaml.doc
          "ARN of the stage from which this participant is replicated."];
      participantId: ParticipantId.t option
        [@ocaml.doc
          "Participant ID of the publisher that will be replicated. This is assigned by IVS and returned by CreateParticipantToken or the jti (JWT ID) used to create a self signed token."];
      sourceSessionId: StageSessionId.t option
        [@ocaml.doc "ID of the session within the source stage."];
      destinationStageArn: StageArn.t option
        [@ocaml.doc "ARN of the stage where the participant is replicated."];
      destinationSessionId: StageSessionId.t option
        [@ocaml.doc "ID of the session within the destination stage."];
      replicationState: ReplicationState.t option
        [@ocaml.doc "Replica\226\128\153s current replication state."]}
    let make ?sourceStageArn =
      fun ?participantId ->
        fun ?sourceSessionId ->
          fun ?destinationStageArn ->
            fun ?destinationSessionId ->
              fun ?replicationState ->
                fun () ->
                  {
                    sourceStageArn;
                    participantId;
                    sourceSessionId;
                    destinationStageArn;
                    destinationSessionId;
                    replicationState
                  }
    let to_value x =
      structure_to_value
        [("sourceStageArn",
           (Option.map x.sourceStageArn ~f:StageArn.to_value));
        ("participantId",
          (Option.map x.participantId ~f:ParticipantId.to_value));
        ("sourceSessionId",
          (Option.map x.sourceSessionId ~f:StageSessionId.to_value));
        ("destinationStageArn",
          (Option.map x.destinationStageArn ~f:StageArn.to_value));
        ("destinationSessionId",
          (Option.map x.destinationSessionId ~f:StageSessionId.to_value));
        ("replicationState",
          (Option.map x.replicationState ~f:ReplicationState.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let replicationState =
        (Option.map ~f:ReplicationState.of_xml)
          (Xml.child xml_arg0 "replicationState") in
      let destinationSessionId =
        (Option.map ~f:StageSessionId.of_xml)
          (Xml.child xml_arg0 "destinationSessionId") in
      let destinationStageArn =
        (Option.map ~f:StageArn.of_xml)
          (Xml.child xml_arg0 "destinationStageArn") in
      let sourceSessionId =
        (Option.map ~f:StageSessionId.of_xml)
          (Xml.child xml_arg0 "sourceSessionId") in
      let participantId =
        (Option.map ~f:ParticipantId.of_xml)
          (Xml.child xml_arg0 "participantId") in
      let sourceStageArn =
        (Option.map ~f:StageArn.of_xml) (Xml.child xml_arg0 "sourceStageArn") in
      make ?replicationState ?destinationSessionId ?destinationStageArn
        ?sourceSessionId ?participantId ?sourceStageArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let replicationState =
        field_map json__ "replicationState" ReplicationState.of_json in
      let destinationSessionId =
        field_map json__ "destinationSessionId" StageSessionId.of_json in
      let destinationStageArn =
        field_map json__ "destinationStageArn" StageArn.of_json in
      let sourceSessionId =
        field_map json__ "sourceSessionId" StageSessionId.of_json in
      let participantId =
        field_map json__ "participantId" ParticipantId.of_json in
      let sourceStageArn = field_map json__ "sourceStageArn" StageArn.of_json in
      make ?replicationState ?destinationSessionId ?destinationStageArn
        ?sourceSessionId ?participantId ?sourceStageArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about the replicated destination stage for a participant."]
module Event =
  struct
    type nonrec t =
      {
      name: EventName.t option [@ocaml.doc "The name of the event."];
      participantId: ParticipantId.t option
        [@ocaml.doc
          "Unique identifier for the participant who triggered the event. This is assigned by IVS."];
      eventTime: Time.t option
        [@ocaml.doc
          "ISO 8601 timestamp (returned as a string) for when the event occurred."];
      remoteParticipantId: ParticipantId.t option
        [@ocaml.doc
          "Unique identifier for the remote participant. For a subscribe event, this is the publisher. For a publish or join event, this is null. This is assigned by IVS."];
      errorCode: EventErrorCode.t option
        [@ocaml.doc
          "If the event is an error event, the error code is provided to give insight into the specific error that occurred. If the event is not an error event, this field is null. B_FRAME_PRESENT \226\128\148 The participant's stream includes B-frames. For details, see IVS RTMP Publishing. BITRATE_EXCEEDED \226\128\148 The participant exceeded the maximum supported bitrate. For details, see Service Quotas. INSUFFICIENT_CAPABILITIES \226\128\148 The participant tried to take an action that the participant\226\128\153s token is not allowed to do. For details on participant capabilities, see the capabilities field in CreateParticipantToken. INTERNAL_SERVER_EXCEPTION \226\128\148 The participant failed to publish to the stage due to an internal server error. INVALID_AUDIO_CODEC \226\128\148 The participant is using an invalid audio codec. For details, see Stream Ingest. INVALID_INPUT \226\128\148 The participant is using an invalid input stream. INVALID_PROTOCOL \226\128\148 The participant's IngestConfiguration resource is configured for RTMPS but they tried streaming with RTMP. For details, see IVS RTMP Publishing. INVALID_STREAM_KEY \226\128\148 The participant is using an invalid stream key. For details, see IVS RTMP Publishing. INVALID_VIDEO_CODEC \226\128\148 The participant is using an invalid video codec. For details, see Stream Ingest. PUBLISHER_NOT_FOUND \226\128\148 The participant tried to subscribe to a publisher that doesn\226\128\153t exist. QUOTA_EXCEEDED \226\128\148 The number of participants who want to publish/subscribe to a stage exceeds the quota. For details, see Service Quotas. RESOLUTION_EXCEEDED \226\128\148 The participant exceeded the maximum supported resolution. For details, see Service Quotas. REUSE_OF_STREAM_KEY \226\128\148 The participant tried to use a stream key that is associated with another active stage session. STREAM_DURATION_EXCEEDED \226\128\148 The participant exceeded the maximum allowed stream duration. For details, see Service Quotas."];
      destinationStageArn: StageArn.t option
        [@ocaml.doc
          "ARN of the stage where the participant is replicated. Applicable only if the event name is REPLICATION_STARTED or REPLICATION_STOPPED."];
      destinationSessionId: StageSessionId.t option
        [@ocaml.doc
          "ID of the session within the destination stage. Applicable only if the event name is REPLICATION_STARTED or REPLICATION_STOPPED."];
      replica: Replica.t option
        [@ocaml.doc
          "If true, this indicates the participantId is a replicated participant. If this is a subscribe event, then this flag refers to remoteParticipantId. Default: false."];
      previousToken: ExchangedParticipantToken.t option
        [@ocaml.doc "Source participant token for TOKEN_EXCHANGED event."];
      newToken: ExchangedParticipantToken.t option
        [@ocaml.doc
          "Participant token created during TOKEN_EXCHANGED event."]}
    let make ?name =
      fun ?participantId ->
        fun ?eventTime ->
          fun ?remoteParticipantId ->
            fun ?errorCode ->
              fun ?destinationStageArn ->
                fun ?destinationSessionId ->
                  fun ?replica ->
                    fun ?previousToken ->
                      fun ?newToken ->
                        fun () ->
                          {
                            name;
                            participantId;
                            eventTime;
                            remoteParticipantId;
                            errorCode;
                            destinationStageArn;
                            destinationSessionId;
                            replica;
                            previousToken;
                            newToken
                          }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:EventName.to_value));
        ("participantId",
          (Option.map x.participantId ~f:ParticipantId.to_value));
        ("eventTime", (Option.map x.eventTime ~f:Time.to_value));
        ("remoteParticipantId",
          (Option.map x.remoteParticipantId ~f:ParticipantId.to_value));
        ("errorCode", (Option.map x.errorCode ~f:EventErrorCode.to_value));
        ("destinationStageArn",
          (Option.map x.destinationStageArn ~f:StageArn.to_value));
        ("destinationSessionId",
          (Option.map x.destinationSessionId ~f:StageSessionId.to_value));
        ("replica", (Option.map x.replica ~f:Replica.to_value));
        ("previousToken",
          (Option.map x.previousToken ~f:ExchangedParticipantToken.to_value));
        ("newToken",
          (Option.map x.newToken ~f:ExchangedParticipantToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let newToken =
        (Option.map ~f:ExchangedParticipantToken.of_xml)
          (Xml.child xml_arg0 "newToken") in
      let previousToken =
        (Option.map ~f:ExchangedParticipantToken.of_xml)
          (Xml.child xml_arg0 "previousToken") in
      let replica =
        (Option.map ~f:Replica.of_xml) (Xml.child xml_arg0 "replica") in
      let destinationSessionId =
        (Option.map ~f:StageSessionId.of_xml)
          (Xml.child xml_arg0 "destinationSessionId") in
      let destinationStageArn =
        (Option.map ~f:StageArn.of_xml)
          (Xml.child xml_arg0 "destinationStageArn") in
      let errorCode =
        (Option.map ~f:EventErrorCode.of_xml)
          (Xml.child xml_arg0 "errorCode") in
      let remoteParticipantId =
        (Option.map ~f:ParticipantId.of_xml)
          (Xml.child xml_arg0 "remoteParticipantId") in
      let eventTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "eventTime") in
      let participantId =
        (Option.map ~f:ParticipantId.of_xml)
          (Xml.child xml_arg0 "participantId") in
      let name = (Option.map ~f:EventName.of_xml) (Xml.child xml_arg0 "name") in
      make ?newToken ?previousToken ?replica ?destinationSessionId
        ?destinationStageArn ?errorCode ?remoteParticipantId ?eventTime
        ?participantId ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let newToken =
        field_map json__ "newToken" ExchangedParticipantToken.of_json in
      let previousToken =
        field_map json__ "previousToken" ExchangedParticipantToken.of_json in
      let replica = field_map json__ "replica" Replica.of_json in
      let destinationSessionId =
        field_map json__ "destinationSessionId" StageSessionId.of_json in
      let destinationStageArn =
        field_map json__ "destinationStageArn" StageArn.of_json in
      let errorCode = field_map json__ "errorCode" EventErrorCode.of_json in
      let remoteParticipantId =
        field_map json__ "remoteParticipantId" ParticipantId.of_json in
      let eventTime = field_map json__ "eventTime" Time.of_json in
      let participantId =
        field_map json__ "participantId" ParticipantId.of_json in
      let name = field_map json__ "name" EventName.of_json in
      make ?newToken ?previousToken ?replica ?destinationSessionId
        ?destinationStageArn ?errorCode ?remoteParticipantId ?eventTime
        ?participantId ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "An occurrence during a stage session."]
module IngestConfigurationSummary =
  struct
    type nonrec t =
      {
      name: IngestConfigurationName.t option [@ocaml.doc "Ingest name."];
      arn: IngestConfigurationArn.t option
        [@ocaml.doc "Ingest configuration ARN."];
      ingestProtocol: IngestProtocol.t option
        [@ocaml.doc
          "Type of ingest protocol that the user employs for broadcasting."];
      stageArn: IngestConfigurationStageArn.t option
        [@ocaml.doc
          "ARN of the stage with which the IngestConfiguration is associated."];
      participantId: ParticipantId.t option
        [@ocaml.doc "ID of the participant within the stage."];
      state: IngestConfigurationState.t option
        [@ocaml.doc
          "State of the ingest configuration. It is ACTIVE if a publisher currently is publishing to the stage associated with the ingest configuration."];
      userId: UserId.t option
        [@ocaml.doc
          "Customer-assigned name to help identify the participant using the IngestConfiguration; this can be used to link a participant to a user in the customer\226\128\153s own systems. This can be any UTF-8 encoded text. This field is exposed to all stage participants and should not be used for personally identifying, confidential, or sensitive information."];
      redundantIngest: RedundantIngest.t option
        [@ocaml.doc
          "Indicates whether redundant ingest is enabled for the ingest configuration."]}
    let make ?name =
      fun ?arn ->
        fun ?ingestProtocol ->
          fun ?stageArn ->
            fun ?participantId ->
              fun ?state ->
                fun ?userId ->
                  fun ?redundantIngest ->
                    fun () ->
                      {
                        name;
                        arn;
                        ingestProtocol;
                        stageArn;
                        participantId;
                        state;
                        userId;
                        redundantIngest
                      }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:IngestConfigurationName.to_value));
        ("arn", (Option.map x.arn ~f:IngestConfigurationArn.to_value));
        ("ingestProtocol",
          (Option.map x.ingestProtocol ~f:IngestProtocol.to_value));
        ("stageArn",
          (Option.map x.stageArn ~f:IngestConfigurationStageArn.to_value));
        ("participantId",
          (Option.map x.participantId ~f:ParticipantId.to_value));
        ("state", (Option.map x.state ~f:IngestConfigurationState.to_value));
        ("userId", (Option.map x.userId ~f:UserId.to_value));
        ("redundantIngest",
          (Option.map x.redundantIngest ~f:RedundantIngest.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let redundantIngest =
        (Option.map ~f:RedundantIngest.of_xml)
          (Xml.child xml_arg0 "redundantIngest") in
      let userId =
        (Option.map ~f:UserId.of_xml) (Xml.child xml_arg0 "userId") in
      let state =
        (Option.map ~f:IngestConfigurationState.of_xml)
          (Xml.child xml_arg0 "state") in
      let participantId =
        (Option.map ~f:ParticipantId.of_xml)
          (Xml.child xml_arg0 "participantId") in
      let stageArn =
        (Option.map ~f:IngestConfigurationStageArn.of_xml)
          (Xml.child xml_arg0 "stageArn") in
      let ingestProtocol =
        (Option.map ~f:IngestProtocol.of_xml)
          (Xml.child xml_arg0 "ingestProtocol") in
      let arn =
        (Option.map ~f:IngestConfigurationArn.of_xml)
          (Xml.child xml_arg0 "arn") in
      let name =
        (Option.map ~f:IngestConfigurationName.of_xml)
          (Xml.child xml_arg0 "name") in
      make ?redundantIngest ?userId ?state ?participantId ?stageArn
        ?ingestProtocol ?arn ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let redundantIngest =
        field_map json__ "redundantIngest" RedundantIngest.of_json in
      let userId = field_map json__ "userId" UserId.of_json in
      let state = field_map json__ "state" IngestConfigurationState.of_json in
      let participantId =
        field_map json__ "participantId" ParticipantId.of_json in
      let stageArn =
        field_map json__ "stageArn" IngestConfigurationStageArn.of_json in
      let ingestProtocol =
        field_map json__ "ingestProtocol" IngestProtocol.of_json in
      let arn = field_map json__ "arn" IngestConfigurationArn.of_json in
      let name = field_map json__ "name" IngestConfigurationName.of_json in
      make ?redundantIngest ?userId ?state ?participantId ?stageArn
        ?ingestProtocol ?arn ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Summary information about an IngestConfiguration."]
module EncoderConfigurationSummary =
  struct
    type nonrec t =
      {
      arn: EncoderConfigurationArn.t option
        [@ocaml.doc "ARN of the EncoderConfiguration resource."];
      name: EncoderConfigurationName.t option
        [@ocaml.doc "Optional name to identify the resource."];
      tags: Tags.t option
        [@ocaml.doc
          "Tags attached to the resource. Array of maps, each of the form string:string (key:value). See Best practices and strategies in Tagging AWS Resources and Tag Editor for details, including restrictions that apply to tags and \"Tag naming limits and requirements\"; Amazon IVS has no constraints on tags beyond what is documented there."]}
    let make ?arn = fun ?name -> fun ?tags -> fun () -> { arn; name; tags }
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:EncoderConfigurationArn.to_value));
        ("name", (Option.map x.name ~f:EncoderConfigurationName.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let name =
        (Option.map ~f:EncoderConfigurationName.of_xml)
          (Xml.child xml_arg0 "name") in
      let arn =
        (Option.map ~f:EncoderConfigurationArn.of_xml)
          (Xml.child xml_arg0 "arn") in
      make ?tags ?name ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" Tags.of_json in
      let name = field_map json__ "name" EncoderConfigurationName.of_json in
      let arn = field_map json__ "arn" EncoderConfigurationArn.of_json in
      make ?tags ?name ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Summary information about an EncoderConfiguration."]
module CompositionSummary =
  struct
    type nonrec t =
      {
      arn: CompositionArn.t option
        [@ocaml.doc "ARN of the Composition resource."];
      stageArn: StageArn.t option [@ocaml.doc "ARN of the attached stage."];
      destinations: DestinationSummaryList.t option
        [@ocaml.doc "Array of Destination objects."];
      state: CompositionState.t option
        [@ocaml.doc "State of the Composition resource."];
      tags: Tags.t option
        [@ocaml.doc
          "Tags attached to the resource. Array of maps, each of the form string:string (key:value). See Best practices and strategies in Tagging AWS Resources and Tag Editor for details, including restrictions that apply to tags and \"Tag naming limits and requirements\"; Amazon IVS has no constraints on tags beyond what is documented there."];
      startTime: Time.t option
        [@ocaml.doc
          "UTC time of the Composition start. This is an ISO 8601 timestamp; note that this is returned as a string."];
      endTime: Time.t option
        [@ocaml.doc
          "UTC time of the Composition end. This is an ISO 8601 timestamp; note that this is returned as a string."]}
    let make ?arn =
      fun ?stageArn ->
        fun ?destinations ->
          fun ?state ->
            fun ?tags ->
              fun ?startTime ->
                fun ?endTime ->
                  fun () ->
                    {
                      arn;
                      stageArn;
                      destinations;
                      state;
                      tags;
                      startTime;
                      endTime
                    }
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:CompositionArn.to_value));
        ("stageArn", (Option.map x.stageArn ~f:StageArn.to_value));
        ("destinations",
          (Option.map x.destinations ~f:DestinationSummaryList.to_value));
        ("state", (Option.map x.state ~f:CompositionState.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value));
        ("startTime", (Option.map x.startTime ~f:Time.to_value));
        ("endTime", (Option.map x.endTime ~f:Time.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "endTime") in
      let startTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "startTime") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let state =
        (Option.map ~f:CompositionState.of_xml) (Xml.child xml_arg0 "state") in
      let destinations =
        (Option.map ~f:DestinationSummaryList.of_xml)
          (Xml.child xml_arg0 "destinations") in
      let stageArn =
        (Option.map ~f:StageArn.of_xml) (Xml.child xml_arg0 "stageArn") in
      let arn =
        (Option.map ~f:CompositionArn.of_xml) (Xml.child xml_arg0 "arn") in
      make ?endTime ?startTime ?tags ?state ?destinations ?stageArn ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endTime = field_map json__ "endTime" Time.of_json in
      let startTime = field_map json__ "startTime" Time.of_json in
      let tags = field_map json__ "tags" Tags.of_json in
      let state = field_map json__ "state" CompositionState.of_json in
      let destinations =
        field_map json__ "destinations" DestinationSummaryList.of_json in
      let stageArn = field_map json__ "stageArn" StageArn.of_json in
      let arn = field_map json__ "arn" CompositionArn.of_json in
      make ?endTime ?startTime ?tags ?state ?destinations ?stageArn ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Summary information about a Composition."]
module PublicKeyFingerprint =
  struct
    type nonrec t = string
    let context_ = "PublicKeyFingerprint"
    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:"PublicKeyFingerprint" j
    let to_json = simple_to_json to_value
  end
module PublicKeyMaterial =
  struct
    type nonrec t = string
    let context_ = "PublicKeyMaterial"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:".*-----BEGIN PUBLIC KEY-----\\r?\\n([a-zA-Z0-9+/=\\r\\n]+)\\r?\\n-----END PUBLIC KEY-----(\\r?\\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:"PublicKeyMaterial" j
    let to_json = simple_to_json to_value
  end
module ParticipantClientAttribute =
  struct
    type nonrec t = string
    let context_ = "ParticipantClientAttribute"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () -> check_pattern i ~pattern:"[a-zA-Z0-9-_.,:;\\s]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ParticipantClientAttribute" j
    let to_json = simple_to_json to_value
  end
module ParticipantProtocol =
  struct
    type nonrec t =
      | UNKNOWN 
      | WHIP 
      | RTMP 
      | RTMPS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | UNKNOWN -> "UNKNOWN"
      | WHIP -> "WHIP"
      | RTMP -> "RTMP"
      | RTMPS -> "RTMPS"
      | Non_static_id s -> s
    let of_string =
      function
      | "UNKNOWN" -> UNKNOWN
      | "WHIP" -> WHIP
      | "RTMP" -> RTMP
      | "RTMPS" -> RTMPS
      | 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 ParticipantProtocol" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ParticipantProtocol" j)
    let to_json = simple_to_json to_value
  end
module ParticipantRecordingS3BucketName =
  struct
    type nonrec t = string
    let context_ = "ParticipantRecordingS3BucketName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:63) >>=
                  (fun () -> check_pattern i ~pattern:"[a-z0-9-.]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ParticipantRecordingS3BucketName" j
    let to_json = simple_to_json to_value
  end
module ParticipantRecordingS3Prefix =
  struct
    type nonrec t = string
    let context_ = "ParticipantRecordingS3Prefix"
    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:"[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:"ParticipantRecordingS3Prefix" j
    let to_json = simple_to_json to_value
  end
module Video =
  struct
    type nonrec t =
      {
      width: Width.t option
        [@ocaml.doc
          "Video-resolution width. This must be an even number. Note that the maximum value is determined by width times height, such that the maximum total pixels is 2073600 (1920x1080 or 1080x1920). Default: 1280."];
      height: Height.t option
        [@ocaml.doc
          "Video-resolution height. This must be an even number. Note that the maximum value is determined by width times height, such that the maximum total pixels is 2073600 (1920x1080 or 1080x1920). Default: 720."];
      framerate: Framerate.t option
        [@ocaml.doc "Video frame rate, in fps. Default: 30."];
      bitrate: Bitrate.t option
        [@ocaml.doc
          "Bitrate for generated output, in bps. Default: 2500000."]}
    let make ?width =
      fun ?height ->
        fun ?framerate ->
          fun ?bitrate -> fun () -> { width; height; framerate; bitrate }
    let to_value x =
      structure_to_value
        [("width", (Option.map x.width ~f:Width.to_value));
        ("height", (Option.map x.height ~f:Height.to_value));
        ("framerate", (Option.map x.framerate ~f:Framerate.to_value));
        ("bitrate", (Option.map x.bitrate ~f:Bitrate.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let bitrate =
        (Option.map ~f:Bitrate.of_xml) (Xml.child xml_arg0 "bitrate") in
      let framerate =
        (Option.map ~f:Framerate.of_xml) (Xml.child xml_arg0 "framerate") in
      let height =
        (Option.map ~f:Height.of_xml) (Xml.child xml_arg0 "height") in
      let width = (Option.map ~f:Width.of_xml) (Xml.child xml_arg0 "width") in
      make ?bitrate ?framerate ?height ?width ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let bitrate = field_map json__ "bitrate" Bitrate.of_json in
      let framerate = field_map json__ "framerate" Framerate.of_json in
      let height = field_map json__ "height" Height.of_json in
      let width = field_map json__ "width" Width.of_json in
      make ?bitrate ?framerate ?height ?width ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Settings for video."]
module ParticipantToken =
  struct
    type nonrec t =
      {
      participantId: ParticipantTokenId.t option
        [@ocaml.doc
          "Unique identifier for this participant token, assigned by IVS."];
      token: ParticipantTokenString.t option
        [@ocaml.doc "The issued client token, encrypted."];
      userId: ParticipantTokenUserId.t option
        [@ocaml.doc
          "Customer-assigned name to help identify the token; this can be used to link a participant to a user in the customer\226\128\153s own systems. This can be any UTF-8 encoded text. This field is exposed to all stage participants and should not be used for personally identifying, confidential, or sensitive information."];
      attributes: ParticipantTokenAttributes.t option
        [@ocaml.doc
          "Application-provided attributes to encode into the token and attach to a stage. Map keys and values can contain UTF-8 encoded text. The maximum length of this field is 1 KB total. This field is exposed to all stage participants and should not be used for personally identifying, confidential, or sensitive information."];
      duration: ParticipantTokenDurationMinutes.t option
        [@ocaml.doc
          "Duration (in minutes), after which the participant token expires. Default: 720 (12 hours)."];
      capabilities: ParticipantTokenCapabilities.t option
        [@ocaml.doc
          "Set of capabilities that the user is allowed to perform in the stage."];
      expirationTime: ParticipantTokenExpirationTime.t option
        [@ocaml.doc
          "ISO 8601 timestamp (returned as a string) for when this token expires."]}
    let make ?participantId =
      fun ?token ->
        fun ?userId ->
          fun ?attributes ->
            fun ?duration ->
              fun ?capabilities ->
                fun ?expirationTime ->
                  fun () ->
                    {
                      participantId;
                      token;
                      userId;
                      attributes;
                      duration;
                      capabilities;
                      expirationTime
                    }
    let to_value x =
      structure_to_value
        [("participantId",
           (Option.map x.participantId ~f:ParticipantTokenId.to_value));
        ("token", (Option.map x.token ~f:ParticipantTokenString.to_value));
        ("userId", (Option.map x.userId ~f:ParticipantTokenUserId.to_value));
        ("attributes",
          (Option.map x.attributes ~f:ParticipantTokenAttributes.to_value));
        ("duration",
          (Option.map x.duration ~f:ParticipantTokenDurationMinutes.to_value));
        ("capabilities",
          (Option.map x.capabilities ~f:ParticipantTokenCapabilities.to_value));
        ("expirationTime",
          (Option.map x.expirationTime
             ~f:ParticipantTokenExpirationTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let expirationTime =
        (Option.map ~f:ParticipantTokenExpirationTime.of_xml)
          (Xml.child xml_arg0 "expirationTime") in
      let capabilities =
        (Option.map ~f:ParticipantTokenCapabilities.of_xml)
          (Xml.child xml_arg0 "capabilities") in
      let duration =
        (Option.map ~f:ParticipantTokenDurationMinutes.of_xml)
          (Xml.child xml_arg0 "duration") in
      let attributes =
        (Option.map ~f:ParticipantTokenAttributes.of_xml)
          (Xml.child xml_arg0 "attributes") in
      let userId =
        (Option.map ~f:ParticipantTokenUserId.of_xml)
          (Xml.child xml_arg0 "userId") in
      let token =
        (Option.map ~f:ParticipantTokenString.of_xml)
          (Xml.child xml_arg0 "token") in
      let participantId =
        (Option.map ~f:ParticipantTokenId.of_xml)
          (Xml.child xml_arg0 "participantId") in
      make ?expirationTime ?capabilities ?duration ?attributes ?userId ?token
        ?participantId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let expirationTime =
        field_map json__ "expirationTime"
          ParticipantTokenExpirationTime.of_json in
      let capabilities =
        field_map json__ "capabilities" ParticipantTokenCapabilities.of_json in
      let duration =
        field_map json__ "duration" ParticipantTokenDurationMinutes.of_json in
      let attributes =
        field_map json__ "attributes" ParticipantTokenAttributes.of_json in
      let userId = field_map json__ "userId" ParticipantTokenUserId.of_json in
      let token = field_map json__ "token" ParticipantTokenString.of_json in
      let participantId =
        field_map json__ "participantId" ParticipantTokenId.of_json in
      make ?expirationTime ?capabilities ?duration ?attributes ?userId ?token
        ?participantId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Object specifying a participant token in a stage. Important: Treat tokens as opaque; i.e., do not build functionality based on token contents. The format of tokens could change in the future."]
module ParticipantTokenConfiguration =
  struct
    type nonrec t =
      {
      duration: ParticipantTokenDurationMinutes.t option
        [@ocaml.doc
          "Duration (in minutes), after which the corresponding participant token expires. Default: 720 (12 hours)."];
      userId: ParticipantTokenUserId.t option
        [@ocaml.doc
          "Customer-assigned name to help identify the token; this can be used to link a participant to a user in the customer\226\128\153s own systems. This can be any UTF-8 encoded text. This field is exposed to all stage participants and should not be used for personally identifying, confidential, or sensitive information."];
      attributes: ParticipantTokenAttributes.t option
        [@ocaml.doc
          "Application-provided attributes to encode into the corresponding participant token and attach to a stage. Map keys and values can contain UTF-8 encoded text. The maximum length of this field is 1 KB total. This field is exposed to all stage participants and should not be used for personally identifying, confidential, or sensitive information."];
      capabilities: ParticipantTokenCapabilities.t option
        [@ocaml.doc
          "Set of capabilities that the user is allowed to perform in the stage."]}
    let make ?duration =
      fun ?userId ->
        fun ?attributes ->
          fun ?capabilities ->
            fun () -> { duration; userId; attributes; capabilities }
    let to_value x =
      structure_to_value
        [("duration",
           (Option.map x.duration ~f:ParticipantTokenDurationMinutes.to_value));
        ("userId", (Option.map x.userId ~f:ParticipantTokenUserId.to_value));
        ("attributes",
          (Option.map x.attributes ~f:ParticipantTokenAttributes.to_value));
        ("capabilities",
          (Option.map x.capabilities ~f:ParticipantTokenCapabilities.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let capabilities =
        (Option.map ~f:ParticipantTokenCapabilities.of_xml)
          (Xml.child xml_arg0 "capabilities") in
      let attributes =
        (Option.map ~f:ParticipantTokenAttributes.of_xml)
          (Xml.child xml_arg0 "attributes") in
      let userId =
        (Option.map ~f:ParticipantTokenUserId.of_xml)
          (Xml.child xml_arg0 "userId") in
      let duration =
        (Option.map ~f:ParticipantTokenDurationMinutes.of_xml)
          (Xml.child xml_arg0 "duration") in
      make ?capabilities ?attributes ?userId ?duration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let capabilities =
        field_map json__ "capabilities" ParticipantTokenCapabilities.of_json in
      let attributes =
        field_map json__ "attributes" ParticipantTokenAttributes.of_json in
      let userId = field_map json__ "userId" ParticipantTokenUserId.of_json in
      let duration =
        field_map json__ "duration" ParticipantTokenDurationMinutes.of_json in
      make ?capabilities ?attributes ?userId ?duration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Object specifying a participant token configuration in a stage."]
module AccessDeniedException =
  struct
    type nonrec t =
      {
      accessControlAllowOrigin: String_.t option ;
      accessControlExposeHeaders: String_.t option ;
      cacheControl: String_.t option ;
      contentSecurityPolicy: String_.t option ;
      strictTransportSecurity: String_.t option ;
      xContentTypeOptions: String_.t option ;
      xFrameOptions: String_.t option ;
      xAmznErrorType: String_.t option ;
      exceptionMessage: ErrorMessage.t option
        [@ocaml.doc
          "User does not have sufficient access to perform this action."]}
    let make ?accessControlAllowOrigin =
      fun ?accessControlExposeHeaders ->
        fun ?cacheControl ->
          fun ?contentSecurityPolicy ->
            fun ?strictTransportSecurity ->
              fun ?xContentTypeOptions ->
                fun ?xFrameOptions ->
                  fun ?xAmznErrorType ->
                    fun ?exceptionMessage ->
                      fun () ->
                        {
                          accessControlAllowOrigin;
                          accessControlExposeHeaders;
                          cacheControl;
                          contentSecurityPolicy;
                          strictTransportSecurity;
                          xContentTypeOptions;
                          xFrameOptions;
                          xAmznErrorType;
                          exceptionMessage
                        }
    let to_value x =
      structure_to_value
        [("Access-Control-Allow-Origin",
           (Option.map x.accessControlAllowOrigin ~f:String_.to_value));
        ("Access-Control-Expose-Headers",
          (Option.map x.accessControlExposeHeaders ~f:String_.to_value));
        ("Cache-Control", (Option.map x.cacheControl ~f:String_.to_value));
        ("Content-Security-Policy",
          (Option.map x.contentSecurityPolicy ~f:String_.to_value));
        ("Strict-Transport-Security",
          (Option.map x.strictTransportSecurity ~f:String_.to_value));
        ("X-Content-Type-Options",
          (Option.map x.xContentTypeOptions ~f:String_.to_value));
        ("X-Frame-Options", (Option.map x.xFrameOptions ~f:String_.to_value));
        ("x-amzn-ErrorType",
          (Option.map x.xAmznErrorType ~f:String_.to_value));
        ("exceptionMessage",
          (Option.map x.exceptionMessage ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let exceptionMessage =
        (Option.map ~f:ErrorMessage.of_xml)
          (Xml.child xml_arg0 "exceptionMessage") in
      let xAmznErrorType =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "x-amzn-ErrorType") in
      let xFrameOptions =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "X-Frame-Options") in
      let xContentTypeOptions =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "X-Content-Type-Options") in
      let strictTransportSecurity =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "Strict-Transport-Security") in
      let contentSecurityPolicy =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "Content-Security-Policy") in
      let cacheControl =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Cache-Control") in
      let accessControlExposeHeaders =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "Access-Control-Expose-Headers") in
      let accessControlAllowOrigin =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "Access-Control-Allow-Origin") in
      make ?exceptionMessage ?xAmznErrorType ?xFrameOptions
        ?xContentTypeOptions ?strictTransportSecurity ?contentSecurityPolicy
        ?cacheControl ?accessControlExposeHeaders ?accessControlAllowOrigin
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let exceptionMessage =
        field_map json__ "exceptionMessage" ErrorMessage.of_json in
      let xAmznErrorType = field_map json__ "xAmznErrorType" String_.of_json in
      let xFrameOptions = field_map json__ "xFrameOptions" String_.of_json in
      let xContentTypeOptions =
        field_map json__ "xContentTypeOptions" String_.of_json in
      let strictTransportSecurity =
        field_map json__ "strictTransportSecurity" String_.of_json in
      let contentSecurityPolicy =
        field_map json__ "contentSecurityPolicy" String_.of_json in
      let cacheControl = field_map json__ "cacheControl" String_.of_json in
      let accessControlExposeHeaders =
        field_map json__ "accessControlExposeHeaders" String_.of_json in
      let accessControlAllowOrigin =
        field_map json__ "accessControlAllowOrigin" String_.of_json in
      make ?exceptionMessage ?xAmznErrorType ?xFrameOptions
        ?xContentTypeOptions ?strictTransportSecurity ?contentSecurityPolicy
        ?cacheControl ?accessControlExposeHeaders ?accessControlAllowOrigin
        ()
    let to_json v = composed_to_json to_value v
  end
module ConflictException =
  struct
    type nonrec t =
      {
      accessControlAllowOrigin: String_.t option ;
      accessControlExposeHeaders: String_.t option ;
      cacheControl: String_.t option ;
      contentSecurityPolicy: String_.t option ;
      strictTransportSecurity: String_.t option ;
      xContentTypeOptions: String_.t option ;
      xFrameOptions: String_.t option ;
      xAmznErrorType: String_.t option ;
      exceptionMessage: ErrorMessage.t option
        [@ocaml.doc
          "Updating or deleting a resource can cause an inconsistent state."]}
    let make ?accessControlAllowOrigin =
      fun ?accessControlExposeHeaders ->
        fun ?cacheControl ->
          fun ?contentSecurityPolicy ->
            fun ?strictTransportSecurity ->
              fun ?xContentTypeOptions ->
                fun ?xFrameOptions ->
                  fun ?xAmznErrorType ->
                    fun ?exceptionMessage ->
                      fun () ->
                        {
                          accessControlAllowOrigin;
                          accessControlExposeHeaders;
                          cacheControl;
                          contentSecurityPolicy;
                          strictTransportSecurity;
                          xContentTypeOptions;
                          xFrameOptions;
                          xAmznErrorType;
                          exceptionMessage
                        }
    let to_value x =
      structure_to_value
        [("Access-Control-Allow-Origin",
           (Option.map x.accessControlAllowOrigin ~f:String_.to_value));
        ("Access-Control-Expose-Headers",
          (Option.map x.accessControlExposeHeaders ~f:String_.to_value));
        ("Cache-Control", (Option.map x.cacheControl ~f:String_.to_value));
        ("Content-Security-Policy",
          (Option.map x.contentSecurityPolicy ~f:String_.to_value));
        ("Strict-Transport-Security",
          (Option.map x.strictTransportSecurity ~f:String_.to_value));
        ("X-Content-Type-Options",
          (Option.map x.xContentTypeOptions ~f:String_.to_value));
        ("X-Frame-Options", (Option.map x.xFrameOptions ~f:String_.to_value));
        ("x-amzn-ErrorType",
          (Option.map x.xAmznErrorType ~f:String_.to_value));
        ("exceptionMessage",
          (Option.map x.exceptionMessage ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let exceptionMessage =
        (Option.map ~f:ErrorMessage.of_xml)
          (Xml.child xml_arg0 "exceptionMessage") in
      let xAmznErrorType =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "x-amzn-ErrorType") in
      let xFrameOptions =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "X-Frame-Options") in
      let xContentTypeOptions =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "X-Content-Type-Options") in
      let strictTransportSecurity =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "Strict-Transport-Security") in
      let contentSecurityPolicy =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "Content-Security-Policy") in
      let cacheControl =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Cache-Control") in
      let accessControlExposeHeaders =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "Access-Control-Expose-Headers") in
      let accessControlAllowOrigin =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "Access-Control-Allow-Origin") in
      make ?exceptionMessage ?xAmznErrorType ?xFrameOptions
        ?xContentTypeOptions ?strictTransportSecurity ?contentSecurityPolicy
        ?cacheControl ?accessControlExposeHeaders ?accessControlAllowOrigin
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let exceptionMessage =
        field_map json__ "exceptionMessage" ErrorMessage.of_json in
      let xAmznErrorType = field_map json__ "xAmznErrorType" String_.of_json in
      let xFrameOptions = field_map json__ "xFrameOptions" String_.of_json in
      let xContentTypeOptions =
        field_map json__ "xContentTypeOptions" String_.of_json in
      let strictTransportSecurity =
        field_map json__ "strictTransportSecurity" String_.of_json in
      let contentSecurityPolicy =
        field_map json__ "contentSecurityPolicy" String_.of_json in
      let cacheControl = field_map json__ "cacheControl" String_.of_json in
      let accessControlExposeHeaders =
        field_map json__ "accessControlExposeHeaders" String_.of_json in
      let accessControlAllowOrigin =
        field_map json__ "accessControlAllowOrigin" String_.of_json in
      make ?exceptionMessage ?xAmznErrorType ?xFrameOptions
        ?xContentTypeOptions ?strictTransportSecurity ?contentSecurityPolicy
        ?cacheControl ?accessControlExposeHeaders ?accessControlAllowOrigin
        ()
    let to_json v = composed_to_json to_value v
  end
module PendingVerification =
  struct
    type nonrec t =
      {
      accessControlAllowOrigin: String_.t option ;
      accessControlExposeHeaders: String_.t option ;
      cacheControl: String_.t option ;
      contentSecurityPolicy: String_.t option ;
      strictTransportSecurity: String_.t option ;
      xContentTypeOptions: String_.t option ;
      xFrameOptions: String_.t option ;
      xAmznErrorType: String_.t option ;
      exceptionMessage: ErrorMessage.t option
        [@ocaml.doc "Your account is pending verification."]}
    let make ?accessControlAllowOrigin =
      fun ?accessControlExposeHeaders ->
        fun ?cacheControl ->
          fun ?contentSecurityPolicy ->
            fun ?strictTransportSecurity ->
              fun ?xContentTypeOptions ->
                fun ?xFrameOptions ->
                  fun ?xAmznErrorType ->
                    fun ?exceptionMessage ->
                      fun () ->
                        {
                          accessControlAllowOrigin;
                          accessControlExposeHeaders;
                          cacheControl;
                          contentSecurityPolicy;
                          strictTransportSecurity;
                          xContentTypeOptions;
                          xFrameOptions;
                          xAmznErrorType;
                          exceptionMessage
                        }
    let to_value x =
      structure_to_value
        [("Access-Control-Allow-Origin",
           (Option.map x.accessControlAllowOrigin ~f:String_.to_value));
        ("Access-Control-Expose-Headers",
          (Option.map x.accessControlExposeHeaders ~f:String_.to_value));
        ("Cache-Control", (Option.map x.cacheControl ~f:String_.to_value));
        ("Content-Security-Policy",
          (Option.map x.contentSecurityPolicy ~f:String_.to_value));
        ("Strict-Transport-Security",
          (Option.map x.strictTransportSecurity ~f:String_.to_value));
        ("X-Content-Type-Options",
          (Option.map x.xContentTypeOptions ~f:String_.to_value));
        ("X-Frame-Options", (Option.map x.xFrameOptions ~f:String_.to_value));
        ("x-amzn-ErrorType",
          (Option.map x.xAmznErrorType ~f:String_.to_value));
        ("exceptionMessage",
          (Option.map x.exceptionMessage ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let exceptionMessage =
        (Option.map ~f:ErrorMessage.of_xml)
          (Xml.child xml_arg0 "exceptionMessage") in
      let xAmznErrorType =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "x-amzn-ErrorType") in
      let xFrameOptions =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "X-Frame-Options") in
      let xContentTypeOptions =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "X-Content-Type-Options") in
      let strictTransportSecurity =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "Strict-Transport-Security") in
      let contentSecurityPolicy =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "Content-Security-Policy") in
      let cacheControl =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Cache-Control") in
      let accessControlExposeHeaders =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "Access-Control-Expose-Headers") in
      let accessControlAllowOrigin =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "Access-Control-Allow-Origin") in
      make ?exceptionMessage ?xAmznErrorType ?xFrameOptions
        ?xContentTypeOptions ?strictTransportSecurity ?contentSecurityPolicy
        ?cacheControl ?accessControlExposeHeaders ?accessControlAllowOrigin
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let exceptionMessage =
        field_map json__ "exceptionMessage" ErrorMessage.of_json in
      let xAmznErrorType = field_map json__ "xAmznErrorType" String_.of_json in
      let xFrameOptions = field_map json__ "xFrameOptions" String_.of_json in
      let xContentTypeOptions =
        field_map json__ "xContentTypeOptions" String_.of_json in
      let strictTransportSecurity =
        field_map json__ "strictTransportSecurity" String_.of_json in
      let contentSecurityPolicy =
        field_map json__ "contentSecurityPolicy" String_.of_json in
      let cacheControl = field_map json__ "cacheControl" String_.of_json in
      let accessControlExposeHeaders =
        field_map json__ "accessControlExposeHeaders" String_.of_json in
      let accessControlAllowOrigin =
        field_map json__ "accessControlAllowOrigin" String_.of_json in
      make ?exceptionMessage ?xAmznErrorType ?xFrameOptions
        ?xContentTypeOptions ?strictTransportSecurity ?contentSecurityPolicy
        ?cacheControl ?accessControlExposeHeaders ?accessControlAllowOrigin
        ()
    let to_json v = composed_to_json to_value v
  end
module ResourceNotFoundException =
  struct
    type nonrec t =
      {
      accessControlAllowOrigin: String_.t option ;
      accessControlExposeHeaders: String_.t option ;
      cacheControl: String_.t option ;
      contentSecurityPolicy: String_.t option ;
      strictTransportSecurity: String_.t option ;
      xContentTypeOptions: String_.t option ;
      xFrameOptions: String_.t option ;
      xAmznErrorType: String_.t option ;
      exceptionMessage: ErrorMessage.t option
        [@ocaml.doc "Request references a resource which does not exist."]}
    let make ?accessControlAllowOrigin =
      fun ?accessControlExposeHeaders ->
        fun ?cacheControl ->
          fun ?contentSecurityPolicy ->
            fun ?strictTransportSecurity ->
              fun ?xContentTypeOptions ->
                fun ?xFrameOptions ->
                  fun ?xAmznErrorType ->
                    fun ?exceptionMessage ->
                      fun () ->
                        {
                          accessControlAllowOrigin;
                          accessControlExposeHeaders;
                          cacheControl;
                          contentSecurityPolicy;
                          strictTransportSecurity;
                          xContentTypeOptions;
                          xFrameOptions;
                          xAmznErrorType;
                          exceptionMessage
                        }
    let to_value x =
      structure_to_value
        [("Access-Control-Allow-Origin",
           (Option.map x.accessControlAllowOrigin ~f:String_.to_value));
        ("Access-Control-Expose-Headers",
          (Option.map x.accessControlExposeHeaders ~f:String_.to_value));
        ("Cache-Control", (Option.map x.cacheControl ~f:String_.to_value));
        ("Content-Security-Policy",
          (Option.map x.contentSecurityPolicy ~f:String_.to_value));
        ("Strict-Transport-Security",
          (Option.map x.strictTransportSecurity ~f:String_.to_value));
        ("X-Content-Type-Options",
          (Option.map x.xContentTypeOptions ~f:String_.to_value));
        ("X-Frame-Options", (Option.map x.xFrameOptions ~f:String_.to_value));
        ("x-amzn-ErrorType",
          (Option.map x.xAmznErrorType ~f:String_.to_value));
        ("exceptionMessage",
          (Option.map x.exceptionMessage ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let exceptionMessage =
        (Option.map ~f:ErrorMessage.of_xml)
          (Xml.child xml_arg0 "exceptionMessage") in
      let xAmznErrorType =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "x-amzn-ErrorType") in
      let xFrameOptions =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "X-Frame-Options") in
      let xContentTypeOptions =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "X-Content-Type-Options") in
      let strictTransportSecurity =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "Strict-Transport-Security") in
      let contentSecurityPolicy =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "Content-Security-Policy") in
      let cacheControl =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Cache-Control") in
      let accessControlExposeHeaders =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "Access-Control-Expose-Headers") in
      let accessControlAllowOrigin =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "Access-Control-Allow-Origin") in
      make ?exceptionMessage ?xAmznErrorType ?xFrameOptions
        ?xContentTypeOptions ?strictTransportSecurity ?contentSecurityPolicy
        ?cacheControl ?accessControlExposeHeaders ?accessControlAllowOrigin
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let exceptionMessage =
        field_map json__ "exceptionMessage" ErrorMessage.of_json in
      let xAmznErrorType = field_map json__ "xAmznErrorType" String_.of_json in
      let xFrameOptions = field_map json__ "xFrameOptions" String_.of_json in
      let xContentTypeOptions =
        field_map json__ "xContentTypeOptions" String_.of_json in
      let strictTransportSecurity =
        field_map json__ "strictTransportSecurity" String_.of_json in
      let contentSecurityPolicy =
        field_map json__ "contentSecurityPolicy" String_.of_json in
      let cacheControl = field_map json__ "cacheControl" String_.of_json in
      let accessControlExposeHeaders =
        field_map json__ "accessControlExposeHeaders" String_.of_json in
      let accessControlAllowOrigin =
        field_map json__ "accessControlAllowOrigin" String_.of_json in
      make ?exceptionMessage ?xAmznErrorType ?xFrameOptions
        ?xContentTypeOptions ?strictTransportSecurity ?contentSecurityPolicy
        ?cacheControl ?accessControlExposeHeaders ?accessControlAllowOrigin
        ()
    let to_json v = composed_to_json to_value v
  end
module ServiceQuotaExceededException =
  struct
    type nonrec t =
      {
      accessControlAllowOrigin: String_.t option ;
      accessControlExposeHeaders: String_.t option ;
      cacheControl: String_.t option ;
      contentSecurityPolicy: String_.t option ;
      strictTransportSecurity: String_.t option ;
      xContentTypeOptions: String_.t option ;
      xFrameOptions: String_.t option ;
      xAmznErrorType: String_.t option ;
      exceptionMessage: ErrorMessage.t option
        [@ocaml.doc "Request would cause a service quota to be exceeded."]}
    let make ?accessControlAllowOrigin =
      fun ?accessControlExposeHeaders ->
        fun ?cacheControl ->
          fun ?contentSecurityPolicy ->
            fun ?strictTransportSecurity ->
              fun ?xContentTypeOptions ->
                fun ?xFrameOptions ->
                  fun ?xAmznErrorType ->
                    fun ?exceptionMessage ->
                      fun () ->
                        {
                          accessControlAllowOrigin;
                          accessControlExposeHeaders;
                          cacheControl;
                          contentSecurityPolicy;
                          strictTransportSecurity;
                          xContentTypeOptions;
                          xFrameOptions;
                          xAmznErrorType;
                          exceptionMessage
                        }
    let to_value x =
      structure_to_value
        [("Access-Control-Allow-Origin",
           (Option.map x.accessControlAllowOrigin ~f:String_.to_value));
        ("Access-Control-Expose-Headers",
          (Option.map x.accessControlExposeHeaders ~f:String_.to_value));
        ("Cache-Control", (Option.map x.cacheControl ~f:String_.to_value));
        ("Content-Security-Policy",
          (Option.map x.contentSecurityPolicy ~f:String_.to_value));
        ("Strict-Transport-Security",
          (Option.map x.strictTransportSecurity ~f:String_.to_value));
        ("X-Content-Type-Options",
          (Option.map x.xContentTypeOptions ~f:String_.to_value));
        ("X-Frame-Options", (Option.map x.xFrameOptions ~f:String_.to_value));
        ("x-amzn-ErrorType",
          (Option.map x.xAmznErrorType ~f:String_.to_value));
        ("exceptionMessage",
          (Option.map x.exceptionMessage ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let exceptionMessage =
        (Option.map ~f:ErrorMessage.of_xml)
          (Xml.child xml_arg0 "exceptionMessage") in
      let xAmznErrorType =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "x-amzn-ErrorType") in
      let xFrameOptions =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "X-Frame-Options") in
      let xContentTypeOptions =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "X-Content-Type-Options") in
      let strictTransportSecurity =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "Strict-Transport-Security") in
      let contentSecurityPolicy =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "Content-Security-Policy") in
      let cacheControl =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Cache-Control") in
      let accessControlExposeHeaders =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "Access-Control-Expose-Headers") in
      let accessControlAllowOrigin =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "Access-Control-Allow-Origin") in
      make ?exceptionMessage ?xAmznErrorType ?xFrameOptions
        ?xContentTypeOptions ?strictTransportSecurity ?contentSecurityPolicy
        ?cacheControl ?accessControlExposeHeaders ?accessControlAllowOrigin
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let exceptionMessage =
        field_map json__ "exceptionMessage" ErrorMessage.of_json in
      let xAmznErrorType = field_map json__ "xAmznErrorType" String_.of_json in
      let xFrameOptions = field_map json__ "xFrameOptions" String_.of_json in
      let xContentTypeOptions =
        field_map json__ "xContentTypeOptions" String_.of_json in
      let strictTransportSecurity =
        field_map json__ "strictTransportSecurity" String_.of_json in
      let contentSecurityPolicy =
        field_map json__ "contentSecurityPolicy" String_.of_json in
      let cacheControl = field_map json__ "cacheControl" String_.of_json in
      let accessControlExposeHeaders =
        field_map json__ "accessControlExposeHeaders" String_.of_json in
      let accessControlAllowOrigin =
        field_map json__ "accessControlAllowOrigin" String_.of_json in
      make ?exceptionMessage ?xAmznErrorType ?xFrameOptions
        ?xContentTypeOptions ?strictTransportSecurity ?contentSecurityPolicy
        ?cacheControl ?accessControlExposeHeaders ?accessControlAllowOrigin
        ()
    let to_json v = composed_to_json to_value v
  end
module Stage =
  struct
    type nonrec t =
      {
      arn: StageArn.t option [@ocaml.doc "Stage ARN."];
      name: StageName.t option [@ocaml.doc "Stage name."];
      activeSessionId: StageSessionId.t option
        [@ocaml.doc "ID of the active session within the stage."];
      tags: Tags.t option
        [@ocaml.doc
          "Tags attached to the resource. Array of maps, each of the form string:string (key:value). See Best practices and strategies in Tagging AWS Resources and Tag Editor for details, including restrictions that apply to tags and \"Tag naming limits and requirements\"; Amazon IVS has no constraints on tags beyond what is documented there."];
      autoParticipantRecordingConfiguration:
        AutoParticipantRecordingConfiguration.t option
        [@ocaml.doc
          "Configuration object for individual participant recording, attached to the stage."];
      endpoints: StageEndpoints.t option
        [@ocaml.doc
          "Summary information about various endpoints for a stage."]}
    let make ?arn =
      fun ?name ->
        fun ?activeSessionId ->
          fun ?tags ->
            fun ?autoParticipantRecordingConfiguration ->
              fun ?endpoints ->
                fun () ->
                  {
                    arn;
                    name;
                    activeSessionId;
                    tags;
                    autoParticipantRecordingConfiguration;
                    endpoints
                  }
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:StageArn.to_value));
        ("name", (Option.map x.name ~f:StageName.to_value));
        ("activeSessionId",
          (Option.map x.activeSessionId ~f:StageSessionId.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value));
        ("autoParticipantRecordingConfiguration",
          (Option.map x.autoParticipantRecordingConfiguration
             ~f:AutoParticipantRecordingConfiguration.to_value));
        ("endpoints", (Option.map x.endpoints ~f:StageEndpoints.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endpoints =
        (Option.map ~f:StageEndpoints.of_xml)
          (Xml.child xml_arg0 "endpoints") in
      let autoParticipantRecordingConfiguration =
        (Option.map ~f:AutoParticipantRecordingConfiguration.of_xml)
          (Xml.child xml_arg0 "autoParticipantRecordingConfiguration") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let activeSessionId =
        (Option.map ~f:StageSessionId.of_xml)
          (Xml.child xml_arg0 "activeSessionId") in
      let name = (Option.map ~f:StageName.of_xml) (Xml.child xml_arg0 "name") in
      let arn = (Option.map ~f:StageArn.of_xml) (Xml.child xml_arg0 "arn") in
      make ?endpoints ?autoParticipantRecordingConfiguration ?tags
        ?activeSessionId ?name ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endpoints = field_map json__ "endpoints" StageEndpoints.of_json in
      let autoParticipantRecordingConfiguration =
        field_map json__ "autoParticipantRecordingConfiguration"
          AutoParticipantRecordingConfiguration.of_json in
      let tags = field_map json__ "tags" Tags.of_json in
      let activeSessionId =
        field_map json__ "activeSessionId" StageSessionId.of_json in
      let name = field_map json__ "name" StageName.of_json in
      let arn = field_map json__ "arn" StageArn.of_json in
      make ?endpoints ?autoParticipantRecordingConfiguration ?tags
        ?activeSessionId ?name ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Object specifying a stage."]
module ValidationException =
  struct
    type nonrec t =
      {
      accessControlAllowOrigin: String_.t option ;
      accessControlExposeHeaders: String_.t option ;
      cacheControl: String_.t option ;
      contentSecurityPolicy: String_.t option ;
      strictTransportSecurity: String_.t option ;
      xContentTypeOptions: String_.t option ;
      xFrameOptions: String_.t option ;
      xAmznErrorType: String_.t option ;
      exceptionMessage: ErrorMessage.t option
        [@ocaml.doc
          "The input fails to satisfy the constraints specified by an Amazon Web Services service."]}
    let make ?accessControlAllowOrigin =
      fun ?accessControlExposeHeaders ->
        fun ?cacheControl ->
          fun ?contentSecurityPolicy ->
            fun ?strictTransportSecurity ->
              fun ?xContentTypeOptions ->
                fun ?xFrameOptions ->
                  fun ?xAmznErrorType ->
                    fun ?exceptionMessage ->
                      fun () ->
                        {
                          accessControlAllowOrigin;
                          accessControlExposeHeaders;
                          cacheControl;
                          contentSecurityPolicy;
                          strictTransportSecurity;
                          xContentTypeOptions;
                          xFrameOptions;
                          xAmznErrorType;
                          exceptionMessage
                        }
    let to_value x =
      structure_to_value
        [("Access-Control-Allow-Origin",
           (Option.map x.accessControlAllowOrigin ~f:String_.to_value));
        ("Access-Control-Expose-Headers",
          (Option.map x.accessControlExposeHeaders ~f:String_.to_value));
        ("Cache-Control", (Option.map x.cacheControl ~f:String_.to_value));
        ("Content-Security-Policy",
          (Option.map x.contentSecurityPolicy ~f:String_.to_value));
        ("Strict-Transport-Security",
          (Option.map x.strictTransportSecurity ~f:String_.to_value));
        ("X-Content-Type-Options",
          (Option.map x.xContentTypeOptions ~f:String_.to_value));
        ("X-Frame-Options", (Option.map x.xFrameOptions ~f:String_.to_value));
        ("x-amzn-ErrorType",
          (Option.map x.xAmznErrorType ~f:String_.to_value));
        ("exceptionMessage",
          (Option.map x.exceptionMessage ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let exceptionMessage =
        (Option.map ~f:ErrorMessage.of_xml)
          (Xml.child xml_arg0 "exceptionMessage") in
      let xAmznErrorType =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "x-amzn-ErrorType") in
      let xFrameOptions =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "X-Frame-Options") in
      let xContentTypeOptions =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "X-Content-Type-Options") in
      let strictTransportSecurity =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "Strict-Transport-Security") in
      let contentSecurityPolicy =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "Content-Security-Policy") in
      let cacheControl =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Cache-Control") in
      let accessControlExposeHeaders =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "Access-Control-Expose-Headers") in
      let accessControlAllowOrigin =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "Access-Control-Allow-Origin") in
      make ?exceptionMessage ?xAmznErrorType ?xFrameOptions
        ?xContentTypeOptions ?strictTransportSecurity ?contentSecurityPolicy
        ?cacheControl ?accessControlExposeHeaders ?accessControlAllowOrigin
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let exceptionMessage =
        field_map json__ "exceptionMessage" ErrorMessage.of_json in
      let xAmznErrorType = field_map json__ "xAmznErrorType" String_.of_json in
      let xFrameOptions = field_map json__ "xFrameOptions" String_.of_json in
      let xContentTypeOptions =
        field_map json__ "xContentTypeOptions" String_.of_json in
      let strictTransportSecurity =
        field_map json__ "strictTransportSecurity" String_.of_json in
      let contentSecurityPolicy =
        field_map json__ "contentSecurityPolicy" String_.of_json in
      let cacheControl = field_map json__ "cacheControl" String_.of_json in
      let accessControlExposeHeaders =
        field_map json__ "accessControlExposeHeaders" String_.of_json in
      let accessControlAllowOrigin =
        field_map json__ "accessControlAllowOrigin" String_.of_json in
      make ?exceptionMessage ?xAmznErrorType ?xFrameOptions
        ?xContentTypeOptions ?strictTransportSecurity ?contentSecurityPolicy
        ?cacheControl ?accessControlExposeHeaders ?accessControlAllowOrigin
        ()
    let to_json v = composed_to_json to_value v
  end
module IngestConfiguration =
  struct
    type nonrec t =
      {
      name: IngestConfigurationName.t option [@ocaml.doc "Ingest name"];
      arn: IngestConfigurationArn.t option
        [@ocaml.doc "Ingest configuration ARN."];
      ingestProtocol: IngestProtocol.t option
        [@ocaml.doc
          "Type of ingest protocol that the user employs for broadcasting."];
      streamKey: StreamKey.t option
        [@ocaml.doc "Ingest-key value for the RTMP(S) protocol."];
      stageArn: IngestConfigurationStageArn.t option
        [@ocaml.doc
          "ARN of the stage with which the IngestConfiguration is associated."];
      participantId: ParticipantId.t option
        [@ocaml.doc "ID of the participant within the stage."];
      state: IngestConfigurationState.t option
        [@ocaml.doc
          "State of the ingest configuration. It is ACTIVE if a publisher currently is publishing to the stage associated with the ingest configuration."];
      userId: UserId.t option
        [@ocaml.doc
          "Customer-assigned name to help identify the participant using the IngestConfiguration; this can be used to link a participant to a user in the customer\226\128\153s own systems. This can be any UTF-8 encoded text. This field is exposed to all stage participants and should not be used for personally identifying, confidential, or sensitive information."];
      redundantIngest: RedundantIngest.t option
        [@ocaml.doc
          "Indicates whether redundant ingest is enabled for the ingest configuration."];
      redundantIngestCredentials: RedundantIngestCredentials.t option
        [@ocaml.doc
          "A list of redundant ingest credentials, present only when redundantIngest is set to true. See Redundant Ingest in IVS RTMP Publishing for details."];
      attributes: ParticipantAttributes.t option
        [@ocaml.doc
          "Application-provided attributes to to store in the IngestConfiguration and attach to a stage. Map keys and values can contain UTF-8 encoded text. The maximum length of this field is 1 KB total. This field is exposed to all stage participants and should not be used for personally identifying, confidential, or sensitive information."];
      tags: Tags.t option
        [@ocaml.doc
          "Tags attached to the resource. Array of maps, each of the form string:string (key:value). See Best practices and strategies in Tagging AWS Resources and Tag Editor for details, including restrictions that apply to tags and \"Tag naming limits and requirements\"; Amazon IVS has no constraints on tags beyond what is documented there."]}
    let make ?name =
      fun ?arn ->
        fun ?ingestProtocol ->
          fun ?streamKey ->
            fun ?stageArn ->
              fun ?participantId ->
                fun ?state ->
                  fun ?userId ->
                    fun ?redundantIngest ->
                      fun ?redundantIngestCredentials ->
                        fun ?attributes ->
                          fun ?tags ->
                            fun () ->
                              {
                                name;
                                arn;
                                ingestProtocol;
                                streamKey;
                                stageArn;
                                participantId;
                                state;
                                userId;
                                redundantIngest;
                                redundantIngestCredentials;
                                attributes;
                                tags
                              }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:IngestConfigurationName.to_value));
        ("arn", (Option.map x.arn ~f:IngestConfigurationArn.to_value));
        ("ingestProtocol",
          (Option.map x.ingestProtocol ~f:IngestProtocol.to_value));
        ("streamKey", (Option.map x.streamKey ~f:StreamKey.to_value));
        ("stageArn",
          (Option.map x.stageArn ~f:IngestConfigurationStageArn.to_value));
        ("participantId",
          (Option.map x.participantId ~f:ParticipantId.to_value));
        ("state", (Option.map x.state ~f:IngestConfigurationState.to_value));
        ("userId", (Option.map x.userId ~f:UserId.to_value));
        ("redundantIngest",
          (Option.map x.redundantIngest ~f:RedundantIngest.to_value));
        ("redundantIngestCredentials",
          (Option.map x.redundantIngestCredentials
             ~f:RedundantIngestCredentials.to_value));
        ("attributes",
          (Option.map x.attributes ~f:ParticipantAttributes.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let attributes =
        (Option.map ~f:ParticipantAttributes.of_xml)
          (Xml.child xml_arg0 "attributes") in
      let redundantIngestCredentials =
        (Option.map ~f:RedundantIngestCredentials.of_xml)
          (Xml.child xml_arg0 "redundantIngestCredentials") in
      let redundantIngest =
        (Option.map ~f:RedundantIngest.of_xml)
          (Xml.child xml_arg0 "redundantIngest") in
      let userId =
        (Option.map ~f:UserId.of_xml) (Xml.child xml_arg0 "userId") in
      let state =
        (Option.map ~f:IngestConfigurationState.of_xml)
          (Xml.child xml_arg0 "state") in
      let participantId =
        (Option.map ~f:ParticipantId.of_xml)
          (Xml.child xml_arg0 "participantId") in
      let stageArn =
        (Option.map ~f:IngestConfigurationStageArn.of_xml)
          (Xml.child xml_arg0 "stageArn") in
      let streamKey =
        (Option.map ~f:StreamKey.of_xml) (Xml.child xml_arg0 "streamKey") in
      let ingestProtocol =
        (Option.map ~f:IngestProtocol.of_xml)
          (Xml.child xml_arg0 "ingestProtocol") in
      let arn =
        (Option.map ~f:IngestConfigurationArn.of_xml)
          (Xml.child xml_arg0 "arn") in
      let name =
        (Option.map ~f:IngestConfigurationName.of_xml)
          (Xml.child xml_arg0 "name") in
      make ?tags ?attributes ?redundantIngestCredentials ?redundantIngest
        ?userId ?state ?participantId ?stageArn ?streamKey ?ingestProtocol
        ?arn ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" Tags.of_json in
      let attributes =
        field_map json__ "attributes" ParticipantAttributes.of_json in
      let redundantIngestCredentials =
        field_map json__ "redundantIngestCredentials"
          RedundantIngestCredentials.of_json in
      let redundantIngest =
        field_map json__ "redundantIngest" RedundantIngest.of_json in
      let userId = field_map json__ "userId" UserId.of_json in
      let state = field_map json__ "state" IngestConfigurationState.of_json in
      let participantId =
        field_map json__ "participantId" ParticipantId.of_json in
      let stageArn =
        field_map json__ "stageArn" IngestConfigurationStageArn.of_json in
      let streamKey = field_map json__ "streamKey" StreamKey.of_json in
      let ingestProtocol =
        field_map json__ "ingestProtocol" IngestProtocol.of_json in
      let arn = field_map json__ "arn" IngestConfigurationArn.of_json in
      let name = field_map json__ "name" IngestConfigurationName.of_json in
      make ?tags ?attributes ?redundantIngestCredentials ?redundantIngest
        ?userId ?state ?participantId ?stageArn ?streamKey ?ingestProtocol
        ?arn ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Object specifying an ingest configuration."]
module InternalServerException =
  struct
    type nonrec t =
      {
      accessControlAllowOrigin: String_.t option ;
      accessControlExposeHeaders: String_.t option ;
      cacheControl: String_.t option ;
      contentSecurityPolicy: String_.t option ;
      strictTransportSecurity: String_.t option ;
      xContentTypeOptions: String_.t option ;
      xFrameOptions: String_.t option ;
      xAmznErrorType: String_.t option ;
      exceptionMessage: ErrorMessage.t option
        [@ocaml.doc "Unexpected error during processing of request."]}
    let make ?accessControlAllowOrigin =
      fun ?accessControlExposeHeaders ->
        fun ?cacheControl ->
          fun ?contentSecurityPolicy ->
            fun ?strictTransportSecurity ->
              fun ?xContentTypeOptions ->
                fun ?xFrameOptions ->
                  fun ?xAmznErrorType ->
                    fun ?exceptionMessage ->
                      fun () ->
                        {
                          accessControlAllowOrigin;
                          accessControlExposeHeaders;
                          cacheControl;
                          contentSecurityPolicy;
                          strictTransportSecurity;
                          xContentTypeOptions;
                          xFrameOptions;
                          xAmznErrorType;
                          exceptionMessage
                        }
    let to_value x =
      structure_to_value
        [("Access-Control-Allow-Origin",
           (Option.map x.accessControlAllowOrigin ~f:String_.to_value));
        ("Access-Control-Expose-Headers",
          (Option.map x.accessControlExposeHeaders ~f:String_.to_value));
        ("Cache-Control", (Option.map x.cacheControl ~f:String_.to_value));
        ("Content-Security-Policy",
          (Option.map x.contentSecurityPolicy ~f:String_.to_value));
        ("Strict-Transport-Security",
          (Option.map x.strictTransportSecurity ~f:String_.to_value));
        ("X-Content-Type-Options",
          (Option.map x.xContentTypeOptions ~f:String_.to_value));
        ("X-Frame-Options", (Option.map x.xFrameOptions ~f:String_.to_value));
        ("x-amzn-ErrorType",
          (Option.map x.xAmznErrorType ~f:String_.to_value));
        ("exceptionMessage",
          (Option.map x.exceptionMessage ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let exceptionMessage =
        (Option.map ~f:ErrorMessage.of_xml)
          (Xml.child xml_arg0 "exceptionMessage") in
      let xAmznErrorType =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "x-amzn-ErrorType") in
      let xFrameOptions =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "X-Frame-Options") in
      let xContentTypeOptions =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "X-Content-Type-Options") in
      let strictTransportSecurity =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "Strict-Transport-Security") in
      let contentSecurityPolicy =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "Content-Security-Policy") in
      let cacheControl =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Cache-Control") in
      let accessControlExposeHeaders =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "Access-Control-Expose-Headers") in
      let accessControlAllowOrigin =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "Access-Control-Allow-Origin") in
      make ?exceptionMessage ?xAmznErrorType ?xFrameOptions
        ?xContentTypeOptions ?strictTransportSecurity ?contentSecurityPolicy
        ?cacheControl ?accessControlExposeHeaders ?accessControlAllowOrigin
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let exceptionMessage =
        field_map json__ "exceptionMessage" ErrorMessage.of_json in
      let xAmznErrorType = field_map json__ "xAmznErrorType" String_.of_json in
      let xFrameOptions = field_map json__ "xFrameOptions" String_.of_json in
      let xContentTypeOptions =
        field_map json__ "xContentTypeOptions" String_.of_json in
      let strictTransportSecurity =
        field_map json__ "strictTransportSecurity" String_.of_json in
      let contentSecurityPolicy =
        field_map json__ "contentSecurityPolicy" String_.of_json in
      let cacheControl = field_map json__ "cacheControl" String_.of_json in
      let accessControlExposeHeaders =
        field_map json__ "accessControlExposeHeaders" String_.of_json in
      let accessControlAllowOrigin =
        field_map json__ "accessControlAllowOrigin" String_.of_json in
      make ?exceptionMessage ?xAmznErrorType ?xFrameOptions
        ?xContentTypeOptions ?strictTransportSecurity ?contentSecurityPolicy
        ?cacheControl ?accessControlExposeHeaders ?accessControlAllowOrigin
        ()
    let to_json v = composed_to_json to_value v
  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:128) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:aws:ivs:[a-z0-9-]+:[0-9]+:[a-z-]/[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:"ResourceArn" j
    let to_json = simple_to_json to_value
  end
module TagKeyList =
  struct
    type nonrec t = TagKey.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:50) >>= (fun () -> check_list_min i ~min: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 ReconnectWindowSeconds =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:300) >>= (fun () -> check_int_min i ~min:0));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for ReconnectWindowSeconds" 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 Composition =
  struct
    type nonrec t =
      {
      arn: CompositionArn.t option
        [@ocaml.doc "ARN of the Composition resource."];
      stageArn: StageArn.t option
        [@ocaml.doc "ARN of the stage used as input"];
      state: CompositionState.t option
        [@ocaml.doc "State of the Composition."];
      layout: LayoutConfiguration.t option
        [@ocaml.doc "Layout object to configure composition parameters."];
      destinations: DestinationList.t option
        [@ocaml.doc
          "Array of Destination objects. A Composition can contain either one destination (channel or s3) or two (one channel and one s3)."];
      tags: Tags.t option
        [@ocaml.doc
          "Tags attached to the resource. Array of maps, each of the form string:string (key:value). See Best practices and strategies in Tagging AWS Resources and Tag Editor for details, including restrictions that apply to tags and \"Tag naming limits and requirements\"; Amazon IVS has no constraints on tags beyond what is documented there."];
      startTime: Time.t option
        [@ocaml.doc
          "UTC time of the Composition start. This is an ISO 8601 timestamp; note that this is returned as a string."];
      endTime: Time.t option
        [@ocaml.doc
          "UTC time of the Composition end. This is an ISO 8601 timestamp; note that this is returned as a string."]}
    let make ?arn =
      fun ?stageArn ->
        fun ?state ->
          fun ?layout ->
            fun ?destinations ->
              fun ?tags ->
                fun ?startTime ->
                  fun ?endTime ->
                    fun () ->
                      {
                        arn;
                        stageArn;
                        state;
                        layout;
                        destinations;
                        tags;
                        startTime;
                        endTime
                      }
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:CompositionArn.to_value));
        ("stageArn", (Option.map x.stageArn ~f:StageArn.to_value));
        ("state", (Option.map x.state ~f:CompositionState.to_value));
        ("layout", (Option.map x.layout ~f:LayoutConfiguration.to_value));
        ("destinations",
          (Option.map x.destinations ~f:DestinationList.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value));
        ("startTime", (Option.map x.startTime ~f:Time.to_value));
        ("endTime", (Option.map x.endTime ~f:Time.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "endTime") in
      let startTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "startTime") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let destinations =
        (Option.map ~f:DestinationList.of_xml)
          (Xml.child xml_arg0 "destinations") in
      let layout =
        (Option.map ~f:LayoutConfiguration.of_xml)
          (Xml.child xml_arg0 "layout") in
      let state =
        (Option.map ~f:CompositionState.of_xml) (Xml.child xml_arg0 "state") in
      let stageArn =
        (Option.map ~f:StageArn.of_xml) (Xml.child xml_arg0 "stageArn") in
      let arn =
        (Option.map ~f:CompositionArn.of_xml) (Xml.child xml_arg0 "arn") in
      make ?endTime ?startTime ?tags ?destinations ?layout ?state ?stageArn
        ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endTime = field_map json__ "endTime" Time.of_json in
      let startTime = field_map json__ "startTime" Time.of_json in
      let tags = field_map json__ "tags" Tags.of_json in
      let destinations =
        field_map json__ "destinations" DestinationList.of_json in
      let layout = field_map json__ "layout" LayoutConfiguration.of_json in
      let state = field_map json__ "state" CompositionState.of_json in
      let stageArn = field_map json__ "stageArn" StageArn.of_json in
      let arn = field_map json__ "arn" CompositionArn.of_json in
      make ?endTime ?startTime ?tags ?destinations ?layout ?state ?stageArn
        ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Object specifying a Composition resource."]
module CompositionClientToken =
  struct
    type nonrec t = string
    let context_ = "CompositionClientToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (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:"CompositionClientToken" j
    let to_json = simple_to_json to_value
  end
module DestinationConfigurationList =
  struct
    type nonrec t = DestinationConfiguration.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:2) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:DestinationConfiguration.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:DestinationConfiguration.of_xml)
    let of_json j =
      list_of_json ~kind:"DestinationConfigurationList"
        ~of_json:DestinationConfiguration.of_json j
    let to_json v = composed_to_json to_value v
  end
module PaginationToken =
  struct
    type nonrec t = string
    let context_ = "PaginationToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (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:"PaginationToken" j
    let to_json = simple_to_json to_value
  end
module StorageConfigurationSummaryList =
  struct
    type nonrec t = StorageConfigurationSummary.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:StorageConfigurationSummary.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:StorageConfigurationSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"StorageConfigurationSummaryList"
        ~of_json:StorageConfigurationSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxStorageConfigurationResults =
  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 MaxStorageConfigurationResults"
           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 StageSummaryList =
  struct
    type nonrec t = StageSummary.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:StageSummary.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:StageSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"StageSummaryList" ~of_json:StageSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxStageResults =
  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 MaxStageResults" 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 StageSessionList =
  struct
    type nonrec t = StageSessionSummary.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:StageSessionSummary.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:StageSessionSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"StageSessionList"
        ~of_json:StageSessionSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxStageSessionResults =
  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 MaxStageSessionResults" 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 PublicKeyList =
  struct
    type nonrec t = PublicKeySummary.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:PublicKeySummary.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:PublicKeySummary.of_xml)
    let of_json j =
      list_of_json ~kind:"PublicKeyList" ~of_json:PublicKeySummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxPublicKeyResults =
  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 MaxPublicKeyResults" 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 ParticipantList =
  struct
    type nonrec t = ParticipantSummary.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:ParticipantSummary.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:ParticipantSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ParticipantList"
        ~of_json:ParticipantSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxParticipantResults =
  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 MaxParticipantResults" 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 ParticipantRecordingFilterByRecordingState =
  struct
    type nonrec t =
      | STARTING 
      | ACTIVE 
      | STOPPING 
      | STOPPED 
      | FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | STARTING -> "STARTING"
      | ACTIVE -> "ACTIVE"
      | STOPPING -> "STOPPING"
      | STOPPED -> "STOPPED"
      | FAILED -> "FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "STARTING" -> STARTING
      | "ACTIVE" -> ACTIVE
      | "STOPPING" -> STOPPING
      | "STOPPED" -> STOPPED
      | "FAILED" -> FAILED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml
           ~kind:"enumeration ParticipantRecordingFilterByRecordingState"
           xml_arg0)
    let of_json j =
      of_string
        (string_of_json ~kind:"ParticipantRecordingFilterByRecordingState" j)
    let to_json = simple_to_json to_value
  end
module ParticipantReplicaList =
  struct
    type nonrec t = ParticipantReplica.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:ParticipantReplica.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:ParticipantReplica.of_xml)
    let of_json j =
      list_of_json ~kind:"ParticipantReplicaList"
        ~of_json:ParticipantReplica.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxParticipantReplicaResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:50) >>= (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 MaxParticipantReplicaResults"
           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 EventList =
  struct
    type nonrec t = Event.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:Event.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:Event.of_xml)
    let of_json j = list_of_json ~kind:"EventList" ~of_json:Event.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxParticipantEventResults =
  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 MaxParticipantEventResults"
           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 IngestConfigurationList =
  struct
    type nonrec t = IngestConfigurationSummary.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:IngestConfigurationSummary.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:IngestConfigurationSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"IngestConfigurationList"
        ~of_json:IngestConfigurationSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxIngestConfigurationResults =
  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 MaxIngestConfigurationResults"
           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 EncoderConfigurationSummaryList =
  struct
    type nonrec t = EncoderConfigurationSummary.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:EncoderConfigurationSummary.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:EncoderConfigurationSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"EncoderConfigurationSummaryList"
        ~of_json:EncoderConfigurationSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxEncoderConfigurationResults =
  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 MaxEncoderConfigurationResults"
           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 CompositionSummaryList =
  struct
    type nonrec t = CompositionSummary.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:CompositionSummary.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:CompositionSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"CompositionSummaryList"
        ~of_json:CompositionSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxCompositionResults =
  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 MaxCompositionResults" 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 PublicKey =
  struct
    type nonrec t =
      {
      arn: PublicKeyArn.t option [@ocaml.doc "Public key ARN."];
      name: PublicKeyName.t option [@ocaml.doc "Public key name."];
      publicKeyMaterial: PublicKeyMaterial.t option
        [@ocaml.doc "Public key material."];
      fingerprint: PublicKeyFingerprint.t option
        [@ocaml.doc
          "The public key fingerprint, a short string used to identify or verify the full public key."];
      tags: Tags.t option
        [@ocaml.doc
          "Tags attached to the resource. Array of maps, each of the form string:string (key:value). See Best practices and strategies in Tagging AWS Resources and Tag Editor for details, including restrictions that apply to tags and \"Tag naming limits and requirements\"; Amazon IVS has no constraints on tags beyond what is documented there."]}
    let make ?arn =
      fun ?name ->
        fun ?publicKeyMaterial ->
          fun ?fingerprint ->
            fun ?tags ->
              fun () -> { arn; name; publicKeyMaterial; fingerprint; tags }
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:PublicKeyArn.to_value));
        ("name", (Option.map x.name ~f:PublicKeyName.to_value));
        ("publicKeyMaterial",
          (Option.map x.publicKeyMaterial ~f:PublicKeyMaterial.to_value));
        ("fingerprint",
          (Option.map x.fingerprint ~f:PublicKeyFingerprint.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let fingerprint =
        (Option.map ~f:PublicKeyFingerprint.of_xml)
          (Xml.child xml_arg0 "fingerprint") in
      let publicKeyMaterial =
        (Option.map ~f:PublicKeyMaterial.of_xml)
          (Xml.child xml_arg0 "publicKeyMaterial") in
      let name =
        (Option.map ~f:PublicKeyName.of_xml) (Xml.child xml_arg0 "name") in
      let arn =
        (Option.map ~f:PublicKeyArn.of_xml) (Xml.child xml_arg0 "arn") in
      make ?tags ?fingerprint ?publicKeyMaterial ?name ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" Tags.of_json in
      let fingerprint =
        field_map json__ "fingerprint" PublicKeyFingerprint.of_json in
      let publicKeyMaterial =
        field_map json__ "publicKeyMaterial" PublicKeyMaterial.of_json in
      let name = field_map json__ "name" PublicKeyName.of_json in
      let arn = field_map json__ "arn" PublicKeyArn.of_json in
      make ?tags ?fingerprint ?publicKeyMaterial ?name ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Object specifying a public key used to sign stage participant tokens."]
module StorageConfiguration =
  struct
    type nonrec t =
      {
      arn: StorageConfigurationArn.t option
        [@ocaml.doc "ARN of the storage configuration."];
      name: StorageConfigurationName.t option
        [@ocaml.doc "Name of the storage configuration."];
      s3: S3StorageConfiguration.t option
        [@ocaml.doc
          "An S3 destination configuration where recorded videos will be stored."];
      tags: Tags.t option
        [@ocaml.doc
          "Tags attached to the resource. Array of maps, each of the form string:string (key:value). See Best practices and strategies in Tagging AWS Resources and Tag Editor for details, including restrictions that apply to tags and \"Tag naming limits and requirements\"; Amazon IVS has no constraints on tags beyond what is documented there."]}
    let make ?arn =
      fun ?name -> fun ?s3 -> fun ?tags -> fun () -> { arn; name; s3; tags }
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:StorageConfigurationArn.to_value));
        ("name", (Option.map x.name ~f:StorageConfigurationName.to_value));
        ("s3", (Option.map x.s3 ~f:S3StorageConfiguration.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let s3 =
        (Option.map ~f:S3StorageConfiguration.of_xml)
          (Xml.child xml_arg0 "s3") in
      let name =
        (Option.map ~f:StorageConfigurationName.of_xml)
          (Xml.child xml_arg0 "name") in
      let arn =
        (Option.map ~f:StorageConfigurationArn.of_xml)
          (Xml.child xml_arg0 "arn") in
      make ?tags ?s3 ?name ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" Tags.of_json in
      let s3 = field_map json__ "s3" S3StorageConfiguration.of_json in
      let name = field_map json__ "name" StorageConfigurationName.of_json in
      let arn = field_map json__ "arn" StorageConfigurationArn.of_json in
      make ?tags ?s3 ?name ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A complex type that describes a location where recorded videos will be stored."]
module StageSession =
  struct
    type nonrec t =
      {
      sessionId: StageSessionId.t option
        [@ocaml.doc "ID of the session within the stage."];
      startTime: Time.t option
        [@ocaml.doc
          "ISO 8601 timestamp (returned as a string) when this stage session began."];
      endTime: Time.t option
        [@ocaml.doc
          "ISO 8601 timestamp (returned as a string) when the stage session ended. This is null if the stage is active."]}
    let make ?sessionId =
      fun ?startTime ->
        fun ?endTime -> fun () -> { sessionId; startTime; endTime }
    let to_value x =
      structure_to_value
        [("sessionId", (Option.map x.sessionId ~f:StageSessionId.to_value));
        ("startTime", (Option.map x.startTime ~f:Time.to_value));
        ("endTime", (Option.map x.endTime ~f:Time.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "endTime") in
      let startTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "startTime") in
      let sessionId =
        (Option.map ~f:StageSessionId.of_xml)
          (Xml.child xml_arg0 "sessionId") in
      make ?endTime ?startTime ?sessionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endTime = field_map json__ "endTime" Time.of_json in
      let startTime = field_map json__ "startTime" Time.of_json in
      let sessionId = field_map json__ "sessionId" StageSessionId.of_json in
      make ?endTime ?startTime ?sessionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A stage session begins when the first participant joins a stage and ends after the last participant leaves the stage. A stage session helps with debugging stages by grouping events and participants into shorter periods of time (i.e., a session), which is helpful when stages are used over long periods of time."]
module Participant =
  struct
    type nonrec t =
      {
      participantId: ParticipantId.t option
        [@ocaml.doc
          "Unique identifier for this participant, assigned by IVS."];
      userId: UserId.t option
        [@ocaml.doc
          "Customer-assigned name to help identify the token; this can be used to link a participant to a user in the customer\226\128\153s own systems. This can be any UTF-8 encoded text. This field is exposed to all stage participants and should not be used for personally identifying, confidential, or sensitive information."];
      state: ParticipantState.t option
        [@ocaml.doc
          "Whether the participant is connected to or disconnected from the stage."];
      firstJoinTime: Time.t option
        [@ocaml.doc
          "ISO 8601 timestamp (returned as a string) when the participant first joined the stage session."];
      attributes: ParticipantAttributes.t option
        [@ocaml.doc
          "Application-provided attributes to encode into the token and attach to a stage. Map keys and values can contain UTF-8 encoded text. The maximum length of this field is 1 KB total. This field is exposed to all stage participants and should not be used for personally identifying, confidential, or sensitive information."];
      published: Published.t option
        [@ocaml.doc
          "Whether the participant ever published to the stage session."];
      ispName: ParticipantClientAttribute.t option
        [@ocaml.doc
          "The participant\226\128\153s Internet Service Provider."];
      osName: ParticipantClientAttribute.t option
        [@ocaml.doc "The participant\226\128\153s operating system."];
      osVersion: ParticipantClientAttribute.t option
        [@ocaml.doc "The participant\226\128\153s operating system version."];
      browserName: ParticipantClientAttribute.t option
        [@ocaml.doc "The participant\226\128\153s browser."];
      browserVersion: ParticipantClientAttribute.t option
        [@ocaml.doc "The participant\226\128\153s browser version."];
      sdkVersion: ParticipantClientAttribute.t option
        [@ocaml.doc "The participant\226\128\153s SDK version."];
      recordingS3BucketName: ParticipantRecordingS3BucketName.t option
        [@ocaml.doc
          "Name of the S3 bucket to where the participant is being recorded, if individual participant recording is enabled, or \"\" (empty string), if recording is not enabled."];
      recordingS3Prefix: ParticipantRecordingS3Prefix.t option
        [@ocaml.doc
          "S3 prefix of the S3 bucket where the participant is being recorded, if individual participant recording is enabled, or \"\" (empty string), if recording is not enabled. If individual participant recording merge is enabled, and if a stage publisher disconnects from a stage and then reconnects, IVS tries to record to the same S3 prefix as the previous session. See Merge Fragmented Individual Participant Recordings."];
      recordingState: ParticipantRecordingState.t option
        [@ocaml.doc "The participant\226\128\153s recording state."];
      protocol: ParticipantProtocol.t option
        [@ocaml.doc
          "Type of ingest protocol that the participant employs for broadcasting."];
      replicationType: ReplicationType.t option
        [@ocaml.doc
          "Indicates if the participant has been replicated to another stage or is a replica from another stage. Default: NONE."];
      replicationState: ReplicationState.t option
        [@ocaml.doc "The participant's replication state."];
      sourceStageArn: StageArn.t option
        [@ocaml.doc
          "Source stage ARN from which this participant is replicated, if replicationType is REPLICA."];
      sourceSessionId: StageSessionId.t option
        [@ocaml.doc
          "ID of the session within the source stage, if replicationType is REPLICA."];
      redundantIngest: RedundantIngest.t option
        [@ocaml.doc
          "Indicates whether redundant ingest is enabled for the participant."];
      ingestConfigurationArn: IngestConfigurationArn.t option
        [@ocaml.doc "The participant\226\128\153s ingest configuration."]}
    let make ?participantId =
      fun ?userId ->
        fun ?state ->
          fun ?firstJoinTime ->
            fun ?attributes ->
              fun ?published ->
                fun ?ispName ->
                  fun ?osName ->
                    fun ?osVersion ->
                      fun ?browserName ->
                        fun ?browserVersion ->
                          fun ?sdkVersion ->
                            fun ?recordingS3BucketName ->
                              fun ?recordingS3Prefix ->
                                fun ?recordingState ->
                                  fun ?protocol ->
                                    fun ?replicationType ->
                                      fun ?replicationState ->
                                        fun ?sourceStageArn ->
                                          fun ?sourceSessionId ->
                                            fun ?redundantIngest ->
                                              fun ?ingestConfigurationArn ->
                                                fun () ->
                                                  {
                                                    participantId;
                                                    userId;
                                                    state;
                                                    firstJoinTime;
                                                    attributes;
                                                    published;
                                                    ispName;
                                                    osName;
                                                    osVersion;
                                                    browserName;
                                                    browserVersion;
                                                    sdkVersion;
                                                    recordingS3BucketName;
                                                    recordingS3Prefix;
                                                    recordingState;
                                                    protocol;
                                                    replicationType;
                                                    replicationState;
                                                    sourceStageArn;
                                                    sourceSessionId;
                                                    redundantIngest;
                                                    ingestConfigurationArn
                                                  }
    let to_value x =
      structure_to_value
        [("participantId",
           (Option.map x.participantId ~f:ParticipantId.to_value));
        ("userId", (Option.map x.userId ~f:UserId.to_value));
        ("state", (Option.map x.state ~f:ParticipantState.to_value));
        ("firstJoinTime", (Option.map x.firstJoinTime ~f:Time.to_value));
        ("attributes",
          (Option.map x.attributes ~f:ParticipantAttributes.to_value));
        ("published", (Option.map x.published ~f:Published.to_value));
        ("ispName",
          (Option.map x.ispName ~f:ParticipantClientAttribute.to_value));
        ("osName",
          (Option.map x.osName ~f:ParticipantClientAttribute.to_value));
        ("osVersion",
          (Option.map x.osVersion ~f:ParticipantClientAttribute.to_value));
        ("browserName",
          (Option.map x.browserName ~f:ParticipantClientAttribute.to_value));
        ("browserVersion",
          (Option.map x.browserVersion ~f:ParticipantClientAttribute.to_value));
        ("sdkVersion",
          (Option.map x.sdkVersion ~f:ParticipantClientAttribute.to_value));
        ("recordingS3BucketName",
          (Option.map x.recordingS3BucketName
             ~f:ParticipantRecordingS3BucketName.to_value));
        ("recordingS3Prefix",
          (Option.map x.recordingS3Prefix
             ~f:ParticipantRecordingS3Prefix.to_value));
        ("recordingState",
          (Option.map x.recordingState ~f:ParticipantRecordingState.to_value));
        ("protocol", (Option.map x.protocol ~f:ParticipantProtocol.to_value));
        ("replicationType",
          (Option.map x.replicationType ~f:ReplicationType.to_value));
        ("replicationState",
          (Option.map x.replicationState ~f:ReplicationState.to_value));
        ("sourceStageArn",
          (Option.map x.sourceStageArn ~f:StageArn.to_value));
        ("sourceSessionId",
          (Option.map x.sourceSessionId ~f:StageSessionId.to_value));
        ("redundantIngest",
          (Option.map x.redundantIngest ~f:RedundantIngest.to_value));
        ("ingestConfigurationArn",
          (Option.map x.ingestConfigurationArn
             ~f:IngestConfigurationArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ingestConfigurationArn =
        (Option.map ~f:IngestConfigurationArn.of_xml)
          (Xml.child xml_arg0 "ingestConfigurationArn") in
      let redundantIngest =
        (Option.map ~f:RedundantIngest.of_xml)
          (Xml.child xml_arg0 "redundantIngest") in
      let sourceSessionId =
        (Option.map ~f:StageSessionId.of_xml)
          (Xml.child xml_arg0 "sourceSessionId") in
      let sourceStageArn =
        (Option.map ~f:StageArn.of_xml) (Xml.child xml_arg0 "sourceStageArn") in
      let replicationState =
        (Option.map ~f:ReplicationState.of_xml)
          (Xml.child xml_arg0 "replicationState") in
      let replicationType =
        (Option.map ~f:ReplicationType.of_xml)
          (Xml.child xml_arg0 "replicationType") in
      let protocol =
        (Option.map ~f:ParticipantProtocol.of_xml)
          (Xml.child xml_arg0 "protocol") in
      let recordingState =
        (Option.map ~f:ParticipantRecordingState.of_xml)
          (Xml.child xml_arg0 "recordingState") in
      let recordingS3Prefix =
        (Option.map ~f:ParticipantRecordingS3Prefix.of_xml)
          (Xml.child xml_arg0 "recordingS3Prefix") in
      let recordingS3BucketName =
        (Option.map ~f:ParticipantRecordingS3BucketName.of_xml)
          (Xml.child xml_arg0 "recordingS3BucketName") in
      let sdkVersion =
        (Option.map ~f:ParticipantClientAttribute.of_xml)
          (Xml.child xml_arg0 "sdkVersion") in
      let browserVersion =
        (Option.map ~f:ParticipantClientAttribute.of_xml)
          (Xml.child xml_arg0 "browserVersion") in
      let browserName =
        (Option.map ~f:ParticipantClientAttribute.of_xml)
          (Xml.child xml_arg0 "browserName") in
      let osVersion =
        (Option.map ~f:ParticipantClientAttribute.of_xml)
          (Xml.child xml_arg0 "osVersion") in
      let osName =
        (Option.map ~f:ParticipantClientAttribute.of_xml)
          (Xml.child xml_arg0 "osName") in
      let ispName =
        (Option.map ~f:ParticipantClientAttribute.of_xml)
          (Xml.child xml_arg0 "ispName") in
      let published =
        (Option.map ~f:Published.of_xml) (Xml.child xml_arg0 "published") in
      let attributes =
        (Option.map ~f:ParticipantAttributes.of_xml)
          (Xml.child xml_arg0 "attributes") in
      let firstJoinTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "firstJoinTime") in
      let state =
        (Option.map ~f:ParticipantState.of_xml) (Xml.child xml_arg0 "state") in
      let userId =
        (Option.map ~f:UserId.of_xml) (Xml.child xml_arg0 "userId") in
      let participantId =
        (Option.map ~f:ParticipantId.of_xml)
          (Xml.child xml_arg0 "participantId") in
      make ?ingestConfigurationArn ?redundantIngest ?sourceSessionId
        ?sourceStageArn ?replicationState ?replicationType ?protocol
        ?recordingState ?recordingS3Prefix ?recordingS3BucketName ?sdkVersion
        ?browserVersion ?browserName ?osVersion ?osName ?ispName ?published
        ?attributes ?firstJoinTime ?state ?userId ?participantId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ingestConfigurationArn =
        field_map json__ "ingestConfigurationArn"
          IngestConfigurationArn.of_json in
      let redundantIngest =
        field_map json__ "redundantIngest" RedundantIngest.of_json in
      let sourceSessionId =
        field_map json__ "sourceSessionId" StageSessionId.of_json in
      let sourceStageArn = field_map json__ "sourceStageArn" StageArn.of_json in
      let replicationState =
        field_map json__ "replicationState" ReplicationState.of_json in
      let replicationType =
        field_map json__ "replicationType" ReplicationType.of_json in
      let protocol = field_map json__ "protocol" ParticipantProtocol.of_json in
      let recordingState =
        field_map json__ "recordingState" ParticipantRecordingState.of_json in
      let recordingS3Prefix =
        field_map json__ "recordingS3Prefix"
          ParticipantRecordingS3Prefix.of_json in
      let recordingS3BucketName =
        field_map json__ "recordingS3BucketName"
          ParticipantRecordingS3BucketName.of_json in
      let sdkVersion =
        field_map json__ "sdkVersion" ParticipantClientAttribute.of_json in
      let browserVersion =
        field_map json__ "browserVersion" ParticipantClientAttribute.of_json in
      let browserName =
        field_map json__ "browserName" ParticipantClientAttribute.of_json in
      let osVersion =
        field_map json__ "osVersion" ParticipantClientAttribute.of_json in
      let osName =
        field_map json__ "osName" ParticipantClientAttribute.of_json in
      let ispName =
        field_map json__ "ispName" ParticipantClientAttribute.of_json in
      let published = field_map json__ "published" Published.of_json in
      let attributes =
        field_map json__ "attributes" ParticipantAttributes.of_json in
      let firstJoinTime = field_map json__ "firstJoinTime" Time.of_json in
      let state = field_map json__ "state" ParticipantState.of_json in
      let userId = field_map json__ "userId" UserId.of_json in
      let participantId =
        field_map json__ "participantId" ParticipantId.of_json in
      make ?ingestConfigurationArn ?redundantIngest ?sourceSessionId
        ?sourceStageArn ?replicationState ?replicationType ?protocol
        ?recordingState ?recordingS3Prefix ?recordingS3BucketName ?sdkVersion
        ?browserVersion ?browserName ?osVersion ?osName ?ispName ?published
        ?attributes ?firstJoinTime ?state ?userId ?participantId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Object describing a participant that has joined a stage."]
module EncoderConfiguration =
  struct
    type nonrec t =
      {
      arn: EncoderConfigurationArn.t option
        [@ocaml.doc "ARN of the EncoderConfiguration resource."];
      name: EncoderConfigurationName.t option
        [@ocaml.doc "Optional name to identify the resource."];
      video: Video.t option
        [@ocaml.doc
          "Video configuration. Default: video resolution 1280x720, bitrate 2500 kbps, 30 fps"];
      tags: Tags.t option
        [@ocaml.doc
          "Tags attached to the resource. Array of maps, each of the form string:string (key:value). See Best practices and strategies in Tagging AWS Resources and Tag Editor for details, including restrictions that apply to tags and \"Tag naming limits and requirements\"; Amazon IVS has no constraints on tags beyond what is documented there."]}
    let make ?arn =
      fun ?name ->
        fun ?video -> fun ?tags -> fun () -> { arn; name; video; tags }
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:EncoderConfigurationArn.to_value));
        ("name", (Option.map x.name ~f:EncoderConfigurationName.to_value));
        ("video", (Option.map x.video ~f:Video.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let video = (Option.map ~f:Video.of_xml) (Xml.child xml_arg0 "video") in
      let name =
        (Option.map ~f:EncoderConfigurationName.of_xml)
          (Xml.child xml_arg0 "name") in
      let arn =
        (Option.map ~f:EncoderConfigurationArn.of_xml)
          (Xml.child xml_arg0 "arn") in
      make ?tags ?video ?name ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" Tags.of_json in
      let video = field_map json__ "video" Video.of_json in
      let name = field_map json__ "name" EncoderConfigurationName.of_json in
      let arn = field_map json__ "arn" EncoderConfigurationArn.of_json in
      make ?tags ?video ?name ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Settings for transcoding."]
module DisconnectParticipantReason =
  struct
    type nonrec t = string
    let context_ = "DisconnectParticipantReason"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DisconnectParticipantReason" j
    let to_json = simple_to_json to_value
  end
module Boolean =
  struct
    type nonrec t = bool
    let make i = i
    let of_string = Bool.of_string
    let to_value x = `Boolean x
    let to_query v = to_query to_value v
    let to_header x = Bool.to_string x
    let of_xml xml_arg0 =
      Bool.of_string (string_of_xml ~kind:"a boolean" xml_arg0)
    let of_json = bool_of_json
    let to_json = simple_to_json to_value
  end
module ParticipantTokenList =
  struct
    type nonrec t = ParticipantToken.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:ParticipantToken.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:ParticipantToken.of_xml)
    let of_json j =
      list_of_json ~kind:"ParticipantTokenList"
        ~of_json:ParticipantToken.of_json j
    let to_json v = composed_to_json to_value v
  end
module ParticipantTokenConfigurations =
  struct
    type nonrec t = ParticipantTokenConfiguration.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:12) >>= (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:ParticipantTokenConfiguration.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:ParticipantTokenConfiguration.of_xml)
    let of_json j =
      list_of_json ~kind:"ParticipantTokenConfigurations"
        ~of_json:ParticipantTokenConfiguration.of_json j
    let to_json v = composed_to_json to_value v
  end
module InsecureIngest =
  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 UpdateStageResponse =
  struct
    type nonrec t = {
      stage: Stage.t option [@ocaml.doc "The updated stage."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `PendingVerification of PendingVerification.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?stage = fun () -> { stage }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "PendingVerification" ->
          `PendingVerification (PendingVerification.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "PendingVerification" ->
          `PendingVerification (PendingVerification.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `PendingVerification e ->
          `Assoc
            [("error", (`String "PendingVerification"));
            ("details", (PendingVerification.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value [("stage", (Option.map x.stage ~f:Stage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let stage = (Option.map ~f:Stage.of_xml) (Xml.child xml_arg0 "stage") in
      make ?stage ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let stage = field_map json__ "stage" Stage.of_json in make ?stage ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a stage\226\128\153s configuration."]
module UpdateStageRequest =
  struct
    type nonrec t =
      {
      arn: StageArn.t [@ocaml.doc "ARN of the stage to be updated."];
      name: StageName.t option
        [@ocaml.doc "Name of the stage to be updated."];
      autoParticipantRecordingConfiguration:
        AutoParticipantRecordingConfiguration.t option
        [@ocaml.doc
          "Configuration object for individual participant recording, to attach to the stage. Note that this cannot be updated while recording is active."]}
    let context_ = "UpdateStageRequest"
    let make ?name =
      fun ?autoParticipantRecordingConfiguration ->
        fun ~arn ->
          fun () -> { name; autoParticipantRecordingConfiguration; arn }
    let to_value x =
      structure_to_value
        [("arn", (Some (StageArn.to_value x.arn)));
        ("name", (Option.map x.name ~f:StageName.to_value));
        ("autoParticipantRecordingConfiguration",
          (Option.map x.autoParticipantRecordingConfiguration
             ~f:AutoParticipantRecordingConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let autoParticipantRecordingConfiguration =
        (Option.map ~f:AutoParticipantRecordingConfiguration.of_xml)
          (Xml.child xml_arg0 "autoParticipantRecordingConfiguration") in
      let name = (Option.map ~f:StageName.of_xml) (Xml.child xml_arg0 "name") in
      let arn =
        StageArn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "arn") in
      make ?autoParticipantRecordingConfiguration ?name ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let autoParticipantRecordingConfiguration =
        field_map json__ "autoParticipantRecordingConfiguration"
          AutoParticipantRecordingConfiguration.of_json in
      let name = field_map json__ "name" StageName.of_json in
      let arn = field_map_exn json__ "arn" StageArn.of_json in
      make ?autoParticipantRecordingConfiguration ?name ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a stage\226\128\153s configuration."]
module UpdateIngestConfigurationResponse =
  struct
    type nonrec t =
      {
      ingestConfiguration: IngestConfiguration.t option
        [@ocaml.doc "The updated IngestConfiguration."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `PendingVerification of PendingVerification.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?ingestConfiguration = fun () -> { ingestConfiguration }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "PendingVerification" ->
          `PendingVerification (PendingVerification.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "PendingVerification" ->
          `PendingVerification (PendingVerification.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `PendingVerification e ->
          `Assoc
            [("error", (`String "PendingVerification"));
            ("details", (PendingVerification.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ingestConfiguration",
           (Option.map x.ingestConfiguration ~f:IngestConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ingestConfiguration =
        (Option.map ~f:IngestConfiguration.of_xml)
          (Xml.child xml_arg0 "ingestConfiguration") in
      make ?ingestConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ingestConfiguration =
        field_map json__ "ingestConfiguration" IngestConfiguration.of_json in
      make ?ingestConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates a specified IngestConfiguration. Only the stage ARN attached to the IngestConfiguration can be updated. An IngestConfiguration that is active cannot be updated."]
module UpdateIngestConfigurationRequest =
  struct
    type nonrec t =
      {
      arn: IngestConfigurationArn.t
        [@ocaml.doc
          "ARN of the IngestConfiguration, for which the related stage ARN needs to be updated."];
      stageArn: IngestConfigurationStageArn.t option
        [@ocaml.doc "Stage ARN that needs to be updated."];
      redundantIngest: RedundantIngest.t option
        [@ocaml.doc
          "Indicates whether redundant ingest is enabled for the ingest configuration. Default: false."]}
    let context_ = "UpdateIngestConfigurationRequest"
    let make ?stageArn =
      fun ?redundantIngest ->
        fun ~arn -> fun () -> { stageArn; redundantIngest; arn }
    let to_value x =
      structure_to_value
        [("arn", (Some (IngestConfigurationArn.to_value x.arn)));
        ("stageArn",
          (Option.map x.stageArn ~f:IngestConfigurationStageArn.to_value));
        ("redundantIngest",
          (Option.map x.redundantIngest ~f:RedundantIngest.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let redundantIngest =
        (Option.map ~f:RedundantIngest.of_xml)
          (Xml.child xml_arg0 "redundantIngest") in
      let stageArn =
        (Option.map ~f:IngestConfigurationStageArn.of_xml)
          (Xml.child xml_arg0 "stageArn") in
      let arn =
        IngestConfigurationArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "arn") in
      make ?redundantIngest ?stageArn ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let redundantIngest =
        field_map json__ "redundantIngest" RedundantIngest.of_json in
      let stageArn =
        field_map json__ "stageArn" IngestConfigurationStageArn.of_json in
      let arn = field_map_exn json__ "arn" IngestConfigurationArn.of_json in
      make ?redundantIngest ?stageArn ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates a specified IngestConfiguration. Only the stage ARN attached to the IngestConfiguration can be updated. An IngestConfiguration that is active cannot be updated."]
module UntagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Removes tags from the resource with the specified ARN."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: ResourceArn.t
        [@ocaml.doc
          "The ARN of the resource to be untagged. The ARN must be URL-encoded."];
      tagKeys: TagKeyList.t
        [@ocaml.doc
          "Array of tag keys (strings) for the tags to be removed. See Best practices and strategies in Tagging AWS Resources and Tag Editor for details, including restrictions that apply to tags and \"Tag naming limits and requirements\"; Amazon IVS has no constraints on tags beyond what is documented there."]}
    let context_ = "UntagResourceRequest"
    let make ~resourceArn =
      fun ~tagKeys -> fun () -> { resourceArn; tagKeys }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (ResourceArn.to_value x.resourceArn)));
        ("tagKeys", (Some (TagKeyList.to_value x.tagKeys)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagKeys =
        TagKeyList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tagKeys") in
      let resourceArn =
        ResourceArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~tagKeys ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagKeys = field_map_exn json__ "tagKeys" TagKeyList.of_json in
      let resourceArn =
        field_map_exn json__ "resourceArn" ResourceArn.of_json in
      make ~tagKeys ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Removes tags from the resource with the specified ARN."]
module TagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds or updates tags for the AWS resource with the specified ARN."]
module TagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: ResourceArn.t
        [@ocaml.doc
          "The ARN of the resource to be tagged. The ARN must be URL-encoded."];
      tags: Tags.t
        [@ocaml.doc
          "Array of tags to be added or updated. Array of maps, each of the form string:string (key:value). See Best practices and strategies in Tagging AWS Resources and Tag Editor for details, including restrictions that apply to tags and \"Tag naming limits and requirements\"; Amazon IVS has no constraints on tags beyond what is documented there."]}
    let context_ = "TagResourceRequest"
    let make ~resourceArn = fun ~tags -> fun () -> { resourceArn; tags }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (ResourceArn.to_value x.resourceArn)));
        ("tags", (Some (Tags.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        Tags.of_xml (Xml.child_exn ~context:context_ xml_arg0 "tags") in
      let resourceArn =
        ResourceArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~tags ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map_exn json__ "tags" Tags.of_json in
      let resourceArn =
        field_map_exn json__ "resourceArn" ResourceArn.of_json in
      make ~tags ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds or updates tags for the AWS resource with the specified ARN."]
module StopParticipantReplicationResponse =
  struct
    type nonrec t =
      {
      accessControlAllowOrigin: String_.t option
        [@ocaml.doc "See Access-Control-Allow-Origin in the MDN Web Docs."];
      accessControlExposeHeaders: String_.t option
        [@ocaml.doc "See Access-Control-Expose-Headers in the MDN Web Docs."];
      cacheControl: String_.t option
        [@ocaml.doc "See Cache-Control in the MDN Web Docs."];
      contentSecurityPolicy: String_.t option
        [@ocaml.doc "See Content-Security-Policy in the MDN Web Docs."];
      strictTransportSecurity: String_.t option
        [@ocaml.doc "See Strict-Transport-Security in the MDN Web Docs."];
      xContentTypeOptions: String_.t option
        [@ocaml.doc "See X-Content-Type-Options in the MDN Web Docs."];
      xFrameOptions: String_.t option
        [@ocaml.doc "See X-Frame-Options in the MDN Web Docs."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?accessControlAllowOrigin =
      fun ?accessControlExposeHeaders ->
        fun ?cacheControl ->
          fun ?contentSecurityPolicy ->
            fun ?strictTransportSecurity ->
              fun ?xContentTypeOptions ->
                fun ?xFrameOptions ->
                  fun () ->
                    {
                      accessControlAllowOrigin;
                      accessControlExposeHeaders;
                      cacheControl;
                      contentSecurityPolicy;
                      strictTransportSecurity;
                      xContentTypeOptions;
                      xFrameOptions
                    }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body =
      ((fun (xs, pipe) ->
          make
            ?accessControlAllowOrigin:(Option.map
                                         ((List.Assoc.find
                                             ~equal:String.Caseless.equal) xs
                                            "Access-Control-Allow-Origin")
                                         ~f:String_.of_string)
            ?accessControlExposeHeaders:(Option.map
                                           ((List.Assoc.find
                                               ~equal:String.Caseless.equal)
                                              xs
                                              "Access-Control-Expose-Headers")
                                           ~f:String_.of_string)
            ?cacheControl:(Option.map
                             ((List.Assoc.find ~equal:String.Caseless.equal)
                                xs "Cache-Control") ~f:String_.of_string)
            ?contentSecurityPolicy:(Option.map
                                      ((List.Assoc.find
                                          ~equal:String.Caseless.equal) xs
                                         "Content-Security-Policy")
                                      ~f:String_.of_string)
            ?strictTransportSecurity:(Option.map
                                        ((List.Assoc.find
                                            ~equal:String.Caseless.equal) xs
                                           "Strict-Transport-Security")
                                        ~f:String_.of_string)
            ?xContentTypeOptions:(Option.map
                                    ((List.Assoc.find
                                        ~equal:String.Caseless.equal) xs
                                       "X-Content-Type-Options")
                                    ~f:String_.of_string)
            ?xFrameOptions:(Option.map
                              ((List.Assoc.find ~equal:String.Caseless.equal)
                                 xs "X-Frame-Options") ~f:String_.of_string)
            ())
      [@warning "-27"])
    let to_value x =
      structure_to_value
        [("Access-Control-Allow-Origin",
           (Option.map x.accessControlAllowOrigin ~f:String_.to_value));
        ("Access-Control-Expose-Headers",
          (Option.map x.accessControlExposeHeaders ~f:String_.to_value));
        ("Cache-Control", (Option.map x.cacheControl ~f:String_.to_value));
        ("Content-Security-Policy",
          (Option.map x.contentSecurityPolicy ~f:String_.to_value));
        ("Strict-Transport-Security",
          (Option.map x.strictTransportSecurity ~f:String_.to_value));
        ("X-Content-Type-Options",
          (Option.map x.xContentTypeOptions ~f:String_.to_value));
        ("X-Frame-Options", (Option.map x.xFrameOptions ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let xFrameOptions =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "X-Frame-Options") in
      let xContentTypeOptions =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "X-Content-Type-Options") in
      let strictTransportSecurity =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "Strict-Transport-Security") in
      let contentSecurityPolicy =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "Content-Security-Policy") in
      let cacheControl =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Cache-Control") in
      let accessControlExposeHeaders =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "Access-Control-Expose-Headers") in
      let accessControlAllowOrigin =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "Access-Control-Allow-Origin") in
      make ?xFrameOptions ?xContentTypeOptions ?strictTransportSecurity
        ?contentSecurityPolicy ?cacheControl ?accessControlExposeHeaders
        ?accessControlAllowOrigin ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let xFrameOptions = field_map json__ "xFrameOptions" String_.of_json in
      let xContentTypeOptions =
        field_map json__ "xContentTypeOptions" String_.of_json in
      let strictTransportSecurity =
        field_map json__ "strictTransportSecurity" String_.of_json in
      let contentSecurityPolicy =
        field_map json__ "contentSecurityPolicy" String_.of_json in
      let cacheControl = field_map json__ "cacheControl" String_.of_json in
      let accessControlExposeHeaders =
        field_map json__ "accessControlExposeHeaders" String_.of_json in
      let accessControlAllowOrigin =
        field_map json__ "accessControlAllowOrigin" String_.of_json in
      make ?xFrameOptions ?xContentTypeOptions ?strictTransportSecurity
        ?contentSecurityPolicy ?cacheControl ?accessControlExposeHeaders
        ?accessControlAllowOrigin ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Stops a replicated participant session."]
module StopParticipantReplicationRequest =
  struct
    type nonrec t =
      {
      sourceStageArn: StageArn.t
        [@ocaml.doc "ARN of the stage where the participant is publishing."];
      destinationStageArn: StageArn.t
        [@ocaml.doc
          "ARN of the stage where the participant has been replicated."];
      participantId: ParticipantId.t
        [@ocaml.doc
          "Participant ID of the publisher that has been replicated. This is assigned by IVS and returned by CreateParticipantToken or the jti (JWT ID) used to create a self signed token."]}
    let context_ = "StopParticipantReplicationRequest"
    let make ~sourceStageArn =
      fun ~destinationStageArn ->
        fun ~participantId ->
          fun () -> { sourceStageArn; destinationStageArn; participantId }
    let to_value x =
      structure_to_value
        [("sourceStageArn", (Some (StageArn.to_value x.sourceStageArn)));
        ("destinationStageArn",
          (Some (StageArn.to_value x.destinationStageArn)));
        ("participantId", (Some (ParticipantId.to_value x.participantId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let participantId =
        ParticipantId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "participantId") in
      let destinationStageArn =
        StageArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "destinationStageArn") in
      let sourceStageArn =
        StageArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sourceStageArn") in
      make ~participantId ~destinationStageArn ~sourceStageArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let participantId =
        field_map_exn json__ "participantId" ParticipantId.of_json in
      let destinationStageArn =
        field_map_exn json__ "destinationStageArn" StageArn.of_json in
      let sourceStageArn =
        field_map_exn json__ "sourceStageArn" StageArn.of_json in
      make ~participantId ~destinationStageArn ~sourceStageArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Stops a replicated participant session."]
module StopCompositionResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Stops and deletes a Composition resource. Any broadcast from the Composition resource is stopped."]
module StopCompositionRequest =
  struct
    type nonrec t =
      {
      arn: CompositionArn.t [@ocaml.doc "ARN of the Composition."]}
    let context_ = "StopCompositionRequest"
    let make ~arn = fun () -> { arn }
    let to_value x =
      structure_to_value [("arn", (Some (CompositionArn.to_value x.arn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        CompositionArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "arn") in
      make ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map_exn json__ "arn" CompositionArn.of_json in
      make ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Stops and deletes a Composition resource. Any broadcast from the Composition resource is stopped."]
module StartParticipantReplicationResponse =
  struct
    type nonrec t =
      {
      accessControlAllowOrigin: String_.t option
        [@ocaml.doc "See Access-Control-Allow-Origin in the MDN Web Docs."];
      accessControlExposeHeaders: String_.t option
        [@ocaml.doc "See Access-Control-Expose-Headers in the MDN Web Docs."];
      cacheControl: String_.t option
        [@ocaml.doc "See Cache-Control in the MDN Web Docs."];
      contentSecurityPolicy: String_.t option
        [@ocaml.doc "See Content-Security-Policy in the MDN Web Docs."];
      strictTransportSecurity: String_.t option
        [@ocaml.doc "See Strict-Transport-Security in the MDN Web Docs."];
      xContentTypeOptions: String_.t option
        [@ocaml.doc "See X-Content-Type-Options in the MDN Web Docs."];
      xFrameOptions: String_.t option
        [@ocaml.doc "See X-Frame-Options in the MDN Web Docs."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `PendingVerification of PendingVerification.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?accessControlAllowOrigin =
      fun ?accessControlExposeHeaders ->
        fun ?cacheControl ->
          fun ?contentSecurityPolicy ->
            fun ?strictTransportSecurity ->
              fun ?xContentTypeOptions ->
                fun ?xFrameOptions ->
                  fun () ->
                    {
                      accessControlAllowOrigin;
                      accessControlExposeHeaders;
                      cacheControl;
                      contentSecurityPolicy;
                      strictTransportSecurity;
                      xContentTypeOptions;
                      xFrameOptions
                    }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "PendingVerification" ->
          `PendingVerification (PendingVerification.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "PendingVerification" ->
          `PendingVerification (PendingVerification.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `PendingVerification e ->
          `Assoc
            [("error", (`String "PendingVerification"));
            ("details", (PendingVerification.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body =
      ((fun (xs, pipe) ->
          make
            ?accessControlAllowOrigin:(Option.map
                                         ((List.Assoc.find
                                             ~equal:String.Caseless.equal) xs
                                            "Access-Control-Allow-Origin")
                                         ~f:String_.of_string)
            ?accessControlExposeHeaders:(Option.map
                                           ((List.Assoc.find
                                               ~equal:String.Caseless.equal)
                                              xs
                                              "Access-Control-Expose-Headers")
                                           ~f:String_.of_string)
            ?cacheControl:(Option.map
                             ((List.Assoc.find ~equal:String.Caseless.equal)
                                xs "Cache-Control") ~f:String_.of_string)
            ?contentSecurityPolicy:(Option.map
                                      ((List.Assoc.find
                                          ~equal:String.Caseless.equal) xs
                                         "Content-Security-Policy")
                                      ~f:String_.of_string)
            ?strictTransportSecurity:(Option.map
                                        ((List.Assoc.find
                                            ~equal:String.Caseless.equal) xs
                                           "Strict-Transport-Security")
                                        ~f:String_.of_string)
            ?xContentTypeOptions:(Option.map
                                    ((List.Assoc.find
                                        ~equal:String.Caseless.equal) xs
                                       "X-Content-Type-Options")
                                    ~f:String_.of_string)
            ?xFrameOptions:(Option.map
                              ((List.Assoc.find ~equal:String.Caseless.equal)
                                 xs "X-Frame-Options") ~f:String_.of_string)
            ())
      [@warning "-27"])
    let to_value x =
      structure_to_value
        [("Access-Control-Allow-Origin",
           (Option.map x.accessControlAllowOrigin ~f:String_.to_value));
        ("Access-Control-Expose-Headers",
          (Option.map x.accessControlExposeHeaders ~f:String_.to_value));
        ("Cache-Control", (Option.map x.cacheControl ~f:String_.to_value));
        ("Content-Security-Policy",
          (Option.map x.contentSecurityPolicy ~f:String_.to_value));
        ("Strict-Transport-Security",
          (Option.map x.strictTransportSecurity ~f:String_.to_value));
        ("X-Content-Type-Options",
          (Option.map x.xContentTypeOptions ~f:String_.to_value));
        ("X-Frame-Options", (Option.map x.xFrameOptions ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let xFrameOptions =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "X-Frame-Options") in
      let xContentTypeOptions =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "X-Content-Type-Options") in
      let strictTransportSecurity =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "Strict-Transport-Security") in
      let contentSecurityPolicy =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "Content-Security-Policy") in
      let cacheControl =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Cache-Control") in
      let accessControlExposeHeaders =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "Access-Control-Expose-Headers") in
      let accessControlAllowOrigin =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "Access-Control-Allow-Origin") in
      make ?xFrameOptions ?xContentTypeOptions ?strictTransportSecurity
        ?contentSecurityPolicy ?cacheControl ?accessControlExposeHeaders
        ?accessControlAllowOrigin ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let xFrameOptions = field_map json__ "xFrameOptions" String_.of_json in
      let xContentTypeOptions =
        field_map json__ "xContentTypeOptions" String_.of_json in
      let strictTransportSecurity =
        field_map json__ "strictTransportSecurity" String_.of_json in
      let contentSecurityPolicy =
        field_map json__ "contentSecurityPolicy" String_.of_json in
      let cacheControl = field_map json__ "cacheControl" String_.of_json in
      let accessControlExposeHeaders =
        field_map json__ "accessControlExposeHeaders" String_.of_json in
      let accessControlAllowOrigin =
        field_map json__ "accessControlAllowOrigin" String_.of_json in
      make ?xFrameOptions ?xContentTypeOptions ?strictTransportSecurity
        ?contentSecurityPolicy ?cacheControl ?accessControlExposeHeaders
        ?accessControlAllowOrigin ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Starts replicating a publishing participant from a source stage to a destination stage."]
module StartParticipantReplicationRequest =
  struct
    type nonrec t =
      {
      sourceStageArn: StageArn.t
        [@ocaml.doc "ARN of the stage where the participant is publishing."];
      destinationStageArn: StageArn.t
        [@ocaml.doc
          "ARN of the stage to which the participant will be replicated."];
      participantId: ParticipantId.t
        [@ocaml.doc
          "Participant ID of the publisher that will be replicated. This is assigned by IVS and returned by CreateParticipantToken or the jti (JWT ID) used to create a self signed token."];
      reconnectWindowSeconds: ReconnectWindowSeconds.t option
        [@ocaml.doc
          "If the participant disconnects and then reconnects within the specified interval, replication will continue to be ACTIVE. Default: 0."];
      attributes: ParticipantAttributes.t option
        [@ocaml.doc
          "Application-provided attributes to set on the replicated participant in the destination stage. Map keys and values can contain UTF-8 encoded text. The maximum length of this field is 1 KB total. This field is exposed to all stage participants and should not be used for personally identifying, confidential, or sensitive information. These attributes are merged with any attributes set for this participant when creating the token. If there is overlap in keys, the values in these attributes are replaced."]}
    let context_ = "StartParticipantReplicationRequest"
    let make ?reconnectWindowSeconds =
      fun ?attributes ->
        fun ~sourceStageArn ->
          fun ~destinationStageArn ->
            fun ~participantId ->
              fun () ->
                {
                  reconnectWindowSeconds;
                  attributes;
                  sourceStageArn;
                  destinationStageArn;
                  participantId
                }
    let to_value x =
      structure_to_value
        [("sourceStageArn", (Some (StageArn.to_value x.sourceStageArn)));
        ("destinationStageArn",
          (Some (StageArn.to_value x.destinationStageArn)));
        ("participantId", (Some (ParticipantId.to_value x.participantId)));
        ("reconnectWindowSeconds",
          (Option.map x.reconnectWindowSeconds
             ~f:ReconnectWindowSeconds.to_value));
        ("attributes",
          (Option.map x.attributes ~f:ParticipantAttributes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributes =
        (Option.map ~f:ParticipantAttributes.of_xml)
          (Xml.child xml_arg0 "attributes") in
      let reconnectWindowSeconds =
        (Option.map ~f:ReconnectWindowSeconds.of_xml)
          (Xml.child xml_arg0 "reconnectWindowSeconds") in
      let participantId =
        ParticipantId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "participantId") in
      let destinationStageArn =
        StageArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "destinationStageArn") in
      let sourceStageArn =
        StageArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sourceStageArn") in
      make ?attributes ?reconnectWindowSeconds ~participantId
        ~destinationStageArn ~sourceStageArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributes =
        field_map json__ "attributes" ParticipantAttributes.of_json in
      let reconnectWindowSeconds =
        field_map json__ "reconnectWindowSeconds"
          ReconnectWindowSeconds.of_json in
      let participantId =
        field_map_exn json__ "participantId" ParticipantId.of_json in
      let destinationStageArn =
        field_map_exn json__ "destinationStageArn" StageArn.of_json in
      let sourceStageArn =
        field_map_exn json__ "sourceStageArn" StageArn.of_json in
      make ?attributes ?reconnectWindowSeconds ~participantId
        ~destinationStageArn ~sourceStageArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Starts replicating a publishing participant from a source stage to a destination stage."]
module StartCompositionResponse =
  struct
    type nonrec t =
      {
      composition: Composition.t option
        [@ocaml.doc "The Composition that was created."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `PendingVerification of PendingVerification.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?composition = fun () -> { composition }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "PendingVerification" ->
          `PendingVerification (PendingVerification.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "PendingVerification" ->
          `PendingVerification (PendingVerification.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `PendingVerification e ->
          `Assoc
            [("error", (`String "PendingVerification"));
            ("details", (PendingVerification.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("composition", (Option.map x.composition ~f:Composition.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let composition =
        (Option.map ~f:Composition.of_xml) (Xml.child xml_arg0 "composition") in
      make ?composition ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let composition = field_map json__ "composition" Composition.of_json in
      make ?composition ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Starts a Composition from a stage based on the configuration provided in the request. A Composition is an ephemeral resource that exists after this operation returns successfully. Composition stops and the resource is deleted: When StopComposition is called. After a 1-minute timeout, when all participants are disconnected from the stage. After a 1-minute timeout, if there are no participants in the stage when StartComposition is called. When broadcasting to the IVS channel fails and all retries are exhausted. When broadcasting is disconnected and all attempts to reconnect are exhausted."]
module StartCompositionRequest =
  struct
    type nonrec t =
      {
      stageArn: StageArn.t
        [@ocaml.doc "ARN of the stage to be used for compositing."];
      idempotencyToken: CompositionClientToken.t option
        [@ocaml.doc "Idempotency token."];
      layout: LayoutConfiguration.t option
        [@ocaml.doc "Layout object to configure composition parameters."];
      destinations: DestinationConfigurationList.t
        [@ocaml.doc "Array of destination configuration."];
      tags: Tags.t option
        [@ocaml.doc
          "Tags attached to the resource. Array of maps, each of the form string:string (key:value). See Best practices and strategies in Tagging AWS Resources and Tag Editor for details, including restrictions that apply to tags and \"Tag naming limits and requirements\"; Amazon IVS has no constraints on tags beyond what is documented there."]}
    let context_ = "StartCompositionRequest"
    let make ?idempotencyToken =
      fun ?layout ->
        fun ?tags ->
          fun ~stageArn ->
            fun ~destinations ->
              fun () ->
                { idempotencyToken; layout; tags; stageArn; destinations }
    let to_value x =
      structure_to_value
        [("stageArn", (Some (StageArn.to_value x.stageArn)));
        ("idempotencyToken",
          (Option.map x.idempotencyToken ~f:CompositionClientToken.to_value));
        ("layout", (Option.map x.layout ~f:LayoutConfiguration.to_value));
        ("destinations",
          (Some (DestinationConfigurationList.to_value x.destinations)));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let destinations =
        DestinationConfigurationList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "destinations") in
      let layout =
        (Option.map ~f:LayoutConfiguration.of_xml)
          (Xml.child xml_arg0 "layout") in
      let idempotencyToken =
        (Option.map ~f:CompositionClientToken.of_xml)
          (Xml.child xml_arg0 "idempotencyToken") in
      let stageArn =
        StageArn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "stageArn") in
      make ?tags ~destinations ?layout ?idempotencyToken ~stageArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" Tags.of_json in
      let destinations =
        field_map_exn json__ "destinations"
          DestinationConfigurationList.of_json in
      let layout = field_map json__ "layout" LayoutConfiguration.of_json in
      let idempotencyToken =
        field_map json__ "idempotencyToken" CompositionClientToken.of_json in
      let stageArn = field_map_exn json__ "stageArn" StageArn.of_json in
      make ?tags ~destinations ?layout ?idempotencyToken ~stageArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Starts a Composition from a stage based on the configuration provided in the request. A Composition is an ephemeral resource that exists after this operation returns successfully. Composition stops and the resource is deleted: When StopComposition is called. After a 1-minute timeout, when all participants are disconnected from the stage. After a 1-minute timeout, if there are no participants in the stage when StartComposition is called. When broadcasting to the IVS channel fails and all retries are exhausted. When broadcasting is disconnected and all attempts to reconnect are exhausted."]
module ListTagsForResourceResponse =
  struct
    type nonrec t =
      {
      tags: Tags.t option
        [@ocaml.doc
          "Tags attached to the resource. Array of maps, each of the form string:string (key:value)."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tags = fun () -> { tags }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value [("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.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" Tags.of_json in make ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets information about AWS tags for the specified ARN."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: ResourceArn.t
        [@ocaml.doc
          "The ARN of the resource to be retrieved. The ARN must be URL-encoded."]}
    let context_ = "ListTagsForResourceRequest"
    let make ~resourceArn = fun () -> { resourceArn }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (ResourceArn.to_value x.resourceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        ResourceArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceArn =
        field_map_exn json__ "resourceArn" ResourceArn.of_json in
      make ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets information about AWS tags for the specified ARN."]
module ListStorageConfigurationsResponse =
  struct
    type nonrec t =
      {
      storageConfigurations: StorageConfigurationSummaryList.t option
        [@ocaml.doc "List of the matching storage configurations."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "If there are more storage configurations than maxResults, use nextToken in the request to get the next set."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?storageConfigurations =
      fun ?nextToken -> fun () -> { storageConfigurations; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("storageConfigurations",
           (Option.map x.storageConfigurations
              ~f:StorageConfigurationSummaryList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let storageConfigurations =
        (Option.map ~f:StorageConfigurationSummaryList.of_xml)
          (Xml.child xml_arg0 "storageConfigurations") in
      make ?nextToken ?storageConfigurations ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" PaginationToken.of_json in
      let storageConfigurations =
        field_map json__ "storageConfigurations"
          StorageConfigurationSummaryList.of_json in
      make ?nextToken ?storageConfigurations ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets summary information about all storage configurations in your account, in the AWS region where the API request is processed."]
module ListStorageConfigurationsRequest =
  struct
    type nonrec t =
      {
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The first storage configuration to retrieve. This is used for pagination; see the nextToken response field."];
      maxResults: MaxStorageConfigurationResults.t option
        [@ocaml.doc
          "Maximum number of storage configurations to return. Default: your service quota or 100, whichever is smaller."]}
    let make ?nextToken =
      fun ?maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("nextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("maxResults",
          (Option.map x.maxResults ~f:MaxStorageConfigurationResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxStorageConfigurationResults.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      make ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "maxResults" MaxStorageConfigurationResults.of_json in
      let nextToken = field_map json__ "nextToken" PaginationToken.of_json in
      make ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets summary information about all storage configurations in your account, in the AWS region where the API request is processed."]
module ListStagesResponse =
  struct
    type nonrec t =
      {
      stages: StageSummaryList.t option
        [@ocaml.doc
          "List of the matching stages (summary information only)."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "If there are more stages than maxResults, use nextToken in the request to get the next set."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?stages = fun ?nextToken -> fun () -> { stages; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("stages", (Option.map x.stages ~f:StageSummaryList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let stages =
        (Option.map ~f:StageSummaryList.of_xml) (Xml.child xml_arg0 "stages") in
      make ?nextToken ?stages ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" PaginationToken.of_json in
      let stages = field_map json__ "stages" StageSummaryList.of_json in
      make ?nextToken ?stages ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets summary information about all stages in your account, in the AWS region where the API request is processed."]
module ListStagesRequest =
  struct
    type nonrec t =
      {
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The first stage to retrieve. This is used for pagination; see the nextToken response field."];
      maxResults: MaxStageResults.t option
        [@ocaml.doc "Maximum number of results to return. Default: 50."]}
    let make ?nextToken =
      fun ?maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("nextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxStageResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxStageResults.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      make ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" MaxStageResults.of_json in
      let nextToken = field_map json__ "nextToken" PaginationToken.of_json in
      make ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets summary information about all stages in your account, in the AWS region where the API request is processed."]
module ListStageSessionsResponse =
  struct
    type nonrec t =
      {
      stageSessions: StageSessionList.t option
        [@ocaml.doc "List of matching stage sessions."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "If there are more stage sessions than maxResults, use nextToken in the request to get the next set."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?stageSessions =
      fun ?nextToken -> fun () -> { stageSessions; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("stageSessions",
           (Option.map x.stageSessions ~f:StageSessionList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let stageSessions =
        (Option.map ~f:StageSessionList.of_xml)
          (Xml.child xml_arg0 "stageSessions") in
      make ?nextToken ?stageSessions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" PaginationToken.of_json in
      let stageSessions =
        field_map json__ "stageSessions" StageSessionList.of_json in
      make ?nextToken ?stageSessions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets all sessions for a specified stage."]
module ListStageSessionsRequest =
  struct
    type nonrec t =
      {
      stageArn: StageArn.t [@ocaml.doc "Stage ARN."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The first stage session to retrieve. This is used for pagination; see the nextToken response field."];
      maxResults: MaxStageSessionResults.t option
        [@ocaml.doc "Maximum number of results to return. Default: 50."]}
    let context_ = "ListStageSessionsRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~stageArn -> fun () -> { nextToken; maxResults; stageArn }
    let to_value x =
      structure_to_value
        [("stageArn", (Some (StageArn.to_value x.stageArn)));
        ("nextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("maxResults",
          (Option.map x.maxResults ~f:MaxStageSessionResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxStageSessionResults.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let stageArn =
        StageArn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "stageArn") in
      make ?maxResults ?nextToken ~stageArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "maxResults" MaxStageSessionResults.of_json in
      let nextToken = field_map json__ "nextToken" PaginationToken.of_json in
      let stageArn = field_map_exn json__ "stageArn" StageArn.of_json in
      make ?maxResults ?nextToken ~stageArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets all sessions for a specified stage."]
module ListPublicKeysResponse =
  struct
    type nonrec t =
      {
      publicKeys: PublicKeyList.t option
        [@ocaml.doc
          "List of the matching public keys (summary information only)."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "If there are more public keys than maxResults, use nextToken in the request to get the next set."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?publicKeys =
      fun ?nextToken -> fun () -> { publicKeys; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("publicKeys", (Option.map x.publicKeys ~f:PublicKeyList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let publicKeys =
        (Option.map ~f:PublicKeyList.of_xml)
          (Xml.child xml_arg0 "publicKeys") in
      make ?nextToken ?publicKeys ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" PaginationToken.of_json in
      let publicKeys = field_map json__ "publicKeys" PublicKeyList.of_json in
      make ?nextToken ?publicKeys ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets summary information about all public keys in your account, in the AWS region where the API request is processed."]
module ListPublicKeysRequest =
  struct
    type nonrec t =
      {
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The first public key to retrieve. This is used for pagination; see the nextToken response field."];
      maxResults: MaxPublicKeyResults.t option
        [@ocaml.doc "Maximum number of results to return. Default: 50."]}
    let make ?nextToken =
      fun ?maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("nextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("maxResults",
          (Option.map x.maxResults ~f:MaxPublicKeyResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxPublicKeyResults.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      make ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "maxResults" MaxPublicKeyResults.of_json in
      let nextToken = field_map json__ "nextToken" PaginationToken.of_json in
      make ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets summary information about all public keys in your account, in the AWS region where the API request is processed."]
module ListParticipantsResponse =
  struct
    type nonrec t =
      {
      participants: ParticipantList.t option
        [@ocaml.doc
          "List of the matching participants (summary information only)."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "If there are more participants than maxResults, use nextToken in the request to get the next set."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?participants =
      fun ?nextToken -> fun () -> { participants; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("participants",
           (Option.map x.participants ~f:ParticipantList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let participants =
        (Option.map ~f:ParticipantList.of_xml)
          (Xml.child xml_arg0 "participants") in
      make ?nextToken ?participants ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" PaginationToken.of_json in
      let participants =
        field_map json__ "participants" ParticipantList.of_json in
      make ?nextToken ?participants ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists all participants in a specified stage session."]
module ListParticipantsRequest =
  struct
    type nonrec t =
      {
      stageArn: StageArn.t [@ocaml.doc "Stage ARN."];
      sessionId: StageSessionId.t
        [@ocaml.doc "ID of the session within the stage."];
      filterByUserId: UserId.t option
        [@ocaml.doc
          "Filters the response list to match the specified user ID. Only one of filterByUserId, filterByPublished, filterByState, or filterByRecordingState can be provided per request. A userId is a customer-assigned name to help identify the token; this can be used to link a participant to a user in the customer\226\128\153s own systems."];
      filterByPublished: Published.t option
        [@ocaml.doc
          "Filters the response list to only show participants who published during the stage session. Only one of filterByUserId, filterByPublished, filterByState, or filterByRecordingState can be provided per request."];
      filterByState: ParticipantState.t option
        [@ocaml.doc
          "Filters the response list to only show participants in the specified state. Only one of filterByUserId, filterByPublished, filterByState, or filterByRecordingState can be provided per request."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The first participant to retrieve. This is used for pagination; see the nextToken response field."];
      maxResults: MaxParticipantResults.t option
        [@ocaml.doc "Maximum number of results to return. Default: 50."];
      filterByRecordingState:
        ParticipantRecordingFilterByRecordingState.t option
        [@ocaml.doc
          "Filters the response list to only show participants with the specified recording state. Only one of filterByUserId, filterByPublished, filterByState, or filterByRecordingState can be provided per request."]}
    let context_ = "ListParticipantsRequest"
    let make ?filterByUserId =
      fun ?filterByPublished ->
        fun ?filterByState ->
          fun ?nextToken ->
            fun ?maxResults ->
              fun ?filterByRecordingState ->
                fun ~stageArn ->
                  fun ~sessionId ->
                    fun () ->
                      {
                        filterByUserId;
                        filterByPublished;
                        filterByState;
                        nextToken;
                        maxResults;
                        filterByRecordingState;
                        stageArn;
                        sessionId
                      }
    let to_value x =
      structure_to_value
        [("stageArn", (Some (StageArn.to_value x.stageArn)));
        ("sessionId", (Some (StageSessionId.to_value x.sessionId)));
        ("filterByUserId", (Option.map x.filterByUserId ~f:UserId.to_value));
        ("filterByPublished",
          (Option.map x.filterByPublished ~f:Published.to_value));
        ("filterByState",
          (Option.map x.filterByState ~f:ParticipantState.to_value));
        ("nextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("maxResults",
          (Option.map x.maxResults ~f:MaxParticipantResults.to_value));
        ("filterByRecordingState",
          (Option.map x.filterByRecordingState
             ~f:ParticipantRecordingFilterByRecordingState.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let filterByRecordingState =
        (Option.map ~f:ParticipantRecordingFilterByRecordingState.of_xml)
          (Xml.child xml_arg0 "filterByRecordingState") in
      let maxResults =
        (Option.map ~f:MaxParticipantResults.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let filterByState =
        (Option.map ~f:ParticipantState.of_xml)
          (Xml.child xml_arg0 "filterByState") in
      let filterByPublished =
        (Option.map ~f:Published.of_xml)
          (Xml.child xml_arg0 "filterByPublished") in
      let filterByUserId =
        (Option.map ~f:UserId.of_xml) (Xml.child xml_arg0 "filterByUserId") in
      let sessionId =
        StageSessionId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sessionId") in
      let stageArn =
        StageArn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "stageArn") in
      make ?filterByRecordingState ?maxResults ?nextToken ?filterByState
        ?filterByPublished ?filterByUserId ~sessionId ~stageArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let filterByRecordingState =
        field_map json__ "filterByRecordingState"
          ParticipantRecordingFilterByRecordingState.of_json in
      let maxResults =
        field_map json__ "maxResults" MaxParticipantResults.of_json in
      let nextToken = field_map json__ "nextToken" PaginationToken.of_json in
      let filterByState =
        field_map json__ "filterByState" ParticipantState.of_json in
      let filterByPublished =
        field_map json__ "filterByPublished" Published.of_json in
      let filterByUserId = field_map json__ "filterByUserId" UserId.of_json in
      let sessionId = field_map_exn json__ "sessionId" StageSessionId.of_json in
      let stageArn = field_map_exn json__ "stageArn" StageArn.of_json in
      make ?filterByRecordingState ?maxResults ?nextToken ?filterByState
        ?filterByPublished ?filterByUserId ~sessionId ~stageArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists all participants in a specified stage session."]
module ListParticipantReplicasResponse =
  struct
    type nonrec t =
      {
      replicas: ParticipantReplicaList.t option
        [@ocaml.doc "List of all participant replicas."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "If there are more participants than maxResults, use nextToken in the request to get the next set."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?replicas = fun ?nextToken -> fun () -> { replicas; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("replicas",
           (Option.map x.replicas ~f:ParticipantReplicaList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let replicas =
        (Option.map ~f:ParticipantReplicaList.of_xml)
          (Xml.child xml_arg0 "replicas") in
      make ?nextToken ?replicas ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" PaginationToken.of_json in
      let replicas =
        field_map json__ "replicas" ParticipantReplicaList.of_json in
      make ?nextToken ?replicas ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all the replicas for a participant from a source stage."]
module ListParticipantReplicasRequest =
  struct
    type nonrec t =
      {
      sourceStageArn: StageArn.t
        [@ocaml.doc "ARN of the stage where the participant is publishing."];
      participantId: ParticipantId.t
        [@ocaml.doc
          "Participant ID of the publisher that has been replicated. This is assigned by IVS and returned by CreateParticipantToken or the jti (JWT ID) used to create a self signed token."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The first participant to retrieve. This is used for pagination; see the nextToken response field."];
      maxResults: MaxParticipantReplicaResults.t option
        [@ocaml.doc "Maximum number of results to return. Default: 50."]}
    let context_ = "ListParticipantReplicasRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~sourceStageArn ->
          fun ~participantId ->
            fun () ->
              { nextToken; maxResults; sourceStageArn; participantId }
    let to_value x =
      structure_to_value
        [("sourceStageArn", (Some (StageArn.to_value x.sourceStageArn)));
        ("participantId", (Some (ParticipantId.to_value x.participantId)));
        ("nextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("maxResults",
          (Option.map x.maxResults ~f:MaxParticipantReplicaResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxParticipantReplicaResults.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let participantId =
        ParticipantId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "participantId") in
      let sourceStageArn =
        StageArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sourceStageArn") in
      make ?maxResults ?nextToken ~participantId ~sourceStageArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "maxResults" MaxParticipantReplicaResults.of_json in
      let nextToken = field_map json__ "nextToken" PaginationToken.of_json in
      let participantId =
        field_map_exn json__ "participantId" ParticipantId.of_json in
      let sourceStageArn =
        field_map_exn json__ "sourceStageArn" StageArn.of_json in
      make ?maxResults ?nextToken ~participantId ~sourceStageArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all the replicas for a participant from a source stage."]
module ListParticipantEventsResponse =
  struct
    type nonrec t =
      {
      events: EventList.t option [@ocaml.doc "List of the matching events."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "If there are more events than maxResults, use nextToken in the request to get the next set."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?events = fun ?nextToken -> fun () -> { events; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("events", (Option.map x.events ~f:EventList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let events =
        (Option.map ~f:EventList.of_xml) (Xml.child xml_arg0 "events") in
      make ?nextToken ?events ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" PaginationToken.of_json in
      let events = field_map json__ "events" EventList.of_json in
      make ?nextToken ?events ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists events for a specified participant that occurred during a specified stage session."]
module ListParticipantEventsRequest =
  struct
    type nonrec t =
      {
      stageArn: StageArn.t [@ocaml.doc "Stage ARN."];
      sessionId: StageSessionId.t
        [@ocaml.doc "ID of a session within the stage."];
      participantId: ParticipantId.t
        [@ocaml.doc
          "Unique identifier for this participant. This is assigned by IVS and returned by CreateParticipantToken."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The first participant event to retrieve. This is used for pagination; see the nextToken response field."];
      maxResults: MaxParticipantEventResults.t option
        [@ocaml.doc "Maximum number of results to return. Default: 50."]}
    let context_ = "ListParticipantEventsRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~stageArn ->
          fun ~sessionId ->
            fun ~participantId ->
              fun () ->
                { nextToken; maxResults; stageArn; sessionId; participantId }
    let to_value x =
      structure_to_value
        [("stageArn", (Some (StageArn.to_value x.stageArn)));
        ("sessionId", (Some (StageSessionId.to_value x.sessionId)));
        ("participantId", (Some (ParticipantId.to_value x.participantId)));
        ("nextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("maxResults",
          (Option.map x.maxResults ~f:MaxParticipantEventResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxParticipantEventResults.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let participantId =
        ParticipantId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "participantId") in
      let sessionId =
        StageSessionId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sessionId") in
      let stageArn =
        StageArn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "stageArn") in
      make ?maxResults ?nextToken ~participantId ~sessionId ~stageArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "maxResults" MaxParticipantEventResults.of_json in
      let nextToken = field_map json__ "nextToken" PaginationToken.of_json in
      let participantId =
        field_map_exn json__ "participantId" ParticipantId.of_json in
      let sessionId = field_map_exn json__ "sessionId" StageSessionId.of_json in
      let stageArn = field_map_exn json__ "stageArn" StageArn.of_json in
      make ?maxResults ?nextToken ~participantId ~sessionId ~stageArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists events for a specified participant that occurred during a specified stage session."]
module ListIngestConfigurationsResponse =
  struct
    type nonrec t =
      {
      ingestConfigurations: IngestConfigurationList.t option
        [@ocaml.doc
          "List of the matching ingest configurations (summary information only)."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "If there are more IngestConfigurations than maxResults, use nextToken in the request to get the next set."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?ingestConfigurations =
      fun ?nextToken -> fun () -> { ingestConfigurations; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ingestConfigurations",
           (Option.map x.ingestConfigurations
              ~f:IngestConfigurationList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let ingestConfigurations =
        (Option.map ~f:IngestConfigurationList.of_xml)
          (Xml.child xml_arg0 "ingestConfigurations") in
      make ?nextToken ?ingestConfigurations ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" PaginationToken.of_json in
      let ingestConfigurations =
        field_map json__ "ingestConfigurations"
          IngestConfigurationList.of_json in
      make ?nextToken ?ingestConfigurations ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all IngestConfigurations in your account, in the AWS region where the API request is processed."]
module ListIngestConfigurationsRequest =
  struct
    type nonrec t =
      {
      filterByStageArn: StageArn.t option
        [@ocaml.doc
          "Filters the response list to match the specified stage ARN. Only one filter (by stage ARN or by state) can be used at a time."];
      filterByState: IngestConfigurationState.t option
        [@ocaml.doc
          "Filters the response list to match the specified state. Only one filter (by stage ARN or by state) can be used at a time."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The first IngestConfiguration to retrieve. This is used for pagination; see the nextToken response field."];
      maxResults: MaxIngestConfigurationResults.t option
        [@ocaml.doc "Maximum number of results to return. Default: 50."]}
    let make ?filterByStageArn =
      fun ?filterByState ->
        fun ?nextToken ->
          fun ?maxResults ->
            fun () ->
              { filterByStageArn; filterByState; nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("filterByStageArn",
           (Option.map x.filterByStageArn ~f:StageArn.to_value));
        ("filterByState",
          (Option.map x.filterByState ~f:IngestConfigurationState.to_value));
        ("nextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("maxResults",
          (Option.map x.maxResults ~f:MaxIngestConfigurationResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxIngestConfigurationResults.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let filterByState =
        (Option.map ~f:IngestConfigurationState.of_xml)
          (Xml.child xml_arg0 "filterByState") in
      let filterByStageArn =
        (Option.map ~f:StageArn.of_xml)
          (Xml.child xml_arg0 "filterByStageArn") in
      make ?maxResults ?nextToken ?filterByState ?filterByStageArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "maxResults" MaxIngestConfigurationResults.of_json in
      let nextToken = field_map json__ "nextToken" PaginationToken.of_json in
      let filterByState =
        field_map json__ "filterByState" IngestConfigurationState.of_json in
      let filterByStageArn =
        field_map json__ "filterByStageArn" StageArn.of_json in
      make ?maxResults ?nextToken ?filterByState ?filterByStageArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all IngestConfigurations in your account, in the AWS region where the API request is processed."]
module ListEncoderConfigurationsResponse =
  struct
    type nonrec t =
      {
      encoderConfigurations: EncoderConfigurationSummaryList.t option
        [@ocaml.doc
          "List of the matching EncoderConfigurations (summary information only)."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "If there are more encoder configurations than maxResults, use nextToken in the request to get the next set."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?encoderConfigurations =
      fun ?nextToken -> fun () -> { encoderConfigurations; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("encoderConfigurations",
           (Option.map x.encoderConfigurations
              ~f:EncoderConfigurationSummaryList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let encoderConfigurations =
        (Option.map ~f:EncoderConfigurationSummaryList.of_xml)
          (Xml.child xml_arg0 "encoderConfigurations") in
      make ?nextToken ?encoderConfigurations ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" PaginationToken.of_json in
      let encoderConfigurations =
        field_map json__ "encoderConfigurations"
          EncoderConfigurationSummaryList.of_json in
      make ?nextToken ?encoderConfigurations ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets summary information about all EncoderConfigurations in your account, in the AWS region where the API request is processed."]
module ListEncoderConfigurationsRequest =
  struct
    type nonrec t =
      {
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The first encoder configuration to retrieve. This is used for pagination; see the nextToken response field."];
      maxResults: MaxEncoderConfigurationResults.t option
        [@ocaml.doc "Maximum number of results to return. Default: 100."]}
    let make ?nextToken =
      fun ?maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("nextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("maxResults",
          (Option.map x.maxResults ~f:MaxEncoderConfigurationResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxEncoderConfigurationResults.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      make ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "maxResults" MaxEncoderConfigurationResults.of_json in
      let nextToken = field_map json__ "nextToken" PaginationToken.of_json in
      make ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets summary information about all EncoderConfigurations in your account, in the AWS region where the API request is processed."]
module ListCompositionsResponse =
  struct
    type nonrec t =
      {
      compositions: CompositionSummaryList.t option
        [@ocaml.doc
          "List of the matching Compositions (summary information only)."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "If there are more compositions than maxResults, use nextToken in the request to get the next set."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?compositions =
      fun ?nextToken -> fun () -> { compositions; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("compositions",
           (Option.map x.compositions ~f:CompositionSummaryList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let compositions =
        (Option.map ~f:CompositionSummaryList.of_xml)
          (Xml.child xml_arg0 "compositions") in
      make ?nextToken ?compositions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" PaginationToken.of_json in
      let compositions =
        field_map json__ "compositions" CompositionSummaryList.of_json in
      make ?nextToken ?compositions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets summary information about all Compositions in your account, in the AWS region where the API request is processed."]
module ListCompositionsRequest =
  struct
    type nonrec t =
      {
      filterByStageArn: StageArn.t option
        [@ocaml.doc
          "Filters the Composition list to match the specified Stage ARN."];
      filterByEncoderConfigurationArn: EncoderConfigurationArn.t option
        [@ocaml.doc
          "Filters the Composition list to match the specified EncoderConfiguration attached to at least one of its output."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The first Composition to retrieve. This is used for pagination; see the nextToken response field."];
      maxResults: MaxCompositionResults.t option
        [@ocaml.doc "Maximum number of results to return. Default: 100."]}
    let make ?filterByStageArn =
      fun ?filterByEncoderConfigurationArn ->
        fun ?nextToken ->
          fun ?maxResults ->
            fun () ->
              {
                filterByStageArn;
                filterByEncoderConfigurationArn;
                nextToken;
                maxResults
              }
    let to_value x =
      structure_to_value
        [("filterByStageArn",
           (Option.map x.filterByStageArn ~f:StageArn.to_value));
        ("filterByEncoderConfigurationArn",
          (Option.map x.filterByEncoderConfigurationArn
             ~f:EncoderConfigurationArn.to_value));
        ("nextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("maxResults",
          (Option.map x.maxResults ~f:MaxCompositionResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxCompositionResults.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let filterByEncoderConfigurationArn =
        (Option.map ~f:EncoderConfigurationArn.of_xml)
          (Xml.child xml_arg0 "filterByEncoderConfigurationArn") in
      let filterByStageArn =
        (Option.map ~f:StageArn.of_xml)
          (Xml.child xml_arg0 "filterByStageArn") in
      make ?maxResults ?nextToken ?filterByEncoderConfigurationArn
        ?filterByStageArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "maxResults" MaxCompositionResults.of_json in
      let nextToken = field_map json__ "nextToken" PaginationToken.of_json in
      let filterByEncoderConfigurationArn =
        field_map json__ "filterByEncoderConfigurationArn"
          EncoderConfigurationArn.of_json in
      let filterByStageArn =
        field_map json__ "filterByStageArn" StageArn.of_json in
      make ?maxResults ?nextToken ?filterByEncoderConfigurationArn
        ?filterByStageArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets summary information about all Compositions in your account, in the AWS region where the API request is processed."]
module ImportPublicKeyResponse =
  struct
    type nonrec t =
      {
      publicKey: PublicKey.t option
        [@ocaml.doc "The public key that was imported."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `PendingVerification of PendingVerification.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?publicKey = fun () -> { publicKey }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "PendingVerification" ->
          `PendingVerification (PendingVerification.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "PendingVerification" ->
          `PendingVerification (PendingVerification.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `PendingVerification e ->
          `Assoc
            [("error", (`String "PendingVerification"));
            ("details", (PendingVerification.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("publicKey", (Option.map x.publicKey ~f:PublicKey.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let publicKey =
        (Option.map ~f:PublicKey.of_xml) (Xml.child xml_arg0 "publicKey") in
      make ?publicKey ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let publicKey = field_map json__ "publicKey" PublicKey.of_json in
      make ?publicKey ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Import a public key to be used for signing stage participant tokens."]
module ImportPublicKeyRequest =
  struct
    type nonrec t =
      {
      publicKeyMaterial: PublicKeyMaterial.t
        [@ocaml.doc "The content of the public key to be imported."];
      name: PublicKeyName.t option
        [@ocaml.doc "Name of the public key to be imported."];
      tags: Tags.t option
        [@ocaml.doc
          "Tags attached to the resource. Array of maps, each of the form string:string (key:value). See Best practices and strategies in Tagging AWS Resources and Tag Editor for details, including restrictions that apply to tags and \"Tag naming limits and requirements\"; Amazon IVS has no constraints on tags beyond what is documented there."]}
    let context_ = "ImportPublicKeyRequest"
    let make ?name =
      fun ?tags ->
        fun ~publicKeyMaterial -> fun () -> { name; tags; publicKeyMaterial }
    let to_value x =
      structure_to_value
        [("publicKeyMaterial",
           (Some (PublicKeyMaterial.to_value x.publicKeyMaterial)));
        ("name", (Option.map x.name ~f:PublicKeyName.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let name =
        (Option.map ~f:PublicKeyName.of_xml) (Xml.child xml_arg0 "name") in
      let publicKeyMaterial =
        PublicKeyMaterial.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "publicKeyMaterial") in
      make ?tags ?name ~publicKeyMaterial ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" Tags.of_json in
      let name = field_map json__ "name" PublicKeyName.of_json in
      let publicKeyMaterial =
        field_map_exn json__ "publicKeyMaterial" PublicKeyMaterial.of_json in
      make ?tags ?name ~publicKeyMaterial ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Import a public key to be used for signing stage participant tokens."]
module GetStorageConfigurationResponse =
  struct
    type nonrec t =
      {
      storageConfiguration: StorageConfiguration.t option
        [@ocaml.doc "The StorageConfiguration that was returned."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?storageConfiguration = fun () -> { storageConfiguration }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("storageConfiguration",
           (Option.map x.storageConfiguration
              ~f:StorageConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let storageConfiguration =
        (Option.map ~f:StorageConfiguration.of_xml)
          (Xml.child xml_arg0 "storageConfiguration") in
      make ?storageConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let storageConfiguration =
        field_map json__ "storageConfiguration" StorageConfiguration.of_json in
      make ?storageConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets the storage configuration for the specified ARN."]
module GetStorageConfigurationRequest =
  struct
    type nonrec t =
      {
      arn: StorageConfigurationArn.t
        [@ocaml.doc "ARN of the storage configuration to be retrieved."]}
    let context_ = "GetStorageConfigurationRequest"
    let make ~arn = fun () -> { arn }
    let to_value x =
      structure_to_value
        [("arn", (Some (StorageConfigurationArn.to_value x.arn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        StorageConfigurationArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "arn") in
      make ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map_exn json__ "arn" StorageConfigurationArn.of_json in
      make ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets the storage configuration for the specified ARN."]
module GetStageSessionResponse =
  struct
    type nonrec t =
      {
      stageSession: StageSession.t option
        [@ocaml.doc "The stage session that is returned."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?stageSession = fun () -> { stageSession }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("stageSession",
           (Option.map x.stageSession ~f:StageSession.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let stageSession =
        (Option.map ~f:StageSession.of_xml)
          (Xml.child xml_arg0 "stageSession") in
      make ?stageSession ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let stageSession = field_map json__ "stageSession" StageSession.of_json in
      make ?stageSession ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets information for the specified stage session."]
module GetStageSessionRequest =
  struct
    type nonrec t =
      {
      stageArn: StageArn.t
        [@ocaml.doc
          "ARN of the stage for which the information is to be retrieved."];
      sessionId: StageSessionId.t
        [@ocaml.doc "ID of a session within the stage."]}
    let context_ = "GetStageSessionRequest"
    let make ~stageArn = fun ~sessionId -> fun () -> { stageArn; sessionId }
    let to_value x =
      structure_to_value
        [("stageArn", (Some (StageArn.to_value x.stageArn)));
        ("sessionId", (Some (StageSessionId.to_value x.sessionId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sessionId =
        StageSessionId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sessionId") in
      let stageArn =
        StageArn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "stageArn") in
      make ~sessionId ~stageArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sessionId = field_map_exn json__ "sessionId" StageSessionId.of_json in
      let stageArn = field_map_exn json__ "stageArn" StageArn.of_json in
      make ~sessionId ~stageArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets information for the specified stage session."]
module GetStageResponse =
  struct
    type nonrec t =
      {
      stage: Stage.t option [@ocaml.doc "The stage that is returned."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?stage = fun () -> { stage }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value [("stage", (Option.map x.stage ~f:Stage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let stage = (Option.map ~f:Stage.of_xml) (Xml.child xml_arg0 "stage") in
      make ?stage ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let stage = field_map json__ "stage" Stage.of_json in make ?stage ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets information for the specified stage."]
module GetStageRequest =
  struct
    type nonrec t =
      {
      arn: StageArn.t
        [@ocaml.doc
          "ARN of the stage for which the information is to be retrieved."]}
    let context_ = "GetStageRequest"
    let make ~arn = fun () -> { arn }
    let to_value x =
      structure_to_value [("arn", (Some (StageArn.to_value x.arn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        StageArn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "arn") in
      make ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map_exn json__ "arn" StageArn.of_json in make ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets information for the specified stage."]
module GetPublicKeyResponse =
  struct
    type nonrec t =
      {
      publicKey: PublicKey.t option
        [@ocaml.doc "The public key that is returned."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?publicKey = fun () -> { publicKey }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("publicKey", (Option.map x.publicKey ~f:PublicKey.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let publicKey =
        (Option.map ~f:PublicKey.of_xml) (Xml.child xml_arg0 "publicKey") in
      make ?publicKey ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let publicKey = field_map json__ "publicKey" PublicKey.of_json in
      make ?publicKey ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets information for the specified public key."]
module GetPublicKeyRequest =
  struct
    type nonrec t =
      {
      arn: PublicKeyArn.t
        [@ocaml.doc
          "ARN of the public key for which the information is to be retrieved."]}
    let context_ = "GetPublicKeyRequest"
    let make ~arn = fun () -> { arn }
    let to_value x =
      structure_to_value [("arn", (Some (PublicKeyArn.to_value x.arn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        PublicKeyArn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "arn") in
      make ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map_exn json__ "arn" PublicKeyArn.of_json in
      make ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets information for the specified public key."]
module GetParticipantResponse =
  struct
    type nonrec t =
      {
      participant: Participant.t option
        [@ocaml.doc "The participant that is returned."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?participant = fun () -> { participant }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("participant", (Option.map x.participant ~f:Participant.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let participant =
        (Option.map ~f:Participant.of_xml) (Xml.child xml_arg0 "participant") in
      make ?participant ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let participant = field_map json__ "participant" Participant.of_json in
      make ?participant ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets information about the specified participant token."]
module GetParticipantRequest =
  struct
    type nonrec t =
      {
      stageArn: StageArn.t [@ocaml.doc "Stage ARN."];
      sessionId: StageSessionId.t
        [@ocaml.doc "ID of a session within the stage."];
      participantId: ParticipantId.t
        [@ocaml.doc
          "Unique identifier for the participant. This is assigned by IVS and returned by CreateParticipantToken."]}
    let context_ = "GetParticipantRequest"
    let make ~stageArn =
      fun ~sessionId ->
        fun ~participantId ->
          fun () -> { stageArn; sessionId; participantId }
    let to_value x =
      structure_to_value
        [("stageArn", (Some (StageArn.to_value x.stageArn)));
        ("sessionId", (Some (StageSessionId.to_value x.sessionId)));
        ("participantId", (Some (ParticipantId.to_value x.participantId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let participantId =
        ParticipantId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "participantId") in
      let sessionId =
        StageSessionId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sessionId") in
      let stageArn =
        StageArn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "stageArn") in
      make ~participantId ~sessionId ~stageArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let participantId =
        field_map_exn json__ "participantId" ParticipantId.of_json in
      let sessionId = field_map_exn json__ "sessionId" StageSessionId.of_json in
      let stageArn = field_map_exn json__ "stageArn" StageArn.of_json in
      make ~participantId ~sessionId ~stageArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets information about the specified participant token."]
module GetIngestConfigurationResponse =
  struct
    type nonrec t =
      {
      ingestConfiguration: IngestConfiguration.t option
        [@ocaml.doc "The IngestConfiguration that was returned."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?ingestConfiguration = fun () -> { ingestConfiguration }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ingestConfiguration",
           (Option.map x.ingestConfiguration ~f:IngestConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ingestConfiguration =
        (Option.map ~f:IngestConfiguration.of_xml)
          (Xml.child xml_arg0 "ingestConfiguration") in
      make ?ingestConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ingestConfiguration =
        field_map json__ "ingestConfiguration" IngestConfiguration.of_json in
      make ?ingestConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets information about the specified IngestConfiguration."]
module GetIngestConfigurationRequest =
  struct
    type nonrec t =
      {
      arn: IngestConfigurationArn.t
        [@ocaml.doc
          "ARN of the ingest for which the information is to be retrieved."]}
    let context_ = "GetIngestConfigurationRequest"
    let make ~arn = fun () -> { arn }
    let to_value x =
      structure_to_value
        [("arn", (Some (IngestConfigurationArn.to_value x.arn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        IngestConfigurationArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "arn") in
      make ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map_exn json__ "arn" IngestConfigurationArn.of_json in
      make ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets information about the specified IngestConfiguration."]
module GetEncoderConfigurationResponse =
  struct
    type nonrec t =
      {
      encoderConfiguration: EncoderConfiguration.t option
        [@ocaml.doc "The EncoderConfiguration that was returned."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?encoderConfiguration = fun () -> { encoderConfiguration }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("encoderConfiguration",
           (Option.map x.encoderConfiguration
              ~f:EncoderConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let encoderConfiguration =
        (Option.map ~f:EncoderConfiguration.of_xml)
          (Xml.child xml_arg0 "encoderConfiguration") in
      make ?encoderConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let encoderConfiguration =
        field_map json__ "encoderConfiguration" EncoderConfiguration.of_json in
      make ?encoderConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets information about the specified EncoderConfiguration resource."]
module GetEncoderConfigurationRequest =
  struct
    type nonrec t =
      {
      arn: EncoderConfigurationArn.t
        [@ocaml.doc "ARN of the EncoderConfiguration resource."]}
    let context_ = "GetEncoderConfigurationRequest"
    let make ~arn = fun () -> { arn }
    let to_value x =
      structure_to_value
        [("arn", (Some (EncoderConfigurationArn.to_value x.arn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        EncoderConfigurationArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "arn") in
      make ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map_exn json__ "arn" EncoderConfigurationArn.of_json in
      make ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets information about the specified EncoderConfiguration resource."]
module GetCompositionResponse =
  struct
    type nonrec t =
      {
      composition: Composition.t option
        [@ocaml.doc "The Composition that was returned."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?composition = fun () -> { composition }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("composition", (Option.map x.composition ~f:Composition.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let composition =
        (Option.map ~f:Composition.of_xml) (Xml.child xml_arg0 "composition") in
      make ?composition ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let composition = field_map json__ "composition" Composition.of_json in
      make ?composition ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Get information about the specified Composition resource."]
module GetCompositionRequest =
  struct
    type nonrec t =
      {
      arn: CompositionArn.t [@ocaml.doc "ARN of the Composition resource."]}
    let context_ = "GetCompositionRequest"
    let make ~arn = fun () -> { arn }
    let to_value x =
      structure_to_value [("arn", (Some (CompositionArn.to_value x.arn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        CompositionArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "arn") in
      make ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map_exn json__ "arn" CompositionArn.of_json in
      make ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Get information about the specified Composition resource."]
module DisconnectParticipantResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `PendingVerification of PendingVerification.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "PendingVerification" ->
          `PendingVerification (PendingVerification.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "PendingVerification" ->
          `PendingVerification (PendingVerification.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `PendingVerification e ->
          `Assoc
            [("error", (`String "PendingVerification"));
            ("details", (PendingVerification.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disconnects a specified participant from a specified stage. If the participant is publishing using an IngestConfiguration, DisconnectParticipant also updates the stageArn in the IngestConfiguration to be an empty string."]
module DisconnectParticipantRequest =
  struct
    type nonrec t =
      {
      stageArn: StageArn.t
        [@ocaml.doc "ARN of the stage to which the participant is attached."];
      participantId: ParticipantTokenId.t
        [@ocaml.doc
          "Identifier of the participant to be disconnected. IVS assigns this; it is returned by CreateParticipantToken (for streams using WebRTC ingest) or CreateIngestConfiguration (for streams using RTMP ingest)."];
      reason: DisconnectParticipantReason.t option
        [@ocaml.doc
          "Description of why this participant is being disconnected."]}
    let context_ = "DisconnectParticipantRequest"
    let make ?reason =
      fun ~stageArn ->
        fun ~participantId -> fun () -> { reason; stageArn; participantId }
    let to_value x =
      structure_to_value
        [("stageArn", (Some (StageArn.to_value x.stageArn)));
        ("participantId",
          (Some (ParticipantTokenId.to_value x.participantId)));
        ("reason",
          (Option.map x.reason ~f:DisconnectParticipantReason.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reason =
        (Option.map ~f:DisconnectParticipantReason.of_xml)
          (Xml.child xml_arg0 "reason") in
      let participantId =
        ParticipantTokenId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "participantId") in
      let stageArn =
        StageArn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "stageArn") in
      make ?reason ~participantId ~stageArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reason =
        field_map json__ "reason" DisconnectParticipantReason.of_json in
      let participantId =
        field_map_exn json__ "participantId" ParticipantTokenId.of_json in
      let stageArn = field_map_exn json__ "stageArn" StageArn.of_json in
      make ?reason ~participantId ~stageArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disconnects a specified participant from a specified stage. If the participant is publishing using an IngestConfiguration, DisconnectParticipant also updates the stageArn in the IngestConfiguration to be an empty string."]
module DeleteStorageConfigurationResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the storage configuration for the specified ARN. If you try to delete a storage configuration that is used by a Composition, you will get an error (409 ConflictException). To avoid this, for all Compositions that reference the storage configuration, first use StopComposition and wait for it to complete, then use DeleteStorageConfiguration."]
module DeleteStorageConfigurationRequest =
  struct
    type nonrec t =
      {
      arn: StorageConfigurationArn.t
        [@ocaml.doc "ARN of the storage configuration to be deleted."]}
    let context_ = "DeleteStorageConfigurationRequest"
    let make ~arn = fun () -> { arn }
    let to_value x =
      structure_to_value
        [("arn", (Some (StorageConfigurationArn.to_value x.arn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        StorageConfigurationArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "arn") in
      make ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map_exn json__ "arn" StorageConfigurationArn.of_json in
      make ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the storage configuration for the specified ARN. If you try to delete a storage configuration that is used by a Composition, you will get an error (409 ConflictException). To avoid this, for all Compositions that reference the storage configuration, first use StopComposition and wait for it to complete, then use DeleteStorageConfiguration."]
module DeleteStageResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `PendingVerification of PendingVerification.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "PendingVerification" ->
          `PendingVerification (PendingVerification.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "PendingVerification" ->
          `PendingVerification (PendingVerification.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `PendingVerification e ->
          `Assoc
            [("error", (`String "PendingVerification"));
            ("details", (PendingVerification.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Shuts down and deletes the specified stage (disconnecting all participants). This operation also removes the stageArn from the associated IngestConfiguration, if there are participants using the IngestConfiguration to publish to the stage."]
module DeleteStageRequest =
  struct
    type nonrec t =
      {
      arn: StageArn.t [@ocaml.doc "ARN of the stage to be deleted."]}
    let context_ = "DeleteStageRequest"
    let make ~arn = fun () -> { arn }
    let to_value x =
      structure_to_value [("arn", (Some (StageArn.to_value x.arn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        StageArn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "arn") in
      make ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map_exn json__ "arn" StageArn.of_json in make ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Shuts down and deletes the specified stage (disconnecting all participants). This operation also removes the stageArn from the associated IngestConfiguration, if there are participants using the IngestConfiguration to publish to the stage."]
module DeletePublicKeyResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `PendingVerification of PendingVerification.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "PendingVerification" ->
          `PendingVerification (PendingVerification.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "PendingVerification" ->
          `PendingVerification (PendingVerification.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `PendingVerification e ->
          `Assoc
            [("error", (`String "PendingVerification"));
            ("details", (PendingVerification.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the specified public key used to sign stage participant tokens. This invalidates future participant tokens generated using the key pair\226\128\153s private key."]
module DeletePublicKeyRequest =
  struct
    type nonrec t =
      {
      arn: PublicKeyArn.t [@ocaml.doc "ARN of the public key to be deleted."]}
    let context_ = "DeletePublicKeyRequest"
    let make ~arn = fun () -> { arn }
    let to_value x =
      structure_to_value [("arn", (Some (PublicKeyArn.to_value x.arn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        PublicKeyArn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "arn") in
      make ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map_exn json__ "arn" PublicKeyArn.of_json in
      make ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the specified public key used to sign stage participant tokens. This invalidates future participant tokens generated using the key pair\226\128\153s private key."]
module DeleteIngestConfigurationResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `PendingVerification of PendingVerification.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "PendingVerification" ->
          `PendingVerification (PendingVerification.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "PendingVerification" ->
          `PendingVerification (PendingVerification.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `PendingVerification e ->
          `Assoc
            [("error", (`String "PendingVerification"));
            ("details", (PendingVerification.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a specified IngestConfiguration, so it can no longer be used to broadcast. An IngestConfiguration cannot be deleted if the publisher is actively streaming to a stage, unless force is set to true."]
module DeleteIngestConfigurationRequest =
  struct
    type nonrec t =
      {
      arn: IngestConfigurationArn.t
        [@ocaml.doc "ARN of the IngestConfiguration."];
      force: Boolean.t option
        [@ocaml.doc
          "Optional field to force deletion of the IngestConfiguration. If this is set to true when a participant is actively publishing, the participant is disconnected from the stage, followed by deletion of the IngestConfiguration. Default: false."]}
    let context_ = "DeleteIngestConfigurationRequest"
    let make ?force = fun ~arn -> fun () -> { force; arn }
    let to_value x =
      structure_to_value
        [("arn", (Some (IngestConfigurationArn.to_value x.arn)));
        ("force", (Option.map x.force ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let force = (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "force") in
      let arn =
        IngestConfigurationArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "arn") in
      make ?force ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let force = field_map json__ "force" Boolean.of_json in
      let arn = field_map_exn json__ "arn" IngestConfigurationArn.of_json in
      make ?force ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a specified IngestConfiguration, so it can no longer be used to broadcast. An IngestConfiguration cannot be deleted if the publisher is actively streaming to a stage, unless force is set to true."]
module DeleteEncoderConfigurationResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an EncoderConfiguration resource. Ensures that no Compositions are using this template; otherwise, returns an error."]
module DeleteEncoderConfigurationRequest =
  struct
    type nonrec t =
      {
      arn: EncoderConfigurationArn.t
        [@ocaml.doc "ARN of the EncoderConfiguration."]}
    let context_ = "DeleteEncoderConfigurationRequest"
    let make ~arn = fun () -> { arn }
    let to_value x =
      structure_to_value
        [("arn", (Some (EncoderConfigurationArn.to_value x.arn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        EncoderConfigurationArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "arn") in
      make ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map_exn json__ "arn" EncoderConfigurationArn.of_json in
      make ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an EncoderConfiguration resource. Ensures that no Compositions are using this template; otherwise, returns an error."]
module CreateStorageConfigurationResponse =
  struct
    type nonrec t =
      {
      storageConfiguration: StorageConfiguration.t option
        [@ocaml.doc "The StorageConfiguration that was created."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `PendingVerification of PendingVerification.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?storageConfiguration = fun () -> { storageConfiguration }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "PendingVerification" ->
          `PendingVerification (PendingVerification.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "PendingVerification" ->
          `PendingVerification (PendingVerification.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `PendingVerification e ->
          `Assoc
            [("error", (`String "PendingVerification"));
            ("details", (PendingVerification.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("storageConfiguration",
           (Option.map x.storageConfiguration
              ~f:StorageConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let storageConfiguration =
        (Option.map ~f:StorageConfiguration.of_xml)
          (Xml.child xml_arg0 "storageConfiguration") in
      make ?storageConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let storageConfiguration =
        field_map json__ "storageConfiguration" StorageConfiguration.of_json in
      make ?storageConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new storage configuration, used to enable recording to Amazon S3. When a StorageConfiguration is created, IVS will modify the S3 bucketPolicy of the provided bucket. This will ensure that IVS has sufficient permissions to write content to the provided bucket."]
module CreateStorageConfigurationRequest =
  struct
    type nonrec t =
      {
      name: StorageConfigurationName.t option
        [@ocaml.doc
          "Storage configuration name. The value does not need to be unique."];
      s3: S3StorageConfiguration.t
        [@ocaml.doc
          "A complex type that contains a storage configuration for where recorded video will be stored."];
      tags: Tags.t option
        [@ocaml.doc
          "Tags attached to the resource. Array of maps, each of the form string:string (key:value). See Best practices and strategies in Tagging AWS Resources and Tag Editor for details, including restrictions that apply to tags and \"Tag naming limits and requirements\"; Amazon IVS has no constraints on tags beyond what is documented there."]}
    let context_ = "CreateStorageConfigurationRequest"
    let make ?name = fun ?tags -> fun ~s3 -> fun () -> { name; tags; s3 }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:StorageConfigurationName.to_value));
        ("s3", (Some (S3StorageConfiguration.to_value x.s3)));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let s3 =
        S3StorageConfiguration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "s3") in
      let name =
        (Option.map ~f:StorageConfigurationName.of_xml)
          (Xml.child xml_arg0 "name") in
      make ?tags ~s3 ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" Tags.of_json in
      let s3 = field_map_exn json__ "s3" S3StorageConfiguration.of_json in
      let name = field_map json__ "name" StorageConfigurationName.of_json in
      make ?tags ~s3 ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new storage configuration, used to enable recording to Amazon S3. When a StorageConfiguration is created, IVS will modify the S3 bucketPolicy of the provided bucket. This will ensure that IVS has sufficient permissions to write content to the provided bucket."]
module CreateStageResponse =
  struct
    type nonrec t =
      {
      stage: Stage.t option [@ocaml.doc "The stage that was created."];
      participantTokens: ParticipantTokenList.t option
        [@ocaml.doc
          "Participant tokens attached to the stage. These correspond to the participants in the request."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `PendingVerification of PendingVerification.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?stage =
      fun ?participantTokens -> fun () -> { stage; participantTokens }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "PendingVerification" ->
          `PendingVerification (PendingVerification.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "PendingVerification" ->
          `PendingVerification (PendingVerification.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `PendingVerification e ->
          `Assoc
            [("error", (`String "PendingVerification"));
            ("details", (PendingVerification.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("stage", (Option.map x.stage ~f:Stage.to_value));
        ("participantTokens",
          (Option.map x.participantTokens ~f:ParticipantTokenList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let participantTokens =
        (Option.map ~f:ParticipantTokenList.of_xml)
          (Xml.child xml_arg0 "participantTokens") in
      let stage = (Option.map ~f:Stage.of_xml) (Xml.child xml_arg0 "stage") in
      make ?participantTokens ?stage ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let participantTokens =
        field_map json__ "participantTokens" ParticipantTokenList.of_json in
      let stage = field_map json__ "stage" Stage.of_json in
      make ?participantTokens ?stage ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a new stage (and optionally participant tokens)."]
module CreateStageRequest =
  struct
    type nonrec t =
      {
      name: StageName.t option
        [@ocaml.doc
          "Optional name that can be specified for the stage being created."];
      participantTokenConfigurations: ParticipantTokenConfigurations.t option
        [@ocaml.doc
          "Array of participant token configuration objects to attach to the new stage."];
      tags: Tags.t option
        [@ocaml.doc
          "Tags attached to the resource. Array of maps, each of the form string:string (key:value). See Best practices and strategies in Tagging AWS Resources and Tag Editor for details, including restrictions that apply to tags and \"Tag naming limits and requirements\"; Amazon IVS has no constraints on tags beyond what is documented there."];
      autoParticipantRecordingConfiguration:
        AutoParticipantRecordingConfiguration.t option
        [@ocaml.doc
          "Configuration object for individual participant recording, to attach to the new stage."]}
    let make ?name =
      fun ?participantTokenConfigurations ->
        fun ?tags ->
          fun ?autoParticipantRecordingConfiguration ->
            fun () ->
              {
                name;
                participantTokenConfigurations;
                tags;
                autoParticipantRecordingConfiguration
              }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:StageName.to_value));
        ("participantTokenConfigurations",
          (Option.map x.participantTokenConfigurations
             ~f:ParticipantTokenConfigurations.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value));
        ("autoParticipantRecordingConfiguration",
          (Option.map x.autoParticipantRecordingConfiguration
             ~f:AutoParticipantRecordingConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let autoParticipantRecordingConfiguration =
        (Option.map ~f:AutoParticipantRecordingConfiguration.of_xml)
          (Xml.child xml_arg0 "autoParticipantRecordingConfiguration") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let participantTokenConfigurations =
        (Option.map ~f:ParticipantTokenConfigurations.of_xml)
          (Xml.child xml_arg0 "participantTokenConfigurations") in
      let name = (Option.map ~f:StageName.of_xml) (Xml.child xml_arg0 "name") in
      make ?autoParticipantRecordingConfiguration ?tags
        ?participantTokenConfigurations ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let autoParticipantRecordingConfiguration =
        field_map json__ "autoParticipantRecordingConfiguration"
          AutoParticipantRecordingConfiguration.of_json in
      let tags = field_map json__ "tags" Tags.of_json in
      let participantTokenConfigurations =
        field_map json__ "participantTokenConfigurations"
          ParticipantTokenConfigurations.of_json in
      let name = field_map json__ "name" StageName.of_json in
      make ?autoParticipantRecordingConfiguration ?tags
        ?participantTokenConfigurations ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a new stage (and optionally participant tokens)."]
module CreateParticipantTokenResponse =
  struct
    type nonrec t =
      {
      participantToken: ParticipantToken.t option
        [@ocaml.doc "The participant token that was created."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `PendingVerification of PendingVerification.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?participantToken = fun () -> { participantToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "PendingVerification" ->
          `PendingVerification (PendingVerification.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "PendingVerification" ->
          `PendingVerification (PendingVerification.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `PendingVerification e ->
          `Assoc
            [("error", (`String "PendingVerification"));
            ("details", (PendingVerification.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("participantToken",
           (Option.map x.participantToken ~f:ParticipantToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let participantToken =
        (Option.map ~f:ParticipantToken.of_xml)
          (Xml.child xml_arg0 "participantToken") in
      make ?participantToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let participantToken =
        field_map json__ "participantToken" ParticipantToken.of_json in
      make ?participantToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an additional token for a specified stage. This can be done after stage creation or when tokens expire. Tokens always are scoped to the stage for which they are created. Encryption keys are owned by Amazon IVS and never used directly by your application."]
module CreateParticipantTokenRequest =
  struct
    type nonrec t =
      {
      stageArn: StageArn.t
        [@ocaml.doc "ARN of the stage to which this token is scoped."];
      duration: ParticipantTokenDurationMinutes.t option
        [@ocaml.doc
          "Duration (in minutes), after which the token expires. Default: 720 (12 hours)."];
      userId: ParticipantTokenUserId.t option
        [@ocaml.doc
          "Name that can be specified to help identify the token. This can be any UTF-8 encoded text. This field is exposed to all stage participants and should not be used for personally identifying, confidential, or sensitive information."];
      attributes: ParticipantTokenAttributes.t option
        [@ocaml.doc
          "Application-provided attributes to encode into the token and attach to a stage. Map keys and values can contain UTF-8 encoded text. The maximum length of this field is 1 KB total. This field is exposed to all stage participants and should not be used for personally identifying, confidential, or sensitive information."];
      capabilities: ParticipantTokenCapabilities.t option
        [@ocaml.doc
          "Set of capabilities that the user is allowed to perform in the stage. Default: PUBLISH, SUBSCRIBE."]}
    let context_ = "CreateParticipantTokenRequest"
    let make ?duration =
      fun ?userId ->
        fun ?attributes ->
          fun ?capabilities ->
            fun ~stageArn ->
              fun () ->
                { duration; userId; attributes; capabilities; stageArn }
    let to_value x =
      structure_to_value
        [("stageArn", (Some (StageArn.to_value x.stageArn)));
        ("duration",
          (Option.map x.duration ~f:ParticipantTokenDurationMinutes.to_value));
        ("userId", (Option.map x.userId ~f:ParticipantTokenUserId.to_value));
        ("attributes",
          (Option.map x.attributes ~f:ParticipantTokenAttributes.to_value));
        ("capabilities",
          (Option.map x.capabilities ~f:ParticipantTokenCapabilities.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let capabilities =
        (Option.map ~f:ParticipantTokenCapabilities.of_xml)
          (Xml.child xml_arg0 "capabilities") in
      let attributes =
        (Option.map ~f:ParticipantTokenAttributes.of_xml)
          (Xml.child xml_arg0 "attributes") in
      let userId =
        (Option.map ~f:ParticipantTokenUserId.of_xml)
          (Xml.child xml_arg0 "userId") in
      let duration =
        (Option.map ~f:ParticipantTokenDurationMinutes.of_xml)
          (Xml.child xml_arg0 "duration") in
      let stageArn =
        StageArn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "stageArn") in
      make ?capabilities ?attributes ?userId ?duration ~stageArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let capabilities =
        field_map json__ "capabilities" ParticipantTokenCapabilities.of_json in
      let attributes =
        field_map json__ "attributes" ParticipantTokenAttributes.of_json in
      let userId = field_map json__ "userId" ParticipantTokenUserId.of_json in
      let duration =
        field_map json__ "duration" ParticipantTokenDurationMinutes.of_json in
      let stageArn = field_map_exn json__ "stageArn" StageArn.of_json in
      make ?capabilities ?attributes ?userId ?duration ~stageArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an additional token for a specified stage. This can be done after stage creation or when tokens expire. Tokens always are scoped to the stage for which they are created. Encryption keys are owned by Amazon IVS and never used directly by your application."]
module CreateIngestConfigurationResponse =
  struct
    type nonrec t =
      {
      ingestConfiguration: IngestConfiguration.t option
        [@ocaml.doc "The IngestConfiguration that was created."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `PendingVerification of PendingVerification.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?ingestConfiguration = fun () -> { ingestConfiguration }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "PendingVerification" ->
          `PendingVerification (PendingVerification.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "PendingVerification" ->
          `PendingVerification (PendingVerification.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `PendingVerification e ->
          `Assoc
            [("error", (`String "PendingVerification"));
            ("details", (PendingVerification.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ingestConfiguration",
           (Option.map x.ingestConfiguration ~f:IngestConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ingestConfiguration =
        (Option.map ~f:IngestConfiguration.of_xml)
          (Xml.child xml_arg0 "ingestConfiguration") in
      make ?ingestConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ingestConfiguration =
        field_map json__ "ingestConfiguration" IngestConfiguration.of_json in
      make ?ingestConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new IngestConfiguration resource, used to specify the ingest protocol for a stage."]
module CreateIngestConfigurationRequest =
  struct
    type nonrec t =
      {
      name: IngestConfigurationName.t option
        [@ocaml.doc
          "Optional name that can be specified for the IngestConfiguration being created."];
      stageArn: IngestConfigurationStageArn.t option
        [@ocaml.doc
          "ARN of the stage with which the IngestConfiguration is associated."];
      userId: UserId.t option
        [@ocaml.doc
          "Customer-assigned name to help identify the participant using the IngestConfiguration; this can be used to link a participant to a user in the customer\226\128\153s own systems. This can be any UTF-8 encoded text. This field is exposed to all stage participants and should not be used for personally identifying, confidential, or sensitive information."];
      attributes: ParticipantAttributes.t option
        [@ocaml.doc
          "Application-provided attributes to store in the IngestConfiguration and attach to a stage. Map keys and values can contain UTF-8 encoded text. The maximum length of this field is 1 KB total. This field is exposed to all stage participants and should not be used for personally identifying, confidential, or sensitive information."];
      ingestProtocol: IngestProtocol.t
        [@ocaml.doc
          "Type of ingest protocol that the user employs to broadcast. If this is set to RTMP, insecureIngest must be set to true."];
      insecureIngest: InsecureIngest.t option
        [@ocaml.doc
          "Whether the stage allows insecure RTMP ingest. This must be set to true, if ingestProtocol is set to RTMP. Default: false."];
      redundantIngest: RedundantIngest.t option
        [@ocaml.doc
          "Indicates whether redundant ingest is enabled for the ingest configuration. Default: false."];
      tags: Tags.t option
        [@ocaml.doc
          "Tags attached to the resource. Array of maps, each of the form string:string (key:value). See Best practices and strategies in Tagging AWS Resources and Tag Editor for details, including restrictions that apply to tags and \"Tag naming limits and requirements\"; Amazon IVS has no constraints on tags beyond what is documented there."]}
    let context_ = "CreateIngestConfigurationRequest"
    let make ?name =
      fun ?stageArn ->
        fun ?userId ->
          fun ?attributes ->
            fun ?insecureIngest ->
              fun ?redundantIngest ->
                fun ?tags ->
                  fun ~ingestProtocol ->
                    fun () ->
                      {
                        name;
                        stageArn;
                        userId;
                        attributes;
                        insecureIngest;
                        redundantIngest;
                        tags;
                        ingestProtocol
                      }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:IngestConfigurationName.to_value));
        ("stageArn",
          (Option.map x.stageArn ~f:IngestConfigurationStageArn.to_value));
        ("userId", (Option.map x.userId ~f:UserId.to_value));
        ("attributes",
          (Option.map x.attributes ~f:ParticipantAttributes.to_value));
        ("ingestProtocol", (Some (IngestProtocol.to_value x.ingestProtocol)));
        ("insecureIngest",
          (Option.map x.insecureIngest ~f:InsecureIngest.to_value));
        ("redundantIngest",
          (Option.map x.redundantIngest ~f:RedundantIngest.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let redundantIngest =
        (Option.map ~f:RedundantIngest.of_xml)
          (Xml.child xml_arg0 "redundantIngest") in
      let insecureIngest =
        (Option.map ~f:InsecureIngest.of_xml)
          (Xml.child xml_arg0 "insecureIngest") in
      let ingestProtocol =
        IngestProtocol.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ingestProtocol") in
      let attributes =
        (Option.map ~f:ParticipantAttributes.of_xml)
          (Xml.child xml_arg0 "attributes") in
      let userId =
        (Option.map ~f:UserId.of_xml) (Xml.child xml_arg0 "userId") in
      let stageArn =
        (Option.map ~f:IngestConfigurationStageArn.of_xml)
          (Xml.child xml_arg0 "stageArn") in
      let name =
        (Option.map ~f:IngestConfigurationName.of_xml)
          (Xml.child xml_arg0 "name") in
      make ?tags ?redundantIngest ?insecureIngest ~ingestProtocol ?attributes
        ?userId ?stageArn ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" Tags.of_json in
      let redundantIngest =
        field_map json__ "redundantIngest" RedundantIngest.of_json in
      let insecureIngest =
        field_map json__ "insecureIngest" InsecureIngest.of_json in
      let ingestProtocol =
        field_map_exn json__ "ingestProtocol" IngestProtocol.of_json in
      let attributes =
        field_map json__ "attributes" ParticipantAttributes.of_json in
      let userId = field_map json__ "userId" UserId.of_json in
      let stageArn =
        field_map json__ "stageArn" IngestConfigurationStageArn.of_json in
      let name = field_map json__ "name" IngestConfigurationName.of_json in
      make ?tags ?redundantIngest ?insecureIngest ~ingestProtocol ?attributes
        ?userId ?stageArn ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new IngestConfiguration resource, used to specify the ingest protocol for a stage."]
module CreateEncoderConfigurationResponse =
  struct
    type nonrec t =
      {
      encoderConfiguration: EncoderConfiguration.t option
        [@ocaml.doc "The EncoderConfiguration that was created."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `PendingVerification of PendingVerification.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?encoderConfiguration = fun () -> { encoderConfiguration }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "PendingVerification" ->
          `PendingVerification (PendingVerification.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "PendingVerification" ->
          `PendingVerification (PendingVerification.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `PendingVerification e ->
          `Assoc
            [("error", (`String "PendingVerification"));
            ("details", (PendingVerification.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("encoderConfiguration",
           (Option.map x.encoderConfiguration
              ~f:EncoderConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let encoderConfiguration =
        (Option.map ~f:EncoderConfiguration.of_xml)
          (Xml.child xml_arg0 "encoderConfiguration") in
      make ?encoderConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let encoderConfiguration =
        field_map json__ "encoderConfiguration" EncoderConfiguration.of_json in
      make ?encoderConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates an EncoderConfiguration object."]
module CreateEncoderConfigurationRequest =
  struct
    type nonrec t =
      {
      name: EncoderConfigurationName.t option
        [@ocaml.doc "Optional name to identify the resource."];
      video: Video.t option
        [@ocaml.doc
          "Video configuration. Default: video resolution 1280x720, bitrate 2500 kbps, 30 fps."];
      tags: Tags.t option
        [@ocaml.doc
          "Tags attached to the resource. Array of maps, each of the form string:string (key:value). See Best practices and strategies in Tagging AWS Resources and Tag Editor for details, including restrictions that apply to tags and \"Tag naming limits and requirements\"; Amazon IVS has no constraints on tags beyond what is documented there."]}
    let make ?name =
      fun ?video -> fun ?tags -> fun () -> { name; video; tags }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:EncoderConfigurationName.to_value));
        ("video", (Option.map x.video ~f:Video.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let video = (Option.map ~f:Video.of_xml) (Xml.child xml_arg0 "video") in
      let name =
        (Option.map ~f:EncoderConfigurationName.of_xml)
          (Xml.child xml_arg0 "name") in
      make ?tags ?video ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" Tags.of_json in
      let video = field_map json__ "video" Video.of_json in
      let name = field_map json__ "name" EncoderConfigurationName.of_json in
      make ?tags ?video ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates an EncoderConfiguration object."]