{-# 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.InputTemplate 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.AudioSelector
import Amazonka.MediaConvert.Types.AudioSelectorGroup
import Amazonka.MediaConvert.Types.CaptionSelector
import Amazonka.MediaConvert.Types.ImageInserter
import Amazonka.MediaConvert.Types.InputClipping
import Amazonka.MediaConvert.Types.InputDeblockFilter
import Amazonka.MediaConvert.Types.InputDenoiseFilter
import Amazonka.MediaConvert.Types.InputFilterEnable
import Amazonka.MediaConvert.Types.InputPsiControl
import Amazonka.MediaConvert.Types.InputScanType
import Amazonka.MediaConvert.Types.InputTimecodeSource
import Amazonka.MediaConvert.Types.Rectangle
import Amazonka.MediaConvert.Types.VideoSelector
import qualified Amazonka.Prelude as Prelude
data InputTemplate = InputTemplate'
{
InputTemplate -> Maybe (HashMap Text AudioSelectorGroup)
audioSelectorGroups :: Prelude.Maybe (Prelude.HashMap Prelude.Text AudioSelectorGroup),
InputTemplate -> Maybe (HashMap Text AudioSelector)
audioSelectors :: Prelude.Maybe (Prelude.HashMap Prelude.Text AudioSelector),
InputTemplate -> Maybe (HashMap Text CaptionSelector)
captionSelectors :: Prelude.Maybe (Prelude.HashMap Prelude.Text CaptionSelector),
InputTemplate -> Maybe Rectangle
crop :: Prelude.Maybe Rectangle,
InputTemplate -> Maybe InputDeblockFilter
deblockFilter :: Prelude.Maybe InputDeblockFilter,
InputTemplate -> Maybe InputDenoiseFilter
denoiseFilter :: Prelude.Maybe InputDenoiseFilter,
InputTemplate -> Maybe Text
dolbyVisionMetadataXml :: Prelude.Maybe Prelude.Text,
InputTemplate -> Maybe InputFilterEnable
filterEnable :: Prelude.Maybe InputFilterEnable,
InputTemplate -> Maybe Int
filterStrength :: Prelude.Maybe Prelude.Int,
InputTemplate -> Maybe ImageInserter
imageInserter :: Prelude.Maybe ImageInserter,
InputTemplate -> Maybe [InputClipping]
inputClippings :: Prelude.Maybe [InputClipping],
InputTemplate -> Maybe InputScanType
inputScanType :: Prelude.Maybe InputScanType,
InputTemplate -> Maybe Rectangle
position :: Prelude.Maybe Rectangle,
InputTemplate -> Maybe Natural
programNumber :: Prelude.Maybe Prelude.Natural,
InputTemplate -> Maybe InputPsiControl
psiControl :: Prelude.Maybe InputPsiControl,
InputTemplate -> Maybe InputTimecodeSource
timecodeSource :: Prelude.Maybe InputTimecodeSource,
InputTemplate -> Maybe Text
timecodeStart :: Prelude.Maybe Prelude.Text,
InputTemplate -> Maybe VideoSelector
videoSelector :: Prelude.Maybe VideoSelector
}
deriving (InputTemplate -> InputTemplate -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: InputTemplate -> InputTemplate -> Bool
$c/= :: InputTemplate -> InputTemplate -> Bool
== :: InputTemplate -> InputTemplate -> Bool
$c== :: InputTemplate -> InputTemplate -> Bool
Prelude.Eq, ReadPrec [InputTemplate]
ReadPrec InputTemplate
Int -> ReadS InputTemplate
ReadS [InputTemplate]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [InputTemplate]
$creadListPrec :: ReadPrec [InputTemplate]
readPrec :: ReadPrec InputTemplate
$creadPrec :: ReadPrec InputTemplate
readList :: ReadS [InputTemplate]
$creadList :: ReadS [InputTemplate]
readsPrec :: Int -> ReadS InputTemplate
$creadsPrec :: Int -> ReadS InputTemplate
Prelude.Read, Int -> InputTemplate -> ShowS
[InputTemplate] -> ShowS
InputTemplate -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [InputTemplate] -> ShowS
$cshowList :: [InputTemplate] -> ShowS
show :: InputTemplate -> String
$cshow :: InputTemplate -> String
showsPrec :: Int -> InputTemplate -> ShowS
$cshowsPrec :: Int -> InputTemplate -> ShowS
Prelude.Show, forall x. Rep InputTemplate x -> InputTemplate
forall x. InputTemplate -> Rep InputTemplate x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep InputTemplate x -> InputTemplate
$cfrom :: forall x. InputTemplate -> Rep InputTemplate x
Prelude.Generic)
newInputTemplate ::
InputTemplate
newInputTemplate :: InputTemplate
newInputTemplate =
InputTemplate'
{ $sel:audioSelectorGroups:InputTemplate' :: Maybe (HashMap Text AudioSelectorGroup)
audioSelectorGroups =
forall a. Maybe a
Prelude.Nothing,
$sel:audioSelectors:InputTemplate' :: Maybe (HashMap Text AudioSelector)
audioSelectors = forall a. Maybe a
Prelude.Nothing,
$sel:captionSelectors:InputTemplate' :: Maybe (HashMap Text CaptionSelector)
captionSelectors = forall a. Maybe a
Prelude.Nothing,
$sel:crop:InputTemplate' :: Maybe Rectangle
crop = forall a. Maybe a
Prelude.Nothing,
$sel:deblockFilter:InputTemplate' :: Maybe InputDeblockFilter
deblockFilter = forall a. Maybe a
Prelude.Nothing,
$sel:denoiseFilter:InputTemplate' :: Maybe InputDenoiseFilter
denoiseFilter = forall a. Maybe a
Prelude.Nothing,
$sel:dolbyVisionMetadataXml:InputTemplate' :: Maybe Text
dolbyVisionMetadataXml = forall a. Maybe a
Prelude.Nothing,
$sel:filterEnable:InputTemplate' :: Maybe InputFilterEnable
filterEnable = forall a. Maybe a
Prelude.Nothing,
$sel:filterStrength:InputTemplate' :: Maybe Int
filterStrength = forall a. Maybe a
Prelude.Nothing,
$sel:imageInserter:InputTemplate' :: Maybe ImageInserter
imageInserter = forall a. Maybe a
Prelude.Nothing,
$sel:inputClippings:InputTemplate' :: Maybe [InputClipping]
inputClippings = forall a. Maybe a
Prelude.Nothing,
$sel:inputScanType:InputTemplate' :: Maybe InputScanType
inputScanType = forall a. Maybe a
Prelude.Nothing,
$sel:position:InputTemplate' :: Maybe Rectangle
position = forall a. Maybe a
Prelude.Nothing,
$sel:programNumber:InputTemplate' :: Maybe Natural
programNumber = forall a. Maybe a
Prelude.Nothing,
$sel:psiControl:InputTemplate' :: Maybe InputPsiControl
psiControl = forall a. Maybe a
Prelude.Nothing,
$sel:timecodeSource:InputTemplate' :: Maybe InputTimecodeSource
timecodeSource = forall a. Maybe a
Prelude.Nothing,
$sel:timecodeStart:InputTemplate' :: Maybe Text
timecodeStart = forall a. Maybe a
Prelude.Nothing,
$sel:videoSelector:InputTemplate' :: Maybe VideoSelector
videoSelector = forall a. Maybe a
Prelude.Nothing
}
inputTemplate_audioSelectorGroups :: Lens.Lens' InputTemplate (Prelude.Maybe (Prelude.HashMap Prelude.Text AudioSelectorGroup))
inputTemplate_audioSelectorGroups :: Lens' InputTemplate (Maybe (HashMap Text AudioSelectorGroup))
inputTemplate_audioSelectorGroups = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\InputTemplate' {Maybe (HashMap Text AudioSelectorGroup)
audioSelectorGroups :: Maybe (HashMap Text AudioSelectorGroup)
$sel:audioSelectorGroups:InputTemplate' :: InputTemplate -> Maybe (HashMap Text AudioSelectorGroup)
audioSelectorGroups} -> Maybe (HashMap Text AudioSelectorGroup)
audioSelectorGroups) (\s :: InputTemplate
s@InputTemplate' {} Maybe (HashMap Text AudioSelectorGroup)
a -> InputTemplate
s {$sel:audioSelectorGroups:InputTemplate' :: Maybe (HashMap Text AudioSelectorGroup)
audioSelectorGroups = Maybe (HashMap Text AudioSelectorGroup)
a} :: InputTemplate) 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
inputTemplate_audioSelectors :: Lens.Lens' InputTemplate (Prelude.Maybe (Prelude.HashMap Prelude.Text AudioSelector))
inputTemplate_audioSelectors :: Lens' InputTemplate (Maybe (HashMap Text AudioSelector))
inputTemplate_audioSelectors = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\InputTemplate' {Maybe (HashMap Text AudioSelector)
audioSelectors :: Maybe (HashMap Text AudioSelector)
$sel:audioSelectors:InputTemplate' :: InputTemplate -> Maybe (HashMap Text AudioSelector)
audioSelectors} -> Maybe (HashMap Text AudioSelector)
audioSelectors) (\s :: InputTemplate
s@InputTemplate' {} Maybe (HashMap Text AudioSelector)
a -> InputTemplate
s {$sel:audioSelectors:InputTemplate' :: Maybe (HashMap Text AudioSelector)
audioSelectors = Maybe (HashMap Text AudioSelector)
a} :: InputTemplate) 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
inputTemplate_captionSelectors :: Lens.Lens' InputTemplate (Prelude.Maybe (Prelude.HashMap Prelude.Text CaptionSelector))
inputTemplate_captionSelectors :: Lens' InputTemplate (Maybe (HashMap Text CaptionSelector))
inputTemplate_captionSelectors = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\InputTemplate' {Maybe (HashMap Text CaptionSelector)
captionSelectors :: Maybe (HashMap Text CaptionSelector)
$sel:captionSelectors:InputTemplate' :: InputTemplate -> Maybe (HashMap Text CaptionSelector)
captionSelectors} -> Maybe (HashMap Text CaptionSelector)
captionSelectors) (\s :: InputTemplate
s@InputTemplate' {} Maybe (HashMap Text CaptionSelector)
a -> InputTemplate
s {$sel:captionSelectors:InputTemplate' :: Maybe (HashMap Text CaptionSelector)
captionSelectors = Maybe (HashMap Text CaptionSelector)
a} :: InputTemplate) 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
inputTemplate_crop :: Lens.Lens' InputTemplate (Prelude.Maybe Rectangle)
inputTemplate_crop :: Lens' InputTemplate (Maybe Rectangle)
inputTemplate_crop = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\InputTemplate' {Maybe Rectangle
crop :: Maybe Rectangle
$sel:crop:InputTemplate' :: InputTemplate -> Maybe Rectangle
crop} -> Maybe Rectangle
crop) (\s :: InputTemplate
s@InputTemplate' {} Maybe Rectangle
a -> InputTemplate
s {$sel:crop:InputTemplate' :: Maybe Rectangle
crop = Maybe Rectangle
a} :: InputTemplate)
inputTemplate_deblockFilter :: Lens.Lens' InputTemplate (Prelude.Maybe InputDeblockFilter)
inputTemplate_deblockFilter :: Lens' InputTemplate (Maybe InputDeblockFilter)
inputTemplate_deblockFilter = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\InputTemplate' {Maybe InputDeblockFilter
deblockFilter :: Maybe InputDeblockFilter
$sel:deblockFilter:InputTemplate' :: InputTemplate -> Maybe InputDeblockFilter
deblockFilter} -> Maybe InputDeblockFilter
deblockFilter) (\s :: InputTemplate
s@InputTemplate' {} Maybe InputDeblockFilter
a -> InputTemplate
s {$sel:deblockFilter:InputTemplate' :: Maybe InputDeblockFilter
deblockFilter = Maybe InputDeblockFilter
a} :: InputTemplate)
inputTemplate_denoiseFilter :: Lens.Lens' InputTemplate (Prelude.Maybe InputDenoiseFilter)
inputTemplate_denoiseFilter :: Lens' InputTemplate (Maybe InputDenoiseFilter)
inputTemplate_denoiseFilter = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\InputTemplate' {Maybe InputDenoiseFilter
denoiseFilter :: Maybe InputDenoiseFilter
$sel:denoiseFilter:InputTemplate' :: InputTemplate -> Maybe InputDenoiseFilter
denoiseFilter} -> Maybe InputDenoiseFilter
denoiseFilter) (\s :: InputTemplate
s@InputTemplate' {} Maybe InputDenoiseFilter
a -> InputTemplate
s {$sel:denoiseFilter:InputTemplate' :: Maybe InputDenoiseFilter
denoiseFilter = Maybe InputDenoiseFilter
a} :: InputTemplate)
inputTemplate_dolbyVisionMetadataXml :: Lens.Lens' InputTemplate (Prelude.Maybe Prelude.Text)
inputTemplate_dolbyVisionMetadataXml :: Lens' InputTemplate (Maybe Text)
inputTemplate_dolbyVisionMetadataXml = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\InputTemplate' {Maybe Text
dolbyVisionMetadataXml :: Maybe Text
$sel:dolbyVisionMetadataXml:InputTemplate' :: InputTemplate -> Maybe Text
dolbyVisionMetadataXml} -> Maybe Text
dolbyVisionMetadataXml) (\s :: InputTemplate
s@InputTemplate' {} Maybe Text
a -> InputTemplate
s {$sel:dolbyVisionMetadataXml:InputTemplate' :: Maybe Text
dolbyVisionMetadataXml = Maybe Text
a} :: InputTemplate)
inputTemplate_filterEnable :: Lens.Lens' InputTemplate (Prelude.Maybe InputFilterEnable)
inputTemplate_filterEnable :: Lens' InputTemplate (Maybe InputFilterEnable)
inputTemplate_filterEnable = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\InputTemplate' {Maybe InputFilterEnable
filterEnable :: Maybe InputFilterEnable
$sel:filterEnable:InputTemplate' :: InputTemplate -> Maybe InputFilterEnable
filterEnable} -> Maybe InputFilterEnable
filterEnable) (\s :: InputTemplate
s@InputTemplate' {} Maybe InputFilterEnable
a -> InputTemplate
s {$sel:filterEnable:InputTemplate' :: Maybe InputFilterEnable
filterEnable = Maybe InputFilterEnable
a} :: InputTemplate)
inputTemplate_filterStrength :: Lens.Lens' InputTemplate (Prelude.Maybe Prelude.Int)
inputTemplate_filterStrength :: Lens' InputTemplate (Maybe Int)
inputTemplate_filterStrength = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\InputTemplate' {Maybe Int
filterStrength :: Maybe Int
$sel:filterStrength:InputTemplate' :: InputTemplate -> Maybe Int
filterStrength} -> Maybe Int
filterStrength) (\s :: InputTemplate
s@InputTemplate' {} Maybe Int
a -> InputTemplate
s {$sel:filterStrength:InputTemplate' :: Maybe Int
filterStrength = Maybe Int
a} :: InputTemplate)
inputTemplate_imageInserter :: Lens.Lens' InputTemplate (Prelude.Maybe ImageInserter)
inputTemplate_imageInserter :: Lens' InputTemplate (Maybe ImageInserter)
inputTemplate_imageInserter = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\InputTemplate' {Maybe ImageInserter
imageInserter :: Maybe ImageInserter
$sel:imageInserter:InputTemplate' :: InputTemplate -> Maybe ImageInserter
imageInserter} -> Maybe ImageInserter
imageInserter) (\s :: InputTemplate
s@InputTemplate' {} Maybe ImageInserter
a -> InputTemplate
s {$sel:imageInserter:InputTemplate' :: Maybe ImageInserter
imageInserter = Maybe ImageInserter
a} :: InputTemplate)
inputTemplate_inputClippings :: Lens.Lens' InputTemplate (Prelude.Maybe [InputClipping])
inputTemplate_inputClippings :: Lens' InputTemplate (Maybe [InputClipping])
inputTemplate_inputClippings = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\InputTemplate' {Maybe [InputClipping]
inputClippings :: Maybe [InputClipping]
$sel:inputClippings:InputTemplate' :: InputTemplate -> Maybe [InputClipping]
inputClippings} -> Maybe [InputClipping]
inputClippings) (\s :: InputTemplate
s@InputTemplate' {} Maybe [InputClipping]
a -> InputTemplate
s {$sel:inputClippings:InputTemplate' :: Maybe [InputClipping]
inputClippings = Maybe [InputClipping]
a} :: InputTemplate) 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
inputTemplate_inputScanType :: Lens.Lens' InputTemplate (Prelude.Maybe InputScanType)
inputTemplate_inputScanType :: Lens' InputTemplate (Maybe InputScanType)
inputTemplate_inputScanType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\InputTemplate' {Maybe InputScanType
inputScanType :: Maybe InputScanType
$sel:inputScanType:InputTemplate' :: InputTemplate -> Maybe InputScanType
inputScanType} -> Maybe InputScanType
inputScanType) (\s :: InputTemplate
s@InputTemplate' {} Maybe InputScanType
a -> InputTemplate
s {$sel:inputScanType:InputTemplate' :: Maybe InputScanType
inputScanType = Maybe InputScanType
a} :: InputTemplate)
inputTemplate_position :: Lens.Lens' InputTemplate (Prelude.Maybe Rectangle)
inputTemplate_position :: Lens' InputTemplate (Maybe Rectangle)
inputTemplate_position = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\InputTemplate' {Maybe Rectangle
position :: Maybe Rectangle
$sel:position:InputTemplate' :: InputTemplate -> Maybe Rectangle
position} -> Maybe Rectangle
position) (\s :: InputTemplate
s@InputTemplate' {} Maybe Rectangle
a -> InputTemplate
s {$sel:position:InputTemplate' :: Maybe Rectangle
position = Maybe Rectangle
a} :: InputTemplate)
inputTemplate_programNumber :: Lens.Lens' InputTemplate (Prelude.Maybe Prelude.Natural)
inputTemplate_programNumber :: Lens' InputTemplate (Maybe Natural)
inputTemplate_programNumber = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\InputTemplate' {Maybe Natural
programNumber :: Maybe Natural
$sel:programNumber:InputTemplate' :: InputTemplate -> Maybe Natural
programNumber} -> Maybe Natural
programNumber) (\s :: InputTemplate
s@InputTemplate' {} Maybe Natural
a -> InputTemplate
s {$sel:programNumber:InputTemplate' :: Maybe Natural
programNumber = Maybe Natural
a} :: InputTemplate)
inputTemplate_psiControl :: Lens.Lens' InputTemplate (Prelude.Maybe InputPsiControl)
inputTemplate_psiControl :: Lens' InputTemplate (Maybe InputPsiControl)
inputTemplate_psiControl = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\InputTemplate' {Maybe InputPsiControl
psiControl :: Maybe InputPsiControl
$sel:psiControl:InputTemplate' :: InputTemplate -> Maybe InputPsiControl
psiControl} -> Maybe InputPsiControl
psiControl) (\s :: InputTemplate
s@InputTemplate' {} Maybe InputPsiControl
a -> InputTemplate
s {$sel:psiControl:InputTemplate' :: Maybe InputPsiControl
psiControl = Maybe InputPsiControl
a} :: InputTemplate)
inputTemplate_timecodeSource :: Lens.Lens' InputTemplate (Prelude.Maybe InputTimecodeSource)
inputTemplate_timecodeSource :: Lens' InputTemplate (Maybe InputTimecodeSource)
inputTemplate_timecodeSource = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\InputTemplate' {Maybe InputTimecodeSource
timecodeSource :: Maybe InputTimecodeSource
$sel:timecodeSource:InputTemplate' :: InputTemplate -> Maybe InputTimecodeSource
timecodeSource} -> Maybe InputTimecodeSource
timecodeSource) (\s :: InputTemplate
s@InputTemplate' {} Maybe InputTimecodeSource
a -> InputTemplate
s {$sel:timecodeSource:InputTemplate' :: Maybe InputTimecodeSource
timecodeSource = Maybe InputTimecodeSource
a} :: InputTemplate)
inputTemplate_timecodeStart :: Lens.Lens' InputTemplate (Prelude.Maybe Prelude.Text)
inputTemplate_timecodeStart :: Lens' InputTemplate (Maybe Text)
inputTemplate_timecodeStart = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\InputTemplate' {Maybe Text
timecodeStart :: Maybe Text
$sel:timecodeStart:InputTemplate' :: InputTemplate -> Maybe Text
timecodeStart} -> Maybe Text
timecodeStart) (\s :: InputTemplate
s@InputTemplate' {} Maybe Text
a -> InputTemplate
s {$sel:timecodeStart:InputTemplate' :: Maybe Text
timecodeStart = Maybe Text
a} :: InputTemplate)
inputTemplate_videoSelector :: Lens.Lens' InputTemplate (Prelude.Maybe VideoSelector)
inputTemplate_videoSelector :: Lens' InputTemplate (Maybe VideoSelector)
inputTemplate_videoSelector = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\InputTemplate' {Maybe VideoSelector
videoSelector :: Maybe VideoSelector
$sel:videoSelector:InputTemplate' :: InputTemplate -> Maybe VideoSelector
videoSelector} -> Maybe VideoSelector
videoSelector) (\s :: InputTemplate
s@InputTemplate' {} Maybe VideoSelector
a -> InputTemplate
s {$sel:videoSelector:InputTemplate' :: Maybe VideoSelector
videoSelector = Maybe VideoSelector
a} :: InputTemplate)
instance Data.FromJSON InputTemplate where
parseJSON :: Value -> Parser InputTemplate
parseJSON =
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.withObject
String
"InputTemplate"
( \Object
x ->
Maybe (HashMap Text AudioSelectorGroup)
-> Maybe (HashMap Text AudioSelector)
-> Maybe (HashMap Text CaptionSelector)
-> Maybe Rectangle
-> Maybe InputDeblockFilter
-> Maybe InputDenoiseFilter
-> Maybe Text
-> Maybe InputFilterEnable
-> Maybe Int
-> Maybe ImageInserter
-> Maybe [InputClipping]
-> Maybe InputScanType
-> Maybe Rectangle
-> Maybe Natural
-> Maybe InputPsiControl
-> Maybe InputTimecodeSource
-> Maybe Text
-> Maybe VideoSelector
-> InputTemplate
InputTemplate'
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
"audioSelectorGroups"
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
"audioSelectors" 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
"captionSelectors"
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
"crop")
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
"deblockFilter")
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
"denoiseFilter")
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
"dolbyVisionMetadataXml")
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
"filterEnable")
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
"filterStrength")
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
"imageInserter")
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
"inputClippings" 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
"inputScanType")
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
"position")
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
"psiControl")
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
"timecodeSource")
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
"timecodeStart")
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
"videoSelector")
)
instance Prelude.Hashable InputTemplate where
hashWithSalt :: Int -> InputTemplate -> Int
hashWithSalt Int
_salt InputTemplate' {Maybe Int
Maybe Natural
Maybe [InputClipping]
Maybe Text
Maybe (HashMap Text AudioSelectorGroup)
Maybe (HashMap Text AudioSelector)
Maybe (HashMap Text CaptionSelector)
Maybe InputDeblockFilter
Maybe InputDenoiseFilter
Maybe InputFilterEnable
Maybe InputPsiControl
Maybe InputScanType
Maybe InputTimecodeSource
Maybe ImageInserter
Maybe Rectangle
Maybe VideoSelector
videoSelector :: Maybe VideoSelector
timecodeStart :: Maybe Text
timecodeSource :: Maybe InputTimecodeSource
psiControl :: Maybe InputPsiControl
programNumber :: Maybe Natural
position :: Maybe Rectangle
inputScanType :: Maybe InputScanType
inputClippings :: Maybe [InputClipping]
imageInserter :: Maybe ImageInserter
filterStrength :: Maybe Int
filterEnable :: Maybe InputFilterEnable
dolbyVisionMetadataXml :: Maybe Text
denoiseFilter :: Maybe InputDenoiseFilter
deblockFilter :: Maybe InputDeblockFilter
crop :: Maybe Rectangle
captionSelectors :: Maybe (HashMap Text CaptionSelector)
audioSelectors :: Maybe (HashMap Text AudioSelector)
audioSelectorGroups :: Maybe (HashMap Text AudioSelectorGroup)
$sel:videoSelector:InputTemplate' :: InputTemplate -> Maybe VideoSelector
$sel:timecodeStart:InputTemplate' :: InputTemplate -> Maybe Text
$sel:timecodeSource:InputTemplate' :: InputTemplate -> Maybe InputTimecodeSource
$sel:psiControl:InputTemplate' :: InputTemplate -> Maybe InputPsiControl
$sel:programNumber:InputTemplate' :: InputTemplate -> Maybe Natural
$sel:position:InputTemplate' :: InputTemplate -> Maybe Rectangle
$sel:inputScanType:InputTemplate' :: InputTemplate -> Maybe InputScanType
$sel:inputClippings:InputTemplate' :: InputTemplate -> Maybe [InputClipping]
$sel:imageInserter:InputTemplate' :: InputTemplate -> Maybe ImageInserter
$sel:filterStrength:InputTemplate' :: InputTemplate -> Maybe Int
$sel:filterEnable:InputTemplate' :: InputTemplate -> Maybe InputFilterEnable
$sel:dolbyVisionMetadataXml:InputTemplate' :: InputTemplate -> Maybe Text
$sel:denoiseFilter:InputTemplate' :: InputTemplate -> Maybe InputDenoiseFilter
$sel:deblockFilter:InputTemplate' :: InputTemplate -> Maybe InputDeblockFilter
$sel:crop:InputTemplate' :: InputTemplate -> Maybe Rectangle
$sel:captionSelectors:InputTemplate' :: InputTemplate -> Maybe (HashMap Text CaptionSelector)
$sel:audioSelectors:InputTemplate' :: InputTemplate -> Maybe (HashMap Text AudioSelector)
$sel:audioSelectorGroups:InputTemplate' :: InputTemplate -> Maybe (HashMap Text AudioSelectorGroup)
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (HashMap Text AudioSelectorGroup)
audioSelectorGroups
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (HashMap Text AudioSelector)
audioSelectors
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (HashMap Text CaptionSelector)
captionSelectors
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Rectangle
crop
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe InputDeblockFilter
deblockFilter
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe InputDenoiseFilter
denoiseFilter
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
dolbyVisionMetadataXml
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe InputFilterEnable
filterEnable
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
filterStrength
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ImageInserter
imageInserter
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [InputClipping]
inputClippings
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe InputScanType
inputScanType
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Rectangle
position
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
programNumber
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe InputPsiControl
psiControl
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe InputTimecodeSource
timecodeSource
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
timecodeStart
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe VideoSelector
videoSelector
instance Prelude.NFData InputTemplate where
rnf :: InputTemplate -> ()
rnf InputTemplate' {Maybe Int
Maybe Natural
Maybe [InputClipping]
Maybe Text
Maybe (HashMap Text AudioSelectorGroup)
Maybe (HashMap Text AudioSelector)
Maybe (HashMap Text CaptionSelector)
Maybe InputDeblockFilter
Maybe InputDenoiseFilter
Maybe InputFilterEnable
Maybe InputPsiControl
Maybe InputScanType
Maybe InputTimecodeSource
Maybe ImageInserter
Maybe Rectangle
Maybe VideoSelector
videoSelector :: Maybe VideoSelector
timecodeStart :: Maybe Text
timecodeSource :: Maybe InputTimecodeSource
psiControl :: Maybe InputPsiControl
programNumber :: Maybe Natural
position :: Maybe Rectangle
inputScanType :: Maybe InputScanType
inputClippings :: Maybe [InputClipping]
imageInserter :: Maybe ImageInserter
filterStrength :: Maybe Int
filterEnable :: Maybe InputFilterEnable
dolbyVisionMetadataXml :: Maybe Text
denoiseFilter :: Maybe InputDenoiseFilter
deblockFilter :: Maybe InputDeblockFilter
crop :: Maybe Rectangle
captionSelectors :: Maybe (HashMap Text CaptionSelector)
audioSelectors :: Maybe (HashMap Text AudioSelector)
audioSelectorGroups :: Maybe (HashMap Text AudioSelectorGroup)
$sel:videoSelector:InputTemplate' :: InputTemplate -> Maybe VideoSelector
$sel:timecodeStart:InputTemplate' :: InputTemplate -> Maybe Text
$sel:timecodeSource:InputTemplate' :: InputTemplate -> Maybe InputTimecodeSource
$sel:psiControl:InputTemplate' :: InputTemplate -> Maybe InputPsiControl
$sel:programNumber:InputTemplate' :: InputTemplate -> Maybe Natural
$sel:position:InputTemplate' :: InputTemplate -> Maybe Rectangle
$sel:inputScanType:InputTemplate' :: InputTemplate -> Maybe InputScanType
$sel:inputClippings:InputTemplate' :: InputTemplate -> Maybe [InputClipping]
$sel:imageInserter:InputTemplate' :: InputTemplate -> Maybe ImageInserter
$sel:filterStrength:InputTemplate' :: InputTemplate -> Maybe Int
$sel:filterEnable:InputTemplate' :: InputTemplate -> Maybe InputFilterEnable
$sel:dolbyVisionMetadataXml:InputTemplate' :: InputTemplate -> Maybe Text
$sel:denoiseFilter:InputTemplate' :: InputTemplate -> Maybe InputDenoiseFilter
$sel:deblockFilter:InputTemplate' :: InputTemplate -> Maybe InputDeblockFilter
$sel:crop:InputTemplate' :: InputTemplate -> Maybe Rectangle
$sel:captionSelectors:InputTemplate' :: InputTemplate -> Maybe (HashMap Text CaptionSelector)
$sel:audioSelectors:InputTemplate' :: InputTemplate -> Maybe (HashMap Text AudioSelector)
$sel:audioSelectorGroups:InputTemplate' :: InputTemplate -> Maybe (HashMap Text AudioSelectorGroup)
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe (HashMap Text AudioSelectorGroup)
audioSelectorGroups
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (HashMap Text AudioSelector)
audioSelectors
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (HashMap Text CaptionSelector)
captionSelectors
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Rectangle
crop
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe InputDeblockFilter
deblockFilter
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe InputDenoiseFilter
denoiseFilter
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
dolbyVisionMetadataXml
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe InputFilterEnable
filterEnable
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
filterStrength
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ImageInserter
imageInserter
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [InputClipping]
inputClippings
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe InputScanType
inputScanType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Rectangle
position
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 InputPsiControl
psiControl
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe InputTimecodeSource
timecodeSource
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
timecodeStart
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe VideoSelector
videoSelector
instance Data.ToJSON InputTemplate where
toJSON :: InputTemplate -> Value
toJSON InputTemplate' {Maybe Int
Maybe Natural
Maybe [InputClipping]
Maybe Text
Maybe (HashMap Text AudioSelectorGroup)
Maybe (HashMap Text AudioSelector)
Maybe (HashMap Text CaptionSelector)
Maybe InputDeblockFilter
Maybe InputDenoiseFilter
Maybe InputFilterEnable
Maybe InputPsiControl
Maybe InputScanType
Maybe InputTimecodeSource
Maybe ImageInserter
Maybe Rectangle
Maybe VideoSelector
videoSelector :: Maybe VideoSelector
timecodeStart :: Maybe Text
timecodeSource :: Maybe InputTimecodeSource
psiControl :: Maybe InputPsiControl
programNumber :: Maybe Natural
position :: Maybe Rectangle
inputScanType :: Maybe InputScanType
inputClippings :: Maybe [InputClipping]
imageInserter :: Maybe ImageInserter
filterStrength :: Maybe Int
filterEnable :: Maybe InputFilterEnable
dolbyVisionMetadataXml :: Maybe Text
denoiseFilter :: Maybe InputDenoiseFilter
deblockFilter :: Maybe InputDeblockFilter
crop :: Maybe Rectangle
captionSelectors :: Maybe (HashMap Text CaptionSelector)
audioSelectors :: Maybe (HashMap Text AudioSelector)
audioSelectorGroups :: Maybe (HashMap Text AudioSelectorGroup)
$sel:videoSelector:InputTemplate' :: InputTemplate -> Maybe VideoSelector
$sel:timecodeStart:InputTemplate' :: InputTemplate -> Maybe Text
$sel:timecodeSource:InputTemplate' :: InputTemplate -> Maybe InputTimecodeSource
$sel:psiControl:InputTemplate' :: InputTemplate -> Maybe InputPsiControl
$sel:programNumber:InputTemplate' :: InputTemplate -> Maybe Natural
$sel:position:InputTemplate' :: InputTemplate -> Maybe Rectangle
$sel:inputScanType:InputTemplate' :: InputTemplate -> Maybe InputScanType
$sel:inputClippings:InputTemplate' :: InputTemplate -> Maybe [InputClipping]
$sel:imageInserter:InputTemplate' :: InputTemplate -> Maybe ImageInserter
$sel:filterStrength:InputTemplate' :: InputTemplate -> Maybe Int
$sel:filterEnable:InputTemplate' :: InputTemplate -> Maybe InputFilterEnable
$sel:dolbyVisionMetadataXml:InputTemplate' :: InputTemplate -> Maybe Text
$sel:denoiseFilter:InputTemplate' :: InputTemplate -> Maybe InputDenoiseFilter
$sel:deblockFilter:InputTemplate' :: InputTemplate -> Maybe InputDeblockFilter
$sel:crop:InputTemplate' :: InputTemplate -> Maybe Rectangle
$sel:captionSelectors:InputTemplate' :: InputTemplate -> Maybe (HashMap Text CaptionSelector)
$sel:audioSelectors:InputTemplate' :: InputTemplate -> Maybe (HashMap Text AudioSelector)
$sel:audioSelectorGroups:InputTemplate' :: InputTemplate -> Maybe (HashMap Text AudioSelectorGroup)
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"audioSelectorGroups" 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 (HashMap Text AudioSelectorGroup)
audioSelectorGroups,
(Key
"audioSelectors" 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 (HashMap Text AudioSelector)
audioSelectors,
(Key
"captionSelectors" 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 (HashMap Text CaptionSelector)
captionSelectors,
(Key
"crop" 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 Rectangle
crop,
(Key
"deblockFilter" 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 InputDeblockFilter
deblockFilter,
(Key
"denoiseFilter" 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 InputDenoiseFilter
denoiseFilter,
(Key
"dolbyVisionMetadataXml" 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 Text
dolbyVisionMetadataXml,
(Key
"filterEnable" 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 InputFilterEnable
filterEnable,
(Key
"filterStrength" 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 Int
filterStrength,
(Key
"imageInserter" 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 ImageInserter
imageInserter,
(Key
"inputClippings" 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 [InputClipping]
inputClippings,
(Key
"inputScanType" 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 InputScanType
inputScanType,
(Key
"position" 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 Rectangle
position,
(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
"psiControl" 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 InputPsiControl
psiControl,
(Key
"timecodeSource" 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 InputTimecodeSource
timecodeSource,
(Key
"timecodeStart" 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 Text
timecodeStart,
(Key
"videoSelector" 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 VideoSelector
videoSelector
]
)