{-# 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 #-}
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
data M2tsSettings = M2tsSettings'
{
M2tsSettings -> Maybe M2tsAudioBufferModel
audioBufferModel :: Prelude.Maybe M2tsAudioBufferModel,
M2tsSettings -> Maybe M2tsAudioDuration
audioDuration :: Prelude.Maybe M2tsAudioDuration,
M2tsSettings -> Maybe Natural
audioFramesPerPes :: Prelude.Maybe Prelude.Natural,
M2tsSettings -> Maybe [Natural]
audioPids :: Prelude.Maybe [Prelude.Natural],
M2tsSettings -> Maybe Natural
bitrate :: Prelude.Maybe Prelude.Natural,
M2tsSettings -> Maybe M2tsBufferModel
bufferModel :: Prelude.Maybe M2tsBufferModel,
M2tsSettings -> Maybe M2tsDataPtsControl
dataPTSControl :: Prelude.Maybe M2tsDataPtsControl,
M2tsSettings -> Maybe DvbNitSettings
dvbNitSettings :: Prelude.Maybe DvbNitSettings,
M2tsSettings -> Maybe DvbSdtSettings
dvbSdtSettings :: Prelude.Maybe DvbSdtSettings,
M2tsSettings -> Maybe [Natural]
dvbSubPids :: Prelude.Maybe [Prelude.Natural],
M2tsSettings -> Maybe DvbTdtSettings
dvbTdtSettings :: Prelude.Maybe DvbTdtSettings,
M2tsSettings -> Maybe Natural
dvbTeletextPid :: Prelude.Maybe Prelude.Natural,
M2tsSettings -> Maybe M2tsEbpAudioInterval
ebpAudioInterval :: Prelude.Maybe M2tsEbpAudioInterval,
M2tsSettings -> Maybe M2tsEbpPlacement
ebpPlacement :: Prelude.Maybe M2tsEbpPlacement,
M2tsSettings -> Maybe M2tsEsRateInPes
esRateInPes :: Prelude.Maybe M2tsEsRateInPes,
M2tsSettings -> Maybe M2tsForceTsVideoEbpOrder
forceTsVideoEbpOrder :: Prelude.Maybe M2tsForceTsVideoEbpOrder,
M2tsSettings -> Maybe Double
fragmentTime :: Prelude.Maybe Prelude.Double,
M2tsSettings -> Maybe M2tsKlvMetadata
klvMetadata :: Prelude.Maybe M2tsKlvMetadata,
M2tsSettings -> Maybe Natural
maxPcrInterval :: Prelude.Maybe Prelude.Natural,
M2tsSettings -> Maybe Natural
minEbpInterval :: Prelude.Maybe Prelude.Natural,
M2tsSettings -> Maybe M2tsNielsenId3
nielsenId3 :: Prelude.Maybe M2tsNielsenId3,
M2tsSettings -> Maybe Double
nullPacketBitrate :: Prelude.Maybe Prelude.Double,
M2tsSettings -> Maybe Natural
patInterval :: Prelude.Maybe Prelude.Natural,
M2tsSettings -> Maybe M2tsPcrControl
pcrControl :: Prelude.Maybe M2tsPcrControl,
M2tsSettings -> Maybe Natural
pcrPid :: Prelude.Maybe Prelude.Natural,
M2tsSettings -> Maybe Natural
pmtInterval :: Prelude.Maybe Prelude.Natural,
M2tsSettings -> Maybe Natural
pmtPid :: Prelude.Maybe Prelude.Natural,
M2tsSettings -> Maybe Natural
privateMetadataPid :: Prelude.Maybe Prelude.Natural,
M2tsSettings -> Maybe Natural
programNumber :: Prelude.Maybe Prelude.Natural,
M2tsSettings -> Maybe M2tsRateMode
rateMode :: Prelude.Maybe M2tsRateMode,
M2tsSettings -> Maybe M2tsScte35Esam
scte35Esam :: Prelude.Maybe M2tsScte35Esam,
M2tsSettings -> Maybe Natural
scte35Pid :: Prelude.Maybe Prelude.Natural,
M2tsSettings -> Maybe M2tsScte35Source
scte35Source :: Prelude.Maybe M2tsScte35Source,
M2tsSettings -> Maybe M2tsSegmentationMarkers
segmentationMarkers :: Prelude.Maybe M2tsSegmentationMarkers,
M2tsSettings -> Maybe M2tsSegmentationStyle
segmentationStyle :: Prelude.Maybe M2tsSegmentationStyle,
M2tsSettings -> Maybe Double
segmentationTime :: Prelude.Maybe Prelude.Double,
M2tsSettings -> Maybe Natural
timedMetadataPid :: Prelude.Maybe Prelude.Natural,
M2tsSettings -> Maybe Natural
transportStreamId :: Prelude.Maybe Prelude.Natural,
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)
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
}
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)
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)
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)
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
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)
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)
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)
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)
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)
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
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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
]
)