{-# 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.XavcHdProfileSettings 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.XavcFlickerAdaptiveQuantization
import Amazonka.MediaConvert.Types.XavcGopBReference
import Amazonka.MediaConvert.Types.XavcHdProfileBitrateClass
import Amazonka.MediaConvert.Types.XavcHdProfileQualityTuningLevel
import Amazonka.MediaConvert.Types.XavcHdProfileTelecine
import Amazonka.MediaConvert.Types.XavcInterlaceMode
import qualified Amazonka.Prelude as Prelude
data XavcHdProfileSettings = XavcHdProfileSettings'
{
XavcHdProfileSettings -> Maybe XavcHdProfileBitrateClass
bitrateClass :: Prelude.Maybe XavcHdProfileBitrateClass,
XavcHdProfileSettings -> Maybe XavcFlickerAdaptiveQuantization
flickerAdaptiveQuantization :: Prelude.Maybe XavcFlickerAdaptiveQuantization,
XavcHdProfileSettings -> Maybe XavcGopBReference
gopBReference :: Prelude.Maybe XavcGopBReference,
XavcHdProfileSettings -> Maybe Natural
gopClosedCadence :: Prelude.Maybe Prelude.Natural,
XavcHdProfileSettings -> Maybe Natural
hrdBufferSize :: Prelude.Maybe Prelude.Natural,
XavcHdProfileSettings -> Maybe XavcInterlaceMode
interlaceMode :: Prelude.Maybe XavcInterlaceMode,
XavcHdProfileSettings -> Maybe XavcHdProfileQualityTuningLevel
qualityTuningLevel :: Prelude.Maybe XavcHdProfileQualityTuningLevel,
XavcHdProfileSettings -> Maybe Natural
slices :: Prelude.Maybe Prelude.Natural,
XavcHdProfileSettings -> Maybe XavcHdProfileTelecine
telecine :: Prelude.Maybe XavcHdProfileTelecine
}
deriving (XavcHdProfileSettings -> XavcHdProfileSettings -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: XavcHdProfileSettings -> XavcHdProfileSettings -> Bool
$c/= :: XavcHdProfileSettings -> XavcHdProfileSettings -> Bool
== :: XavcHdProfileSettings -> XavcHdProfileSettings -> Bool
$c== :: XavcHdProfileSettings -> XavcHdProfileSettings -> Bool
Prelude.Eq, ReadPrec [XavcHdProfileSettings]
ReadPrec XavcHdProfileSettings
Int -> ReadS XavcHdProfileSettings
ReadS [XavcHdProfileSettings]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [XavcHdProfileSettings]
$creadListPrec :: ReadPrec [XavcHdProfileSettings]
readPrec :: ReadPrec XavcHdProfileSettings
$creadPrec :: ReadPrec XavcHdProfileSettings
readList :: ReadS [XavcHdProfileSettings]
$creadList :: ReadS [XavcHdProfileSettings]
readsPrec :: Int -> ReadS XavcHdProfileSettings
$creadsPrec :: Int -> ReadS XavcHdProfileSettings
Prelude.Read, Int -> XavcHdProfileSettings -> ShowS
[XavcHdProfileSettings] -> ShowS
XavcHdProfileSettings -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [XavcHdProfileSettings] -> ShowS
$cshowList :: [XavcHdProfileSettings] -> ShowS
show :: XavcHdProfileSettings -> String
$cshow :: XavcHdProfileSettings -> String
showsPrec :: Int -> XavcHdProfileSettings -> ShowS
$cshowsPrec :: Int -> XavcHdProfileSettings -> ShowS
Prelude.Show, forall x. Rep XavcHdProfileSettings x -> XavcHdProfileSettings
forall x. XavcHdProfileSettings -> Rep XavcHdProfileSettings x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep XavcHdProfileSettings x -> XavcHdProfileSettings
$cfrom :: forall x. XavcHdProfileSettings -> Rep XavcHdProfileSettings x
Prelude.Generic)
newXavcHdProfileSettings ::
XavcHdProfileSettings
newXavcHdProfileSettings :: XavcHdProfileSettings
newXavcHdProfileSettings =
XavcHdProfileSettings'
{ $sel:bitrateClass:XavcHdProfileSettings' :: Maybe XavcHdProfileBitrateClass
bitrateClass =
forall a. Maybe a
Prelude.Nothing,
$sel:flickerAdaptiveQuantization:XavcHdProfileSettings' :: Maybe XavcFlickerAdaptiveQuantization
flickerAdaptiveQuantization = forall a. Maybe a
Prelude.Nothing,
$sel:gopBReference:XavcHdProfileSettings' :: Maybe XavcGopBReference
gopBReference = forall a. Maybe a
Prelude.Nothing,
$sel:gopClosedCadence:XavcHdProfileSettings' :: Maybe Natural
gopClosedCadence = forall a. Maybe a
Prelude.Nothing,
$sel:hrdBufferSize:XavcHdProfileSettings' :: Maybe Natural
hrdBufferSize = forall a. Maybe a
Prelude.Nothing,
$sel:interlaceMode:XavcHdProfileSettings' :: Maybe XavcInterlaceMode
interlaceMode = forall a. Maybe a
Prelude.Nothing,
$sel:qualityTuningLevel:XavcHdProfileSettings' :: Maybe XavcHdProfileQualityTuningLevel
qualityTuningLevel = forall a. Maybe a
Prelude.Nothing,
$sel:slices:XavcHdProfileSettings' :: Maybe Natural
slices = forall a. Maybe a
Prelude.Nothing,
$sel:telecine:XavcHdProfileSettings' :: Maybe XavcHdProfileTelecine
telecine = forall a. Maybe a
Prelude.Nothing
}
xavcHdProfileSettings_bitrateClass :: Lens.Lens' XavcHdProfileSettings (Prelude.Maybe XavcHdProfileBitrateClass)
xavcHdProfileSettings_bitrateClass :: Lens' XavcHdProfileSettings (Maybe XavcHdProfileBitrateClass)
xavcHdProfileSettings_bitrateClass = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\XavcHdProfileSettings' {Maybe XavcHdProfileBitrateClass
bitrateClass :: Maybe XavcHdProfileBitrateClass
$sel:bitrateClass:XavcHdProfileSettings' :: XavcHdProfileSettings -> Maybe XavcHdProfileBitrateClass
bitrateClass} -> Maybe XavcHdProfileBitrateClass
bitrateClass) (\s :: XavcHdProfileSettings
s@XavcHdProfileSettings' {} Maybe XavcHdProfileBitrateClass
a -> XavcHdProfileSettings
s {$sel:bitrateClass:XavcHdProfileSettings' :: Maybe XavcHdProfileBitrateClass
bitrateClass = Maybe XavcHdProfileBitrateClass
a} :: XavcHdProfileSettings)
xavcHdProfileSettings_flickerAdaptiveQuantization :: Lens.Lens' XavcHdProfileSettings (Prelude.Maybe XavcFlickerAdaptiveQuantization)
xavcHdProfileSettings_flickerAdaptiveQuantization :: Lens' XavcHdProfileSettings (Maybe XavcFlickerAdaptiveQuantization)
xavcHdProfileSettings_flickerAdaptiveQuantization = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\XavcHdProfileSettings' {Maybe XavcFlickerAdaptiveQuantization
flickerAdaptiveQuantization :: Maybe XavcFlickerAdaptiveQuantization
$sel:flickerAdaptiveQuantization:XavcHdProfileSettings' :: XavcHdProfileSettings -> Maybe XavcFlickerAdaptiveQuantization
flickerAdaptiveQuantization} -> Maybe XavcFlickerAdaptiveQuantization
flickerAdaptiveQuantization) (\s :: XavcHdProfileSettings
s@XavcHdProfileSettings' {} Maybe XavcFlickerAdaptiveQuantization
a -> XavcHdProfileSettings
s {$sel:flickerAdaptiveQuantization:XavcHdProfileSettings' :: Maybe XavcFlickerAdaptiveQuantization
flickerAdaptiveQuantization = Maybe XavcFlickerAdaptiveQuantization
a} :: XavcHdProfileSettings)
xavcHdProfileSettings_gopBReference :: Lens.Lens' XavcHdProfileSettings (Prelude.Maybe XavcGopBReference)
xavcHdProfileSettings_gopBReference :: Lens' XavcHdProfileSettings (Maybe XavcGopBReference)
xavcHdProfileSettings_gopBReference = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\XavcHdProfileSettings' {Maybe XavcGopBReference
gopBReference :: Maybe XavcGopBReference
$sel:gopBReference:XavcHdProfileSettings' :: XavcHdProfileSettings -> Maybe XavcGopBReference
gopBReference} -> Maybe XavcGopBReference
gopBReference) (\s :: XavcHdProfileSettings
s@XavcHdProfileSettings' {} Maybe XavcGopBReference
a -> XavcHdProfileSettings
s {$sel:gopBReference:XavcHdProfileSettings' :: Maybe XavcGopBReference
gopBReference = Maybe XavcGopBReference
a} :: XavcHdProfileSettings)
xavcHdProfileSettings_gopClosedCadence :: Lens.Lens' XavcHdProfileSettings (Prelude.Maybe Prelude.Natural)
xavcHdProfileSettings_gopClosedCadence :: Lens' XavcHdProfileSettings (Maybe Natural)
xavcHdProfileSettings_gopClosedCadence = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\XavcHdProfileSettings' {Maybe Natural
gopClosedCadence :: Maybe Natural
$sel:gopClosedCadence:XavcHdProfileSettings' :: XavcHdProfileSettings -> Maybe Natural
gopClosedCadence} -> Maybe Natural
gopClosedCadence) (\s :: XavcHdProfileSettings
s@XavcHdProfileSettings' {} Maybe Natural
a -> XavcHdProfileSettings
s {$sel:gopClosedCadence:XavcHdProfileSettings' :: Maybe Natural
gopClosedCadence = Maybe Natural
a} :: XavcHdProfileSettings)
xavcHdProfileSettings_hrdBufferSize :: Lens.Lens' XavcHdProfileSettings (Prelude.Maybe Prelude.Natural)
xavcHdProfileSettings_hrdBufferSize :: Lens' XavcHdProfileSettings (Maybe Natural)
xavcHdProfileSettings_hrdBufferSize = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\XavcHdProfileSettings' {Maybe Natural
hrdBufferSize :: Maybe Natural
$sel:hrdBufferSize:XavcHdProfileSettings' :: XavcHdProfileSettings -> Maybe Natural
hrdBufferSize} -> Maybe Natural
hrdBufferSize) (\s :: XavcHdProfileSettings
s@XavcHdProfileSettings' {} Maybe Natural
a -> XavcHdProfileSettings
s {$sel:hrdBufferSize:XavcHdProfileSettings' :: Maybe Natural
hrdBufferSize = Maybe Natural
a} :: XavcHdProfileSettings)
xavcHdProfileSettings_interlaceMode :: Lens.Lens' XavcHdProfileSettings (Prelude.Maybe XavcInterlaceMode)
xavcHdProfileSettings_interlaceMode :: Lens' XavcHdProfileSettings (Maybe XavcInterlaceMode)
xavcHdProfileSettings_interlaceMode = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\XavcHdProfileSettings' {Maybe XavcInterlaceMode
interlaceMode :: Maybe XavcInterlaceMode
$sel:interlaceMode:XavcHdProfileSettings' :: XavcHdProfileSettings -> Maybe XavcInterlaceMode
interlaceMode} -> Maybe XavcInterlaceMode
interlaceMode) (\s :: XavcHdProfileSettings
s@XavcHdProfileSettings' {} Maybe XavcInterlaceMode
a -> XavcHdProfileSettings
s {$sel:interlaceMode:XavcHdProfileSettings' :: Maybe XavcInterlaceMode
interlaceMode = Maybe XavcInterlaceMode
a} :: XavcHdProfileSettings)
xavcHdProfileSettings_qualityTuningLevel :: Lens.Lens' XavcHdProfileSettings (Prelude.Maybe XavcHdProfileQualityTuningLevel)
xavcHdProfileSettings_qualityTuningLevel :: Lens' XavcHdProfileSettings (Maybe XavcHdProfileQualityTuningLevel)
xavcHdProfileSettings_qualityTuningLevel = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\XavcHdProfileSettings' {Maybe XavcHdProfileQualityTuningLevel
qualityTuningLevel :: Maybe XavcHdProfileQualityTuningLevel
$sel:qualityTuningLevel:XavcHdProfileSettings' :: XavcHdProfileSettings -> Maybe XavcHdProfileQualityTuningLevel
qualityTuningLevel} -> Maybe XavcHdProfileQualityTuningLevel
qualityTuningLevel) (\s :: XavcHdProfileSettings
s@XavcHdProfileSettings' {} Maybe XavcHdProfileQualityTuningLevel
a -> XavcHdProfileSettings
s {$sel:qualityTuningLevel:XavcHdProfileSettings' :: Maybe XavcHdProfileQualityTuningLevel
qualityTuningLevel = Maybe XavcHdProfileQualityTuningLevel
a} :: XavcHdProfileSettings)
xavcHdProfileSettings_slices :: Lens.Lens' XavcHdProfileSettings (Prelude.Maybe Prelude.Natural)
xavcHdProfileSettings_slices :: Lens' XavcHdProfileSettings (Maybe Natural)
xavcHdProfileSettings_slices = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\XavcHdProfileSettings' {Maybe Natural
slices :: Maybe Natural
$sel:slices:XavcHdProfileSettings' :: XavcHdProfileSettings -> Maybe Natural
slices} -> Maybe Natural
slices) (\s :: XavcHdProfileSettings
s@XavcHdProfileSettings' {} Maybe Natural
a -> XavcHdProfileSettings
s {$sel:slices:XavcHdProfileSettings' :: Maybe Natural
slices = Maybe Natural
a} :: XavcHdProfileSettings)
xavcHdProfileSettings_telecine :: Lens.Lens' XavcHdProfileSettings (Prelude.Maybe XavcHdProfileTelecine)
xavcHdProfileSettings_telecine :: Lens' XavcHdProfileSettings (Maybe XavcHdProfileTelecine)
xavcHdProfileSettings_telecine = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\XavcHdProfileSettings' {Maybe XavcHdProfileTelecine
telecine :: Maybe XavcHdProfileTelecine
$sel:telecine:XavcHdProfileSettings' :: XavcHdProfileSettings -> Maybe XavcHdProfileTelecine
telecine} -> Maybe XavcHdProfileTelecine
telecine) (\s :: XavcHdProfileSettings
s@XavcHdProfileSettings' {} Maybe XavcHdProfileTelecine
a -> XavcHdProfileSettings
s {$sel:telecine:XavcHdProfileSettings' :: Maybe XavcHdProfileTelecine
telecine = Maybe XavcHdProfileTelecine
a} :: XavcHdProfileSettings)
instance Data.FromJSON XavcHdProfileSettings where
parseJSON :: Value -> Parser XavcHdProfileSettings
parseJSON =
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.withObject
String
"XavcHdProfileSettings"
( \Object
x ->
Maybe XavcHdProfileBitrateClass
-> Maybe XavcFlickerAdaptiveQuantization
-> Maybe XavcGopBReference
-> Maybe Natural
-> Maybe Natural
-> Maybe XavcInterlaceMode
-> Maybe XavcHdProfileQualityTuningLevel
-> Maybe Natural
-> Maybe XavcHdProfileTelecine
-> XavcHdProfileSettings
XavcHdProfileSettings'
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
"bitrateClass")
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
"flickerAdaptiveQuantization")
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
"gopBReference")
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
"gopClosedCadence")
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
"hrdBufferSize")
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
"interlaceMode")
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
"qualityTuningLevel")
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
"slices")
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
"telecine")
)
instance Prelude.Hashable XavcHdProfileSettings where
hashWithSalt :: Int -> XavcHdProfileSettings -> Int
hashWithSalt Int
_salt XavcHdProfileSettings' {Maybe Natural
Maybe XavcFlickerAdaptiveQuantization
Maybe XavcGopBReference
Maybe XavcHdProfileBitrateClass
Maybe XavcHdProfileQualityTuningLevel
Maybe XavcHdProfileTelecine
Maybe XavcInterlaceMode
telecine :: Maybe XavcHdProfileTelecine
slices :: Maybe Natural
qualityTuningLevel :: Maybe XavcHdProfileQualityTuningLevel
interlaceMode :: Maybe XavcInterlaceMode
hrdBufferSize :: Maybe Natural
gopClosedCadence :: Maybe Natural
gopBReference :: Maybe XavcGopBReference
flickerAdaptiveQuantization :: Maybe XavcFlickerAdaptiveQuantization
bitrateClass :: Maybe XavcHdProfileBitrateClass
$sel:telecine:XavcHdProfileSettings' :: XavcHdProfileSettings -> Maybe XavcHdProfileTelecine
$sel:slices:XavcHdProfileSettings' :: XavcHdProfileSettings -> Maybe Natural
$sel:qualityTuningLevel:XavcHdProfileSettings' :: XavcHdProfileSettings -> Maybe XavcHdProfileQualityTuningLevel
$sel:interlaceMode:XavcHdProfileSettings' :: XavcHdProfileSettings -> Maybe XavcInterlaceMode
$sel:hrdBufferSize:XavcHdProfileSettings' :: XavcHdProfileSettings -> Maybe Natural
$sel:gopClosedCadence:XavcHdProfileSettings' :: XavcHdProfileSettings -> Maybe Natural
$sel:gopBReference:XavcHdProfileSettings' :: XavcHdProfileSettings -> Maybe XavcGopBReference
$sel:flickerAdaptiveQuantization:XavcHdProfileSettings' :: XavcHdProfileSettings -> Maybe XavcFlickerAdaptiveQuantization
$sel:bitrateClass:XavcHdProfileSettings' :: XavcHdProfileSettings -> Maybe XavcHdProfileBitrateClass
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe XavcHdProfileBitrateClass
bitrateClass
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe XavcFlickerAdaptiveQuantization
flickerAdaptiveQuantization
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe XavcGopBReference
gopBReference
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
gopClosedCadence
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
hrdBufferSize
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe XavcInterlaceMode
interlaceMode
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe XavcHdProfileQualityTuningLevel
qualityTuningLevel
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
slices
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe XavcHdProfileTelecine
telecine
instance Prelude.NFData XavcHdProfileSettings where
rnf :: XavcHdProfileSettings -> ()
rnf XavcHdProfileSettings' {Maybe Natural
Maybe XavcFlickerAdaptiveQuantization
Maybe XavcGopBReference
Maybe XavcHdProfileBitrateClass
Maybe XavcHdProfileQualityTuningLevel
Maybe XavcHdProfileTelecine
Maybe XavcInterlaceMode
telecine :: Maybe XavcHdProfileTelecine
slices :: Maybe Natural
qualityTuningLevel :: Maybe XavcHdProfileQualityTuningLevel
interlaceMode :: Maybe XavcInterlaceMode
hrdBufferSize :: Maybe Natural
gopClosedCadence :: Maybe Natural
gopBReference :: Maybe XavcGopBReference
flickerAdaptiveQuantization :: Maybe XavcFlickerAdaptiveQuantization
bitrateClass :: Maybe XavcHdProfileBitrateClass
$sel:telecine:XavcHdProfileSettings' :: XavcHdProfileSettings -> Maybe XavcHdProfileTelecine
$sel:slices:XavcHdProfileSettings' :: XavcHdProfileSettings -> Maybe Natural
$sel:qualityTuningLevel:XavcHdProfileSettings' :: XavcHdProfileSettings -> Maybe XavcHdProfileQualityTuningLevel
$sel:interlaceMode:XavcHdProfileSettings' :: XavcHdProfileSettings -> Maybe XavcInterlaceMode
$sel:hrdBufferSize:XavcHdProfileSettings' :: XavcHdProfileSettings -> Maybe Natural
$sel:gopClosedCadence:XavcHdProfileSettings' :: XavcHdProfileSettings -> Maybe Natural
$sel:gopBReference:XavcHdProfileSettings' :: XavcHdProfileSettings -> Maybe XavcGopBReference
$sel:flickerAdaptiveQuantization:XavcHdProfileSettings' :: XavcHdProfileSettings -> Maybe XavcFlickerAdaptiveQuantization
$sel:bitrateClass:XavcHdProfileSettings' :: XavcHdProfileSettings -> Maybe XavcHdProfileBitrateClass
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe XavcHdProfileBitrateClass
bitrateClass
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe XavcFlickerAdaptiveQuantization
flickerAdaptiveQuantization
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe XavcGopBReference
gopBReference
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
gopClosedCadence
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
hrdBufferSize
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe XavcInterlaceMode
interlaceMode
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe XavcHdProfileQualityTuningLevel
qualityTuningLevel
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
slices
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe XavcHdProfileTelecine
telecine
instance Data.ToJSON XavcHdProfileSettings where
toJSON :: XavcHdProfileSettings -> Value
toJSON XavcHdProfileSettings' {Maybe Natural
Maybe XavcFlickerAdaptiveQuantization
Maybe XavcGopBReference
Maybe XavcHdProfileBitrateClass
Maybe XavcHdProfileQualityTuningLevel
Maybe XavcHdProfileTelecine
Maybe XavcInterlaceMode
telecine :: Maybe XavcHdProfileTelecine
slices :: Maybe Natural
qualityTuningLevel :: Maybe XavcHdProfileQualityTuningLevel
interlaceMode :: Maybe XavcInterlaceMode
hrdBufferSize :: Maybe Natural
gopClosedCadence :: Maybe Natural
gopBReference :: Maybe XavcGopBReference
flickerAdaptiveQuantization :: Maybe XavcFlickerAdaptiveQuantization
bitrateClass :: Maybe XavcHdProfileBitrateClass
$sel:telecine:XavcHdProfileSettings' :: XavcHdProfileSettings -> Maybe XavcHdProfileTelecine
$sel:slices:XavcHdProfileSettings' :: XavcHdProfileSettings -> Maybe Natural
$sel:qualityTuningLevel:XavcHdProfileSettings' :: XavcHdProfileSettings -> Maybe XavcHdProfileQualityTuningLevel
$sel:interlaceMode:XavcHdProfileSettings' :: XavcHdProfileSettings -> Maybe XavcInterlaceMode
$sel:hrdBufferSize:XavcHdProfileSettings' :: XavcHdProfileSettings -> Maybe Natural
$sel:gopClosedCadence:XavcHdProfileSettings' :: XavcHdProfileSettings -> Maybe Natural
$sel:gopBReference:XavcHdProfileSettings' :: XavcHdProfileSettings -> Maybe XavcGopBReference
$sel:flickerAdaptiveQuantization:XavcHdProfileSettings' :: XavcHdProfileSettings -> Maybe XavcFlickerAdaptiveQuantization
$sel:bitrateClass:XavcHdProfileSettings' :: XavcHdProfileSettings -> Maybe XavcHdProfileBitrateClass
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"bitrateClass" 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 XavcHdProfileBitrateClass
bitrateClass,
(Key
"flickerAdaptiveQuantization" 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 XavcFlickerAdaptiveQuantization
flickerAdaptiveQuantization,
(Key
"gopBReference" 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 XavcGopBReference
gopBReference,
(Key
"gopClosedCadence" 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
gopClosedCadence,
(Key
"hrdBufferSize" 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
hrdBufferSize,
(Key
"interlaceMode" 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 XavcInterlaceMode
interlaceMode,
(Key
"qualityTuningLevel" 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 XavcHdProfileQualityTuningLevel
qualityTuningLevel,
(Key
"slices" 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
slices,
(Key
"telecine" 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 XavcHdProfileTelecine
telecine
]
)