{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}

-- Derived from AWS service descriptions, licensed under Apache 2.0.

-- |
-- Module      : Amazonka.MediaConvert.Types.M2tsSettings
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
module Amazonka.MediaConvert.Types.M2tsSettings where

import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.MediaConvert.Types.DvbNitSettings
import Amazonka.MediaConvert.Types.DvbSdtSettings
import Amazonka.MediaConvert.Types.DvbTdtSettings
import Amazonka.MediaConvert.Types.M2tsAudioBufferModel
import Amazonka.MediaConvert.Types.M2tsAudioDuration
import Amazonka.MediaConvert.Types.M2tsBufferModel
import Amazonka.MediaConvert.Types.M2tsDataPtsControl
import Amazonka.MediaConvert.Types.M2tsEbpAudioInterval
import Amazonka.MediaConvert.Types.M2tsEbpPlacement
import Amazonka.MediaConvert.Types.M2tsEsRateInPes
import Amazonka.MediaConvert.Types.M2tsForceTsVideoEbpOrder
import Amazonka.MediaConvert.Types.M2tsKlvMetadata
import Amazonka.MediaConvert.Types.M2tsNielsenId3
import Amazonka.MediaConvert.Types.M2tsPcrControl
import Amazonka.MediaConvert.Types.M2tsRateMode
import Amazonka.MediaConvert.Types.M2tsScte35Esam
import Amazonka.MediaConvert.Types.M2tsScte35Source
import Amazonka.MediaConvert.Types.M2tsSegmentationMarkers
import Amazonka.MediaConvert.Types.M2tsSegmentationStyle
import qualified Amazonka.Prelude as Prelude

-- | MPEG-2 TS container settings. These apply to outputs in a File output
-- group when the output\'s container (ContainerType) is MPEG-2 Transport
-- Stream (M2TS). In these assets, data is organized by the program map
-- table (PMT). Each transport stream program contains subsets of data,
-- including audio, video, and metadata. Each of these subsets of data has
-- a numerical label called a packet identifier (PID). Each transport
-- stream program corresponds to one MediaConvert output. The PMT lists the
-- types of data in a program along with their PID. Downstream systems and
-- players use the program map table to look up the PID for each type of
-- data it accesses and then uses the PIDs to locate specific data within
-- the asset.
--
-- /See:/ 'newM2tsSettings' smart constructor.
data M2tsSettings = M2tsSettings'
  { -- | Selects between the DVB and ATSC buffer models for Dolby Digital audio.
    M2tsSettings -> Maybe M2tsAudioBufferModel
audioBufferModel :: Prelude.Maybe M2tsAudioBufferModel,
    -- | Specify this setting only when your output will be consumed by a
    -- downstream repackaging workflow that is sensitive to very small duration
    -- differences between video and audio. For this situation, choose Match
    -- video duration (MATCH_VIDEO_DURATION). In all other cases, keep the
    -- default value, Default codec duration (DEFAULT_CODEC_DURATION). When you
    -- choose Match video duration, MediaConvert pads the output audio streams
    -- with silence or trims them to ensure that the total duration of each
    -- audio stream is at least as long as the total duration of the video
    -- stream. After padding or trimming, the audio stream duration is no more
    -- than one frame longer than the video stream. MediaConvert applies audio
    -- padding or trimming only to the end of the last segment of the output.
    -- For unsegmented outputs, MediaConvert adds padding only to the end of
    -- the file. When you keep the default value, any minor discrepancies
    -- between audio and video duration will depend on your output audio codec.
    M2tsSettings -> Maybe M2tsAudioDuration
audioDuration :: Prelude.Maybe M2tsAudioDuration,
    -- | The number of audio frames to insert for each PES packet.
    M2tsSettings -> Maybe Natural
audioFramesPerPes :: Prelude.Maybe Prelude.Natural,
    -- | Specify the packet identifiers (PIDs) for any elementary audio streams
    -- you include in this output. Specify multiple PIDs as a JSON array.
    -- Default is the range 482-492.
    M2tsSettings -> Maybe [Natural]
audioPids :: Prelude.Maybe [Prelude.Natural],
    -- | Specify the output bitrate of the transport stream in bits per second.
    -- Setting to 0 lets the muxer automatically determine the appropriate
    -- bitrate. Other common values are 3750000, 7500000, and 15000000.
    M2tsSettings -> Maybe Natural
bitrate :: Prelude.Maybe Prelude.Natural,
    -- | Controls what buffer model to use for accurate interleaving. If set to
    -- MULTIPLEX, use multiplex buffer model. If set to NONE, this can lead to
    -- lower latency, but low-memory devices may not be able to play back the
    -- stream without interruptions.
    M2tsSettings -> Maybe M2tsBufferModel
bufferModel :: Prelude.Maybe M2tsBufferModel,
    -- | If you select ALIGN_TO_VIDEO, MediaConvert writes captions and data
    -- packets with Presentation Timestamp (PTS) values greater than or equal
    -- to the first video packet PTS (MediaConvert drops captions and data
    -- packets with lesser PTS values). Keep the default value (AUTO) to allow
    -- all PTS values.
    M2tsSettings -> Maybe M2tsDataPtsControl
dataPTSControl :: Prelude.Maybe M2tsDataPtsControl,
    -- | Use these settings to insert a DVB Network Information Table (NIT) in
    -- the transport stream of this output. When you work directly in your JSON
    -- job specification, include this object only when your job has a
    -- transport stream output and the container settings contain the object
    -- M2tsSettings.
    M2tsSettings -> Maybe DvbNitSettings
dvbNitSettings :: Prelude.Maybe DvbNitSettings,
    -- | Use these settings to insert a DVB Service Description Table (SDT) in
    -- the transport stream of this output. When you work directly in your JSON
    -- job specification, include this object only when your job has a
    -- transport stream output and the container settings contain the object
    -- M2tsSettings.
    M2tsSettings -> Maybe DvbSdtSettings
dvbSdtSettings :: Prelude.Maybe DvbSdtSettings,
    -- | Specify the packet identifiers (PIDs) for DVB subtitle data included in
    -- this output. Specify multiple PIDs as a JSON array. Default is the range
    -- 460-479.
    M2tsSettings -> Maybe [Natural]
dvbSubPids :: Prelude.Maybe [Prelude.Natural],
    -- | Use these settings to insert a DVB Time and Date Table (TDT) in the
    -- transport stream of this output. When you work directly in your JSON job
    -- specification, include this object only when your job has a transport
    -- stream output and the container settings contain the object
    -- M2tsSettings.
    M2tsSettings -> Maybe DvbTdtSettings
dvbTdtSettings :: Prelude.Maybe DvbTdtSettings,
    -- | Specify the packet identifier (PID) for DVB teletext data you include in
    -- this output. Default is 499.
    M2tsSettings -> Maybe Natural
dvbTeletextPid :: Prelude.Maybe Prelude.Natural,
    -- | When set to VIDEO_AND_FIXED_INTERVALS, audio EBP markers will be added
    -- to partitions 3 and 4. The interval between these additional markers
    -- will be fixed, and will be slightly shorter than the video EBP marker
    -- interval. When set to VIDEO_INTERVAL, these additional markers will not
    -- be inserted. Only applicable when EBP segmentation markers are is
    -- selected (segmentationMarkers is EBP or EBP_LEGACY).
    M2tsSettings -> Maybe M2tsEbpAudioInterval
ebpAudioInterval :: Prelude.Maybe M2tsEbpAudioInterval,
    -- | Selects which PIDs to place EBP markers on. They can either be placed
    -- only on the video PID, or on both the video PID and all audio PIDs. Only
    -- applicable when EBP segmentation markers are is selected
    -- (segmentationMarkers is EBP or EBP_LEGACY).
    M2tsSettings -> Maybe M2tsEbpPlacement
ebpPlacement :: Prelude.Maybe M2tsEbpPlacement,
    -- | Controls whether to include the ES Rate field in the PES header.
    M2tsSettings -> Maybe M2tsEsRateInPes
esRateInPes :: Prelude.Maybe M2tsEsRateInPes,
    -- | Keep the default value (DEFAULT) unless you know that your audio EBP
    -- markers are incorrectly appearing before your video EBP markers. To
    -- correct this problem, set this value to Force (FORCE).
    M2tsSettings -> Maybe M2tsForceTsVideoEbpOrder
forceTsVideoEbpOrder :: Prelude.Maybe M2tsForceTsVideoEbpOrder,
    -- | The length, in seconds, of each fragment. Only used with EBP markers.
    M2tsSettings -> Maybe Double
fragmentTime :: Prelude.Maybe Prelude.Double,
    -- | To include key-length-value metadata in this output: Set KLV metadata
    -- insertion to Passthrough. MediaConvert reads KLV metadata present in
    -- your input and passes it through to the output transport stream. To
    -- exclude this KLV metadata: Set KLV metadata insertion to None or leave
    -- blank.
    M2tsSettings -> Maybe M2tsKlvMetadata
klvMetadata :: Prelude.Maybe M2tsKlvMetadata,
    -- | Specify the maximum time, in milliseconds, between Program Clock
    -- References (PCRs) inserted into the transport stream.
    M2tsSettings -> Maybe Natural
maxPcrInterval :: Prelude.Maybe Prelude.Natural,
    -- | When set, enforces that Encoder Boundary Points do not come within the
    -- specified time interval of each other by looking ahead at input video.
    -- If another EBP is going to come in within the specified time interval,
    -- the current EBP is not emitted, and the segment is \"stretched\" to the
    -- next marker. The lookahead value does not add latency to the system. The
    -- Live Event must be configured elsewhere to create sufficient latency to
    -- make the lookahead accurate.
    M2tsSettings -> Maybe Natural
minEbpInterval :: Prelude.Maybe Prelude.Natural,
    -- | If INSERT, Nielsen inaudible tones for media tracking will be detected
    -- in the input audio and an equivalent ID3 tag will be inserted in the
    -- output.
    M2tsSettings -> Maybe M2tsNielsenId3
nielsenId3 :: Prelude.Maybe M2tsNielsenId3,
    -- | Value in bits per second of extra null packets to insert into the
    -- transport stream. This can be used if a downstream encryption system
    -- requires periodic null packets.
    M2tsSettings -> Maybe Double
nullPacketBitrate :: Prelude.Maybe Prelude.Double,
    -- | The number of milliseconds between instances of this table in the output
    -- transport stream.
    M2tsSettings -> Maybe Natural
patInterval :: Prelude.Maybe Prelude.Natural,
    -- | When set to PCR_EVERY_PES_PACKET, a Program Clock Reference value is
    -- inserted for every Packetized Elementary Stream (PES) header. This is
    -- effective only when the PCR PID is the same as the video or audio
    -- elementary stream.
    M2tsSettings -> Maybe M2tsPcrControl
pcrControl :: Prelude.Maybe M2tsPcrControl,
    -- | Specify the packet identifier (PID) for the program clock reference
    -- (PCR) in this output. If you do not specify a value, the service will
    -- use the value for Video PID (VideoPid).
    M2tsSettings -> Maybe Natural
pcrPid :: Prelude.Maybe Prelude.Natural,
    -- | Specify the number of milliseconds between instances of the program map
    -- table (PMT) in the output transport stream.
    M2tsSettings -> Maybe Natural
pmtInterval :: Prelude.Maybe Prelude.Natural,
    -- | Specify the packet identifier (PID) for the program map table (PMT)
    -- itself. Default is 480.
    M2tsSettings -> Maybe Natural
pmtPid :: Prelude.Maybe Prelude.Natural,
    -- | Specify the packet identifier (PID) of the private metadata stream.
    -- Default is 503.
    M2tsSettings -> Maybe Natural
privateMetadataPid :: Prelude.Maybe Prelude.Natural,
    -- | Use Program number (programNumber) to specify the program number used in
    -- the program map table (PMT) for this output. Default is 1. Program
    -- numbers and program map tables are parts of MPEG-2 transport stream
    -- containers, used for organizing data.
    M2tsSettings -> Maybe Natural
programNumber :: Prelude.Maybe Prelude.Natural,
    -- | When set to CBR, inserts null packets into transport stream to fill
    -- specified bitrate. When set to VBR, the bitrate setting acts as the
    -- maximum bitrate, but the output will not be padded up to that bitrate.
    M2tsSettings -> Maybe M2tsRateMode
rateMode :: Prelude.Maybe M2tsRateMode,
    -- | Include this in your job settings to put SCTE-35 markers in your HLS and
    -- transport stream outputs at the insertion points that you specify in an
    -- ESAM XML document. Provide the document in the setting SCC XML (sccXml).
    M2tsSettings -> Maybe M2tsScte35Esam
scte35Esam :: Prelude.Maybe M2tsScte35Esam,
    -- | Specify the packet identifier (PID) of the SCTE-35 stream in the
    -- transport stream.
    M2tsSettings -> Maybe Natural
scte35Pid :: Prelude.Maybe Prelude.Natural,
    -- | For SCTE-35 markers from your input-- Choose Passthrough (PASSTHROUGH)
    -- if you want SCTE-35 markers that appear in your input to also appear in
    -- this output. Choose None (NONE) if you don\'t want SCTE-35 markers in
    -- this output. For SCTE-35 markers from an ESAM XML document-- Choose None
    -- (NONE). Also provide the ESAM XML as a string in the setting Signal
    -- processing notification XML (sccXml). Also enable ESAM SCTE-35 (include
    -- the property scte35Esam).
    M2tsSettings -> Maybe M2tsScte35Source
scte35Source :: Prelude.Maybe M2tsScte35Source,
    -- | Inserts segmentation markers at each segmentation_time period.
    -- rai_segstart sets the Random Access Indicator bit in the adaptation
    -- field. rai_adapt sets the RAI bit and adds the current timecode in the
    -- private data bytes. psi_segstart inserts PAT and PMT tables at the start
    -- of segments. ebp adds Encoder Boundary Point information to the
    -- adaptation field as per OpenCable specification OC-SP-EBP-I01-130118.
    -- ebp_legacy adds Encoder Boundary Point information to the adaptation
    -- field using a legacy proprietary format.
    M2tsSettings -> Maybe M2tsSegmentationMarkers
segmentationMarkers :: Prelude.Maybe M2tsSegmentationMarkers,
    -- | The segmentation style parameter controls how segmentation markers are
    -- inserted into the transport stream. With avails, it is possible that
    -- segments may be truncated, which can influence where future segmentation
    -- markers are inserted. When a segmentation style of \"reset_cadence\" is
    -- selected and a segment is truncated due to an avail, we will reset the
    -- segmentation cadence. This means the subsequent segment will have a
    -- duration of of $segmentation_time seconds. When a segmentation style of
    -- \"maintain_cadence\" is selected and a segment is truncated due to an
    -- avail, we will not reset the segmentation cadence. This means the
    -- subsequent segment will likely be truncated as well. However, all
    -- segments after that will have a duration of $segmentation_time seconds.
    -- Note that EBP lookahead is a slight exception to this rule.
    M2tsSettings -> Maybe M2tsSegmentationStyle
segmentationStyle :: Prelude.Maybe M2tsSegmentationStyle,
    -- | Specify the length, in seconds, of each segment. Required unless markers
    -- is set to _none_.
    M2tsSettings -> Maybe Double
segmentationTime :: Prelude.Maybe Prelude.Double,
    -- | Packet Identifier (PID) of the ID3 metadata stream in the transport
    -- stream.
    M2tsSettings -> Maybe Natural
timedMetadataPid :: Prelude.Maybe Prelude.Natural,
    -- | Specify the ID for the transport stream itself in the program map table
    -- for this output. Transport stream IDs and program map tables are parts
    -- of MPEG-2 transport stream containers, used for organizing data.
    M2tsSettings -> Maybe Natural
transportStreamId :: Prelude.Maybe Prelude.Natural,
    -- | Specify the packet identifier (PID) of the elementary video stream in
    -- the transport stream.
    M2tsSettings -> Maybe Natural
videoPid :: Prelude.Maybe Prelude.Natural
  }
  deriving (M2tsSettings -> M2tsSettings -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: M2tsSettings -> M2tsSettings -> Bool
$c/= :: M2tsSettings -> M2tsSettings -> Bool
== :: M2tsSettings -> M2tsSettings -> Bool
$c== :: M2tsSettings -> M2tsSettings -> Bool
Prelude.Eq, ReadPrec [M2tsSettings]
ReadPrec M2tsSettings
Int -> ReadS M2tsSettings
ReadS [M2tsSettings]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [M2tsSettings]
$creadListPrec :: ReadPrec [M2tsSettings]
readPrec :: ReadPrec M2tsSettings
$creadPrec :: ReadPrec M2tsSettings
readList :: ReadS [M2tsSettings]
$creadList :: ReadS [M2tsSettings]
readsPrec :: Int -> ReadS M2tsSettings
$creadsPrec :: Int -> ReadS M2tsSettings
Prelude.Read, Int -> M2tsSettings -> ShowS
[M2tsSettings] -> ShowS
M2tsSettings -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [M2tsSettings] -> ShowS
$cshowList :: [M2tsSettings] -> ShowS
show :: M2tsSettings -> String
$cshow :: M2tsSettings -> String
showsPrec :: Int -> M2tsSettings -> ShowS
$cshowsPrec :: Int -> M2tsSettings -> ShowS
Prelude.Show, forall x. Rep M2tsSettings x -> M2tsSettings
forall x. M2tsSettings -> Rep M2tsSettings x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep M2tsSettings x -> M2tsSettings
$cfrom :: forall x. M2tsSettings -> Rep M2tsSettings x
Prelude.Generic)

-- |
-- Create a value of 'M2tsSettings' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
--
-- The following record fields are available, with the corresponding lenses provided
-- for backwards compatibility:
--
-- 'audioBufferModel', 'm2tsSettings_audioBufferModel' - Selects between the DVB and ATSC buffer models for Dolby Digital audio.
--
-- 'audioDuration', 'm2tsSettings_audioDuration' - Specify this setting only when your output will be consumed by a
-- downstream repackaging workflow that is sensitive to very small duration
-- differences between video and audio. For this situation, choose Match
-- video duration (MATCH_VIDEO_DURATION). In all other cases, keep the
-- default value, Default codec duration (DEFAULT_CODEC_DURATION). When you
-- choose Match video duration, MediaConvert pads the output audio streams
-- with silence or trims them to ensure that the total duration of each
-- audio stream is at least as long as the total duration of the video
-- stream. After padding or trimming, the audio stream duration is no more
-- than one frame longer than the video stream. MediaConvert applies audio
-- padding or trimming only to the end of the last segment of the output.
-- For unsegmented outputs, MediaConvert adds padding only to the end of
-- the file. When you keep the default value, any minor discrepancies
-- between audio and video duration will depend on your output audio codec.
--
-- 'audioFramesPerPes', 'm2tsSettings_audioFramesPerPes' - The number of audio frames to insert for each PES packet.
--
-- 'audioPids', 'm2tsSettings_audioPids' - Specify the packet identifiers (PIDs) for any elementary audio streams
-- you include in this output. Specify multiple PIDs as a JSON array.
-- Default is the range 482-492.
--
-- 'bitrate', 'm2tsSettings_bitrate' - Specify the output bitrate of the transport stream in bits per second.
-- Setting to 0 lets the muxer automatically determine the appropriate
-- bitrate. Other common values are 3750000, 7500000, and 15000000.
--
-- 'bufferModel', 'm2tsSettings_bufferModel' - Controls what buffer model to use for accurate interleaving. If set to
-- MULTIPLEX, use multiplex buffer model. If set to NONE, this can lead to
-- lower latency, but low-memory devices may not be able to play back the
-- stream without interruptions.
--
-- 'dataPTSControl', 'm2tsSettings_dataPTSControl' - If you select ALIGN_TO_VIDEO, MediaConvert writes captions and data
-- packets with Presentation Timestamp (PTS) values greater than or equal
-- to the first video packet PTS (MediaConvert drops captions and data
-- packets with lesser PTS values). Keep the default value (AUTO) to allow
-- all PTS values.
--
-- 'dvbNitSettings', 'm2tsSettings_dvbNitSettings' - Use these settings to insert a DVB Network Information Table (NIT) in
-- the transport stream of this output. When you work directly in your JSON
-- job specification, include this object only when your job has a
-- transport stream output and the container settings contain the object
-- M2tsSettings.
--
-- 'dvbSdtSettings', 'm2tsSettings_dvbSdtSettings' - Use these settings to insert a DVB Service Description Table (SDT) in
-- the transport stream of this output. When you work directly in your JSON
-- job specification, include this object only when your job has a
-- transport stream output and the container settings contain the object
-- M2tsSettings.
--
-- 'dvbSubPids', 'm2tsSettings_dvbSubPids' - Specify the packet identifiers (PIDs) for DVB subtitle data included in
-- this output. Specify multiple PIDs as a JSON array. Default is the range
-- 460-479.
--
-- 'dvbTdtSettings', 'm2tsSettings_dvbTdtSettings' - Use these settings to insert a DVB Time and Date Table (TDT) in the
-- transport stream of this output. When you work directly in your JSON job
-- specification, include this object only when your job has a transport
-- stream output and the container settings contain the object
-- M2tsSettings.
--
-- 'dvbTeletextPid', 'm2tsSettings_dvbTeletextPid' - Specify the packet identifier (PID) for DVB teletext data you include in
-- this output. Default is 499.
--
-- 'ebpAudioInterval', 'm2tsSettings_ebpAudioInterval' - When set to VIDEO_AND_FIXED_INTERVALS, audio EBP markers will be added
-- to partitions 3 and 4. The interval between these additional markers
-- will be fixed, and will be slightly shorter than the video EBP marker
-- interval. When set to VIDEO_INTERVAL, these additional markers will not
-- be inserted. Only applicable when EBP segmentation markers are is
-- selected (segmentationMarkers is EBP or EBP_LEGACY).
--
-- 'ebpPlacement', 'm2tsSettings_ebpPlacement' - Selects which PIDs to place EBP markers on. They can either be placed
-- only on the video PID, or on both the video PID and all audio PIDs. Only
-- applicable when EBP segmentation markers are is selected
-- (segmentationMarkers is EBP or EBP_LEGACY).
--
-- 'esRateInPes', 'm2tsSettings_esRateInPes' - Controls whether to include the ES Rate field in the PES header.
--
-- 'forceTsVideoEbpOrder', 'm2tsSettings_forceTsVideoEbpOrder' - Keep the default value (DEFAULT) unless you know that your audio EBP
-- markers are incorrectly appearing before your video EBP markers. To
-- correct this problem, set this value to Force (FORCE).
--
-- 'fragmentTime', 'm2tsSettings_fragmentTime' - The length, in seconds, of each fragment. Only used with EBP markers.
--
-- 'klvMetadata', 'm2tsSettings_klvMetadata' - To include key-length-value metadata in this output: Set KLV metadata
-- insertion to Passthrough. MediaConvert reads KLV metadata present in
-- your input and passes it through to the output transport stream. To
-- exclude this KLV metadata: Set KLV metadata insertion to None or leave
-- blank.
--
-- 'maxPcrInterval', 'm2tsSettings_maxPcrInterval' - Specify the maximum time, in milliseconds, between Program Clock
-- References (PCRs) inserted into the transport stream.
--
-- 'minEbpInterval', 'm2tsSettings_minEbpInterval' - When set, enforces that Encoder Boundary Points do not come within the
-- specified time interval of each other by looking ahead at input video.
-- If another EBP is going to come in within the specified time interval,
-- the current EBP is not emitted, and the segment is \"stretched\" to the
-- next marker. The lookahead value does not add latency to the system. The
-- Live Event must be configured elsewhere to create sufficient latency to
-- make the lookahead accurate.
--
-- 'nielsenId3', 'm2tsSettings_nielsenId3' - If INSERT, Nielsen inaudible tones for media tracking will be detected
-- in the input audio and an equivalent ID3 tag will be inserted in the
-- output.
--
-- 'nullPacketBitrate', 'm2tsSettings_nullPacketBitrate' - Value in bits per second of extra null packets to insert into the
-- transport stream. This can be used if a downstream encryption system
-- requires periodic null packets.
--
-- 'patInterval', 'm2tsSettings_patInterval' - The number of milliseconds between instances of this table in the output
-- transport stream.
--
-- 'pcrControl', 'm2tsSettings_pcrControl' - When set to PCR_EVERY_PES_PACKET, a Program Clock Reference value is
-- inserted for every Packetized Elementary Stream (PES) header. This is
-- effective only when the PCR PID is the same as the video or audio
-- elementary stream.
--
-- 'pcrPid', 'm2tsSettings_pcrPid' - Specify the packet identifier (PID) for the program clock reference
-- (PCR) in this output. If you do not specify a value, the service will
-- use the value for Video PID (VideoPid).
--
-- 'pmtInterval', 'm2tsSettings_pmtInterval' - Specify the number of milliseconds between instances of the program map
-- table (PMT) in the output transport stream.
--
-- 'pmtPid', 'm2tsSettings_pmtPid' - Specify the packet identifier (PID) for the program map table (PMT)
-- itself. Default is 480.
--
-- 'privateMetadataPid', 'm2tsSettings_privateMetadataPid' - Specify the packet identifier (PID) of the private metadata stream.
-- Default is 503.
--
-- 'programNumber', 'm2tsSettings_programNumber' - Use Program number (programNumber) to specify the program number used in
-- the program map table (PMT) for this output. Default is 1. Program
-- numbers and program map tables are parts of MPEG-2 transport stream
-- containers, used for organizing data.
--
-- 'rateMode', 'm2tsSettings_rateMode' - When set to CBR, inserts null packets into transport stream to fill
-- specified bitrate. When set to VBR, the bitrate setting acts as the
-- maximum bitrate, but the output will not be padded up to that bitrate.
--
-- 'scte35Esam', 'm2tsSettings_scte35Esam' - Include this in your job settings to put SCTE-35 markers in your HLS and
-- transport stream outputs at the insertion points that you specify in an
-- ESAM XML document. Provide the document in the setting SCC XML (sccXml).
--
-- 'scte35Pid', 'm2tsSettings_scte35Pid' - Specify the packet identifier (PID) of the SCTE-35 stream in the
-- transport stream.
--
-- 'scte35Source', 'm2tsSettings_scte35Source' - For SCTE-35 markers from your input-- Choose Passthrough (PASSTHROUGH)
-- if you want SCTE-35 markers that appear in your input to also appear in
-- this output. Choose None (NONE) if you don\'t want SCTE-35 markers in
-- this output. For SCTE-35 markers from an ESAM XML document-- Choose None
-- (NONE). Also provide the ESAM XML as a string in the setting Signal
-- processing notification XML (sccXml). Also enable ESAM SCTE-35 (include
-- the property scte35Esam).
--
-- 'segmentationMarkers', 'm2tsSettings_segmentationMarkers' - Inserts segmentation markers at each segmentation_time period.
-- rai_segstart sets the Random Access Indicator bit in the adaptation
-- field. rai_adapt sets the RAI bit and adds the current timecode in the
-- private data bytes. psi_segstart inserts PAT and PMT tables at the start
-- of segments. ebp adds Encoder Boundary Point information to the
-- adaptation field as per OpenCable specification OC-SP-EBP-I01-130118.
-- ebp_legacy adds Encoder Boundary Point information to the adaptation
-- field using a legacy proprietary format.
--
-- 'segmentationStyle', 'm2tsSettings_segmentationStyle' - The segmentation style parameter controls how segmentation markers are
-- inserted into the transport stream. With avails, it is possible that
-- segments may be truncated, which can influence where future segmentation
-- markers are inserted. When a segmentation style of \"reset_cadence\" is
-- selected and a segment is truncated due to an avail, we will reset the
-- segmentation cadence. This means the subsequent segment will have a
-- duration of of $segmentation_time seconds. When a segmentation style of
-- \"maintain_cadence\" is selected and a segment is truncated due to an
-- avail, we will not reset the segmentation cadence. This means the
-- subsequent segment will likely be truncated as well. However, all
-- segments after that will have a duration of $segmentation_time seconds.
-- Note that EBP lookahead is a slight exception to this rule.
--
-- 'segmentationTime', 'm2tsSettings_segmentationTime' - Specify the length, in seconds, of each segment. Required unless markers
-- is set to _none_.
--
-- 'timedMetadataPid', 'm2tsSettings_timedMetadataPid' - Packet Identifier (PID) of the ID3 metadata stream in the transport
-- stream.
--
-- 'transportStreamId', 'm2tsSettings_transportStreamId' - Specify the ID for the transport stream itself in the program map table
-- for this output. Transport stream IDs and program map tables are parts
-- of MPEG-2 transport stream containers, used for organizing data.
--
-- 'videoPid', 'm2tsSettings_videoPid' - Specify the packet identifier (PID) of the elementary video stream in
-- the transport stream.
newM2tsSettings ::
  M2tsSettings
newM2tsSettings :: M2tsSettings
newM2tsSettings =
  M2tsSettings'
    { $sel:audioBufferModel:M2tsSettings' :: Maybe M2tsAudioBufferModel
audioBufferModel = forall a. Maybe a
Prelude.Nothing,
      $sel:audioDuration:M2tsSettings' :: Maybe M2tsAudioDuration
audioDuration = forall a. Maybe a
Prelude.Nothing,
      $sel:audioFramesPerPes:M2tsSettings' :: Maybe Natural
audioFramesPerPes = forall a. Maybe a
Prelude.Nothing,
      $sel:audioPids:M2tsSettings' :: Maybe [Natural]
audioPids = forall a. Maybe a
Prelude.Nothing,
      $sel:bitrate:M2tsSettings' :: Maybe Natural
bitrate = forall a. Maybe a
Prelude.Nothing,
      $sel:bufferModel:M2tsSettings' :: Maybe M2tsBufferModel
bufferModel = forall a. Maybe a
Prelude.Nothing,
      $sel:dataPTSControl:M2tsSettings' :: Maybe M2tsDataPtsControl
dataPTSControl = forall a. Maybe a
Prelude.Nothing,
      $sel:dvbNitSettings:M2tsSettings' :: Maybe DvbNitSettings
dvbNitSettings = forall a. Maybe a
Prelude.Nothing,
      $sel:dvbSdtSettings:M2tsSettings' :: Maybe DvbSdtSettings
dvbSdtSettings = forall a. Maybe a
Prelude.Nothing,
      $sel:dvbSubPids:M2tsSettings' :: Maybe [Natural]
dvbSubPids = forall a. Maybe a
Prelude.Nothing,
      $sel:dvbTdtSettings:M2tsSettings' :: Maybe DvbTdtSettings
dvbTdtSettings = forall a. Maybe a
Prelude.Nothing,
      $sel:dvbTeletextPid:M2tsSettings' :: Maybe Natural
dvbTeletextPid = forall a. Maybe a
Prelude.Nothing,
      $sel:ebpAudioInterval:M2tsSettings' :: Maybe M2tsEbpAudioInterval
ebpAudioInterval = forall a. Maybe a
Prelude.Nothing,
      $sel:ebpPlacement:M2tsSettings' :: Maybe M2tsEbpPlacement
ebpPlacement = forall a. Maybe a
Prelude.Nothing,
      $sel:esRateInPes:M2tsSettings' :: Maybe M2tsEsRateInPes
esRateInPes = forall a. Maybe a
Prelude.Nothing,
      $sel:forceTsVideoEbpOrder:M2tsSettings' :: Maybe M2tsForceTsVideoEbpOrder
forceTsVideoEbpOrder = forall a. Maybe a
Prelude.Nothing,
      $sel:fragmentTime:M2tsSettings' :: Maybe Double
fragmentTime = forall a. Maybe a
Prelude.Nothing,
      $sel:klvMetadata:M2tsSettings' :: Maybe M2tsKlvMetadata
klvMetadata = forall a. Maybe a
Prelude.Nothing,
      $sel:maxPcrInterval:M2tsSettings' :: Maybe Natural
maxPcrInterval = forall a. Maybe a
Prelude.Nothing,
      $sel:minEbpInterval:M2tsSettings' :: Maybe Natural
minEbpInterval = forall a. Maybe a
Prelude.Nothing,
      $sel:nielsenId3:M2tsSettings' :: Maybe M2tsNielsenId3
nielsenId3 = forall a. Maybe a
Prelude.Nothing,
      $sel:nullPacketBitrate:M2tsSettings' :: Maybe Double
nullPacketBitrate = forall a. Maybe a
Prelude.Nothing,
      $sel:patInterval:M2tsSettings' :: Maybe Natural
patInterval = forall a. Maybe a
Prelude.Nothing,
      $sel:pcrControl:M2tsSettings' :: Maybe M2tsPcrControl
pcrControl = forall a. Maybe a
Prelude.Nothing,
      $sel:pcrPid:M2tsSettings' :: Maybe Natural
pcrPid = forall a. Maybe a
Prelude.Nothing,
      $sel:pmtInterval:M2tsSettings' :: Maybe Natural
pmtInterval = forall a. Maybe a
Prelude.Nothing,
      $sel:pmtPid:M2tsSettings' :: Maybe Natural
pmtPid = forall a. Maybe a
Prelude.Nothing,
      $sel:privateMetadataPid:M2tsSettings' :: Maybe Natural
privateMetadataPid = forall a. Maybe a
Prelude.Nothing,
      $sel:programNumber:M2tsSettings' :: Maybe Natural
programNumber = forall a. Maybe a
Prelude.Nothing,
      $sel:rateMode:M2tsSettings' :: Maybe M2tsRateMode
rateMode = forall a. Maybe a
Prelude.Nothing,
      $sel:scte35Esam:M2tsSettings' :: Maybe M2tsScte35Esam
scte35Esam = forall a. Maybe a
Prelude.Nothing,
      $sel:scte35Pid:M2tsSettings' :: Maybe Natural
scte35Pid = forall a. Maybe a
Prelude.Nothing,
      $sel:scte35Source:M2tsSettings' :: Maybe M2tsScte35Source
scte35Source = forall a. Maybe a
Prelude.Nothing,
      $sel:segmentationMarkers:M2tsSettings' :: Maybe M2tsSegmentationMarkers
segmentationMarkers = forall a. Maybe a
Prelude.Nothing,
      $sel:segmentationStyle:M2tsSettings' :: Maybe M2tsSegmentationStyle
segmentationStyle = forall a. Maybe a
Prelude.Nothing,
      $sel:segmentationTime:M2tsSettings' :: Maybe Double
segmentationTime = forall a. Maybe a
Prelude.Nothing,
      $sel:timedMetadataPid:M2tsSettings' :: Maybe Natural
timedMetadataPid = forall a. Maybe a
Prelude.Nothing,
      $sel:transportStreamId:M2tsSettings' :: Maybe Natural
transportStreamId = forall a. Maybe a
Prelude.Nothing,
      $sel:videoPid:M2tsSettings' :: Maybe Natural
videoPid = forall a. Maybe a
Prelude.Nothing
    }

-- | Selects between the DVB and ATSC buffer models for Dolby Digital audio.
m2tsSettings_audioBufferModel :: Lens.Lens' M2tsSettings (Prelude.Maybe M2tsAudioBufferModel)
m2tsSettings_audioBufferModel :: Lens' M2tsSettings (Maybe M2tsAudioBufferModel)
m2tsSettings_audioBufferModel = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\M2tsSettings' {Maybe M2tsAudioBufferModel
audioBufferModel :: Maybe M2tsAudioBufferModel
$sel:audioBufferModel:M2tsSettings' :: M2tsSettings -> Maybe M2tsAudioBufferModel
audioBufferModel} -> Maybe M2tsAudioBufferModel
audioBufferModel) (\s :: M2tsSettings
s@M2tsSettings' {} Maybe M2tsAudioBufferModel
a -> M2tsSettings
s {$sel:audioBufferModel:M2tsSettings' :: Maybe M2tsAudioBufferModel
audioBufferModel = Maybe M2tsAudioBufferModel
a} :: M2tsSettings)

-- | Specify this setting only when your output will be consumed by a
-- downstream repackaging workflow that is sensitive to very small duration
-- differences between video and audio. For this situation, choose Match
-- video duration (MATCH_VIDEO_DURATION). In all other cases, keep the
-- default value, Default codec duration (DEFAULT_CODEC_DURATION). When you
-- choose Match video duration, MediaConvert pads the output audio streams
-- with silence or trims them to ensure that the total duration of each
-- audio stream is at least as long as the total duration of the video
-- stream. After padding or trimming, the audio stream duration is no more
-- than one frame longer than the video stream. MediaConvert applies audio
-- padding or trimming only to the end of the last segment of the output.
-- For unsegmented outputs, MediaConvert adds padding only to the end of
-- the file. When you keep the default value, any minor discrepancies
-- between audio and video duration will depend on your output audio codec.
m2tsSettings_audioDuration :: Lens.Lens' M2tsSettings (Prelude.Maybe M2tsAudioDuration)
m2tsSettings_audioDuration :: Lens' M2tsSettings (Maybe M2tsAudioDuration)
m2tsSettings_audioDuration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\M2tsSettings' {Maybe M2tsAudioDuration
audioDuration :: Maybe M2tsAudioDuration
$sel:audioDuration:M2tsSettings' :: M2tsSettings -> Maybe M2tsAudioDuration
audioDuration} -> Maybe M2tsAudioDuration
audioDuration) (\s :: M2tsSettings
s@M2tsSettings' {} Maybe M2tsAudioDuration
a -> M2tsSettings
s {$sel:audioDuration:M2tsSettings' :: Maybe M2tsAudioDuration
audioDuration = Maybe M2tsAudioDuration
a} :: M2tsSettings)

-- | The number of audio frames to insert for each PES packet.
m2tsSettings_audioFramesPerPes :: Lens.Lens' M2tsSettings (Prelude.Maybe Prelude.Natural)
m2tsSettings_audioFramesPerPes :: Lens' M2tsSettings (Maybe Natural)
m2tsSettings_audioFramesPerPes = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\M2tsSettings' {Maybe Natural
audioFramesPerPes :: Maybe Natural
$sel:audioFramesPerPes:M2tsSettings' :: M2tsSettings -> Maybe Natural
audioFramesPerPes} -> Maybe Natural
audioFramesPerPes) (\s :: M2tsSettings
s@M2tsSettings' {} Maybe Natural
a -> M2tsSettings
s {$sel:audioFramesPerPes:M2tsSettings' :: Maybe Natural
audioFramesPerPes = Maybe Natural
a} :: M2tsSettings)

-- | Specify the packet identifiers (PIDs) for any elementary audio streams
-- you include in this output. Specify multiple PIDs as a JSON array.
-- Default is the range 482-492.
m2tsSettings_audioPids :: Lens.Lens' M2tsSettings (Prelude.Maybe [Prelude.Natural])
m2tsSettings_audioPids :: Lens' M2tsSettings (Maybe [Natural])
m2tsSettings_audioPids = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\M2tsSettings' {Maybe [Natural]
audioPids :: Maybe [Natural]
$sel:audioPids:M2tsSettings' :: M2tsSettings -> Maybe [Natural]
audioPids} -> Maybe [Natural]
audioPids) (\s :: M2tsSettings
s@M2tsSettings' {} Maybe [Natural]
a -> M2tsSettings
s {$sel:audioPids:M2tsSettings' :: Maybe [Natural]
audioPids = Maybe [Natural]
a} :: M2tsSettings) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

-- | Specify the output bitrate of the transport stream in bits per second.
-- Setting to 0 lets the muxer automatically determine the appropriate
-- bitrate. Other common values are 3750000, 7500000, and 15000000.
m2tsSettings_bitrate :: Lens.Lens' M2tsSettings (Prelude.Maybe Prelude.Natural)
m2tsSettings_bitrate :: Lens' M2tsSettings (Maybe Natural)
m2tsSettings_bitrate = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\M2tsSettings' {Maybe Natural
bitrate :: Maybe Natural
$sel:bitrate:M2tsSettings' :: M2tsSettings -> Maybe Natural
bitrate} -> Maybe Natural
bitrate) (\s :: M2tsSettings
s@M2tsSettings' {} Maybe Natural
a -> M2tsSettings
s {$sel:bitrate:M2tsSettings' :: Maybe Natural
bitrate = Maybe Natural
a} :: M2tsSettings)

-- | Controls what buffer model to use for accurate interleaving. If set to
-- MULTIPLEX, use multiplex buffer model. If set to NONE, this can lead to
-- lower latency, but low-memory devices may not be able to play back the
-- stream without interruptions.
m2tsSettings_bufferModel :: Lens.Lens' M2tsSettings (Prelude.Maybe M2tsBufferModel)
m2tsSettings_bufferModel :: Lens' M2tsSettings (Maybe M2tsBufferModel)
m2tsSettings_bufferModel = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\M2tsSettings' {Maybe M2tsBufferModel
bufferModel :: Maybe M2tsBufferModel
$sel:bufferModel:M2tsSettings' :: M2tsSettings -> Maybe M2tsBufferModel
bufferModel} -> Maybe M2tsBufferModel
bufferModel) (\s :: M2tsSettings
s@M2tsSettings' {} Maybe M2tsBufferModel
a -> M2tsSettings
s {$sel:bufferModel:M2tsSettings' :: Maybe M2tsBufferModel
bufferModel = Maybe M2tsBufferModel
a} :: M2tsSettings)

-- | If you select ALIGN_TO_VIDEO, MediaConvert writes captions and data
-- packets with Presentation Timestamp (PTS) values greater than or equal
-- to the first video packet PTS (MediaConvert drops captions and data
-- packets with lesser PTS values). Keep the default value (AUTO) to allow
-- all PTS values.
m2tsSettings_dataPTSControl :: Lens.Lens' M2tsSettings (Prelude.Maybe M2tsDataPtsControl)
m2tsSettings_dataPTSControl :: Lens' M2tsSettings (Maybe M2tsDataPtsControl)
m2tsSettings_dataPTSControl = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\M2tsSettings' {Maybe M2tsDataPtsControl
dataPTSControl :: Maybe M2tsDataPtsControl
$sel:dataPTSControl:M2tsSettings' :: M2tsSettings -> Maybe M2tsDataPtsControl
dataPTSControl} -> Maybe M2tsDataPtsControl
dataPTSControl) (\s :: M2tsSettings
s@M2tsSettings' {} Maybe M2tsDataPtsControl
a -> M2tsSettings
s {$sel:dataPTSControl:M2tsSettings' :: Maybe M2tsDataPtsControl
dataPTSControl = Maybe M2tsDataPtsControl
a} :: M2tsSettings)

-- | Use these settings to insert a DVB Network Information Table (NIT) in
-- the transport stream of this output. When you work directly in your JSON
-- job specification, include this object only when your job has a
-- transport stream output and the container settings contain the object
-- M2tsSettings.
m2tsSettings_dvbNitSettings :: Lens.Lens' M2tsSettings (Prelude.Maybe DvbNitSettings)
m2tsSettings_dvbNitSettings :: Lens' M2tsSettings (Maybe DvbNitSettings)
m2tsSettings_dvbNitSettings = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\M2tsSettings' {Maybe DvbNitSettings
dvbNitSettings :: Maybe DvbNitSettings
$sel:dvbNitSettings:M2tsSettings' :: M2tsSettings -> Maybe DvbNitSettings
dvbNitSettings} -> Maybe DvbNitSettings
dvbNitSettings) (\s :: M2tsSettings
s@M2tsSettings' {} Maybe DvbNitSettings
a -> M2tsSettings
s {$sel:dvbNitSettings:M2tsSettings' :: Maybe DvbNitSettings
dvbNitSettings = Maybe DvbNitSettings
a} :: M2tsSettings)

-- | Use these settings to insert a DVB Service Description Table (SDT) in
-- the transport stream of this output. When you work directly in your JSON
-- job specification, include this object only when your job has a
-- transport stream output and the container settings contain the object
-- M2tsSettings.
m2tsSettings_dvbSdtSettings :: Lens.Lens' M2tsSettings (Prelude.Maybe DvbSdtSettings)
m2tsSettings_dvbSdtSettings :: Lens' M2tsSettings (Maybe DvbSdtSettings)
m2tsSettings_dvbSdtSettings = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\M2tsSettings' {Maybe DvbSdtSettings
dvbSdtSettings :: Maybe DvbSdtSettings
$sel:dvbSdtSettings:M2tsSettings' :: M2tsSettings -> Maybe DvbSdtSettings
dvbSdtSettings} -> Maybe DvbSdtSettings
dvbSdtSettings) (\s :: M2tsSettings
s@M2tsSettings' {} Maybe DvbSdtSettings
a -> M2tsSettings
s {$sel:dvbSdtSettings:M2tsSettings' :: Maybe DvbSdtSettings
dvbSdtSettings = Maybe DvbSdtSettings
a} :: M2tsSettings)

-- | Specify the packet identifiers (PIDs) for DVB subtitle data included in
-- this output. Specify multiple PIDs as a JSON array. Default is the range
-- 460-479.
m2tsSettings_dvbSubPids :: Lens.Lens' M2tsSettings (Prelude.Maybe [Prelude.Natural])
m2tsSettings_dvbSubPids :: Lens' M2tsSettings (Maybe [Natural])
m2tsSettings_dvbSubPids = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\M2tsSettings' {Maybe [Natural]
dvbSubPids :: Maybe [Natural]
$sel:dvbSubPids:M2tsSettings' :: M2tsSettings -> Maybe [Natural]
dvbSubPids} -> Maybe [Natural]
dvbSubPids) (\s :: M2tsSettings
s@M2tsSettings' {} Maybe [Natural]
a -> M2tsSettings
s {$sel:dvbSubPids:M2tsSettings' :: Maybe [Natural]
dvbSubPids = Maybe [Natural]
a} :: M2tsSettings) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

-- | Use these settings to insert a DVB Time and Date Table (TDT) in the
-- transport stream of this output. When you work directly in your JSON job
-- specification, include this object only when your job has a transport
-- stream output and the container settings contain the object
-- M2tsSettings.
m2tsSettings_dvbTdtSettings :: Lens.Lens' M2tsSettings (Prelude.Maybe DvbTdtSettings)
m2tsSettings_dvbTdtSettings :: Lens' M2tsSettings (Maybe DvbTdtSettings)
m2tsSettings_dvbTdtSettings = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\M2tsSettings' {Maybe DvbTdtSettings
dvbTdtSettings :: Maybe DvbTdtSettings
$sel:dvbTdtSettings:M2tsSettings' :: M2tsSettings -> Maybe DvbTdtSettings
dvbTdtSettings} -> Maybe DvbTdtSettings
dvbTdtSettings) (\s :: M2tsSettings
s@M2tsSettings' {} Maybe DvbTdtSettings
a -> M2tsSettings
s {$sel:dvbTdtSettings:M2tsSettings' :: Maybe DvbTdtSettings
dvbTdtSettings = Maybe DvbTdtSettings
a} :: M2tsSettings)

-- | Specify the packet identifier (PID) for DVB teletext data you include in
-- this output. Default is 499.
m2tsSettings_dvbTeletextPid :: Lens.Lens' M2tsSettings (Prelude.Maybe Prelude.Natural)
m2tsSettings_dvbTeletextPid :: Lens' M2tsSettings (Maybe Natural)
m2tsSettings_dvbTeletextPid = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\M2tsSettings' {Maybe Natural
dvbTeletextPid :: Maybe Natural
$sel:dvbTeletextPid:M2tsSettings' :: M2tsSettings -> Maybe Natural
dvbTeletextPid} -> Maybe Natural
dvbTeletextPid) (\s :: M2tsSettings
s@M2tsSettings' {} Maybe Natural
a -> M2tsSettings
s {$sel:dvbTeletextPid:M2tsSettings' :: Maybe Natural
dvbTeletextPid = Maybe Natural
a} :: M2tsSettings)

-- | When set to VIDEO_AND_FIXED_INTERVALS, audio EBP markers will be added
-- to partitions 3 and 4. The interval between these additional markers
-- will be fixed, and will be slightly shorter than the video EBP marker
-- interval. When set to VIDEO_INTERVAL, these additional markers will not
-- be inserted. Only applicable when EBP segmentation markers are is
-- selected (segmentationMarkers is EBP or EBP_LEGACY).
m2tsSettings_ebpAudioInterval :: Lens.Lens' M2tsSettings (Prelude.Maybe M2tsEbpAudioInterval)
m2tsSettings_ebpAudioInterval :: Lens' M2tsSettings (Maybe M2tsEbpAudioInterval)
m2tsSettings_ebpAudioInterval = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\M2tsSettings' {Maybe M2tsEbpAudioInterval
ebpAudioInterval :: Maybe M2tsEbpAudioInterval
$sel:ebpAudioInterval:M2tsSettings' :: M2tsSettings -> Maybe M2tsEbpAudioInterval
ebpAudioInterval} -> Maybe M2tsEbpAudioInterval
ebpAudioInterval) (\s :: M2tsSettings
s@M2tsSettings' {} Maybe M2tsEbpAudioInterval
a -> M2tsSettings
s {$sel:ebpAudioInterval:M2tsSettings' :: Maybe M2tsEbpAudioInterval
ebpAudioInterval = Maybe M2tsEbpAudioInterval
a} :: M2tsSettings)

-- | Selects which PIDs to place EBP markers on. They can either be placed
-- only on the video PID, or on both the video PID and all audio PIDs. Only
-- applicable when EBP segmentation markers are is selected
-- (segmentationMarkers is EBP or EBP_LEGACY).
m2tsSettings_ebpPlacement :: Lens.Lens' M2tsSettings (Prelude.Maybe M2tsEbpPlacement)
m2tsSettings_ebpPlacement :: Lens' M2tsSettings (Maybe M2tsEbpPlacement)
m2tsSettings_ebpPlacement = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\M2tsSettings' {Maybe M2tsEbpPlacement
ebpPlacement :: Maybe M2tsEbpPlacement
$sel:ebpPlacement:M2tsSettings' :: M2tsSettings -> Maybe M2tsEbpPlacement
ebpPlacement} -> Maybe M2tsEbpPlacement
ebpPlacement) (\s :: M2tsSettings
s@M2tsSettings' {} Maybe M2tsEbpPlacement
a -> M2tsSettings
s {$sel:ebpPlacement:M2tsSettings' :: Maybe M2tsEbpPlacement
ebpPlacement = Maybe M2tsEbpPlacement
a} :: M2tsSettings)

-- | Controls whether to include the ES Rate field in the PES header.
m2tsSettings_esRateInPes :: Lens.Lens' M2tsSettings (Prelude.Maybe M2tsEsRateInPes)
m2tsSettings_esRateInPes :: Lens' M2tsSettings (Maybe M2tsEsRateInPes)
m2tsSettings_esRateInPes = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\M2tsSettings' {Maybe M2tsEsRateInPes
esRateInPes :: Maybe M2tsEsRateInPes
$sel:esRateInPes:M2tsSettings' :: M2tsSettings -> Maybe M2tsEsRateInPes
esRateInPes} -> Maybe M2tsEsRateInPes
esRateInPes) (\s :: M2tsSettings
s@M2tsSettings' {} Maybe M2tsEsRateInPes
a -> M2tsSettings
s {$sel:esRateInPes:M2tsSettings' :: Maybe M2tsEsRateInPes
esRateInPes = Maybe M2tsEsRateInPes
a} :: M2tsSettings)

-- | Keep the default value (DEFAULT) unless you know that your audio EBP
-- markers are incorrectly appearing before your video EBP markers. To
-- correct this problem, set this value to Force (FORCE).
m2tsSettings_forceTsVideoEbpOrder :: Lens.Lens' M2tsSettings (Prelude.Maybe M2tsForceTsVideoEbpOrder)
m2tsSettings_forceTsVideoEbpOrder :: Lens' M2tsSettings (Maybe M2tsForceTsVideoEbpOrder)
m2tsSettings_forceTsVideoEbpOrder = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\M2tsSettings' {Maybe M2tsForceTsVideoEbpOrder
forceTsVideoEbpOrder :: Maybe M2tsForceTsVideoEbpOrder
$sel:forceTsVideoEbpOrder:M2tsSettings' :: M2tsSettings -> Maybe M2tsForceTsVideoEbpOrder
forceTsVideoEbpOrder} -> Maybe M2tsForceTsVideoEbpOrder
forceTsVideoEbpOrder) (\s :: M2tsSettings
s@M2tsSettings' {} Maybe M2tsForceTsVideoEbpOrder
a -> M2tsSettings
s {$sel:forceTsVideoEbpOrder:M2tsSettings' :: Maybe M2tsForceTsVideoEbpOrder
forceTsVideoEbpOrder = Maybe M2tsForceTsVideoEbpOrder
a} :: M2tsSettings)

-- | The length, in seconds, of each fragment. Only used with EBP markers.
m2tsSettings_fragmentTime :: Lens.Lens' M2tsSettings (Prelude.Maybe Prelude.Double)
m2tsSettings_fragmentTime :: Lens' M2tsSettings (Maybe Double)
m2tsSettings_fragmentTime = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\M2tsSettings' {Maybe Double
fragmentTime :: Maybe Double
$sel:fragmentTime:M2tsSettings' :: M2tsSettings -> Maybe Double
fragmentTime} -> Maybe Double
fragmentTime) (\s :: M2tsSettings
s@M2tsSettings' {} Maybe Double
a -> M2tsSettings
s {$sel:fragmentTime:M2tsSettings' :: Maybe Double
fragmentTime = Maybe Double
a} :: M2tsSettings)

-- | To include key-length-value metadata in this output: Set KLV metadata
-- insertion to Passthrough. MediaConvert reads KLV metadata present in
-- your input and passes it through to the output transport stream. To
-- exclude this KLV metadata: Set KLV metadata insertion to None or leave
-- blank.
m2tsSettings_klvMetadata :: Lens.Lens' M2tsSettings (Prelude.Maybe M2tsKlvMetadata)
m2tsSettings_klvMetadata :: Lens' M2tsSettings (Maybe M2tsKlvMetadata)
m2tsSettings_klvMetadata = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\M2tsSettings' {Maybe M2tsKlvMetadata
klvMetadata :: Maybe M2tsKlvMetadata
$sel:klvMetadata:M2tsSettings' :: M2tsSettings -> Maybe M2tsKlvMetadata
klvMetadata} -> Maybe M2tsKlvMetadata
klvMetadata) (\s :: M2tsSettings
s@M2tsSettings' {} Maybe M2tsKlvMetadata
a -> M2tsSettings
s {$sel:klvMetadata:M2tsSettings' :: Maybe M2tsKlvMetadata
klvMetadata = Maybe M2tsKlvMetadata
a} :: M2tsSettings)

-- | Specify the maximum time, in milliseconds, between Program Clock
-- References (PCRs) inserted into the transport stream.
m2tsSettings_maxPcrInterval :: Lens.Lens' M2tsSettings (Prelude.Maybe Prelude.Natural)
m2tsSettings_maxPcrInterval :: Lens' M2tsSettings (Maybe Natural)
m2tsSettings_maxPcrInterval = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\M2tsSettings' {Maybe Natural
maxPcrInterval :: Maybe Natural
$sel:maxPcrInterval:M2tsSettings' :: M2tsSettings -> Maybe Natural
maxPcrInterval} -> Maybe Natural
maxPcrInterval) (\s :: M2tsSettings
s@M2tsSettings' {} Maybe Natural
a -> M2tsSettings
s {$sel:maxPcrInterval:M2tsSettings' :: Maybe Natural
maxPcrInterval = Maybe Natural
a} :: M2tsSettings)

-- | When set, enforces that Encoder Boundary Points do not come within the
-- specified time interval of each other by looking ahead at input video.
-- If another EBP is going to come in within the specified time interval,
-- the current EBP is not emitted, and the segment is \"stretched\" to the
-- next marker. The lookahead value does not add latency to the system. The
-- Live Event must be configured elsewhere to create sufficient latency to
-- make the lookahead accurate.
m2tsSettings_minEbpInterval :: Lens.Lens' M2tsSettings (Prelude.Maybe Prelude.Natural)
m2tsSettings_minEbpInterval :: Lens' M2tsSettings (Maybe Natural)
m2tsSettings_minEbpInterval = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\M2tsSettings' {Maybe Natural
minEbpInterval :: Maybe Natural
$sel:minEbpInterval:M2tsSettings' :: M2tsSettings -> Maybe Natural
minEbpInterval} -> Maybe Natural
minEbpInterval) (\s :: M2tsSettings
s@M2tsSettings' {} Maybe Natural
a -> M2tsSettings
s {$sel:minEbpInterval:M2tsSettings' :: Maybe Natural
minEbpInterval = Maybe Natural
a} :: M2tsSettings)

-- | If INSERT, Nielsen inaudible tones for media tracking will be detected
-- in the input audio and an equivalent ID3 tag will be inserted in the
-- output.
m2tsSettings_nielsenId3 :: Lens.Lens' M2tsSettings (Prelude.Maybe M2tsNielsenId3)
m2tsSettings_nielsenId3 :: Lens' M2tsSettings (Maybe M2tsNielsenId3)
m2tsSettings_nielsenId3 = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\M2tsSettings' {Maybe M2tsNielsenId3
nielsenId3 :: Maybe M2tsNielsenId3
$sel:nielsenId3:M2tsSettings' :: M2tsSettings -> Maybe M2tsNielsenId3
nielsenId3} -> Maybe M2tsNielsenId3
nielsenId3) (\s :: M2tsSettings
s@M2tsSettings' {} Maybe M2tsNielsenId3
a -> M2tsSettings
s {$sel:nielsenId3:M2tsSettings' :: Maybe M2tsNielsenId3
nielsenId3 = Maybe M2tsNielsenId3
a} :: M2tsSettings)

-- | Value in bits per second of extra null packets to insert into the
-- transport stream. This can be used if a downstream encryption system
-- requires periodic null packets.
m2tsSettings_nullPacketBitrate :: Lens.Lens' M2tsSettings (Prelude.Maybe Prelude.Double)
m2tsSettings_nullPacketBitrate :: Lens' M2tsSettings (Maybe Double)
m2tsSettings_nullPacketBitrate = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\M2tsSettings' {Maybe Double
nullPacketBitrate :: Maybe Double
$sel:nullPacketBitrate:M2tsSettings' :: M2tsSettings -> Maybe Double
nullPacketBitrate} -> Maybe Double
nullPacketBitrate) (\s :: M2tsSettings
s@M2tsSettings' {} Maybe Double
a -> M2tsSettings
s {$sel:nullPacketBitrate:M2tsSettings' :: Maybe Double
nullPacketBitrate = Maybe Double
a} :: M2tsSettings)

-- | The number of milliseconds between instances of this table in the output
-- transport stream.
m2tsSettings_patInterval :: Lens.Lens' M2tsSettings (Prelude.Maybe Prelude.Natural)
m2tsSettings_patInterval :: Lens' M2tsSettings (Maybe Natural)
m2tsSettings_patInterval = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\M2tsSettings' {Maybe Natural
patInterval :: Maybe Natural
$sel:patInterval:M2tsSettings' :: M2tsSettings -> Maybe Natural
patInterval} -> Maybe Natural
patInterval) (\s :: M2tsSettings
s@M2tsSettings' {} Maybe Natural
a -> M2tsSettings
s {$sel:patInterval:M2tsSettings' :: Maybe Natural
patInterval = Maybe Natural
a} :: M2tsSettings)

-- | When set to PCR_EVERY_PES_PACKET, a Program Clock Reference value is
-- inserted for every Packetized Elementary Stream (PES) header. This is
-- effective only when the PCR PID is the same as the video or audio
-- elementary stream.
m2tsSettings_pcrControl :: Lens.Lens' M2tsSettings (Prelude.Maybe M2tsPcrControl)
m2tsSettings_pcrControl :: Lens' M2tsSettings (Maybe M2tsPcrControl)
m2tsSettings_pcrControl = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\M2tsSettings' {Maybe M2tsPcrControl
pcrControl :: Maybe M2tsPcrControl
$sel:pcrControl:M2tsSettings' :: M2tsSettings -> Maybe M2tsPcrControl
pcrControl} -> Maybe M2tsPcrControl
pcrControl) (\s :: M2tsSettings
s@M2tsSettings' {} Maybe M2tsPcrControl
a -> M2tsSettings
s {$sel:pcrControl:M2tsSettings' :: Maybe M2tsPcrControl
pcrControl = Maybe M2tsPcrControl
a} :: M2tsSettings)

-- | Specify the packet identifier (PID) for the program clock reference
-- (PCR) in this output. If you do not specify a value, the service will
-- use the value for Video PID (VideoPid).
m2tsSettings_pcrPid :: Lens.Lens' M2tsSettings (Prelude.Maybe Prelude.Natural)
m2tsSettings_pcrPid :: Lens' M2tsSettings (Maybe Natural)
m2tsSettings_pcrPid = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\M2tsSettings' {Maybe Natural
pcrPid :: Maybe Natural
$sel:pcrPid:M2tsSettings' :: M2tsSettings -> Maybe Natural
pcrPid} -> Maybe Natural
pcrPid) (\s :: M2tsSettings
s@M2tsSettings' {} Maybe Natural
a -> M2tsSettings
s {$sel:pcrPid:M2tsSettings' :: Maybe Natural
pcrPid = Maybe Natural
a} :: M2tsSettings)

-- | Specify the number of milliseconds between instances of the program map
-- table (PMT) in the output transport stream.
m2tsSettings_pmtInterval :: Lens.Lens' M2tsSettings (Prelude.Maybe Prelude.Natural)
m2tsSettings_pmtInterval :: Lens' M2tsSettings (Maybe Natural)
m2tsSettings_pmtInterval = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\M2tsSettings' {Maybe Natural
pmtInterval :: Maybe Natural
$sel:pmtInterval:M2tsSettings' :: M2tsSettings -> Maybe Natural
pmtInterval} -> Maybe Natural
pmtInterval) (\s :: M2tsSettings
s@M2tsSettings' {} Maybe Natural
a -> M2tsSettings
s {$sel:pmtInterval:M2tsSettings' :: Maybe Natural
pmtInterval = Maybe Natural
a} :: M2tsSettings)

-- | Specify the packet identifier (PID) for the program map table (PMT)
-- itself. Default is 480.
m2tsSettings_pmtPid :: Lens.Lens' M2tsSettings (Prelude.Maybe Prelude.Natural)
m2tsSettings_pmtPid :: Lens' M2tsSettings (Maybe Natural)
m2tsSettings_pmtPid = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\M2tsSettings' {Maybe Natural
pmtPid :: Maybe Natural
$sel:pmtPid:M2tsSettings' :: M2tsSettings -> Maybe Natural
pmtPid} -> Maybe Natural
pmtPid) (\s :: M2tsSettings
s@M2tsSettings' {} Maybe Natural
a -> M2tsSettings
s {$sel:pmtPid:M2tsSettings' :: Maybe Natural
pmtPid = Maybe Natural
a} :: M2tsSettings)

-- | Specify the packet identifier (PID) of the private metadata stream.
-- Default is 503.
m2tsSettings_privateMetadataPid :: Lens.Lens' M2tsSettings (Prelude.Maybe Prelude.Natural)
m2tsSettings_privateMetadataPid :: Lens' M2tsSettings (Maybe Natural)
m2tsSettings_privateMetadataPid = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\M2tsSettings' {Maybe Natural
privateMetadataPid :: Maybe Natural
$sel:privateMetadataPid:M2tsSettings' :: M2tsSettings -> Maybe Natural
privateMetadataPid} -> Maybe Natural
privateMetadataPid) (\s :: M2tsSettings
s@M2tsSettings' {} Maybe Natural
a -> M2tsSettings
s {$sel:privateMetadataPid:M2tsSettings' :: Maybe Natural
privateMetadataPid = Maybe Natural
a} :: M2tsSettings)

-- | Use Program number (programNumber) to specify the program number used in
-- the program map table (PMT) for this output. Default is 1. Program
-- numbers and program map tables are parts of MPEG-2 transport stream
-- containers, used for organizing data.
m2tsSettings_programNumber :: Lens.Lens' M2tsSettings (Prelude.Maybe Prelude.Natural)
m2tsSettings_programNumber :: Lens' M2tsSettings (Maybe Natural)
m2tsSettings_programNumber = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\M2tsSettings' {Maybe Natural
programNumber :: Maybe Natural
$sel:programNumber:M2tsSettings' :: M2tsSettings -> Maybe Natural
programNumber} -> Maybe Natural
programNumber) (\s :: M2tsSettings
s@M2tsSettings' {} Maybe Natural
a -> M2tsSettings
s {$sel:programNumber:M2tsSettings' :: Maybe Natural
programNumber = Maybe Natural
a} :: M2tsSettings)

-- | When set to CBR, inserts null packets into transport stream to fill
-- specified bitrate. When set to VBR, the bitrate setting acts as the
-- maximum bitrate, but the output will not be padded up to that bitrate.
m2tsSettings_rateMode :: Lens.Lens' M2tsSettings (Prelude.Maybe M2tsRateMode)
m2tsSettings_rateMode :: Lens' M2tsSettings (Maybe M2tsRateMode)
m2tsSettings_rateMode = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\M2tsSettings' {Maybe M2tsRateMode
rateMode :: Maybe M2tsRateMode
$sel:rateMode:M2tsSettings' :: M2tsSettings -> Maybe M2tsRateMode
rateMode} -> Maybe M2tsRateMode
rateMode) (\s :: M2tsSettings
s@M2tsSettings' {} Maybe M2tsRateMode
a -> M2tsSettings
s {$sel:rateMode:M2tsSettings' :: Maybe M2tsRateMode
rateMode = Maybe M2tsRateMode
a} :: M2tsSettings)

-- | Include this in your job settings to put SCTE-35 markers in your HLS and
-- transport stream outputs at the insertion points that you specify in an
-- ESAM XML document. Provide the document in the setting SCC XML (sccXml).
m2tsSettings_scte35Esam :: Lens.Lens' M2tsSettings (Prelude.Maybe M2tsScte35Esam)
m2tsSettings_scte35Esam :: Lens' M2tsSettings (Maybe M2tsScte35Esam)
m2tsSettings_scte35Esam = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\M2tsSettings' {Maybe M2tsScte35Esam
scte35Esam :: Maybe M2tsScte35Esam
$sel:scte35Esam:M2tsSettings' :: M2tsSettings -> Maybe M2tsScte35Esam
scte35Esam} -> Maybe M2tsScte35Esam
scte35Esam) (\s :: M2tsSettings
s@M2tsSettings' {} Maybe M2tsScte35Esam
a -> M2tsSettings
s {$sel:scte35Esam:M2tsSettings' :: Maybe M2tsScte35Esam
scte35Esam = Maybe M2tsScte35Esam
a} :: M2tsSettings)

-- | Specify the packet identifier (PID) of the SCTE-35 stream in the
-- transport stream.
m2tsSettings_scte35Pid :: Lens.Lens' M2tsSettings (Prelude.Maybe Prelude.Natural)
m2tsSettings_scte35Pid :: Lens' M2tsSettings (Maybe Natural)
m2tsSettings_scte35Pid = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\M2tsSettings' {Maybe Natural
scte35Pid :: Maybe Natural
$sel:scte35Pid:M2tsSettings' :: M2tsSettings -> Maybe Natural
scte35Pid} -> Maybe Natural
scte35Pid) (\s :: M2tsSettings
s@M2tsSettings' {} Maybe Natural
a -> M2tsSettings
s {$sel:scte35Pid:M2tsSettings' :: Maybe Natural
scte35Pid = Maybe Natural
a} :: M2tsSettings)

-- | For SCTE-35 markers from your input-- Choose Passthrough (PASSTHROUGH)
-- if you want SCTE-35 markers that appear in your input to also appear in
-- this output. Choose None (NONE) if you don\'t want SCTE-35 markers in
-- this output. For SCTE-35 markers from an ESAM XML document-- Choose None
-- (NONE). Also provide the ESAM XML as a string in the setting Signal
-- processing notification XML (sccXml). Also enable ESAM SCTE-35 (include
-- the property scte35Esam).
m2tsSettings_scte35Source :: Lens.Lens' M2tsSettings (Prelude.Maybe M2tsScte35Source)
m2tsSettings_scte35Source :: Lens' M2tsSettings (Maybe M2tsScte35Source)
m2tsSettings_scte35Source = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\M2tsSettings' {Maybe M2tsScte35Source
scte35Source :: Maybe M2tsScte35Source
$sel:scte35Source:M2tsSettings' :: M2tsSettings -> Maybe M2tsScte35Source
scte35Source} -> Maybe M2tsScte35Source
scte35Source) (\s :: M2tsSettings
s@M2tsSettings' {} Maybe M2tsScte35Source
a -> M2tsSettings
s {$sel:scte35Source:M2tsSettings' :: Maybe M2tsScte35Source
scte35Source = Maybe M2tsScte35Source
a} :: M2tsSettings)

-- | Inserts segmentation markers at each segmentation_time period.
-- rai_segstart sets the Random Access Indicator bit in the adaptation
-- field. rai_adapt sets the RAI bit and adds the current timecode in the
-- private data bytes. psi_segstart inserts PAT and PMT tables at the start
-- of segments. ebp adds Encoder Boundary Point information to the
-- adaptation field as per OpenCable specification OC-SP-EBP-I01-130118.
-- ebp_legacy adds Encoder Boundary Point information to the adaptation
-- field using a legacy proprietary format.
m2tsSettings_segmentationMarkers :: Lens.Lens' M2tsSettings (Prelude.Maybe M2tsSegmentationMarkers)
m2tsSettings_segmentationMarkers :: Lens' M2tsSettings (Maybe M2tsSegmentationMarkers)
m2tsSettings_segmentationMarkers = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\M2tsSettings' {Maybe M2tsSegmentationMarkers
segmentationMarkers :: Maybe M2tsSegmentationMarkers
$sel:segmentationMarkers:M2tsSettings' :: M2tsSettings -> Maybe M2tsSegmentationMarkers
segmentationMarkers} -> Maybe M2tsSegmentationMarkers
segmentationMarkers) (\s :: M2tsSettings
s@M2tsSettings' {} Maybe M2tsSegmentationMarkers
a -> M2tsSettings
s {$sel:segmentationMarkers:M2tsSettings' :: Maybe M2tsSegmentationMarkers
segmentationMarkers = Maybe M2tsSegmentationMarkers
a} :: M2tsSettings)

-- | The segmentation style parameter controls how segmentation markers are
-- inserted into the transport stream. With avails, it is possible that
-- segments may be truncated, which can influence where future segmentation
-- markers are inserted. When a segmentation style of \"reset_cadence\" is
-- selected and a segment is truncated due to an avail, we will reset the
-- segmentation cadence. This means the subsequent segment will have a
-- duration of of $segmentation_time seconds. When a segmentation style of
-- \"maintain_cadence\" is selected and a segment is truncated due to an
-- avail, we will not reset the segmentation cadence. This means the
-- subsequent segment will likely be truncated as well. However, all
-- segments after that will have a duration of $segmentation_time seconds.
-- Note that EBP lookahead is a slight exception to this rule.
m2tsSettings_segmentationStyle :: Lens.Lens' M2tsSettings (Prelude.Maybe M2tsSegmentationStyle)
m2tsSettings_segmentationStyle :: Lens' M2tsSettings (Maybe M2tsSegmentationStyle)
m2tsSettings_segmentationStyle = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\M2tsSettings' {Maybe M2tsSegmentationStyle
segmentationStyle :: Maybe M2tsSegmentationStyle
$sel:segmentationStyle:M2tsSettings' :: M2tsSettings -> Maybe M2tsSegmentationStyle
segmentationStyle} -> Maybe M2tsSegmentationStyle
segmentationStyle) (\s :: M2tsSettings
s@M2tsSettings' {} Maybe M2tsSegmentationStyle
a -> M2tsSettings
s {$sel:segmentationStyle:M2tsSettings' :: Maybe M2tsSegmentationStyle
segmentationStyle = Maybe M2tsSegmentationStyle
a} :: M2tsSettings)

-- | Specify the length, in seconds, of each segment. Required unless markers
-- is set to _none_.
m2tsSettings_segmentationTime :: Lens.Lens' M2tsSettings (Prelude.Maybe Prelude.Double)
m2tsSettings_segmentationTime :: Lens' M2tsSettings (Maybe Double)
m2tsSettings_segmentationTime = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\M2tsSettings' {Maybe Double
segmentationTime :: Maybe Double
$sel:segmentationTime:M2tsSettings' :: M2tsSettings -> Maybe Double
segmentationTime} -> Maybe Double
segmentationTime) (\s :: M2tsSettings
s@M2tsSettings' {} Maybe Double
a -> M2tsSettings
s {$sel:segmentationTime:M2tsSettings' :: Maybe Double
segmentationTime = Maybe Double
a} :: M2tsSettings)

-- | Packet Identifier (PID) of the ID3 metadata stream in the transport
-- stream.
m2tsSettings_timedMetadataPid :: Lens.Lens' M2tsSettings (Prelude.Maybe Prelude.Natural)
m2tsSettings_timedMetadataPid :: Lens' M2tsSettings (Maybe Natural)
m2tsSettings_timedMetadataPid = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\M2tsSettings' {Maybe Natural
timedMetadataPid :: Maybe Natural
$sel:timedMetadataPid:M2tsSettings' :: M2tsSettings -> Maybe Natural
timedMetadataPid} -> Maybe Natural
timedMetadataPid) (\s :: M2tsSettings
s@M2tsSettings' {} Maybe Natural
a -> M2tsSettings
s {$sel:timedMetadataPid:M2tsSettings' :: Maybe Natural
timedMetadataPid = Maybe Natural
a} :: M2tsSettings)

-- | Specify the ID for the transport stream itself in the program map table
-- for this output. Transport stream IDs and program map tables are parts
-- of MPEG-2 transport stream containers, used for organizing data.
m2tsSettings_transportStreamId :: Lens.Lens' M2tsSettings (Prelude.Maybe Prelude.Natural)
m2tsSettings_transportStreamId :: Lens' M2tsSettings (Maybe Natural)
m2tsSettings_transportStreamId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\M2tsSettings' {Maybe Natural
transportStreamId :: Maybe Natural
$sel:transportStreamId:M2tsSettings' :: M2tsSettings -> Maybe Natural
transportStreamId} -> Maybe Natural
transportStreamId) (\s :: M2tsSettings
s@M2tsSettings' {} Maybe Natural
a -> M2tsSettings
s {$sel:transportStreamId:M2tsSettings' :: Maybe Natural
transportStreamId = Maybe Natural
a} :: M2tsSettings)

-- | Specify the packet identifier (PID) of the elementary video stream in
-- the transport stream.
m2tsSettings_videoPid :: Lens.Lens' M2tsSettings (Prelude.Maybe Prelude.Natural)
m2tsSettings_videoPid :: Lens' M2tsSettings (Maybe Natural)
m2tsSettings_videoPid = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\M2tsSettings' {Maybe Natural
videoPid :: Maybe Natural
$sel:videoPid:M2tsSettings' :: M2tsSettings -> Maybe Natural
videoPid} -> Maybe Natural
videoPid) (\s :: M2tsSettings
s@M2tsSettings' {} Maybe Natural
a -> M2tsSettings
s {$sel:videoPid:M2tsSettings' :: Maybe Natural
videoPid = Maybe Natural
a} :: M2tsSettings)

instance Data.FromJSON M2tsSettings where
  parseJSON :: Value -> Parser M2tsSettings
parseJSON =
    forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.withObject
      String
"M2tsSettings"
      ( \Object
x ->
          Maybe M2tsAudioBufferModel
-> Maybe M2tsAudioDuration
-> Maybe Natural
-> Maybe [Natural]
-> Maybe Natural
-> Maybe M2tsBufferModel
-> Maybe M2tsDataPtsControl
-> Maybe DvbNitSettings
-> Maybe DvbSdtSettings
-> Maybe [Natural]
-> Maybe DvbTdtSettings
-> Maybe Natural
-> Maybe M2tsEbpAudioInterval
-> Maybe M2tsEbpPlacement
-> Maybe M2tsEsRateInPes
-> Maybe M2tsForceTsVideoEbpOrder
-> Maybe Double
-> Maybe M2tsKlvMetadata
-> Maybe Natural
-> Maybe Natural
-> Maybe M2tsNielsenId3
-> Maybe Double
-> Maybe Natural
-> Maybe M2tsPcrControl
-> Maybe Natural
-> Maybe Natural
-> Maybe Natural
-> Maybe Natural
-> Maybe Natural
-> Maybe M2tsRateMode
-> Maybe M2tsScte35Esam
-> Maybe Natural
-> Maybe M2tsScte35Source
-> Maybe M2tsSegmentationMarkers
-> Maybe M2tsSegmentationStyle
-> Maybe Double
-> Maybe Natural
-> Maybe Natural
-> Maybe Natural
-> M2tsSettings
M2tsSettings'
            forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"audioBufferModel")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"audioDuration")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"audioFramesPerPes")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"audioPids" forall a. Parser (Maybe a) -> a -> Parser a
Data..!= forall a. Monoid a => a
Prelude.mempty)
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"bitrate")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"bufferModel")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"dataPTSControl")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"dvbNitSettings")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"dvbSdtSettings")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"dvbSubPids" forall a. Parser (Maybe a) -> a -> Parser a
Data..!= forall a. Monoid a => a
Prelude.mempty)
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"dvbTdtSettings")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"dvbTeletextPid")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"ebpAudioInterval")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"ebpPlacement")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"esRateInPes")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"forceTsVideoEbpOrder")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"fragmentTime")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"klvMetadata")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"maxPcrInterval")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"minEbpInterval")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"nielsenId3")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"nullPacketBitrate")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"patInterval")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"pcrControl")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"pcrPid")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"pmtInterval")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"pmtPid")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"privateMetadataPid")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"programNumber")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"rateMode")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"scte35Esam")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"scte35Pid")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"scte35Source")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"segmentationMarkers")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"segmentationStyle")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"segmentationTime")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"timedMetadataPid")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"transportStreamId")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"videoPid")
      )

instance Prelude.Hashable M2tsSettings where
  hashWithSalt :: Int -> M2tsSettings -> Int
hashWithSalt Int
_salt M2tsSettings' {Maybe Double
Maybe Natural
Maybe [Natural]
Maybe DvbNitSettings
Maybe DvbTdtSettings
Maybe M2tsAudioBufferModel
Maybe M2tsAudioDuration
Maybe M2tsBufferModel
Maybe M2tsDataPtsControl
Maybe M2tsEbpAudioInterval
Maybe M2tsEbpPlacement
Maybe M2tsEsRateInPes
Maybe M2tsForceTsVideoEbpOrder
Maybe M2tsKlvMetadata
Maybe M2tsNielsenId3
Maybe M2tsPcrControl
Maybe M2tsRateMode
Maybe M2tsScte35Esam
Maybe M2tsScte35Source
Maybe M2tsSegmentationMarkers
Maybe M2tsSegmentationStyle
Maybe DvbSdtSettings
videoPid :: Maybe Natural
transportStreamId :: Maybe Natural
timedMetadataPid :: Maybe Natural
segmentationTime :: Maybe Double
segmentationStyle :: Maybe M2tsSegmentationStyle
segmentationMarkers :: Maybe M2tsSegmentationMarkers
scte35Source :: Maybe M2tsScte35Source
scte35Pid :: Maybe Natural
scte35Esam :: Maybe M2tsScte35Esam
rateMode :: Maybe M2tsRateMode
programNumber :: Maybe Natural
privateMetadataPid :: Maybe Natural
pmtPid :: Maybe Natural
pmtInterval :: Maybe Natural
pcrPid :: Maybe Natural
pcrControl :: Maybe M2tsPcrControl
patInterval :: Maybe Natural
nullPacketBitrate :: Maybe Double
nielsenId3 :: Maybe M2tsNielsenId3
minEbpInterval :: Maybe Natural
maxPcrInterval :: Maybe Natural
klvMetadata :: Maybe M2tsKlvMetadata
fragmentTime :: Maybe Double
forceTsVideoEbpOrder :: Maybe M2tsForceTsVideoEbpOrder
esRateInPes :: Maybe M2tsEsRateInPes
ebpPlacement :: Maybe M2tsEbpPlacement
ebpAudioInterval :: Maybe M2tsEbpAudioInterval
dvbTeletextPid :: Maybe Natural
dvbTdtSettings :: Maybe DvbTdtSettings
dvbSubPids :: Maybe [Natural]
dvbSdtSettings :: Maybe DvbSdtSettings
dvbNitSettings :: Maybe DvbNitSettings
dataPTSControl :: Maybe M2tsDataPtsControl
bufferModel :: Maybe M2tsBufferModel
bitrate :: Maybe Natural
audioPids :: Maybe [Natural]
audioFramesPerPes :: Maybe Natural
audioDuration :: Maybe M2tsAudioDuration
audioBufferModel :: Maybe M2tsAudioBufferModel
$sel:videoPid:M2tsSettings' :: M2tsSettings -> Maybe Natural
$sel:transportStreamId:M2tsSettings' :: M2tsSettings -> Maybe Natural
$sel:timedMetadataPid:M2tsSettings' :: M2tsSettings -> Maybe Natural
$sel:segmentationTime:M2tsSettings' :: M2tsSettings -> Maybe Double
$sel:segmentationStyle:M2tsSettings' :: M2tsSettings -> Maybe M2tsSegmentationStyle
$sel:segmentationMarkers:M2tsSettings' :: M2tsSettings -> Maybe M2tsSegmentationMarkers
$sel:scte35Source:M2tsSettings' :: M2tsSettings -> Maybe M2tsScte35Source
$sel:scte35Pid:M2tsSettings' :: M2tsSettings -> Maybe Natural
$sel:scte35Esam:M2tsSettings' :: M2tsSettings -> Maybe M2tsScte35Esam
$sel:rateMode:M2tsSettings' :: M2tsSettings -> Maybe M2tsRateMode
$sel:programNumber:M2tsSettings' :: M2tsSettings -> Maybe Natural
$sel:privateMetadataPid:M2tsSettings' :: M2tsSettings -> Maybe Natural
$sel:pmtPid:M2tsSettings' :: M2tsSettings -> Maybe Natural
$sel:pmtInterval:M2tsSettings' :: M2tsSettings -> Maybe Natural
$sel:pcrPid:M2tsSettings' :: M2tsSettings -> Maybe Natural
$sel:pcrControl:M2tsSettings' :: M2tsSettings -> Maybe M2tsPcrControl
$sel:patInterval:M2tsSettings' :: M2tsSettings -> Maybe Natural
$sel:nullPacketBitrate:M2tsSettings' :: M2tsSettings -> Maybe Double
$sel:nielsenId3:M2tsSettings' :: M2tsSettings -> Maybe M2tsNielsenId3
$sel:minEbpInterval:M2tsSettings' :: M2tsSettings -> Maybe Natural
$sel:maxPcrInterval:M2tsSettings' :: M2tsSettings -> Maybe Natural
$sel:klvMetadata:M2tsSettings' :: M2tsSettings -> Maybe M2tsKlvMetadata
$sel:fragmentTime:M2tsSettings' :: M2tsSettings -> Maybe Double
$sel:forceTsVideoEbpOrder:M2tsSettings' :: M2tsSettings -> Maybe M2tsForceTsVideoEbpOrder
$sel:esRateInPes:M2tsSettings' :: M2tsSettings -> Maybe M2tsEsRateInPes
$sel:ebpPlacement:M2tsSettings' :: M2tsSettings -> Maybe M2tsEbpPlacement
$sel:ebpAudioInterval:M2tsSettings' :: M2tsSettings -> Maybe M2tsEbpAudioInterval
$sel:dvbTeletextPid:M2tsSettings' :: M2tsSettings -> Maybe Natural
$sel:dvbTdtSettings:M2tsSettings' :: M2tsSettings -> Maybe DvbTdtSettings
$sel:dvbSubPids:M2tsSettings' :: M2tsSettings -> Maybe [Natural]
$sel:dvbSdtSettings:M2tsSettings' :: M2tsSettings -> Maybe DvbSdtSettings
$sel:dvbNitSettings:M2tsSettings' :: M2tsSettings -> Maybe DvbNitSettings
$sel:dataPTSControl:M2tsSettings' :: M2tsSettings -> Maybe M2tsDataPtsControl
$sel:bufferModel:M2tsSettings' :: M2tsSettings -> Maybe M2tsBufferModel
$sel:bitrate:M2tsSettings' :: M2tsSettings -> Maybe Natural
$sel:audioPids:M2tsSettings' :: M2tsSettings -> Maybe [Natural]
$sel:audioFramesPerPes:M2tsSettings' :: M2tsSettings -> Maybe Natural
$sel:audioDuration:M2tsSettings' :: M2tsSettings -> Maybe M2tsAudioDuration
$sel:audioBufferModel:M2tsSettings' :: M2tsSettings -> Maybe M2tsAudioBufferModel
..} =
    Int
_salt
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe M2tsAudioBufferModel
audioBufferModel
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe M2tsAudioDuration
audioDuration
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
audioFramesPerPes
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Natural]
audioPids
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
bitrate
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe M2tsBufferModel
bufferModel
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe M2tsDataPtsControl
dataPTSControl
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe DvbNitSettings
dvbNitSettings
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe DvbSdtSettings
dvbSdtSettings
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Natural]
dvbSubPids
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe DvbTdtSettings
dvbTdtSettings
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
dvbTeletextPid
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe M2tsEbpAudioInterval
ebpAudioInterval
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe M2tsEbpPlacement
ebpPlacement
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe M2tsEsRateInPes
esRateInPes
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe M2tsForceTsVideoEbpOrder
forceTsVideoEbpOrder
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Double
fragmentTime
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe M2tsKlvMetadata
klvMetadata
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
maxPcrInterval
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
minEbpInterval
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe M2tsNielsenId3
nielsenId3
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Double
nullPacketBitrate
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
patInterval
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe M2tsPcrControl
pcrControl
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
pcrPid
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
pmtInterval
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
pmtPid
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
privateMetadataPid
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
programNumber
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe M2tsRateMode
rateMode
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe M2tsScte35Esam
scte35Esam
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
scte35Pid
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe M2tsScte35Source
scte35Source
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe M2tsSegmentationMarkers
segmentationMarkers
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe M2tsSegmentationStyle
segmentationStyle
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Double
segmentationTime
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
timedMetadataPid
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
transportStreamId
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
videoPid

instance Prelude.NFData M2tsSettings where
  rnf :: M2tsSettings -> ()
rnf M2tsSettings' {Maybe Double
Maybe Natural
Maybe [Natural]
Maybe DvbNitSettings
Maybe DvbTdtSettings
Maybe M2tsAudioBufferModel
Maybe M2tsAudioDuration
Maybe M2tsBufferModel
Maybe M2tsDataPtsControl
Maybe M2tsEbpAudioInterval
Maybe M2tsEbpPlacement
Maybe M2tsEsRateInPes
Maybe M2tsForceTsVideoEbpOrder
Maybe M2tsKlvMetadata
Maybe M2tsNielsenId3
Maybe M2tsPcrControl
Maybe M2tsRateMode
Maybe M2tsScte35Esam
Maybe M2tsScte35Source
Maybe M2tsSegmentationMarkers
Maybe M2tsSegmentationStyle
Maybe DvbSdtSettings
videoPid :: Maybe Natural
transportStreamId :: Maybe Natural
timedMetadataPid :: Maybe Natural
segmentationTime :: Maybe Double
segmentationStyle :: Maybe M2tsSegmentationStyle
segmentationMarkers :: Maybe M2tsSegmentationMarkers
scte35Source :: Maybe M2tsScte35Source
scte35Pid :: Maybe Natural
scte35Esam :: Maybe M2tsScte35Esam
rateMode :: Maybe M2tsRateMode
programNumber :: Maybe Natural
privateMetadataPid :: Maybe Natural
pmtPid :: Maybe Natural
pmtInterval :: Maybe Natural
pcrPid :: Maybe Natural
pcrControl :: Maybe M2tsPcrControl
patInterval :: Maybe Natural
nullPacketBitrate :: Maybe Double
nielsenId3 :: Maybe M2tsNielsenId3
minEbpInterval :: Maybe Natural
maxPcrInterval :: Maybe Natural
klvMetadata :: Maybe M2tsKlvMetadata
fragmentTime :: Maybe Double
forceTsVideoEbpOrder :: Maybe M2tsForceTsVideoEbpOrder
esRateInPes :: Maybe M2tsEsRateInPes
ebpPlacement :: Maybe M2tsEbpPlacement
ebpAudioInterval :: Maybe M2tsEbpAudioInterval
dvbTeletextPid :: Maybe Natural
dvbTdtSettings :: Maybe DvbTdtSettings
dvbSubPids :: Maybe [Natural]
dvbSdtSettings :: Maybe DvbSdtSettings
dvbNitSettings :: Maybe DvbNitSettings
dataPTSControl :: Maybe M2tsDataPtsControl
bufferModel :: Maybe M2tsBufferModel
bitrate :: Maybe Natural
audioPids :: Maybe [Natural]
audioFramesPerPes :: Maybe Natural
audioDuration :: Maybe M2tsAudioDuration
audioBufferModel :: Maybe M2tsAudioBufferModel
$sel:videoPid:M2tsSettings' :: M2tsSettings -> Maybe Natural
$sel:transportStreamId:M2tsSettings' :: M2tsSettings -> Maybe Natural
$sel:timedMetadataPid:M2tsSettings' :: M2tsSettings -> Maybe Natural
$sel:segmentationTime:M2tsSettings' :: M2tsSettings -> Maybe Double
$sel:segmentationStyle:M2tsSettings' :: M2tsSettings -> Maybe M2tsSegmentationStyle
$sel:segmentationMarkers:M2tsSettings' :: M2tsSettings -> Maybe M2tsSegmentationMarkers
$sel:scte35Source:M2tsSettings' :: M2tsSettings -> Maybe M2tsScte35Source
$sel:scte35Pid:M2tsSettings' :: M2tsSettings -> Maybe Natural
$sel:scte35Esam:M2tsSettings' :: M2tsSettings -> Maybe M2tsScte35Esam
$sel:rateMode:M2tsSettings' :: M2tsSettings -> Maybe M2tsRateMode
$sel:programNumber:M2tsSettings' :: M2tsSettings -> Maybe Natural
$sel:privateMetadataPid:M2tsSettings' :: M2tsSettings -> Maybe Natural
$sel:pmtPid:M2tsSettings' :: M2tsSettings -> Maybe Natural
$sel:pmtInterval:M2tsSettings' :: M2tsSettings -> Maybe Natural
$sel:pcrPid:M2tsSettings' :: M2tsSettings -> Maybe Natural
$sel:pcrControl:M2tsSettings' :: M2tsSettings -> Maybe M2tsPcrControl
$sel:patInterval:M2tsSettings' :: M2tsSettings -> Maybe Natural
$sel:nullPacketBitrate:M2tsSettings' :: M2tsSettings -> Maybe Double
$sel:nielsenId3:M2tsSettings' :: M2tsSettings -> Maybe M2tsNielsenId3
$sel:minEbpInterval:M2tsSettings' :: M2tsSettings -> Maybe Natural
$sel:maxPcrInterval:M2tsSettings' :: M2tsSettings -> Maybe Natural
$sel:klvMetadata:M2tsSettings' :: M2tsSettings -> Maybe M2tsKlvMetadata
$sel:fragmentTime:M2tsSettings' :: M2tsSettings -> Maybe Double
$sel:forceTsVideoEbpOrder:M2tsSettings' :: M2tsSettings -> Maybe M2tsForceTsVideoEbpOrder
$sel:esRateInPes:M2tsSettings' :: M2tsSettings -> Maybe M2tsEsRateInPes
$sel:ebpPlacement:M2tsSettings' :: M2tsSettings -> Maybe M2tsEbpPlacement
$sel:ebpAudioInterval:M2tsSettings' :: M2tsSettings -> Maybe M2tsEbpAudioInterval
$sel:dvbTeletextPid:M2tsSettings' :: M2tsSettings -> Maybe Natural
$sel:dvbTdtSettings:M2tsSettings' :: M2tsSettings -> Maybe DvbTdtSettings
$sel:dvbSubPids:M2tsSettings' :: M2tsSettings -> Maybe [Natural]
$sel:dvbSdtSettings:M2tsSettings' :: M2tsSettings -> Maybe DvbSdtSettings
$sel:dvbNitSettings:M2tsSettings' :: M2tsSettings -> Maybe DvbNitSettings
$sel:dataPTSControl:M2tsSettings' :: M2tsSettings -> Maybe M2tsDataPtsControl
$sel:bufferModel:M2tsSettings' :: M2tsSettings -> Maybe M2tsBufferModel
$sel:bitrate:M2tsSettings' :: M2tsSettings -> Maybe Natural
$sel:audioPids:M2tsSettings' :: M2tsSettings -> Maybe [Natural]
$sel:audioFramesPerPes:M2tsSettings' :: M2tsSettings -> Maybe Natural
$sel:audioDuration:M2tsSettings' :: M2tsSettings -> Maybe M2tsAudioDuration
$sel:audioBufferModel:M2tsSettings' :: M2tsSettings -> Maybe M2tsAudioBufferModel
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe M2tsAudioBufferModel
audioBufferModel
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe M2tsAudioDuration
audioDuration
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
audioFramesPerPes
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Natural]
audioPids
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
bitrate
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe M2tsBufferModel
bufferModel
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe M2tsDataPtsControl
dataPTSControl
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe DvbNitSettings
dvbNitSettings
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe DvbSdtSettings
dvbSdtSettings
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Natural]
dvbSubPids
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe DvbTdtSettings
dvbTdtSettings
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
dvbTeletextPid
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe M2tsEbpAudioInterval
ebpAudioInterval
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe M2tsEbpPlacement
ebpPlacement
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe M2tsEsRateInPes
esRateInPes
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe M2tsForceTsVideoEbpOrder
forceTsVideoEbpOrder
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Double
fragmentTime
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe M2tsKlvMetadata
klvMetadata
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
maxPcrInterval
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
minEbpInterval
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe M2tsNielsenId3
nielsenId3
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
        Maybe Double
nullPacketBitrate
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
patInterval
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe M2tsPcrControl
pcrControl
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
pcrPid
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
        Maybe Natural
pmtInterval
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
        Maybe Natural
pmtPid
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
        Maybe Natural
privateMetadataPid
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
        Maybe Natural
programNumber
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
        Maybe M2tsRateMode
rateMode
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
        Maybe M2tsScte35Esam
scte35Esam
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
        Maybe Natural
scte35Pid
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
        Maybe M2tsScte35Source
scte35Source
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
        Maybe M2tsSegmentationMarkers
segmentationMarkers
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
        Maybe M2tsSegmentationStyle
segmentationStyle
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
        Maybe Double
segmentationTime
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
        Maybe Natural
timedMetadataPid
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
        Maybe Natural
transportStreamId
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
        Maybe Natural
videoPid

instance Data.ToJSON M2tsSettings where
  toJSON :: M2tsSettings -> Value
toJSON M2tsSettings' {Maybe Double
Maybe Natural
Maybe [Natural]
Maybe DvbNitSettings
Maybe DvbTdtSettings
Maybe M2tsAudioBufferModel
Maybe M2tsAudioDuration
Maybe M2tsBufferModel
Maybe M2tsDataPtsControl
Maybe M2tsEbpAudioInterval
Maybe M2tsEbpPlacement
Maybe M2tsEsRateInPes
Maybe M2tsForceTsVideoEbpOrder
Maybe M2tsKlvMetadata
Maybe M2tsNielsenId3
Maybe M2tsPcrControl
Maybe M2tsRateMode
Maybe M2tsScte35Esam
Maybe M2tsScte35Source
Maybe M2tsSegmentationMarkers
Maybe M2tsSegmentationStyle
Maybe DvbSdtSettings
videoPid :: Maybe Natural
transportStreamId :: Maybe Natural
timedMetadataPid :: Maybe Natural
segmentationTime :: Maybe Double
segmentationStyle :: Maybe M2tsSegmentationStyle
segmentationMarkers :: Maybe M2tsSegmentationMarkers
scte35Source :: Maybe M2tsScte35Source
scte35Pid :: Maybe Natural
scte35Esam :: Maybe M2tsScte35Esam
rateMode :: Maybe M2tsRateMode
programNumber :: Maybe Natural
privateMetadataPid :: Maybe Natural
pmtPid :: Maybe Natural
pmtInterval :: Maybe Natural
pcrPid :: Maybe Natural
pcrControl :: Maybe M2tsPcrControl
patInterval :: Maybe Natural
nullPacketBitrate :: Maybe Double
nielsenId3 :: Maybe M2tsNielsenId3
minEbpInterval :: Maybe Natural
maxPcrInterval :: Maybe Natural
klvMetadata :: Maybe M2tsKlvMetadata
fragmentTime :: Maybe Double
forceTsVideoEbpOrder :: Maybe M2tsForceTsVideoEbpOrder
esRateInPes :: Maybe M2tsEsRateInPes
ebpPlacement :: Maybe M2tsEbpPlacement
ebpAudioInterval :: Maybe M2tsEbpAudioInterval
dvbTeletextPid :: Maybe Natural
dvbTdtSettings :: Maybe DvbTdtSettings
dvbSubPids :: Maybe [Natural]
dvbSdtSettings :: Maybe DvbSdtSettings
dvbNitSettings :: Maybe DvbNitSettings
dataPTSControl :: Maybe M2tsDataPtsControl
bufferModel :: Maybe M2tsBufferModel
bitrate :: Maybe Natural
audioPids :: Maybe [Natural]
audioFramesPerPes :: Maybe Natural
audioDuration :: Maybe M2tsAudioDuration
audioBufferModel :: Maybe M2tsAudioBufferModel
$sel:videoPid:M2tsSettings' :: M2tsSettings -> Maybe Natural
$sel:transportStreamId:M2tsSettings' :: M2tsSettings -> Maybe Natural
$sel:timedMetadataPid:M2tsSettings' :: M2tsSettings -> Maybe Natural
$sel:segmentationTime:M2tsSettings' :: M2tsSettings -> Maybe Double
$sel:segmentationStyle:M2tsSettings' :: M2tsSettings -> Maybe M2tsSegmentationStyle
$sel:segmentationMarkers:M2tsSettings' :: M2tsSettings -> Maybe M2tsSegmentationMarkers
$sel:scte35Source:M2tsSettings' :: M2tsSettings -> Maybe M2tsScte35Source
$sel:scte35Pid:M2tsSettings' :: M2tsSettings -> Maybe Natural
$sel:scte35Esam:M2tsSettings' :: M2tsSettings -> Maybe M2tsScte35Esam
$sel:rateMode:M2tsSettings' :: M2tsSettings -> Maybe M2tsRateMode
$sel:programNumber:M2tsSettings' :: M2tsSettings -> Maybe Natural
$sel:privateMetadataPid:M2tsSettings' :: M2tsSettings -> Maybe Natural
$sel:pmtPid:M2tsSettings' :: M2tsSettings -> Maybe Natural
$sel:pmtInterval:M2tsSettings' :: M2tsSettings -> Maybe Natural
$sel:pcrPid:M2tsSettings' :: M2tsSettings -> Maybe Natural
$sel:pcrControl:M2tsSettings' :: M2tsSettings -> Maybe M2tsPcrControl
$sel:patInterval:M2tsSettings' :: M2tsSettings -> Maybe Natural
$sel:nullPacketBitrate:M2tsSettings' :: M2tsSettings -> Maybe Double
$sel:nielsenId3:M2tsSettings' :: M2tsSettings -> Maybe M2tsNielsenId3
$sel:minEbpInterval:M2tsSettings' :: M2tsSettings -> Maybe Natural
$sel:maxPcrInterval:M2tsSettings' :: M2tsSettings -> Maybe Natural
$sel:klvMetadata:M2tsSettings' :: M2tsSettings -> Maybe M2tsKlvMetadata
$sel:fragmentTime:M2tsSettings' :: M2tsSettings -> Maybe Double
$sel:forceTsVideoEbpOrder:M2tsSettings' :: M2tsSettings -> Maybe M2tsForceTsVideoEbpOrder
$sel:esRateInPes:M2tsSettings' :: M2tsSettings -> Maybe M2tsEsRateInPes
$sel:ebpPlacement:M2tsSettings' :: M2tsSettings -> Maybe M2tsEbpPlacement
$sel:ebpAudioInterval:M2tsSettings' :: M2tsSettings -> Maybe M2tsEbpAudioInterval
$sel:dvbTeletextPid:M2tsSettings' :: M2tsSettings -> Maybe Natural
$sel:dvbTdtSettings:M2tsSettings' :: M2tsSettings -> Maybe DvbTdtSettings
$sel:dvbSubPids:M2tsSettings' :: M2tsSettings -> Maybe [Natural]
$sel:dvbSdtSettings:M2tsSettings' :: M2tsSettings -> Maybe DvbSdtSettings
$sel:dvbNitSettings:M2tsSettings' :: M2tsSettings -> Maybe DvbNitSettings
$sel:dataPTSControl:M2tsSettings' :: M2tsSettings -> Maybe M2tsDataPtsControl
$sel:bufferModel:M2tsSettings' :: M2tsSettings -> Maybe M2tsBufferModel
$sel:bitrate:M2tsSettings' :: M2tsSettings -> Maybe Natural
$sel:audioPids:M2tsSettings' :: M2tsSettings -> Maybe [Natural]
$sel:audioFramesPerPes:M2tsSettings' :: M2tsSettings -> Maybe Natural
$sel:audioDuration:M2tsSettings' :: M2tsSettings -> Maybe M2tsAudioDuration
$sel:audioBufferModel:M2tsSettings' :: M2tsSettings -> Maybe M2tsAudioBufferModel
..} =
    [Pair] -> Value
Data.object
      ( forall a. [Maybe a] -> [a]
Prelude.catMaybes
          [ (Key
"audioBufferModel" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
              forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe M2tsAudioBufferModel
audioBufferModel,
            (Key
"audioDuration" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe M2tsAudioDuration
audioDuration,
            (Key
"audioFramesPerPes" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
              forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Natural
audioFramesPerPes,
            (Key
"audioPids" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Natural]
audioPids,
            (Key
"bitrate" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Natural
bitrate,
            (Key
"bufferModel" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe M2tsBufferModel
bufferModel,
            (Key
"dataPTSControl" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
              forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe M2tsDataPtsControl
dataPTSControl,
            (Key
"dvbNitSettings" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
              forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe DvbNitSettings
dvbNitSettings,
            (Key
"dvbSdtSettings" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
              forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe DvbSdtSettings
dvbSdtSettings,
            (Key
"dvbSubPids" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Natural]
dvbSubPids,
            (Key
"dvbTdtSettings" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
              forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe DvbTdtSettings
dvbTdtSettings,
            (Key
"dvbTeletextPid" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
              forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Natural
dvbTeletextPid,
            (Key
"ebpAudioInterval" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
              forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe M2tsEbpAudioInterval
ebpAudioInterval,
            (Key
"ebpPlacement" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe M2tsEbpPlacement
ebpPlacement,
            (Key
"esRateInPes" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe M2tsEsRateInPes
esRateInPes,
            (Key
"forceTsVideoEbpOrder" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
              forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe M2tsForceTsVideoEbpOrder
forceTsVideoEbpOrder,
            (Key
"fragmentTime" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Double
fragmentTime,
            (Key
"klvMetadata" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe M2tsKlvMetadata
klvMetadata,
            (Key
"maxPcrInterval" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
              forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Natural
maxPcrInterval,
            (Key
"minEbpInterval" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
              forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Natural
minEbpInterval,
            (Key
"nielsenId3" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe M2tsNielsenId3
nielsenId3,
            (Key
"nullPacketBitrate" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
              forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Double
nullPacketBitrate,
            (Key
"patInterval" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Natural
patInterval,
            (Key
"pcrControl" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe M2tsPcrControl
pcrControl,
            (Key
"pcrPid" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Natural
pcrPid,
            (Key
"pmtInterval" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Natural
pmtInterval,
            (Key
"pmtPid" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Natural
pmtPid,
            (Key
"privateMetadataPid" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
              forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Natural
privateMetadataPid,
            (Key
"programNumber" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Natural
programNumber,
            (Key
"rateMode" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe M2tsRateMode
rateMode,
            (Key
"scte35Esam" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe M2tsScte35Esam
scte35Esam,
            (Key
"scte35Pid" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Natural
scte35Pid,
            (Key
"scte35Source" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe M2tsScte35Source
scte35Source,
            (Key
"segmentationMarkers" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
              forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe M2tsSegmentationMarkers
segmentationMarkers,
            (Key
"segmentationStyle" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
              forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe M2tsSegmentationStyle
segmentationStyle,
            (Key
"segmentationTime" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
              forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Double
segmentationTime,
            (Key
"timedMetadataPid" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
              forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Natural
timedMetadataPid,
            (Key
"transportStreamId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
              forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Natural
transportStreamId,
            (Key
"videoPid" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Natural
videoPid
          ]
      )