Source file values.ml

(* generated by: awso-codegen generate-all --botocore-data vendor/botocore/botocore/data -o aws --runtime-dir lib/runtime/awso --cli-dir awso-cli *)
open Awso
open! Import
[@@@warning "-32"]
let service = Service.kinesis_video_archived_media
let apiVersion = "2017-09-30"
let endpointPrefix = "kinesisvideo"
let serviceFullName = "Amazon Kinesis Video Streams Archived Media"
let signatureVersion = "v4"
let protocol = "rest_json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let serviceAbbreviation = "Kinesis Video Archived Media"
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 FragmentNumberString =
  struct
    type nonrec t = string
    let context_ = "FragmentNumberString"
    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:"^[0-9]+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"FragmentNumberString" j
    let to_json = simple_to_json to_value
  end
module Long =
  struct
    type nonrec t = Int64.t
    let make i = i
    let of_string = Int64.of_string
    let to_value x = `Long x
    let to_query v = to_query to_value v
    let to_header x = Int64.to_string x
    let of_xml xml_arg0 =
      Int64.of_string (string_of_xml ~kind:"a long" xml_arg0)
    let of_json j = Int64.of_float (float_of_json ~kind:"a long" j)
    let to_json = simple_to_json to_value
  end
module Timestamp =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module ImageContent =
  struct
    type nonrec t = string
    let context_ = "ImageContent"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:6291456) >>=
             (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:"ImageContent" j
    let to_json = simple_to_json to_value
  end
module ImageError =
  struct
    type nonrec t =
      | NO_MEDIA 
      | MEDIA_ERROR 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | NO_MEDIA -> "NO_MEDIA"
      | MEDIA_ERROR -> "MEDIA_ERROR"
      | Non_static_id s -> s
    let of_string =
      function
      | "NO_MEDIA" -> NO_MEDIA
      | "MEDIA_ERROR" -> MEDIA_ERROR
      | 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 ImageError" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ImageError" 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 Fragment =
  struct
    type nonrec t =
      {
      fragmentNumber: FragmentNumberString.t option
        [@ocaml.doc
          "The unique identifier of the fragment. This value monotonically increases based on the ingestion order."];
      fragmentSizeInBytes: Long.t option
        [@ocaml.doc
          "The total fragment size, including information about the fragment and contained media data."];
      producerTimestamp: Timestamp.t option
        [@ocaml.doc
          "The timestamp from the producer corresponding to the fragment."];
      serverTimestamp: Timestamp.t option
        [@ocaml.doc
          "The timestamp from the Amazon Web Services server corresponding to the fragment."];
      fragmentLengthInMilliseconds: Long.t option
        [@ocaml.doc
          "The playback duration or other time value associated with the fragment."]}
    let make ?fragmentNumber =
      fun ?fragmentSizeInBytes ->
        fun ?producerTimestamp ->
          fun ?serverTimestamp ->
            fun ?fragmentLengthInMilliseconds ->
              fun () ->
                {
                  fragmentNumber;
                  fragmentSizeInBytes;
                  producerTimestamp;
                  serverTimestamp;
                  fragmentLengthInMilliseconds
                }
    let to_value x =
      structure_to_value
        [("FragmentNumber",
           (Option.map x.fragmentNumber ~f:FragmentNumberString.to_value));
        ("FragmentSizeInBytes",
          (Option.map x.fragmentSizeInBytes ~f:Long.to_value));
        ("ProducerTimestamp",
          (Option.map x.producerTimestamp ~f:Timestamp.to_value));
        ("ServerTimestamp",
          (Option.map x.serverTimestamp ~f:Timestamp.to_value));
        ("FragmentLengthInMilliseconds",
          (Option.map x.fragmentLengthInMilliseconds ~f:Long.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fragmentLengthInMilliseconds =
        (Option.map ~f:Long.of_xml)
          (Xml.child xml_arg0 "FragmentLengthInMilliseconds") in
      let serverTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "ServerTimestamp") in
      let producerTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "ProducerTimestamp") in
      let fragmentSizeInBytes =
        (Option.map ~f:Long.of_xml)
          (Xml.child xml_arg0 "FragmentSizeInBytes") in
      let fragmentNumber =
        (Option.map ~f:FragmentNumberString.of_xml)
          (Xml.child xml_arg0 "FragmentNumber") in
      make ?fragmentLengthInMilliseconds ?serverTimestamp ?producerTimestamp
        ?fragmentSizeInBytes ?fragmentNumber ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fragmentLengthInMilliseconds =
        field_map json__ "FragmentLengthInMilliseconds" Long.of_json in
      let serverTimestamp =
        field_map json__ "ServerTimestamp" Timestamp.of_json in
      let producerTimestamp =
        field_map json__ "ProducerTimestamp" Timestamp.of_json in
      let fragmentSizeInBytes =
        field_map json__ "FragmentSizeInBytes" Long.of_json in
      let fragmentNumber =
        field_map json__ "FragmentNumber" FragmentNumberString.of_json in
      make ?fragmentLengthInMilliseconds ?serverTimestamp ?producerTimestamp
        ?fragmentSizeInBytes ?fragmentNumber ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a segment of video or other time-delimited data."]
module FragmentSelectorType =
  struct
    type nonrec t =
      | PRODUCER_TIMESTAMP 
      | SERVER_TIMESTAMP 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PRODUCER_TIMESTAMP -> "PRODUCER_TIMESTAMP"
      | SERVER_TIMESTAMP -> "SERVER_TIMESTAMP"
      | Non_static_id s -> s
    let of_string =
      function
      | "PRODUCER_TIMESTAMP" -> PRODUCER_TIMESTAMP
      | "SERVER_TIMESTAMP" -> SERVER_TIMESTAMP
      | 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 FragmentSelectorType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"FragmentSelectorType" j)
    let to_json = simple_to_json to_value
  end
module TimestampRange =
  struct
    type nonrec t =
      {
      startTimestamp: Timestamp.t
        [@ocaml.doc
          "The starting timestamp in the range of timestamps for which to return fragments."];
      endTimestamp: Timestamp.t
        [@ocaml.doc
          "The ending timestamp in the range of timestamps for which to return fragments."]}
    let context_ = "TimestampRange"
    let make ~startTimestamp =
      fun ~endTimestamp -> fun () -> { startTimestamp; endTimestamp }
    let to_value x =
      structure_to_value
        [("StartTimestamp", (Some (Timestamp.to_value x.startTimestamp)));
        ("EndTimestamp", (Some (Timestamp.to_value x.endTimestamp)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endTimestamp =
        Timestamp.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EndTimestamp") in
      let startTimestamp =
        Timestamp.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StartTimestamp") in
      make ~endTimestamp ~startTimestamp ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endTimestamp =
        field_map_exn json__ "EndTimestamp" Timestamp.of_json in
      let startTimestamp =
        field_map_exn json__ "StartTimestamp" Timestamp.of_json in
      make ~endTimestamp ~startTimestamp ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The range of timestamps for which to return fragments."]
module Image =
  struct
    type nonrec t =
      {
      timeStamp: Timestamp.t option
        [@ocaml.doc
          "An attribute of the Image object that is used to extract an image from the video stream. This field is used to manage gaps on images or to better understand the pagination window."];
      error: ImageError.t option
        [@ocaml.doc
          "The error message shown when the image for the provided timestamp was not extracted due to a non-tryable error. An error will be returned if: There is no media that exists for the specified Timestamp. The media for the specified time does not allow an image to be extracted. In this case the media is audio only, or the incorrect media has been ingested."];
      imageContent: ImageContent.t option
        [@ocaml.doc
          "An attribute of the Image object that is Base64 encoded."]}
    let make ?timeStamp =
      fun ?error ->
        fun ?imageContent -> fun () -> { timeStamp; error; imageContent }
    let to_value x =
      structure_to_value
        [("TimeStamp", (Option.map x.timeStamp ~f:Timestamp.to_value));
        ("Error", (Option.map x.error ~f:ImageError.to_value));
        ("ImageContent",
          (Option.map x.imageContent ~f:ImageContent.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let imageContent =
        (Option.map ~f:ImageContent.of_xml)
          (Xml.child xml_arg0 "ImageContent") in
      let error =
        (Option.map ~f:ImageError.of_xml) (Xml.child xml_arg0 "Error") in
      let timeStamp =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "TimeStamp") in
      make ?imageContent ?error ?timeStamp ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let imageContent = field_map json__ "ImageContent" ImageContent.of_json in
      let error = field_map json__ "Error" ImageError.of_json in
      let timeStamp = field_map json__ "TimeStamp" Timestamp.of_json in
      make ?imageContent ?error ?timeStamp ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A structure that contains the Timestamp, Error, and ImageContent."]
module FormatConfigKey =
  struct
    type nonrec t =
      | JPEGQuality 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | JPEGQuality -> "JPEGQuality" | Non_static_id s -> s
    let of_string =
      function | "JPEGQuality" -> JPEGQuality | 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 FormatConfigKey" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"FormatConfigKey" j)
    let to_json = simple_to_json to_value
  end
module FormatConfigValue =
  struct
    type nonrec t = string
    let context_ = "FormatConfigValue"
    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-Z_0-9]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"FormatConfigValue" j
    let to_json = simple_to_json to_value
  end
module HLSFragmentSelectorType =
  struct
    type nonrec t =
      | PRODUCER_TIMESTAMP 
      | SERVER_TIMESTAMP 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PRODUCER_TIMESTAMP -> "PRODUCER_TIMESTAMP"
      | SERVER_TIMESTAMP -> "SERVER_TIMESTAMP"
      | Non_static_id s -> s
    let of_string =
      function
      | "PRODUCER_TIMESTAMP" -> PRODUCER_TIMESTAMP
      | "SERVER_TIMESTAMP" -> SERVER_TIMESTAMP
      | 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 HLSFragmentSelectorType" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"HLSFragmentSelectorType" j)
    let to_json = simple_to_json to_value
  end
module HLSTimestampRange =
  struct
    type nonrec t =
      {
      startTimestamp: Timestamp.t option
        [@ocaml.doc
          "The start of the timestamp range for the requested media. If the HLSTimestampRange value is specified, the StartTimestamp value is required. Only fragments that start exactly at or after StartTimestamp are included in the session. Fragments that start before StartTimestamp and continue past it aren't included in the session. If FragmentSelectorType is SERVER_TIMESTAMP, the StartTimestamp must be later than the stream head."];
      endTimestamp: Timestamp.t option
        [@ocaml.doc
          "The end of the timestamp range for the requested media. This value must be within 24 hours of the specified StartTimestamp, and it must be later than the StartTimestamp value. If FragmentSelectorType for the request is SERVER_TIMESTAMP, this value must be in the past. The EndTimestamp value is required for ON_DEMAND mode, but optional for LIVE_REPLAY mode. If the EndTimestamp is not set for LIVE_REPLAY mode then the session will continue to include newly ingested fragments until the session expires. This value is inclusive. The EndTimestamp is compared to the (starting) timestamp of the fragment. Fragments that start before the EndTimestamp value and continue past it are included in the session."]}
    let make ?startTimestamp =
      fun ?endTimestamp -> fun () -> { startTimestamp; endTimestamp }
    let to_value x =
      structure_to_value
        [("StartTimestamp",
           (Option.map x.startTimestamp ~f:Timestamp.to_value));
        ("EndTimestamp", (Option.map x.endTimestamp ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endTimestamp =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "EndTimestamp") in
      let startTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "StartTimestamp") in
      make ?endTimestamp ?startTimestamp ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endTimestamp = field_map json__ "EndTimestamp" Timestamp.of_json in
      let startTimestamp =
        field_map json__ "StartTimestamp" Timestamp.of_json in
      make ?endTimestamp ?startTimestamp ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The start and end of the timestamp range for the requested media. This value should not be present if PlaybackType is LIVE."]
module DASHFragmentSelectorType =
  struct
    type nonrec t =
      | PRODUCER_TIMESTAMP 
      | SERVER_TIMESTAMP 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PRODUCER_TIMESTAMP -> "PRODUCER_TIMESTAMP"
      | SERVER_TIMESTAMP -> "SERVER_TIMESTAMP"
      | Non_static_id s -> s
    let of_string =
      function
      | "PRODUCER_TIMESTAMP" -> PRODUCER_TIMESTAMP
      | "SERVER_TIMESTAMP" -> SERVER_TIMESTAMP
      | 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 DASHFragmentSelectorType" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"DASHFragmentSelectorType" j)
    let to_json = simple_to_json to_value
  end
module DASHTimestampRange =
  struct
    type nonrec t =
      {
      startTimestamp: Timestamp.t option
        [@ocaml.doc
          "The start of the timestamp range for the requested media. If the DASHTimestampRange value is specified, the StartTimestamp value is required. Only fragments that start exactly at or after StartTimestamp are included in the session. Fragments that start before StartTimestamp and continue past it aren't included in the session. If FragmentSelectorType is SERVER_TIMESTAMP, the StartTimestamp must be later than the stream head."];
      endTimestamp: Timestamp.t option
        [@ocaml.doc
          "The end of the timestamp range for the requested media. This value must be within 24 hours of the specified StartTimestamp, and it must be later than the StartTimestamp value. If FragmentSelectorType for the request is SERVER_TIMESTAMP, this value must be in the past. The EndTimestamp value is required for ON_DEMAND mode, but optional for LIVE_REPLAY mode. If the EndTimestamp is not set for LIVE_REPLAY mode then the session will continue to include newly ingested fragments until the session expires. This value is inclusive. The EndTimestamp is compared to the (starting) timestamp of the fragment. Fragments that start before the EndTimestamp value and continue past it are included in the session."]}
    let make ?startTimestamp =
      fun ?endTimestamp -> fun () -> { startTimestamp; endTimestamp }
    let to_value x =
      structure_to_value
        [("StartTimestamp",
           (Option.map x.startTimestamp ~f:Timestamp.to_value));
        ("EndTimestamp", (Option.map x.endTimestamp ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endTimestamp =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "EndTimestamp") in
      let startTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "StartTimestamp") in
      make ?endTimestamp ?startTimestamp ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endTimestamp = field_map json__ "EndTimestamp" Timestamp.of_json in
      let startTimestamp =
        field_map json__ "StartTimestamp" Timestamp.of_json in
      make ?endTimestamp ?startTimestamp ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The start and end of the timestamp range for the requested media. This value should not be present if PlaybackType is LIVE. The values in DASHimestampRange are inclusive. Fragments that start exactly at or after the start time are included in the session. Fragments that start before the start time and continue past it are not included in the session."]
module ClipFragmentSelectorType =
  struct
    type nonrec t =
      | PRODUCER_TIMESTAMP 
      | SERVER_TIMESTAMP 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PRODUCER_TIMESTAMP -> "PRODUCER_TIMESTAMP"
      | SERVER_TIMESTAMP -> "SERVER_TIMESTAMP"
      | Non_static_id s -> s
    let of_string =
      function
      | "PRODUCER_TIMESTAMP" -> PRODUCER_TIMESTAMP
      | "SERVER_TIMESTAMP" -> SERVER_TIMESTAMP
      | 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 ClipFragmentSelectorType" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ClipFragmentSelectorType" j)
    let to_json = simple_to_json to_value
  end
module ClipTimestampRange =
  struct
    type nonrec t =
      {
      startTimestamp: Timestamp.t
        [@ocaml.doc
          "The starting timestamp in the range of timestamps for which to return fragments. Only fragments that start exactly at or after StartTimestamp are included in the session. Fragments that start before StartTimestamp and continue past it aren't included in the session. If FragmentSelectorType is SERVER_TIMESTAMP, the StartTimestamp must be later than the stream head."];
      endTimestamp: Timestamp.t
        [@ocaml.doc
          "The end of the timestamp range for the requested media. This value must be within 24 hours of the specified StartTimestamp, and it must be later than the StartTimestamp value. If FragmentSelectorType for the request is SERVER_TIMESTAMP, this value must be in the past. This value is inclusive. The EndTimestamp is compared to the (starting) timestamp of the fragment. Fragments that start before the EndTimestamp value and continue past it are included in the session."]}
    let context_ = "ClipTimestampRange"
    let make ~startTimestamp =
      fun ~endTimestamp -> fun () -> { startTimestamp; endTimestamp }
    let to_value x =
      structure_to_value
        [("StartTimestamp", (Some (Timestamp.to_value x.startTimestamp)));
        ("EndTimestamp", (Some (Timestamp.to_value x.endTimestamp)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endTimestamp =
        Timestamp.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EndTimestamp") in
      let startTimestamp =
        Timestamp.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StartTimestamp") in
      make ~endTimestamp ~startTimestamp ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endTimestamp =
        field_map_exn json__ "EndTimestamp" Timestamp.of_json in
      let startTimestamp =
        field_map_exn json__ "StartTimestamp" Timestamp.of_json in
      make ~endTimestamp ~startTimestamp ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The range of timestamps for which to return fragments."]
module ClientLimitExceededException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Kinesis Video Streams has throttled the request because you have exceeded a limit. Try making the call later. For information about limits, see Kinesis Video Streams Limits."]
module FragmentList =
  struct
    type nonrec t = Fragment.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:Fragment.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:Fragment.of_xml)
    let of_json j =
      list_of_json ~kind:"FragmentList" ~of_json:Fragment.of_json j
    let to_json v = composed_to_json to_value v
  end
module InvalidArgumentException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A specified parameter exceeds its restrictions, is not supported, or can't be used."]
module NextToken =
  struct
    type nonrec t = string
    let context_ = "NextToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:4096) >>=
                  (fun () -> check_pattern i ~pattern:"[a-zA-Z0-9+/]+={0,2}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"NextToken" j
    let to_json = simple_to_json to_value
  end
module NotAuthorizedException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Status Code: 403, The caller is not authorized to perform an operation on the given stream, or the token has expired."]
module ResourceNotFoundException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "GetImages will throw this error when Kinesis Video Streams can't find the stream that you specified. GetHLSStreamingSessionURL and GetDASHStreamingSessionURL throw this error if a session with a PlaybackMode of ON_DEMAND or LIVE_REPLAYis requested for a stream that has no fragments within the requested time range, or if a session with a PlaybackMode of LIVE is requested for a stream that has no fragments within the last 30 seconds."]
module FragmentSelector =
  struct
    type nonrec t =
      {
      fragmentSelectorType: FragmentSelectorType.t
        [@ocaml.doc
          "The origin of the timestamps to use (Server or Producer)."];
      timestampRange: TimestampRange.t
        [@ocaml.doc "The range of timestamps to return."]}
    let context_ = "FragmentSelector"
    let make ~fragmentSelectorType =
      fun ~timestampRange ->
        fun () -> { fragmentSelectorType; timestampRange }
    let to_value x =
      structure_to_value
        [("FragmentSelectorType",
           (Some (FragmentSelectorType.to_value x.fragmentSelectorType)));
        ("TimestampRange", (Some (TimestampRange.to_value x.timestampRange)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let timestampRange =
        TimestampRange.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TimestampRange") in
      let fragmentSelectorType =
        FragmentSelectorType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FragmentSelectorType") in
      make ~timestampRange ~fragmentSelectorType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let timestampRange =
        field_map_exn json__ "TimestampRange" TimestampRange.of_json in
      let fragmentSelectorType =
        field_map_exn json__ "FragmentSelectorType"
          FragmentSelectorType.of_json in
      make ~timestampRange ~fragmentSelectorType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the timestamp range and timestamp origin of a range of fragments. Only fragments with a start timestamp greater than or equal to the given start time and less than or equal to the end time are returned. For example, if a stream contains fragments with the following start timestamps: 00:00:00 00:00:02 00:00:04 00:00:06 A fragment selector range with a start time of 00:00:01 and end time of 00:00:04 would return the fragments with start times of 00:00:02 and 00:00:04."]
module ListFragmentsMaxResults =
  struct
    type nonrec t = Int64.t
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int64_max i ~max:1000L) >>=
             (fun () -> check_int64_min i ~min:1L));
        i
    let of_string = Int64.of_string
    let to_value x = `Long x
    let to_query v = to_query to_value v
    let to_header x = Int64.to_string x
    let of_xml xml_arg0 =
      Int64.of_string (string_of_xml ~kind:"a long" xml_arg0)
    let of_json j = Int64.of_float (float_of_json ~kind:"a long" j)
    let to_json = simple_to_json to_value
  end
module ResourceARN =
  struct
    type nonrec t = string
    let context_ = "ResourceARN"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:[a-z\\d-]+:kinesisvideo:[a-z0-9-]+:[0-9]+:[a-z]+/[a-zA-Z0-9_.-]+/[0-9]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ResourceARN" j
    let to_json = simple_to_json to_value
  end
module StreamName =
  struct
    type nonrec t = string
    let context_ = "StreamName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () -> check_pattern i ~pattern:"[a-zA-Z0-9_.-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"StreamName" j
    let to_json = simple_to_json to_value
  end
module ContentType =
  struct
    type nonrec t = string
    let context_ = "ContentType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () -> check_pattern i ~pattern:"^[a-zA-Z0-9_\\.\\-]+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ContentType" j
    let to_json = simple_to_json to_value
  end
module Payload =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Blob x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml xml_arg0 = string_of_xml ~kind:"a blob" xml_arg0
    let of_json j = string_of_json ~kind:"a blob" j
    let to_json = simple_to_json to_value
  end
module FragmentNumberList =
  struct
    type nonrec t = FragmentNumberString.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:1000) >>=
             (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:FragmentNumberString.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:FragmentNumberString.of_xml)
    let of_json j =
      list_of_json ~kind:"FragmentNumberList"
        ~of_json:FragmentNumberString.of_json j
    let to_json v = composed_to_json to_value v
  end
module Images =
  struct
    type nonrec t = Image.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:Image.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:Image.of_xml)
    let of_json j = list_of_json ~kind:"Images" ~of_json:Image.of_json j
    let to_json v = composed_to_json to_value v
  end
module NoDataRetentionException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "GetImages was requested for a stream that does not retain data (that is, has a DataRetentionInHours of 0)."]
module Format_ =
  struct
    type nonrec t =
      | JPEG 
      | PNG 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | JPEG -> "JPEG" | PNG -> "PNG" | Non_static_id s -> s
    let of_string =
      function | "JPEG" -> JPEG | "PNG" -> PNG | 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 Format" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Format" j)
    let to_json = simple_to_json to_value
  end
module FormatConfig =
  struct
    type nonrec t = (FormatConfigKey.t * FormatConfigValue.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_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 ->
                            ((FormatConfigKey.of_string chopped),
                              (FormatConfigValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (FormatConfigKey.to_value x) |>
                    (fun x ->
                       (FormatConfigValue.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:FormatConfigKey.of_string
        ~of_json:FormatConfigValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module GetImagesMaxResults =
  struct
    type nonrec t = Int64.t
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int64_max i ~max:100L) >>=
             (fun () -> check_int64_min i ~min:1L));
        i
    let of_string = Int64.of_string
    let to_value x = `Long x
    let to_query v = to_query to_value v
    let to_header x = Int64.to_string x
    let of_xml xml_arg0 =
      Int64.of_string (string_of_xml ~kind:"a long" xml_arg0)
    let of_json j = Int64.of_float (float_of_json ~kind:"a long" j)
    let to_json = simple_to_json to_value
  end
module HeightPixels =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:2160) >>= (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 HeightPixels" 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 ImageSelectorType =
  struct
    type nonrec t =
      | PRODUCER_TIMESTAMP 
      | SERVER_TIMESTAMP 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PRODUCER_TIMESTAMP -> "PRODUCER_TIMESTAMP"
      | SERVER_TIMESTAMP -> "SERVER_TIMESTAMP"
      | Non_static_id s -> s
    let of_string =
      function
      | "PRODUCER_TIMESTAMP" -> PRODUCER_TIMESTAMP
      | "SERVER_TIMESTAMP" -> SERVER_TIMESTAMP
      | 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 ImageSelectorType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ImageSelectorType" j)
    let to_json = simple_to_json to_value
  end
module SamplingInterval =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for SamplingInterval" 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 WidthPixels =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:3840) >>= (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 WidthPixels" 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 HLSStreamingSessionURL =
  struct
    type nonrec t = string
    let context_ = "HLSStreamingSessionURL"
    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:"HLSStreamingSessionURL" j
    let to_json = simple_to_json to_value
  end
module InvalidCodecPrivateDataException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The codec private data in at least one of the tracks of the video stream is not valid for this operation."]
module MissingCodecPrivateDataException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "No codec private data was found in at least one of tracks of the video stream."]
module UnsupportedStreamMediaTypeException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The type of the media (for example, h.264 or h.265 video or ACC or G.711 audio) could not be determined from the codec IDs of the tracks in the first fragment for a playback session. The codec ID for track 1 should be V_MPEG/ISO/AVC and, optionally, the codec ID for track 2 should be A_AAC."]
module ContainerFormat =
  struct
    type nonrec t =
      | FRAGMENTED_MP4 
      | MPEG_TS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | FRAGMENTED_MP4 -> "FRAGMENTED_MP4"
      | MPEG_TS -> "MPEG_TS"
      | Non_static_id s -> s
    let of_string =
      function
      | "FRAGMENTED_MP4" -> FRAGMENTED_MP4
      | "MPEG_TS" -> MPEG_TS
      | 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 ContainerFormat" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ContainerFormat" j)
    let to_json = simple_to_json to_value
  end
module Expires =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:43200) >>=
             (fun () -> check_int_min i ~min:300));
        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 Expires" 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 HLSDiscontinuityMode =
  struct
    type nonrec t =
      | ALWAYS 
      | NEVER 
      | ON_DISCONTINUITY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ALWAYS -> "ALWAYS"
      | NEVER -> "NEVER"
      | ON_DISCONTINUITY -> "ON_DISCONTINUITY"
      | Non_static_id s -> s
    let of_string =
      function
      | "ALWAYS" -> ALWAYS
      | "NEVER" -> NEVER
      | "ON_DISCONTINUITY" -> ON_DISCONTINUITY
      | 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 HLSDiscontinuityMode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"HLSDiscontinuityMode" j)
    let to_json = simple_to_json to_value
  end
module HLSDisplayFragmentTimestamp =
  struct
    type nonrec t =
      | ALWAYS 
      | NEVER 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | ALWAYS -> "ALWAYS" | NEVER -> "NEVER" | Non_static_id s -> s
    let of_string =
      function | "ALWAYS" -> ALWAYS | "NEVER" -> NEVER | 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 HLSDisplayFragmentTimestamp"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"HLSDisplayFragmentTimestamp" j)
    let to_json = simple_to_json to_value
  end
module HLSFragmentSelector =
  struct
    type nonrec t =
      {
      fragmentSelectorType: HLSFragmentSelectorType.t option
        [@ocaml.doc
          "The source of the timestamps for the requested media. When FragmentSelectorType is set to PRODUCER_TIMESTAMP and GetHLSStreamingSessionURLInput$PlaybackMode is ON_DEMAND or LIVE_REPLAY, the first fragment ingested with a producer timestamp within the specified FragmentSelector$TimestampRange is included in the media playlist. In addition, the fragments with producer timestamps within the TimestampRange ingested immediately following the first fragment (up to the GetHLSStreamingSessionURLInput$MaxMediaPlaylistFragmentResults value) are included. Fragments that have duplicate producer timestamps are deduplicated. This means that if producers are producing a stream of fragments with producer timestamps that are approximately equal to the true clock time, the HLS media playlists will contain all of the fragments within the requested timestamp range. If some fragments are ingested within the same time range and very different points in time, only the oldest ingested collection of fragments are returned. When FragmentSelectorType is set to PRODUCER_TIMESTAMP and GetHLSStreamingSessionURLInput$PlaybackMode is LIVE, the producer timestamps are used in the MP4 fragments and for deduplication. But the most recently ingested fragments based on server timestamps are included in the HLS media playlist. This means that even if fragments ingested in the past have producer timestamps with values now, they are not included in the HLS media playlist. The default is SERVER_TIMESTAMP."];
      timestampRange: HLSTimestampRange.t option
        [@ocaml.doc
          "The start and end of the timestamp range for the requested media. This value should not be present if PlaybackType is LIVE."]}
    let make ?fragmentSelectorType =
      fun ?timestampRange ->
        fun () -> { fragmentSelectorType; timestampRange }
    let to_value x =
      structure_to_value
        [("FragmentSelectorType",
           (Option.map x.fragmentSelectorType
              ~f:HLSFragmentSelectorType.to_value));
        ("TimestampRange",
          (Option.map x.timestampRange ~f:HLSTimestampRange.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let timestampRange =
        (Option.map ~f:HLSTimestampRange.of_xml)
          (Xml.child xml_arg0 "TimestampRange") in
      let fragmentSelectorType =
        (Option.map ~f:HLSFragmentSelectorType.of_xml)
          (Xml.child xml_arg0 "FragmentSelectorType") in
      make ?timestampRange ?fragmentSelectorType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let timestampRange =
        field_map json__ "TimestampRange" HLSTimestampRange.of_json in
      let fragmentSelectorType =
        field_map json__ "FragmentSelectorType"
          HLSFragmentSelectorType.of_json in
      make ?timestampRange ?fragmentSelectorType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the range of timestamps for the requested media, and the source of the timestamps."]
module HLSMaxResults =
  struct
    type nonrec t = Int64.t
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int64_max i ~max:5000L) >>=
             (fun () -> check_int64_min i ~min:1L));
        i
    let of_string = Int64.of_string
    let to_value x = `Long x
    let to_query v = to_query to_value v
    let to_header x = Int64.to_string x
    let of_xml xml_arg0 =
      Int64.of_string (string_of_xml ~kind:"a long" xml_arg0)
    let of_json j = Int64.of_float (float_of_json ~kind:"a long" j)
    let to_json = simple_to_json to_value
  end
module HLSPlaybackMode =
  struct
    type nonrec t =
      | LIVE 
      | LIVE_REPLAY 
      | ON_DEMAND 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | LIVE -> "LIVE"
      | LIVE_REPLAY -> "LIVE_REPLAY"
      | ON_DEMAND -> "ON_DEMAND"
      | Non_static_id s -> s
    let of_string =
      function
      | "LIVE" -> LIVE
      | "LIVE_REPLAY" -> LIVE_REPLAY
      | "ON_DEMAND" -> ON_DEMAND
      | 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 HLSPlaybackMode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"HLSPlaybackMode" j)
    let to_json = simple_to_json to_value
  end
module DASHStreamingSessionURL =
  struct
    type nonrec t = string
    let context_ = "DASHStreamingSessionURL"
    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:"DASHStreamingSessionURL" j
    let to_json = simple_to_json to_value
  end
module DASHDisplayFragmentNumber =
  struct
    type nonrec t =
      | ALWAYS 
      | NEVER 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | ALWAYS -> "ALWAYS" | NEVER -> "NEVER" | Non_static_id s -> s
    let of_string =
      function | "ALWAYS" -> ALWAYS | "NEVER" -> NEVER | 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 DASHDisplayFragmentNumber" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"DASHDisplayFragmentNumber" j)
    let to_json = simple_to_json to_value
  end
module DASHDisplayFragmentTimestamp =
  struct
    type nonrec t =
      | ALWAYS 
      | NEVER 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | ALWAYS -> "ALWAYS" | NEVER -> "NEVER" | Non_static_id s -> s
    let of_string =
      function | "ALWAYS" -> ALWAYS | "NEVER" -> NEVER | 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 DASHDisplayFragmentTimestamp"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"DASHDisplayFragmentTimestamp" j)
    let to_json = simple_to_json to_value
  end
module DASHFragmentSelector =
  struct
    type nonrec t =
      {
      fragmentSelectorType: DASHFragmentSelectorType.t option
        [@ocaml.doc
          "The source of the timestamps for the requested media. When FragmentSelectorType is set to PRODUCER_TIMESTAMP and GetDASHStreamingSessionURLInput$PlaybackMode is ON_DEMAND or LIVE_REPLAY, the first fragment ingested with a producer timestamp within the specified FragmentSelector$TimestampRange is included in the media playlist. In addition, the fragments with producer timestamps within the TimestampRange ingested immediately following the first fragment (up to the GetDASHStreamingSessionURLInput$MaxManifestFragmentResults value) are included. Fragments that have duplicate producer timestamps are deduplicated. This means that if producers are producing a stream of fragments with producer timestamps that are approximately equal to the true clock time, the MPEG-DASH manifest will contain all of the fragments within the requested timestamp range. If some fragments are ingested within the same time range and very different points in time, only the oldest ingested collection of fragments are returned. When FragmentSelectorType is set to PRODUCER_TIMESTAMP and GetDASHStreamingSessionURLInput$PlaybackMode is LIVE, the producer timestamps are used in the MP4 fragments and for deduplication. But the most recently ingested fragments based on server timestamps are included in the MPEG-DASH manifest. This means that even if fragments ingested in the past have producer timestamps with values now, they are not included in the HLS media playlist. The default is SERVER_TIMESTAMP."];
      timestampRange: DASHTimestampRange.t option
        [@ocaml.doc
          "The start and end of the timestamp range for the requested media. This value should not be present if PlaybackType is LIVE."]}
    let make ?fragmentSelectorType =
      fun ?timestampRange ->
        fun () -> { fragmentSelectorType; timestampRange }
    let to_value x =
      structure_to_value
        [("FragmentSelectorType",
           (Option.map x.fragmentSelectorType
              ~f:DASHFragmentSelectorType.to_value));
        ("TimestampRange",
          (Option.map x.timestampRange ~f:DASHTimestampRange.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let timestampRange =
        (Option.map ~f:DASHTimestampRange.of_xml)
          (Xml.child xml_arg0 "TimestampRange") in
      let fragmentSelectorType =
        (Option.map ~f:DASHFragmentSelectorType.of_xml)
          (Xml.child xml_arg0 "FragmentSelectorType") in
      make ?timestampRange ?fragmentSelectorType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let timestampRange =
        field_map json__ "TimestampRange" DASHTimestampRange.of_json in
      let fragmentSelectorType =
        field_map json__ "FragmentSelectorType"
          DASHFragmentSelectorType.of_json in
      make ?timestampRange ?fragmentSelectorType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the range of timestamps for the requested media, and the source of the timestamps."]
module DASHMaxResults =
  struct
    type nonrec t = Int64.t
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int64_max i ~max:5000L) >>=
             (fun () -> check_int64_min i ~min:1L));
        i
    let of_string = Int64.of_string
    let to_value x = `Long x
    let to_query v = to_query to_value v
    let to_header x = Int64.to_string x
    let of_xml xml_arg0 =
      Int64.of_string (string_of_xml ~kind:"a long" xml_arg0)
    let of_json j = Int64.of_float (float_of_json ~kind:"a long" j)
    let to_json = simple_to_json to_value
  end
module DASHPlaybackMode =
  struct
    type nonrec t =
      | LIVE 
      | LIVE_REPLAY 
      | ON_DEMAND 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | LIVE -> "LIVE"
      | LIVE_REPLAY -> "LIVE_REPLAY"
      | ON_DEMAND -> "ON_DEMAND"
      | Non_static_id s -> s
    let of_string =
      function
      | "LIVE" -> LIVE
      | "LIVE_REPLAY" -> LIVE_REPLAY
      | "ON_DEMAND" -> ON_DEMAND
      | 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 DASHPlaybackMode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DASHPlaybackMode" j)
    let to_json = simple_to_json to_value
  end
module InvalidMediaFrameException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "One or more frames in the requested clip could not be parsed based on the specified codec."]
module ClipFragmentSelector =
  struct
    type nonrec t =
      {
      fragmentSelectorType: ClipFragmentSelectorType.t
        [@ocaml.doc
          "The origin of the timestamps to use (Server or Producer)."];
      timestampRange: ClipTimestampRange.t
        [@ocaml.doc "The range of timestamps to return."]}
    let context_ = "ClipFragmentSelector"
    let make ~fragmentSelectorType =
      fun ~timestampRange ->
        fun () -> { fragmentSelectorType; timestampRange }
    let to_value x =
      structure_to_value
        [("FragmentSelectorType",
           (Some (ClipFragmentSelectorType.to_value x.fragmentSelectorType)));
        ("TimestampRange",
          (Some (ClipTimestampRange.to_value x.timestampRange)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let timestampRange =
        ClipTimestampRange.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TimestampRange") in
      let fragmentSelectorType =
        ClipFragmentSelectorType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FragmentSelectorType") in
      make ~timestampRange ~fragmentSelectorType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let timestampRange =
        field_map_exn json__ "TimestampRange" ClipTimestampRange.of_json in
      let fragmentSelectorType =
        field_map_exn json__ "FragmentSelectorType"
          ClipFragmentSelectorType.of_json in
      make ~timestampRange ~fragmentSelectorType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the timestamp range and timestamp origin of a range of fragments. Fragments that have duplicate producer timestamps are deduplicated. This means that if producers are producing a stream of fragments with producer timestamps that are approximately equal to the true clock time, the clip will contain all of the fragments within the requested timestamp range. If some fragments are ingested within the same time range and very different points in time, only the oldest ingested collection of fragments are returned."]
module ListFragmentsOutput =
  struct
    type nonrec t =
      {
      fragments: FragmentList.t option
        [@ocaml.doc
          "A list of archived Fragment objects from the stream that meet the selector criteria. Results are in no specific order, even across pages."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If the returned list is truncated, the operation returns this token to use to retrieve the next page of results. This value is null when there are no more results to return."]}
    type nonrec error =
      [ `ClientLimitExceededException of ClientLimitExceededException.t 
      | `InvalidArgumentException of InvalidArgumentException.t 
      | `NotAuthorizedException of NotAuthorizedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?fragments =
      fun ?nextToken -> fun () -> { fragments; nextToken }
    let error_of_json name json =
      match name with
      | "ClientLimitExceededException" ->
          `ClientLimitExceededException
            (ClientLimitExceededException.of_json json)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_json json)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientLimitExceededException" ->
          `ClientLimitExceededException
            (ClientLimitExceededException.of_xml xml)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_xml xml)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientLimitExceededException e ->
          `Assoc
            [("error", (`String "ClientLimitExceededException"));
            ("details", (ClientLimitExceededException.to_json e))]
      | `InvalidArgumentException e ->
          `Assoc
            [("error", (`String "InvalidArgumentException"));
            ("details", (InvalidArgumentException.to_json e))]
      | `NotAuthorizedException e ->
          `Assoc
            [("error", (`String "NotAuthorizedException"));
            ("details", (NotAuthorizedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Fragments", (Option.map x.fragments ~f:FragmentList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let fragments =
        (Option.map ~f:FragmentList.of_xml) (Xml.child xml_arg0 "Fragments") in
      make ?nextToken ?fragments ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let fragments = field_map json__ "Fragments" FragmentList.of_json in
      make ?nextToken ?fragments ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of Fragment objects from the specified stream and timestamp range within the archived data. Listing fragments is eventually consistent. This means that even if the producer receives an acknowledgment that a fragment is persisted, the result might not be returned immediately from a request to ListFragments. However, results are typically available in less than one second. You must first call the GetDataEndpoint API to get an endpoint. Then send the ListFragments requests to this endpoint using the --endpoint-url parameter. If an error is thrown after invoking a Kinesis Video Streams archived media API, in addition to the HTTP status code and the response body, it includes the following pieces of information: x-amz-ErrorType HTTP header \226\128\147 contains a more specific error type in addition to what the HTTP status code provides. x-amz-RequestId HTTP header \226\128\147 if you want to report an issue to Amazon Web Services, the support team can better diagnose the problem if given the Request Id. Both the HTTP status code and the ErrorType header can be utilized to make programmatic decisions about whether errors are retry-able and under what conditions, as well as provide information on what actions the client programmer might need to take in order to successfully try again. For more information, see the Errors section at the bottom of this topic, as well as Common Errors."]
module ListFragmentsInput =
  struct
    type nonrec t =
      {
      streamName: StreamName.t option
        [@ocaml.doc
          "The name of the stream from which to retrieve a fragment list. Specify either this parameter or the StreamARN parameter."];
      streamARN: ResourceARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the stream from which to retrieve a fragment list. Specify either this parameter or the StreamName parameter."];
      maxResults: ListFragmentsMaxResults.t option
        [@ocaml.doc
          "The total number of fragments to return. If the total number of fragments available is more than the value specified in max-results, then a ListFragmentsOutput$NextToken is provided in the output that you can use to resume pagination."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token to specify where to start paginating. This is the ListFragmentsOutput$NextToken from a previously truncated response."];
      fragmentSelector: FragmentSelector.t option
        [@ocaml.doc
          "Describes the timestamp range and timestamp origin for the range of fragments to return. This is only required when the NextToken isn't passed in the API."]}
    let make ?streamName =
      fun ?streamARN ->
        fun ?maxResults ->
          fun ?nextToken ->
            fun ?fragmentSelector ->
              fun () ->
                {
                  streamName;
                  streamARN;
                  maxResults;
                  nextToken;
                  fragmentSelector
                }
    let to_value x =
      structure_to_value
        [("StreamName", (Option.map x.streamName ~f:StreamName.to_value));
        ("StreamARN", (Option.map x.streamARN ~f:ResourceARN.to_value));
        ("MaxResults",
          (Option.map x.maxResults ~f:ListFragmentsMaxResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("FragmentSelector",
          (Option.map x.fragmentSelector ~f:FragmentSelector.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fragmentSelector =
        (Option.map ~f:FragmentSelector.of_xml)
          (Xml.child xml_arg0 "FragmentSelector") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:ListFragmentsMaxResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let streamARN =
        (Option.map ~f:ResourceARN.of_xml) (Xml.child xml_arg0 "StreamARN") in
      let streamName =
        (Option.map ~f:StreamName.of_xml) (Xml.child xml_arg0 "StreamName") in
      make ?fragmentSelector ?nextToken ?maxResults ?streamARN ?streamName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fragmentSelector =
        field_map json__ "FragmentSelector" FragmentSelector.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let maxResults =
        field_map json__ "MaxResults" ListFragmentsMaxResults.of_json in
      let streamARN = field_map json__ "StreamARN" ResourceARN.of_json in
      let streamName = field_map json__ "StreamName" StreamName.of_json in
      make ?fragmentSelector ?nextToken ?maxResults ?streamARN ?streamName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of Fragment objects from the specified stream and timestamp range within the archived data. Listing fragments is eventually consistent. This means that even if the producer receives an acknowledgment that a fragment is persisted, the result might not be returned immediately from a request to ListFragments. However, results are typically available in less than one second. You must first call the GetDataEndpoint API to get an endpoint. Then send the ListFragments requests to this endpoint using the --endpoint-url parameter. If an error is thrown after invoking a Kinesis Video Streams archived media API, in addition to the HTTP status code and the response body, it includes the following pieces of information: x-amz-ErrorType HTTP header \226\128\147 contains a more specific error type in addition to what the HTTP status code provides. x-amz-RequestId HTTP header \226\128\147 if you want to report an issue to Amazon Web Services, the support team can better diagnose the problem if given the Request Id. Both the HTTP status code and the ErrorType header can be utilized to make programmatic decisions about whether errors are retry-able and under what conditions, as well as provide information on what actions the client programmer might need to take in order to successfully try again. For more information, see the Errors section at the bottom of this topic, as well as Common Errors."]
module GetMediaForFragmentListOutput =
  struct
    type nonrec t =
      {
      contentType: ContentType.t option
        [@ocaml.doc "The content type of the requested media."];
      payload: Payload.t option
        [@ocaml.doc
          "The payload that Kinesis Video Streams returns is a sequence of chunks from the specified stream. For information about the chunks, see PutMedia. The chunks that Kinesis Video Streams returns in the GetMediaForFragmentList call also include the following additional Matroska (MKV) tags: AWS_KINESISVIDEO_FRAGMENT_NUMBER - Fragment number returned in the chunk. AWS_KINESISVIDEO_SERVER_SIDE_TIMESTAMP - Server-side timestamp of the fragment. AWS_KINESISVIDEO_PRODUCER_SIDE_TIMESTAMP - Producer-side timestamp of the fragment. The following tags will be included if an exception occurs: AWS_KINESISVIDEO_FRAGMENT_NUMBER - The number of the fragment that threw the exception AWS_KINESISVIDEO_EXCEPTION_ERROR_CODE - The integer code of the AWS_KINESISVIDEO_EXCEPTION_MESSAGE - A text description of the exception"]}
    type nonrec error =
      [ `ClientLimitExceededException of ClientLimitExceededException.t 
      | `InvalidArgumentException of InvalidArgumentException.t 
      | `NotAuthorizedException of NotAuthorizedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?contentType =
      fun ?payload -> fun () -> { contentType; payload }
    let error_of_json name json =
      match name with
      | "ClientLimitExceededException" ->
          `ClientLimitExceededException
            (ClientLimitExceededException.of_json json)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_json json)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientLimitExceededException" ->
          `ClientLimitExceededException
            (ClientLimitExceededException.of_xml xml)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_xml xml)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientLimitExceededException e ->
          `Assoc
            [("error", (`String "ClientLimitExceededException"));
            ("details", (ClientLimitExceededException.to_json e))]
      | `InvalidArgumentException e ->
          `Assoc
            [("error", (`String "InvalidArgumentException"));
            ("details", (InvalidArgumentException.to_json e))]
      | `NotAuthorizedException e ->
          `Assoc
            [("error", (`String "NotAuthorizedException"));
            ("details", (NotAuthorizedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body =
      ((fun (xs, pipe) ->
          make
            ?contentType:(Option.map
                            ((List.Assoc.find ~equal:String.Caseless.equal)
                               xs "Content-Type") ~f:ContentType.of_string)
            ?payload:(Some pipe) ())
      [@warning "-27"])
    let to_value x =
      structure_to_value
        [("Content-Type", (Option.map x.contentType ~f:ContentType.to_value));
        ("Payload", (Option.map x.payload ~f:Payload.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let payload =
        (Option.map ~f:Payload.of_xml) (Xml.child xml_arg0 "Payload") in
      let contentType =
        (Option.map ~f:ContentType.of_xml)
          (Xml.child xml_arg0 "Content-Type") in
      make ?payload ?contentType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let payload = field_map json__ "Payload" Payload.of_json in
      let contentType = field_map json__ "ContentType" ContentType.of_json in
      make ?payload ?contentType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets media for a list of fragments (specified by fragment number) from the archived data in an Amazon Kinesis video stream. You must first call the GetDataEndpoint API to get an endpoint. Then send the GetMediaForFragmentList requests to this endpoint using the --endpoint-url parameter. For limits, see Kinesis Video Streams Limits. If an error is thrown after invoking a Kinesis Video Streams archived media API, in addition to the HTTP status code and the response body, it includes the following pieces of information: x-amz-ErrorType HTTP header \226\128\147 contains a more specific error type in addition to what the HTTP status code provides. x-amz-RequestId HTTP header \226\128\147 if you want to report an issue to Amazon Web Services, the support team can better diagnose the problem if given the Request Id. Both the HTTP status code and the ErrorType header can be utilized to make programmatic decisions about whether errors are retry-able and under what conditions, as well as provide information on what actions the client programmer might need to take in order to successfully try again. For more information, see the Errors section at the bottom of this topic, as well as Common Errors."]
module GetMediaForFragmentListInput =
  struct
    type nonrec t =
      {
      streamName: StreamName.t option
        [@ocaml.doc
          "The name of the stream from which to retrieve fragment media. Specify either this parameter or the StreamARN parameter."];
      streamARN: ResourceARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the stream from which to retrieve fragment media. Specify either this parameter or the StreamName parameter."];
      fragments: FragmentNumberList.t
        [@ocaml.doc
          "A list of the numbers of fragments for which to retrieve media. You retrieve these values with ListFragments."]}
    let context_ = "GetMediaForFragmentListInput"
    let make ?streamName =
      fun ?streamARN ->
        fun ~fragments -> fun () -> { streamName; streamARN; fragments }
    let to_value x =
      structure_to_value
        [("StreamName", (Option.map x.streamName ~f:StreamName.to_value));
        ("StreamARN", (Option.map x.streamARN ~f:ResourceARN.to_value));
        ("Fragments", (Some (FragmentNumberList.to_value x.fragments)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fragments =
        FragmentNumberList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Fragments") in
      let streamARN =
        (Option.map ~f:ResourceARN.of_xml) (Xml.child xml_arg0 "StreamARN") in
      let streamName =
        (Option.map ~f:StreamName.of_xml) (Xml.child xml_arg0 "StreamName") in
      make ~fragments ?streamARN ?streamName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fragments =
        field_map_exn json__ "Fragments" FragmentNumberList.of_json in
      let streamARN = field_map json__ "StreamARN" ResourceARN.of_json in
      let streamName = field_map json__ "StreamName" StreamName.of_json in
      make ~fragments ?streamARN ?streamName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets media for a list of fragments (specified by fragment number) from the archived data in an Amazon Kinesis video stream. You must first call the GetDataEndpoint API to get an endpoint. Then send the GetMediaForFragmentList requests to this endpoint using the --endpoint-url parameter. For limits, see Kinesis Video Streams Limits. If an error is thrown after invoking a Kinesis Video Streams archived media API, in addition to the HTTP status code and the response body, it includes the following pieces of information: x-amz-ErrorType HTTP header \226\128\147 contains a more specific error type in addition to what the HTTP status code provides. x-amz-RequestId HTTP header \226\128\147 if you want to report an issue to Amazon Web Services, the support team can better diagnose the problem if given the Request Id. Both the HTTP status code and the ErrorType header can be utilized to make programmatic decisions about whether errors are retry-able and under what conditions, as well as provide information on what actions the client programmer might need to take in order to successfully try again. For more information, see the Errors section at the bottom of this topic, as well as Common Errors."]
module GetImagesOutput =
  struct
    type nonrec t =
      {
      images: Images.t option
        [@ocaml.doc
          "The list of images generated from the video stream. If there is no media available for the given timestamp, the NO_MEDIA error will be listed in the output. If an error occurs while the image is being generated, the MEDIA_ERROR will be listed in the output as the cause of the missing image."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The encrypted token that was used in the request to get more images."]}
    type nonrec error =
      [ `ClientLimitExceededException of ClientLimitExceededException.t 
      | `InvalidArgumentException of InvalidArgumentException.t 
      | `NoDataRetentionException of NoDataRetentionException.t 
      | `NotAuthorizedException of NotAuthorizedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?images = fun ?nextToken -> fun () -> { images; nextToken }
    let error_of_json name json =
      match name with
      | "ClientLimitExceededException" ->
          `ClientLimitExceededException
            (ClientLimitExceededException.of_json json)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_json json)
      | "NoDataRetentionException" ->
          `NoDataRetentionException (NoDataRetentionException.of_json json)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientLimitExceededException" ->
          `ClientLimitExceededException
            (ClientLimitExceededException.of_xml xml)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_xml xml)
      | "NoDataRetentionException" ->
          `NoDataRetentionException (NoDataRetentionException.of_xml xml)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientLimitExceededException e ->
          `Assoc
            [("error", (`String "ClientLimitExceededException"));
            ("details", (ClientLimitExceededException.to_json e))]
      | `InvalidArgumentException e ->
          `Assoc
            [("error", (`String "InvalidArgumentException"));
            ("details", (InvalidArgumentException.to_json e))]
      | `NoDataRetentionException e ->
          `Assoc
            [("error", (`String "NoDataRetentionException"));
            ("details", (NoDataRetentionException.to_json e))]
      | `NotAuthorizedException e ->
          `Assoc
            [("error", (`String "NotAuthorizedException"));
            ("details", (NotAuthorizedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Images", (Option.map x.images ~f:Images.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let images =
        (Option.map ~f:Images.of_xml) (Xml.child xml_arg0 "Images") in
      make ?nextToken ?images ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let images = field_map json__ "Images" Images.of_json in
      make ?nextToken ?images ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a list of images corresponding to each timestamp for a given time range, sampling interval, and image format configuration."]
module GetImagesInput =
  struct
    type nonrec t =
      {
      streamName: StreamName.t option
        [@ocaml.doc
          "The name of the stream from which to retrieve the images. You must specify either the StreamName or the StreamARN."];
      streamARN: ResourceARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the stream from which to retrieve the images. You must specify either the StreamName or the StreamARN."];
      imageSelectorType: ImageSelectorType.t
        [@ocaml.doc
          "The origin of the Server or Producer timestamps to use to generate the images."];
      startTimestamp: Timestamp.t
        [@ocaml.doc
          "The starting point from which the images should be generated. This StartTimestamp must be within an inclusive range of timestamps for an image to be returned."];
      endTimestamp: Timestamp.t
        [@ocaml.doc
          "The end timestamp for the range of images to be generated. If the time range between StartTimestamp and EndTimestamp is more than 300 seconds above StartTimestamp, you will receive an IllegalArgumentException."];
      samplingInterval: SamplingInterval.t option
        [@ocaml.doc
          "The time interval in milliseconds (ms) at which the images need to be generated from the stream. The minimum value that can be provided is 200 ms (5 images per second). If the timestamp range is less than the sampling interval, the image from the startTimestamp will be returned if available."];
      format: Format_.t
        [@ocaml.doc "The format that will be used to encode the image."];
      formatConfig: FormatConfig.t option
        [@ocaml.doc
          "The list of a key-value pair structure that contains extra parameters that can be applied when the image is generated. The FormatConfig key is the JPEGQuality, which indicates the JPEG quality key to be used to generate the image. The FormatConfig value accepts ints from 1 to 100. If the value is 1, the image will be generated with less quality and the best compression. If the value is 100, the image will be generated with the best quality and less compression. If no value is provided, the default value of the JPEGQuality key will be set to 80."];
      widthPixels: WidthPixels.t option
        [@ocaml.doc
          "The width of the output image that is used in conjunction with the HeightPixels parameter. When both WidthPixels and HeightPixels parameters are provided, the image will be stretched to fit the specified aspect ratio. If only the WidthPixels parameter is provided or if only the HeightPixels is provided, a ValidationException will be thrown. If neither parameter is provided, the original image size from the stream will be returned."];
      heightPixels: HeightPixels.t option
        [@ocaml.doc
          "The height of the output image that is used in conjunction with the WidthPixels parameter. When both HeightPixels and WidthPixels parameters are provided, the image will be stretched to fit the specified aspect ratio. If only the HeightPixels parameter is provided, its original aspect ratio will be used to calculate the WidthPixels ratio. If neither parameter is provided, the original image size will be returned."];
      maxResults: GetImagesMaxResults.t option
        [@ocaml.doc
          "The maximum number of images to be returned by the API. The default limit is 25 images per API response. Providing a MaxResults greater than this value will result in a page size of 25. Any additional results will be paginated."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token that specifies where to start paginating the next set of Images. This is the GetImages:NextToken from a previously truncated response."]}
    let context_ = "GetImagesInput"
    let make ?streamName =
      fun ?streamARN ->
        fun ?samplingInterval ->
          fun ?formatConfig ->
            fun ?widthPixels ->
              fun ?heightPixels ->
                fun ?maxResults ->
                  fun ?nextToken ->
                    fun ~imageSelectorType ->
                      fun ~startTimestamp ->
                        fun ~endTimestamp ->
                          fun ~format ->
                            fun () ->
                              {
                                streamName;
                                streamARN;
                                samplingInterval;
                                formatConfig;
                                widthPixels;
                                heightPixels;
                                maxResults;
                                nextToken;
                                imageSelectorType;
                                startTimestamp;
                                endTimestamp;
                                format
                              }
    let to_value x =
      structure_to_value
        [("StreamName", (Option.map x.streamName ~f:StreamName.to_value));
        ("StreamARN", (Option.map x.streamARN ~f:ResourceARN.to_value));
        ("ImageSelectorType",
          (Some (ImageSelectorType.to_value x.imageSelectorType)));
        ("StartTimestamp", (Some (Timestamp.to_value x.startTimestamp)));
        ("EndTimestamp", (Some (Timestamp.to_value x.endTimestamp)));
        ("SamplingInterval",
          (Option.map x.samplingInterval ~f:SamplingInterval.to_value));
        ("Format", (Some (Format_.to_value x.format)));
        ("FormatConfig",
          (Option.map x.formatConfig ~f:FormatConfig.to_value));
        ("WidthPixels", (Option.map x.widthPixels ~f:WidthPixels.to_value));
        ("HeightPixels",
          (Option.map x.heightPixels ~f:HeightPixels.to_value));
        ("MaxResults",
          (Option.map x.maxResults ~f:GetImagesMaxResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:GetImagesMaxResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let heightPixels =
        (Option.map ~f:HeightPixels.of_xml)
          (Xml.child xml_arg0 "HeightPixels") in
      let widthPixels =
        (Option.map ~f:WidthPixels.of_xml) (Xml.child xml_arg0 "WidthPixels") in
      let formatConfig =
        (Option.map ~f:FormatConfig.of_xml)
          (Xml.child xml_arg0 "FormatConfig") in
      let format =
        Format_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Format") in
      let samplingInterval =
        (Option.map ~f:SamplingInterval.of_xml)
          (Xml.child xml_arg0 "SamplingInterval") in
      let endTimestamp =
        Timestamp.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EndTimestamp") in
      let startTimestamp =
        Timestamp.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StartTimestamp") in
      let imageSelectorType =
        ImageSelectorType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ImageSelectorType") in
      let streamARN =
        (Option.map ~f:ResourceARN.of_xml) (Xml.child xml_arg0 "StreamARN") in
      let streamName =
        (Option.map ~f:StreamName.of_xml) (Xml.child xml_arg0 "StreamName") in
      make ?nextToken ?maxResults ?heightPixels ?widthPixels ?formatConfig
        ~format ?samplingInterval ~endTimestamp ~startTimestamp
        ~imageSelectorType ?streamARN ?streamName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let maxResults =
        field_map json__ "MaxResults" GetImagesMaxResults.of_json in
      let heightPixels = field_map json__ "HeightPixels" HeightPixels.of_json in
      let widthPixels = field_map json__ "WidthPixels" WidthPixels.of_json in
      let formatConfig = field_map json__ "FormatConfig" FormatConfig.of_json in
      let format = field_map_exn json__ "Format" Format_.of_json in
      let samplingInterval =
        field_map json__ "SamplingInterval" SamplingInterval.of_json in
      let endTimestamp =
        field_map_exn json__ "EndTimestamp" Timestamp.of_json in
      let startTimestamp =
        field_map_exn json__ "StartTimestamp" Timestamp.of_json in
      let imageSelectorType =
        field_map_exn json__ "ImageSelectorType" ImageSelectorType.of_json in
      let streamARN = field_map json__ "StreamARN" ResourceARN.of_json in
      let streamName = field_map json__ "StreamName" StreamName.of_json in
      make ?nextToken ?maxResults ?heightPixels ?widthPixels ?formatConfig
        ~format ?samplingInterval ~endTimestamp ~startTimestamp
        ~imageSelectorType ?streamARN ?streamName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a list of images corresponding to each timestamp for a given time range, sampling interval, and image format configuration."]
module GetHLSStreamingSessionURLOutput =
  struct
    type nonrec t =
      {
      hLSStreamingSessionURL: HLSStreamingSessionURL.t option
        [@ocaml.doc
          "The URL (containing the session token) that a media player can use to retrieve the HLS master playlist."]}
    type nonrec error =
      [ `ClientLimitExceededException of ClientLimitExceededException.t 
      | `InvalidArgumentException of InvalidArgumentException.t 
      | `InvalidCodecPrivateDataException of
          InvalidCodecPrivateDataException.t 
      | `MissingCodecPrivateDataException of
          MissingCodecPrivateDataException.t 
      | `NoDataRetentionException of NoDataRetentionException.t 
      | `NotAuthorizedException of NotAuthorizedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `UnsupportedStreamMediaTypeException of
          UnsupportedStreamMediaTypeException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?hLSStreamingSessionURL = fun () -> { hLSStreamingSessionURL }
    let error_of_json name json =
      match name with
      | "ClientLimitExceededException" ->
          `ClientLimitExceededException
            (ClientLimitExceededException.of_json json)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_json json)
      | "InvalidCodecPrivateDataException" ->
          `InvalidCodecPrivateDataException
            (InvalidCodecPrivateDataException.of_json json)
      | "MissingCodecPrivateDataException" ->
          `MissingCodecPrivateDataException
            (MissingCodecPrivateDataException.of_json json)
      | "NoDataRetentionException" ->
          `NoDataRetentionException (NoDataRetentionException.of_json json)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "UnsupportedStreamMediaTypeException" ->
          `UnsupportedStreamMediaTypeException
            (UnsupportedStreamMediaTypeException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientLimitExceededException" ->
          `ClientLimitExceededException
            (ClientLimitExceededException.of_xml xml)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_xml xml)
      | "InvalidCodecPrivateDataException" ->
          `InvalidCodecPrivateDataException
            (InvalidCodecPrivateDataException.of_xml xml)
      | "MissingCodecPrivateDataException" ->
          `MissingCodecPrivateDataException
            (MissingCodecPrivateDataException.of_xml xml)
      | "NoDataRetentionException" ->
          `NoDataRetentionException (NoDataRetentionException.of_xml xml)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "UnsupportedStreamMediaTypeException" ->
          `UnsupportedStreamMediaTypeException
            (UnsupportedStreamMediaTypeException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientLimitExceededException e ->
          `Assoc
            [("error", (`String "ClientLimitExceededException"));
            ("details", (ClientLimitExceededException.to_json e))]
      | `InvalidArgumentException e ->
          `Assoc
            [("error", (`String "InvalidArgumentException"));
            ("details", (InvalidArgumentException.to_json e))]
      | `InvalidCodecPrivateDataException e ->
          `Assoc
            [("error", (`String "InvalidCodecPrivateDataException"));
            ("details", (InvalidCodecPrivateDataException.to_json e))]
      | `MissingCodecPrivateDataException e ->
          `Assoc
            [("error", (`String "MissingCodecPrivateDataException"));
            ("details", (MissingCodecPrivateDataException.to_json e))]
      | `NoDataRetentionException e ->
          `Assoc
            [("error", (`String "NoDataRetentionException"));
            ("details", (NoDataRetentionException.to_json e))]
      | `NotAuthorizedException e ->
          `Assoc
            [("error", (`String "NotAuthorizedException"));
            ("details", (NotAuthorizedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `UnsupportedStreamMediaTypeException e ->
          `Assoc
            [("error", (`String "UnsupportedStreamMediaTypeException"));
            ("details", (UnsupportedStreamMediaTypeException.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
        [("HLSStreamingSessionURL",
           (Option.map x.hLSStreamingSessionURL
              ~f:HLSStreamingSessionURL.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let hLSStreamingSessionURL =
        (Option.map ~f:HLSStreamingSessionURL.of_xml)
          (Xml.child xml_arg0 "HLSStreamingSessionURL") in
      make ?hLSStreamingSessionURL ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let hLSStreamingSessionURL =
        field_map json__ "HLSStreamingSessionURL"
          HLSStreamingSessionURL.of_json in
      make ?hLSStreamingSessionURL ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves an HTTP Live Streaming (HLS) URL for the stream. You can then open the URL in a browser or media player to view the stream contents. Both the StreamName and the StreamARN parameters are optional, but you must specify either the StreamName or the StreamARN when invoking this API operation. An Amazon Kinesis video stream has the following requirements for providing data through HLS: For streaming video, the media must contain H.264 or H.265 encoded video and, optionally, AAC encoded audio. Specifically, the codec ID of track 1 should be V_MPEG/ISO/AVC (for H.264) or V_MPEG/ISO/HEVC (for H.265). Optionally, the codec ID of track 2 should be A_AAC. For audio only streaming, the codec ID of track 1 should be A_AAC. Data retention must be greater than 0. The video track of each fragment must contain codec private data in the Advanced Video Coding (AVC) for H.264 format or HEVC for H.265 format (MPEG-4 specification ISO/IEC 14496-15). For information about adapting stream data to a given format, see NAL Adaptation Flags. The audio track (if present) of each fragment must contain codec private data in the AAC format (AAC specification ISO/IEC 13818-7). Kinesis Video Streams HLS sessions contain fragments in the fragmented MPEG-4 form (also called fMP4 or CMAF) or the MPEG-2 form (also called TS chunks, which the HLS specification also supports). For more information about HLS fragment types, see the HLS specification. The following procedure shows how to use HLS with Kinesis Video Streams: Get an endpoint using GetDataEndpoint, specifying GET_HLS_STREAMING_SESSION_URL for the APIName parameter. Retrieve the HLS URL using GetHLSStreamingSessionURL. Kinesis Video Streams creates an HLS streaming session to be used for accessing content in a stream using the HLS protocol. GetHLSStreamingSessionURL returns an authenticated URL (that includes an encrypted session token) for the session's HLS master playlist (the root resource needed for streaming with HLS). Don't share or store this token where an unauthorized entity could access it. The token provides access to the content of the stream. Safeguard the token with the same measures that you would use with your Amazon Web Services credentials. The media that is made available through the playlist consists only of the requested stream, time range, and format. No other media data (such as frames outside the requested window or alternate bitrates) is made available. Provide the URL (containing the encrypted session token) for the HLS master playlist to a media player that supports the HLS protocol. Kinesis Video Streams makes the HLS media playlist, initialization fragment, and media fragments available through the master playlist URL. The initialization fragment contains the codec private data for the stream, and other data needed to set up the video or audio decoder and renderer. The media fragments contain H.264-encoded video frames or AAC-encoded audio samples. The media player receives the authenticated URL and requests stream metadata and media data normally. When the media player requests data, it calls the following actions: GetHLSMasterPlaylist: Retrieves an HLS master playlist, which contains a URL for the GetHLSMediaPlaylist action for each track, and additional metadata for the media player, including estimated bitrate and resolution. GetHLSMediaPlaylist: Retrieves an HLS media playlist, which contains a URL to access the MP4 initialization fragment with the GetMP4InitFragment action, and URLs to access the MP4 media fragments with the GetMP4MediaFragment actions. The HLS media playlist also contains metadata about the stream that the player needs to play it, such as whether the PlaybackMode is LIVE or ON_DEMAND. The HLS media playlist is typically static for sessions with a PlaybackType of ON_DEMAND. The HLS media playlist is continually updated with new fragments for sessions with a PlaybackType of LIVE. There is a distinct HLS media playlist for the video track and the audio track (if applicable) that contains MP4 media URLs for the specific track. GetMP4InitFragment: Retrieves the MP4 initialization fragment. The media player typically loads the initialization fragment before loading any media fragments. This fragment contains the \"fytp\" and \"moov\" MP4 atoms, and the child atoms that are needed to initialize the media player decoder. The initialization fragment does not correspond to a fragment in a Kinesis video stream. It contains only the codec private data for the stream and respective track, which the media player needs to decode the media frames. GetMP4MediaFragment: Retrieves MP4 media fragments. These fragments contain the \"moof\" and \"mdat\" MP4 atoms and their child atoms, containing the encoded fragment's media frames and their timestamps. For the HLS streaming session, in-track codec private data (CPD) changes are supported. After the first media fragment is made available in a streaming session, fragments can contain CPD changes for each track. Therefore, the fragments in a session can have a different resolution, bit rate, or other information in the CPD without interrupting playback. However, any change made in the track number or track codec format can return an error when those different media fragments are loaded. For example, streaming will fail if the fragments in the stream change from having only video to having both audio and video, or if an AAC audio track is changed to an ALAW audio track. For each streaming session, only 500 CPD changes are allowed. Data retrieved with this action is billable. For information, see Pricing. GetTSFragment: Retrieves MPEG TS fragments containing both initialization and media data for all tracks in the stream. If the ContainerFormat is MPEG_TS, this API is used instead of GetMP4InitFragment and GetMP4MediaFragment to retrieve stream media. Data retrieved with this action is billable. For more information, see Kinesis Video Streams pricing. A streaming session URL must not be shared between players. The service might throttle a session if multiple media players are sharing it. For connection limits, see Kinesis Video Streams Limits. You can monitor the amount of data that the media player consumes by monitoring the GetMP4MediaFragment.OutgoingBytes Amazon CloudWatch metric. For information about using CloudWatch to monitor Kinesis Video Streams, see Monitoring Kinesis Video Streams. For pricing information, see Amazon Kinesis Video Streams Pricing and Amazon Web Services Pricing. Charges for both HLS sessions and outgoing Amazon Web Services data apply. For more information about HLS, see HTTP Live Streaming on the Apple Developer site. If an error is thrown after invoking a Kinesis Video Streams archived media API, in addition to the HTTP status code and the response body, it includes the following pieces of information: x-amz-ErrorType HTTP header \226\128\147 contains a more specific error type in addition to what the HTTP status code provides. x-amz-RequestId HTTP header \226\128\147 if you want to report an issue to Amazon Web Services, the support team can better diagnose the problem if given the Request Id. Both the HTTP status code and the ErrorType header can be utilized to make programmatic decisions about whether errors are retry-able and under what conditions, as well as provide information on what actions the client programmer might need to take in order to successfully try again. For more information, see the Errors section at the bottom of this topic, as well as Common Errors."]
module GetHLSStreamingSessionURLInput =
  struct
    type nonrec t =
      {
      streamName: StreamName.t option
        [@ocaml.doc
          "The name of the stream for which to retrieve the HLS master playlist URL. You must specify either the StreamName or the StreamARN."];
      streamARN: ResourceARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the stream for which to retrieve the HLS master playlist URL. You must specify either the StreamName or the StreamARN."];
      playbackMode: HLSPlaybackMode.t option
        [@ocaml.doc
          "Whether to retrieve live, live replay, or archived, on-demand data. Features of the three types of sessions include the following: LIVE : For sessions of this type, the HLS media playlist is continually updated with the latest fragments as they become available. We recommend that the media player retrieve a new playlist on a one-second interval. When this type of session is played in a media player, the user interface typically displays a \"live\" notification, with no scrubber control for choosing the position in the playback window to display. In LIVE mode, the newest available fragments are included in an HLS media playlist, even if there is a gap between fragments (that is, if a fragment is missing). A gap like this might cause a media player to halt or cause a jump in playback. In this mode, fragments are not added to the HLS media playlist if they are older than the newest fragment in the playlist. If the missing fragment becomes available after a subsequent fragment is added to the playlist, the older fragment is not added, and the gap is not filled. LIVE_REPLAY : For sessions of this type, the HLS media playlist is updated similarly to how it is updated for LIVE mode except that it starts by including fragments from a given start time. Instead of fragments being added as they are ingested, fragments are added as the duration of the next fragment elapses. For example, if the fragments in the session are two seconds long, then a new fragment is added to the media playlist every two seconds. This mode is useful to be able to start playback from when an event is detected and continue live streaming media that has not yet been ingested as of the time of the session creation. This mode is also useful to stream previously archived media without being limited by the 1,000 fragment limit in the ON_DEMAND mode. ON_DEMAND : For sessions of this type, the HLS media playlist contains all the fragments for the session, up to the number that is specified in MaxMediaPlaylistFragmentResults. The playlist must be retrieved only once for each session. When this type of session is played in a media player, the user interface typically displays a scrubber control for choosing the position in the playback window to display. In all playback modes, if FragmentSelectorType is PRODUCER_TIMESTAMP, and if there are multiple fragments with the same start timestamp, the fragment that has the largest fragment number (that is, the newest fragment) is included in the HLS media playlist. The other fragments are not included. Fragments that have different timestamps but have overlapping durations are still included in the HLS media playlist. This can lead to unexpected behavior in the media player. The default is LIVE."];
      hLSFragmentSelector: HLSFragmentSelector.t option
        [@ocaml.doc
          "The time range of the requested fragment and the source of the timestamps. This parameter is required if PlaybackMode is ON_DEMAND or LIVE_REPLAY. This parameter is optional if PlaybackMode is LIVE. If PlaybackMode is LIVE, the FragmentSelectorType can be set, but the TimestampRange should not be set. If PlaybackMode is ON_DEMAND or LIVE_REPLAY, both FragmentSelectorType and TimestampRange must be set."];
      containerFormat: ContainerFormat.t option
        [@ocaml.doc
          "Specifies which format should be used for packaging the media. Specifying the FRAGMENTED_MP4 container format packages the media into MP4 fragments (fMP4 or CMAF). This is the recommended packaging because there is minimal packaging overhead. The other container format option is MPEG_TS. HLS has supported MPEG TS chunks since it was released and is sometimes the only supported packaging on older HLS players. MPEG TS typically has a 5-25 percent packaging overhead. This means MPEG TS typically requires 5-25 percent more bandwidth and cost than fMP4. The default is FRAGMENTED_MP4."];
      discontinuityMode: HLSDiscontinuityMode.t option
        [@ocaml.doc
          "Specifies when flags marking discontinuities between fragments are added to the media playlists. Media players typically build a timeline of media content to play, based on the timestamps of each fragment. This means that if there is any overlap or gap between fragments (as is typical if HLSFragmentSelector is set to SERVER_TIMESTAMP), the media player timeline will also have small gaps between fragments in some places, and will overwrite frames in other places. Gaps in the media player timeline can cause playback to stall and overlaps can cause playback to be jittery. When there are discontinuity flags between fragments, the media player is expected to reset the timeline, resulting in the next fragment being played immediately after the previous fragment. The following modes are supported: ALWAYS: a discontinuity marker is placed between every fragment in the HLS media playlist. It is recommended to use a value of ALWAYS if the fragment timestamps are not accurate. NEVER: no discontinuity markers are placed anywhere. It is recommended to use a value of NEVER to ensure the media player timeline most accurately maps to the producer timestamps. ON_DISCONTINUITY: a discontinuity marker is placed between fragments that have a gap or overlap of more than 50 milliseconds. For most playback scenarios, it is recommended to use a value of ON_DISCONTINUITY so that the media player timeline is only reset when there is a significant issue with the media timeline (e.g. a missing fragment). The default is ALWAYS when HLSFragmentSelector is set to SERVER_TIMESTAMP, and NEVER when it is set to PRODUCER_TIMESTAMP."];
      displayFragmentTimestamp: HLSDisplayFragmentTimestamp.t option
        [@ocaml.doc
          "Specifies when the fragment start timestamps should be included in the HLS media playlist. Typically, media players report the playhead position as a time relative to the start of the first fragment in the playback session. However, when the start timestamps are included in the HLS media playlist, some media players might report the current playhead as an absolute time based on the fragment timestamps. This can be useful for creating a playback experience that shows viewers the wall-clock time of the media. The default is NEVER. When HLSFragmentSelector is SERVER_TIMESTAMP, the timestamps will be the server start timestamps. Similarly, when HLSFragmentSelector is PRODUCER_TIMESTAMP, the timestamps will be the producer start timestamps."];
      expires: Expires.t option
        [@ocaml.doc
          "The time in seconds until the requested session expires. This value can be between 300 (5 minutes) and 43200 (12 hours). When a session expires, no new calls to GetHLSMasterPlaylist, GetHLSMediaPlaylist, GetMP4InitFragment, GetMP4MediaFragment, or GetTSFragment can be made for that session. The default is 300 (5 minutes)."];
      maxMediaPlaylistFragmentResults: HLSMaxResults.t option
        [@ocaml.doc
          "The maximum number of fragments that are returned in the HLS media playlists. When the PlaybackMode is LIVE, the most recent fragments are returned up to this value. When the PlaybackMode is ON_DEMAND, the oldest fragments are returned, up to this maximum number. When there are a higher number of fragments available in a live HLS media playlist, video players often buffer content before starting playback. Increasing the buffer size increases the playback latency, but it decreases the likelihood that rebuffering will occur during playback. We recommend that a live HLS media playlist have a minimum of 3 fragments and a maximum of 10 fragments. The default is 5 fragments if PlaybackMode is LIVE or LIVE_REPLAY, and 1,000 if PlaybackMode is ON_DEMAND. The maximum value of 5,000 fragments corresponds to more than 80 minutes of video on streams with 1-second fragments, and more than 13 hours of video on streams with 10-second fragments."]}
    let make ?streamName =
      fun ?streamARN ->
        fun ?playbackMode ->
          fun ?hLSFragmentSelector ->
            fun ?containerFormat ->
              fun ?discontinuityMode ->
                fun ?displayFragmentTimestamp ->
                  fun ?expires ->
                    fun ?maxMediaPlaylistFragmentResults ->
                      fun () ->
                        {
                          streamName;
                          streamARN;
                          playbackMode;
                          hLSFragmentSelector;
                          containerFormat;
                          discontinuityMode;
                          displayFragmentTimestamp;
                          expires;
                          maxMediaPlaylistFragmentResults
                        }
    let to_value x =
      structure_to_value
        [("StreamName", (Option.map x.streamName ~f:StreamName.to_value));
        ("StreamARN", (Option.map x.streamARN ~f:ResourceARN.to_value));
        ("PlaybackMode",
          (Option.map x.playbackMode ~f:HLSPlaybackMode.to_value));
        ("HLSFragmentSelector",
          (Option.map x.hLSFragmentSelector ~f:HLSFragmentSelector.to_value));
        ("ContainerFormat",
          (Option.map x.containerFormat ~f:ContainerFormat.to_value));
        ("DiscontinuityMode",
          (Option.map x.discontinuityMode ~f:HLSDiscontinuityMode.to_value));
        ("DisplayFragmentTimestamp",
          (Option.map x.displayFragmentTimestamp
             ~f:HLSDisplayFragmentTimestamp.to_value));
        ("Expires", (Option.map x.expires ~f:Expires.to_value));
        ("MaxMediaPlaylistFragmentResults",
          (Option.map x.maxMediaPlaylistFragmentResults
             ~f:HLSMaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxMediaPlaylistFragmentResults =
        (Option.map ~f:HLSMaxResults.of_xml)
          (Xml.child xml_arg0 "MaxMediaPlaylistFragmentResults") in
      let expires =
        (Option.map ~f:Expires.of_xml) (Xml.child xml_arg0 "Expires") in
      let displayFragmentTimestamp =
        (Option.map ~f:HLSDisplayFragmentTimestamp.of_xml)
          (Xml.child xml_arg0 "DisplayFragmentTimestamp") in
      let discontinuityMode =
        (Option.map ~f:HLSDiscontinuityMode.of_xml)
          (Xml.child xml_arg0 "DiscontinuityMode") in
      let containerFormat =
        (Option.map ~f:ContainerFormat.of_xml)
          (Xml.child xml_arg0 "ContainerFormat") in
      let hLSFragmentSelector =
        (Option.map ~f:HLSFragmentSelector.of_xml)
          (Xml.child xml_arg0 "HLSFragmentSelector") in
      let playbackMode =
        (Option.map ~f:HLSPlaybackMode.of_xml)
          (Xml.child xml_arg0 "PlaybackMode") in
      let streamARN =
        (Option.map ~f:ResourceARN.of_xml) (Xml.child xml_arg0 "StreamARN") in
      let streamName =
        (Option.map ~f:StreamName.of_xml) (Xml.child xml_arg0 "StreamName") in
      make ?maxMediaPlaylistFragmentResults ?expires
        ?displayFragmentTimestamp ?discontinuityMode ?containerFormat
        ?hLSFragmentSelector ?playbackMode ?streamARN ?streamName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxMediaPlaylistFragmentResults =
        field_map json__ "MaxMediaPlaylistFragmentResults"
          HLSMaxResults.of_json in
      let expires = field_map json__ "Expires" Expires.of_json in
      let displayFragmentTimestamp =
        field_map json__ "DisplayFragmentTimestamp"
          HLSDisplayFragmentTimestamp.of_json in
      let discontinuityMode =
        field_map json__ "DiscontinuityMode" HLSDiscontinuityMode.of_json in
      let containerFormat =
        field_map json__ "ContainerFormat" ContainerFormat.of_json in
      let hLSFragmentSelector =
        field_map json__ "HLSFragmentSelector" HLSFragmentSelector.of_json in
      let playbackMode =
        field_map json__ "PlaybackMode" HLSPlaybackMode.of_json in
      let streamARN = field_map json__ "StreamARN" ResourceARN.of_json in
      let streamName = field_map json__ "StreamName" StreamName.of_json in
      make ?maxMediaPlaylistFragmentResults ?expires
        ?displayFragmentTimestamp ?discontinuityMode ?containerFormat
        ?hLSFragmentSelector ?playbackMode ?streamARN ?streamName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves an HTTP Live Streaming (HLS) URL for the stream. You can then open the URL in a browser or media player to view the stream contents. Both the StreamName and the StreamARN parameters are optional, but you must specify either the StreamName or the StreamARN when invoking this API operation. An Amazon Kinesis video stream has the following requirements for providing data through HLS: For streaming video, the media must contain H.264 or H.265 encoded video and, optionally, AAC encoded audio. Specifically, the codec ID of track 1 should be V_MPEG/ISO/AVC (for H.264) or V_MPEG/ISO/HEVC (for H.265). Optionally, the codec ID of track 2 should be A_AAC. For audio only streaming, the codec ID of track 1 should be A_AAC. Data retention must be greater than 0. The video track of each fragment must contain codec private data in the Advanced Video Coding (AVC) for H.264 format or HEVC for H.265 format (MPEG-4 specification ISO/IEC 14496-15). For information about adapting stream data to a given format, see NAL Adaptation Flags. The audio track (if present) of each fragment must contain codec private data in the AAC format (AAC specification ISO/IEC 13818-7). Kinesis Video Streams HLS sessions contain fragments in the fragmented MPEG-4 form (also called fMP4 or CMAF) or the MPEG-2 form (also called TS chunks, which the HLS specification also supports). For more information about HLS fragment types, see the HLS specification. The following procedure shows how to use HLS with Kinesis Video Streams: Get an endpoint using GetDataEndpoint, specifying GET_HLS_STREAMING_SESSION_URL for the APIName parameter. Retrieve the HLS URL using GetHLSStreamingSessionURL. Kinesis Video Streams creates an HLS streaming session to be used for accessing content in a stream using the HLS protocol. GetHLSStreamingSessionURL returns an authenticated URL (that includes an encrypted session token) for the session's HLS master playlist (the root resource needed for streaming with HLS). Don't share or store this token where an unauthorized entity could access it. The token provides access to the content of the stream. Safeguard the token with the same measures that you would use with your Amazon Web Services credentials. The media that is made available through the playlist consists only of the requested stream, time range, and format. No other media data (such as frames outside the requested window or alternate bitrates) is made available. Provide the URL (containing the encrypted session token) for the HLS master playlist to a media player that supports the HLS protocol. Kinesis Video Streams makes the HLS media playlist, initialization fragment, and media fragments available through the master playlist URL. The initialization fragment contains the codec private data for the stream, and other data needed to set up the video or audio decoder and renderer. The media fragments contain H.264-encoded video frames or AAC-encoded audio samples. The media player receives the authenticated URL and requests stream metadata and media data normally. When the media player requests data, it calls the following actions: GetHLSMasterPlaylist: Retrieves an HLS master playlist, which contains a URL for the GetHLSMediaPlaylist action for each track, and additional metadata for the media player, including estimated bitrate and resolution. GetHLSMediaPlaylist: Retrieves an HLS media playlist, which contains a URL to access the MP4 initialization fragment with the GetMP4InitFragment action, and URLs to access the MP4 media fragments with the GetMP4MediaFragment actions. The HLS media playlist also contains metadata about the stream that the player needs to play it, such as whether the PlaybackMode is LIVE or ON_DEMAND. The HLS media playlist is typically static for sessions with a PlaybackType of ON_DEMAND. The HLS media playlist is continually updated with new fragments for sessions with a PlaybackType of LIVE. There is a distinct HLS media playlist for the video track and the audio track (if applicable) that contains MP4 media URLs for the specific track. GetMP4InitFragment: Retrieves the MP4 initialization fragment. The media player typically loads the initialization fragment before loading any media fragments. This fragment contains the \"fytp\" and \"moov\" MP4 atoms, and the child atoms that are needed to initialize the media player decoder. The initialization fragment does not correspond to a fragment in a Kinesis video stream. It contains only the codec private data for the stream and respective track, which the media player needs to decode the media frames. GetMP4MediaFragment: Retrieves MP4 media fragments. These fragments contain the \"moof\" and \"mdat\" MP4 atoms and their child atoms, containing the encoded fragment's media frames and their timestamps. For the HLS streaming session, in-track codec private data (CPD) changes are supported. After the first media fragment is made available in a streaming session, fragments can contain CPD changes for each track. Therefore, the fragments in a session can have a different resolution, bit rate, or other information in the CPD without interrupting playback. However, any change made in the track number or track codec format can return an error when those different media fragments are loaded. For example, streaming will fail if the fragments in the stream change from having only video to having both audio and video, or if an AAC audio track is changed to an ALAW audio track. For each streaming session, only 500 CPD changes are allowed. Data retrieved with this action is billable. For information, see Pricing. GetTSFragment: Retrieves MPEG TS fragments containing both initialization and media data for all tracks in the stream. If the ContainerFormat is MPEG_TS, this API is used instead of GetMP4InitFragment and GetMP4MediaFragment to retrieve stream media. Data retrieved with this action is billable. For more information, see Kinesis Video Streams pricing. A streaming session URL must not be shared between players. The service might throttle a session if multiple media players are sharing it. For connection limits, see Kinesis Video Streams Limits. You can monitor the amount of data that the media player consumes by monitoring the GetMP4MediaFragment.OutgoingBytes Amazon CloudWatch metric. For information about using CloudWatch to monitor Kinesis Video Streams, see Monitoring Kinesis Video Streams. For pricing information, see Amazon Kinesis Video Streams Pricing and Amazon Web Services Pricing. Charges for both HLS sessions and outgoing Amazon Web Services data apply. For more information about HLS, see HTTP Live Streaming on the Apple Developer site. If an error is thrown after invoking a Kinesis Video Streams archived media API, in addition to the HTTP status code and the response body, it includes the following pieces of information: x-amz-ErrorType HTTP header \226\128\147 contains a more specific error type in addition to what the HTTP status code provides. x-amz-RequestId HTTP header \226\128\147 if you want to report an issue to Amazon Web Services, the support team can better diagnose the problem if given the Request Id. Both the HTTP status code and the ErrorType header can be utilized to make programmatic decisions about whether errors are retry-able and under what conditions, as well as provide information on what actions the client programmer might need to take in order to successfully try again. For more information, see the Errors section at the bottom of this topic, as well as Common Errors."]
module GetDASHStreamingSessionURLOutput =
  struct
    type nonrec t =
      {
      dASHStreamingSessionURL: DASHStreamingSessionURL.t option
        [@ocaml.doc
          "The URL (containing the session token) that a media player can use to retrieve the MPEG-DASH manifest."]}
    type nonrec error =
      [ `ClientLimitExceededException of ClientLimitExceededException.t 
      | `InvalidArgumentException of InvalidArgumentException.t 
      | `InvalidCodecPrivateDataException of
          InvalidCodecPrivateDataException.t 
      | `MissingCodecPrivateDataException of
          MissingCodecPrivateDataException.t 
      | `NoDataRetentionException of NoDataRetentionException.t 
      | `NotAuthorizedException of NotAuthorizedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `UnsupportedStreamMediaTypeException of
          UnsupportedStreamMediaTypeException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?dASHStreamingSessionURL = fun () -> { dASHStreamingSessionURL }
    let error_of_json name json =
      match name with
      | "ClientLimitExceededException" ->
          `ClientLimitExceededException
            (ClientLimitExceededException.of_json json)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_json json)
      | "InvalidCodecPrivateDataException" ->
          `InvalidCodecPrivateDataException
            (InvalidCodecPrivateDataException.of_json json)
      | "MissingCodecPrivateDataException" ->
          `MissingCodecPrivateDataException
            (MissingCodecPrivateDataException.of_json json)
      | "NoDataRetentionException" ->
          `NoDataRetentionException (NoDataRetentionException.of_json json)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "UnsupportedStreamMediaTypeException" ->
          `UnsupportedStreamMediaTypeException
            (UnsupportedStreamMediaTypeException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientLimitExceededException" ->
          `ClientLimitExceededException
            (ClientLimitExceededException.of_xml xml)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_xml xml)
      | "InvalidCodecPrivateDataException" ->
          `InvalidCodecPrivateDataException
            (InvalidCodecPrivateDataException.of_xml xml)
      | "MissingCodecPrivateDataException" ->
          `MissingCodecPrivateDataException
            (MissingCodecPrivateDataException.of_xml xml)
      | "NoDataRetentionException" ->
          `NoDataRetentionException (NoDataRetentionException.of_xml xml)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "UnsupportedStreamMediaTypeException" ->
          `UnsupportedStreamMediaTypeException
            (UnsupportedStreamMediaTypeException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientLimitExceededException e ->
          `Assoc
            [("error", (`String "ClientLimitExceededException"));
            ("details", (ClientLimitExceededException.to_json e))]
      | `InvalidArgumentException e ->
          `Assoc
            [("error", (`String "InvalidArgumentException"));
            ("details", (InvalidArgumentException.to_json e))]
      | `InvalidCodecPrivateDataException e ->
          `Assoc
            [("error", (`String "InvalidCodecPrivateDataException"));
            ("details", (InvalidCodecPrivateDataException.to_json e))]
      | `MissingCodecPrivateDataException e ->
          `Assoc
            [("error", (`String "MissingCodecPrivateDataException"));
            ("details", (MissingCodecPrivateDataException.to_json e))]
      | `NoDataRetentionException e ->
          `Assoc
            [("error", (`String "NoDataRetentionException"));
            ("details", (NoDataRetentionException.to_json e))]
      | `NotAuthorizedException e ->
          `Assoc
            [("error", (`String "NotAuthorizedException"));
            ("details", (NotAuthorizedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `UnsupportedStreamMediaTypeException e ->
          `Assoc
            [("error", (`String "UnsupportedStreamMediaTypeException"));
            ("details", (UnsupportedStreamMediaTypeException.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
        [("DASHStreamingSessionURL",
           (Option.map x.dASHStreamingSessionURL
              ~f:DASHStreamingSessionURL.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dASHStreamingSessionURL =
        (Option.map ~f:DASHStreamingSessionURL.of_xml)
          (Xml.child xml_arg0 "DASHStreamingSessionURL") in
      make ?dASHStreamingSessionURL ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dASHStreamingSessionURL =
        field_map json__ "DASHStreamingSessionURL"
          DASHStreamingSessionURL.of_json in
      make ?dASHStreamingSessionURL ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves an MPEG Dynamic Adaptive Streaming over HTTP (DASH) URL for the stream. You can then open the URL in a media player to view the stream contents. Both the StreamName and the StreamARN parameters are optional, but you must specify either the StreamName or the StreamARN when invoking this API operation. An Amazon Kinesis video stream has the following requirements for providing data through MPEG-DASH: The media must contain h.264 or h.265 encoded video and, optionally, AAC or G.711 encoded audio. Specifically, the codec ID of track 1 should be V_MPEG/ISO/AVC (for h.264) or V_MPEGH/ISO/HEVC (for H.265). Optionally, the codec ID of track 2 should be A_AAC (for AAC) or A_MS/ACM (for G.711). Data retention must be greater than 0. The video track of each fragment must contain codec private data in the Advanced Video Coding (AVC) for H.264 format and HEVC for H.265 format. For more information, see MPEG-4 specification ISO/IEC 14496-15. For information about adapting stream data to a given format, see NAL Adaptation Flags. The audio track (if present) of each fragment must contain codec private data in the AAC format (AAC specification ISO/IEC 13818-7) or the MS Wave format. The following procedure shows how to use MPEG-DASH with Kinesis Video Streams: Get an endpoint using GetDataEndpoint, specifying GET_DASH_STREAMING_SESSION_URL for the APIName parameter. Retrieve the MPEG-DASH URL using GetDASHStreamingSessionURL. Kinesis Video Streams creates an MPEG-DASH streaming session to be used for accessing content in a stream using the MPEG-DASH protocol. GetDASHStreamingSessionURL returns an authenticated URL (that includes an encrypted session token) for the session's MPEG-DASH manifest (the root resource needed for streaming with MPEG-DASH). Don't share or store this token where an unauthorized entity can access it. The token provides access to the content of the stream. Safeguard the token with the same measures that you use with your Amazon Web Services credentials. The media that is made available through the manifest consists only of the requested stream, time range, and format. No other media data (such as frames outside the requested window or alternate bitrates) is made available. Provide the URL (containing the encrypted session token) for the MPEG-DASH manifest to a media player that supports the MPEG-DASH protocol. Kinesis Video Streams makes the initialization fragment and media fragments available through the manifest URL. The initialization fragment contains the codec private data for the stream, and other data needed to set up the video or audio decoder and renderer. The media fragments contain encoded video frames or encoded audio samples. The media player receives the authenticated URL and requests stream metadata and media data normally. When the media player requests data, it calls the following actions: GetDASHManifest: Retrieves an MPEG DASH manifest, which contains the metadata for the media that you want to playback. GetMP4InitFragment: Retrieves the MP4 initialization fragment. The media player typically loads the initialization fragment before loading any media fragments. This fragment contains the \"fytp\" and \"moov\" MP4 atoms, and the child atoms that are needed to initialize the media player decoder. The initialization fragment does not correspond to a fragment in a Kinesis video stream. It contains only the codec private data for the stream and respective track, which the media player needs to decode the media frames. GetMP4MediaFragment: Retrieves MP4 media fragments. These fragments contain the \"moof\" and \"mdat\" MP4 atoms and their child atoms, containing the encoded fragment's media frames and their timestamps. After the first media fragment is made available in a streaming session, any fragments that don't contain the same codec private data cause an error to be returned when those different media fragments are loaded. Therefore, the codec private data should not change between fragments in a session. This also means that the session fails if the fragments in a stream change from having only video to having both audio and video. Data retrieved with this action is billable. See Pricing for details. For restrictions that apply to MPEG-DASH sessions, see Kinesis Video Streams Limits. You can monitor the amount of data that the media player consumes by monitoring the GetMP4MediaFragment.OutgoingBytes Amazon CloudWatch metric. For information about using CloudWatch to monitor Kinesis Video Streams, see Monitoring Kinesis Video Streams. For pricing information, see Amazon Kinesis Video Streams Pricing and Amazon Web Services Pricing. Charges for both HLS sessions and outgoing Amazon Web Services data apply. For more information about HLS, see HTTP Live Streaming on the Apple Developer site. If an error is thrown after invoking a Kinesis Video Streams archived media API, in addition to the HTTP status code and the response body, it includes the following pieces of information: x-amz-ErrorType HTTP header \226\128\147 contains a more specific error type in addition to what the HTTP status code provides. x-amz-RequestId HTTP header \226\128\147 if you want to report an issue to Amazon Web Services the support team can better diagnose the problem if given the Request Id. Both the HTTP status code and the ErrorType header can be utilized to make programmatic decisions about whether errors are retry-able and under what conditions, as well as provide information on what actions the client programmer might need to take in order to successfully try again. For more information, see the Errors section at the bottom of this topic, as well as Common Errors."]
module GetDASHStreamingSessionURLInput =
  struct
    type nonrec t =
      {
      streamName: StreamName.t option
        [@ocaml.doc
          "The name of the stream for which to retrieve the MPEG-DASH manifest URL. You must specify either the StreamName or the StreamARN."];
      streamARN: ResourceARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the stream for which to retrieve the MPEG-DASH manifest URL. You must specify either the StreamName or the StreamARN."];
      playbackMode: DASHPlaybackMode.t option
        [@ocaml.doc
          "Whether to retrieve live, live replay, or archived, on-demand data. Features of the three types of sessions include the following: LIVE : For sessions of this type, the MPEG-DASH manifest is continually updated with the latest fragments as they become available. We recommend that the media player retrieve a new manifest on a one-second interval. When this type of session is played in a media player, the user interface typically displays a \"live\" notification, with no scrubber control for choosing the position in the playback window to display. In LIVE mode, the newest available fragments are included in an MPEG-DASH manifest, even if there is a gap between fragments (that is, if a fragment is missing). A gap like this might cause a media player to halt or cause a jump in playback. In this mode, fragments are not added to the MPEG-DASH manifest if they are older than the newest fragment in the playlist. If the missing fragment becomes available after a subsequent fragment is added to the manifest, the older fragment is not added, and the gap is not filled. LIVE_REPLAY : For sessions of this type, the MPEG-DASH manifest is updated similarly to how it is updated for LIVE mode except that it starts by including fragments from a given start time. Instead of fragments being added as they are ingested, fragments are added as the duration of the next fragment elapses. For example, if the fragments in the session are two seconds long, then a new fragment is added to the manifest every two seconds. This mode is useful to be able to start playback from when an event is detected and continue live streaming media that has not yet been ingested as of the time of the session creation. This mode is also useful to stream previously archived media without being limited by the 1,000 fragment limit in the ON_DEMAND mode. ON_DEMAND : For sessions of this type, the MPEG-DASH manifest contains all the fragments for the session, up to the number that is specified in MaxManifestFragmentResults. The manifest must be retrieved only once for each session. When this type of session is played in a media player, the user interface typically displays a scrubber control for choosing the position in the playback window to display. In all playback modes, if FragmentSelectorType is PRODUCER_TIMESTAMP, and if there are multiple fragments with the same start timestamp, the fragment that has the larger fragment number (that is, the newer fragment) is included in the MPEG-DASH manifest. The other fragments are not included. Fragments that have different timestamps but have overlapping durations are still included in the MPEG-DASH manifest. This can lead to unexpected behavior in the media player. The default is LIVE."];
      displayFragmentTimestamp: DASHDisplayFragmentTimestamp.t option
        [@ocaml.doc
          "Per the MPEG-DASH specification, the wall-clock time of fragments in the manifest file can be derived using attributes in the manifest itself. However, typically, MPEG-DASH compatible media players do not properly handle gaps in the media timeline. Kinesis Video Streams adjusts the media timeline in the manifest file to enable playback of media with discontinuities. Therefore, the wall-clock time derived from the manifest file may be inaccurate. If DisplayFragmentTimestamp is set to ALWAYS, the accurate fragment timestamp is added to each S element in the manifest file with the attribute name \226\128\156kvs:ts\226\128\157. A custom MPEG-DASH media player is necessary to leverage this custom attribute. The default value is NEVER. When DASHFragmentSelector is SERVER_TIMESTAMP, the timestamps will be the server start timestamps. Similarly, when DASHFragmentSelector is PRODUCER_TIMESTAMP, the timestamps will be the producer start timestamps."];
      displayFragmentNumber: DASHDisplayFragmentNumber.t option
        [@ocaml.doc
          "Fragments are identified in the manifest file based on their sequence number in the session. If DisplayFragmentNumber is set to ALWAYS, the Kinesis Video Streams fragment number is added to each S element in the manifest file with the attribute name \226\128\156kvs:fn\226\128\157. These fragment numbers can be used for logging or for use with other APIs (e.g. GetMedia and GetMediaForFragmentList). A custom MPEG-DASH media player is necessary to leverage these this custom attribute. The default value is NEVER."];
      dASHFragmentSelector: DASHFragmentSelector.t option
        [@ocaml.doc
          "The time range of the requested fragment and the source of the timestamps. This parameter is required if PlaybackMode is ON_DEMAND or LIVE_REPLAY. This parameter is optional if PlaybackMode is LIVE. If PlaybackMode is LIVE, the FragmentSelectorType can be set, but the TimestampRange should not be set. If PlaybackMode is ON_DEMAND or LIVE_REPLAY, both FragmentSelectorType and TimestampRange must be set."];
      expires: Expires.t option
        [@ocaml.doc
          "The time in seconds until the requested session expires. This value can be between 300 (5 minutes) and 43200 (12 hours). When a session expires, no new calls to GetDashManifest, GetMP4InitFragment, or GetMP4MediaFragment can be made for that session. The default is 300 (5 minutes)."];
      maxManifestFragmentResults: DASHMaxResults.t option
        [@ocaml.doc
          "The maximum number of fragments that are returned in the MPEG-DASH manifest. When the PlaybackMode is LIVE, the most recent fragments are returned up to this value. When the PlaybackMode is ON_DEMAND, the oldest fragments are returned, up to this maximum number. When there are a higher number of fragments available in a live MPEG-DASH manifest, video players often buffer content before starting playback. Increasing the buffer size increases the playback latency, but it decreases the likelihood that rebuffering will occur during playback. We recommend that a live MPEG-DASH manifest have a minimum of 3 fragments and a maximum of 10 fragments. The default is 5 fragments if PlaybackMode is LIVE or LIVE_REPLAY, and 1,000 if PlaybackMode is ON_DEMAND. The maximum value of 1,000 fragments corresponds to more than 16 minutes of video on streams with 1-second fragments, and more than 2 1/2 hours of video on streams with 10-second fragments."]}
    let make ?streamName =
      fun ?streamARN ->
        fun ?playbackMode ->
          fun ?displayFragmentTimestamp ->
            fun ?displayFragmentNumber ->
              fun ?dASHFragmentSelector ->
                fun ?expires ->
                  fun ?maxManifestFragmentResults ->
                    fun () ->
                      {
                        streamName;
                        streamARN;
                        playbackMode;
                        displayFragmentTimestamp;
                        displayFragmentNumber;
                        dASHFragmentSelector;
                        expires;
                        maxManifestFragmentResults
                      }
    let to_value x =
      structure_to_value
        [("StreamName", (Option.map x.streamName ~f:StreamName.to_value));
        ("StreamARN", (Option.map x.streamARN ~f:ResourceARN.to_value));
        ("PlaybackMode",
          (Option.map x.playbackMode ~f:DASHPlaybackMode.to_value));
        ("DisplayFragmentTimestamp",
          (Option.map x.displayFragmentTimestamp
             ~f:DASHDisplayFragmentTimestamp.to_value));
        ("DisplayFragmentNumber",
          (Option.map x.displayFragmentNumber
             ~f:DASHDisplayFragmentNumber.to_value));
        ("DASHFragmentSelector",
          (Option.map x.dASHFragmentSelector ~f:DASHFragmentSelector.to_value));
        ("Expires", (Option.map x.expires ~f:Expires.to_value));
        ("MaxManifestFragmentResults",
          (Option.map x.maxManifestFragmentResults ~f:DASHMaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxManifestFragmentResults =
        (Option.map ~f:DASHMaxResults.of_xml)
          (Xml.child xml_arg0 "MaxManifestFragmentResults") in
      let expires =
        (Option.map ~f:Expires.of_xml) (Xml.child xml_arg0 "Expires") in
      let dASHFragmentSelector =
        (Option.map ~f:DASHFragmentSelector.of_xml)
          (Xml.child xml_arg0 "DASHFragmentSelector") in
      let displayFragmentNumber =
        (Option.map ~f:DASHDisplayFragmentNumber.of_xml)
          (Xml.child xml_arg0 "DisplayFragmentNumber") in
      let displayFragmentTimestamp =
        (Option.map ~f:DASHDisplayFragmentTimestamp.of_xml)
          (Xml.child xml_arg0 "DisplayFragmentTimestamp") in
      let playbackMode =
        (Option.map ~f:DASHPlaybackMode.of_xml)
          (Xml.child xml_arg0 "PlaybackMode") in
      let streamARN =
        (Option.map ~f:ResourceARN.of_xml) (Xml.child xml_arg0 "StreamARN") in
      let streamName =
        (Option.map ~f:StreamName.of_xml) (Xml.child xml_arg0 "StreamName") in
      make ?maxManifestFragmentResults ?expires ?dASHFragmentSelector
        ?displayFragmentNumber ?displayFragmentTimestamp ?playbackMode
        ?streamARN ?streamName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxManifestFragmentResults =
        field_map json__ "MaxManifestFragmentResults" DASHMaxResults.of_json in
      let expires = field_map json__ "Expires" Expires.of_json in
      let dASHFragmentSelector =
        field_map json__ "DASHFragmentSelector" DASHFragmentSelector.of_json in
      let displayFragmentNumber =
        field_map json__ "DisplayFragmentNumber"
          DASHDisplayFragmentNumber.of_json in
      let displayFragmentTimestamp =
        field_map json__ "DisplayFragmentTimestamp"
          DASHDisplayFragmentTimestamp.of_json in
      let playbackMode =
        field_map json__ "PlaybackMode" DASHPlaybackMode.of_json in
      let streamARN = field_map json__ "StreamARN" ResourceARN.of_json in
      let streamName = field_map json__ "StreamName" StreamName.of_json in
      make ?maxManifestFragmentResults ?expires ?dASHFragmentSelector
        ?displayFragmentNumber ?displayFragmentTimestamp ?playbackMode
        ?streamARN ?streamName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves an MPEG Dynamic Adaptive Streaming over HTTP (DASH) URL for the stream. You can then open the URL in a media player to view the stream contents. Both the StreamName and the StreamARN parameters are optional, but you must specify either the StreamName or the StreamARN when invoking this API operation. An Amazon Kinesis video stream has the following requirements for providing data through MPEG-DASH: The media must contain h.264 or h.265 encoded video and, optionally, AAC or G.711 encoded audio. Specifically, the codec ID of track 1 should be V_MPEG/ISO/AVC (for h.264) or V_MPEGH/ISO/HEVC (for H.265). Optionally, the codec ID of track 2 should be A_AAC (for AAC) or A_MS/ACM (for G.711). Data retention must be greater than 0. The video track of each fragment must contain codec private data in the Advanced Video Coding (AVC) for H.264 format and HEVC for H.265 format. For more information, see MPEG-4 specification ISO/IEC 14496-15. For information about adapting stream data to a given format, see NAL Adaptation Flags. The audio track (if present) of each fragment must contain codec private data in the AAC format (AAC specification ISO/IEC 13818-7) or the MS Wave format. The following procedure shows how to use MPEG-DASH with Kinesis Video Streams: Get an endpoint using GetDataEndpoint, specifying GET_DASH_STREAMING_SESSION_URL for the APIName parameter. Retrieve the MPEG-DASH URL using GetDASHStreamingSessionURL. Kinesis Video Streams creates an MPEG-DASH streaming session to be used for accessing content in a stream using the MPEG-DASH protocol. GetDASHStreamingSessionURL returns an authenticated URL (that includes an encrypted session token) for the session's MPEG-DASH manifest (the root resource needed for streaming with MPEG-DASH). Don't share or store this token where an unauthorized entity can access it. The token provides access to the content of the stream. Safeguard the token with the same measures that you use with your Amazon Web Services credentials. The media that is made available through the manifest consists only of the requested stream, time range, and format. No other media data (such as frames outside the requested window or alternate bitrates) is made available. Provide the URL (containing the encrypted session token) for the MPEG-DASH manifest to a media player that supports the MPEG-DASH protocol. Kinesis Video Streams makes the initialization fragment and media fragments available through the manifest URL. The initialization fragment contains the codec private data for the stream, and other data needed to set up the video or audio decoder and renderer. The media fragments contain encoded video frames or encoded audio samples. The media player receives the authenticated URL and requests stream metadata and media data normally. When the media player requests data, it calls the following actions: GetDASHManifest: Retrieves an MPEG DASH manifest, which contains the metadata for the media that you want to playback. GetMP4InitFragment: Retrieves the MP4 initialization fragment. The media player typically loads the initialization fragment before loading any media fragments. This fragment contains the \"fytp\" and \"moov\" MP4 atoms, and the child atoms that are needed to initialize the media player decoder. The initialization fragment does not correspond to a fragment in a Kinesis video stream. It contains only the codec private data for the stream and respective track, which the media player needs to decode the media frames. GetMP4MediaFragment: Retrieves MP4 media fragments. These fragments contain the \"moof\" and \"mdat\" MP4 atoms and their child atoms, containing the encoded fragment's media frames and their timestamps. After the first media fragment is made available in a streaming session, any fragments that don't contain the same codec private data cause an error to be returned when those different media fragments are loaded. Therefore, the codec private data should not change between fragments in a session. This also means that the session fails if the fragments in a stream change from having only video to having both audio and video. Data retrieved with this action is billable. See Pricing for details. For restrictions that apply to MPEG-DASH sessions, see Kinesis Video Streams Limits. You can monitor the amount of data that the media player consumes by monitoring the GetMP4MediaFragment.OutgoingBytes Amazon CloudWatch metric. For information about using CloudWatch to monitor Kinesis Video Streams, see Monitoring Kinesis Video Streams. For pricing information, see Amazon Kinesis Video Streams Pricing and Amazon Web Services Pricing. Charges for both HLS sessions and outgoing Amazon Web Services data apply. For more information about HLS, see HTTP Live Streaming on the Apple Developer site. If an error is thrown after invoking a Kinesis Video Streams archived media API, in addition to the HTTP status code and the response body, it includes the following pieces of information: x-amz-ErrorType HTTP header \226\128\147 contains a more specific error type in addition to what the HTTP status code provides. x-amz-RequestId HTTP header \226\128\147 if you want to report an issue to Amazon Web Services the support team can better diagnose the problem if given the Request Id. Both the HTTP status code and the ErrorType header can be utilized to make programmatic decisions about whether errors are retry-able and under what conditions, as well as provide information on what actions the client programmer might need to take in order to successfully try again. For more information, see the Errors section at the bottom of this topic, as well as Common Errors."]
module GetClipOutput =
  struct
    type nonrec t =
      {
      contentType: ContentType.t option
        [@ocaml.doc "The content type of the media in the requested clip."];
      payload: Payload.t option
        [@ocaml.doc
          "Traditional MP4 file that contains the media clip from the specified video stream. The output will contain the first 100 MB or the first 200 fragments from the specified start timestamp. For more information, see Kinesis Video Streams Limits."]}
    type nonrec error =
      [ `ClientLimitExceededException of ClientLimitExceededException.t 
      | `InvalidArgumentException of InvalidArgumentException.t 
      | `InvalidCodecPrivateDataException of
          InvalidCodecPrivateDataException.t 
      | `InvalidMediaFrameException of InvalidMediaFrameException.t 
      | `MissingCodecPrivateDataException of
          MissingCodecPrivateDataException.t 
      | `NoDataRetentionException of NoDataRetentionException.t 
      | `NotAuthorizedException of NotAuthorizedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `UnsupportedStreamMediaTypeException of
          UnsupportedStreamMediaTypeException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?contentType =
      fun ?payload -> fun () -> { contentType; payload }
    let error_of_json name json =
      match name with
      | "ClientLimitExceededException" ->
          `ClientLimitExceededException
            (ClientLimitExceededException.of_json json)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_json json)
      | "InvalidCodecPrivateDataException" ->
          `InvalidCodecPrivateDataException
            (InvalidCodecPrivateDataException.of_json json)
      | "InvalidMediaFrameException" ->
          `InvalidMediaFrameException
            (InvalidMediaFrameException.of_json json)
      | "MissingCodecPrivateDataException" ->
          `MissingCodecPrivateDataException
            (MissingCodecPrivateDataException.of_json json)
      | "NoDataRetentionException" ->
          `NoDataRetentionException (NoDataRetentionException.of_json json)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "UnsupportedStreamMediaTypeException" ->
          `UnsupportedStreamMediaTypeException
            (UnsupportedStreamMediaTypeException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientLimitExceededException" ->
          `ClientLimitExceededException
            (ClientLimitExceededException.of_xml xml)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_xml xml)
      | "InvalidCodecPrivateDataException" ->
          `InvalidCodecPrivateDataException
            (InvalidCodecPrivateDataException.of_xml xml)
      | "InvalidMediaFrameException" ->
          `InvalidMediaFrameException (InvalidMediaFrameException.of_xml xml)
      | "MissingCodecPrivateDataException" ->
          `MissingCodecPrivateDataException
            (MissingCodecPrivateDataException.of_xml xml)
      | "NoDataRetentionException" ->
          `NoDataRetentionException (NoDataRetentionException.of_xml xml)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "UnsupportedStreamMediaTypeException" ->
          `UnsupportedStreamMediaTypeException
            (UnsupportedStreamMediaTypeException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientLimitExceededException e ->
          `Assoc
            [("error", (`String "ClientLimitExceededException"));
            ("details", (ClientLimitExceededException.to_json e))]
      | `InvalidArgumentException e ->
          `Assoc
            [("error", (`String "InvalidArgumentException"));
            ("details", (InvalidArgumentException.to_json e))]
      | `InvalidCodecPrivateDataException e ->
          `Assoc
            [("error", (`String "InvalidCodecPrivateDataException"));
            ("details", (InvalidCodecPrivateDataException.to_json e))]
      | `InvalidMediaFrameException e ->
          `Assoc
            [("error", (`String "InvalidMediaFrameException"));
            ("details", (InvalidMediaFrameException.to_json e))]
      | `MissingCodecPrivateDataException e ->
          `Assoc
            [("error", (`String "MissingCodecPrivateDataException"));
            ("details", (MissingCodecPrivateDataException.to_json e))]
      | `NoDataRetentionException e ->
          `Assoc
            [("error", (`String "NoDataRetentionException"));
            ("details", (NoDataRetentionException.to_json e))]
      | `NotAuthorizedException e ->
          `Assoc
            [("error", (`String "NotAuthorizedException"));
            ("details", (NotAuthorizedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `UnsupportedStreamMediaTypeException e ->
          `Assoc
            [("error", (`String "UnsupportedStreamMediaTypeException"));
            ("details", (UnsupportedStreamMediaTypeException.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
            ?contentType:(Option.map
                            ((List.Assoc.find ~equal:String.Caseless.equal)
                               xs "Content-Type") ~f:ContentType.of_string)
            ?payload:(Some pipe) ())
      [@warning "-27"])
    let to_value x =
      structure_to_value
        [("Content-Type", (Option.map x.contentType ~f:ContentType.to_value));
        ("Payload", (Option.map x.payload ~f:Payload.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let payload =
        (Option.map ~f:Payload.of_xml) (Xml.child xml_arg0 "Payload") in
      let contentType =
        (Option.map ~f:ContentType.of_xml)
          (Xml.child xml_arg0 "Content-Type") in
      make ?payload ?contentType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let payload = field_map json__ "Payload" Payload.of_json in
      let contentType = field_map json__ "ContentType" ContentType.of_json in
      make ?payload ?contentType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Downloads an MP4 file (clip) containing the archived, on-demand media from the specified video stream over the specified time range. Both the StreamName and the StreamARN parameters are optional, but you must specify either the StreamName or the StreamARN when invoking this API operation. As a prerequisite to using GetCLip API, you must obtain an endpoint using GetDataEndpoint, specifying GET_CLIP for the APIName parameter. An Amazon Kinesis video stream has the following requirements for providing data through MP4: The media must contain h.264 or h.265 encoded video and, optionally, AAC or G.711 encoded audio. Specifically, the codec ID of track 1 should be V_MPEG/ISO/AVC (for h.264) or V_MPEGH/ISO/HEVC (for H.265). Optionally, the codec ID of track 2 should be A_AAC (for AAC) or A_MS/ACM (for G.711). Data retention must be greater than 0. The video track of each fragment must contain codec private data in the Advanced Video Coding (AVC) for H.264 format and HEVC for H.265 format. For more information, see MPEG-4 specification ISO/IEC 14496-15. For information about adapting stream data to a given format, see NAL Adaptation Flags. The audio track (if present) of each fragment must contain codec private data in the AAC format (AAC specification ISO/IEC 13818-7) or the MS Wave format. You can monitor the amount of outgoing data by monitoring the GetClip.OutgoingBytes Amazon CloudWatch metric. For information about using CloudWatch to monitor Kinesis Video Streams, see Monitoring Kinesis Video Streams. For pricing information, see Amazon Kinesis Video Streams Pricing and Amazon Web Services Pricing. Charges for outgoing Amazon Web Services data apply."]
module GetClipInput =
  struct
    type nonrec t =
      {
      streamName: StreamName.t option
        [@ocaml.doc
          "The name of the stream for which to retrieve the media clip. You must specify either the StreamName or the StreamARN."];
      streamARN: ResourceARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the stream for which to retrieve the media clip. You must specify either the StreamName or the StreamARN."];
      clipFragmentSelector: ClipFragmentSelector.t
        [@ocaml.doc
          "The time range of the requested clip and the source of the timestamps."]}
    let context_ = "GetClipInput"
    let make ?streamName =
      fun ?streamARN ->
        fun ~clipFragmentSelector ->
          fun () -> { streamName; streamARN; clipFragmentSelector }
    let to_value x =
      structure_to_value
        [("StreamName", (Option.map x.streamName ~f:StreamName.to_value));
        ("StreamARN", (Option.map x.streamARN ~f:ResourceARN.to_value));
        ("ClipFragmentSelector",
          (Some (ClipFragmentSelector.to_value x.clipFragmentSelector)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clipFragmentSelector =
        ClipFragmentSelector.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ClipFragmentSelector") in
      let streamARN =
        (Option.map ~f:ResourceARN.of_xml) (Xml.child xml_arg0 "StreamARN") in
      let streamName =
        (Option.map ~f:StreamName.of_xml) (Xml.child xml_arg0 "StreamName") in
      make ~clipFragmentSelector ?streamARN ?streamName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clipFragmentSelector =
        field_map_exn json__ "ClipFragmentSelector"
          ClipFragmentSelector.of_json in
      let streamARN = field_map json__ "StreamARN" ResourceARN.of_json in
      let streamName = field_map json__ "StreamName" StreamName.of_json in
      make ~clipFragmentSelector ?streamARN ?streamName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Downloads an MP4 file (clip) containing the archived, on-demand media from the specified video stream over the specified time range. Both the StreamName and the StreamARN parameters are optional, but you must specify either the StreamName or the StreamARN when invoking this API operation. As a prerequisite to using GetCLip API, you must obtain an endpoint using GetDataEndpoint, specifying GET_CLIP for the APIName parameter. An Amazon Kinesis video stream has the following requirements for providing data through MP4: The media must contain h.264 or h.265 encoded video and, optionally, AAC or G.711 encoded audio. Specifically, the codec ID of track 1 should be V_MPEG/ISO/AVC (for h.264) or V_MPEGH/ISO/HEVC (for H.265). Optionally, the codec ID of track 2 should be A_AAC (for AAC) or A_MS/ACM (for G.711). Data retention must be greater than 0. The video track of each fragment must contain codec private data in the Advanced Video Coding (AVC) for H.264 format and HEVC for H.265 format. For more information, see MPEG-4 specification ISO/IEC 14496-15. For information about adapting stream data to a given format, see NAL Adaptation Flags. The audio track (if present) of each fragment must contain codec private data in the AAC format (AAC specification ISO/IEC 13818-7) or the MS Wave format. You can monitor the amount of outgoing data by monitoring the GetClip.OutgoingBytes Amazon CloudWatch metric. For information about using CloudWatch to monitor Kinesis Video Streams, see Monitoring Kinesis Video Streams. For pricing information, see Amazon Kinesis Video Streams Pricing and Amazon Web Services Pricing. Charges for outgoing Amazon Web Services data apply."]