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.mediapackage
let apiVersion = "2017-10-12"
let endpointPrefix = "mediapackage"
let serviceFullName = "AWS Elemental MediaPackage"
let signatureVersion = "v4"
let protocol = "rest_json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let serviceAbbreviation = "MediaPackage"
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 PresetSpeke20Audio =
  struct
    type nonrec t =
      | PRESET_AUDIO_1 
      | PRESET_AUDIO_2 
      | PRESET_AUDIO_3 
      | SHARED 
      | UNENCRYPTED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PRESET_AUDIO_1 -> "PRESET-AUDIO-1"
      | PRESET_AUDIO_2 -> "PRESET-AUDIO-2"
      | PRESET_AUDIO_3 -> "PRESET-AUDIO-3"
      | SHARED -> "SHARED"
      | UNENCRYPTED -> "UNENCRYPTED"
      | Non_static_id s -> s
    let of_string =
      function
      | "PRESET-AUDIO-1" -> PRESET_AUDIO_1
      | "PRESET-AUDIO-2" -> PRESET_AUDIO_2
      | "PRESET-AUDIO-3" -> PRESET_AUDIO_3
      | "SHARED" -> SHARED
      | "UNENCRYPTED" -> UNENCRYPTED
      | 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 PresetSpeke20Audio" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"PresetSpeke20Audio" j)
    let to_json = simple_to_json to_value
  end
module PresetSpeke20Video =
  struct
    type nonrec t =
      | PRESET_VIDEO_1 
      | PRESET_VIDEO_2 
      | PRESET_VIDEO_3 
      | PRESET_VIDEO_4 
      | PRESET_VIDEO_5 
      | PRESET_VIDEO_6 
      | PRESET_VIDEO_7 
      | PRESET_VIDEO_8 
      | SHARED 
      | UNENCRYPTED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PRESET_VIDEO_1 -> "PRESET-VIDEO-1"
      | PRESET_VIDEO_2 -> "PRESET-VIDEO-2"
      | PRESET_VIDEO_3 -> "PRESET-VIDEO-3"
      | PRESET_VIDEO_4 -> "PRESET-VIDEO-4"
      | PRESET_VIDEO_5 -> "PRESET-VIDEO-5"
      | PRESET_VIDEO_6 -> "PRESET-VIDEO-6"
      | PRESET_VIDEO_7 -> "PRESET-VIDEO-7"
      | PRESET_VIDEO_8 -> "PRESET-VIDEO-8"
      | SHARED -> "SHARED"
      | UNENCRYPTED -> "UNENCRYPTED"
      | Non_static_id s -> s
    let of_string =
      function
      | "PRESET-VIDEO-1" -> PRESET_VIDEO_1
      | "PRESET-VIDEO-2" -> PRESET_VIDEO_2
      | "PRESET-VIDEO-3" -> PRESET_VIDEO_3
      | "PRESET-VIDEO-4" -> PRESET_VIDEO_4
      | "PRESET-VIDEO-5" -> PRESET_VIDEO_5
      | "PRESET-VIDEO-6" -> PRESET_VIDEO_6
      | "PRESET-VIDEO-7" -> PRESET_VIDEO_7
      | "PRESET-VIDEO-8" -> PRESET_VIDEO_8
      | "SHARED" -> SHARED
      | "UNENCRYPTED" -> UNENCRYPTED
      | 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 PresetSpeke20Video" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"PresetSpeke20Video" j)
    let to_json = simple_to_json to_value
  end
module Zz__string =
  struct
    type nonrec t = string
    let context_ = "__string"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"__string" j
    let to_json = simple_to_json to_value
  end
module Zz__AdTriggersElement =
  struct
    type nonrec t =
      | SPLICE_INSERT 
      | BREAK 
      | PROVIDER_ADVERTISEMENT 
      | DISTRIBUTOR_ADVERTISEMENT 
      | PROVIDER_PLACEMENT_OPPORTUNITY 
      | DISTRIBUTOR_PLACEMENT_OPPORTUNITY 
      | PROVIDER_OVERLAY_PLACEMENT_OPPORTUNITY 
      | DISTRIBUTOR_OVERLAY_PLACEMENT_OPPORTUNITY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SPLICE_INSERT -> "SPLICE_INSERT"
      | BREAK -> "BREAK"
      | PROVIDER_ADVERTISEMENT -> "PROVIDER_ADVERTISEMENT"
      | DISTRIBUTOR_ADVERTISEMENT -> "DISTRIBUTOR_ADVERTISEMENT"
      | PROVIDER_PLACEMENT_OPPORTUNITY -> "PROVIDER_PLACEMENT_OPPORTUNITY"
      | DISTRIBUTOR_PLACEMENT_OPPORTUNITY ->
          "DISTRIBUTOR_PLACEMENT_OPPORTUNITY"
      | PROVIDER_OVERLAY_PLACEMENT_OPPORTUNITY ->
          "PROVIDER_OVERLAY_PLACEMENT_OPPORTUNITY"
      | DISTRIBUTOR_OVERLAY_PLACEMENT_OPPORTUNITY ->
          "DISTRIBUTOR_OVERLAY_PLACEMENT_OPPORTUNITY"
      | Non_static_id s -> s
    let of_string =
      function
      | "SPLICE_INSERT" -> SPLICE_INSERT
      | "BREAK" -> BREAK
      | "PROVIDER_ADVERTISEMENT" -> PROVIDER_ADVERTISEMENT
      | "DISTRIBUTOR_ADVERTISEMENT" -> DISTRIBUTOR_ADVERTISEMENT
      | "PROVIDER_PLACEMENT_OPPORTUNITY" -> PROVIDER_PLACEMENT_OPPORTUNITY
      | "DISTRIBUTOR_PLACEMENT_OPPORTUNITY" ->
          DISTRIBUTOR_PLACEMENT_OPPORTUNITY
      | "PROVIDER_OVERLAY_PLACEMENT_OPPORTUNITY" ->
          PROVIDER_OVERLAY_PLACEMENT_OPPORTUNITY
      | "DISTRIBUTOR_OVERLAY_PLACEMENT_OPPORTUNITY" ->
          DISTRIBUTOR_OVERLAY_PLACEMENT_OPPORTUNITY
      | 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 __AdTriggersElement" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"__AdTriggersElement" j)
    let to_json = simple_to_json to_value
  end
module EncryptionContractConfiguration =
  struct
    type nonrec t =
      {
      presetSpeke20Audio: PresetSpeke20Audio.t
        [@ocaml.doc "A collection of audio encryption presets."];
      presetSpeke20Video: PresetSpeke20Video.t
        [@ocaml.doc "A collection of video encryption presets."]}
    let context_ = "EncryptionContractConfiguration"
    let make ~presetSpeke20Audio =
      fun ~presetSpeke20Video ->
        fun () -> { presetSpeke20Audio; presetSpeke20Video }
    let to_value x =
      structure_to_value
        [("presetSpeke20Audio",
           (Some (PresetSpeke20Audio.to_value x.presetSpeke20Audio)));
        ("presetSpeke20Video",
          (Some (PresetSpeke20Video.to_value x.presetSpeke20Video)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let presetSpeke20Video =
        PresetSpeke20Video.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "presetSpeke20Video") in
      let presetSpeke20Audio =
        PresetSpeke20Audio.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "presetSpeke20Audio") in
      make ~presetSpeke20Video ~presetSpeke20Audio ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let presetSpeke20Video =
        field_map_exn json__ "PresetSpeke20Video" PresetSpeke20Video.of_json in
      let presetSpeke20Audio =
        field_map_exn json__ "PresetSpeke20Audio" PresetSpeke20Audio.of_json in
      make ~presetSpeke20Video ~presetSpeke20Audio ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Use encryptionContractConfiguration to configure one or more content encryption keys for your endpoints that use SPEKE 2.0. The encryption contract defines which content keys are used to encrypt the audio and video tracks in your stream. To configure the encryption contract, specify which audio and video encryption presets to use. Note the following considerations when using encryptionContractConfiguration: encryptionContractConfiguration can be used for DASH or CMAF endpoints that use SPEKE 2.0. SPEKE 2.0 relies on the CPIX 2.3 specification. You must disable key rotation for this endpoint by setting keyRotationIntervalSeconds to 0."]
module Zz__listOf__string =
  struct
    type nonrec t = Zz__string.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:Zz__string.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:Zz__string.of_xml)
    let of_json j =
      list_of_json ~kind:"__listOf__string" ~of_json:Zz__string.of_json j
    let to_json v = composed_to_json to_value v
  end
module AdMarkers =
  struct
    type nonrec t =
      | NONE 
      | SCTE35_ENHANCED 
      | PASSTHROUGH 
      | DATERANGE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | NONE -> "NONE"
      | SCTE35_ENHANCED -> "SCTE35_ENHANCED"
      | PASSTHROUGH -> "PASSTHROUGH"
      | DATERANGE -> "DATERANGE"
      | Non_static_id s -> s
    let of_string =
      function
      | "NONE" -> NONE
      | "SCTE35_ENHANCED" -> SCTE35_ENHANCED
      | "PASSTHROUGH" -> PASSTHROUGH
      | "DATERANGE" -> DATERANGE
      | 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 AdMarkers" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AdMarkers" j)
    let to_json = simple_to_json to_value
  end
module AdTriggers =
  struct
    type nonrec t = Zz__AdTriggersElement.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:Zz__AdTriggersElement.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:Zz__AdTriggersElement.of_xml)
    let of_json j =
      list_of_json ~kind:"AdTriggers" ~of_json:Zz__AdTriggersElement.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module AdsOnDeliveryRestrictions =
  struct
    type nonrec t =
      | NONE 
      | RESTRICTED 
      | UNRESTRICTED 
      | BOTH 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | NONE -> "NONE"
      | RESTRICTED -> "RESTRICTED"
      | UNRESTRICTED -> "UNRESTRICTED"
      | BOTH -> "BOTH"
      | Non_static_id s -> s
    let of_string =
      function
      | "NONE" -> NONE
      | "RESTRICTED" -> RESTRICTED
      | "UNRESTRICTED" -> UNRESTRICTED
      | "BOTH" -> BOTH
      | 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 AdsOnDeliveryRestrictions" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"AdsOnDeliveryRestrictions" j)
    let to_json = simple_to_json to_value
  end
module PlaylistType =
  struct
    type nonrec t =
      | NONE 
      | EVENT 
      | VOD 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | NONE -> "NONE"
      | EVENT -> "EVENT"
      | VOD -> "VOD"
      | Non_static_id s -> s
    let of_string =
      function
      | "NONE" -> NONE
      | "EVENT" -> EVENT
      | "VOD" -> VOD
      | 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 PlaylistType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"PlaylistType" j)
    let to_json = simple_to_json to_value
  end
module Zz__boolean =
  struct
    type nonrec t = bool
    let make i = i
    let of_string = Bool.of_string
    let to_value x = `Boolean x
    let to_query v = to_query to_value v
    let to_header x = Bool.to_string x
    let of_xml xml_arg0 =
      Bool.of_string (string_of_xml ~kind:"a boolean" xml_arg0)
    let of_json = bool_of_json
    let to_json = simple_to_json to_value
  end
module Zz__integer =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string (string_of_xml ~kind:"an integer for __integer" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module SensitiveString =
  struct
    type nonrec t = string
    let context_ = "SensitiveString"
    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:"SensitiveString" j
    let to_json = simple_to_json to_value
  end
module CmafEncryptionMethod =
  struct
    type nonrec t =
      | SAMPLE_AES 
      | AES_CTR 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SAMPLE_AES -> "SAMPLE_AES"
      | AES_CTR -> "AES_CTR"
      | Non_static_id s -> s
    let of_string =
      function
      | "SAMPLE_AES" -> SAMPLE_AES
      | "AES_CTR" -> AES_CTR
      | 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 CmafEncryptionMethod" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"CmafEncryptionMethod" j)
    let to_json = simple_to_json to_value
  end
module SpekeKeyProvider =
  struct
    type nonrec t =
      {
      certificateArn: Zz__string.t option
        [@ocaml.doc
          "An Amazon Resource Name (ARN) of a Certificate Manager certificate that MediaPackage will use for enforcing secure end-to-end data transfer with the key provider service."];
      encryptionContractConfiguration:
        EncryptionContractConfiguration.t option ;
      resourceId: Zz__string.t
        [@ocaml.doc "The resource ID to include in key requests."];
      roleArn: Zz__string.t
        [@ocaml.doc
          "An Amazon Resource Name (ARN) of an IAM role that AWS Elemental MediaPackage will assume when accessing the key provider service."];
      systemIds: Zz__listOf__string.t
        [@ocaml.doc "The system IDs to include in key requests."];
      url: Zz__string.t
        [@ocaml.doc "The URL of the external key provider service."]}
    let context_ = "SpekeKeyProvider"
    let make ?certificateArn =
      fun ?encryptionContractConfiguration ->
        fun ~resourceId ->
          fun ~roleArn ->
            fun ~systemIds ->
              fun ~url ->
                fun () ->
                  {
                    certificateArn;
                    encryptionContractConfiguration;
                    resourceId;
                    roleArn;
                    systemIds;
                    url
                  }
    let to_value x =
      structure_to_value
        [("certificateArn",
           (Option.map x.certificateArn ~f:Zz__string.to_value));
        ("encryptionContractConfiguration",
          (Option.map x.encryptionContractConfiguration
             ~f:EncryptionContractConfiguration.to_value));
        ("resourceId", (Some (Zz__string.to_value x.resourceId)));
        ("roleArn", (Some (Zz__string.to_value x.roleArn)));
        ("systemIds", (Some (Zz__listOf__string.to_value x.systemIds)));
        ("url", (Some (Zz__string.to_value x.url)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let url =
        Zz__string.of_xml (Xml.child_exn ~context:context_ xml_arg0 "url") in
      let systemIds =
        Zz__listOf__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "systemIds") in
      let roleArn =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "roleArn") in
      let resourceId =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceId") in
      let encryptionContractConfiguration =
        (Option.map ~f:EncryptionContractConfiguration.of_xml)
          (Xml.child xml_arg0 "encryptionContractConfiguration") in
      let certificateArn =
        (Option.map ~f:Zz__string.of_xml)
          (Xml.child xml_arg0 "certificateArn") in
      make ~url ~systemIds ~roleArn ~resourceId
        ?encryptionContractConfiguration ?certificateArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let url = field_map_exn json__ "Url" Zz__string.of_json in
      let systemIds =
        field_map_exn json__ "SystemIds" Zz__listOf__string.of_json in
      let roleArn = field_map_exn json__ "RoleArn" Zz__string.of_json in
      let resourceId = field_map_exn json__ "ResourceId" Zz__string.of_json in
      let encryptionContractConfiguration =
        field_map json__ "EncryptionContractConfiguration"
          EncryptionContractConfiguration.of_json in
      let certificateArn =
        field_map json__ "CertificateArn" Zz__string.of_json in
      make ~url ~systemIds ~roleArn ~resourceId
        ?encryptionContractConfiguration ?certificateArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A configuration for accessing an external Secure Packager and Encoder Key Exchange (SPEKE) service that will provide encryption keys."]
module StreamOrder =
  struct
    type nonrec t =
      | ORIGINAL 
      | VIDEO_BITRATE_ASCENDING 
      | VIDEO_BITRATE_DESCENDING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ORIGINAL -> "ORIGINAL"
      | VIDEO_BITRATE_ASCENDING -> "VIDEO_BITRATE_ASCENDING"
      | VIDEO_BITRATE_DESCENDING -> "VIDEO_BITRATE_DESCENDING"
      | Non_static_id s -> s
    let of_string =
      function
      | "ORIGINAL" -> ORIGINAL
      | "VIDEO_BITRATE_ASCENDING" -> VIDEO_BITRATE_ASCENDING
      | "VIDEO_BITRATE_DESCENDING" -> VIDEO_BITRATE_DESCENDING
      | 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 StreamOrder" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"StreamOrder" j)
    let to_json = simple_to_json to_value
  end
module HlsManifest =
  struct
    type nonrec t =
      {
      adMarkers: AdMarkers.t option
        [@ocaml.doc
          "This setting controls how ad markers are included in the packaged OriginEndpoint. \"NONE\" will omit all SCTE-35 ad markers from the output. \"PASSTHROUGH\" causes the manifest to contain a copy of the SCTE-35 ad markers (comments) taken directly from the input HTTP Live Streaming (HLS) manifest. \"SCTE35_ENHANCED\" generates ad markers and blackout tags based on SCTE-35 messages in the input source. \"DATERANGE\" inserts EXT-X-DATERANGE tags to signal ad and program transition events in HLS and CMAF manifests. For this option, you must set a programDateTimeIntervalSeconds value that is greater than 0."];
      id: Zz__string.t option
        [@ocaml.doc
          "The ID of the manifest. The ID must be unique within the OriginEndpoint and it cannot be changed after it is created."];
      includeIframeOnlyStream: Zz__boolean.t option
        [@ocaml.doc
          "When enabled, an I-Frame only stream will be included in the output."];
      manifestName: Zz__string.t option
        [@ocaml.doc
          "An optional short string appended to the end of the OriginEndpoint URL. If not specified, defaults to the manifestName for the OriginEndpoint."];
      playlistType: PlaylistType.t option
        [@ocaml.doc
          "The HTTP Live Streaming (HLS) playlist type. When either \"EVENT\" or \"VOD\" is specified, a corresponding EXT-X-PLAYLIST-TYPE entry will be included in the media playlist."];
      playlistWindowSeconds: Zz__integer.t option
        [@ocaml.doc
          "Time window (in seconds) contained in each parent manifest."];
      programDateTimeIntervalSeconds: Zz__integer.t option
        [@ocaml.doc
          "The interval (in seconds) between each EXT-X-PROGRAM-DATE-TIME tag inserted into manifests. Additionally, when an interval is specified ID3Timed Metadata messages will be generated every 5 seconds using the ingest time of the content. If the interval is not specified, or set to 0, then no EXT-X-PROGRAM-DATE-TIME tags will be inserted into manifests and no ID3Timed Metadata messages will be generated. Note that irrespective of this parameter, if any ID3 Timed Metadata is found in HTTP Live Streaming (HLS) input, it will be passed through to HLS output."];
      url: Zz__string.t option
        [@ocaml.doc
          "The URL of the packaged OriginEndpoint for consumption."];
      adTriggers: AdTriggers.t option ;
      adsOnDeliveryRestrictions: AdsOnDeliveryRestrictions.t option }
    let make ?adMarkers =
      fun ?id ->
        fun ?includeIframeOnlyStream ->
          fun ?manifestName ->
            fun ?playlistType ->
              fun ?playlistWindowSeconds ->
                fun ?programDateTimeIntervalSeconds ->
                  fun ?url ->
                    fun ?adTriggers ->
                      fun ?adsOnDeliveryRestrictions ->
                        fun () ->
                          {
                            adMarkers;
                            id;
                            includeIframeOnlyStream;
                            manifestName;
                            playlistType;
                            playlistWindowSeconds;
                            programDateTimeIntervalSeconds;
                            url;
                            adTriggers;
                            adsOnDeliveryRestrictions
                          }
    let to_value x =
      structure_to_value
        [("adMarkers", (Option.map x.adMarkers ~f:AdMarkers.to_value));
        ("id", (Option.map x.id ~f:Zz__string.to_value));
        ("includeIframeOnlyStream",
          (Option.map x.includeIframeOnlyStream ~f:Zz__boolean.to_value));
        ("manifestName", (Option.map x.manifestName ~f:Zz__string.to_value));
        ("playlistType",
          (Option.map x.playlistType ~f:PlaylistType.to_value));
        ("playlistWindowSeconds",
          (Option.map x.playlistWindowSeconds ~f:Zz__integer.to_value));
        ("programDateTimeIntervalSeconds",
          (Option.map x.programDateTimeIntervalSeconds
             ~f:Zz__integer.to_value));
        ("url", (Option.map x.url ~f:Zz__string.to_value));
        ("adTriggers", (Option.map x.adTriggers ~f:AdTriggers.to_value));
        ("adsOnDeliveryRestrictions",
          (Option.map x.adsOnDeliveryRestrictions
             ~f:AdsOnDeliveryRestrictions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let adsOnDeliveryRestrictions =
        (Option.map ~f:AdsOnDeliveryRestrictions.of_xml)
          (Xml.child xml_arg0 "adsOnDeliveryRestrictions") in
      let adTriggers =
        (Option.map ~f:AdTriggers.of_xml) (Xml.child xml_arg0 "adTriggers") in
      let url = (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "url") in
      let programDateTimeIntervalSeconds =
        (Option.map ~f:Zz__integer.of_xml)
          (Xml.child xml_arg0 "programDateTimeIntervalSeconds") in
      let playlistWindowSeconds =
        (Option.map ~f:Zz__integer.of_xml)
          (Xml.child xml_arg0 "playlistWindowSeconds") in
      let playlistType =
        (Option.map ~f:PlaylistType.of_xml)
          (Xml.child xml_arg0 "playlistType") in
      let manifestName =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "manifestName") in
      let includeIframeOnlyStream =
        (Option.map ~f:Zz__boolean.of_xml)
          (Xml.child xml_arg0 "includeIframeOnlyStream") in
      let id = (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "id") in
      let adMarkers =
        (Option.map ~f:AdMarkers.of_xml) (Xml.child xml_arg0 "adMarkers") in
      make ?adsOnDeliveryRestrictions ?adTriggers ?url
        ?programDateTimeIntervalSeconds ?playlistWindowSeconds ?playlistType
        ?manifestName ?includeIframeOnlyStream ?id ?adMarkers ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let adsOnDeliveryRestrictions =
        field_map json__ "AdsOnDeliveryRestrictions"
          AdsOnDeliveryRestrictions.of_json in
      let adTriggers = field_map json__ "AdTriggers" AdTriggers.of_json in
      let url = field_map json__ "Url" Zz__string.of_json in
      let programDateTimeIntervalSeconds =
        field_map json__ "ProgramDateTimeIntervalSeconds" Zz__integer.of_json in
      let playlistWindowSeconds =
        field_map json__ "PlaylistWindowSeconds" Zz__integer.of_json in
      let playlistType = field_map json__ "PlaylistType" PlaylistType.of_json in
      let manifestName = field_map json__ "ManifestName" Zz__string.of_json in
      let includeIframeOnlyStream =
        field_map json__ "IncludeIframeOnlyStream" Zz__boolean.of_json in
      let id = field_map json__ "Id" Zz__string.of_json in
      let adMarkers = field_map json__ "AdMarkers" AdMarkers.of_json in
      make ?adsOnDeliveryRestrictions ?adTriggers ?url
        ?programDateTimeIntervalSeconds ?playlistWindowSeconds ?playlistType
        ?manifestName ?includeIframeOnlyStream ?id ?adMarkers ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A HTTP Live Streaming (HLS) manifest configuration."]
module Zz__PeriodTriggersElement =
  struct
    type nonrec t =
      | ADS 
      | Non_static_id of string 
    let make i = i
    let to_string = function | ADS -> "ADS" | Non_static_id s -> s
    let of_string = function | "ADS" -> ADS | 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 __PeriodTriggersElement" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"__PeriodTriggersElement" j)
    let to_json = simple_to_json to_value
  end
module EncryptionMethod =
  struct
    type nonrec t =
      | AES_128 
      | SAMPLE_AES 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | AES_128 -> "AES_128"
      | SAMPLE_AES -> "SAMPLE_AES"
      | Non_static_id s -> s
    let of_string =
      function
      | "AES_128" -> AES_128
      | "SAMPLE_AES" -> SAMPLE_AES
      | 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 EncryptionMethod" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"EncryptionMethod" j)
    let to_json = simple_to_json to_value
  end
module IngestEndpoint =
  struct
    type nonrec t =
      {
      id: Zz__string.t option
        [@ocaml.doc
          "The system generated unique identifier for the IngestEndpoint"];
      password: SensitiveString.t option
        [@ocaml.doc
          "The system generated password for ingest authentication."];
      url: Zz__string.t option
        [@ocaml.doc
          "The ingest URL to which the source stream should be sent."];
      username: SensitiveString.t option
        [@ocaml.doc
          "The system generated username for ingest authentication."]}
    let make ?id =
      fun ?password ->
        fun ?url ->
          fun ?username -> fun () -> { id; password; url; username }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:Zz__string.to_value));
        ("password", (Option.map x.password ~f:SensitiveString.to_value));
        ("url", (Option.map x.url ~f:Zz__string.to_value));
        ("username", (Option.map x.username ~f:SensitiveString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let username =
        (Option.map ~f:SensitiveString.of_xml)
          (Xml.child xml_arg0 "username") in
      let url = (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "url") in
      let password =
        (Option.map ~f:SensitiveString.of_xml)
          (Xml.child xml_arg0 "password") in
      let id = (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "id") in
      make ?username ?url ?password ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let username = field_map json__ "Username" SensitiveString.of_json in
      let url = field_map json__ "Url" Zz__string.of_json in
      let password = field_map json__ "Password" SensitiveString.of_json in
      let id = field_map json__ "Id" Zz__string.of_json in
      make ?username ?url ?password ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "An endpoint for ingesting source content for a Channel."]
module CmafEncryption =
  struct
    type nonrec t =
      {
      constantInitializationVector: Zz__string.t option
        [@ocaml.doc
          "An optional 128-bit, 16-byte hex value represented by a 32-character string, used in conjunction with the key for encrypting blocks. If you don't specify a value, then MediaPackage creates the constant initialization vector (IV)."];
      encryptionMethod: CmafEncryptionMethod.t option ;
      keyRotationIntervalSeconds: Zz__integer.t option
        [@ocaml.doc
          "Time (in seconds) between each encryption key rotation."];
      spekeKeyProvider: SpekeKeyProvider.t }
    let context_ = "CmafEncryption"
    let make ?constantInitializationVector =
      fun ?encryptionMethod ->
        fun ?keyRotationIntervalSeconds ->
          fun ~spekeKeyProvider ->
            fun () ->
              {
                constantInitializationVector;
                encryptionMethod;
                keyRotationIntervalSeconds;
                spekeKeyProvider
              }
    let to_value x =
      structure_to_value
        [("constantInitializationVector",
           (Option.map x.constantInitializationVector ~f:Zz__string.to_value));
        ("encryptionMethod",
          (Option.map x.encryptionMethod ~f:CmafEncryptionMethod.to_value));
        ("keyRotationIntervalSeconds",
          (Option.map x.keyRotationIntervalSeconds ~f:Zz__integer.to_value));
        ("spekeKeyProvider",
          (Some (SpekeKeyProvider.to_value x.spekeKeyProvider)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let spekeKeyProvider =
        SpekeKeyProvider.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "spekeKeyProvider") in
      let keyRotationIntervalSeconds =
        (Option.map ~f:Zz__integer.of_xml)
          (Xml.child xml_arg0 "keyRotationIntervalSeconds") in
      let encryptionMethod =
        (Option.map ~f:CmafEncryptionMethod.of_xml)
          (Xml.child xml_arg0 "encryptionMethod") in
      let constantInitializationVector =
        (Option.map ~f:Zz__string.of_xml)
          (Xml.child xml_arg0 "constantInitializationVector") in
      make ~spekeKeyProvider ?keyRotationIntervalSeconds ?encryptionMethod
        ?constantInitializationVector ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let spekeKeyProvider =
        field_map_exn json__ "SpekeKeyProvider" SpekeKeyProvider.of_json in
      let keyRotationIntervalSeconds =
        field_map json__ "KeyRotationIntervalSeconds" Zz__integer.of_json in
      let encryptionMethod =
        field_map json__ "EncryptionMethod" CmafEncryptionMethod.of_json in
      let constantInitializationVector =
        field_map json__ "ConstantInitializationVector" Zz__string.of_json in
      make ~spekeKeyProvider ?keyRotationIntervalSeconds ?encryptionMethod
        ?constantInitializationVector ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A Common Media Application Format (CMAF) encryption configuration."]
module StreamSelection =
  struct
    type nonrec t =
      {
      maxVideoBitsPerSecond: Zz__integer.t option
        [@ocaml.doc "The maximum video bitrate (bps) to include in output."];
      minVideoBitsPerSecond: Zz__integer.t option
        [@ocaml.doc "The minimum video bitrate (bps) to include in output."];
      streamOrder: StreamOrder.t option
        [@ocaml.doc
          "A directive that determines the order of streams in the output."]}
    let make ?maxVideoBitsPerSecond =
      fun ?minVideoBitsPerSecond ->
        fun ?streamOrder ->
          fun () ->
            { maxVideoBitsPerSecond; minVideoBitsPerSecond; streamOrder }
    let to_value x =
      structure_to_value
        [("maxVideoBitsPerSecond",
           (Option.map x.maxVideoBitsPerSecond ~f:Zz__integer.to_value));
        ("minVideoBitsPerSecond",
          (Option.map x.minVideoBitsPerSecond ~f:Zz__integer.to_value));
        ("streamOrder", (Option.map x.streamOrder ~f:StreamOrder.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let streamOrder =
        (Option.map ~f:StreamOrder.of_xml) (Xml.child xml_arg0 "streamOrder") in
      let minVideoBitsPerSecond =
        (Option.map ~f:Zz__integer.of_xml)
          (Xml.child xml_arg0 "minVideoBitsPerSecond") in
      let maxVideoBitsPerSecond =
        (Option.map ~f:Zz__integer.of_xml)
          (Xml.child xml_arg0 "maxVideoBitsPerSecond") in
      make ?streamOrder ?minVideoBitsPerSecond ?maxVideoBitsPerSecond ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let streamOrder = field_map json__ "StreamOrder" StreamOrder.of_json in
      let minVideoBitsPerSecond =
        field_map json__ "MinVideoBitsPerSecond" Zz__integer.of_json in
      let maxVideoBitsPerSecond =
        field_map json__ "MaxVideoBitsPerSecond" Zz__integer.of_json in
      make ?streamOrder ?minVideoBitsPerSecond ?maxVideoBitsPerSecond ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A StreamSelection configuration."]
module Zz__listOfHlsManifest =
  struct
    type nonrec t = HlsManifest.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:HlsManifest.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:HlsManifest.of_xml)
    let of_json j =
      list_of_json ~kind:"__listOfHlsManifest" ~of_json:HlsManifest.of_json j
    let to_json v = composed_to_json to_value v
  end
module DashEncryption =
  struct
    type nonrec t =
      {
      keyRotationIntervalSeconds: Zz__integer.t option
        [@ocaml.doc
          "Time (in seconds) between each encryption key rotation."];
      spekeKeyProvider: SpekeKeyProvider.t }
    let context_ = "DashEncryption"
    let make ?keyRotationIntervalSeconds =
      fun ~spekeKeyProvider ->
        fun () -> { keyRotationIntervalSeconds; spekeKeyProvider }
    let to_value x =
      structure_to_value
        [("keyRotationIntervalSeconds",
           (Option.map x.keyRotationIntervalSeconds ~f:Zz__integer.to_value));
        ("spekeKeyProvider",
          (Some (SpekeKeyProvider.to_value x.spekeKeyProvider)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let spekeKeyProvider =
        SpekeKeyProvider.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "spekeKeyProvider") in
      let keyRotationIntervalSeconds =
        (Option.map ~f:Zz__integer.of_xml)
          (Xml.child xml_arg0 "keyRotationIntervalSeconds") in
      make ~spekeKeyProvider ?keyRotationIntervalSeconds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let spekeKeyProvider =
        field_map_exn json__ "SpekeKeyProvider" SpekeKeyProvider.of_json in
      let keyRotationIntervalSeconds =
        field_map json__ "KeyRotationIntervalSeconds" Zz__integer.of_json in
      make ~spekeKeyProvider ?keyRotationIntervalSeconds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A Dynamic Adaptive Streaming over HTTP (DASH) encryption configuration."]
module ManifestLayout =
  struct
    type nonrec t =
      | FULL 
      | COMPACT 
      | DRM_TOP_LEVEL_COMPACT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | FULL -> "FULL"
      | COMPACT -> "COMPACT"
      | DRM_TOP_LEVEL_COMPACT -> "DRM_TOP_LEVEL_COMPACT"
      | Non_static_id s -> s
    let of_string =
      function
      | "FULL" -> FULL
      | "COMPACT" -> COMPACT
      | "DRM_TOP_LEVEL_COMPACT" -> DRM_TOP_LEVEL_COMPACT
      | 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 ManifestLayout" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ManifestLayout" j)
    let to_json = simple_to_json to_value
  end
module Profile =
  struct
    type nonrec t =
      | NONE 
      | HBBTV_1_5 
      | HYBRIDCAST 
      | DVB_DASH_2014 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | NONE -> "NONE"
      | HBBTV_1_5 -> "HBBTV_1_5"
      | HYBRIDCAST -> "HYBRIDCAST"
      | DVB_DASH_2014 -> "DVB_DASH_2014"
      | Non_static_id s -> s
    let of_string =
      function
      | "NONE" -> NONE
      | "HBBTV_1_5" -> HBBTV_1_5
      | "HYBRIDCAST" -> HYBRIDCAST
      | "DVB_DASH_2014" -> DVB_DASH_2014
      | 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 Profile" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Profile" j)
    let to_json = simple_to_json to_value
  end
module SegmentTemplateFormat =
  struct
    type nonrec t =
      | NUMBER_WITH_TIMELINE 
      | TIME_WITH_TIMELINE 
      | NUMBER_WITH_DURATION 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | NUMBER_WITH_TIMELINE -> "NUMBER_WITH_TIMELINE"
      | TIME_WITH_TIMELINE -> "TIME_WITH_TIMELINE"
      | NUMBER_WITH_DURATION -> "NUMBER_WITH_DURATION"
      | Non_static_id s -> s
    let of_string =
      function
      | "NUMBER_WITH_TIMELINE" -> NUMBER_WITH_TIMELINE
      | "TIME_WITH_TIMELINE" -> TIME_WITH_TIMELINE
      | "NUMBER_WITH_DURATION" -> NUMBER_WITH_DURATION
      | 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 SegmentTemplateFormat" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"SegmentTemplateFormat" j)
    let to_json = simple_to_json to_value
  end
module UtcTiming =
  struct
    type nonrec t =
      | NONE 
      | HTTP_HEAD 
      | HTTP_ISO 
      | HTTP_XSDATE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | NONE -> "NONE"
      | HTTP_HEAD -> "HTTP-HEAD"
      | HTTP_ISO -> "HTTP-ISO"
      | HTTP_XSDATE -> "HTTP-XSDATE"
      | Non_static_id s -> s
    let of_string =
      function
      | "NONE" -> NONE
      | "HTTP-HEAD" -> HTTP_HEAD
      | "HTTP-ISO" -> HTTP_ISO
      | "HTTP-XSDATE" -> HTTP_XSDATE
      | 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 UtcTiming" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"UtcTiming" j)
    let to_json = simple_to_json to_value
  end
module Zz__listOf__PeriodTriggersElement =
  struct
    type nonrec t = Zz__PeriodTriggersElement.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:Zz__PeriodTriggersElement.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:Zz__PeriodTriggersElement.of_xml)
    let of_json j =
      list_of_json ~kind:"__listOf__PeriodTriggersElement"
        ~of_json:Zz__PeriodTriggersElement.of_json j
    let to_json v = composed_to_json to_value v
  end
module HlsEncryption =
  struct
    type nonrec t =
      {
      constantInitializationVector: Zz__string.t option
        [@ocaml.doc
          "A constant initialization vector for encryption (optional). When not specified the initialization vector will be periodically rotated."];
      encryptionMethod: EncryptionMethod.t option
        [@ocaml.doc "The encryption method to use."];
      keyRotationIntervalSeconds: Zz__integer.t option
        [@ocaml.doc
          "Interval (in seconds) between each encryption key rotation."];
      repeatExtXKey: Zz__boolean.t option
        [@ocaml.doc
          "When enabled, the EXT-X-KEY tag will be repeated in output manifests."];
      spekeKeyProvider: SpekeKeyProvider.t }
    let context_ = "HlsEncryption"
    let make ?constantInitializationVector =
      fun ?encryptionMethod ->
        fun ?keyRotationIntervalSeconds ->
          fun ?repeatExtXKey ->
            fun ~spekeKeyProvider ->
              fun () ->
                {
                  constantInitializationVector;
                  encryptionMethod;
                  keyRotationIntervalSeconds;
                  repeatExtXKey;
                  spekeKeyProvider
                }
    let to_value x =
      structure_to_value
        [("constantInitializationVector",
           (Option.map x.constantInitializationVector ~f:Zz__string.to_value));
        ("encryptionMethod",
          (Option.map x.encryptionMethod ~f:EncryptionMethod.to_value));
        ("keyRotationIntervalSeconds",
          (Option.map x.keyRotationIntervalSeconds ~f:Zz__integer.to_value));
        ("repeatExtXKey",
          (Option.map x.repeatExtXKey ~f:Zz__boolean.to_value));
        ("spekeKeyProvider",
          (Some (SpekeKeyProvider.to_value x.spekeKeyProvider)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let spekeKeyProvider =
        SpekeKeyProvider.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "spekeKeyProvider") in
      let repeatExtXKey =
        (Option.map ~f:Zz__boolean.of_xml)
          (Xml.child xml_arg0 "repeatExtXKey") in
      let keyRotationIntervalSeconds =
        (Option.map ~f:Zz__integer.of_xml)
          (Xml.child xml_arg0 "keyRotationIntervalSeconds") in
      let encryptionMethod =
        (Option.map ~f:EncryptionMethod.of_xml)
          (Xml.child xml_arg0 "encryptionMethod") in
      let constantInitializationVector =
        (Option.map ~f:Zz__string.of_xml)
          (Xml.child xml_arg0 "constantInitializationVector") in
      make ~spekeKeyProvider ?repeatExtXKey ?keyRotationIntervalSeconds
        ?encryptionMethod ?constantInitializationVector ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let spekeKeyProvider =
        field_map_exn json__ "SpekeKeyProvider" SpekeKeyProvider.of_json in
      let repeatExtXKey =
        field_map json__ "RepeatExtXKey" Zz__boolean.of_json in
      let keyRotationIntervalSeconds =
        field_map json__ "KeyRotationIntervalSeconds" Zz__integer.of_json in
      let encryptionMethod =
        field_map json__ "EncryptionMethod" EncryptionMethod.of_json in
      let constantInitializationVector =
        field_map json__ "ConstantInitializationVector" Zz__string.of_json in
      make ~spekeKeyProvider ?repeatExtXKey ?keyRotationIntervalSeconds
        ?encryptionMethod ?constantInitializationVector ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "An HTTP Live Streaming (HLS) encryption configuration."]
module MssEncryption =
  struct
    type nonrec t = {
      spekeKeyProvider: SpekeKeyProvider.t }
    let context_ = "MssEncryption"
    let make ~spekeKeyProvider = fun () -> { spekeKeyProvider }
    let to_value x =
      structure_to_value
        [("spekeKeyProvider",
           (Some (SpekeKeyProvider.to_value x.spekeKeyProvider)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let spekeKeyProvider =
        SpekeKeyProvider.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "spekeKeyProvider") in
      make ~spekeKeyProvider ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let spekeKeyProvider =
        field_map_exn json__ "SpekeKeyProvider" SpekeKeyProvider.of_json in
      make ~spekeKeyProvider ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A Microsoft Smooth Streaming (MSS) encryption configuration."]
module Zz__listOfIngestEndpoint =
  struct
    type nonrec t = IngestEndpoint.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:IngestEndpoint.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:IngestEndpoint.of_xml)
    let of_json j =
      list_of_json ~kind:"__listOfIngestEndpoint"
        ~of_json:IngestEndpoint.of_json j
    let to_json v = composed_to_json to_value v
  end
module HlsManifestCreateOrUpdateParameters =
  struct
    type nonrec t =
      {
      adMarkers: AdMarkers.t option
        [@ocaml.doc
          "This setting controls how ad markers are included in the packaged OriginEndpoint. \"NONE\" will omit all SCTE-35 ad markers from the output. \"PASSTHROUGH\" causes the manifest to contain a copy of the SCTE-35 ad markers (comments) taken directly from the input HTTP Live Streaming (HLS) manifest. \"SCTE35_ENHANCED\" generates ad markers and blackout tags based on SCTE-35 messages in the input source. \"DATERANGE\" inserts EXT-X-DATERANGE tags to signal ad and program transition events in HLS and CMAF manifests. For this option, you must set a programDateTimeIntervalSeconds value that is greater than 0."];
      adTriggers: AdTriggers.t option ;
      adsOnDeliveryRestrictions: AdsOnDeliveryRestrictions.t option ;
      id: Zz__string.t
        [@ocaml.doc
          "The ID of the manifest. The ID must be unique within the OriginEndpoint and it cannot be changed after it is created."];
      includeIframeOnlyStream: Zz__boolean.t option
        [@ocaml.doc
          "When enabled, an I-Frame only stream will be included in the output."];
      manifestName: Zz__string.t option
        [@ocaml.doc
          "An optional short string appended to the end of the OriginEndpoint URL. If not specified, defaults to the manifestName for the OriginEndpoint."];
      playlistType: PlaylistType.t option
        [@ocaml.doc
          "The HTTP Live Streaming (HLS) playlist type. When either \"EVENT\" or \"VOD\" is specified, a corresponding EXT-X-PLAYLIST-TYPE entry will be included in the media playlist."];
      playlistWindowSeconds: Zz__integer.t option
        [@ocaml.doc
          "Time window (in seconds) contained in each parent manifest."];
      programDateTimeIntervalSeconds: Zz__integer.t option
        [@ocaml.doc
          "The interval (in seconds) between each EXT-X-PROGRAM-DATE-TIME tag inserted into manifests. Additionally, when an interval is specified ID3Timed Metadata messages will be generated every 5 seconds using the ingest time of the content. If the interval is not specified, or set to 0, then no EXT-X-PROGRAM-DATE-TIME tags will be inserted into manifests and no ID3Timed Metadata messages will be generated. Note that irrespective of this parameter, if any ID3 Timed Metadata is found in HTTP Live Streaming (HLS) input, it will be passed through to HLS output."]}
    let context_ = "HlsManifestCreateOrUpdateParameters"
    let make ?adMarkers =
      fun ?adTriggers ->
        fun ?adsOnDeliveryRestrictions ->
          fun ?includeIframeOnlyStream ->
            fun ?manifestName ->
              fun ?playlistType ->
                fun ?playlistWindowSeconds ->
                  fun ?programDateTimeIntervalSeconds ->
                    fun ~id ->
                      fun () ->
                        {
                          adMarkers;
                          adTriggers;
                          adsOnDeliveryRestrictions;
                          includeIframeOnlyStream;
                          manifestName;
                          playlistType;
                          playlistWindowSeconds;
                          programDateTimeIntervalSeconds;
                          id
                        }
    let to_value x =
      structure_to_value
        [("adMarkers", (Option.map x.adMarkers ~f:AdMarkers.to_value));
        ("adTriggers", (Option.map x.adTriggers ~f:AdTriggers.to_value));
        ("adsOnDeliveryRestrictions",
          (Option.map x.adsOnDeliveryRestrictions
             ~f:AdsOnDeliveryRestrictions.to_value));
        ("id", (Some (Zz__string.to_value x.id)));
        ("includeIframeOnlyStream",
          (Option.map x.includeIframeOnlyStream ~f:Zz__boolean.to_value));
        ("manifestName", (Option.map x.manifestName ~f:Zz__string.to_value));
        ("playlistType",
          (Option.map x.playlistType ~f:PlaylistType.to_value));
        ("playlistWindowSeconds",
          (Option.map x.playlistWindowSeconds ~f:Zz__integer.to_value));
        ("programDateTimeIntervalSeconds",
          (Option.map x.programDateTimeIntervalSeconds
             ~f:Zz__integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let programDateTimeIntervalSeconds =
        (Option.map ~f:Zz__integer.of_xml)
          (Xml.child xml_arg0 "programDateTimeIntervalSeconds") in
      let playlistWindowSeconds =
        (Option.map ~f:Zz__integer.of_xml)
          (Xml.child xml_arg0 "playlistWindowSeconds") in
      let playlistType =
        (Option.map ~f:PlaylistType.of_xml)
          (Xml.child xml_arg0 "playlistType") in
      let manifestName =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "manifestName") in
      let includeIframeOnlyStream =
        (Option.map ~f:Zz__boolean.of_xml)
          (Xml.child xml_arg0 "includeIframeOnlyStream") in
      let id =
        Zz__string.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      let adsOnDeliveryRestrictions =
        (Option.map ~f:AdsOnDeliveryRestrictions.of_xml)
          (Xml.child xml_arg0 "adsOnDeliveryRestrictions") in
      let adTriggers =
        (Option.map ~f:AdTriggers.of_xml) (Xml.child xml_arg0 "adTriggers") in
      let adMarkers =
        (Option.map ~f:AdMarkers.of_xml) (Xml.child xml_arg0 "adMarkers") in
      make ?programDateTimeIntervalSeconds ?playlistWindowSeconds
        ?playlistType ?manifestName ?includeIframeOnlyStream ~id
        ?adsOnDeliveryRestrictions ?adTriggers ?adMarkers ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let programDateTimeIntervalSeconds =
        field_map json__ "ProgramDateTimeIntervalSeconds" Zz__integer.of_json in
      let playlistWindowSeconds =
        field_map json__ "PlaylistWindowSeconds" Zz__integer.of_json in
      let playlistType = field_map json__ "PlaylistType" PlaylistType.of_json in
      let manifestName = field_map json__ "ManifestName" Zz__string.of_json in
      let includeIframeOnlyStream =
        field_map json__ "IncludeIframeOnlyStream" Zz__boolean.of_json in
      let id = field_map_exn json__ "Id" Zz__string.of_json in
      let adsOnDeliveryRestrictions =
        field_map json__ "AdsOnDeliveryRestrictions"
          AdsOnDeliveryRestrictions.of_json in
      let adTriggers = field_map json__ "AdTriggers" AdTriggers.of_json in
      let adMarkers = field_map json__ "AdMarkers" AdMarkers.of_json in
      make ?programDateTimeIntervalSeconds ?playlistWindowSeconds
        ?playlistType ?manifestName ?includeIframeOnlyStream ~id
        ?adsOnDeliveryRestrictions ?adTriggers ?adMarkers ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A HTTP Live Streaming (HLS) manifest configuration."]
module Authorization =
  struct
    type nonrec t =
      {
      cdnIdentifierSecret: Zz__string.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the secret in Secrets Manager that your Content Distribution Network (CDN) uses for authorization to access your endpoint."];
      secretsRoleArn: Zz__string.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the IAM role that allows MediaPackage to communicate with AWS Secrets Manager."]}
    let context_ = "Authorization"
    let make ~cdnIdentifierSecret =
      fun ~secretsRoleArn ->
        fun () -> { cdnIdentifierSecret; secretsRoleArn }
    let to_value x =
      structure_to_value
        [("cdnIdentifierSecret",
           (Some (Zz__string.to_value x.cdnIdentifierSecret)));
        ("secretsRoleArn", (Some (Zz__string.to_value x.secretsRoleArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let secretsRoleArn =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "secretsRoleArn") in
      let cdnIdentifierSecret =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "cdnIdentifierSecret") in
      make ~secretsRoleArn ~cdnIdentifierSecret ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let secretsRoleArn =
        field_map_exn json__ "SecretsRoleArn" Zz__string.of_json in
      let cdnIdentifierSecret =
        field_map_exn json__ "CdnIdentifierSecret" Zz__string.of_json in
      make ~secretsRoleArn ~cdnIdentifierSecret ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "CDN Authorization credentials"]
module CmafPackage =
  struct
    type nonrec t =
      {
      encryption: CmafEncryption.t option ;
      hlsManifests: Zz__listOfHlsManifest.t option
        [@ocaml.doc "A list of HLS manifest configurations"];
      segmentDurationSeconds: Zz__integer.t option
        [@ocaml.doc
          "Duration (in seconds) of each segment. Actual segments will be rounded to the nearest multiple of the source segment duration."];
      segmentPrefix: Zz__string.t option
        [@ocaml.doc
          "An optional custom string that is prepended to the name of each segment. If not specified, it defaults to the ChannelId."];
      streamSelection: StreamSelection.t option }
    let make ?encryption =
      fun ?hlsManifests ->
        fun ?segmentDurationSeconds ->
          fun ?segmentPrefix ->
            fun ?streamSelection ->
              fun () ->
                {
                  encryption;
                  hlsManifests;
                  segmentDurationSeconds;
                  segmentPrefix;
                  streamSelection
                }
    let to_value x =
      structure_to_value
        [("encryption", (Option.map x.encryption ~f:CmafEncryption.to_value));
        ("hlsManifests",
          (Option.map x.hlsManifests ~f:Zz__listOfHlsManifest.to_value));
        ("segmentDurationSeconds",
          (Option.map x.segmentDurationSeconds ~f:Zz__integer.to_value));
        ("segmentPrefix",
          (Option.map x.segmentPrefix ~f:Zz__string.to_value));
        ("streamSelection",
          (Option.map x.streamSelection ~f:StreamSelection.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let streamSelection =
        (Option.map ~f:StreamSelection.of_xml)
          (Xml.child xml_arg0 "streamSelection") in
      let segmentPrefix =
        (Option.map ~f:Zz__string.of_xml)
          (Xml.child xml_arg0 "segmentPrefix") in
      let segmentDurationSeconds =
        (Option.map ~f:Zz__integer.of_xml)
          (Xml.child xml_arg0 "segmentDurationSeconds") in
      let hlsManifests =
        (Option.map ~f:Zz__listOfHlsManifest.of_xml)
          (Xml.child xml_arg0 "hlsManifests") in
      let encryption =
        (Option.map ~f:CmafEncryption.of_xml)
          (Xml.child xml_arg0 "encryption") in
      make ?streamSelection ?segmentPrefix ?segmentDurationSeconds
        ?hlsManifests ?encryption ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let streamSelection =
        field_map json__ "StreamSelection" StreamSelection.of_json in
      let segmentPrefix = field_map json__ "SegmentPrefix" Zz__string.of_json in
      let segmentDurationSeconds =
        field_map json__ "SegmentDurationSeconds" Zz__integer.of_json in
      let hlsManifests =
        field_map json__ "HlsManifests" Zz__listOfHlsManifest.of_json in
      let encryption = field_map json__ "Encryption" CmafEncryption.of_json in
      make ?streamSelection ?segmentPrefix ?segmentDurationSeconds
        ?hlsManifests ?encryption ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A Common Media Application Format (CMAF) packaging configuration."]
module DashPackage =
  struct
    type nonrec t =
      {
      adTriggers: AdTriggers.t option ;
      adsOnDeliveryRestrictions: AdsOnDeliveryRestrictions.t option ;
      encryption: DashEncryption.t option ;
      includeIframeOnlyStream: Zz__boolean.t option
        [@ocaml.doc
          "When enabled, an I-Frame only stream will be included in the output."];
      manifestLayout: ManifestLayout.t option
        [@ocaml.doc
          "Determines the position of some tags in the Media Presentation Description (MPD). When set to FULL, elements like SegmentTemplate and ContentProtection are included in each Representation. When set to COMPACT, duplicate elements are combined and presented at the AdaptationSet level. When set to DRM_TOP_LEVEL_COMPACT, content protection elements are placed the MPD level and referenced at the AdaptationSet level."];
      manifestWindowSeconds: Zz__integer.t option
        [@ocaml.doc "Time window (in seconds) contained in each manifest."];
      minBufferTimeSeconds: Zz__integer.t option
        [@ocaml.doc
          "Minimum duration (in seconds) that a player will buffer media before starting the presentation."];
      minUpdatePeriodSeconds: Zz__integer.t option
        [@ocaml.doc
          "Minimum duration (in seconds) between potential changes to the Dynamic Adaptive Streaming over HTTP (DASH) Media Presentation Description (MPD)."];
      periodTriggers: Zz__listOf__PeriodTriggersElement.t option
        [@ocaml.doc
          "A list of triggers that controls when the outgoing Dynamic Adaptive Streaming over HTTP (DASH) Media Presentation Description (MPD) will be partitioned into multiple periods. If empty, the content will not be partitioned into more than one period. If the list contains \"ADS\", new periods will be created where the Channel source contains SCTE-35 ad markers."];
      profile: Profile.t option
        [@ocaml.doc
          "The Dynamic Adaptive Streaming over HTTP (DASH) profile type. When set to \"HBBTV_1_5\", HbbTV 1.5 compliant output is enabled. When set to \"DVB-DASH_2014\", DVB-DASH 2014 compliant output is enabled."];
      segmentDurationSeconds: Zz__integer.t option
        [@ocaml.doc
          "Duration (in seconds) of each segment. Actual segments will be rounded to the nearest multiple of the source segment duration."];
      segmentTemplateFormat: SegmentTemplateFormat.t option
        [@ocaml.doc
          "Determines the type of SegmentTemplate included in the Media Presentation Description (MPD). When set to NUMBER_WITH_TIMELINE, a full timeline is presented in each SegmentTemplate, with $Number$ media URLs. When set to TIME_WITH_TIMELINE, a full timeline is presented in each SegmentTemplate, with $Time$ media URLs. When set to NUMBER_WITH_DURATION, only a duration is included in each SegmentTemplate, with $Number$ media URLs."];
      streamSelection: StreamSelection.t option ;
      suggestedPresentationDelaySeconds: Zz__integer.t option
        [@ocaml.doc
          "Duration (in seconds) to delay live content before presentation."];
      utcTiming: UtcTiming.t option
        [@ocaml.doc
          "Determines the type of UTCTiming included in the Media Presentation Description (MPD)"];
      utcTimingUri: Zz__string.t option
        [@ocaml.doc
          "Specifies the value attribute of the UTCTiming field when utcTiming is set to HTTP-ISO, HTTP-HEAD or HTTP-XSDATE"]}
    let make ?adTriggers =
      fun ?adsOnDeliveryRestrictions ->
        fun ?encryption ->
          fun ?includeIframeOnlyStream ->
            fun ?manifestLayout ->
              fun ?manifestWindowSeconds ->
                fun ?minBufferTimeSeconds ->
                  fun ?minUpdatePeriodSeconds ->
                    fun ?periodTriggers ->
                      fun ?profile ->
                        fun ?segmentDurationSeconds ->
                          fun ?segmentTemplateFormat ->
                            fun ?streamSelection ->
                              fun ?suggestedPresentationDelaySeconds ->
                                fun ?utcTiming ->
                                  fun ?utcTimingUri ->
                                    fun () ->
                                      {
                                        adTriggers;
                                        adsOnDeliveryRestrictions;
                                        encryption;
                                        includeIframeOnlyStream;
                                        manifestLayout;
                                        manifestWindowSeconds;
                                        minBufferTimeSeconds;
                                        minUpdatePeriodSeconds;
                                        periodTriggers;
                                        profile;
                                        segmentDurationSeconds;
                                        segmentTemplateFormat;
                                        streamSelection;
                                        suggestedPresentationDelaySeconds;
                                        utcTiming;
                                        utcTimingUri
                                      }
    let to_value x =
      structure_to_value
        [("adTriggers", (Option.map x.adTriggers ~f:AdTriggers.to_value));
        ("adsOnDeliveryRestrictions",
          (Option.map x.adsOnDeliveryRestrictions
             ~f:AdsOnDeliveryRestrictions.to_value));
        ("encryption", (Option.map x.encryption ~f:DashEncryption.to_value));
        ("includeIframeOnlyStream",
          (Option.map x.includeIframeOnlyStream ~f:Zz__boolean.to_value));
        ("manifestLayout",
          (Option.map x.manifestLayout ~f:ManifestLayout.to_value));
        ("manifestWindowSeconds",
          (Option.map x.manifestWindowSeconds ~f:Zz__integer.to_value));
        ("minBufferTimeSeconds",
          (Option.map x.minBufferTimeSeconds ~f:Zz__integer.to_value));
        ("minUpdatePeriodSeconds",
          (Option.map x.minUpdatePeriodSeconds ~f:Zz__integer.to_value));
        ("periodTriggers",
          (Option.map x.periodTriggers
             ~f:Zz__listOf__PeriodTriggersElement.to_value));
        ("profile", (Option.map x.profile ~f:Profile.to_value));
        ("segmentDurationSeconds",
          (Option.map x.segmentDurationSeconds ~f:Zz__integer.to_value));
        ("segmentTemplateFormat",
          (Option.map x.segmentTemplateFormat
             ~f:SegmentTemplateFormat.to_value));
        ("streamSelection",
          (Option.map x.streamSelection ~f:StreamSelection.to_value));
        ("suggestedPresentationDelaySeconds",
          (Option.map x.suggestedPresentationDelaySeconds
             ~f:Zz__integer.to_value));
        ("utcTiming", (Option.map x.utcTiming ~f:UtcTiming.to_value));
        ("utcTimingUri", (Option.map x.utcTimingUri ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let utcTimingUri =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "utcTimingUri") in
      let utcTiming =
        (Option.map ~f:UtcTiming.of_xml) (Xml.child xml_arg0 "utcTiming") in
      let suggestedPresentationDelaySeconds =
        (Option.map ~f:Zz__integer.of_xml)
          (Xml.child xml_arg0 "suggestedPresentationDelaySeconds") in
      let streamSelection =
        (Option.map ~f:StreamSelection.of_xml)
          (Xml.child xml_arg0 "streamSelection") in
      let segmentTemplateFormat =
        (Option.map ~f:SegmentTemplateFormat.of_xml)
          (Xml.child xml_arg0 "segmentTemplateFormat") in
      let segmentDurationSeconds =
        (Option.map ~f:Zz__integer.of_xml)
          (Xml.child xml_arg0 "segmentDurationSeconds") in
      let profile =
        (Option.map ~f:Profile.of_xml) (Xml.child xml_arg0 "profile") in
      let periodTriggers =
        (Option.map ~f:Zz__listOf__PeriodTriggersElement.of_xml)
          (Xml.child xml_arg0 "periodTriggers") in
      let minUpdatePeriodSeconds =
        (Option.map ~f:Zz__integer.of_xml)
          (Xml.child xml_arg0 "minUpdatePeriodSeconds") in
      let minBufferTimeSeconds =
        (Option.map ~f:Zz__integer.of_xml)
          (Xml.child xml_arg0 "minBufferTimeSeconds") in
      let manifestWindowSeconds =
        (Option.map ~f:Zz__integer.of_xml)
          (Xml.child xml_arg0 "manifestWindowSeconds") in
      let manifestLayout =
        (Option.map ~f:ManifestLayout.of_xml)
          (Xml.child xml_arg0 "manifestLayout") in
      let includeIframeOnlyStream =
        (Option.map ~f:Zz__boolean.of_xml)
          (Xml.child xml_arg0 "includeIframeOnlyStream") in
      let encryption =
        (Option.map ~f:DashEncryption.of_xml)
          (Xml.child xml_arg0 "encryption") in
      let adsOnDeliveryRestrictions =
        (Option.map ~f:AdsOnDeliveryRestrictions.of_xml)
          (Xml.child xml_arg0 "adsOnDeliveryRestrictions") in
      let adTriggers =
        (Option.map ~f:AdTriggers.of_xml) (Xml.child xml_arg0 "adTriggers") in
      make ?utcTimingUri ?utcTiming ?suggestedPresentationDelaySeconds
        ?streamSelection ?segmentTemplateFormat ?segmentDurationSeconds
        ?profile ?periodTriggers ?minUpdatePeriodSeconds
        ?minBufferTimeSeconds ?manifestWindowSeconds ?manifestLayout
        ?includeIframeOnlyStream ?encryption ?adsOnDeliveryRestrictions
        ?adTriggers ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let utcTimingUri = field_map json__ "UtcTimingUri" Zz__string.of_json in
      let utcTiming = field_map json__ "UtcTiming" UtcTiming.of_json in
      let suggestedPresentationDelaySeconds =
        field_map json__ "SuggestedPresentationDelaySeconds"
          Zz__integer.of_json in
      let streamSelection =
        field_map json__ "StreamSelection" StreamSelection.of_json in
      let segmentTemplateFormat =
        field_map json__ "SegmentTemplateFormat"
          SegmentTemplateFormat.of_json in
      let segmentDurationSeconds =
        field_map json__ "SegmentDurationSeconds" Zz__integer.of_json in
      let profile = field_map json__ "Profile" Profile.of_json in
      let periodTriggers =
        field_map json__ "PeriodTriggers"
          Zz__listOf__PeriodTriggersElement.of_json in
      let minUpdatePeriodSeconds =
        field_map json__ "MinUpdatePeriodSeconds" Zz__integer.of_json in
      let minBufferTimeSeconds =
        field_map json__ "MinBufferTimeSeconds" Zz__integer.of_json in
      let manifestWindowSeconds =
        field_map json__ "ManifestWindowSeconds" Zz__integer.of_json in
      let manifestLayout =
        field_map json__ "ManifestLayout" ManifestLayout.of_json in
      let includeIframeOnlyStream =
        field_map json__ "IncludeIframeOnlyStream" Zz__boolean.of_json in
      let encryption = field_map json__ "Encryption" DashEncryption.of_json in
      let adsOnDeliveryRestrictions =
        field_map json__ "AdsOnDeliveryRestrictions"
          AdsOnDeliveryRestrictions.of_json in
      let adTriggers = field_map json__ "AdTriggers" AdTriggers.of_json in
      make ?utcTimingUri ?utcTiming ?suggestedPresentationDelaySeconds
        ?streamSelection ?segmentTemplateFormat ?segmentDurationSeconds
        ?profile ?periodTriggers ?minUpdatePeriodSeconds
        ?minBufferTimeSeconds ?manifestWindowSeconds ?manifestLayout
        ?includeIframeOnlyStream ?encryption ?adsOnDeliveryRestrictions
        ?adTriggers ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A Dynamic Adaptive Streaming over HTTP (DASH) packaging configuration."]
module HlsPackage =
  struct
    type nonrec t =
      {
      adMarkers: AdMarkers.t option
        [@ocaml.doc
          "This setting controls how ad markers are included in the packaged OriginEndpoint. \"NONE\" will omit all SCTE-35 ad markers from the output. \"PASSTHROUGH\" causes the manifest to contain a copy of the SCTE-35 ad markers (comments) taken directly from the input HTTP Live Streaming (HLS) manifest. \"SCTE35_ENHANCED\" generates ad markers and blackout tags based on SCTE-35 messages in the input source. \"DATERANGE\" inserts EXT-X-DATERANGE tags to signal ad and program transition events in HLS and CMAF manifests. For this option, you must set a programDateTimeIntervalSeconds value that is greater than 0."];
      adTriggers: AdTriggers.t option ;
      adsOnDeliveryRestrictions: AdsOnDeliveryRestrictions.t option ;
      encryption: HlsEncryption.t option ;
      includeDvbSubtitles: Zz__boolean.t option
        [@ocaml.doc
          "When enabled, MediaPackage passes through digital video broadcasting (DVB) subtitles into the output."];
      includeIframeOnlyStream: Zz__boolean.t option
        [@ocaml.doc
          "When enabled, an I-Frame only stream will be included in the output."];
      playlistType: PlaylistType.t option
        [@ocaml.doc
          "The HTTP Live Streaming (HLS) playlist type. When either \"EVENT\" or \"VOD\" is specified, a corresponding EXT-X-PLAYLIST-TYPE entry will be included in the media playlist."];
      playlistWindowSeconds: Zz__integer.t option
        [@ocaml.doc
          "Time window (in seconds) contained in each parent manifest."];
      programDateTimeIntervalSeconds: Zz__integer.t option
        [@ocaml.doc
          "The interval (in seconds) between each EXT-X-PROGRAM-DATE-TIME tag inserted into manifests. Additionally, when an interval is specified ID3Timed Metadata messages will be generated every 5 seconds using the ingest time of the content. If the interval is not specified, or set to 0, then no EXT-X-PROGRAM-DATE-TIME tags will be inserted into manifests and no ID3Timed Metadata messages will be generated. Note that irrespective of this parameter, if any ID3 Timed Metadata is found in HTTP Live Streaming (HLS) input, it will be passed through to HLS output."];
      segmentDurationSeconds: Zz__integer.t option
        [@ocaml.doc
          "Duration (in seconds) of each fragment. Actual fragments will be rounded to the nearest multiple of the source fragment duration."];
      streamSelection: StreamSelection.t option ;
      useAudioRenditionGroup: Zz__boolean.t option
        [@ocaml.doc
          "When enabled, audio streams will be placed in rendition groups in the output."]}
    let make ?adMarkers =
      fun ?adTriggers ->
        fun ?adsOnDeliveryRestrictions ->
          fun ?encryption ->
            fun ?includeDvbSubtitles ->
              fun ?includeIframeOnlyStream ->
                fun ?playlistType ->
                  fun ?playlistWindowSeconds ->
                    fun ?programDateTimeIntervalSeconds ->
                      fun ?segmentDurationSeconds ->
                        fun ?streamSelection ->
                          fun ?useAudioRenditionGroup ->
                            fun () ->
                              {
                                adMarkers;
                                adTriggers;
                                adsOnDeliveryRestrictions;
                                encryption;
                                includeDvbSubtitles;
                                includeIframeOnlyStream;
                                playlistType;
                                playlistWindowSeconds;
                                programDateTimeIntervalSeconds;
                                segmentDurationSeconds;
                                streamSelection;
                                useAudioRenditionGroup
                              }
    let to_value x =
      structure_to_value
        [("adMarkers", (Option.map x.adMarkers ~f:AdMarkers.to_value));
        ("adTriggers", (Option.map x.adTriggers ~f:AdTriggers.to_value));
        ("adsOnDeliveryRestrictions",
          (Option.map x.adsOnDeliveryRestrictions
             ~f:AdsOnDeliveryRestrictions.to_value));
        ("encryption", (Option.map x.encryption ~f:HlsEncryption.to_value));
        ("includeDvbSubtitles",
          (Option.map x.includeDvbSubtitles ~f:Zz__boolean.to_value));
        ("includeIframeOnlyStream",
          (Option.map x.includeIframeOnlyStream ~f:Zz__boolean.to_value));
        ("playlistType",
          (Option.map x.playlistType ~f:PlaylistType.to_value));
        ("playlistWindowSeconds",
          (Option.map x.playlistWindowSeconds ~f:Zz__integer.to_value));
        ("programDateTimeIntervalSeconds",
          (Option.map x.programDateTimeIntervalSeconds
             ~f:Zz__integer.to_value));
        ("segmentDurationSeconds",
          (Option.map x.segmentDurationSeconds ~f:Zz__integer.to_value));
        ("streamSelection",
          (Option.map x.streamSelection ~f:StreamSelection.to_value));
        ("useAudioRenditionGroup",
          (Option.map x.useAudioRenditionGroup ~f:Zz__boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let useAudioRenditionGroup =
        (Option.map ~f:Zz__boolean.of_xml)
          (Xml.child xml_arg0 "useAudioRenditionGroup") in
      let streamSelection =
        (Option.map ~f:StreamSelection.of_xml)
          (Xml.child xml_arg0 "streamSelection") in
      let segmentDurationSeconds =
        (Option.map ~f:Zz__integer.of_xml)
          (Xml.child xml_arg0 "segmentDurationSeconds") in
      let programDateTimeIntervalSeconds =
        (Option.map ~f:Zz__integer.of_xml)
          (Xml.child xml_arg0 "programDateTimeIntervalSeconds") in
      let playlistWindowSeconds =
        (Option.map ~f:Zz__integer.of_xml)
          (Xml.child xml_arg0 "playlistWindowSeconds") in
      let playlistType =
        (Option.map ~f:PlaylistType.of_xml)
          (Xml.child xml_arg0 "playlistType") in
      let includeIframeOnlyStream =
        (Option.map ~f:Zz__boolean.of_xml)
          (Xml.child xml_arg0 "includeIframeOnlyStream") in
      let includeDvbSubtitles =
        (Option.map ~f:Zz__boolean.of_xml)
          (Xml.child xml_arg0 "includeDvbSubtitles") in
      let encryption =
        (Option.map ~f:HlsEncryption.of_xml)
          (Xml.child xml_arg0 "encryption") in
      let adsOnDeliveryRestrictions =
        (Option.map ~f:AdsOnDeliveryRestrictions.of_xml)
          (Xml.child xml_arg0 "adsOnDeliveryRestrictions") in
      let adTriggers =
        (Option.map ~f:AdTriggers.of_xml) (Xml.child xml_arg0 "adTriggers") in
      let adMarkers =
        (Option.map ~f:AdMarkers.of_xml) (Xml.child xml_arg0 "adMarkers") in
      make ?useAudioRenditionGroup ?streamSelection ?segmentDurationSeconds
        ?programDateTimeIntervalSeconds ?playlistWindowSeconds ?playlistType
        ?includeIframeOnlyStream ?includeDvbSubtitles ?encryption
        ?adsOnDeliveryRestrictions ?adTriggers ?adMarkers ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let useAudioRenditionGroup =
        field_map json__ "UseAudioRenditionGroup" Zz__boolean.of_json in
      let streamSelection =
        field_map json__ "StreamSelection" StreamSelection.of_json in
      let segmentDurationSeconds =
        field_map json__ "SegmentDurationSeconds" Zz__integer.of_json in
      let programDateTimeIntervalSeconds =
        field_map json__ "ProgramDateTimeIntervalSeconds" Zz__integer.of_json in
      let playlistWindowSeconds =
        field_map json__ "PlaylistWindowSeconds" Zz__integer.of_json in
      let playlistType = field_map json__ "PlaylistType" PlaylistType.of_json in
      let includeIframeOnlyStream =
        field_map json__ "IncludeIframeOnlyStream" Zz__boolean.of_json in
      let includeDvbSubtitles =
        field_map json__ "IncludeDvbSubtitles" Zz__boolean.of_json in
      let encryption = field_map json__ "Encryption" HlsEncryption.of_json in
      let adsOnDeliveryRestrictions =
        field_map json__ "AdsOnDeliveryRestrictions"
          AdsOnDeliveryRestrictions.of_json in
      let adTriggers = field_map json__ "AdTriggers" AdTriggers.of_json in
      let adMarkers = field_map json__ "AdMarkers" AdMarkers.of_json in
      make ?useAudioRenditionGroup ?streamSelection ?segmentDurationSeconds
        ?programDateTimeIntervalSeconds ?playlistWindowSeconds ?playlistType
        ?includeIframeOnlyStream ?includeDvbSubtitles ?encryption
        ?adsOnDeliveryRestrictions ?adTriggers ?adMarkers ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "An HTTP Live Streaming (HLS) packaging configuration."]
module MssPackage =
  struct
    type nonrec t =
      {
      encryption: MssEncryption.t option ;
      manifestWindowSeconds: Zz__integer.t option
        [@ocaml.doc
          "The time window (in seconds) contained in each manifest."];
      segmentDurationSeconds: Zz__integer.t option
        [@ocaml.doc "The duration (in seconds) of each segment."];
      streamSelection: StreamSelection.t option }
    let make ?encryption =
      fun ?manifestWindowSeconds ->
        fun ?segmentDurationSeconds ->
          fun ?streamSelection ->
            fun () ->
              {
                encryption;
                manifestWindowSeconds;
                segmentDurationSeconds;
                streamSelection
              }
    let to_value x =
      structure_to_value
        [("encryption", (Option.map x.encryption ~f:MssEncryption.to_value));
        ("manifestWindowSeconds",
          (Option.map x.manifestWindowSeconds ~f:Zz__integer.to_value));
        ("segmentDurationSeconds",
          (Option.map x.segmentDurationSeconds ~f:Zz__integer.to_value));
        ("streamSelection",
          (Option.map x.streamSelection ~f:StreamSelection.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let streamSelection =
        (Option.map ~f:StreamSelection.of_xml)
          (Xml.child xml_arg0 "streamSelection") in
      let segmentDurationSeconds =
        (Option.map ~f:Zz__integer.of_xml)
          (Xml.child xml_arg0 "segmentDurationSeconds") in
      let manifestWindowSeconds =
        (Option.map ~f:Zz__integer.of_xml)
          (Xml.child xml_arg0 "manifestWindowSeconds") in
      let encryption =
        (Option.map ~f:MssEncryption.of_xml)
          (Xml.child xml_arg0 "encryption") in
      make ?streamSelection ?segmentDurationSeconds ?manifestWindowSeconds
        ?encryption ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let streamSelection =
        field_map json__ "StreamSelection" StreamSelection.of_json in
      let segmentDurationSeconds =
        field_map json__ "SegmentDurationSeconds" Zz__integer.of_json in
      let manifestWindowSeconds =
        field_map json__ "ManifestWindowSeconds" Zz__integer.of_json in
      let encryption = field_map json__ "Encryption" MssEncryption.of_json in
      make ?streamSelection ?segmentDurationSeconds ?manifestWindowSeconds
        ?encryption ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A Microsoft Smooth Streaming (MSS) packaging configuration."]
module Origination =
  struct
    type nonrec t =
      | ALLOW 
      | DENY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | ALLOW -> "ALLOW" | DENY -> "DENY" | Non_static_id s -> s
    let of_string =
      function | "ALLOW" -> ALLOW | "DENY" -> DENY | 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 Origination" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Origination" j)
    let to_json = simple_to_json to_value
  end
module Tags =
  struct
    type nonrec t = (Zz__string.t * Zz__string.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((Zz__string.of_string chopped),
                              (Zz__string.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (Zz__string.to_value x) |>
                    (fun x -> (Zz__string.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:Zz__string.of_string
        ~of_json:Zz__string.of_json j
    let to_json v = composed_to_json to_value v
  end
module S3Destination =
  struct
    type nonrec t =
      {
      bucketName: Zz__string.t
        [@ocaml.doc
          "The name of an S3 bucket within which harvested content will be exported"];
      manifestKey: Zz__string.t
        [@ocaml.doc
          "The key in the specified S3 bucket where the harvested top-level manifest will be placed."];
      roleArn: Zz__string.t
        [@ocaml.doc "The IAM role used to write to the specified S3 bucket"]}
    let context_ = "S3Destination"
    let make ~bucketName =
      fun ~manifestKey ->
        fun ~roleArn -> fun () -> { bucketName; manifestKey; roleArn }
    let to_value x =
      structure_to_value
        [("bucketName", (Some (Zz__string.to_value x.bucketName)));
        ("manifestKey", (Some (Zz__string.to_value x.manifestKey)));
        ("roleArn", (Some (Zz__string.to_value x.roleArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let roleArn =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "roleArn") in
      let manifestKey =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "manifestKey") in
      let bucketName =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "bucketName") in
      make ~roleArn ~manifestKey ~bucketName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let roleArn = field_map_exn json__ "RoleArn" Zz__string.of_json in
      let manifestKey = field_map_exn json__ "ManifestKey" Zz__string.of_json in
      let bucketName = field_map_exn json__ "BucketName" Zz__string.of_json in
      make ~roleArn ~manifestKey ~bucketName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Configuration parameters for where in an S3 bucket to place the harvested content"]
module Status =
  struct
    type nonrec t =
      | IN_PROGRESS 
      | SUCCEEDED 
      | FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | IN_PROGRESS -> "IN_PROGRESS"
      | SUCCEEDED -> "SUCCEEDED"
      | FAILED -> "FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "IN_PROGRESS" -> IN_PROGRESS
      | "SUCCEEDED" -> SUCCEEDED
      | "FAILED" -> FAILED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration Status" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Status" j)
    let to_json = simple_to_json to_value
  end
module EgressAccessLogs =
  struct
    type nonrec t =
      {
      logGroupName: Zz__string.t option
        [@ocaml.doc "Customize the log group name."]}
    let make ?logGroupName = fun () -> { logGroupName }
    let to_value x =
      structure_to_value
        [("logGroupName", (Option.map x.logGroupName ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let logGroupName =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "logGroupName") in
      make ?logGroupName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let logGroupName = field_map json__ "LogGroupName" Zz__string.of_json in
      make ?logGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Configure egress access logging."]
module HlsIngest =
  struct
    type nonrec t =
      {
      ingestEndpoints: Zz__listOfIngestEndpoint.t option
        [@ocaml.doc
          "A list of endpoints to which the source stream should be sent."]}
    let make ?ingestEndpoints = fun () -> { ingestEndpoints }
    let to_value x =
      structure_to_value
        [("ingestEndpoints",
           (Option.map x.ingestEndpoints ~f:Zz__listOfIngestEndpoint.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ingestEndpoints =
        (Option.map ~f:Zz__listOfIngestEndpoint.of_xml)
          (Xml.child xml_arg0 "ingestEndpoints") in
      make ?ingestEndpoints ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ingestEndpoints =
        field_map json__ "IngestEndpoints" Zz__listOfIngestEndpoint.of_json in
      make ?ingestEndpoints ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An HTTP Live Streaming (HLS) ingest resource configuration."]
module IngressAccessLogs =
  struct
    type nonrec t =
      {
      logGroupName: Zz__string.t option
        [@ocaml.doc "Customize the log group name."]}
    let make ?logGroupName = fun () -> { logGroupName }
    let to_value x =
      structure_to_value
        [("logGroupName", (Option.map x.logGroupName ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let logGroupName =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "logGroupName") in
      make ?logGroupName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let logGroupName = field_map json__ "LogGroupName" Zz__string.of_json in
      make ?logGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Configure ingress access logging."]
module Zz__listOfHlsManifestCreateOrUpdateParameters =
  struct
    type nonrec t = HlsManifestCreateOrUpdateParameters.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:HlsManifestCreateOrUpdateParameters.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:HlsManifestCreateOrUpdateParameters.of_xml)
    let of_json j =
      list_of_json ~kind:"__listOfHlsManifestCreateOrUpdateParameters"
        ~of_json:HlsManifestCreateOrUpdateParameters.of_json j
    let to_json v = composed_to_json to_value v
  end
module OriginEndpoint =
  struct
    type nonrec t =
      {
      arn: Zz__string.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) assigned to the OriginEndpoint."];
      authorization: Authorization.t option ;
      channelId: Zz__string.t option
        [@ocaml.doc
          "The ID of the Channel the OriginEndpoint is associated with."];
      cmafPackage: CmafPackage.t option ;
      createdAt: Zz__string.t option
        [@ocaml.doc "The date and time the OriginEndpoint was created."];
      dashPackage: DashPackage.t option ;
      description: Zz__string.t option
        [@ocaml.doc "A short text description of the OriginEndpoint."];
      hlsPackage: HlsPackage.t option ;
      id: Zz__string.t option [@ocaml.doc "The ID of the OriginEndpoint."];
      manifestName: Zz__string.t option
        [@ocaml.doc
          "A short string appended to the end of the OriginEndpoint URL."];
      mssPackage: MssPackage.t option ;
      origination: Origination.t option
        [@ocaml.doc
          "Control whether origination of video is allowed for this OriginEndpoint. If set to ALLOW, the OriginEndpoint may by requested, pursuant to any other form of access control. If set to DENY, the OriginEndpoint may not be requested. This can be helpful for Live to VOD harvesting, or for temporarily disabling origination"];
      startoverWindowSeconds: Zz__integer.t option
        [@ocaml.doc
          "Maximum duration (seconds) of content to retain for startover playback. If not specified, startover playback will be disabled for the OriginEndpoint."];
      tags: Tags.t option ;
      timeDelaySeconds: Zz__integer.t option
        [@ocaml.doc
          "Amount of delay (seconds) to enforce on the playback of live content. If not specified, there will be no time delay in effect for the OriginEndpoint."];
      url: Zz__string.t option
        [@ocaml.doc
          "The URL of the packaged OriginEndpoint for consumption."];
      whitelist: Zz__listOf__string.t option
        [@ocaml.doc
          "A list of source IP CIDR blocks that will be allowed to access the OriginEndpoint."]}
    let make ?arn =
      fun ?authorization ->
        fun ?channelId ->
          fun ?cmafPackage ->
            fun ?createdAt ->
              fun ?dashPackage ->
                fun ?description ->
                  fun ?hlsPackage ->
                    fun ?id ->
                      fun ?manifestName ->
                        fun ?mssPackage ->
                          fun ?origination ->
                            fun ?startoverWindowSeconds ->
                              fun ?tags ->
                                fun ?timeDelaySeconds ->
                                  fun ?url ->
                                    fun ?whitelist ->
                                      fun () ->
                                        {
                                          arn;
                                          authorization;
                                          channelId;
                                          cmafPackage;
                                          createdAt;
                                          dashPackage;
                                          description;
                                          hlsPackage;
                                          id;
                                          manifestName;
                                          mssPackage;
                                          origination;
                                          startoverWindowSeconds;
                                          tags;
                                          timeDelaySeconds;
                                          url;
                                          whitelist
                                        }
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:Zz__string.to_value));
        ("authorization",
          (Option.map x.authorization ~f:Authorization.to_value));
        ("channelId", (Option.map x.channelId ~f:Zz__string.to_value));
        ("cmafPackage", (Option.map x.cmafPackage ~f:CmafPackage.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Zz__string.to_value));
        ("dashPackage", (Option.map x.dashPackage ~f:DashPackage.to_value));
        ("description", (Option.map x.description ~f:Zz__string.to_value));
        ("hlsPackage", (Option.map x.hlsPackage ~f:HlsPackage.to_value));
        ("id", (Option.map x.id ~f:Zz__string.to_value));
        ("manifestName", (Option.map x.manifestName ~f:Zz__string.to_value));
        ("mssPackage", (Option.map x.mssPackage ~f:MssPackage.to_value));
        ("origination", (Option.map x.origination ~f:Origination.to_value));
        ("startoverWindowSeconds",
          (Option.map x.startoverWindowSeconds ~f:Zz__integer.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value));
        ("timeDelaySeconds",
          (Option.map x.timeDelaySeconds ~f:Zz__integer.to_value));
        ("url", (Option.map x.url ~f:Zz__string.to_value));
        ("whitelist",
          (Option.map x.whitelist ~f:Zz__listOf__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let whitelist =
        (Option.map ~f:Zz__listOf__string.of_xml)
          (Xml.child xml_arg0 "whitelist") in
      let url = (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "url") in
      let timeDelaySeconds =
        (Option.map ~f:Zz__integer.of_xml)
          (Xml.child xml_arg0 "timeDelaySeconds") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let startoverWindowSeconds =
        (Option.map ~f:Zz__integer.of_xml)
          (Xml.child xml_arg0 "startoverWindowSeconds") in
      let origination =
        (Option.map ~f:Origination.of_xml) (Xml.child xml_arg0 "origination") in
      let mssPackage =
        (Option.map ~f:MssPackage.of_xml) (Xml.child xml_arg0 "mssPackage") in
      let manifestName =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "manifestName") in
      let id = (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "id") in
      let hlsPackage =
        (Option.map ~f:HlsPackage.of_xml) (Xml.child xml_arg0 "hlsPackage") in
      let description =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "description") in
      let dashPackage =
        (Option.map ~f:DashPackage.of_xml) (Xml.child xml_arg0 "dashPackage") in
      let createdAt =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "createdAt") in
      let cmafPackage =
        (Option.map ~f:CmafPackage.of_xml) (Xml.child xml_arg0 "cmafPackage") in
      let channelId =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "channelId") in
      let authorization =
        (Option.map ~f:Authorization.of_xml)
          (Xml.child xml_arg0 "authorization") in
      let arn = (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "arn") in
      make ?whitelist ?url ?timeDelaySeconds ?tags ?startoverWindowSeconds
        ?origination ?mssPackage ?manifestName ?id ?hlsPackage ?description
        ?dashPackage ?createdAt ?cmafPackage ?channelId ?authorization ?arn
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let whitelist = field_map json__ "Whitelist" Zz__listOf__string.of_json in
      let url = field_map json__ "Url" Zz__string.of_json in
      let timeDelaySeconds =
        field_map json__ "TimeDelaySeconds" Zz__integer.of_json in
      let tags = field_map json__ "Tags" Tags.of_json in
      let startoverWindowSeconds =
        field_map json__ "StartoverWindowSeconds" Zz__integer.of_json in
      let origination = field_map json__ "Origination" Origination.of_json in
      let mssPackage = field_map json__ "MssPackage" MssPackage.of_json in
      let manifestName = field_map json__ "ManifestName" Zz__string.of_json in
      let id = field_map json__ "Id" Zz__string.of_json in
      let hlsPackage = field_map json__ "HlsPackage" HlsPackage.of_json in
      let description = field_map json__ "Description" Zz__string.of_json in
      let dashPackage = field_map json__ "DashPackage" DashPackage.of_json in
      let createdAt = field_map json__ "CreatedAt" Zz__string.of_json in
      let cmafPackage = field_map json__ "CmafPackage" CmafPackage.of_json in
      let channelId = field_map json__ "ChannelId" Zz__string.of_json in
      let authorization =
        field_map json__ "Authorization" Authorization.of_json in
      let arn = field_map json__ "Arn" Zz__string.of_json in
      make ?whitelist ?url ?timeDelaySeconds ?tags ?startoverWindowSeconds
        ?origination ?mssPackage ?manifestName ?id ?hlsPackage ?description
        ?dashPackage ?createdAt ?cmafPackage ?channelId ?authorization ?arn
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "An OriginEndpoint resource configuration."]
module HarvestJob =
  struct
    type nonrec t =
      {
      arn: Zz__string.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) assigned to the HarvestJob."];
      channelId: Zz__string.t option
        [@ocaml.doc
          "The ID of the Channel that the HarvestJob will harvest from."];
      createdAt: Zz__string.t option
        [@ocaml.doc "The date and time the HarvestJob was submitted."];
      endTime: Zz__string.t option
        [@ocaml.doc "The end of the time-window which will be harvested."];
      id: Zz__string.t option
        [@ocaml.doc
          "The ID of the HarvestJob. The ID must be unique within the region and it cannot be changed after the HarvestJob is submitted."];
      originEndpointId: Zz__string.t option
        [@ocaml.doc
          "The ID of the OriginEndpoint that the HarvestJob will harvest from. This cannot be changed after the HarvestJob is submitted."];
      s3Destination: S3Destination.t option ;
      startTime: Zz__string.t option
        [@ocaml.doc "The start of the time-window which will be harvested."];
      status: Status.t option
        [@ocaml.doc
          "The current status of the HarvestJob. Consider setting up a CloudWatch Event to listen for HarvestJobs as they succeed or fail. In the event of failure, the CloudWatch Event will include an explanation of why the HarvestJob failed."]}
    let make ?arn =
      fun ?channelId ->
        fun ?createdAt ->
          fun ?endTime ->
            fun ?id ->
              fun ?originEndpointId ->
                fun ?s3Destination ->
                  fun ?startTime ->
                    fun ?status ->
                      fun () ->
                        {
                          arn;
                          channelId;
                          createdAt;
                          endTime;
                          id;
                          originEndpointId;
                          s3Destination;
                          startTime;
                          status
                        }
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:Zz__string.to_value));
        ("channelId", (Option.map x.channelId ~f:Zz__string.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Zz__string.to_value));
        ("endTime", (Option.map x.endTime ~f:Zz__string.to_value));
        ("id", (Option.map x.id ~f:Zz__string.to_value));
        ("originEndpointId",
          (Option.map x.originEndpointId ~f:Zz__string.to_value));
        ("s3Destination",
          (Option.map x.s3Destination ~f:S3Destination.to_value));
        ("startTime", (Option.map x.startTime ~f:Zz__string.to_value));
        ("status", (Option.map x.status ~f:Status.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:Status.of_xml) (Xml.child xml_arg0 "status") in
      let startTime =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "startTime") in
      let s3Destination =
        (Option.map ~f:S3Destination.of_xml)
          (Xml.child xml_arg0 "s3Destination") in
      let originEndpointId =
        (Option.map ~f:Zz__string.of_xml)
          (Xml.child xml_arg0 "originEndpointId") in
      let id = (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "id") in
      let endTime =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "endTime") in
      let createdAt =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "createdAt") in
      let channelId =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "channelId") in
      let arn = (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "arn") in
      make ?status ?startTime ?s3Destination ?originEndpointId ?id ?endTime
        ?createdAt ?channelId ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" Status.of_json in
      let startTime = field_map json__ "StartTime" Zz__string.of_json in
      let s3Destination =
        field_map json__ "S3Destination" S3Destination.of_json in
      let originEndpointId =
        field_map json__ "OriginEndpointId" Zz__string.of_json in
      let id = field_map json__ "Id" Zz__string.of_json in
      let endTime = field_map json__ "EndTime" Zz__string.of_json in
      let createdAt = field_map json__ "CreatedAt" Zz__string.of_json in
      let channelId = field_map json__ "ChannelId" Zz__string.of_json in
      let arn = field_map json__ "Arn" Zz__string.of_json in
      make ?status ?startTime ?s3Destination ?originEndpointId ?id ?endTime
        ?createdAt ?channelId ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A HarvestJob resource configuration"]
module Channel =
  struct
    type nonrec t =
      {
      arn: Zz__string.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) assigned to the Channel."];
      createdAt: Zz__string.t option
        [@ocaml.doc "The date and time the Channel was created."];
      description: Zz__string.t option
        [@ocaml.doc "A short text description of the Channel."];
      egressAccessLogs: EgressAccessLogs.t option ;
      hlsIngest: HlsIngest.t option ;
      id: Zz__string.t option [@ocaml.doc "The ID of the Channel."];
      ingressAccessLogs: IngressAccessLogs.t option ;
      tags: Tags.t option }
    let make ?arn =
      fun ?createdAt ->
        fun ?description ->
          fun ?egressAccessLogs ->
            fun ?hlsIngest ->
              fun ?id ->
                fun ?ingressAccessLogs ->
                  fun ?tags ->
                    fun () ->
                      {
                        arn;
                        createdAt;
                        description;
                        egressAccessLogs;
                        hlsIngest;
                        id;
                        ingressAccessLogs;
                        tags
                      }
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:Zz__string.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Zz__string.to_value));
        ("description", (Option.map x.description ~f:Zz__string.to_value));
        ("egressAccessLogs",
          (Option.map x.egressAccessLogs ~f:EgressAccessLogs.to_value));
        ("hlsIngest", (Option.map x.hlsIngest ~f:HlsIngest.to_value));
        ("id", (Option.map x.id ~f:Zz__string.to_value));
        ("ingressAccessLogs",
          (Option.map x.ingressAccessLogs ~f:IngressAccessLogs.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let ingressAccessLogs =
        (Option.map ~f:IngressAccessLogs.of_xml)
          (Xml.child xml_arg0 "ingressAccessLogs") in
      let id = (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "id") in
      let hlsIngest =
        (Option.map ~f:HlsIngest.of_xml) (Xml.child xml_arg0 "hlsIngest") in
      let egressAccessLogs =
        (Option.map ~f:EgressAccessLogs.of_xml)
          (Xml.child xml_arg0 "egressAccessLogs") in
      let description =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "description") in
      let createdAt =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "createdAt") in
      let arn = (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "arn") in
      make ?tags ?ingressAccessLogs ?id ?hlsIngest ?egressAccessLogs
        ?description ?createdAt ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in
      let ingressAccessLogs =
        field_map json__ "IngressAccessLogs" IngressAccessLogs.of_json in
      let id = field_map json__ "Id" Zz__string.of_json in
      let hlsIngest = field_map json__ "HlsIngest" HlsIngest.of_json in
      let egressAccessLogs =
        field_map json__ "EgressAccessLogs" EgressAccessLogs.of_json in
      let description = field_map json__ "Description" Zz__string.of_json in
      let createdAt = field_map json__ "CreatedAt" Zz__string.of_json in
      let arn = field_map json__ "Arn" Zz__string.of_json in
      make ?tags ?ingressAccessLogs ?id ?hlsIngest ?egressAccessLogs
        ?description ?createdAt ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A Channel resource configuration."]
module ForbiddenException =
  struct
    type nonrec t = {
      message: Zz__string.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" Zz__string.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The client is not authorized to access the requested resource."]
module InternalServerErrorException =
  struct
    type nonrec t = {
      message: Zz__string.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" Zz__string.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "An unexpected error occurred."]
module NotFoundException =
  struct
    type nonrec t = {
      message: Zz__string.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" Zz__string.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The requested resource does not exist."]
module ServiceUnavailableException =
  struct
    type nonrec t = {
      message: Zz__string.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" Zz__string.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "An unexpected error occurred."]
module TooManyRequestsException =
  struct
    type nonrec t = {
      message: Zz__string.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" Zz__string.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The client has exceeded their resource or throttling limits."]
module UnprocessableEntityException =
  struct
    type nonrec t = {
      message: Zz__string.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" Zz__string.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The parameters sent in the request are not valid."]
module CmafPackageCreateOrUpdateParameters =
  struct
    type nonrec t =
      {
      encryption: CmafEncryption.t option ;
      hlsManifests: Zz__listOfHlsManifestCreateOrUpdateParameters.t option
        [@ocaml.doc "A list of HLS manifest configurations"];
      segmentDurationSeconds: Zz__integer.t option
        [@ocaml.doc
          "Duration (in seconds) of each segment. Actual segments will be rounded to the nearest multiple of the source segment duration."];
      segmentPrefix: Zz__string.t option
        [@ocaml.doc
          "An optional custom string that is prepended to the name of each segment. If not specified, it defaults to the ChannelId."];
      streamSelection: StreamSelection.t option }
    let make ?encryption =
      fun ?hlsManifests ->
        fun ?segmentDurationSeconds ->
          fun ?segmentPrefix ->
            fun ?streamSelection ->
              fun () ->
                {
                  encryption;
                  hlsManifests;
                  segmentDurationSeconds;
                  segmentPrefix;
                  streamSelection
                }
    let to_value x =
      structure_to_value
        [("encryption", (Option.map x.encryption ~f:CmafEncryption.to_value));
        ("hlsManifests",
          (Option.map x.hlsManifests
             ~f:Zz__listOfHlsManifestCreateOrUpdateParameters.to_value));
        ("segmentDurationSeconds",
          (Option.map x.segmentDurationSeconds ~f:Zz__integer.to_value));
        ("segmentPrefix",
          (Option.map x.segmentPrefix ~f:Zz__string.to_value));
        ("streamSelection",
          (Option.map x.streamSelection ~f:StreamSelection.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let streamSelection =
        (Option.map ~f:StreamSelection.of_xml)
          (Xml.child xml_arg0 "streamSelection") in
      let segmentPrefix =
        (Option.map ~f:Zz__string.of_xml)
          (Xml.child xml_arg0 "segmentPrefix") in
      let segmentDurationSeconds =
        (Option.map ~f:Zz__integer.of_xml)
          (Xml.child xml_arg0 "segmentDurationSeconds") in
      let hlsManifests =
        (Option.map ~f:Zz__listOfHlsManifestCreateOrUpdateParameters.of_xml)
          (Xml.child xml_arg0 "hlsManifests") in
      let encryption =
        (Option.map ~f:CmafEncryption.of_xml)
          (Xml.child xml_arg0 "encryption") in
      make ?streamSelection ?segmentPrefix ?segmentDurationSeconds
        ?hlsManifests ?encryption ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let streamSelection =
        field_map json__ "StreamSelection" StreamSelection.of_json in
      let segmentPrefix = field_map json__ "SegmentPrefix" Zz__string.of_json in
      let segmentDurationSeconds =
        field_map json__ "SegmentDurationSeconds" Zz__integer.of_json in
      let hlsManifests =
        field_map json__ "HlsManifests"
          Zz__listOfHlsManifestCreateOrUpdateParameters.of_json in
      let encryption = field_map json__ "Encryption" CmafEncryption.of_json in
      make ?streamSelection ?segmentPrefix ?segmentDurationSeconds
        ?hlsManifests ?encryption ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A Common Media Application Format (CMAF) packaging configuration."]
module Zz__mapOf__string =
  struct
    type nonrec t = (Zz__string.t * Zz__string.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((Zz__string.of_string chopped),
                              (Zz__string.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (Zz__string.to_value x) |>
                    (fun x -> (Zz__string.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:Zz__string.of_string
        ~of_json:Zz__string.of_json j
    let to_json v = composed_to_json to_value v
  end
module Zz__listOfOriginEndpoint =
  struct
    type nonrec t = OriginEndpoint.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:OriginEndpoint.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:OriginEndpoint.of_xml)
    let of_json j =
      list_of_json ~kind:"__listOfOriginEndpoint"
        ~of_json:OriginEndpoint.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:1000) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for MaxResults" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module Zz__listOfHarvestJob =
  struct
    type nonrec t = HarvestJob.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:HarvestJob.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:HarvestJob.of_xml)
    let of_json j =
      list_of_json ~kind:"__listOfHarvestJob" ~of_json:HarvestJob.of_json j
    let to_json v = composed_to_json to_value v
  end
module Zz__listOfChannel =
  struct
    type nonrec t = Channel.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:Channel.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:Channel.of_xml)
    let of_json j =
      list_of_json ~kind:"__listOfChannel" ~of_json:Channel.of_json j
    let to_json v = composed_to_json to_value v
  end
module Zz__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 Zz__double =
  struct
    type nonrec t = float
    let make i = i
    let of_string = Float.of_string
    let to_value x = `Double x
    let to_query v = to_query to_value v
    let to_header x = Stdlib.Float.to_string x
    let of_xml xml_arg0 =
      Float.of_string (string_of_xml ~kind:"a double" xml_arg0)
    let of_json j = float_of_json ~kind:"a double" j
    let to_json = simple_to_json to_value
  end
module UpdateOriginEndpointResponse =
  struct
    type nonrec t =
      {
      arn: Zz__string.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) assigned to the OriginEndpoint."];
      authorization: Authorization.t option ;
      channelId: Zz__string.t option
        [@ocaml.doc
          "The ID of the Channel the OriginEndpoint is associated with."];
      cmafPackage: CmafPackage.t option ;
      createdAt: Zz__string.t option
        [@ocaml.doc "The date and time the OriginEndpoint was created."];
      dashPackage: DashPackage.t option ;
      description: Zz__string.t option
        [@ocaml.doc "A short text description of the OriginEndpoint."];
      hlsPackage: HlsPackage.t option ;
      id: Zz__string.t option [@ocaml.doc "The ID of the OriginEndpoint."];
      manifestName: Zz__string.t option
        [@ocaml.doc
          "A short string appended to the end of the OriginEndpoint URL."];
      mssPackage: MssPackage.t option ;
      origination: Origination.t option
        [@ocaml.doc
          "Control whether origination of video is allowed for this OriginEndpoint. If set to ALLOW, the OriginEndpoint may by requested, pursuant to any other form of access control. If set to DENY, the OriginEndpoint may not be requested. This can be helpful for Live to VOD harvesting, or for temporarily disabling origination"];
      startoverWindowSeconds: Zz__integer.t option
        [@ocaml.doc
          "Maximum duration (seconds) of content to retain for startover playback. If not specified, startover playback will be disabled for the OriginEndpoint."];
      tags: Tags.t option ;
      timeDelaySeconds: Zz__integer.t option
        [@ocaml.doc
          "Amount of delay (seconds) to enforce on the playback of live content. If not specified, there will be no time delay in effect for the OriginEndpoint."];
      url: Zz__string.t option
        [@ocaml.doc
          "The URL of the packaged OriginEndpoint for consumption."];
      whitelist: Zz__listOf__string.t option
        [@ocaml.doc
          "A list of source IP CIDR blocks that will be allowed to access the OriginEndpoint."]}
    type nonrec error =
      [ `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `UnprocessableEntityException of UnprocessableEntityException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?arn =
      fun ?authorization ->
        fun ?channelId ->
          fun ?cmafPackage ->
            fun ?createdAt ->
              fun ?dashPackage ->
                fun ?description ->
                  fun ?hlsPackage ->
                    fun ?id ->
                      fun ?manifestName ->
                        fun ?mssPackage ->
                          fun ?origination ->
                            fun ?startoverWindowSeconds ->
                              fun ?tags ->
                                fun ?timeDelaySeconds ->
                                  fun ?url ->
                                    fun ?whitelist ->
                                      fun () ->
                                        {
                                          arn;
                                          authorization;
                                          channelId;
                                          cmafPackage;
                                          createdAt;
                                          dashPackage;
                                          description;
                                          hlsPackage;
                                          id;
                                          manifestName;
                                          mssPackage;
                                          origination;
                                          startoverWindowSeconds;
                                          tags;
                                          timeDelaySeconds;
                                          url;
                                          whitelist
                                        }
    let error_of_json name json =
      match name with
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | "UnprocessableEntityException" ->
          `UnprocessableEntityException
            (UnprocessableEntityException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | "UnprocessableEntityException" ->
          `UnprocessableEntityException
            (UnprocessableEntityException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `UnprocessableEntityException e ->
          `Assoc
            [("error", (`String "UnprocessableEntityException"));
            ("details", (UnprocessableEntityException.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
        [("arn", (Option.map x.arn ~f:Zz__string.to_value));
        ("authorization",
          (Option.map x.authorization ~f:Authorization.to_value));
        ("channelId", (Option.map x.channelId ~f:Zz__string.to_value));
        ("cmafPackage", (Option.map x.cmafPackage ~f:CmafPackage.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Zz__string.to_value));
        ("dashPackage", (Option.map x.dashPackage ~f:DashPackage.to_value));
        ("description", (Option.map x.description ~f:Zz__string.to_value));
        ("hlsPackage", (Option.map x.hlsPackage ~f:HlsPackage.to_value));
        ("id", (Option.map x.id ~f:Zz__string.to_value));
        ("manifestName", (Option.map x.manifestName ~f:Zz__string.to_value));
        ("mssPackage", (Option.map x.mssPackage ~f:MssPackage.to_value));
        ("origination", (Option.map x.origination ~f:Origination.to_value));
        ("startoverWindowSeconds",
          (Option.map x.startoverWindowSeconds ~f:Zz__integer.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value));
        ("timeDelaySeconds",
          (Option.map x.timeDelaySeconds ~f:Zz__integer.to_value));
        ("url", (Option.map x.url ~f:Zz__string.to_value));
        ("whitelist",
          (Option.map x.whitelist ~f:Zz__listOf__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let whitelist =
        (Option.map ~f:Zz__listOf__string.of_xml)
          (Xml.child xml_arg0 "whitelist") in
      let url = (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "url") in
      let timeDelaySeconds =
        (Option.map ~f:Zz__integer.of_xml)
          (Xml.child xml_arg0 "timeDelaySeconds") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let startoverWindowSeconds =
        (Option.map ~f:Zz__integer.of_xml)
          (Xml.child xml_arg0 "startoverWindowSeconds") in
      let origination =
        (Option.map ~f:Origination.of_xml) (Xml.child xml_arg0 "origination") in
      let mssPackage =
        (Option.map ~f:MssPackage.of_xml) (Xml.child xml_arg0 "mssPackage") in
      let manifestName =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "manifestName") in
      let id = (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "id") in
      let hlsPackage =
        (Option.map ~f:HlsPackage.of_xml) (Xml.child xml_arg0 "hlsPackage") in
      let description =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "description") in
      let dashPackage =
        (Option.map ~f:DashPackage.of_xml) (Xml.child xml_arg0 "dashPackage") in
      let createdAt =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "createdAt") in
      let cmafPackage =
        (Option.map ~f:CmafPackage.of_xml) (Xml.child xml_arg0 "cmafPackage") in
      let channelId =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "channelId") in
      let authorization =
        (Option.map ~f:Authorization.of_xml)
          (Xml.child xml_arg0 "authorization") in
      let arn = (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "arn") in
      make ?whitelist ?url ?timeDelaySeconds ?tags ?startoverWindowSeconds
        ?origination ?mssPackage ?manifestName ?id ?hlsPackage ?description
        ?dashPackage ?createdAt ?cmafPackage ?channelId ?authorization ?arn
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let whitelist = field_map json__ "Whitelist" Zz__listOf__string.of_json in
      let url = field_map json__ "Url" Zz__string.of_json in
      let timeDelaySeconds =
        field_map json__ "TimeDelaySeconds" Zz__integer.of_json in
      let tags = field_map json__ "Tags" Tags.of_json in
      let startoverWindowSeconds =
        field_map json__ "StartoverWindowSeconds" Zz__integer.of_json in
      let origination = field_map json__ "Origination" Origination.of_json in
      let mssPackage = field_map json__ "MssPackage" MssPackage.of_json in
      let manifestName = field_map json__ "ManifestName" Zz__string.of_json in
      let id = field_map json__ "Id" Zz__string.of_json in
      let hlsPackage = field_map json__ "HlsPackage" HlsPackage.of_json in
      let description = field_map json__ "Description" Zz__string.of_json in
      let dashPackage = field_map json__ "DashPackage" DashPackage.of_json in
      let createdAt = field_map json__ "CreatedAt" Zz__string.of_json in
      let cmafPackage = field_map json__ "CmafPackage" CmafPackage.of_json in
      let channelId = field_map json__ "ChannelId" Zz__string.of_json in
      let authorization =
        field_map json__ "Authorization" Authorization.of_json in
      let arn = field_map json__ "Arn" Zz__string.of_json in
      make ?whitelist ?url ?timeDelaySeconds ?tags ?startoverWindowSeconds
        ?origination ?mssPackage ?manifestName ?id ?hlsPackage ?description
        ?dashPackage ?createdAt ?cmafPackage ?channelId ?authorization ?arn
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates an existing OriginEndpoint."]
module UpdateOriginEndpointRequest =
  struct
    type nonrec t =
      {
      authorization: Authorization.t option ;
      cmafPackage: CmafPackageCreateOrUpdateParameters.t option ;
      dashPackage: DashPackage.t option ;
      description: Zz__string.t option
        [@ocaml.doc "A short text description of the OriginEndpoint."];
      hlsPackage: HlsPackage.t option ;
      id: Zz__string.t [@ocaml.doc "The ID of the OriginEndpoint to update."];
      manifestName: Zz__string.t option
        [@ocaml.doc
          "A short string that will be appended to the end of the Endpoint URL."];
      mssPackage: MssPackage.t option ;
      origination: Origination.t option
        [@ocaml.doc
          "Control whether origination of video is allowed for this OriginEndpoint. If set to ALLOW, the OriginEndpoint may by requested, pursuant to any other form of access control. If set to DENY, the OriginEndpoint may not be requested. This can be helpful for Live to VOD harvesting, or for temporarily disabling origination"];
      startoverWindowSeconds: Zz__integer.t option
        [@ocaml.doc
          "Maximum duration (in seconds) of content to retain for startover playback. If not specified, startover playback will be disabled for the OriginEndpoint."];
      timeDelaySeconds: Zz__integer.t option
        [@ocaml.doc
          "Amount of delay (in seconds) to enforce on the playback of live content. If not specified, there will be no time delay in effect for the OriginEndpoint."];
      whitelist: Zz__listOf__string.t option
        [@ocaml.doc
          "A list of source IP CIDR blocks that will be allowed to access the OriginEndpoint."]}
    let context_ = "UpdateOriginEndpointRequest"
    let make ?authorization =
      fun ?cmafPackage ->
        fun ?dashPackage ->
          fun ?description ->
            fun ?hlsPackage ->
              fun ?manifestName ->
                fun ?mssPackage ->
                  fun ?origination ->
                    fun ?startoverWindowSeconds ->
                      fun ?timeDelaySeconds ->
                        fun ?whitelist ->
                          fun ~id ->
                            fun () ->
                              {
                                authorization;
                                cmafPackage;
                                dashPackage;
                                description;
                                hlsPackage;
                                manifestName;
                                mssPackage;
                                origination;
                                startoverWindowSeconds;
                                timeDelaySeconds;
                                whitelist;
                                id
                              }
    let to_value x =
      structure_to_value
        [("authorization",
           (Option.map x.authorization ~f:Authorization.to_value));
        ("cmafPackage",
          (Option.map x.cmafPackage
             ~f:CmafPackageCreateOrUpdateParameters.to_value));
        ("dashPackage", (Option.map x.dashPackage ~f:DashPackage.to_value));
        ("description", (Option.map x.description ~f:Zz__string.to_value));
        ("hlsPackage", (Option.map x.hlsPackage ~f:HlsPackage.to_value));
        ("id", (Some (Zz__string.to_value x.id)));
        ("manifestName", (Option.map x.manifestName ~f:Zz__string.to_value));
        ("mssPackage", (Option.map x.mssPackage ~f:MssPackage.to_value));
        ("origination", (Option.map x.origination ~f:Origination.to_value));
        ("startoverWindowSeconds",
          (Option.map x.startoverWindowSeconds ~f:Zz__integer.to_value));
        ("timeDelaySeconds",
          (Option.map x.timeDelaySeconds ~f:Zz__integer.to_value));
        ("whitelist",
          (Option.map x.whitelist ~f:Zz__listOf__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let whitelist =
        (Option.map ~f:Zz__listOf__string.of_xml)
          (Xml.child xml_arg0 "whitelist") in
      let timeDelaySeconds =
        (Option.map ~f:Zz__integer.of_xml)
          (Xml.child xml_arg0 "timeDelaySeconds") in
      let startoverWindowSeconds =
        (Option.map ~f:Zz__integer.of_xml)
          (Xml.child xml_arg0 "startoverWindowSeconds") in
      let origination =
        (Option.map ~f:Origination.of_xml) (Xml.child xml_arg0 "origination") in
      let mssPackage =
        (Option.map ~f:MssPackage.of_xml) (Xml.child xml_arg0 "mssPackage") in
      let manifestName =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "manifestName") in
      let id =
        Zz__string.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      let hlsPackage =
        (Option.map ~f:HlsPackage.of_xml) (Xml.child xml_arg0 "hlsPackage") in
      let description =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "description") in
      let dashPackage =
        (Option.map ~f:DashPackage.of_xml) (Xml.child xml_arg0 "dashPackage") in
      let cmafPackage =
        (Option.map ~f:CmafPackageCreateOrUpdateParameters.of_xml)
          (Xml.child xml_arg0 "cmafPackage") in
      let authorization =
        (Option.map ~f:Authorization.of_xml)
          (Xml.child xml_arg0 "authorization") in
      make ?whitelist ?timeDelaySeconds ?startoverWindowSeconds ?origination
        ?mssPackage ?manifestName ~id ?hlsPackage ?description ?dashPackage
        ?cmafPackage ?authorization ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let whitelist = field_map json__ "Whitelist" Zz__listOf__string.of_json in
      let timeDelaySeconds =
        field_map json__ "TimeDelaySeconds" Zz__integer.of_json in
      let startoverWindowSeconds =
        field_map json__ "StartoverWindowSeconds" Zz__integer.of_json in
      let origination = field_map json__ "Origination" Origination.of_json in
      let mssPackage = field_map json__ "MssPackage" MssPackage.of_json in
      let manifestName = field_map json__ "ManifestName" Zz__string.of_json in
      let id = field_map_exn json__ "Id" Zz__string.of_json in
      let hlsPackage = field_map json__ "HlsPackage" HlsPackage.of_json in
      let description = field_map json__ "Description" Zz__string.of_json in
      let dashPackage = field_map json__ "DashPackage" DashPackage.of_json in
      let cmafPackage =
        field_map json__ "CmafPackage"
          CmafPackageCreateOrUpdateParameters.of_json in
      let authorization =
        field_map json__ "Authorization" Authorization.of_json in
      make ?whitelist ?timeDelaySeconds ?startoverWindowSeconds ?origination
        ?mssPackage ?manifestName ~id ?hlsPackage ?description ?dashPackage
        ?cmafPackage ?authorization ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Configuration parameters used to update an existing OriginEndpoint."]
module UpdateChannelResponse =
  struct
    type nonrec t =
      {
      arn: Zz__string.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) assigned to the Channel."];
      createdAt: Zz__string.t option
        [@ocaml.doc "The date and time the Channel was created."];
      description: Zz__string.t option
        [@ocaml.doc "A short text description of the Channel."];
      egressAccessLogs: EgressAccessLogs.t option ;
      hlsIngest: HlsIngest.t option ;
      id: Zz__string.t option [@ocaml.doc "The ID of the Channel."];
      ingressAccessLogs: IngressAccessLogs.t option ;
      tags: Tags.t option }
    type nonrec error =
      [ `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `UnprocessableEntityException of UnprocessableEntityException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?arn =
      fun ?createdAt ->
        fun ?description ->
          fun ?egressAccessLogs ->
            fun ?hlsIngest ->
              fun ?id ->
                fun ?ingressAccessLogs ->
                  fun ?tags ->
                    fun () ->
                      {
                        arn;
                        createdAt;
                        description;
                        egressAccessLogs;
                        hlsIngest;
                        id;
                        ingressAccessLogs;
                        tags
                      }
    let error_of_json name json =
      match name with
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | "UnprocessableEntityException" ->
          `UnprocessableEntityException
            (UnprocessableEntityException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | "UnprocessableEntityException" ->
          `UnprocessableEntityException
            (UnprocessableEntityException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `UnprocessableEntityException e ->
          `Assoc
            [("error", (`String "UnprocessableEntityException"));
            ("details", (UnprocessableEntityException.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
        [("arn", (Option.map x.arn ~f:Zz__string.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Zz__string.to_value));
        ("description", (Option.map x.description ~f:Zz__string.to_value));
        ("egressAccessLogs",
          (Option.map x.egressAccessLogs ~f:EgressAccessLogs.to_value));
        ("hlsIngest", (Option.map x.hlsIngest ~f:HlsIngest.to_value));
        ("id", (Option.map x.id ~f:Zz__string.to_value));
        ("ingressAccessLogs",
          (Option.map x.ingressAccessLogs ~f:IngressAccessLogs.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let ingressAccessLogs =
        (Option.map ~f:IngressAccessLogs.of_xml)
          (Xml.child xml_arg0 "ingressAccessLogs") in
      let id = (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "id") in
      let hlsIngest =
        (Option.map ~f:HlsIngest.of_xml) (Xml.child xml_arg0 "hlsIngest") in
      let egressAccessLogs =
        (Option.map ~f:EgressAccessLogs.of_xml)
          (Xml.child xml_arg0 "egressAccessLogs") in
      let description =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "description") in
      let createdAt =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "createdAt") in
      let arn = (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "arn") in
      make ?tags ?ingressAccessLogs ?id ?hlsIngest ?egressAccessLogs
        ?description ?createdAt ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in
      let ingressAccessLogs =
        field_map json__ "IngressAccessLogs" IngressAccessLogs.of_json in
      let id = field_map json__ "Id" Zz__string.of_json in
      let hlsIngest = field_map json__ "HlsIngest" HlsIngest.of_json in
      let egressAccessLogs =
        field_map json__ "EgressAccessLogs" EgressAccessLogs.of_json in
      let description = field_map json__ "Description" Zz__string.of_json in
      let createdAt = field_map json__ "CreatedAt" Zz__string.of_json in
      let arn = field_map json__ "Arn" Zz__string.of_json in
      make ?tags ?ingressAccessLogs ?id ?hlsIngest ?egressAccessLogs
        ?description ?createdAt ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates an existing Channel."]
module UpdateChannelRequest =
  struct
    type nonrec t =
      {
      description: Zz__string.t option
        [@ocaml.doc "A short text description of the Channel."];
      id: Zz__string.t [@ocaml.doc "The ID of the Channel to update."]}
    let context_ = "UpdateChannelRequest"
    let make ?description = fun ~id -> fun () -> { description; id }
    let to_value x =
      structure_to_value
        [("description", (Option.map x.description ~f:Zz__string.to_value));
        ("id", (Some (Zz__string.to_value x.id)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let id =
        Zz__string.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      let description =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "description") in
      make ~id ?description ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let id = field_map_exn json__ "Id" Zz__string.of_json in
      let description = field_map json__ "Description" Zz__string.of_json in
      make ~id ?description ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Configuration parameters used to update the Channel."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: Zz__string.t ;
      tagKeys: Zz__listOf__string.t
        [@ocaml.doc "The key(s) of tag to be deleted"]}
    let context_ = "UntagResourceRequest"
    let make ~resourceArn =
      fun ~tagKeys -> fun () -> { resourceArn; tagKeys }
    let to_value x =
      structure_to_value
        [("resource-arn", (Some (Zz__string.to_value x.resourceArn)));
        ("tagKeys", (Some (Zz__listOf__string.to_value x.tagKeys)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagKeys =
        Zz__listOf__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tagKeys") in
      let resourceArn =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resource-arn") in
      make ~tagKeys ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagKeys = field_map_exn json__ "TagKeys" Zz__listOf__string.of_json in
      let resourceArn = field_map_exn json__ "ResourceArn" Zz__string.of_json in
      make ~tagKeys ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end
module TagsModel =
  struct
    type nonrec t = {
      tags: Zz__mapOf__string.t }
    let context_ = "TagsModel"
    let make ~tags = fun () -> { tags }
    let to_value x =
      structure_to_value
        [("tags", (Some (Zz__mapOf__string.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        Zz__mapOf__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tags") in
      make ~tags ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map_exn json__ "Tags" Zz__mapOf__string.of_json in
      make ~tags ()
    let to_json v = composed_to_json to_value v
  end
module TagResourceRequest =
  struct
    type nonrec t = {
      resourceArn: Zz__string.t ;
      tags: Zz__mapOf__string.t }
    let context_ = "TagResourceRequest"
    let make ~resourceArn = fun ~tags -> fun () -> { resourceArn; tags }
    let to_value x =
      structure_to_value
        [("resource-arn", (Some (Zz__string.to_value x.resourceArn)));
        ("tags", (Some (Zz__mapOf__string.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        Zz__mapOf__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tags") in
      let resourceArn =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resource-arn") in
      make ~tags ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map_exn json__ "Tags" Zz__mapOf__string.of_json in
      let resourceArn = field_map_exn json__ "ResourceArn" Zz__string.of_json in
      make ~tags ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end
module RotateIngestEndpointCredentialsResponse =
  struct
    type nonrec t =
      {
      arn: Zz__string.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) assigned to the Channel."];
      createdAt: Zz__string.t option
        [@ocaml.doc "The date and time the Channel was created."];
      description: Zz__string.t option
        [@ocaml.doc "A short text description of the Channel."];
      egressAccessLogs: EgressAccessLogs.t option ;
      hlsIngest: HlsIngest.t option ;
      id: Zz__string.t option [@ocaml.doc "The ID of the Channel."];
      ingressAccessLogs: IngressAccessLogs.t option ;
      tags: Tags.t option }
    type nonrec error =
      [ `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `UnprocessableEntityException of UnprocessableEntityException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?arn =
      fun ?createdAt ->
        fun ?description ->
          fun ?egressAccessLogs ->
            fun ?hlsIngest ->
              fun ?id ->
                fun ?ingressAccessLogs ->
                  fun ?tags ->
                    fun () ->
                      {
                        arn;
                        createdAt;
                        description;
                        egressAccessLogs;
                        hlsIngest;
                        id;
                        ingressAccessLogs;
                        tags
                      }
    let error_of_json name json =
      match name with
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | "UnprocessableEntityException" ->
          `UnprocessableEntityException
            (UnprocessableEntityException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | "UnprocessableEntityException" ->
          `UnprocessableEntityException
            (UnprocessableEntityException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `UnprocessableEntityException e ->
          `Assoc
            [("error", (`String "UnprocessableEntityException"));
            ("details", (UnprocessableEntityException.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
        [("arn", (Option.map x.arn ~f:Zz__string.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Zz__string.to_value));
        ("description", (Option.map x.description ~f:Zz__string.to_value));
        ("egressAccessLogs",
          (Option.map x.egressAccessLogs ~f:EgressAccessLogs.to_value));
        ("hlsIngest", (Option.map x.hlsIngest ~f:HlsIngest.to_value));
        ("id", (Option.map x.id ~f:Zz__string.to_value));
        ("ingressAccessLogs",
          (Option.map x.ingressAccessLogs ~f:IngressAccessLogs.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let ingressAccessLogs =
        (Option.map ~f:IngressAccessLogs.of_xml)
          (Xml.child xml_arg0 "ingressAccessLogs") in
      let id = (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "id") in
      let hlsIngest =
        (Option.map ~f:HlsIngest.of_xml) (Xml.child xml_arg0 "hlsIngest") in
      let egressAccessLogs =
        (Option.map ~f:EgressAccessLogs.of_xml)
          (Xml.child xml_arg0 "egressAccessLogs") in
      let description =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "description") in
      let createdAt =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "createdAt") in
      let arn = (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "arn") in
      make ?tags ?ingressAccessLogs ?id ?hlsIngest ?egressAccessLogs
        ?description ?createdAt ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in
      let ingressAccessLogs =
        field_map json__ "IngressAccessLogs" IngressAccessLogs.of_json in
      let id = field_map json__ "Id" Zz__string.of_json in
      let hlsIngest = field_map json__ "HlsIngest" HlsIngest.of_json in
      let egressAccessLogs =
        field_map json__ "EgressAccessLogs" EgressAccessLogs.of_json in
      let description = field_map json__ "Description" Zz__string.of_json in
      let createdAt = field_map json__ "CreatedAt" Zz__string.of_json in
      let arn = field_map json__ "Arn" Zz__string.of_json in
      make ?tags ?ingressAccessLogs ?id ?hlsIngest ?egressAccessLogs
        ?description ?createdAt ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Rotate the IngestEndpoint's username and password, as specified by the IngestEndpoint's id."]
module RotateIngestEndpointCredentialsRequest =
  struct
    type nonrec t =
      {
      id: Zz__string.t
        [@ocaml.doc "The ID of the channel the IngestEndpoint is on."];
      ingestEndpointId: Zz__string.t
        [@ocaml.doc
          "The id of the IngestEndpoint whose credentials should be rotated"]}
    let context_ = "RotateIngestEndpointCredentialsRequest"
    let make ~id =
      fun ~ingestEndpointId -> fun () -> { id; ingestEndpointId }
    let to_value x =
      structure_to_value
        [("id", (Some (Zz__string.to_value x.id)));
        ("ingest_endpoint_id",
          (Some (Zz__string.to_value x.ingestEndpointId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ingestEndpointId =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ingest_endpoint_id") in
      let id =
        Zz__string.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      make ~ingestEndpointId ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ingestEndpointId =
        field_map_exn json__ "IngestEndpointId" Zz__string.of_json in
      let id = field_map_exn json__ "Id" Zz__string.of_json in
      make ~ingestEndpointId ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Rotate the IngestEndpoint's username and password, as specified by the IngestEndpoint's id."]
module RotateChannelCredentialsResponse =
  struct
    type nonrec t =
      {
      arn: Zz__string.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) assigned to the Channel."];
      createdAt: Zz__string.t option
        [@ocaml.doc "The date and time the Channel was created."];
      description: Zz__string.t option
        [@ocaml.doc "A short text description of the Channel."];
      egressAccessLogs: EgressAccessLogs.t option ;
      hlsIngest: HlsIngest.t option ;
      id: Zz__string.t option [@ocaml.doc "The ID of the Channel."];
      ingressAccessLogs: IngressAccessLogs.t option ;
      tags: Tags.t option }
    type nonrec error =
      [ `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `UnprocessableEntityException of UnprocessableEntityException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?arn =
      fun ?createdAt ->
        fun ?description ->
          fun ?egressAccessLogs ->
            fun ?hlsIngest ->
              fun ?id ->
                fun ?ingressAccessLogs ->
                  fun ?tags ->
                    fun () ->
                      {
                        arn;
                        createdAt;
                        description;
                        egressAccessLogs;
                        hlsIngest;
                        id;
                        ingressAccessLogs;
                        tags
                      }
    let error_of_json name json =
      match name with
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | "UnprocessableEntityException" ->
          `UnprocessableEntityException
            (UnprocessableEntityException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | "UnprocessableEntityException" ->
          `UnprocessableEntityException
            (UnprocessableEntityException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `UnprocessableEntityException e ->
          `Assoc
            [("error", (`String "UnprocessableEntityException"));
            ("details", (UnprocessableEntityException.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
        [("arn", (Option.map x.arn ~f:Zz__string.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Zz__string.to_value));
        ("description", (Option.map x.description ~f:Zz__string.to_value));
        ("egressAccessLogs",
          (Option.map x.egressAccessLogs ~f:EgressAccessLogs.to_value));
        ("hlsIngest", (Option.map x.hlsIngest ~f:HlsIngest.to_value));
        ("id", (Option.map x.id ~f:Zz__string.to_value));
        ("ingressAccessLogs",
          (Option.map x.ingressAccessLogs ~f:IngressAccessLogs.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let ingressAccessLogs =
        (Option.map ~f:IngressAccessLogs.of_xml)
          (Xml.child xml_arg0 "ingressAccessLogs") in
      let id = (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "id") in
      let hlsIngest =
        (Option.map ~f:HlsIngest.of_xml) (Xml.child xml_arg0 "hlsIngest") in
      let egressAccessLogs =
        (Option.map ~f:EgressAccessLogs.of_xml)
          (Xml.child xml_arg0 "egressAccessLogs") in
      let description =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "description") in
      let createdAt =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "createdAt") in
      let arn = (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "arn") in
      make ?tags ?ingressAccessLogs ?id ?hlsIngest ?egressAccessLogs
        ?description ?createdAt ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in
      let ingressAccessLogs =
        field_map json__ "IngressAccessLogs" IngressAccessLogs.of_json in
      let id = field_map json__ "Id" Zz__string.of_json in
      let hlsIngest = field_map json__ "HlsIngest" HlsIngest.of_json in
      let egressAccessLogs =
        field_map json__ "EgressAccessLogs" EgressAccessLogs.of_json in
      let description = field_map json__ "Description" Zz__string.of_json in
      let createdAt = field_map json__ "CreatedAt" Zz__string.of_json in
      let arn = field_map json__ "Arn" Zz__string.of_json in
      make ?tags ?ingressAccessLogs ?id ?hlsIngest ?egressAccessLogs
        ?description ?createdAt ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Changes the Channel's first IngestEndpoint's username and password. WARNING - This API is deprecated. Please use RotateIngestEndpointCredentials instead"]
module RotateChannelCredentialsRequest =
  struct
    type nonrec t =
      {
      id: Zz__string.t [@ocaml.doc "The ID of the channel to update."]}
    let context_ = "RotateChannelCredentialsRequest"
    let make ~id = fun () -> { id }
    let to_value x =
      structure_to_value [("id", (Some (Zz__string.to_value x.id)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let id =
        Zz__string.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      make ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let id = field_map_exn json__ "Id" Zz__string.of_json in make ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Changes the Channel's first IngestEndpoint's username and password. WARNING - This API is deprecated. Please use RotateIngestEndpointCredentials instead"]
module OriginEndpointUpdateParameters =
  struct
    type nonrec t =
      {
      authorization: Authorization.t option ;
      cmafPackage: CmafPackageCreateOrUpdateParameters.t option ;
      dashPackage: DashPackage.t option ;
      description: Zz__string.t option
        [@ocaml.doc "A short text description of the OriginEndpoint."];
      hlsPackage: HlsPackage.t option ;
      manifestName: Zz__string.t option
        [@ocaml.doc
          "A short string that will be appended to the end of the Endpoint URL."];
      mssPackage: MssPackage.t option ;
      origination: Origination.t option
        [@ocaml.doc
          "Control whether origination of video is allowed for this OriginEndpoint. If set to ALLOW, the OriginEndpoint may by requested, pursuant to any other form of access control. If set to DENY, the OriginEndpoint may not be requested. This can be helpful for Live to VOD harvesting, or for temporarily disabling origination"];
      startoverWindowSeconds: Zz__integer.t option
        [@ocaml.doc
          "Maximum duration (in seconds) of content to retain for startover playback. If not specified, startover playback will be disabled for the OriginEndpoint."];
      timeDelaySeconds: Zz__integer.t option
        [@ocaml.doc
          "Amount of delay (in seconds) to enforce on the playback of live content. If not specified, there will be no time delay in effect for the OriginEndpoint."];
      whitelist: Zz__listOf__string.t option
        [@ocaml.doc
          "A list of source IP CIDR blocks that will be allowed to access the OriginEndpoint."]}
    let make ?authorization =
      fun ?cmafPackage ->
        fun ?dashPackage ->
          fun ?description ->
            fun ?hlsPackage ->
              fun ?manifestName ->
                fun ?mssPackage ->
                  fun ?origination ->
                    fun ?startoverWindowSeconds ->
                      fun ?timeDelaySeconds ->
                        fun ?whitelist ->
                          fun () ->
                            {
                              authorization;
                              cmafPackage;
                              dashPackage;
                              description;
                              hlsPackage;
                              manifestName;
                              mssPackage;
                              origination;
                              startoverWindowSeconds;
                              timeDelaySeconds;
                              whitelist
                            }
    let to_value x =
      structure_to_value
        [("authorization",
           (Option.map x.authorization ~f:Authorization.to_value));
        ("cmafPackage",
          (Option.map x.cmafPackage
             ~f:CmafPackageCreateOrUpdateParameters.to_value));
        ("dashPackage", (Option.map x.dashPackage ~f:DashPackage.to_value));
        ("description", (Option.map x.description ~f:Zz__string.to_value));
        ("hlsPackage", (Option.map x.hlsPackage ~f:HlsPackage.to_value));
        ("manifestName", (Option.map x.manifestName ~f:Zz__string.to_value));
        ("mssPackage", (Option.map x.mssPackage ~f:MssPackage.to_value));
        ("origination", (Option.map x.origination ~f:Origination.to_value));
        ("startoverWindowSeconds",
          (Option.map x.startoverWindowSeconds ~f:Zz__integer.to_value));
        ("timeDelaySeconds",
          (Option.map x.timeDelaySeconds ~f:Zz__integer.to_value));
        ("whitelist",
          (Option.map x.whitelist ~f:Zz__listOf__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let whitelist =
        (Option.map ~f:Zz__listOf__string.of_xml)
          (Xml.child xml_arg0 "whitelist") in
      let timeDelaySeconds =
        (Option.map ~f:Zz__integer.of_xml)
          (Xml.child xml_arg0 "timeDelaySeconds") in
      let startoverWindowSeconds =
        (Option.map ~f:Zz__integer.of_xml)
          (Xml.child xml_arg0 "startoverWindowSeconds") in
      let origination =
        (Option.map ~f:Origination.of_xml) (Xml.child xml_arg0 "origination") in
      let mssPackage =
        (Option.map ~f:MssPackage.of_xml) (Xml.child xml_arg0 "mssPackage") in
      let manifestName =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "manifestName") in
      let hlsPackage =
        (Option.map ~f:HlsPackage.of_xml) (Xml.child xml_arg0 "hlsPackage") in
      let description =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "description") in
      let dashPackage =
        (Option.map ~f:DashPackage.of_xml) (Xml.child xml_arg0 "dashPackage") in
      let cmafPackage =
        (Option.map ~f:CmafPackageCreateOrUpdateParameters.of_xml)
          (Xml.child xml_arg0 "cmafPackage") in
      let authorization =
        (Option.map ~f:Authorization.of_xml)
          (Xml.child xml_arg0 "authorization") in
      make ?whitelist ?timeDelaySeconds ?startoverWindowSeconds ?origination
        ?mssPackage ?manifestName ?hlsPackage ?description ?dashPackage
        ?cmafPackage ?authorization ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let whitelist = field_map json__ "Whitelist" Zz__listOf__string.of_json in
      let timeDelaySeconds =
        field_map json__ "TimeDelaySeconds" Zz__integer.of_json in
      let startoverWindowSeconds =
        field_map json__ "StartoverWindowSeconds" Zz__integer.of_json in
      let origination = field_map json__ "Origination" Origination.of_json in
      let mssPackage = field_map json__ "MssPackage" MssPackage.of_json in
      let manifestName = field_map json__ "ManifestName" Zz__string.of_json in
      let hlsPackage = field_map json__ "HlsPackage" HlsPackage.of_json in
      let description = field_map json__ "Description" Zz__string.of_json in
      let dashPackage = field_map json__ "DashPackage" DashPackage.of_json in
      let cmafPackage =
        field_map json__ "CmafPackage"
          CmafPackageCreateOrUpdateParameters.of_json in
      let authorization =
        field_map json__ "Authorization" Authorization.of_json in
      make ?whitelist ?timeDelaySeconds ?startoverWindowSeconds ?origination
        ?mssPackage ?manifestName ?hlsPackage ?description ?dashPackage
        ?cmafPackage ?authorization ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Configuration parameters for updating an existing OriginEndpoint."]
module OriginEndpointList =
  struct
    type nonrec t =
      {
      nextToken: Zz__string.t option
        [@ocaml.doc
          "A token that can be used to resume pagination from the end of the collection."];
      originEndpoints: Zz__listOfOriginEndpoint.t option
        [@ocaml.doc "A list of OriginEndpoint records."]}
    let make ?nextToken =
      fun ?originEndpoints -> fun () -> { nextToken; originEndpoints }
    let to_value x =
      structure_to_value
        [("nextToken", (Option.map x.nextToken ~f:Zz__string.to_value));
        ("originEndpoints",
          (Option.map x.originEndpoints ~f:Zz__listOfOriginEndpoint.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let originEndpoints =
        (Option.map ~f:Zz__listOfOriginEndpoint.of_xml)
          (Xml.child xml_arg0 "originEndpoints") in
      let nextToken =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "nextToken") in
      make ?originEndpoints ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let originEndpoints =
        field_map json__ "OriginEndpoints" Zz__listOfOriginEndpoint.of_json in
      let nextToken = field_map json__ "NextToken" Zz__string.of_json in
      make ?originEndpoints ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A collection of OriginEndpoint records."]
module OriginEndpointCreateParameters =
  struct
    type nonrec t =
      {
      authorization: Authorization.t option ;
      channelId: Zz__string.t
        [@ocaml.doc
          "The ID of the Channel that the OriginEndpoint will be associated with. This cannot be changed after the OriginEndpoint is created."];
      cmafPackage: CmafPackageCreateOrUpdateParameters.t option ;
      dashPackage: DashPackage.t option ;
      description: Zz__string.t option
        [@ocaml.doc "A short text description of the OriginEndpoint."];
      hlsPackage: HlsPackage.t option ;
      id: Zz__string.t
        [@ocaml.doc
          "The ID of the OriginEndpoint. The ID must be unique within the region and it cannot be changed after the OriginEndpoint is created."];
      manifestName: Zz__string.t option
        [@ocaml.doc
          "A short string that will be used as the filename of the OriginEndpoint URL (defaults to \"index\")."];
      mssPackage: MssPackage.t option ;
      origination: Origination.t option
        [@ocaml.doc
          "Control whether origination of video is allowed for this OriginEndpoint. If set to ALLOW, the OriginEndpoint may by requested, pursuant to any other form of access control. If set to DENY, the OriginEndpoint may not be requested. This can be helpful for Live to VOD harvesting, or for temporarily disabling origination"];
      startoverWindowSeconds: Zz__integer.t option
        [@ocaml.doc
          "Maximum duration (seconds) of content to retain for startover playback. If not specified, startover playback will be disabled for the OriginEndpoint."];
      tags: Tags.t option ;
      timeDelaySeconds: Zz__integer.t option
        [@ocaml.doc
          "Amount of delay (seconds) to enforce on the playback of live content. If not specified, there will be no time delay in effect for the OriginEndpoint."];
      whitelist: Zz__listOf__string.t option
        [@ocaml.doc
          "A list of source IP CIDR blocks that will be allowed to access the OriginEndpoint."]}
    let context_ = "OriginEndpointCreateParameters"
    let make ?authorization =
      fun ?cmafPackage ->
        fun ?dashPackage ->
          fun ?description ->
            fun ?hlsPackage ->
              fun ?manifestName ->
                fun ?mssPackage ->
                  fun ?origination ->
                    fun ?startoverWindowSeconds ->
                      fun ?tags ->
                        fun ?timeDelaySeconds ->
                          fun ?whitelist ->
                            fun ~channelId ->
                              fun ~id ->
                                fun () ->
                                  {
                                    authorization;
                                    cmafPackage;
                                    dashPackage;
                                    description;
                                    hlsPackage;
                                    manifestName;
                                    mssPackage;
                                    origination;
                                    startoverWindowSeconds;
                                    tags;
                                    timeDelaySeconds;
                                    whitelist;
                                    channelId;
                                    id
                                  }
    let to_value x =
      structure_to_value
        [("authorization",
           (Option.map x.authorization ~f:Authorization.to_value));
        ("channelId", (Some (Zz__string.to_value x.channelId)));
        ("cmafPackage",
          (Option.map x.cmafPackage
             ~f:CmafPackageCreateOrUpdateParameters.to_value));
        ("dashPackage", (Option.map x.dashPackage ~f:DashPackage.to_value));
        ("description", (Option.map x.description ~f:Zz__string.to_value));
        ("hlsPackage", (Option.map x.hlsPackage ~f:HlsPackage.to_value));
        ("id", (Some (Zz__string.to_value x.id)));
        ("manifestName", (Option.map x.manifestName ~f:Zz__string.to_value));
        ("mssPackage", (Option.map x.mssPackage ~f:MssPackage.to_value));
        ("origination", (Option.map x.origination ~f:Origination.to_value));
        ("startoverWindowSeconds",
          (Option.map x.startoverWindowSeconds ~f:Zz__integer.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value));
        ("timeDelaySeconds",
          (Option.map x.timeDelaySeconds ~f:Zz__integer.to_value));
        ("whitelist",
          (Option.map x.whitelist ~f:Zz__listOf__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let whitelist =
        (Option.map ~f:Zz__listOf__string.of_xml)
          (Xml.child xml_arg0 "whitelist") in
      let timeDelaySeconds =
        (Option.map ~f:Zz__integer.of_xml)
          (Xml.child xml_arg0 "timeDelaySeconds") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let startoverWindowSeconds =
        (Option.map ~f:Zz__integer.of_xml)
          (Xml.child xml_arg0 "startoverWindowSeconds") in
      let origination =
        (Option.map ~f:Origination.of_xml) (Xml.child xml_arg0 "origination") in
      let mssPackage =
        (Option.map ~f:MssPackage.of_xml) (Xml.child xml_arg0 "mssPackage") in
      let manifestName =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "manifestName") in
      let id =
        Zz__string.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      let hlsPackage =
        (Option.map ~f:HlsPackage.of_xml) (Xml.child xml_arg0 "hlsPackage") in
      let description =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "description") in
      let dashPackage =
        (Option.map ~f:DashPackage.of_xml) (Xml.child xml_arg0 "dashPackage") in
      let cmafPackage =
        (Option.map ~f:CmafPackageCreateOrUpdateParameters.of_xml)
          (Xml.child xml_arg0 "cmafPackage") in
      let channelId =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "channelId") in
      let authorization =
        (Option.map ~f:Authorization.of_xml)
          (Xml.child xml_arg0 "authorization") in
      make ?whitelist ?timeDelaySeconds ?tags ?startoverWindowSeconds
        ?origination ?mssPackage ?manifestName ~id ?hlsPackage ?description
        ?dashPackage ?cmafPackage ~channelId ?authorization ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let whitelist = field_map json__ "Whitelist" Zz__listOf__string.of_json in
      let timeDelaySeconds =
        field_map json__ "TimeDelaySeconds" Zz__integer.of_json in
      let tags = field_map json__ "Tags" Tags.of_json in
      let startoverWindowSeconds =
        field_map json__ "StartoverWindowSeconds" Zz__integer.of_json in
      let origination = field_map json__ "Origination" Origination.of_json in
      let mssPackage = field_map json__ "MssPackage" MssPackage.of_json in
      let manifestName = field_map json__ "ManifestName" Zz__string.of_json in
      let id = field_map_exn json__ "Id" Zz__string.of_json in
      let hlsPackage = field_map json__ "HlsPackage" HlsPackage.of_json in
      let description = field_map json__ "Description" Zz__string.of_json in
      let dashPackage = field_map json__ "DashPackage" DashPackage.of_json in
      let cmafPackage =
        field_map json__ "CmafPackage"
          CmafPackageCreateOrUpdateParameters.of_json in
      let channelId = field_map_exn json__ "ChannelId" Zz__string.of_json in
      let authorization =
        field_map json__ "Authorization" Authorization.of_json in
      make ?whitelist ?timeDelaySeconds ?tags ?startoverWindowSeconds
        ?origination ?mssPackage ?manifestName ~id ?hlsPackage ?description
        ?dashPackage ?cmafPackage ~channelId ?authorization ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Configuration parameters for a new OriginEndpoint."]
module ListTagsForResourceResponse =
  struct
    type nonrec t = {
      tags: Zz__mapOf__string.t option }
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?tags = fun () -> { tags }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("tags", (Option.map x.tags ~f:Zz__mapOf__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        (Option.map ~f:Zz__mapOf__string.of_xml) (Xml.child xml_arg0 "tags") in
      make ?tags ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Zz__mapOf__string.of_json in
      make ?tags ()
    let to_json v = composed_to_json to_value v
  end
module ListTagsForResourceRequest =
  struct
    type nonrec t = {
      resourceArn: Zz__string.t }
    let context_ = "ListTagsForResourceRequest"
    let make ~resourceArn = fun () -> { resourceArn }
    let to_value x =
      structure_to_value
        [("resource-arn", (Some (Zz__string.to_value x.resourceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resource-arn") in
      make ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceArn = field_map_exn json__ "ResourceArn" Zz__string.of_json in
      make ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end
module ListOriginEndpointsResponse =
  struct
    type nonrec t =
      {
      nextToken: Zz__string.t option
        [@ocaml.doc
          "A token that can be used to resume pagination from the end of the collection."];
      originEndpoints: Zz__listOfOriginEndpoint.t option
        [@ocaml.doc "A list of OriginEndpoint records."]}
    type nonrec error =
      [ `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `UnprocessableEntityException of UnprocessableEntityException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?originEndpoints -> fun () -> { nextToken; originEndpoints }
    let error_of_json name json =
      match name with
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | "UnprocessableEntityException" ->
          `UnprocessableEntityException
            (UnprocessableEntityException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | "UnprocessableEntityException" ->
          `UnprocessableEntityException
            (UnprocessableEntityException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `UnprocessableEntityException e ->
          `Assoc
            [("error", (`String "UnprocessableEntityException"));
            ("details", (UnprocessableEntityException.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
        [("nextToken", (Option.map x.nextToken ~f:Zz__string.to_value));
        ("originEndpoints",
          (Option.map x.originEndpoints ~f:Zz__listOfOriginEndpoint.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let originEndpoints =
        (Option.map ~f:Zz__listOfOriginEndpoint.of_xml)
          (Xml.child xml_arg0 "originEndpoints") in
      let nextToken =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "nextToken") in
      make ?originEndpoints ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let originEndpoints =
        field_map json__ "OriginEndpoints" Zz__listOfOriginEndpoint.of_json in
      let nextToken = field_map json__ "NextToken" Zz__string.of_json in
      make ?originEndpoints ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a collection of OriginEndpoint records."]
module ListOriginEndpointsRequest =
  struct
    type nonrec t =
      {
      channelId: Zz__string.t option
        [@ocaml.doc
          "When specified, the request will return only OriginEndpoints associated with the given Channel ID."];
      maxResults: MaxResults.t option
        [@ocaml.doc "The upper bound on the number of records to return."];
      nextToken: Zz__string.t option
        [@ocaml.doc
          "A token used to resume pagination from the end of a previous request."]}
    let make ?channelId =
      fun ?maxResults ->
        fun ?nextToken -> fun () -> { channelId; maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("channelId", (Option.map x.channelId ~f:Zz__string.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let channelId =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "channelId") in
      make ?nextToken ?maxResults ?channelId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" Zz__string.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let channelId = field_map json__ "ChannelId" Zz__string.of_json in
      make ?nextToken ?maxResults ?channelId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a collection of OriginEndpoint records."]
module ListHarvestJobsResponse =
  struct
    type nonrec t =
      {
      harvestJobs: Zz__listOfHarvestJob.t option
        [@ocaml.doc "A list of HarvestJob records."];
      nextToken: Zz__string.t option
        [@ocaml.doc
          "A token that can be used to resume pagination from the end of the collection."]}
    type nonrec error =
      [ `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `UnprocessableEntityException of UnprocessableEntityException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?harvestJobs =
      fun ?nextToken -> fun () -> { harvestJobs; nextToken }
    let error_of_json name json =
      match name with
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | "UnprocessableEntityException" ->
          `UnprocessableEntityException
            (UnprocessableEntityException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | "UnprocessableEntityException" ->
          `UnprocessableEntityException
            (UnprocessableEntityException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `UnprocessableEntityException e ->
          `Assoc
            [("error", (`String "UnprocessableEntityException"));
            ("details", (UnprocessableEntityException.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
        [("harvestJobs",
           (Option.map x.harvestJobs ~f:Zz__listOfHarvestJob.to_value));
        ("nextToken", (Option.map x.nextToken ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "nextToken") in
      let harvestJobs =
        (Option.map ~f:Zz__listOfHarvestJob.of_xml)
          (Xml.child xml_arg0 "harvestJobs") in
      make ?nextToken ?harvestJobs ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" Zz__string.of_json in
      let harvestJobs =
        field_map json__ "HarvestJobs" Zz__listOfHarvestJob.of_json in
      make ?nextToken ?harvestJobs ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a collection of HarvestJob records."]
module ListHarvestJobsRequest =
  struct
    type nonrec t =
      {
      includeChannelId: Zz__string.t option
        [@ocaml.doc
          "When specified, the request will return only HarvestJobs associated with the given Channel ID."];
      includeStatus: Zz__string.t option
        [@ocaml.doc
          "When specified, the request will return only HarvestJobs in the given status."];
      maxResults: MaxResults.t option
        [@ocaml.doc "The upper bound on the number of records to return."];
      nextToken: Zz__string.t option
        [@ocaml.doc
          "A token used to resume pagination from the end of a previous request."]}
    let make ?includeChannelId =
      fun ?includeStatus ->
        fun ?maxResults ->
          fun ?nextToken ->
            fun () ->
              { includeChannelId; includeStatus; maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("includeChannelId",
           (Option.map x.includeChannelId ~f:Zz__string.to_value));
        ("includeStatus",
          (Option.map x.includeStatus ~f:Zz__string.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let includeStatus =
        (Option.map ~f:Zz__string.of_xml)
          (Xml.child xml_arg0 "includeStatus") in
      let includeChannelId =
        (Option.map ~f:Zz__string.of_xml)
          (Xml.child xml_arg0 "includeChannelId") in
      make ?nextToken ?maxResults ?includeStatus ?includeChannelId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" Zz__string.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let includeStatus = field_map json__ "IncludeStatus" Zz__string.of_json in
      let includeChannelId =
        field_map json__ "IncludeChannelId" Zz__string.of_json in
      make ?nextToken ?maxResults ?includeStatus ?includeChannelId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a collection of HarvestJob records."]
module ListChannelsResponse =
  struct
    type nonrec t =
      {
      channels: Zz__listOfChannel.t option
        [@ocaml.doc "A list of Channel records."];
      nextToken: Zz__string.t option
        [@ocaml.doc
          "A token that can be used to resume pagination from the end of the collection."]}
    type nonrec error =
      [ `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `UnprocessableEntityException of UnprocessableEntityException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?channels = fun ?nextToken -> fun () -> { channels; nextToken }
    let error_of_json name json =
      match name with
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | "UnprocessableEntityException" ->
          `UnprocessableEntityException
            (UnprocessableEntityException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | "UnprocessableEntityException" ->
          `UnprocessableEntityException
            (UnprocessableEntityException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `UnprocessableEntityException e ->
          `Assoc
            [("error", (`String "UnprocessableEntityException"));
            ("details", (UnprocessableEntityException.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
        [("channels", (Option.map x.channels ~f:Zz__listOfChannel.to_value));
        ("nextToken", (Option.map x.nextToken ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "nextToken") in
      let channels =
        (Option.map ~f:Zz__listOfChannel.of_xml)
          (Xml.child xml_arg0 "channels") in
      make ?nextToken ?channels ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" Zz__string.of_json in
      let channels = field_map json__ "Channels" Zz__listOfChannel.of_json in
      make ?nextToken ?channels ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a collection of Channels."]
module ListChannelsRequest =
  struct
    type nonrec t =
      {
      maxResults: MaxResults.t option
        [@ocaml.doc "Upper bound on number of records to return."];
      nextToken: Zz__string.t option
        [@ocaml.doc
          "A token used to resume pagination from the end of a previous request."]}
    let make ?maxResults =
      fun ?nextToken -> fun () -> { maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      make ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" Zz__string.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      make ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a collection of Channels."]
module HarvestJobList =
  struct
    type nonrec t =
      {
      harvestJobs: Zz__listOfHarvestJob.t option
        [@ocaml.doc "A list of HarvestJob records."];
      nextToken: Zz__string.t option
        [@ocaml.doc
          "A token that can be used to resume pagination from the end of the collection."]}
    let make ?harvestJobs =
      fun ?nextToken -> fun () -> { harvestJobs; nextToken }
    let to_value x =
      structure_to_value
        [("harvestJobs",
           (Option.map x.harvestJobs ~f:Zz__listOfHarvestJob.to_value));
        ("nextToken", (Option.map x.nextToken ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "nextToken") in
      let harvestJobs =
        (Option.map ~f:Zz__listOfHarvestJob.of_xml)
          (Xml.child xml_arg0 "harvestJobs") in
      make ?nextToken ?harvestJobs ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" Zz__string.of_json in
      let harvestJobs =
        field_map json__ "HarvestJobs" Zz__listOfHarvestJob.of_json in
      make ?nextToken ?harvestJobs ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A collection of HarvestJob records."]
module HarvestJobCreateParameters =
  struct
    type nonrec t =
      {
      endTime: Zz__string.t
        [@ocaml.doc "The end of the time-window which will be harvested"];
      id: Zz__string.t
        [@ocaml.doc
          "The ID of the HarvestJob. The ID must be unique within the region and it cannot be changed after the HarvestJob is submitted"];
      originEndpointId: Zz__string.t
        [@ocaml.doc
          "The ID of the OriginEndpoint that the HarvestJob will harvest from. This cannot be changed after the HarvestJob is submitted."];
      s3Destination: S3Destination.t ;
      startTime: Zz__string.t
        [@ocaml.doc "The start of the time-window which will be harvested"]}
    let context_ = "HarvestJobCreateParameters"
    let make ~endTime =
      fun ~id ->
        fun ~originEndpointId ->
          fun ~s3Destination ->
            fun ~startTime ->
              fun () ->
                { endTime; id; originEndpointId; s3Destination; startTime }
    let to_value x =
      structure_to_value
        [("endTime", (Some (Zz__string.to_value x.endTime)));
        ("id", (Some (Zz__string.to_value x.id)));
        ("originEndpointId", (Some (Zz__string.to_value x.originEndpointId)));
        ("s3Destination", (Some (S3Destination.to_value x.s3Destination)));
        ("startTime", (Some (Zz__string.to_value x.startTime)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let startTime =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "startTime") in
      let s3Destination =
        S3Destination.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "s3Destination") in
      let originEndpointId =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "originEndpointId") in
      let id =
        Zz__string.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      let endTime =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "endTime") in
      make ~startTime ~s3Destination ~originEndpointId ~id ~endTime ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let startTime = field_map_exn json__ "StartTime" Zz__string.of_json in
      let s3Destination =
        field_map_exn json__ "S3Destination" S3Destination.of_json in
      let originEndpointId =
        field_map_exn json__ "OriginEndpointId" Zz__string.of_json in
      let id = field_map_exn json__ "Id" Zz__string.of_json in
      let endTime = field_map_exn json__ "EndTime" Zz__string.of_json in
      make ~startTime ~s3Destination ~originEndpointId ~id ~endTime ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Configuration parameters for a new HarvestJob"]
module DescribeOriginEndpointResponse =
  struct
    type nonrec t =
      {
      arn: Zz__string.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) assigned to the OriginEndpoint."];
      authorization: Authorization.t option ;
      channelId: Zz__string.t option
        [@ocaml.doc
          "The ID of the Channel the OriginEndpoint is associated with."];
      cmafPackage: CmafPackage.t option ;
      createdAt: Zz__string.t option
        [@ocaml.doc "The date and time the OriginEndpoint was created."];
      dashPackage: DashPackage.t option ;
      description: Zz__string.t option
        [@ocaml.doc "A short text description of the OriginEndpoint."];
      hlsPackage: HlsPackage.t option ;
      id: Zz__string.t option [@ocaml.doc "The ID of the OriginEndpoint."];
      manifestName: Zz__string.t option
        [@ocaml.doc
          "A short string appended to the end of the OriginEndpoint URL."];
      mssPackage: MssPackage.t option ;
      origination: Origination.t option
        [@ocaml.doc
          "Control whether origination of video is allowed for this OriginEndpoint. If set to ALLOW, the OriginEndpoint may by requested, pursuant to any other form of access control. If set to DENY, the OriginEndpoint may not be requested. This can be helpful for Live to VOD harvesting, or for temporarily disabling origination"];
      startoverWindowSeconds: Zz__integer.t option
        [@ocaml.doc
          "Maximum duration (seconds) of content to retain for startover playback. If not specified, startover playback will be disabled for the OriginEndpoint."];
      tags: Tags.t option ;
      timeDelaySeconds: Zz__integer.t option
        [@ocaml.doc
          "Amount of delay (seconds) to enforce on the playback of live content. If not specified, there will be no time delay in effect for the OriginEndpoint."];
      url: Zz__string.t option
        [@ocaml.doc
          "The URL of the packaged OriginEndpoint for consumption."];
      whitelist: Zz__listOf__string.t option
        [@ocaml.doc
          "A list of source IP CIDR blocks that will be allowed to access the OriginEndpoint."]}
    type nonrec error =
      [ `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `UnprocessableEntityException of UnprocessableEntityException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?arn =
      fun ?authorization ->
        fun ?channelId ->
          fun ?cmafPackage ->
            fun ?createdAt ->
              fun ?dashPackage ->
                fun ?description ->
                  fun ?hlsPackage ->
                    fun ?id ->
                      fun ?manifestName ->
                        fun ?mssPackage ->
                          fun ?origination ->
                            fun ?startoverWindowSeconds ->
                              fun ?tags ->
                                fun ?timeDelaySeconds ->
                                  fun ?url ->
                                    fun ?whitelist ->
                                      fun () ->
                                        {
                                          arn;
                                          authorization;
                                          channelId;
                                          cmafPackage;
                                          createdAt;
                                          dashPackage;
                                          description;
                                          hlsPackage;
                                          id;
                                          manifestName;
                                          mssPackage;
                                          origination;
                                          startoverWindowSeconds;
                                          tags;
                                          timeDelaySeconds;
                                          url;
                                          whitelist
                                        }
    let error_of_json name json =
      match name with
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | "UnprocessableEntityException" ->
          `UnprocessableEntityException
            (UnprocessableEntityException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | "UnprocessableEntityException" ->
          `UnprocessableEntityException
            (UnprocessableEntityException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `UnprocessableEntityException e ->
          `Assoc
            [("error", (`String "UnprocessableEntityException"));
            ("details", (UnprocessableEntityException.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
        [("arn", (Option.map x.arn ~f:Zz__string.to_value));
        ("authorization",
          (Option.map x.authorization ~f:Authorization.to_value));
        ("channelId", (Option.map x.channelId ~f:Zz__string.to_value));
        ("cmafPackage", (Option.map x.cmafPackage ~f:CmafPackage.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Zz__string.to_value));
        ("dashPackage", (Option.map x.dashPackage ~f:DashPackage.to_value));
        ("description", (Option.map x.description ~f:Zz__string.to_value));
        ("hlsPackage", (Option.map x.hlsPackage ~f:HlsPackage.to_value));
        ("id", (Option.map x.id ~f:Zz__string.to_value));
        ("manifestName", (Option.map x.manifestName ~f:Zz__string.to_value));
        ("mssPackage", (Option.map x.mssPackage ~f:MssPackage.to_value));
        ("origination", (Option.map x.origination ~f:Origination.to_value));
        ("startoverWindowSeconds",
          (Option.map x.startoverWindowSeconds ~f:Zz__integer.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value));
        ("timeDelaySeconds",
          (Option.map x.timeDelaySeconds ~f:Zz__integer.to_value));
        ("url", (Option.map x.url ~f:Zz__string.to_value));
        ("whitelist",
          (Option.map x.whitelist ~f:Zz__listOf__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let whitelist =
        (Option.map ~f:Zz__listOf__string.of_xml)
          (Xml.child xml_arg0 "whitelist") in
      let url = (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "url") in
      let timeDelaySeconds =
        (Option.map ~f:Zz__integer.of_xml)
          (Xml.child xml_arg0 "timeDelaySeconds") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let startoverWindowSeconds =
        (Option.map ~f:Zz__integer.of_xml)
          (Xml.child xml_arg0 "startoverWindowSeconds") in
      let origination =
        (Option.map ~f:Origination.of_xml) (Xml.child xml_arg0 "origination") in
      let mssPackage =
        (Option.map ~f:MssPackage.of_xml) (Xml.child xml_arg0 "mssPackage") in
      let manifestName =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "manifestName") in
      let id = (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "id") in
      let hlsPackage =
        (Option.map ~f:HlsPackage.of_xml) (Xml.child xml_arg0 "hlsPackage") in
      let description =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "description") in
      let dashPackage =
        (Option.map ~f:DashPackage.of_xml) (Xml.child xml_arg0 "dashPackage") in
      let createdAt =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "createdAt") in
      let cmafPackage =
        (Option.map ~f:CmafPackage.of_xml) (Xml.child xml_arg0 "cmafPackage") in
      let channelId =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "channelId") in
      let authorization =
        (Option.map ~f:Authorization.of_xml)
          (Xml.child xml_arg0 "authorization") in
      let arn = (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "arn") in
      make ?whitelist ?url ?timeDelaySeconds ?tags ?startoverWindowSeconds
        ?origination ?mssPackage ?manifestName ?id ?hlsPackage ?description
        ?dashPackage ?createdAt ?cmafPackage ?channelId ?authorization ?arn
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let whitelist = field_map json__ "Whitelist" Zz__listOf__string.of_json in
      let url = field_map json__ "Url" Zz__string.of_json in
      let timeDelaySeconds =
        field_map json__ "TimeDelaySeconds" Zz__integer.of_json in
      let tags = field_map json__ "Tags" Tags.of_json in
      let startoverWindowSeconds =
        field_map json__ "StartoverWindowSeconds" Zz__integer.of_json in
      let origination = field_map json__ "Origination" Origination.of_json in
      let mssPackage = field_map json__ "MssPackage" MssPackage.of_json in
      let manifestName = field_map json__ "ManifestName" Zz__string.of_json in
      let id = field_map json__ "Id" Zz__string.of_json in
      let hlsPackage = field_map json__ "HlsPackage" HlsPackage.of_json in
      let description = field_map json__ "Description" Zz__string.of_json in
      let dashPackage = field_map json__ "DashPackage" DashPackage.of_json in
      let createdAt = field_map json__ "CreatedAt" Zz__string.of_json in
      let cmafPackage = field_map json__ "CmafPackage" CmafPackage.of_json in
      let channelId = field_map json__ "ChannelId" Zz__string.of_json in
      let authorization =
        field_map json__ "Authorization" Authorization.of_json in
      let arn = field_map json__ "Arn" Zz__string.of_json in
      make ?whitelist ?url ?timeDelaySeconds ?tags ?startoverWindowSeconds
        ?origination ?mssPackage ?manifestName ?id ?hlsPackage ?description
        ?dashPackage ?createdAt ?cmafPackage ?channelId ?authorization ?arn
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets details about an existing OriginEndpoint."]
module DescribeOriginEndpointRequest =
  struct
    type nonrec t =
      {
      id: Zz__string.t [@ocaml.doc "The ID of the OriginEndpoint."]}
    let context_ = "DescribeOriginEndpointRequest"
    let make ~id = fun () -> { id }
    let to_value x =
      structure_to_value [("id", (Some (Zz__string.to_value x.id)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let id =
        Zz__string.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      make ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let id = field_map_exn json__ "Id" Zz__string.of_json in make ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets details about an existing OriginEndpoint."]
module DescribeHarvestJobResponse =
  struct
    type nonrec t =
      {
      arn: Zz__string.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) assigned to the HarvestJob."];
      channelId: Zz__string.t option
        [@ocaml.doc
          "The ID of the Channel that the HarvestJob will harvest from."];
      createdAt: Zz__string.t option
        [@ocaml.doc "The date and time the HarvestJob was submitted."];
      endTime: Zz__string.t option
        [@ocaml.doc "The end of the time-window which will be harvested."];
      id: Zz__string.t option
        [@ocaml.doc
          "The ID of the HarvestJob. The ID must be unique within the region and it cannot be changed after the HarvestJob is submitted."];
      originEndpointId: Zz__string.t option
        [@ocaml.doc
          "The ID of the OriginEndpoint that the HarvestJob will harvest from. This cannot be changed after the HarvestJob is submitted."];
      s3Destination: S3Destination.t option ;
      startTime: Zz__string.t option
        [@ocaml.doc "The start of the time-window which will be harvested."];
      status: Status.t option
        [@ocaml.doc
          "The current status of the HarvestJob. Consider setting up a CloudWatch Event to listen for HarvestJobs as they succeed or fail. In the event of failure, the CloudWatch Event will include an explanation of why the HarvestJob failed."]}
    type nonrec error =
      [ `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `UnprocessableEntityException of UnprocessableEntityException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?arn =
      fun ?channelId ->
        fun ?createdAt ->
          fun ?endTime ->
            fun ?id ->
              fun ?originEndpointId ->
                fun ?s3Destination ->
                  fun ?startTime ->
                    fun ?status ->
                      fun () ->
                        {
                          arn;
                          channelId;
                          createdAt;
                          endTime;
                          id;
                          originEndpointId;
                          s3Destination;
                          startTime;
                          status
                        }
    let error_of_json name json =
      match name with
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | "UnprocessableEntityException" ->
          `UnprocessableEntityException
            (UnprocessableEntityException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | "UnprocessableEntityException" ->
          `UnprocessableEntityException
            (UnprocessableEntityException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `UnprocessableEntityException e ->
          `Assoc
            [("error", (`String "UnprocessableEntityException"));
            ("details", (UnprocessableEntityException.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
        [("arn", (Option.map x.arn ~f:Zz__string.to_value));
        ("channelId", (Option.map x.channelId ~f:Zz__string.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Zz__string.to_value));
        ("endTime", (Option.map x.endTime ~f:Zz__string.to_value));
        ("id", (Option.map x.id ~f:Zz__string.to_value));
        ("originEndpointId",
          (Option.map x.originEndpointId ~f:Zz__string.to_value));
        ("s3Destination",
          (Option.map x.s3Destination ~f:S3Destination.to_value));
        ("startTime", (Option.map x.startTime ~f:Zz__string.to_value));
        ("status", (Option.map x.status ~f:Status.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:Status.of_xml) (Xml.child xml_arg0 "status") in
      let startTime =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "startTime") in
      let s3Destination =
        (Option.map ~f:S3Destination.of_xml)
          (Xml.child xml_arg0 "s3Destination") in
      let originEndpointId =
        (Option.map ~f:Zz__string.of_xml)
          (Xml.child xml_arg0 "originEndpointId") in
      let id = (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "id") in
      let endTime =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "endTime") in
      let createdAt =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "createdAt") in
      let channelId =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "channelId") in
      let arn = (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "arn") in
      make ?status ?startTime ?s3Destination ?originEndpointId ?id ?endTime
        ?createdAt ?channelId ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" Status.of_json in
      let startTime = field_map json__ "StartTime" Zz__string.of_json in
      let s3Destination =
        field_map json__ "S3Destination" S3Destination.of_json in
      let originEndpointId =
        field_map json__ "OriginEndpointId" Zz__string.of_json in
      let id = field_map json__ "Id" Zz__string.of_json in
      let endTime = field_map json__ "EndTime" Zz__string.of_json in
      let createdAt = field_map json__ "CreatedAt" Zz__string.of_json in
      let channelId = field_map json__ "ChannelId" Zz__string.of_json in
      let arn = field_map json__ "Arn" Zz__string.of_json in
      make ?status ?startTime ?s3Destination ?originEndpointId ?id ?endTime
        ?createdAt ?channelId ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets details about an existing HarvestJob."]
module DescribeHarvestJobRequest =
  struct
    type nonrec t =
      {
      id: Zz__string.t [@ocaml.doc "The ID of the HarvestJob."]}
    let context_ = "DescribeHarvestJobRequest"
    let make ~id = fun () -> { id }
    let to_value x =
      structure_to_value [("id", (Some (Zz__string.to_value x.id)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let id =
        Zz__string.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      make ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let id = field_map_exn json__ "Id" Zz__string.of_json in make ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets details about an existing HarvestJob."]
module DescribeChannelResponse =
  struct
    type nonrec t =
      {
      arn: Zz__string.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) assigned to the Channel."];
      createdAt: Zz__string.t option
        [@ocaml.doc "The date and time the Channel was created."];
      description: Zz__string.t option
        [@ocaml.doc "A short text description of the Channel."];
      egressAccessLogs: EgressAccessLogs.t option ;
      hlsIngest: HlsIngest.t option ;
      id: Zz__string.t option [@ocaml.doc "The ID of the Channel."];
      ingressAccessLogs: IngressAccessLogs.t option ;
      tags: Tags.t option }
    type nonrec error =
      [ `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `UnprocessableEntityException of UnprocessableEntityException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?arn =
      fun ?createdAt ->
        fun ?description ->
          fun ?egressAccessLogs ->
            fun ?hlsIngest ->
              fun ?id ->
                fun ?ingressAccessLogs ->
                  fun ?tags ->
                    fun () ->
                      {
                        arn;
                        createdAt;
                        description;
                        egressAccessLogs;
                        hlsIngest;
                        id;
                        ingressAccessLogs;
                        tags
                      }
    let error_of_json name json =
      match name with
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | "UnprocessableEntityException" ->
          `UnprocessableEntityException
            (UnprocessableEntityException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | "UnprocessableEntityException" ->
          `UnprocessableEntityException
            (UnprocessableEntityException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `UnprocessableEntityException e ->
          `Assoc
            [("error", (`String "UnprocessableEntityException"));
            ("details", (UnprocessableEntityException.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
        [("arn", (Option.map x.arn ~f:Zz__string.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Zz__string.to_value));
        ("description", (Option.map x.description ~f:Zz__string.to_value));
        ("egressAccessLogs",
          (Option.map x.egressAccessLogs ~f:EgressAccessLogs.to_value));
        ("hlsIngest", (Option.map x.hlsIngest ~f:HlsIngest.to_value));
        ("id", (Option.map x.id ~f:Zz__string.to_value));
        ("ingressAccessLogs",
          (Option.map x.ingressAccessLogs ~f:IngressAccessLogs.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let ingressAccessLogs =
        (Option.map ~f:IngressAccessLogs.of_xml)
          (Xml.child xml_arg0 "ingressAccessLogs") in
      let id = (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "id") in
      let hlsIngest =
        (Option.map ~f:HlsIngest.of_xml) (Xml.child xml_arg0 "hlsIngest") in
      let egressAccessLogs =
        (Option.map ~f:EgressAccessLogs.of_xml)
          (Xml.child xml_arg0 "egressAccessLogs") in
      let description =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "description") in
      let createdAt =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "createdAt") in
      let arn = (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "arn") in
      make ?tags ?ingressAccessLogs ?id ?hlsIngest ?egressAccessLogs
        ?description ?createdAt ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in
      let ingressAccessLogs =
        field_map json__ "IngressAccessLogs" IngressAccessLogs.of_json in
      let id = field_map json__ "Id" Zz__string.of_json in
      let hlsIngest = field_map json__ "HlsIngest" HlsIngest.of_json in
      let egressAccessLogs =
        field_map json__ "EgressAccessLogs" EgressAccessLogs.of_json in
      let description = field_map json__ "Description" Zz__string.of_json in
      let createdAt = field_map json__ "CreatedAt" Zz__string.of_json in
      let arn = field_map json__ "Arn" Zz__string.of_json in
      make ?tags ?ingressAccessLogs ?id ?hlsIngest ?egressAccessLogs
        ?description ?createdAt ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets details about a Channel."]
module DescribeChannelRequest =
  struct
    type nonrec t = {
      id: Zz__string.t [@ocaml.doc "The ID of a Channel."]}
    let context_ = "DescribeChannelRequest"
    let make ~id = fun () -> { id }
    let to_value x =
      structure_to_value [("id", (Some (Zz__string.to_value x.id)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let id =
        Zz__string.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      make ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let id = field_map_exn json__ "Id" Zz__string.of_json in make ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets details about a Channel."]
module DeleteOriginEndpointResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `UnprocessableEntityException of UnprocessableEntityException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | "UnprocessableEntityException" ->
          `UnprocessableEntityException
            (UnprocessableEntityException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | "UnprocessableEntityException" ->
          `UnprocessableEntityException
            (UnprocessableEntityException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `UnprocessableEntityException e ->
          `Assoc
            [("error", (`String "UnprocessableEntityException"));
            ("details", (UnprocessableEntityException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes an existing OriginEndpoint."]
module DeleteOriginEndpointRequest =
  struct
    type nonrec t =
      {
      id: Zz__string.t [@ocaml.doc "The ID of the OriginEndpoint to delete."]}
    let context_ = "DeleteOriginEndpointRequest"
    let make ~id = fun () -> { id }
    let to_value x =
      structure_to_value [("id", (Some (Zz__string.to_value x.id)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let id =
        Zz__string.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      make ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let id = field_map_exn json__ "Id" Zz__string.of_json in make ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes an existing OriginEndpoint."]
module DeleteChannelResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `UnprocessableEntityException of UnprocessableEntityException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | "UnprocessableEntityException" ->
          `UnprocessableEntityException
            (UnprocessableEntityException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | "UnprocessableEntityException" ->
          `UnprocessableEntityException
            (UnprocessableEntityException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `UnprocessableEntityException e ->
          `Assoc
            [("error", (`String "UnprocessableEntityException"));
            ("details", (UnprocessableEntityException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes an existing Channel."]
module DeleteChannelRequest =
  struct
    type nonrec t =
      {
      id: Zz__string.t [@ocaml.doc "The ID of the Channel to delete."]}
    let context_ = "DeleteChannelRequest"
    let make ~id = fun () -> { id }
    let to_value x =
      structure_to_value [("id", (Some (Zz__string.to_value x.id)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let id =
        Zz__string.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      make ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let id = field_map_exn json__ "Id" Zz__string.of_json in make ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes an existing Channel."]
module CreateOriginEndpointResponse =
  struct
    type nonrec t =
      {
      arn: Zz__string.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) assigned to the OriginEndpoint."];
      authorization: Authorization.t option ;
      channelId: Zz__string.t option
        [@ocaml.doc
          "The ID of the Channel the OriginEndpoint is associated with."];
      cmafPackage: CmafPackage.t option ;
      createdAt: Zz__string.t option
        [@ocaml.doc "The date and time the OriginEndpoint was created."];
      dashPackage: DashPackage.t option ;
      description: Zz__string.t option
        [@ocaml.doc "A short text description of the OriginEndpoint."];
      hlsPackage: HlsPackage.t option ;
      id: Zz__string.t option [@ocaml.doc "The ID of the OriginEndpoint."];
      manifestName: Zz__string.t option
        [@ocaml.doc
          "A short string appended to the end of the OriginEndpoint URL."];
      mssPackage: MssPackage.t option ;
      origination: Origination.t option
        [@ocaml.doc
          "Control whether origination of video is allowed for this OriginEndpoint. If set to ALLOW, the OriginEndpoint may by requested, pursuant to any other form of access control. If set to DENY, the OriginEndpoint may not be requested. This can be helpful for Live to VOD harvesting, or for temporarily disabling origination"];
      startoverWindowSeconds: Zz__integer.t option
        [@ocaml.doc
          "Maximum duration (seconds) of content to retain for startover playback. If not specified, startover playback will be disabled for the OriginEndpoint."];
      tags: Tags.t option ;
      timeDelaySeconds: Zz__integer.t option
        [@ocaml.doc
          "Amount of delay (seconds) to enforce on the playback of live content. If not specified, there will be no time delay in effect for the OriginEndpoint."];
      url: Zz__string.t option
        [@ocaml.doc
          "The URL of the packaged OriginEndpoint for consumption."];
      whitelist: Zz__listOf__string.t option
        [@ocaml.doc
          "A list of source IP CIDR blocks that will be allowed to access the OriginEndpoint."]}
    type nonrec error =
      [ `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `UnprocessableEntityException of UnprocessableEntityException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?arn =
      fun ?authorization ->
        fun ?channelId ->
          fun ?cmafPackage ->
            fun ?createdAt ->
              fun ?dashPackage ->
                fun ?description ->
                  fun ?hlsPackage ->
                    fun ?id ->
                      fun ?manifestName ->
                        fun ?mssPackage ->
                          fun ?origination ->
                            fun ?startoverWindowSeconds ->
                              fun ?tags ->
                                fun ?timeDelaySeconds ->
                                  fun ?url ->
                                    fun ?whitelist ->
                                      fun () ->
                                        {
                                          arn;
                                          authorization;
                                          channelId;
                                          cmafPackage;
                                          createdAt;
                                          dashPackage;
                                          description;
                                          hlsPackage;
                                          id;
                                          manifestName;
                                          mssPackage;
                                          origination;
                                          startoverWindowSeconds;
                                          tags;
                                          timeDelaySeconds;
                                          url;
                                          whitelist
                                        }
    let error_of_json name json =
      match name with
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | "UnprocessableEntityException" ->
          `UnprocessableEntityException
            (UnprocessableEntityException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | "UnprocessableEntityException" ->
          `UnprocessableEntityException
            (UnprocessableEntityException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `UnprocessableEntityException e ->
          `Assoc
            [("error", (`String "UnprocessableEntityException"));
            ("details", (UnprocessableEntityException.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
        [("arn", (Option.map x.arn ~f:Zz__string.to_value));
        ("authorization",
          (Option.map x.authorization ~f:Authorization.to_value));
        ("channelId", (Option.map x.channelId ~f:Zz__string.to_value));
        ("cmafPackage", (Option.map x.cmafPackage ~f:CmafPackage.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Zz__string.to_value));
        ("dashPackage", (Option.map x.dashPackage ~f:DashPackage.to_value));
        ("description", (Option.map x.description ~f:Zz__string.to_value));
        ("hlsPackage", (Option.map x.hlsPackage ~f:HlsPackage.to_value));
        ("id", (Option.map x.id ~f:Zz__string.to_value));
        ("manifestName", (Option.map x.manifestName ~f:Zz__string.to_value));
        ("mssPackage", (Option.map x.mssPackage ~f:MssPackage.to_value));
        ("origination", (Option.map x.origination ~f:Origination.to_value));
        ("startoverWindowSeconds",
          (Option.map x.startoverWindowSeconds ~f:Zz__integer.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value));
        ("timeDelaySeconds",
          (Option.map x.timeDelaySeconds ~f:Zz__integer.to_value));
        ("url", (Option.map x.url ~f:Zz__string.to_value));
        ("whitelist",
          (Option.map x.whitelist ~f:Zz__listOf__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let whitelist =
        (Option.map ~f:Zz__listOf__string.of_xml)
          (Xml.child xml_arg0 "whitelist") in
      let url = (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "url") in
      let timeDelaySeconds =
        (Option.map ~f:Zz__integer.of_xml)
          (Xml.child xml_arg0 "timeDelaySeconds") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let startoverWindowSeconds =
        (Option.map ~f:Zz__integer.of_xml)
          (Xml.child xml_arg0 "startoverWindowSeconds") in
      let origination =
        (Option.map ~f:Origination.of_xml) (Xml.child xml_arg0 "origination") in
      let mssPackage =
        (Option.map ~f:MssPackage.of_xml) (Xml.child xml_arg0 "mssPackage") in
      let manifestName =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "manifestName") in
      let id = (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "id") in
      let hlsPackage =
        (Option.map ~f:HlsPackage.of_xml) (Xml.child xml_arg0 "hlsPackage") in
      let description =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "description") in
      let dashPackage =
        (Option.map ~f:DashPackage.of_xml) (Xml.child xml_arg0 "dashPackage") in
      let createdAt =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "createdAt") in
      let cmafPackage =
        (Option.map ~f:CmafPackage.of_xml) (Xml.child xml_arg0 "cmafPackage") in
      let channelId =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "channelId") in
      let authorization =
        (Option.map ~f:Authorization.of_xml)
          (Xml.child xml_arg0 "authorization") in
      let arn = (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "arn") in
      make ?whitelist ?url ?timeDelaySeconds ?tags ?startoverWindowSeconds
        ?origination ?mssPackage ?manifestName ?id ?hlsPackage ?description
        ?dashPackage ?createdAt ?cmafPackage ?channelId ?authorization ?arn
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let whitelist = field_map json__ "Whitelist" Zz__listOf__string.of_json in
      let url = field_map json__ "Url" Zz__string.of_json in
      let timeDelaySeconds =
        field_map json__ "TimeDelaySeconds" Zz__integer.of_json in
      let tags = field_map json__ "Tags" Tags.of_json in
      let startoverWindowSeconds =
        field_map json__ "StartoverWindowSeconds" Zz__integer.of_json in
      let origination = field_map json__ "Origination" Origination.of_json in
      let mssPackage = field_map json__ "MssPackage" MssPackage.of_json in
      let manifestName = field_map json__ "ManifestName" Zz__string.of_json in
      let id = field_map json__ "Id" Zz__string.of_json in
      let hlsPackage = field_map json__ "HlsPackage" HlsPackage.of_json in
      let description = field_map json__ "Description" Zz__string.of_json in
      let dashPackage = field_map json__ "DashPackage" DashPackage.of_json in
      let createdAt = field_map json__ "CreatedAt" Zz__string.of_json in
      let cmafPackage = field_map json__ "CmafPackage" CmafPackage.of_json in
      let channelId = field_map json__ "ChannelId" Zz__string.of_json in
      let authorization =
        field_map json__ "Authorization" Authorization.of_json in
      let arn = field_map json__ "Arn" Zz__string.of_json in
      make ?whitelist ?url ?timeDelaySeconds ?tags ?startoverWindowSeconds
        ?origination ?mssPackage ?manifestName ?id ?hlsPackage ?description
        ?dashPackage ?createdAt ?cmafPackage ?channelId ?authorization ?arn
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a new OriginEndpoint record."]
module CreateOriginEndpointRequest =
  struct
    type nonrec t =
      {
      authorization: Authorization.t option ;
      channelId: Zz__string.t
        [@ocaml.doc
          "The ID of the Channel that the OriginEndpoint will be associated with. This cannot be changed after the OriginEndpoint is created."];
      cmafPackage: CmafPackageCreateOrUpdateParameters.t option ;
      dashPackage: DashPackage.t option ;
      description: Zz__string.t option
        [@ocaml.doc "A short text description of the OriginEndpoint."];
      hlsPackage: HlsPackage.t option ;
      id: Zz__string.t
        [@ocaml.doc
          "The ID of the OriginEndpoint. The ID must be unique within the region and it cannot be changed after the OriginEndpoint is created."];
      manifestName: Zz__string.t option
        [@ocaml.doc
          "A short string that will be used as the filename of the OriginEndpoint URL (defaults to \"index\")."];
      mssPackage: MssPackage.t option ;
      origination: Origination.t option
        [@ocaml.doc
          "Control whether origination of video is allowed for this OriginEndpoint. If set to ALLOW, the OriginEndpoint may by requested, pursuant to any other form of access control. If set to DENY, the OriginEndpoint may not be requested. This can be helpful for Live to VOD harvesting, or for temporarily disabling origination"];
      startoverWindowSeconds: Zz__integer.t option
        [@ocaml.doc
          "Maximum duration (seconds) of content to retain for startover playback. If not specified, startover playback will be disabled for the OriginEndpoint."];
      tags: Tags.t option ;
      timeDelaySeconds: Zz__integer.t option
        [@ocaml.doc
          "Amount of delay (seconds) to enforce on the playback of live content. If not specified, there will be no time delay in effect for the OriginEndpoint."];
      whitelist: Zz__listOf__string.t option
        [@ocaml.doc
          "A list of source IP CIDR blocks that will be allowed to access the OriginEndpoint."]}
    let context_ = "CreateOriginEndpointRequest"
    let make ?authorization =
      fun ?cmafPackage ->
        fun ?dashPackage ->
          fun ?description ->
            fun ?hlsPackage ->
              fun ?manifestName ->
                fun ?mssPackage ->
                  fun ?origination ->
                    fun ?startoverWindowSeconds ->
                      fun ?tags ->
                        fun ?timeDelaySeconds ->
                          fun ?whitelist ->
                            fun ~channelId ->
                              fun ~id ->
                                fun () ->
                                  {
                                    authorization;
                                    cmafPackage;
                                    dashPackage;
                                    description;
                                    hlsPackage;
                                    manifestName;
                                    mssPackage;
                                    origination;
                                    startoverWindowSeconds;
                                    tags;
                                    timeDelaySeconds;
                                    whitelist;
                                    channelId;
                                    id
                                  }
    let to_value x =
      structure_to_value
        [("authorization",
           (Option.map x.authorization ~f:Authorization.to_value));
        ("channelId", (Some (Zz__string.to_value x.channelId)));
        ("cmafPackage",
          (Option.map x.cmafPackage
             ~f:CmafPackageCreateOrUpdateParameters.to_value));
        ("dashPackage", (Option.map x.dashPackage ~f:DashPackage.to_value));
        ("description", (Option.map x.description ~f:Zz__string.to_value));
        ("hlsPackage", (Option.map x.hlsPackage ~f:HlsPackage.to_value));
        ("id", (Some (Zz__string.to_value x.id)));
        ("manifestName", (Option.map x.manifestName ~f:Zz__string.to_value));
        ("mssPackage", (Option.map x.mssPackage ~f:MssPackage.to_value));
        ("origination", (Option.map x.origination ~f:Origination.to_value));
        ("startoverWindowSeconds",
          (Option.map x.startoverWindowSeconds ~f:Zz__integer.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value));
        ("timeDelaySeconds",
          (Option.map x.timeDelaySeconds ~f:Zz__integer.to_value));
        ("whitelist",
          (Option.map x.whitelist ~f:Zz__listOf__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let whitelist =
        (Option.map ~f:Zz__listOf__string.of_xml)
          (Xml.child xml_arg0 "whitelist") in
      let timeDelaySeconds =
        (Option.map ~f:Zz__integer.of_xml)
          (Xml.child xml_arg0 "timeDelaySeconds") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let startoverWindowSeconds =
        (Option.map ~f:Zz__integer.of_xml)
          (Xml.child xml_arg0 "startoverWindowSeconds") in
      let origination =
        (Option.map ~f:Origination.of_xml) (Xml.child xml_arg0 "origination") in
      let mssPackage =
        (Option.map ~f:MssPackage.of_xml) (Xml.child xml_arg0 "mssPackage") in
      let manifestName =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "manifestName") in
      let id =
        Zz__string.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      let hlsPackage =
        (Option.map ~f:HlsPackage.of_xml) (Xml.child xml_arg0 "hlsPackage") in
      let description =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "description") in
      let dashPackage =
        (Option.map ~f:DashPackage.of_xml) (Xml.child xml_arg0 "dashPackage") in
      let cmafPackage =
        (Option.map ~f:CmafPackageCreateOrUpdateParameters.of_xml)
          (Xml.child xml_arg0 "cmafPackage") in
      let channelId =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "channelId") in
      let authorization =
        (Option.map ~f:Authorization.of_xml)
          (Xml.child xml_arg0 "authorization") in
      make ?whitelist ?timeDelaySeconds ?tags ?startoverWindowSeconds
        ?origination ?mssPackage ?manifestName ~id ?hlsPackage ?description
        ?dashPackage ?cmafPackage ~channelId ?authorization ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let whitelist = field_map json__ "Whitelist" Zz__listOf__string.of_json in
      let timeDelaySeconds =
        field_map json__ "TimeDelaySeconds" Zz__integer.of_json in
      let tags = field_map json__ "Tags" Tags.of_json in
      let startoverWindowSeconds =
        field_map json__ "StartoverWindowSeconds" Zz__integer.of_json in
      let origination = field_map json__ "Origination" Origination.of_json in
      let mssPackage = field_map json__ "MssPackage" MssPackage.of_json in
      let manifestName = field_map json__ "ManifestName" Zz__string.of_json in
      let id = field_map_exn json__ "Id" Zz__string.of_json in
      let hlsPackage = field_map json__ "HlsPackage" HlsPackage.of_json in
      let description = field_map json__ "Description" Zz__string.of_json in
      let dashPackage = field_map json__ "DashPackage" DashPackage.of_json in
      let cmafPackage =
        field_map json__ "CmafPackage"
          CmafPackageCreateOrUpdateParameters.of_json in
      let channelId = field_map_exn json__ "ChannelId" Zz__string.of_json in
      let authorization =
        field_map json__ "Authorization" Authorization.of_json in
      make ?whitelist ?timeDelaySeconds ?tags ?startoverWindowSeconds
        ?origination ?mssPackage ?manifestName ~id ?hlsPackage ?description
        ?dashPackage ?cmafPackage ~channelId ?authorization ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Configuration parameters used to create a new OriginEndpoint."]
module CreateHarvestJobResponse =
  struct
    type nonrec t =
      {
      arn: Zz__string.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) assigned to the HarvestJob."];
      channelId: Zz__string.t option
        [@ocaml.doc
          "The ID of the Channel that the HarvestJob will harvest from."];
      createdAt: Zz__string.t option
        [@ocaml.doc "The date and time the HarvestJob was submitted."];
      endTime: Zz__string.t option
        [@ocaml.doc "The end of the time-window which will be harvested."];
      id: Zz__string.t option
        [@ocaml.doc
          "The ID of the HarvestJob. The ID must be unique within the region and it cannot be changed after the HarvestJob is submitted."];
      originEndpointId: Zz__string.t option
        [@ocaml.doc
          "The ID of the OriginEndpoint that the HarvestJob will harvest from. This cannot be changed after the HarvestJob is submitted."];
      s3Destination: S3Destination.t option ;
      startTime: Zz__string.t option
        [@ocaml.doc "The start of the time-window which will be harvested."];
      status: Status.t option
        [@ocaml.doc
          "The current status of the HarvestJob. Consider setting up a CloudWatch Event to listen for HarvestJobs as they succeed or fail. In the event of failure, the CloudWatch Event will include an explanation of why the HarvestJob failed."]}
    type nonrec error =
      [ `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `UnprocessableEntityException of UnprocessableEntityException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?arn =
      fun ?channelId ->
        fun ?createdAt ->
          fun ?endTime ->
            fun ?id ->
              fun ?originEndpointId ->
                fun ?s3Destination ->
                  fun ?startTime ->
                    fun ?status ->
                      fun () ->
                        {
                          arn;
                          channelId;
                          createdAt;
                          endTime;
                          id;
                          originEndpointId;
                          s3Destination;
                          startTime;
                          status
                        }
    let error_of_json name json =
      match name with
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | "UnprocessableEntityException" ->
          `UnprocessableEntityException
            (UnprocessableEntityException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | "UnprocessableEntityException" ->
          `UnprocessableEntityException
            (UnprocessableEntityException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `UnprocessableEntityException e ->
          `Assoc
            [("error", (`String "UnprocessableEntityException"));
            ("details", (UnprocessableEntityException.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
        [("arn", (Option.map x.arn ~f:Zz__string.to_value));
        ("channelId", (Option.map x.channelId ~f:Zz__string.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Zz__string.to_value));
        ("endTime", (Option.map x.endTime ~f:Zz__string.to_value));
        ("id", (Option.map x.id ~f:Zz__string.to_value));
        ("originEndpointId",
          (Option.map x.originEndpointId ~f:Zz__string.to_value));
        ("s3Destination",
          (Option.map x.s3Destination ~f:S3Destination.to_value));
        ("startTime", (Option.map x.startTime ~f:Zz__string.to_value));
        ("status", (Option.map x.status ~f:Status.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:Status.of_xml) (Xml.child xml_arg0 "status") in
      let startTime =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "startTime") in
      let s3Destination =
        (Option.map ~f:S3Destination.of_xml)
          (Xml.child xml_arg0 "s3Destination") in
      let originEndpointId =
        (Option.map ~f:Zz__string.of_xml)
          (Xml.child xml_arg0 "originEndpointId") in
      let id = (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "id") in
      let endTime =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "endTime") in
      let createdAt =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "createdAt") in
      let channelId =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "channelId") in
      let arn = (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "arn") in
      make ?status ?startTime ?s3Destination ?originEndpointId ?id ?endTime
        ?createdAt ?channelId ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" Status.of_json in
      let startTime = field_map json__ "StartTime" Zz__string.of_json in
      let s3Destination =
        field_map json__ "S3Destination" S3Destination.of_json in
      let originEndpointId =
        field_map json__ "OriginEndpointId" Zz__string.of_json in
      let id = field_map json__ "Id" Zz__string.of_json in
      let endTime = field_map json__ "EndTime" Zz__string.of_json in
      let createdAt = field_map json__ "CreatedAt" Zz__string.of_json in
      let channelId = field_map json__ "ChannelId" Zz__string.of_json in
      let arn = field_map json__ "Arn" Zz__string.of_json in
      make ?status ?startTime ?s3Destination ?originEndpointId ?id ?endTime
        ?createdAt ?channelId ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a new HarvestJob record."]
module CreateHarvestJobRequest =
  struct
    type nonrec t =
      {
      endTime: Zz__string.t
        [@ocaml.doc "The end of the time-window which will be harvested"];
      id: Zz__string.t
        [@ocaml.doc
          "The ID of the HarvestJob. The ID must be unique within the region and it cannot be changed after the HarvestJob is submitted"];
      originEndpointId: Zz__string.t
        [@ocaml.doc
          "The ID of the OriginEndpoint that the HarvestJob will harvest from. This cannot be changed after the HarvestJob is submitted."];
      s3Destination: S3Destination.t ;
      startTime: Zz__string.t
        [@ocaml.doc "The start of the time-window which will be harvested"]}
    let context_ = "CreateHarvestJobRequest"
    let make ~endTime =
      fun ~id ->
        fun ~originEndpointId ->
          fun ~s3Destination ->
            fun ~startTime ->
              fun () ->
                { endTime; id; originEndpointId; s3Destination; startTime }
    let to_value x =
      structure_to_value
        [("endTime", (Some (Zz__string.to_value x.endTime)));
        ("id", (Some (Zz__string.to_value x.id)));
        ("originEndpointId", (Some (Zz__string.to_value x.originEndpointId)));
        ("s3Destination", (Some (S3Destination.to_value x.s3Destination)));
        ("startTime", (Some (Zz__string.to_value x.startTime)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let startTime =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "startTime") in
      let s3Destination =
        S3Destination.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "s3Destination") in
      let originEndpointId =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "originEndpointId") in
      let id =
        Zz__string.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      let endTime =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "endTime") in
      make ~startTime ~s3Destination ~originEndpointId ~id ~endTime ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let startTime = field_map_exn json__ "StartTime" Zz__string.of_json in
      let s3Destination =
        field_map_exn json__ "S3Destination" S3Destination.of_json in
      let originEndpointId =
        field_map_exn json__ "OriginEndpointId" Zz__string.of_json in
      let id = field_map_exn json__ "Id" Zz__string.of_json in
      let endTime = field_map_exn json__ "EndTime" Zz__string.of_json in
      make ~startTime ~s3Destination ~originEndpointId ~id ~endTime ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Configuration parameters used to create a new HarvestJob."]
module CreateChannelResponse =
  struct
    type nonrec t =
      {
      arn: Zz__string.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) assigned to the Channel."];
      createdAt: Zz__string.t option
        [@ocaml.doc "The date and time the Channel was created."];
      description: Zz__string.t option
        [@ocaml.doc "A short text description of the Channel."];
      egressAccessLogs: EgressAccessLogs.t option ;
      hlsIngest: HlsIngest.t option ;
      id: Zz__string.t option [@ocaml.doc "The ID of the Channel."];
      ingressAccessLogs: IngressAccessLogs.t option ;
      tags: Tags.t option }
    type nonrec error =
      [ `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `UnprocessableEntityException of UnprocessableEntityException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?arn =
      fun ?createdAt ->
        fun ?description ->
          fun ?egressAccessLogs ->
            fun ?hlsIngest ->
              fun ?id ->
                fun ?ingressAccessLogs ->
                  fun ?tags ->
                    fun () ->
                      {
                        arn;
                        createdAt;
                        description;
                        egressAccessLogs;
                        hlsIngest;
                        id;
                        ingressAccessLogs;
                        tags
                      }
    let error_of_json name json =
      match name with
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | "UnprocessableEntityException" ->
          `UnprocessableEntityException
            (UnprocessableEntityException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | "UnprocessableEntityException" ->
          `UnprocessableEntityException
            (UnprocessableEntityException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `UnprocessableEntityException e ->
          `Assoc
            [("error", (`String "UnprocessableEntityException"));
            ("details", (UnprocessableEntityException.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
        [("arn", (Option.map x.arn ~f:Zz__string.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Zz__string.to_value));
        ("description", (Option.map x.description ~f:Zz__string.to_value));
        ("egressAccessLogs",
          (Option.map x.egressAccessLogs ~f:EgressAccessLogs.to_value));
        ("hlsIngest", (Option.map x.hlsIngest ~f:HlsIngest.to_value));
        ("id", (Option.map x.id ~f:Zz__string.to_value));
        ("ingressAccessLogs",
          (Option.map x.ingressAccessLogs ~f:IngressAccessLogs.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let ingressAccessLogs =
        (Option.map ~f:IngressAccessLogs.of_xml)
          (Xml.child xml_arg0 "ingressAccessLogs") in
      let id = (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "id") in
      let hlsIngest =
        (Option.map ~f:HlsIngest.of_xml) (Xml.child xml_arg0 "hlsIngest") in
      let egressAccessLogs =
        (Option.map ~f:EgressAccessLogs.of_xml)
          (Xml.child xml_arg0 "egressAccessLogs") in
      let description =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "description") in
      let createdAt =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "createdAt") in
      let arn = (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "arn") in
      make ?tags ?ingressAccessLogs ?id ?hlsIngest ?egressAccessLogs
        ?description ?createdAt ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in
      let ingressAccessLogs =
        field_map json__ "IngressAccessLogs" IngressAccessLogs.of_json in
      let id = field_map json__ "Id" Zz__string.of_json in
      let hlsIngest = field_map json__ "HlsIngest" HlsIngest.of_json in
      let egressAccessLogs =
        field_map json__ "EgressAccessLogs" EgressAccessLogs.of_json in
      let description = field_map json__ "Description" Zz__string.of_json in
      let createdAt = field_map json__ "CreatedAt" Zz__string.of_json in
      let arn = field_map json__ "Arn" Zz__string.of_json in
      make ?tags ?ingressAccessLogs ?id ?hlsIngest ?egressAccessLogs
        ?description ?createdAt ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a new Channel."]
module CreateChannelRequest =
  struct
    type nonrec t =
      {
      description: Zz__string.t option
        [@ocaml.doc "A short text description of the Channel."];
      id: Zz__string.t
        [@ocaml.doc
          "The ID of the Channel. The ID must be unique within the region and it cannot be changed after a Channel is created."];
      tags: Tags.t option }
    let context_ = "CreateChannelRequest"
    let make ?description =
      fun ?tags -> fun ~id -> fun () -> { description; tags; id }
    let to_value x =
      structure_to_value
        [("description", (Option.map x.description ~f:Zz__string.to_value));
        ("id", (Some (Zz__string.to_value x.id)));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let id =
        Zz__string.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      let description =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "description") in
      make ?tags ~id ?description ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in
      let id = field_map_exn json__ "Id" Zz__string.of_json in
      let description = field_map json__ "Description" Zz__string.of_json in
      make ?tags ~id ?description ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A new Channel configuration."]
module ConfigureLogsResponse =
  struct
    type nonrec t =
      {
      arn: Zz__string.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) assigned to the Channel."];
      createdAt: Zz__string.t option
        [@ocaml.doc "The date and time the Channel was created."];
      description: Zz__string.t option
        [@ocaml.doc "A short text description of the Channel."];
      egressAccessLogs: EgressAccessLogs.t option ;
      hlsIngest: HlsIngest.t option ;
      id: Zz__string.t option [@ocaml.doc "The ID of the Channel."];
      ingressAccessLogs: IngressAccessLogs.t option ;
      tags: Tags.t option }
    type nonrec error =
      [ `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `UnprocessableEntityException of UnprocessableEntityException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?arn =
      fun ?createdAt ->
        fun ?description ->
          fun ?egressAccessLogs ->
            fun ?hlsIngest ->
              fun ?id ->
                fun ?ingressAccessLogs ->
                  fun ?tags ->
                    fun () ->
                      {
                        arn;
                        createdAt;
                        description;
                        egressAccessLogs;
                        hlsIngest;
                        id;
                        ingressAccessLogs;
                        tags
                      }
    let error_of_json name json =
      match name with
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | "UnprocessableEntityException" ->
          `UnprocessableEntityException
            (UnprocessableEntityException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | "UnprocessableEntityException" ->
          `UnprocessableEntityException
            (UnprocessableEntityException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `UnprocessableEntityException e ->
          `Assoc
            [("error", (`String "UnprocessableEntityException"));
            ("details", (UnprocessableEntityException.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
        [("arn", (Option.map x.arn ~f:Zz__string.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Zz__string.to_value));
        ("description", (Option.map x.description ~f:Zz__string.to_value));
        ("egressAccessLogs",
          (Option.map x.egressAccessLogs ~f:EgressAccessLogs.to_value));
        ("hlsIngest", (Option.map x.hlsIngest ~f:HlsIngest.to_value));
        ("id", (Option.map x.id ~f:Zz__string.to_value));
        ("ingressAccessLogs",
          (Option.map x.ingressAccessLogs ~f:IngressAccessLogs.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let ingressAccessLogs =
        (Option.map ~f:IngressAccessLogs.of_xml)
          (Xml.child xml_arg0 "ingressAccessLogs") in
      let id = (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "id") in
      let hlsIngest =
        (Option.map ~f:HlsIngest.of_xml) (Xml.child xml_arg0 "hlsIngest") in
      let egressAccessLogs =
        (Option.map ~f:EgressAccessLogs.of_xml)
          (Xml.child xml_arg0 "egressAccessLogs") in
      let description =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "description") in
      let createdAt =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "createdAt") in
      let arn = (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "arn") in
      make ?tags ?ingressAccessLogs ?id ?hlsIngest ?egressAccessLogs
        ?description ?createdAt ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in
      let ingressAccessLogs =
        field_map json__ "IngressAccessLogs" IngressAccessLogs.of_json in
      let id = field_map json__ "Id" Zz__string.of_json in
      let hlsIngest = field_map json__ "HlsIngest" HlsIngest.of_json in
      let egressAccessLogs =
        field_map json__ "EgressAccessLogs" EgressAccessLogs.of_json in
      let description = field_map json__ "Description" Zz__string.of_json in
      let createdAt = field_map json__ "CreatedAt" Zz__string.of_json in
      let arn = field_map json__ "Arn" Zz__string.of_json in
      make ?tags ?ingressAccessLogs ?id ?hlsIngest ?egressAccessLogs
        ?description ?createdAt ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Changes the Channel's properities to configure log subscription"]
module ConfigureLogsRequest =
  struct
    type nonrec t =
      {
      egressAccessLogs: EgressAccessLogs.t option ;
      id: Zz__string.t
        [@ocaml.doc "The ID of the channel to log subscription."];
      ingressAccessLogs: IngressAccessLogs.t option }
    let context_ = "ConfigureLogsRequest"
    let make ?egressAccessLogs =
      fun ?ingressAccessLogs ->
        fun ~id -> fun () -> { egressAccessLogs; ingressAccessLogs; id }
    let to_value x =
      structure_to_value
        [("egressAccessLogs",
           (Option.map x.egressAccessLogs ~f:EgressAccessLogs.to_value));
        ("id", (Some (Zz__string.to_value x.id)));
        ("ingressAccessLogs",
          (Option.map x.ingressAccessLogs ~f:IngressAccessLogs.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ingressAccessLogs =
        (Option.map ~f:IngressAccessLogs.of_xml)
          (Xml.child xml_arg0 "ingressAccessLogs") in
      let id =
        Zz__string.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      let egressAccessLogs =
        (Option.map ~f:EgressAccessLogs.of_xml)
          (Xml.child xml_arg0 "egressAccessLogs") in
      make ?ingressAccessLogs ~id ?egressAccessLogs ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ingressAccessLogs =
        field_map json__ "IngressAccessLogs" IngressAccessLogs.of_json in
      let id = field_map_exn json__ "Id" Zz__string.of_json in
      let egressAccessLogs =
        field_map json__ "EgressAccessLogs" EgressAccessLogs.of_json in
      make ?ingressAccessLogs ~id ?egressAccessLogs ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "the option to configure log subscription."]
module ConfigureLogsParameters =
  struct
    type nonrec t =
      {
      egressAccessLogs: EgressAccessLogs.t option ;
      ingressAccessLogs: IngressAccessLogs.t option }
    let make ?egressAccessLogs =
      fun ?ingressAccessLogs ->
        fun () -> { egressAccessLogs; ingressAccessLogs }
    let to_value x =
      structure_to_value
        [("egressAccessLogs",
           (Option.map x.egressAccessLogs ~f:EgressAccessLogs.to_value));
        ("ingressAccessLogs",
          (Option.map x.ingressAccessLogs ~f:IngressAccessLogs.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ingressAccessLogs =
        (Option.map ~f:IngressAccessLogs.of_xml)
          (Xml.child xml_arg0 "ingressAccessLogs") in
      let egressAccessLogs =
        (Option.map ~f:EgressAccessLogs.of_xml)
          (Xml.child xml_arg0 "egressAccessLogs") in
      make ?ingressAccessLogs ?egressAccessLogs ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ingressAccessLogs =
        field_map json__ "IngressAccessLogs" IngressAccessLogs.of_json in
      let egressAccessLogs =
        field_map json__ "EgressAccessLogs" EgressAccessLogs.of_json in
      make ?ingressAccessLogs ?egressAccessLogs ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The configuration parameters for ingress and egress access logging."]
module ChannelUpdateParameters =
  struct
    type nonrec t =
      {
      description: Zz__string.t option
        [@ocaml.doc "A short text description of the Channel."]}
    let make ?description = fun () -> { description }
    let to_value x =
      structure_to_value
        [("description", (Option.map x.description ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let description =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "description") in
      make ?description ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let description = field_map json__ "Description" Zz__string.of_json in
      make ?description ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Configuration parameters for updating an existing Channel."]
module ChannelList =
  struct
    type nonrec t =
      {
      channels: Zz__listOfChannel.t option
        [@ocaml.doc "A list of Channel records."];
      nextToken: Zz__string.t option
        [@ocaml.doc
          "A token that can be used to resume pagination from the end of the collection."]}
    let make ?channels = fun ?nextToken -> fun () -> { channels; nextToken }
    let to_value x =
      structure_to_value
        [("channels", (Option.map x.channels ~f:Zz__listOfChannel.to_value));
        ("nextToken", (Option.map x.nextToken ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "nextToken") in
      let channels =
        (Option.map ~f:Zz__listOfChannel.of_xml)
          (Xml.child xml_arg0 "channels") in
      make ?nextToken ?channels ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" Zz__string.of_json in
      let channels = field_map json__ "Channels" Zz__listOfChannel.of_json in
      make ?nextToken ?channels ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A collection of Channel records."]
module ChannelCreateParameters =
  struct
    type nonrec t =
      {
      description: Zz__string.t option
        [@ocaml.doc "A short text description of the Channel."];
      id: Zz__string.t
        [@ocaml.doc
          "The ID of the Channel. The ID must be unique within the region and it cannot be changed after a Channel is created."];
      tags: Tags.t option }
    let context_ = "ChannelCreateParameters"
    let make ?description =
      fun ?tags -> fun ~id -> fun () -> { description; tags; id }
    let to_value x =
      structure_to_value
        [("description", (Option.map x.description ~f:Zz__string.to_value));
        ("id", (Some (Zz__string.to_value x.id)));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let id =
        Zz__string.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      let description =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "description") in
      make ?tags ~id ?description ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in
      let id = field_map_exn json__ "Id" Zz__string.of_json in
      let description = field_map json__ "Description" Zz__string.of_json in
      make ?tags ~id ?description ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Configuration parameters for a new Channel."]