{-# 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.Xavc4kProfileSettings 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.Xavc4kProfileBitrateClass
import Amazonka.MediaConvert.Types.Xavc4kProfileCodecProfile
import Amazonka.MediaConvert.Types.Xavc4kProfileQualityTuningLevel
import Amazonka.MediaConvert.Types.XavcFlickerAdaptiveQuantization
import Amazonka.MediaConvert.Types.XavcGopBReference
import qualified Amazonka.Prelude as Prelude
data Xavc4kProfileSettings = Xavc4kProfileSettings'
{
Xavc4kProfileSettings -> Maybe Xavc4kProfileBitrateClass
bitrateClass :: Prelude.Maybe Xavc4kProfileBitrateClass,
Xavc4kProfileSettings -> Maybe Xavc4kProfileCodecProfile
codecProfile :: Prelude.Maybe Xavc4kProfileCodecProfile,
Xavc4kProfileSettings -> Maybe XavcFlickerAdaptiveQuantization
flickerAdaptiveQuantization :: Prelude.Maybe XavcFlickerAdaptiveQuantization,
Xavc4kProfileSettings -> Maybe XavcGopBReference
gopBReference :: Prelude.Maybe XavcGopBReference,
Xavc4kProfileSettings -> Maybe Natural
gopClosedCadence :: Prelude.Maybe Prelude.Natural,
Xavc4kProfileSettings -> Maybe Natural
hrdBufferSize :: Prelude.Maybe Prelude.Natural,
Xavc4kProfileSettings -> Maybe Xavc4kProfileQualityTuningLevel
qualityTuningLevel :: Prelude.Maybe Xavc4kProfileQualityTuningLevel,
Xavc4kProfileSettings -> Maybe Natural
slices :: Prelude.Maybe Prelude.Natural
}
deriving (Xavc4kProfileSettings -> Xavc4kProfileSettings -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Xavc4kProfileSettings -> Xavc4kProfileSettings -> Bool
$c/= :: Xavc4kProfileSettings -> Xavc4kProfileSettings -> Bool
== :: Xavc4kProfileSettings -> Xavc4kProfileSettings -> Bool
$c== :: Xavc4kProfileSettings -> Xavc4kProfileSettings -> Bool
Prelude.Eq, ReadPrec [Xavc4kProfileSettings]
ReadPrec Xavc4kProfileSettings
Int -> ReadS Xavc4kProfileSettings
ReadS [Xavc4kProfileSettings]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [Xavc4kProfileSettings]
$creadListPrec :: ReadPrec [Xavc4kProfileSettings]
readPrec :: ReadPrec Xavc4kProfileSettings
$creadPrec :: ReadPrec Xavc4kProfileSettings
readList :: ReadS [Xavc4kProfileSettings]
$creadList :: ReadS [Xavc4kProfileSettings]
readsPrec :: Int -> ReadS Xavc4kProfileSettings
$creadsPrec :: Int -> ReadS Xavc4kProfileSettings
Prelude.Read, Int -> Xavc4kProfileSettings -> ShowS
[Xavc4kProfileSettings] -> ShowS
Xavc4kProfileSettings -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Xavc4kProfileSettings] -> ShowS
$cshowList :: [Xavc4kProfileSettings] -> ShowS
show :: Xavc4kProfileSettings -> String
$cshow :: Xavc4kProfileSettings -> String
showsPrec :: Int -> Xavc4kProfileSettings -> ShowS
$cshowsPrec :: Int -> Xavc4kProfileSettings -> ShowS
Prelude.Show, forall x. Rep Xavc4kProfileSettings x -> Xavc4kProfileSettings
forall x. Xavc4kProfileSettings -> Rep Xavc4kProfileSettings x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep Xavc4kProfileSettings x -> Xavc4kProfileSettings
$cfrom :: forall x. Xavc4kProfileSettings -> Rep Xavc4kProfileSettings x
Prelude.Generic)
newXavc4kProfileSettings ::
Xavc4kProfileSettings
newXavc4kProfileSettings :: Xavc4kProfileSettings
newXavc4kProfileSettings =
Xavc4kProfileSettings'
{ $sel:bitrateClass:Xavc4kProfileSettings' :: Maybe Xavc4kProfileBitrateClass
bitrateClass =
forall a. Maybe a
Prelude.Nothing,
$sel:codecProfile:Xavc4kProfileSettings' :: Maybe Xavc4kProfileCodecProfile
codecProfile = forall a. Maybe a
Prelude.Nothing,
$sel:flickerAdaptiveQuantization:Xavc4kProfileSettings' :: Maybe XavcFlickerAdaptiveQuantization
flickerAdaptiveQuantization = forall a. Maybe a
Prelude.Nothing,
$sel:gopBReference:Xavc4kProfileSettings' :: Maybe XavcGopBReference
gopBReference = forall a. Maybe a
Prelude.Nothing,
$sel:gopClosedCadence:Xavc4kProfileSettings' :: Maybe Natural
gopClosedCadence = forall a. Maybe a
Prelude.Nothing,
$sel:hrdBufferSize:Xavc4kProfileSettings' :: Maybe Natural
hrdBufferSize = forall a. Maybe a
Prelude.Nothing,
$sel:qualityTuningLevel:Xavc4kProfileSettings' :: Maybe Xavc4kProfileQualityTuningLevel
qualityTuningLevel = forall a. Maybe a
Prelude.Nothing,
$sel:slices:Xavc4kProfileSettings' :: Maybe Natural
slices = forall a. Maybe a
Prelude.Nothing
}
xavc4kProfileSettings_bitrateClass :: Lens.Lens' Xavc4kProfileSettings (Prelude.Maybe Xavc4kProfileBitrateClass)
xavc4kProfileSettings_bitrateClass :: Lens' Xavc4kProfileSettings (Maybe Xavc4kProfileBitrateClass)
xavc4kProfileSettings_bitrateClass = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Xavc4kProfileSettings' {Maybe Xavc4kProfileBitrateClass
bitrateClass :: Maybe Xavc4kProfileBitrateClass
$sel:bitrateClass:Xavc4kProfileSettings' :: Xavc4kProfileSettings -> Maybe Xavc4kProfileBitrateClass
bitrateClass} -> Maybe Xavc4kProfileBitrateClass
bitrateClass) (\s :: Xavc4kProfileSettings
s@Xavc4kProfileSettings' {} Maybe Xavc4kProfileBitrateClass
a -> Xavc4kProfileSettings
s {$sel:bitrateClass:Xavc4kProfileSettings' :: Maybe Xavc4kProfileBitrateClass
bitrateClass = Maybe Xavc4kProfileBitrateClass
a} :: Xavc4kProfileSettings)
xavc4kProfileSettings_codecProfile :: Lens.Lens' Xavc4kProfileSettings (Prelude.Maybe Xavc4kProfileCodecProfile)
xavc4kProfileSettings_codecProfile :: Lens' Xavc4kProfileSettings (Maybe Xavc4kProfileCodecProfile)
xavc4kProfileSettings_codecProfile = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Xavc4kProfileSettings' {Maybe Xavc4kProfileCodecProfile
codecProfile :: Maybe Xavc4kProfileCodecProfile
$sel:codecProfile:Xavc4kProfileSettings' :: Xavc4kProfileSettings -> Maybe Xavc4kProfileCodecProfile
codecProfile} -> Maybe Xavc4kProfileCodecProfile
codecProfile) (\s :: Xavc4kProfileSettings
s@Xavc4kProfileSettings' {} Maybe Xavc4kProfileCodecProfile
a -> Xavc4kProfileSettings
s {$sel:codecProfile:Xavc4kProfileSettings' :: Maybe Xavc4kProfileCodecProfile
codecProfile = Maybe Xavc4kProfileCodecProfile
a} :: Xavc4kProfileSettings)
xavc4kProfileSettings_flickerAdaptiveQuantization :: Lens.Lens' Xavc4kProfileSettings (Prelude.Maybe XavcFlickerAdaptiveQuantization)
xavc4kProfileSettings_flickerAdaptiveQuantization :: Lens' Xavc4kProfileSettings (Maybe XavcFlickerAdaptiveQuantization)
xavc4kProfileSettings_flickerAdaptiveQuantization = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Xavc4kProfileSettings' {Maybe XavcFlickerAdaptiveQuantization
flickerAdaptiveQuantization :: Maybe XavcFlickerAdaptiveQuantization
$sel:flickerAdaptiveQuantization:Xavc4kProfileSettings' :: Xavc4kProfileSettings -> Maybe XavcFlickerAdaptiveQuantization
flickerAdaptiveQuantization} -> Maybe XavcFlickerAdaptiveQuantization
flickerAdaptiveQuantization) (\s :: Xavc4kProfileSettings
s@Xavc4kProfileSettings' {} Maybe XavcFlickerAdaptiveQuantization
a -> Xavc4kProfileSettings
s {$sel:flickerAdaptiveQuantization:Xavc4kProfileSettings' :: Maybe XavcFlickerAdaptiveQuantization
flickerAdaptiveQuantization = Maybe XavcFlickerAdaptiveQuantization
a} :: Xavc4kProfileSettings)
xavc4kProfileSettings_gopBReference :: Lens.Lens' Xavc4kProfileSettings (Prelude.Maybe XavcGopBReference)
xavc4kProfileSettings_gopBReference :: Lens' Xavc4kProfileSettings (Maybe XavcGopBReference)
xavc4kProfileSettings_gopBReference = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Xavc4kProfileSettings' {Maybe XavcGopBReference
gopBReference :: Maybe XavcGopBReference
$sel:gopBReference:Xavc4kProfileSettings' :: Xavc4kProfileSettings -> Maybe XavcGopBReference
gopBReference} -> Maybe XavcGopBReference
gopBReference) (\s :: Xavc4kProfileSettings
s@Xavc4kProfileSettings' {} Maybe XavcGopBReference
a -> Xavc4kProfileSettings
s {$sel:gopBReference:Xavc4kProfileSettings' :: Maybe XavcGopBReference
gopBReference = Maybe XavcGopBReference
a} :: Xavc4kProfileSettings)
xavc4kProfileSettings_gopClosedCadence :: Lens.Lens' Xavc4kProfileSettings (Prelude.Maybe Prelude.Natural)
xavc4kProfileSettings_gopClosedCadence :: Lens' Xavc4kProfileSettings (Maybe Natural)
xavc4kProfileSettings_gopClosedCadence = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Xavc4kProfileSettings' {Maybe Natural
gopClosedCadence :: Maybe Natural
$sel:gopClosedCadence:Xavc4kProfileSettings' :: Xavc4kProfileSettings -> Maybe Natural
gopClosedCadence} -> Maybe Natural
gopClosedCadence) (\s :: Xavc4kProfileSettings
s@Xavc4kProfileSettings' {} Maybe Natural
a -> Xavc4kProfileSettings
s {$sel:gopClosedCadence:Xavc4kProfileSettings' :: Maybe Natural
gopClosedCadence = Maybe Natural
a} :: Xavc4kProfileSettings)
xavc4kProfileSettings_hrdBufferSize :: Lens.Lens' Xavc4kProfileSettings (Prelude.Maybe Prelude.Natural)
xavc4kProfileSettings_hrdBufferSize :: Lens' Xavc4kProfileSettings (Maybe Natural)
xavc4kProfileSettings_hrdBufferSize = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Xavc4kProfileSettings' {Maybe Natural
hrdBufferSize :: Maybe Natural
$sel:hrdBufferSize:Xavc4kProfileSettings' :: Xavc4kProfileSettings -> Maybe Natural
hrdBufferSize} -> Maybe Natural
hrdBufferSize) (\s :: Xavc4kProfileSettings
s@Xavc4kProfileSettings' {} Maybe Natural
a -> Xavc4kProfileSettings
s {$sel:hrdBufferSize:Xavc4kProfileSettings' :: Maybe Natural
hrdBufferSize = Maybe Natural
a} :: Xavc4kProfileSettings)
xavc4kProfileSettings_qualityTuningLevel :: Lens.Lens' Xavc4kProfileSettings (Prelude.Maybe Xavc4kProfileQualityTuningLevel)
xavc4kProfileSettings_qualityTuningLevel :: Lens' Xavc4kProfileSettings (Maybe Xavc4kProfileQualityTuningLevel)
xavc4kProfileSettings_qualityTuningLevel = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Xavc4kProfileSettings' {Maybe Xavc4kProfileQualityTuningLevel
qualityTuningLevel :: Maybe Xavc4kProfileQualityTuningLevel
$sel:qualityTuningLevel:Xavc4kProfileSettings' :: Xavc4kProfileSettings -> Maybe Xavc4kProfileQualityTuningLevel
qualityTuningLevel} -> Maybe Xavc4kProfileQualityTuningLevel
qualityTuningLevel) (\s :: Xavc4kProfileSettings
s@Xavc4kProfileSettings' {} Maybe Xavc4kProfileQualityTuningLevel
a -> Xavc4kProfileSettings
s {$sel:qualityTuningLevel:Xavc4kProfileSettings' :: Maybe Xavc4kProfileQualityTuningLevel
qualityTuningLevel = Maybe Xavc4kProfileQualityTuningLevel
a} :: Xavc4kProfileSettings)
xavc4kProfileSettings_slices :: Lens.Lens' Xavc4kProfileSettings (Prelude.Maybe Prelude.Natural)
xavc4kProfileSettings_slices :: Lens' Xavc4kProfileSettings (Maybe Natural)
xavc4kProfileSettings_slices = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Xavc4kProfileSettings' {Maybe Natural
slices :: Maybe Natural
$sel:slices:Xavc4kProfileSettings' :: Xavc4kProfileSettings -> Maybe Natural
slices} -> Maybe Natural
slices) (\s :: Xavc4kProfileSettings
s@Xavc4kProfileSettings' {} Maybe Natural
a -> Xavc4kProfileSettings
s {$sel:slices:Xavc4kProfileSettings' :: Maybe Natural
slices = Maybe Natural
a} :: Xavc4kProfileSettings)
instance Data.FromJSON Xavc4kProfileSettings where
parseJSON :: Value -> Parser Xavc4kProfileSettings
parseJSON =
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.withObject
String
"Xavc4kProfileSettings"
( \Object
x ->
Maybe Xavc4kProfileBitrateClass
-> Maybe Xavc4kProfileCodecProfile
-> Maybe XavcFlickerAdaptiveQuantization
-> Maybe XavcGopBReference
-> Maybe Natural
-> Maybe Natural
-> Maybe Xavc4kProfileQualityTuningLevel
-> Maybe Natural
-> Xavc4kProfileSettings
Xavc4kProfileSettings'
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
"codecProfile")
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
"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")
)
instance Prelude.Hashable Xavc4kProfileSettings where
hashWithSalt :: Int -> Xavc4kProfileSettings -> Int
hashWithSalt Int
_salt Xavc4kProfileSettings' {Maybe Natural
Maybe Xavc4kProfileBitrateClass
Maybe Xavc4kProfileCodecProfile
Maybe Xavc4kProfileQualityTuningLevel
Maybe XavcFlickerAdaptiveQuantization
Maybe XavcGopBReference
slices :: Maybe Natural
qualityTuningLevel :: Maybe Xavc4kProfileQualityTuningLevel
hrdBufferSize :: Maybe Natural
gopClosedCadence :: Maybe Natural
gopBReference :: Maybe XavcGopBReference
flickerAdaptiveQuantization :: Maybe XavcFlickerAdaptiveQuantization
codecProfile :: Maybe Xavc4kProfileCodecProfile
bitrateClass :: Maybe Xavc4kProfileBitrateClass
$sel:slices:Xavc4kProfileSettings' :: Xavc4kProfileSettings -> Maybe Natural
$sel:qualityTuningLevel:Xavc4kProfileSettings' :: Xavc4kProfileSettings -> Maybe Xavc4kProfileQualityTuningLevel
$sel:hrdBufferSize:Xavc4kProfileSettings' :: Xavc4kProfileSettings -> Maybe Natural
$sel:gopClosedCadence:Xavc4kProfileSettings' :: Xavc4kProfileSettings -> Maybe Natural
$sel:gopBReference:Xavc4kProfileSettings' :: Xavc4kProfileSettings -> Maybe XavcGopBReference
$sel:flickerAdaptiveQuantization:Xavc4kProfileSettings' :: Xavc4kProfileSettings -> Maybe XavcFlickerAdaptiveQuantization
$sel:codecProfile:Xavc4kProfileSettings' :: Xavc4kProfileSettings -> Maybe Xavc4kProfileCodecProfile
$sel:bitrateClass:Xavc4kProfileSettings' :: Xavc4kProfileSettings -> Maybe Xavc4kProfileBitrateClass
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Xavc4kProfileBitrateClass
bitrateClass
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Xavc4kProfileCodecProfile
codecProfile
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 Xavc4kProfileQualityTuningLevel
qualityTuningLevel
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
slices
instance Prelude.NFData Xavc4kProfileSettings where
rnf :: Xavc4kProfileSettings -> ()
rnf Xavc4kProfileSettings' {Maybe Natural
Maybe Xavc4kProfileBitrateClass
Maybe Xavc4kProfileCodecProfile
Maybe Xavc4kProfileQualityTuningLevel
Maybe XavcFlickerAdaptiveQuantization
Maybe XavcGopBReference
slices :: Maybe Natural
qualityTuningLevel :: Maybe Xavc4kProfileQualityTuningLevel
hrdBufferSize :: Maybe Natural
gopClosedCadence :: Maybe Natural
gopBReference :: Maybe XavcGopBReference
flickerAdaptiveQuantization :: Maybe XavcFlickerAdaptiveQuantization
codecProfile :: Maybe Xavc4kProfileCodecProfile
bitrateClass :: Maybe Xavc4kProfileBitrateClass
$sel:slices:Xavc4kProfileSettings' :: Xavc4kProfileSettings -> Maybe Natural
$sel:qualityTuningLevel:Xavc4kProfileSettings' :: Xavc4kProfileSettings -> Maybe Xavc4kProfileQualityTuningLevel
$sel:hrdBufferSize:Xavc4kProfileSettings' :: Xavc4kProfileSettings -> Maybe Natural
$sel:gopClosedCadence:Xavc4kProfileSettings' :: Xavc4kProfileSettings -> Maybe Natural
$sel:gopBReference:Xavc4kProfileSettings' :: Xavc4kProfileSettings -> Maybe XavcGopBReference
$sel:flickerAdaptiveQuantization:Xavc4kProfileSettings' :: Xavc4kProfileSettings -> Maybe XavcFlickerAdaptiveQuantization
$sel:codecProfile:Xavc4kProfileSettings' :: Xavc4kProfileSettings -> Maybe Xavc4kProfileCodecProfile
$sel:bitrateClass:Xavc4kProfileSettings' :: Xavc4kProfileSettings -> Maybe Xavc4kProfileBitrateClass
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Xavc4kProfileBitrateClass
bitrateClass
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Xavc4kProfileCodecProfile
codecProfile
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 Xavc4kProfileQualityTuningLevel
qualityTuningLevel
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
slices
instance Data.ToJSON Xavc4kProfileSettings where
toJSON :: Xavc4kProfileSettings -> Value
toJSON Xavc4kProfileSettings' {Maybe Natural
Maybe Xavc4kProfileBitrateClass
Maybe Xavc4kProfileCodecProfile
Maybe Xavc4kProfileQualityTuningLevel
Maybe XavcFlickerAdaptiveQuantization
Maybe XavcGopBReference
slices :: Maybe Natural
qualityTuningLevel :: Maybe Xavc4kProfileQualityTuningLevel
hrdBufferSize :: Maybe Natural
gopClosedCadence :: Maybe Natural
gopBReference :: Maybe XavcGopBReference
flickerAdaptiveQuantization :: Maybe XavcFlickerAdaptiveQuantization
codecProfile :: Maybe Xavc4kProfileCodecProfile
bitrateClass :: Maybe Xavc4kProfileBitrateClass
$sel:slices:Xavc4kProfileSettings' :: Xavc4kProfileSettings -> Maybe Natural
$sel:qualityTuningLevel:Xavc4kProfileSettings' :: Xavc4kProfileSettings -> Maybe Xavc4kProfileQualityTuningLevel
$sel:hrdBufferSize:Xavc4kProfileSettings' :: Xavc4kProfileSettings -> Maybe Natural
$sel:gopClosedCadence:Xavc4kProfileSettings' :: Xavc4kProfileSettings -> Maybe Natural
$sel:gopBReference:Xavc4kProfileSettings' :: Xavc4kProfileSettings -> Maybe XavcGopBReference
$sel:flickerAdaptiveQuantization:Xavc4kProfileSettings' :: Xavc4kProfileSettings -> Maybe XavcFlickerAdaptiveQuantization
$sel:codecProfile:Xavc4kProfileSettings' :: Xavc4kProfileSettings -> Maybe Xavc4kProfileCodecProfile
$sel:bitrateClass:Xavc4kProfileSettings' :: Xavc4kProfileSettings -> Maybe Xavc4kProfileBitrateClass
..} =
[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 Xavc4kProfileBitrateClass
bitrateClass,
(Key
"codecProfile" 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 Xavc4kProfileCodecProfile
codecProfile,
(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
"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 Xavc4kProfileQualityTuningLevel
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
]
)