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_vod
let apiVersion = "2018-11-07"
let endpointPrefix = "mediapackage-vod"
let serviceFullName = "AWS Elemental MediaPackage VOD"
let signatureVersion = "v4"
let protocol = "rest_json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let serviceAbbreviation = "MediaPackage Vod"
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 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 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 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 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 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | NONE -> "NONE"
      | SCTE35_ENHANCED -> "SCTE35_ENHANCED"
      | PASSTHROUGH -> "PASSTHROUGH"
      | Non_static_id s -> s
    let of_string =
      function
      | "NONE" -> NONE
      | "SCTE35_ENHANCED" -> SCTE35_ENHANCED
      | "PASSTHROUGH" -> PASSTHROUGH
      | 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 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__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 ManifestLayout =
  struct
    type nonrec t =
      | FULL 
      | COMPACT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | FULL -> "FULL" | COMPACT -> "COMPACT" | Non_static_id s -> s
    let of_string =
      function | "FULL" -> FULL | "COMPACT" -> 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 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | NONE -> "NONE"
      | HBBTV_1_5 -> "HBBTV_1_5"
      | Non_static_id s -> s
    let of_string =
      function
      | "NONE" -> NONE
      | "HBBTV_1_5" -> HBBTV_1_5
      | 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 ScteMarkersSource =
  struct
    type nonrec t =
      | SEGMENTS 
      | MANIFEST 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SEGMENTS -> "SEGMENTS"
      | MANIFEST -> "MANIFEST"
      | Non_static_id s -> s
    let of_string =
      function
      | "SEGMENTS" -> SEGMENTS
      | "MANIFEST" -> MANIFEST
      | 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 ScteMarkersSource" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ScteMarkersSource" j)
    let to_json = simple_to_json to_value
  end
module SpekeKeyProvider =
  struct
    type nonrec t =
      {
      encryptionContractConfiguration:
        EncryptionContractConfiguration.t option ;
      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 ?encryptionContractConfiguration =
      fun ~roleArn ->
        fun ~systemIds ->
          fun ~url ->
            fun () ->
              { encryptionContractConfiguration; roleArn; systemIds; url }
    let to_value x =
      structure_to_value
        [("encryptionContractConfiguration",
           (Option.map x.encryptionContractConfiguration
              ~f:EncryptionContractConfiguration.to_value));
        ("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 encryptionContractConfiguration =
        (Option.map ~f:EncryptionContractConfiguration.of_xml)
          (Xml.child xml_arg0 "encryptionContractConfiguration") in
      make ~url ~systemIds ~roleArn ?encryptionContractConfiguration ()
    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 encryptionContractConfiguration =
        field_map json__ "EncryptionContractConfiguration"
          EncryptionContractConfiguration.of_json in
      make ~url ~systemIds ~roleArn ?encryptionContractConfiguration ()
    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 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."];
      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 string to include in the name of the 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."];
      repeatExtXKey: Zz__boolean.t option
        [@ocaml.doc
          "When enabled, the EXT-X-KEY tag will be repeated in output manifests."];
      streamSelection: StreamSelection.t option }
    let make ?adMarkers =
      fun ?includeIframeOnlyStream ->
        fun ?manifestName ->
          fun ?programDateTimeIntervalSeconds ->
            fun ?repeatExtXKey ->
              fun ?streamSelection ->
                fun () ->
                  {
                    adMarkers;
                    includeIframeOnlyStream;
                    manifestName;
                    programDateTimeIntervalSeconds;
                    repeatExtXKey;
                    streamSelection
                  }
    let to_value x =
      structure_to_value
        [("adMarkers", (Option.map x.adMarkers ~f:AdMarkers.to_value));
        ("includeIframeOnlyStream",
          (Option.map x.includeIframeOnlyStream ~f:Zz__boolean.to_value));
        ("manifestName", (Option.map x.manifestName ~f:Zz__string.to_value));
        ("programDateTimeIntervalSeconds",
          (Option.map x.programDateTimeIntervalSeconds
             ~f:Zz__integer.to_value));
        ("repeatExtXKey",
          (Option.map x.repeatExtXKey ~f:Zz__boolean.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 repeatExtXKey =
        (Option.map ~f:Zz__boolean.of_xml)
          (Xml.child xml_arg0 "repeatExtXKey") in
      let programDateTimeIntervalSeconds =
        (Option.map ~f:Zz__integer.of_xml)
          (Xml.child xml_arg0 "programDateTimeIntervalSeconds") 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 adMarkers =
        (Option.map ~f:AdMarkers.of_xml) (Xml.child xml_arg0 "adMarkers") in
      make ?streamSelection ?repeatExtXKey ?programDateTimeIntervalSeconds
        ?manifestName ?includeIframeOnlyStream ?adMarkers ()
    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 repeatExtXKey =
        field_map json__ "RepeatExtXKey" Zz__boolean.of_json in
      let programDateTimeIntervalSeconds =
        field_map json__ "ProgramDateTimeIntervalSeconds" Zz__integer.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 adMarkers = field_map json__ "AdMarkers" AdMarkers.of_json in
      make ?streamSelection ?repeatExtXKey ?programDateTimeIntervalSeconds
        ?manifestName ?includeIframeOnlyStream ?adMarkers ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "An HTTP Live Streaming (HLS) manifest configuration."]
module DashManifest =
  struct
    type nonrec t =
      {
      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."];
      manifestName: Zz__string.t option
        [@ocaml.doc
          "An optional string to include in the name of the manifest."];
      minBufferTimeSeconds: Zz__integer.t option
        [@ocaml.doc
          "Minimum duration (in seconds) that a player will buffer media before starting the presentation."];
      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."];
      scteMarkersSource: ScteMarkersSource.t option
        [@ocaml.doc
          "The source of scte markers used. When set to SEGMENTS, the scte markers are sourced from the segments of the ingested content. When set to MANIFEST, the scte markers are sourced from the manifest of the ingested content."];
      streamSelection: StreamSelection.t option }
    let make ?manifestLayout =
      fun ?manifestName ->
        fun ?minBufferTimeSeconds ->
          fun ?profile ->
            fun ?scteMarkersSource ->
              fun ?streamSelection ->
                fun () ->
                  {
                    manifestLayout;
                    manifestName;
                    minBufferTimeSeconds;
                    profile;
                    scteMarkersSource;
                    streamSelection
                  }
    let to_value x =
      structure_to_value
        [("manifestLayout",
           (Option.map x.manifestLayout ~f:ManifestLayout.to_value));
        ("manifestName", (Option.map x.manifestName ~f:Zz__string.to_value));
        ("minBufferTimeSeconds",
          (Option.map x.minBufferTimeSeconds ~f:Zz__integer.to_value));
        ("profile", (Option.map x.profile ~f:Profile.to_value));
        ("scteMarkersSource",
          (Option.map x.scteMarkersSource ~f:ScteMarkersSource.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 scteMarkersSource =
        (Option.map ~f:ScteMarkersSource.of_xml)
          (Xml.child xml_arg0 "scteMarkersSource") in
      let profile =
        (Option.map ~f:Profile.of_xml) (Xml.child xml_arg0 "profile") in
      let minBufferTimeSeconds =
        (Option.map ~f:Zz__integer.of_xml)
          (Xml.child xml_arg0 "minBufferTimeSeconds") in
      let manifestName =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "manifestName") in
      let manifestLayout =
        (Option.map ~f:ManifestLayout.of_xml)
          (Xml.child xml_arg0 "manifestLayout") in
      make ?streamSelection ?scteMarkersSource ?profile ?minBufferTimeSeconds
        ?manifestName ?manifestLayout ()
    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 scteMarkersSource =
        field_map json__ "ScteMarkersSource" ScteMarkersSource.of_json in
      let profile = field_map json__ "Profile" Profile.of_json in
      let minBufferTimeSeconds =
        field_map json__ "MinBufferTimeSeconds" Zz__integer.of_json in
      let manifestName = field_map json__ "ManifestName" Zz__string.of_json in
      let manifestLayout =
        field_map json__ "ManifestLayout" ManifestLayout.of_json in
      make ?streamSelection ?scteMarkersSource ?profile ?minBufferTimeSeconds
        ?manifestName ?manifestLayout ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A DASH 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 MssManifest =
  struct
    type nonrec t =
      {
      manifestName: Zz__string.t option
        [@ocaml.doc
          "An optional string to include in the name of the manifest."];
      streamSelection: StreamSelection.t option }
    let make ?manifestName =
      fun ?streamSelection -> fun () -> { manifestName; streamSelection }
    let to_value x =
      structure_to_value
        [("manifestName", (Option.map x.manifestName ~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 manifestName =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "manifestName") in
      make ?streamSelection ?manifestName ()
    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 manifestName = field_map json__ "ManifestName" Zz__string.of_json in
      make ?streamSelection ?manifestName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A Microsoft Smooth Streaming (MSS) manifest configuration."]
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)."];
      spekeKeyProvider: SpekeKeyProvider.t }
    let context_ = "CmafEncryption"
    let make ?constantInitializationVector =
      fun ~spekeKeyProvider ->
        fun () -> { constantInitializationVector; spekeKeyProvider }
    let to_value x =
      structure_to_value
        [("constantInitializationVector",
           (Option.map x.constantInitializationVector ~f:Zz__string.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 constantInitializationVector =
        (Option.map ~f:Zz__string.of_xml)
          (Xml.child xml_arg0 "constantInitializationVector") in
      make ~spekeKeyProvider ?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 constantInitializationVector =
        field_map json__ "ConstantInitializationVector" Zz__string.of_json in
      make ~spekeKeyProvider ?constantInitializationVector ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A CMAF encryption 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 = {
      spekeKeyProvider: SpekeKeyProvider.t }
    let context_ = "DashEncryption"
    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 Dynamic Adaptive Streaming over HTTP (DASH) encryption configuration."]
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 Zz__listOfDashManifest =
  struct
    type nonrec t = DashManifest.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:DashManifest.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:DashManifest.of_xml)
    let of_json j =
      list_of_json ~kind:"__listOfDashManifest" ~of_json:DashManifest.of_json
        j
    let to_json v = composed_to_json to_value v
  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."];
      spekeKeyProvider: SpekeKeyProvider.t }
    let context_ = "HlsEncryption"
    let make ?constantInitializationVector =
      fun ?encryptionMethod ->
        fun ~spekeKeyProvider ->
          fun () ->
            {
              constantInitializationVector;
              encryptionMethod;
              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));
        ("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 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 ?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 encryptionMethod =
        field_map json__ "EncryptionMethod" EncryptionMethod.of_json in
      let constantInitializationVector =
        field_map json__ "ConstantInitializationVector" Zz__string.of_json in
      make ~spekeKeyProvider ?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__listOfMssManifest =
  struct
    type nonrec t = MssManifest.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:MssManifest.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:MssManifest.of_xml)
    let of_json j =
      list_of_json ~kind:"__listOfMssManifest" ~of_json:MssManifest.of_json j
    let to_json v = composed_to_json to_value v
  end
module Authorization =
  struct
    type nonrec t =
      {
      cdnIdentifierSecret: Zz__string.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the secret in AWS Secrets Manager that is used for CDN authorization."];
      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 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 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 CmafPackage =
  struct
    type nonrec t =
      {
      encryption: CmafEncryption.t option ;
      hlsManifests: Zz__listOfHlsManifest.t
        [@ocaml.doc "A list of HLS manifest configurations."];
      includeEncoderConfigurationInSegments: Zz__boolean.t option
        [@ocaml.doc
          "When includeEncoderConfigurationInSegments is set to true, MediaPackage places your encoder's Sequence Parameter Set (SPS), Picture Parameter Set (PPS), and Video Parameter Set (VPS) metadata in every video segment instead of in the init fragment. This lets you use different SPS/PPS/VPS settings for your assets during content playback."];
      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."]}
    let context_ = "CmafPackage"
    let make ?encryption =
      fun ?includeEncoderConfigurationInSegments ->
        fun ?segmentDurationSeconds ->
          fun ~hlsManifests ->
            fun () ->
              {
                encryption;
                includeEncoderConfigurationInSegments;
                segmentDurationSeconds;
                hlsManifests
              }
    let to_value x =
      structure_to_value
        [("encryption", (Option.map x.encryption ~f:CmafEncryption.to_value));
        ("hlsManifests",
          (Some (Zz__listOfHlsManifest.to_value x.hlsManifests)));
        ("includeEncoderConfigurationInSegments",
          (Option.map x.includeEncoderConfigurationInSegments
             ~f:Zz__boolean.to_value));
        ("segmentDurationSeconds",
          (Option.map x.segmentDurationSeconds ~f:Zz__integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let segmentDurationSeconds =
        (Option.map ~f:Zz__integer.of_xml)
          (Xml.child xml_arg0 "segmentDurationSeconds") in
      let includeEncoderConfigurationInSegments =
        (Option.map ~f:Zz__boolean.of_xml)
          (Xml.child xml_arg0 "includeEncoderConfigurationInSegments") in
      let hlsManifests =
        Zz__listOfHlsManifest.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "hlsManifests") in
      let encryption =
        (Option.map ~f:CmafEncryption.of_xml)
          (Xml.child xml_arg0 "encryption") in
      make ?segmentDurationSeconds ?includeEncoderConfigurationInSegments
        ~hlsManifests ?encryption ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let segmentDurationSeconds =
        field_map json__ "SegmentDurationSeconds" Zz__integer.of_json in
      let includeEncoderConfigurationInSegments =
        field_map json__ "IncludeEncoderConfigurationInSegments"
          Zz__boolean.of_json in
      let hlsManifests =
        field_map_exn json__ "HlsManifests" Zz__listOfHlsManifest.of_json in
      let encryption = field_map json__ "Encryption" CmafEncryption.of_json in
      make ?segmentDurationSeconds ?includeEncoderConfigurationInSegments
        ~hlsManifests ?encryption ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A CMAF packaging configuration."]
module DashPackage =
  struct
    type nonrec t =
      {
      dashManifests: Zz__listOfDashManifest.t
        [@ocaml.doc "A list of DASH manifest configurations."];
      encryption: DashEncryption.t option ;
      includeEncoderConfigurationInSegments: Zz__boolean.t option
        [@ocaml.doc
          "When includeEncoderConfigurationInSegments is set to true, MediaPackage places your encoder's Sequence Parameter Set (SPS), Picture Parameter Set (PPS), and Video Parameter Set (VPS) metadata in every video segment instead of in the init fragment. This lets you use different SPS/PPS/VPS settings for your assets during content playback."];
      includeIframeOnlyStream: Zz__boolean.t option
        [@ocaml.doc
          "When enabled, an I-Frame only stream will be included in the output."];
      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 Asset contains SCTE-35 ad markers."];
      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."]}
    let context_ = "DashPackage"
    let make ?encryption =
      fun ?includeEncoderConfigurationInSegments ->
        fun ?includeIframeOnlyStream ->
          fun ?periodTriggers ->
            fun ?segmentDurationSeconds ->
              fun ?segmentTemplateFormat ->
                fun ~dashManifests ->
                  fun () ->
                    {
                      encryption;
                      includeEncoderConfigurationInSegments;
                      includeIframeOnlyStream;
                      periodTriggers;
                      segmentDurationSeconds;
                      segmentTemplateFormat;
                      dashManifests
                    }
    let to_value x =
      structure_to_value
        [("dashManifests",
           (Some (Zz__listOfDashManifest.to_value x.dashManifests)));
        ("encryption", (Option.map x.encryption ~f:DashEncryption.to_value));
        ("includeEncoderConfigurationInSegments",
          (Option.map x.includeEncoderConfigurationInSegments
             ~f:Zz__boolean.to_value));
        ("includeIframeOnlyStream",
          (Option.map x.includeIframeOnlyStream ~f:Zz__boolean.to_value));
        ("periodTriggers",
          (Option.map x.periodTriggers
             ~f:Zz__listOf__PeriodTriggersElement.to_value));
        ("segmentDurationSeconds",
          (Option.map x.segmentDurationSeconds ~f:Zz__integer.to_value));
        ("segmentTemplateFormat",
          (Option.map x.segmentTemplateFormat
             ~f:SegmentTemplateFormat.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      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 periodTriggers =
        (Option.map ~f:Zz__listOf__PeriodTriggersElement.of_xml)
          (Xml.child xml_arg0 "periodTriggers") in
      let includeIframeOnlyStream =
        (Option.map ~f:Zz__boolean.of_xml)
          (Xml.child xml_arg0 "includeIframeOnlyStream") in
      let includeEncoderConfigurationInSegments =
        (Option.map ~f:Zz__boolean.of_xml)
          (Xml.child xml_arg0 "includeEncoderConfigurationInSegments") in
      let encryption =
        (Option.map ~f:DashEncryption.of_xml)
          (Xml.child xml_arg0 "encryption") in
      let dashManifests =
        Zz__listOfDashManifest.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "dashManifests") in
      make ?segmentTemplateFormat ?segmentDurationSeconds ?periodTriggers
        ?includeIframeOnlyStream ?includeEncoderConfigurationInSegments
        ?encryption ~dashManifests ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let segmentTemplateFormat =
        field_map json__ "SegmentTemplateFormat"
          SegmentTemplateFormat.of_json in
      let segmentDurationSeconds =
        field_map json__ "SegmentDurationSeconds" Zz__integer.of_json in
      let periodTriggers =
        field_map json__ "PeriodTriggers"
          Zz__listOf__PeriodTriggersElement.of_json in
      let includeIframeOnlyStream =
        field_map json__ "IncludeIframeOnlyStream" Zz__boolean.of_json in
      let includeEncoderConfigurationInSegments =
        field_map json__ "IncludeEncoderConfigurationInSegments"
          Zz__boolean.of_json in
      let encryption = field_map json__ "Encryption" DashEncryption.of_json in
      let dashManifests =
        field_map_exn json__ "DashManifests" Zz__listOfDashManifest.of_json in
      make ?segmentTemplateFormat ?segmentDurationSeconds ?periodTriggers
        ?includeIframeOnlyStream ?includeEncoderConfigurationInSegments
        ?encryption ~dashManifests ()
    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 =
      {
      encryption: HlsEncryption.t option ;
      hlsManifests: Zz__listOfHlsManifest.t
        [@ocaml.doc "A list of HLS manifest configurations."];
      includeDvbSubtitles: Zz__boolean.t option
        [@ocaml.doc
          "When enabled, MediaPackage passes through digital video broadcasting (DVB) subtitles into the 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."];
      useAudioRenditionGroup: Zz__boolean.t option
        [@ocaml.doc
          "When enabled, audio streams will be placed in rendition groups in the output."]}
    let context_ = "HlsPackage"
    let make ?encryption =
      fun ?includeDvbSubtitles ->
        fun ?segmentDurationSeconds ->
          fun ?useAudioRenditionGroup ->
            fun ~hlsManifests ->
              fun () ->
                {
                  encryption;
                  includeDvbSubtitles;
                  segmentDurationSeconds;
                  useAudioRenditionGroup;
                  hlsManifests
                }
    let to_value x =
      structure_to_value
        [("encryption", (Option.map x.encryption ~f:HlsEncryption.to_value));
        ("hlsManifests",
          (Some (Zz__listOfHlsManifest.to_value x.hlsManifests)));
        ("includeDvbSubtitles",
          (Option.map x.includeDvbSubtitles ~f:Zz__boolean.to_value));
        ("segmentDurationSeconds",
          (Option.map x.segmentDurationSeconds ~f:Zz__integer.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 segmentDurationSeconds =
        (Option.map ~f:Zz__integer.of_xml)
          (Xml.child xml_arg0 "segmentDurationSeconds") in
      let includeDvbSubtitles =
        (Option.map ~f:Zz__boolean.of_xml)
          (Xml.child xml_arg0 "includeDvbSubtitles") in
      let hlsManifests =
        Zz__listOfHlsManifest.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "hlsManifests") in
      let encryption =
        (Option.map ~f:HlsEncryption.of_xml)
          (Xml.child xml_arg0 "encryption") in
      make ?useAudioRenditionGroup ?segmentDurationSeconds
        ?includeDvbSubtitles ~hlsManifests ?encryption ()
    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 segmentDurationSeconds =
        field_map json__ "SegmentDurationSeconds" Zz__integer.of_json in
      let includeDvbSubtitles =
        field_map json__ "IncludeDvbSubtitles" Zz__boolean.of_json in
      let hlsManifests =
        field_map_exn json__ "HlsManifests" Zz__listOfHlsManifest.of_json in
      let encryption = field_map json__ "Encryption" HlsEncryption.of_json in
      make ?useAudioRenditionGroup ?segmentDurationSeconds
        ?includeDvbSubtitles ~hlsManifests ?encryption ()
    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 ;
      mssManifests: Zz__listOfMssManifest.t
        [@ocaml.doc "A list of MSS manifest configurations."];
      segmentDurationSeconds: Zz__integer.t option
        [@ocaml.doc "The duration (in seconds) of each segment."]}
    let context_ = "MssPackage"
    let make ?encryption =
      fun ?segmentDurationSeconds ->
        fun ~mssManifests ->
          fun () -> { encryption; segmentDurationSeconds; mssManifests }
    let to_value x =
      structure_to_value
        [("encryption", (Option.map x.encryption ~f:MssEncryption.to_value));
        ("mssManifests",
          (Some (Zz__listOfMssManifest.to_value x.mssManifests)));
        ("segmentDurationSeconds",
          (Option.map x.segmentDurationSeconds ~f:Zz__integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let segmentDurationSeconds =
        (Option.map ~f:Zz__integer.of_xml)
          (Xml.child xml_arg0 "segmentDurationSeconds") in
      let mssManifests =
        Zz__listOfMssManifest.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "mssManifests") in
      let encryption =
        (Option.map ~f:MssEncryption.of_xml)
          (Xml.child xml_arg0 "encryption") in
      make ?segmentDurationSeconds ~mssManifests ?encryption ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let segmentDurationSeconds =
        field_map json__ "SegmentDurationSeconds" Zz__integer.of_json in
      let mssManifests =
        field_map_exn json__ "MssManifests" Zz__listOfMssManifest.of_json in
      let encryption = field_map json__ "Encryption" MssEncryption.of_json in
      make ?segmentDurationSeconds ~mssManifests ?encryption ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A Microsoft Smooth Streaming (MSS) PackagingConfiguration."]
module PackagingGroup =
  struct
    type nonrec t =
      {
      approximateAssetCount: Zz__integer.t option
        [@ocaml.doc "The approximate asset count of the PackagingGroup."];
      arn: Zz__string.t option [@ocaml.doc "The ARN of the PackagingGroup."];
      authorization: Authorization.t option ;
      createdAt: Zz__string.t option
        [@ocaml.doc "The time the PackagingGroup was created."];
      domainName: Zz__string.t option
        [@ocaml.doc
          "The fully qualified domain name for Assets in the PackagingGroup."];
      egressAccessLogs: EgressAccessLogs.t option ;
      id: Zz__string.t option [@ocaml.doc "The ID of the PackagingGroup."];
      tags: Tags.t option }
    let make ?approximateAssetCount =
      fun ?arn ->
        fun ?authorization ->
          fun ?createdAt ->
            fun ?domainName ->
              fun ?egressAccessLogs ->
                fun ?id ->
                  fun ?tags ->
                    fun () ->
                      {
                        approximateAssetCount;
                        arn;
                        authorization;
                        createdAt;
                        domainName;
                        egressAccessLogs;
                        id;
                        tags
                      }
    let to_value x =
      structure_to_value
        [("approximateAssetCount",
           (Option.map x.approximateAssetCount ~f:Zz__integer.to_value));
        ("arn", (Option.map x.arn ~f:Zz__string.to_value));
        ("authorization",
          (Option.map x.authorization ~f:Authorization.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Zz__string.to_value));
        ("domainName", (Option.map x.domainName ~f:Zz__string.to_value));
        ("egressAccessLogs",
          (Option.map x.egressAccessLogs ~f:EgressAccessLogs.to_value));
        ("id", (Option.map x.id ~f:Zz__string.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 id = (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "id") in
      let egressAccessLogs =
        (Option.map ~f:EgressAccessLogs.of_xml)
          (Xml.child xml_arg0 "egressAccessLogs") in
      let domainName =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "domainName") in
      let createdAt =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "createdAt") 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
      let approximateAssetCount =
        (Option.map ~f:Zz__integer.of_xml)
          (Xml.child xml_arg0 "approximateAssetCount") in
      make ?tags ?id ?egressAccessLogs ?domainName ?createdAt ?authorization
        ?arn ?approximateAssetCount ()
    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 json__ "Id" Zz__string.of_json in
      let egressAccessLogs =
        field_map json__ "EgressAccessLogs" EgressAccessLogs.of_json in
      let domainName = field_map json__ "DomainName" Zz__string.of_json in
      let createdAt = field_map json__ "CreatedAt" 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
      let approximateAssetCount =
        field_map json__ "ApproximateAssetCount" Zz__integer.of_json in
      make ?tags ?id ?egressAccessLogs ?domainName ?createdAt ?authorization
        ?arn ?approximateAssetCount ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A MediaPackage VOD PackagingGroup resource."]
module PackagingConfiguration =
  struct
    type nonrec t =
      {
      arn: Zz__string.t option
        [@ocaml.doc "The ARN of the PackagingConfiguration."];
      cmafPackage: CmafPackage.t option ;
      createdAt: Zz__string.t option
        [@ocaml.doc "The time the PackagingConfiguration was created."];
      dashPackage: DashPackage.t option ;
      hlsPackage: HlsPackage.t option ;
      id: Zz__string.t option
        [@ocaml.doc "The ID of the PackagingConfiguration."];
      mssPackage: MssPackage.t option ;
      packagingGroupId: Zz__string.t option
        [@ocaml.doc "The ID of a PackagingGroup."];
      tags: Tags.t option }
    let make ?arn =
      fun ?cmafPackage ->
        fun ?createdAt ->
          fun ?dashPackage ->
            fun ?hlsPackage ->
              fun ?id ->
                fun ?mssPackage ->
                  fun ?packagingGroupId ->
                    fun ?tags ->
                      fun () ->
                        {
                          arn;
                          cmafPackage;
                          createdAt;
                          dashPackage;
                          hlsPackage;
                          id;
                          mssPackage;
                          packagingGroupId;
                          tags
                        }
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~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));
        ("hlsPackage", (Option.map x.hlsPackage ~f:HlsPackage.to_value));
        ("id", (Option.map x.id ~f:Zz__string.to_value));
        ("mssPackage", (Option.map x.mssPackage ~f:MssPackage.to_value));
        ("packagingGroupId",
          (Option.map x.packagingGroupId ~f:Zz__string.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 packagingGroupId =
        (Option.map ~f:Zz__string.of_xml)
          (Xml.child xml_arg0 "packagingGroupId") in
      let mssPackage =
        (Option.map ~f:MssPackage.of_xml) (Xml.child xml_arg0 "mssPackage") 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 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 arn = (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "arn") in
      make ?tags ?packagingGroupId ?mssPackage ?id ?hlsPackage ?dashPackage
        ?createdAt ?cmafPackage ?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 packagingGroupId =
        field_map json__ "PackagingGroupId" Zz__string.of_json in
      let mssPackage = field_map json__ "MssPackage" MssPackage.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 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 arn = field_map json__ "Arn" Zz__string.of_json in
      make ?tags ?packagingGroupId ?mssPackage ?id ?hlsPackage ?dashPackage
        ?createdAt ?cmafPackage ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A MediaPackage VOD PackagingConfiguration resource."]
module AssetShallow =
  struct
    type nonrec t =
      {
      arn: Zz__string.t option [@ocaml.doc "The ARN of the Asset."];
      createdAt: Zz__string.t option
        [@ocaml.doc "The time the Asset was initially submitted for Ingest."];
      id: Zz__string.t option
        [@ocaml.doc "The unique identifier for the Asset."];
      packagingGroupId: Zz__string.t option
        [@ocaml.doc "The ID of the PackagingGroup for the Asset."];
      resourceId: Zz__string.t option
        [@ocaml.doc "The resource ID to include in SPEKE key requests."];
      sourceArn: Zz__string.t option
        [@ocaml.doc "ARN of the source object in S3."];
      sourceRoleArn: Zz__string.t option
        [@ocaml.doc "The IAM role ARN used to access the source S3 bucket."];
      tags: Tags.t option }
    let make ?arn =
      fun ?createdAt ->
        fun ?id ->
          fun ?packagingGroupId ->
            fun ?resourceId ->
              fun ?sourceArn ->
                fun ?sourceRoleArn ->
                  fun ?tags ->
                    fun () ->
                      {
                        arn;
                        createdAt;
                        id;
                        packagingGroupId;
                        resourceId;
                        sourceArn;
                        sourceRoleArn;
                        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));
        ("id", (Option.map x.id ~f:Zz__string.to_value));
        ("packagingGroupId",
          (Option.map x.packagingGroupId ~f:Zz__string.to_value));
        ("resourceId", (Option.map x.resourceId ~f:Zz__string.to_value));
        ("sourceArn", (Option.map x.sourceArn ~f:Zz__string.to_value));
        ("sourceRoleArn",
          (Option.map x.sourceRoleArn ~f:Zz__string.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 sourceRoleArn =
        (Option.map ~f:Zz__string.of_xml)
          (Xml.child xml_arg0 "sourceRoleArn") in
      let sourceArn =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "sourceArn") in
      let resourceId =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "resourceId") in
      let packagingGroupId =
        (Option.map ~f:Zz__string.of_xml)
          (Xml.child xml_arg0 "packagingGroupId") in
      let id = (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "id") 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 ?sourceRoleArn ?sourceArn ?resourceId ?packagingGroupId ?id
        ?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 sourceRoleArn = field_map json__ "SourceRoleArn" Zz__string.of_json in
      let sourceArn = field_map json__ "SourceArn" Zz__string.of_json in
      let resourceId = field_map json__ "ResourceId" Zz__string.of_json in
      let packagingGroupId =
        field_map json__ "PackagingGroupId" Zz__string.of_json in
      let id = field_map json__ "Id" 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 ?sourceRoleArn ?sourceArn ?resourceId ?packagingGroupId ?id
        ?createdAt ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A MediaPackage VOD Asset resource."]
module EgressEndpoint =
  struct
    type nonrec t =
      {
      packagingConfigurationId: Zz__string.t option
        [@ocaml.doc
          "The ID of the PackagingConfiguration being applied to the Asset."];
      status: Zz__string.t option
        [@ocaml.doc
          "The current processing status of the asset used for the packaging configuration. The status can be either QUEUED, PROCESSING, PLAYABLE, or FAILED. Status information won't be available for most assets ingested before 2021-09-30."];
      url: Zz__string.t option
        [@ocaml.doc
          "The URL of the parent manifest for the repackaged Asset."]}
    let make ?packagingConfigurationId =
      fun ?status ->
        fun ?url -> fun () -> { packagingConfigurationId; status; url }
    let to_value x =
      structure_to_value
        [("packagingConfigurationId",
           (Option.map x.packagingConfigurationId ~f:Zz__string.to_value));
        ("status", (Option.map x.status ~f:Zz__string.to_value));
        ("url", (Option.map x.url ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let url = (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "url") in
      let status =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "status") in
      let packagingConfigurationId =
        (Option.map ~f:Zz__string.of_xml)
          (Xml.child xml_arg0 "packagingConfigurationId") in
      make ?url ?status ?packagingConfigurationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let url = field_map json__ "Url" Zz__string.of_json in
      let status = field_map json__ "Status" Zz__string.of_json in
      let packagingConfigurationId =
        field_map json__ "PackagingConfigurationId" Zz__string.of_json in
      make ?url ?status ?packagingConfigurationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The endpoint URL used to access an Asset using one PackagingConfiguration."]
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 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__listOfPackagingGroup =
  struct
    type nonrec t = PackagingGroup.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:PackagingGroup.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:PackagingGroup.of_xml)
    let of_json j =
      list_of_json ~kind:"__listOfPackagingGroup"
        ~of_json:PackagingGroup.of_json j
    let to_json v = composed_to_json to_value v
  end
module Zz__listOfPackagingConfiguration =
  struct
    type nonrec t = PackagingConfiguration.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:PackagingConfiguration.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:PackagingConfiguration.of_xml)
    let of_json j =
      list_of_json ~kind:"__listOfPackagingConfiguration"
        ~of_json:PackagingConfiguration.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__listOfAssetShallow =
  struct
    type nonrec t = AssetShallow.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:AssetShallow.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:AssetShallow.of_xml)
    let of_json j =
      list_of_json ~kind:"__listOfAssetShallow" ~of_json:AssetShallow.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module Zz__listOfEgressEndpoint =
  struct
    type nonrec t = EgressEndpoint.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:EgressEndpoint.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:EgressEndpoint.of_xml)
    let of_json j =
      list_of_json ~kind:"__listOfEgressEndpoint"
        ~of_json:EgressEndpoint.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 UpdatePackagingGroupResponse =
  struct
    type nonrec t =
      {
      approximateAssetCount: Zz__integer.t option
        [@ocaml.doc "The approximate asset count of the PackagingGroup."];
      arn: Zz__string.t option [@ocaml.doc "The ARN of the PackagingGroup."];
      authorization: Authorization.t option ;
      createdAt: Zz__string.t option
        [@ocaml.doc "The time the PackagingGroup was created."];
      domainName: Zz__string.t option
        [@ocaml.doc
          "The fully qualified domain name for Assets in the PackagingGroup."];
      egressAccessLogs: EgressAccessLogs.t option ;
      id: Zz__string.t option [@ocaml.doc "The ID of the PackagingGroup."];
      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 ?approximateAssetCount =
      fun ?arn ->
        fun ?authorization ->
          fun ?createdAt ->
            fun ?domainName ->
              fun ?egressAccessLogs ->
                fun ?id ->
                  fun ?tags ->
                    fun () ->
                      {
                        approximateAssetCount;
                        arn;
                        authorization;
                        createdAt;
                        domainName;
                        egressAccessLogs;
                        id;
                        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
        [("approximateAssetCount",
           (Option.map x.approximateAssetCount ~f:Zz__integer.to_value));
        ("arn", (Option.map x.arn ~f:Zz__string.to_value));
        ("authorization",
          (Option.map x.authorization ~f:Authorization.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Zz__string.to_value));
        ("domainName", (Option.map x.domainName ~f:Zz__string.to_value));
        ("egressAccessLogs",
          (Option.map x.egressAccessLogs ~f:EgressAccessLogs.to_value));
        ("id", (Option.map x.id ~f:Zz__string.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 id = (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "id") in
      let egressAccessLogs =
        (Option.map ~f:EgressAccessLogs.of_xml)
          (Xml.child xml_arg0 "egressAccessLogs") in
      let domainName =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "domainName") in
      let createdAt =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "createdAt") 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
      let approximateAssetCount =
        (Option.map ~f:Zz__integer.of_xml)
          (Xml.child xml_arg0 "approximateAssetCount") in
      make ?tags ?id ?egressAccessLogs ?domainName ?createdAt ?authorization
        ?arn ?approximateAssetCount ()
    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 json__ "Id" Zz__string.of_json in
      let egressAccessLogs =
        field_map json__ "EgressAccessLogs" EgressAccessLogs.of_json in
      let domainName = field_map json__ "DomainName" Zz__string.of_json in
      let createdAt = field_map json__ "CreatedAt" 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
      let approximateAssetCount =
        field_map json__ "ApproximateAssetCount" Zz__integer.of_json in
      make ?tags ?id ?egressAccessLogs ?domainName ?createdAt ?authorization
        ?arn ?approximateAssetCount ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates a specific packaging group. You can't change the id attribute or any other system-generated attributes."]
module UpdatePackagingGroupRequest =
  struct
    type nonrec t =
      {
      authorization: Authorization.t option ;
      id: Zz__string.t
        [@ocaml.doc "The ID of a MediaPackage VOD PackagingGroup resource."]}
    let context_ = "UpdatePackagingGroupRequest"
    let make ?authorization = fun ~id -> fun () -> { authorization; id }
    let to_value x =
      structure_to_value
        [("authorization",
           (Option.map x.authorization ~f:Authorization.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 authorization =
        (Option.map ~f:Authorization.of_xml)
          (Xml.child xml_arg0 "authorization") in
      make ~id ?authorization ()
    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 authorization =
        field_map json__ "Authorization" Authorization.of_json in
      make ~id ?authorization ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A MediaPackage VOD PackagingGroup resource configuration."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: Zz__string.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the resource. You can get this from the response to any request to the resource."];
      tagKeys: Zz__listOf__string.t
        [@ocaml.doc
          "A comma-separated list of the tag keys to remove from the resource."]}
    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[@@ocaml.doc
       "Removes tags from the specified resource. You can specify one or more tags to remove."]
module TagsModel =
  struct
    type nonrec t =
      {
      tags: Zz__mapOf__string.t
        [@ocaml.doc "A collection of tags associated with a resource"]}
    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
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the resource. You can get this from the response to any request to the resource."];
      tags: Zz__mapOf__string.t
        [@ocaml.doc "A collection of tags associated with a resource"]}
    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[@@ocaml.doc
       "Adds tags to the specified resource. You can specify one or more tags to add."]
module PackagingGroupUpdateParameters =
  struct
    type nonrec t = {
      authorization: Authorization.t option }
    let make ?authorization = fun () -> { authorization }
    let to_value x =
      structure_to_value
        [("authorization",
           (Option.map x.authorization ~f:Authorization.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let authorization =
        (Option.map ~f:Authorization.of_xml)
          (Xml.child xml_arg0 "authorization") in
      make ?authorization ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let authorization =
        field_map json__ "Authorization" Authorization.of_json in
      make ?authorization ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameters used to update a MediaPackage packaging group."]
module PackagingGroupList =
  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."];
      packagingGroups: Zz__listOfPackagingGroup.t option
        [@ocaml.doc "A list of MediaPackage VOD PackagingGroup resources."]}
    let make ?nextToken =
      fun ?packagingGroups -> fun () -> { nextToken; packagingGroups }
    let to_value x =
      structure_to_value
        [("nextToken", (Option.map x.nextToken ~f:Zz__string.to_value));
        ("packagingGroups",
          (Option.map x.packagingGroups ~f:Zz__listOfPackagingGroup.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let packagingGroups =
        (Option.map ~f:Zz__listOfPackagingGroup.of_xml)
          (Xml.child xml_arg0 "packagingGroups") in
      let nextToken =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "nextToken") in
      make ?packagingGroups ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let packagingGroups =
        field_map json__ "PackagingGroups" Zz__listOfPackagingGroup.of_json in
      let nextToken = field_map json__ "NextToken" Zz__string.of_json in
      make ?packagingGroups ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A collection of MediaPackage VOD PackagingGroup resources."]
module PackagingGroupCreateParameters =
  struct
    type nonrec t =
      {
      authorization: Authorization.t option ;
      egressAccessLogs: EgressAccessLogs.t option ;
      id: Zz__string.t [@ocaml.doc "The ID of the PackagingGroup."];
      tags: Tags.t option }
    let context_ = "PackagingGroupCreateParameters"
    let make ?authorization =
      fun ?egressAccessLogs ->
        fun ?tags ->
          fun ~id -> fun () -> { authorization; egressAccessLogs; tags; id }
    let to_value x =
      structure_to_value
        [("authorization",
           (Option.map x.authorization ~f:Authorization.to_value));
        ("egressAccessLogs",
          (Option.map x.egressAccessLogs ~f:EgressAccessLogs.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 egressAccessLogs =
        (Option.map ~f:EgressAccessLogs.of_xml)
          (Xml.child xml_arg0 "egressAccessLogs") in
      let authorization =
        (Option.map ~f:Authorization.of_xml)
          (Xml.child xml_arg0 "authorization") in
      make ?tags ~id ?egressAccessLogs ?authorization ()
    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 egressAccessLogs =
        field_map json__ "EgressAccessLogs" EgressAccessLogs.of_json in
      let authorization =
        field_map json__ "Authorization" Authorization.of_json in
      make ?tags ~id ?egressAccessLogs ?authorization ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameters used to create a new MediaPackage VOD PackagingGroup resource."]
module PackagingConfigurationList =
  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."];
      packagingConfigurations: Zz__listOfPackagingConfiguration.t option
        [@ocaml.doc
          "A list of MediaPackage VOD PackagingConfiguration resources."]}
    let make ?nextToken =
      fun ?packagingConfigurations ->
        fun () -> { nextToken; packagingConfigurations }
    let to_value x =
      structure_to_value
        [("nextToken", (Option.map x.nextToken ~f:Zz__string.to_value));
        ("packagingConfigurations",
          (Option.map x.packagingConfigurations
             ~f:Zz__listOfPackagingConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let packagingConfigurations =
        (Option.map ~f:Zz__listOfPackagingConfiguration.of_xml)
          (Xml.child xml_arg0 "packagingConfigurations") in
      let nextToken =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "nextToken") in
      make ?packagingConfigurations ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let packagingConfigurations =
        field_map json__ "PackagingConfigurations"
          Zz__listOfPackagingConfiguration.of_json in
      let nextToken = field_map json__ "NextToken" Zz__string.of_json in
      make ?packagingConfigurations ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A collection of MediaPackage VOD PackagingConfiguration resources."]
module PackagingConfigurationCreateParameters =
  struct
    type nonrec t =
      {
      cmafPackage: CmafPackage.t option ;
      dashPackage: DashPackage.t option ;
      hlsPackage: HlsPackage.t option ;
      id: Zz__string.t [@ocaml.doc "The ID of the PackagingConfiguration."];
      mssPackage: MssPackage.t option ;
      packagingGroupId: Zz__string.t
        [@ocaml.doc "The ID of a PackagingGroup."];
      tags: Tags.t option }
    let context_ = "PackagingConfigurationCreateParameters"
    let make ?cmafPackage =
      fun ?dashPackage ->
        fun ?hlsPackage ->
          fun ?mssPackage ->
            fun ?tags ->
              fun ~id ->
                fun ~packagingGroupId ->
                  fun () ->
                    {
                      cmafPackage;
                      dashPackage;
                      hlsPackage;
                      mssPackage;
                      tags;
                      id;
                      packagingGroupId
                    }
    let to_value x =
      structure_to_value
        [("cmafPackage", (Option.map x.cmafPackage ~f:CmafPackage.to_value));
        ("dashPackage", (Option.map x.dashPackage ~f:DashPackage.to_value));
        ("hlsPackage", (Option.map x.hlsPackage ~f:HlsPackage.to_value));
        ("id", (Some (Zz__string.to_value x.id)));
        ("mssPackage", (Option.map x.mssPackage ~f:MssPackage.to_value));
        ("packagingGroupId", (Some (Zz__string.to_value x.packagingGroupId)));
        ("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 packagingGroupId =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "packagingGroupId") in
      let mssPackage =
        (Option.map ~f:MssPackage.of_xml) (Xml.child xml_arg0 "mssPackage") 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 dashPackage =
        (Option.map ~f:DashPackage.of_xml) (Xml.child xml_arg0 "dashPackage") in
      let cmafPackage =
        (Option.map ~f:CmafPackage.of_xml) (Xml.child xml_arg0 "cmafPackage") in
      make ?tags ~packagingGroupId ?mssPackage ~id ?hlsPackage ?dashPackage
        ?cmafPackage ()
    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 packagingGroupId =
        field_map_exn json__ "PackagingGroupId" Zz__string.of_json in
      let mssPackage = field_map json__ "MssPackage" MssPackage.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 dashPackage = field_map json__ "DashPackage" DashPackage.of_json in
      let cmafPackage = field_map json__ "CmafPackage" CmafPackage.of_json in
      make ?tags ~packagingGroupId ?mssPackage ~id ?hlsPackage ?dashPackage
        ?cmafPackage ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameters used to create a new MediaPackage VOD PackagingConfiguration resource."]
module ListTagsForResourceResponse =
  struct
    type nonrec t =
      {
      tags: Zz__mapOf__string.t option
        [@ocaml.doc "A collection of tags associated with a resource"]}
    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[@@ocaml.doc
       "Returns a list of the tags assigned to the specified resource."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: Zz__string.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the resource. You can get this from the response to any request to the resource."]}
    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[@@ocaml.doc
       "Returns a list of the tags assigned to the specified resource."]
module ListPackagingGroupsResponse =
  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."];
      packagingGroups: Zz__listOfPackagingGroup.t option
        [@ocaml.doc "A list of MediaPackage VOD PackagingGroup resources."]}
    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 ?packagingGroups -> fun () -> { nextToken; packagingGroups }
    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));
        ("packagingGroups",
          (Option.map x.packagingGroups ~f:Zz__listOfPackagingGroup.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let packagingGroups =
        (Option.map ~f:Zz__listOfPackagingGroup.of_xml)
          (Xml.child xml_arg0 "packagingGroups") in
      let nextToken =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "nextToken") in
      make ?packagingGroups ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let packagingGroups =
        field_map json__ "PackagingGroups" Zz__listOfPackagingGroup.of_json in
      let nextToken = field_map json__ "NextToken" Zz__string.of_json in
      make ?packagingGroups ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a collection of MediaPackage VOD PackagingGroup resources."]
module ListPackagingGroupsRequest =
  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 MediaPackage VOD PackagingGroup resources."]
module ListPackagingConfigurationsResponse =
  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."];
      packagingConfigurations: Zz__listOfPackagingConfiguration.t option
        [@ocaml.doc
          "A list of MediaPackage VOD PackagingConfiguration resources."]}
    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 ?packagingConfigurations ->
        fun () -> { nextToken; packagingConfigurations }
    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));
        ("packagingConfigurations",
          (Option.map x.packagingConfigurations
             ~f:Zz__listOfPackagingConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let packagingConfigurations =
        (Option.map ~f:Zz__listOfPackagingConfiguration.of_xml)
          (Xml.child xml_arg0 "packagingConfigurations") in
      let nextToken =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "nextToken") in
      make ?packagingConfigurations ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let packagingConfigurations =
        field_map json__ "PackagingConfigurations"
          Zz__listOfPackagingConfiguration.of_json in
      let nextToken = field_map json__ "NextToken" Zz__string.of_json in
      make ?packagingConfigurations ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a collection of MediaPackage VOD PackagingConfiguration resources."]
module ListPackagingConfigurationsRequest =
  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."];
      packagingGroupId: Zz__string.t option
        [@ocaml.doc
          "Returns MediaPackage VOD PackagingConfigurations associated with the specified PackagingGroup."]}
    let make ?maxResults =
      fun ?nextToken ->
        fun ?packagingGroupId ->
          fun () -> { maxResults; nextToken; packagingGroupId }
    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));
        ("packagingGroupId",
          (Option.map x.packagingGroupId ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let packagingGroupId =
        (Option.map ~f:Zz__string.of_xml)
          (Xml.child xml_arg0 "packagingGroupId") in
      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 ?packagingGroupId ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let packagingGroupId =
        field_map json__ "PackagingGroupId" Zz__string.of_json in
      let nextToken = field_map json__ "NextToken" Zz__string.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      make ?packagingGroupId ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a collection of MediaPackage VOD PackagingConfiguration resources."]
module ListAssetsResponse =
  struct
    type nonrec t =
      {
      assets: Zz__listOfAssetShallow.t option
        [@ocaml.doc "A list of MediaPackage VOD Asset resources."];
      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 ?assets = fun ?nextToken -> fun () -> { assets; 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
        [("assets", (Option.map x.assets ~f:Zz__listOfAssetShallow.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 assets =
        (Option.map ~f:Zz__listOfAssetShallow.of_xml)
          (Xml.child xml_arg0 "assets") in
      make ?nextToken ?assets ()
    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 assets = field_map json__ "Assets" Zz__listOfAssetShallow.of_json in
      make ?nextToken ?assets ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a collection of MediaPackage VOD Asset resources."]
module ListAssetsRequest =
  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."];
      packagingGroupId: Zz__string.t option
        [@ocaml.doc
          "Returns Assets associated with the specified PackagingGroup."]}
    let make ?maxResults =
      fun ?nextToken ->
        fun ?packagingGroupId ->
          fun () -> { maxResults; nextToken; packagingGroupId }
    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));
        ("packagingGroupId",
          (Option.map x.packagingGroupId ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let packagingGroupId =
        (Option.map ~f:Zz__string.of_xml)
          (Xml.child xml_arg0 "packagingGroupId") in
      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 ?packagingGroupId ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let packagingGroupId =
        field_map json__ "PackagingGroupId" Zz__string.of_json in
      let nextToken = field_map json__ "NextToken" Zz__string.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      make ?packagingGroupId ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a collection of MediaPackage VOD Asset resources."]
module DescribePackagingGroupResponse =
  struct
    type nonrec t =
      {
      approximateAssetCount: Zz__integer.t option
        [@ocaml.doc "The approximate asset count of the PackagingGroup."];
      arn: Zz__string.t option [@ocaml.doc "The ARN of the PackagingGroup."];
      authorization: Authorization.t option ;
      createdAt: Zz__string.t option
        [@ocaml.doc "The time the PackagingGroup was created."];
      domainName: Zz__string.t option
        [@ocaml.doc
          "The fully qualified domain name for Assets in the PackagingGroup."];
      egressAccessLogs: EgressAccessLogs.t option ;
      id: Zz__string.t option [@ocaml.doc "The ID of the PackagingGroup."];
      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 ?approximateAssetCount =
      fun ?arn ->
        fun ?authorization ->
          fun ?createdAt ->
            fun ?domainName ->
              fun ?egressAccessLogs ->
                fun ?id ->
                  fun ?tags ->
                    fun () ->
                      {
                        approximateAssetCount;
                        arn;
                        authorization;
                        createdAt;
                        domainName;
                        egressAccessLogs;
                        id;
                        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
        [("approximateAssetCount",
           (Option.map x.approximateAssetCount ~f:Zz__integer.to_value));
        ("arn", (Option.map x.arn ~f:Zz__string.to_value));
        ("authorization",
          (Option.map x.authorization ~f:Authorization.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Zz__string.to_value));
        ("domainName", (Option.map x.domainName ~f:Zz__string.to_value));
        ("egressAccessLogs",
          (Option.map x.egressAccessLogs ~f:EgressAccessLogs.to_value));
        ("id", (Option.map x.id ~f:Zz__string.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 id = (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "id") in
      let egressAccessLogs =
        (Option.map ~f:EgressAccessLogs.of_xml)
          (Xml.child xml_arg0 "egressAccessLogs") in
      let domainName =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "domainName") in
      let createdAt =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "createdAt") 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
      let approximateAssetCount =
        (Option.map ~f:Zz__integer.of_xml)
          (Xml.child xml_arg0 "approximateAssetCount") in
      make ?tags ?id ?egressAccessLogs ?domainName ?createdAt ?authorization
        ?arn ?approximateAssetCount ()
    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 json__ "Id" Zz__string.of_json in
      let egressAccessLogs =
        field_map json__ "EgressAccessLogs" EgressAccessLogs.of_json in
      let domainName = field_map json__ "DomainName" Zz__string.of_json in
      let createdAt = field_map json__ "CreatedAt" 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
      let approximateAssetCount =
        field_map json__ "ApproximateAssetCount" Zz__integer.of_json in
      make ?tags ?id ?egressAccessLogs ?domainName ?createdAt ?authorization
        ?arn ?approximateAssetCount ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a description of a MediaPackage VOD PackagingGroup resource."]
module DescribePackagingGroupRequest =
  struct
    type nonrec t =
      {
      id: Zz__string.t
        [@ocaml.doc "The ID of a MediaPackage VOD PackagingGroup resource."]}
    let context_ = "DescribePackagingGroupRequest"
    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
       "Returns a description of a MediaPackage VOD PackagingGroup resource."]
module DescribePackagingConfigurationResponse =
  struct
    type nonrec t =
      {
      arn: Zz__string.t option
        [@ocaml.doc "The ARN of the PackagingConfiguration."];
      cmafPackage: CmafPackage.t option ;
      createdAt: Zz__string.t option
        [@ocaml.doc "The time the PackagingConfiguration was created."];
      dashPackage: DashPackage.t option ;
      hlsPackage: HlsPackage.t option ;
      id: Zz__string.t option
        [@ocaml.doc "The ID of the PackagingConfiguration."];
      mssPackage: MssPackage.t option ;
      packagingGroupId: Zz__string.t option
        [@ocaml.doc "The ID of a PackagingGroup."];
      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 ?cmafPackage ->
        fun ?createdAt ->
          fun ?dashPackage ->
            fun ?hlsPackage ->
              fun ?id ->
                fun ?mssPackage ->
                  fun ?packagingGroupId ->
                    fun ?tags ->
                      fun () ->
                        {
                          arn;
                          cmafPackage;
                          createdAt;
                          dashPackage;
                          hlsPackage;
                          id;
                          mssPackage;
                          packagingGroupId;
                          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));
        ("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));
        ("hlsPackage", (Option.map x.hlsPackage ~f:HlsPackage.to_value));
        ("id", (Option.map x.id ~f:Zz__string.to_value));
        ("mssPackage", (Option.map x.mssPackage ~f:MssPackage.to_value));
        ("packagingGroupId",
          (Option.map x.packagingGroupId ~f:Zz__string.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 packagingGroupId =
        (Option.map ~f:Zz__string.of_xml)
          (Xml.child xml_arg0 "packagingGroupId") in
      let mssPackage =
        (Option.map ~f:MssPackage.of_xml) (Xml.child xml_arg0 "mssPackage") 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 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 arn = (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "arn") in
      make ?tags ?packagingGroupId ?mssPackage ?id ?hlsPackage ?dashPackage
        ?createdAt ?cmafPackage ?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 packagingGroupId =
        field_map json__ "PackagingGroupId" Zz__string.of_json in
      let mssPackage = field_map json__ "MssPackage" MssPackage.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 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 arn = field_map json__ "Arn" Zz__string.of_json in
      make ?tags ?packagingGroupId ?mssPackage ?id ?hlsPackage ?dashPackage
        ?createdAt ?cmafPackage ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a description of a MediaPackage VOD PackagingConfiguration resource."]
module DescribePackagingConfigurationRequest =
  struct
    type nonrec t =
      {
      id: Zz__string.t
        [@ocaml.doc
          "The ID of a MediaPackage VOD PackagingConfiguration resource."]}
    let context_ = "DescribePackagingConfigurationRequest"
    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
       "Returns a description of a MediaPackage VOD PackagingConfiguration resource."]
module DescribeAssetResponse =
  struct
    type nonrec t =
      {
      arn: Zz__string.t option [@ocaml.doc "The ARN of the Asset."];
      createdAt: Zz__string.t option
        [@ocaml.doc "The time the Asset was initially submitted for Ingest."];
      egressEndpoints: Zz__listOfEgressEndpoint.t option
        [@ocaml.doc "The list of egress endpoints available for the Asset."];
      id: Zz__string.t option
        [@ocaml.doc "The unique identifier for the Asset."];
      packagingGroupId: Zz__string.t option
        [@ocaml.doc "The ID of the PackagingGroup for the Asset."];
      resourceId: Zz__string.t option
        [@ocaml.doc "The resource ID to include in SPEKE key requests."];
      sourceArn: Zz__string.t option
        [@ocaml.doc "ARN of the source object in S3."];
      sourceRoleArn: Zz__string.t option
        [@ocaml.doc "The IAM role_arn used to access the source S3 bucket."];
      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 ?egressEndpoints ->
          fun ?id ->
            fun ?packagingGroupId ->
              fun ?resourceId ->
                fun ?sourceArn ->
                  fun ?sourceRoleArn ->
                    fun ?tags ->
                      fun () ->
                        {
                          arn;
                          createdAt;
                          egressEndpoints;
                          id;
                          packagingGroupId;
                          resourceId;
                          sourceArn;
                          sourceRoleArn;
                          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));
        ("egressEndpoints",
          (Option.map x.egressEndpoints ~f:Zz__listOfEgressEndpoint.to_value));
        ("id", (Option.map x.id ~f:Zz__string.to_value));
        ("packagingGroupId",
          (Option.map x.packagingGroupId ~f:Zz__string.to_value));
        ("resourceId", (Option.map x.resourceId ~f:Zz__string.to_value));
        ("sourceArn", (Option.map x.sourceArn ~f:Zz__string.to_value));
        ("sourceRoleArn",
          (Option.map x.sourceRoleArn ~f:Zz__string.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 sourceRoleArn =
        (Option.map ~f:Zz__string.of_xml)
          (Xml.child xml_arg0 "sourceRoleArn") in
      let sourceArn =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "sourceArn") in
      let resourceId =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "resourceId") in
      let packagingGroupId =
        (Option.map ~f:Zz__string.of_xml)
          (Xml.child xml_arg0 "packagingGroupId") in
      let id = (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "id") in
      let egressEndpoints =
        (Option.map ~f:Zz__listOfEgressEndpoint.of_xml)
          (Xml.child xml_arg0 "egressEndpoints") 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 ?sourceRoleArn ?sourceArn ?resourceId ?packagingGroupId ?id
        ?egressEndpoints ?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 sourceRoleArn = field_map json__ "SourceRoleArn" Zz__string.of_json in
      let sourceArn = field_map json__ "SourceArn" Zz__string.of_json in
      let resourceId = field_map json__ "ResourceId" Zz__string.of_json in
      let packagingGroupId =
        field_map json__ "PackagingGroupId" Zz__string.of_json in
      let id = field_map json__ "Id" Zz__string.of_json in
      let egressEndpoints =
        field_map json__ "EgressEndpoints" Zz__listOfEgressEndpoint.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 ?sourceRoleArn ?sourceArn ?resourceId ?packagingGroupId ?id
        ?egressEndpoints ?createdAt ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a description of a MediaPackage VOD Asset resource."]
module DescribeAssetRequest =
  struct
    type nonrec t =
      {
      id: Zz__string.t
        [@ocaml.doc "The ID of an MediaPackage VOD Asset resource."]}
    let context_ = "DescribeAssetRequest"
    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
       "Returns a description of a MediaPackage VOD Asset resource."]
module DeletePackagingGroupResponse =
  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 a MediaPackage VOD PackagingGroup resource."]
module DeletePackagingGroupRequest =
  struct
    type nonrec t =
      {
      id: Zz__string.t
        [@ocaml.doc
          "The ID of the MediaPackage VOD PackagingGroup resource to delete."]}
    let context_ = "DeletePackagingGroupRequest"
    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 a MediaPackage VOD PackagingGroup resource."]
module DeletePackagingConfigurationResponse =
  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 a MediaPackage VOD PackagingConfiguration resource."]
module DeletePackagingConfigurationRequest =
  struct
    type nonrec t =
      {
      id: Zz__string.t
        [@ocaml.doc
          "The ID of the MediaPackage VOD PackagingConfiguration resource to delete."]}
    let context_ = "DeletePackagingConfigurationRequest"
    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 a MediaPackage VOD PackagingConfiguration resource."]
module DeleteAssetResponse =
  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 MediaPackage VOD Asset resource."]
module DeleteAssetRequest =
  struct
    type nonrec t =
      {
      id: Zz__string.t
        [@ocaml.doc
          "The ID of the MediaPackage VOD Asset resource to delete."]}
    let context_ = "DeleteAssetRequest"
    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 MediaPackage VOD Asset resource."]
module CreatePackagingGroupResponse =
  struct
    type nonrec t =
      {
      arn: Zz__string.t option [@ocaml.doc "The ARN of the PackagingGroup."];
      authorization: Authorization.t option ;
      createdAt: Zz__string.t option
        [@ocaml.doc "The time the PackagingGroup was created."];
      domainName: Zz__string.t option
        [@ocaml.doc
          "The fully qualified domain name for Assets in the PackagingGroup."];
      egressAccessLogs: EgressAccessLogs.t option ;
      id: Zz__string.t option [@ocaml.doc "The ID of the PackagingGroup."];
      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 ?authorization ->
        fun ?createdAt ->
          fun ?domainName ->
            fun ?egressAccessLogs ->
              fun ?id ->
                fun ?tags ->
                  fun () ->
                    {
                      arn;
                      authorization;
                      createdAt;
                      domainName;
                      egressAccessLogs;
                      id;
                      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));
        ("authorization",
          (Option.map x.authorization ~f:Authorization.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Zz__string.to_value));
        ("domainName", (Option.map x.domainName ~f:Zz__string.to_value));
        ("egressAccessLogs",
          (Option.map x.egressAccessLogs ~f:EgressAccessLogs.to_value));
        ("id", (Option.map x.id ~f:Zz__string.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 id = (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "id") in
      let egressAccessLogs =
        (Option.map ~f:EgressAccessLogs.of_xml)
          (Xml.child xml_arg0 "egressAccessLogs") in
      let domainName =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "domainName") in
      let createdAt =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "createdAt") 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 ?tags ?id ?egressAccessLogs ?domainName ?createdAt ?authorization
        ?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 id = field_map json__ "Id" Zz__string.of_json in
      let egressAccessLogs =
        field_map json__ "EgressAccessLogs" EgressAccessLogs.of_json in
      let domainName = field_map json__ "DomainName" Zz__string.of_json in
      let createdAt = field_map json__ "CreatedAt" 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 ?tags ?id ?egressAccessLogs ?domainName ?createdAt ?authorization
        ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a new MediaPackage VOD PackagingGroup resource."]
module CreatePackagingGroupRequest =
  struct
    type nonrec t =
      {
      authorization: Authorization.t option ;
      egressAccessLogs: EgressAccessLogs.t option ;
      id: Zz__string.t [@ocaml.doc "The ID of the PackagingGroup."];
      tags: Tags.t option }
    let context_ = "CreatePackagingGroupRequest"
    let make ?authorization =
      fun ?egressAccessLogs ->
        fun ?tags ->
          fun ~id -> fun () -> { authorization; egressAccessLogs; tags; id }
    let to_value x =
      structure_to_value
        [("authorization",
           (Option.map x.authorization ~f:Authorization.to_value));
        ("egressAccessLogs",
          (Option.map x.egressAccessLogs ~f:EgressAccessLogs.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 egressAccessLogs =
        (Option.map ~f:EgressAccessLogs.of_xml)
          (Xml.child xml_arg0 "egressAccessLogs") in
      let authorization =
        (Option.map ~f:Authorization.of_xml)
          (Xml.child xml_arg0 "authorization") in
      make ?tags ~id ?egressAccessLogs ?authorization ()
    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 egressAccessLogs =
        field_map json__ "EgressAccessLogs" EgressAccessLogs.of_json in
      let authorization =
        field_map json__ "Authorization" Authorization.of_json in
      make ?tags ~id ?egressAccessLogs ?authorization ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A new MediaPackage VOD PackagingGroup resource configuration."]
module CreatePackagingConfigurationResponse =
  struct
    type nonrec t =
      {
      arn: Zz__string.t option
        [@ocaml.doc "The ARN of the PackagingConfiguration."];
      cmafPackage: CmafPackage.t option ;
      createdAt: Zz__string.t option
        [@ocaml.doc "The time the PackagingConfiguration was created."];
      dashPackage: DashPackage.t option ;
      hlsPackage: HlsPackage.t option ;
      id: Zz__string.t option
        [@ocaml.doc "The ID of the PackagingConfiguration."];
      mssPackage: MssPackage.t option ;
      packagingGroupId: Zz__string.t option
        [@ocaml.doc "The ID of a PackagingGroup."];
      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 ?cmafPackage ->
        fun ?createdAt ->
          fun ?dashPackage ->
            fun ?hlsPackage ->
              fun ?id ->
                fun ?mssPackage ->
                  fun ?packagingGroupId ->
                    fun ?tags ->
                      fun () ->
                        {
                          arn;
                          cmafPackage;
                          createdAt;
                          dashPackage;
                          hlsPackage;
                          id;
                          mssPackage;
                          packagingGroupId;
                          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));
        ("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));
        ("hlsPackage", (Option.map x.hlsPackage ~f:HlsPackage.to_value));
        ("id", (Option.map x.id ~f:Zz__string.to_value));
        ("mssPackage", (Option.map x.mssPackage ~f:MssPackage.to_value));
        ("packagingGroupId",
          (Option.map x.packagingGroupId ~f:Zz__string.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 packagingGroupId =
        (Option.map ~f:Zz__string.of_xml)
          (Xml.child xml_arg0 "packagingGroupId") in
      let mssPackage =
        (Option.map ~f:MssPackage.of_xml) (Xml.child xml_arg0 "mssPackage") 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 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 arn = (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "arn") in
      make ?tags ?packagingGroupId ?mssPackage ?id ?hlsPackage ?dashPackage
        ?createdAt ?cmafPackage ?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 packagingGroupId =
        field_map json__ "PackagingGroupId" Zz__string.of_json in
      let mssPackage = field_map json__ "MssPackage" MssPackage.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 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 arn = field_map json__ "Arn" Zz__string.of_json in
      make ?tags ?packagingGroupId ?mssPackage ?id ?hlsPackage ?dashPackage
        ?createdAt ?cmafPackage ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new MediaPackage VOD PackagingConfiguration resource."]
module CreatePackagingConfigurationRequest =
  struct
    type nonrec t =
      {
      cmafPackage: CmafPackage.t option ;
      dashPackage: DashPackage.t option ;
      hlsPackage: HlsPackage.t option ;
      id: Zz__string.t [@ocaml.doc "The ID of the PackagingConfiguration."];
      mssPackage: MssPackage.t option ;
      packagingGroupId: Zz__string.t
        [@ocaml.doc "The ID of a PackagingGroup."];
      tags: Tags.t option }
    let context_ = "CreatePackagingConfigurationRequest"
    let make ?cmafPackage =
      fun ?dashPackage ->
        fun ?hlsPackage ->
          fun ?mssPackage ->
            fun ?tags ->
              fun ~id ->
                fun ~packagingGroupId ->
                  fun () ->
                    {
                      cmafPackage;
                      dashPackage;
                      hlsPackage;
                      mssPackage;
                      tags;
                      id;
                      packagingGroupId
                    }
    let to_value x =
      structure_to_value
        [("cmafPackage", (Option.map x.cmafPackage ~f:CmafPackage.to_value));
        ("dashPackage", (Option.map x.dashPackage ~f:DashPackage.to_value));
        ("hlsPackage", (Option.map x.hlsPackage ~f:HlsPackage.to_value));
        ("id", (Some (Zz__string.to_value x.id)));
        ("mssPackage", (Option.map x.mssPackage ~f:MssPackage.to_value));
        ("packagingGroupId", (Some (Zz__string.to_value x.packagingGroupId)));
        ("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 packagingGroupId =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "packagingGroupId") in
      let mssPackage =
        (Option.map ~f:MssPackage.of_xml) (Xml.child xml_arg0 "mssPackage") 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 dashPackage =
        (Option.map ~f:DashPackage.of_xml) (Xml.child xml_arg0 "dashPackage") in
      let cmafPackage =
        (Option.map ~f:CmafPackage.of_xml) (Xml.child xml_arg0 "cmafPackage") in
      make ?tags ~packagingGroupId ?mssPackage ~id ?hlsPackage ?dashPackage
        ?cmafPackage ()
    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 packagingGroupId =
        field_map_exn json__ "PackagingGroupId" Zz__string.of_json in
      let mssPackage = field_map json__ "MssPackage" MssPackage.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 dashPackage = field_map json__ "DashPackage" DashPackage.of_json in
      let cmafPackage = field_map json__ "CmafPackage" CmafPackage.of_json in
      make ?tags ~packagingGroupId ?mssPackage ~id ?hlsPackage ?dashPackage
        ?cmafPackage ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A new MediaPackage VOD PackagingConfiguration resource configuration."]
module CreateAssetResponse =
  struct
    type nonrec t =
      {
      arn: Zz__string.t option [@ocaml.doc "The ARN of the Asset."];
      createdAt: Zz__string.t option
        [@ocaml.doc "The time the Asset was initially submitted for Ingest."];
      egressEndpoints: Zz__listOfEgressEndpoint.t option
        [@ocaml.doc "The list of egress endpoints available for the Asset."];
      id: Zz__string.t option
        [@ocaml.doc "The unique identifier for the Asset."];
      packagingGroupId: Zz__string.t option
        [@ocaml.doc "The ID of the PackagingGroup for the Asset."];
      resourceId: Zz__string.t option
        [@ocaml.doc "The resource ID to include in SPEKE key requests."];
      sourceArn: Zz__string.t option
        [@ocaml.doc "ARN of the source object in S3."];
      sourceRoleArn: Zz__string.t option
        [@ocaml.doc "The IAM role_arn used to access the source S3 bucket."];
      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 ?egressEndpoints ->
          fun ?id ->
            fun ?packagingGroupId ->
              fun ?resourceId ->
                fun ?sourceArn ->
                  fun ?sourceRoleArn ->
                    fun ?tags ->
                      fun () ->
                        {
                          arn;
                          createdAt;
                          egressEndpoints;
                          id;
                          packagingGroupId;
                          resourceId;
                          sourceArn;
                          sourceRoleArn;
                          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));
        ("egressEndpoints",
          (Option.map x.egressEndpoints ~f:Zz__listOfEgressEndpoint.to_value));
        ("id", (Option.map x.id ~f:Zz__string.to_value));
        ("packagingGroupId",
          (Option.map x.packagingGroupId ~f:Zz__string.to_value));
        ("resourceId", (Option.map x.resourceId ~f:Zz__string.to_value));
        ("sourceArn", (Option.map x.sourceArn ~f:Zz__string.to_value));
        ("sourceRoleArn",
          (Option.map x.sourceRoleArn ~f:Zz__string.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 sourceRoleArn =
        (Option.map ~f:Zz__string.of_xml)
          (Xml.child xml_arg0 "sourceRoleArn") in
      let sourceArn =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "sourceArn") in
      let resourceId =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "resourceId") in
      let packagingGroupId =
        (Option.map ~f:Zz__string.of_xml)
          (Xml.child xml_arg0 "packagingGroupId") in
      let id = (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "id") in
      let egressEndpoints =
        (Option.map ~f:Zz__listOfEgressEndpoint.of_xml)
          (Xml.child xml_arg0 "egressEndpoints") 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 ?sourceRoleArn ?sourceArn ?resourceId ?packagingGroupId ?id
        ?egressEndpoints ?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 sourceRoleArn = field_map json__ "SourceRoleArn" Zz__string.of_json in
      let sourceArn = field_map json__ "SourceArn" Zz__string.of_json in
      let resourceId = field_map json__ "ResourceId" Zz__string.of_json in
      let packagingGroupId =
        field_map json__ "PackagingGroupId" Zz__string.of_json in
      let id = field_map json__ "Id" Zz__string.of_json in
      let egressEndpoints =
        field_map json__ "EgressEndpoints" Zz__listOfEgressEndpoint.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 ?sourceRoleArn ?sourceArn ?resourceId ?packagingGroupId ?id
        ?egressEndpoints ?createdAt ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a new MediaPackage VOD Asset resource."]
module CreateAssetRequest =
  struct
    type nonrec t =
      {
      id: Zz__string.t [@ocaml.doc "The unique identifier for the Asset."];
      packagingGroupId: Zz__string.t
        [@ocaml.doc "The ID of the PackagingGroup for the Asset."];
      resourceId: Zz__string.t option
        [@ocaml.doc "The resource ID to include in SPEKE key requests."];
      sourceArn: Zz__string.t [@ocaml.doc "ARN of the source object in S3."];
      sourceRoleArn: Zz__string.t
        [@ocaml.doc "The IAM role ARN used to access the source S3 bucket."];
      tags: Tags.t option }
    let context_ = "CreateAssetRequest"
    let make ?resourceId =
      fun ?tags ->
        fun ~id ->
          fun ~packagingGroupId ->
            fun ~sourceArn ->
              fun ~sourceRoleArn ->
                fun () ->
                  {
                    resourceId;
                    tags;
                    id;
                    packagingGroupId;
                    sourceArn;
                    sourceRoleArn
                  }
    let to_value x =
      structure_to_value
        [("id", (Some (Zz__string.to_value x.id)));
        ("packagingGroupId", (Some (Zz__string.to_value x.packagingGroupId)));
        ("resourceId", (Option.map x.resourceId ~f:Zz__string.to_value));
        ("sourceArn", (Some (Zz__string.to_value x.sourceArn)));
        ("sourceRoleArn", (Some (Zz__string.to_value x.sourceRoleArn)));
        ("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 sourceRoleArn =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sourceRoleArn") in
      let sourceArn =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sourceArn") in
      let resourceId =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "resourceId") in
      let packagingGroupId =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "packagingGroupId") in
      let id =
        Zz__string.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      make ?tags ~sourceRoleArn ~sourceArn ?resourceId ~packagingGroupId ~id
        ()
    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 sourceRoleArn =
        field_map_exn json__ "SourceRoleArn" Zz__string.of_json in
      let sourceArn = field_map_exn json__ "SourceArn" Zz__string.of_json in
      let resourceId = field_map json__ "ResourceId" Zz__string.of_json in
      let packagingGroupId =
        field_map_exn json__ "PackagingGroupId" Zz__string.of_json in
      let id = field_map_exn json__ "Id" Zz__string.of_json in
      make ?tags ~sourceRoleArn ~sourceArn ?resourceId ~packagingGroupId ~id
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A new MediaPackage VOD Asset configuration."]
module ConfigureLogsResponse =
  struct
    type nonrec t =
      {
      arn: Zz__string.t option [@ocaml.doc "The ARN of the PackagingGroup."];
      authorization: Authorization.t option ;
      createdAt: Zz__string.t option
        [@ocaml.doc "The time the PackagingGroup was created."];
      domainName: Zz__string.t option
        [@ocaml.doc
          "The fully qualified domain name for Assets in the PackagingGroup."];
      egressAccessLogs: EgressAccessLogs.t option ;
      id: Zz__string.t option [@ocaml.doc "The ID of the PackagingGroup."];
      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 ?authorization ->
        fun ?createdAt ->
          fun ?domainName ->
            fun ?egressAccessLogs ->
              fun ?id ->
                fun ?tags ->
                  fun () ->
                    {
                      arn;
                      authorization;
                      createdAt;
                      domainName;
                      egressAccessLogs;
                      id;
                      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));
        ("authorization",
          (Option.map x.authorization ~f:Authorization.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Zz__string.to_value));
        ("domainName", (Option.map x.domainName ~f:Zz__string.to_value));
        ("egressAccessLogs",
          (Option.map x.egressAccessLogs ~f:EgressAccessLogs.to_value));
        ("id", (Option.map x.id ~f:Zz__string.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 id = (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "id") in
      let egressAccessLogs =
        (Option.map ~f:EgressAccessLogs.of_xml)
          (Xml.child xml_arg0 "egressAccessLogs") in
      let domainName =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "domainName") in
      let createdAt =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "createdAt") 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 ?tags ?id ?egressAccessLogs ?domainName ?createdAt ?authorization
        ?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 id = field_map json__ "Id" Zz__string.of_json in
      let egressAccessLogs =
        field_map json__ "EgressAccessLogs" EgressAccessLogs.of_json in
      let domainName = field_map json__ "DomainName" Zz__string.of_json in
      let createdAt = field_map json__ "CreatedAt" 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 ?tags ?id ?egressAccessLogs ?domainName ?createdAt ?authorization
        ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Changes the packaging group'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 a MediaPackage VOD PackagingGroup resource."]}
    let context_ = "ConfigureLogsRequest"
    let make ?egressAccessLogs =
      fun ~id -> fun () -> { egressAccessLogs; 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)))]
    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 egressAccessLogs =
        (Option.map ~f:EgressAccessLogs.of_xml)
          (Xml.child xml_arg0 "egressAccessLogs") in
      make ~id ?egressAccessLogs ()
    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 egressAccessLogs =
        field_map json__ "EgressAccessLogs" EgressAccessLogs.of_json in
      make ~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 }
    let make ?egressAccessLogs = fun () -> { egressAccessLogs }
    let to_value x =
      structure_to_value
        [("egressAccessLogs",
           (Option.map x.egressAccessLogs ~f:EgressAccessLogs.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let egressAccessLogs =
        (Option.map ~f:EgressAccessLogs.of_xml)
          (Xml.child xml_arg0 "egressAccessLogs") in
      make ?egressAccessLogs ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let egressAccessLogs =
        field_map json__ "EgressAccessLogs" EgressAccessLogs.of_json in
      make ?egressAccessLogs ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The configuration parameters for egress access logging."]
module AssetList =
  struct
    type nonrec t =
      {
      assets: Zz__listOfAssetShallow.t option
        [@ocaml.doc "A list of MediaPackage VOD Asset resources."];
      nextToken: Zz__string.t option
        [@ocaml.doc
          "A token that can be used to resume pagination from the end of the collection."]}
    let make ?assets = fun ?nextToken -> fun () -> { assets; nextToken }
    let to_value x =
      structure_to_value
        [("assets", (Option.map x.assets ~f:Zz__listOfAssetShallow.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 assets =
        (Option.map ~f:Zz__listOfAssetShallow.of_xml)
          (Xml.child xml_arg0 "assets") in
      make ?nextToken ?assets ()
    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 assets = field_map json__ "Assets" Zz__listOfAssetShallow.of_json in
      make ?nextToken ?assets ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A collection of MediaPackage VOD Asset resources."]
module AssetCreateParameters =
  struct
    type nonrec t =
      {
      id: Zz__string.t [@ocaml.doc "The unique identifier for the Asset."];
      packagingGroupId: Zz__string.t
        [@ocaml.doc "The ID of the PackagingGroup for the Asset."];
      resourceId: Zz__string.t option
        [@ocaml.doc "The resource ID to include in SPEKE key requests."];
      sourceArn: Zz__string.t [@ocaml.doc "ARN of the source object in S3."];
      sourceRoleArn: Zz__string.t
        [@ocaml.doc "The IAM role ARN used to access the source S3 bucket."];
      tags: Tags.t option }
    let context_ = "AssetCreateParameters"
    let make ?resourceId =
      fun ?tags ->
        fun ~id ->
          fun ~packagingGroupId ->
            fun ~sourceArn ->
              fun ~sourceRoleArn ->
                fun () ->
                  {
                    resourceId;
                    tags;
                    id;
                    packagingGroupId;
                    sourceArn;
                    sourceRoleArn
                  }
    let to_value x =
      structure_to_value
        [("id", (Some (Zz__string.to_value x.id)));
        ("packagingGroupId", (Some (Zz__string.to_value x.packagingGroupId)));
        ("resourceId", (Option.map x.resourceId ~f:Zz__string.to_value));
        ("sourceArn", (Some (Zz__string.to_value x.sourceArn)));
        ("sourceRoleArn", (Some (Zz__string.to_value x.sourceRoleArn)));
        ("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 sourceRoleArn =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sourceRoleArn") in
      let sourceArn =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sourceArn") in
      let resourceId =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "resourceId") in
      let packagingGroupId =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "packagingGroupId") in
      let id =
        Zz__string.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      make ?tags ~sourceRoleArn ~sourceArn ?resourceId ~packagingGroupId ~id
        ()
    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 sourceRoleArn =
        field_map_exn json__ "SourceRoleArn" Zz__string.of_json in
      let sourceArn = field_map_exn json__ "SourceArn" Zz__string.of_json in
      let resourceId = field_map json__ "ResourceId" Zz__string.of_json in
      let packagingGroupId =
        field_map_exn json__ "PackagingGroupId" Zz__string.of_json in
      let id = field_map_exn json__ "Id" Zz__string.of_json in
      make ?tags ~sourceRoleArn ~sourceArn ?resourceId ~packagingGroupId ~id
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Parameters used to create a MediaPackage VOD Asset."]
module Asset =
  struct
    type nonrec t =
      {
      arn: Zz__string.t option [@ocaml.doc "The ARN of the Asset."];
      createdAt: Zz__string.t option
        [@ocaml.doc "The time the Asset was initially submitted for Ingest."];
      egressEndpoints: Zz__listOfEgressEndpoint.t option
        [@ocaml.doc "The list of egress endpoints available for the Asset."];
      id: Zz__string.t option
        [@ocaml.doc "The unique identifier for the Asset."];
      packagingGroupId: Zz__string.t option
        [@ocaml.doc "The ID of the PackagingGroup for the Asset."];
      resourceId: Zz__string.t option
        [@ocaml.doc "The resource ID to include in SPEKE key requests."];
      sourceArn: Zz__string.t option
        [@ocaml.doc "ARN of the source object in S3."];
      sourceRoleArn: Zz__string.t option
        [@ocaml.doc "The IAM role_arn used to access the source S3 bucket."];
      tags: Tags.t option }
    let make ?arn =
      fun ?createdAt ->
        fun ?egressEndpoints ->
          fun ?id ->
            fun ?packagingGroupId ->
              fun ?resourceId ->
                fun ?sourceArn ->
                  fun ?sourceRoleArn ->
                    fun ?tags ->
                      fun () ->
                        {
                          arn;
                          createdAt;
                          egressEndpoints;
                          id;
                          packagingGroupId;
                          resourceId;
                          sourceArn;
                          sourceRoleArn;
                          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));
        ("egressEndpoints",
          (Option.map x.egressEndpoints ~f:Zz__listOfEgressEndpoint.to_value));
        ("id", (Option.map x.id ~f:Zz__string.to_value));
        ("packagingGroupId",
          (Option.map x.packagingGroupId ~f:Zz__string.to_value));
        ("resourceId", (Option.map x.resourceId ~f:Zz__string.to_value));
        ("sourceArn", (Option.map x.sourceArn ~f:Zz__string.to_value));
        ("sourceRoleArn",
          (Option.map x.sourceRoleArn ~f:Zz__string.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 sourceRoleArn =
        (Option.map ~f:Zz__string.of_xml)
          (Xml.child xml_arg0 "sourceRoleArn") in
      let sourceArn =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "sourceArn") in
      let resourceId =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "resourceId") in
      let packagingGroupId =
        (Option.map ~f:Zz__string.of_xml)
          (Xml.child xml_arg0 "packagingGroupId") in
      let id = (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "id") in
      let egressEndpoints =
        (Option.map ~f:Zz__listOfEgressEndpoint.of_xml)
          (Xml.child xml_arg0 "egressEndpoints") 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 ?sourceRoleArn ?sourceArn ?resourceId ?packagingGroupId ?id
        ?egressEndpoints ?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 sourceRoleArn = field_map json__ "SourceRoleArn" Zz__string.of_json in
      let sourceArn = field_map json__ "SourceArn" Zz__string.of_json in
      let resourceId = field_map json__ "ResourceId" Zz__string.of_json in
      let packagingGroupId =
        field_map json__ "PackagingGroupId" Zz__string.of_json in
      let id = field_map json__ "Id" Zz__string.of_json in
      let egressEndpoints =
        field_map json__ "EgressEndpoints" Zz__listOfEgressEndpoint.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 ?sourceRoleArn ?sourceArn ?resourceId ?packagingGroupId ?id
        ?egressEndpoints ?createdAt ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A MediaPackage VOD Asset resource."]