{-# 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.Input 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.InputDecryptionSettings
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.InputVideoGenerator
import Amazonka.MediaConvert.Types.Rectangle
import Amazonka.MediaConvert.Types.VideoSelector
import qualified Amazonka.Prelude as Prelude
data Input = Input'
{
Input -> Maybe (HashMap Text AudioSelectorGroup)
audioSelectorGroups :: Prelude.Maybe (Prelude.HashMap Prelude.Text AudioSelectorGroup),
Input -> Maybe (HashMap Text AudioSelector)
audioSelectors :: Prelude.Maybe (Prelude.HashMap Prelude.Text AudioSelector),
Input -> Maybe (HashMap Text CaptionSelector)
captionSelectors :: Prelude.Maybe (Prelude.HashMap Prelude.Text CaptionSelector),
Input -> Maybe Rectangle
crop :: Prelude.Maybe Rectangle,
Input -> Maybe InputDeblockFilter
deblockFilter :: Prelude.Maybe InputDeblockFilter,
Input -> Maybe InputDecryptionSettings
decryptionSettings :: Prelude.Maybe InputDecryptionSettings,
Input -> Maybe InputDenoiseFilter
denoiseFilter :: Prelude.Maybe InputDenoiseFilter,
Input -> Maybe Text
dolbyVisionMetadataXml :: Prelude.Maybe Prelude.Text,
Input -> Maybe Text
fileInput :: Prelude.Maybe Prelude.Text,
Input -> Maybe InputFilterEnable
filterEnable :: Prelude.Maybe InputFilterEnable,
Input -> Maybe Int
filterStrength :: Prelude.Maybe Prelude.Int,
Input -> Maybe ImageInserter
imageInserter :: Prelude.Maybe ImageInserter,
Input -> Maybe [InputClipping]
inputClippings :: Prelude.Maybe [InputClipping],
Input -> Maybe InputScanType
inputScanType :: Prelude.Maybe InputScanType,
Input -> Maybe Rectangle
position :: Prelude.Maybe Rectangle,
Input -> Maybe Natural
programNumber :: Prelude.Maybe Prelude.Natural,
Input -> Maybe InputPsiControl
psiControl :: Prelude.Maybe InputPsiControl,
Input -> Maybe [Text]
supplementalImps :: Prelude.Maybe [Prelude.Text],
Input -> Maybe InputTimecodeSource
timecodeSource :: Prelude.Maybe InputTimecodeSource,
Input -> Maybe Text
timecodeStart :: Prelude.Maybe Prelude.Text,
Input -> Maybe InputVideoGenerator
videoGenerator :: Prelude.Maybe InputVideoGenerator,
Input -> Maybe VideoSelector
videoSelector :: Prelude.Maybe VideoSelector
}
deriving (Input -> Input -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Input -> Input -> Bool
$c/= :: Input -> Input -> Bool
== :: Input -> Input -> Bool
$c== :: Input -> Input -> Bool
Prelude.Eq, ReadPrec [Input]
ReadPrec Input
Int -> ReadS Input
ReadS [Input]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [Input]
$creadListPrec :: ReadPrec [Input]
readPrec :: ReadPrec Input
$creadPrec :: ReadPrec Input
readList :: ReadS [Input]
$creadList :: ReadS [Input]
readsPrec :: Int -> ReadS Input
$creadsPrec :: Int -> ReadS Input
Prelude.Read, Int -> Input -> ShowS
[Input] -> ShowS
Input -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Input] -> ShowS
$cshowList :: [Input] -> ShowS
show :: Input -> String
$cshow :: Input -> String
showsPrec :: Int -> Input -> ShowS
$cshowsPrec :: Int -> Input -> ShowS
Prelude.Show, forall x. Rep Input x -> Input
forall x. Input -> Rep Input x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep Input x -> Input
$cfrom :: forall x. Input -> Rep Input x
Prelude.Generic)
newInput ::
Input
newInput :: Input
newInput =
Input'
{ $sel:audioSelectorGroups:Input' :: Maybe (HashMap Text AudioSelectorGroup)
audioSelectorGroups = forall a. Maybe a
Prelude.Nothing,
$sel:audioSelectors:Input' :: Maybe (HashMap Text AudioSelector)
audioSelectors = forall a. Maybe a
Prelude.Nothing,
$sel:captionSelectors:Input' :: Maybe (HashMap Text CaptionSelector)
captionSelectors = forall a. Maybe a
Prelude.Nothing,
$sel:crop:Input' :: Maybe Rectangle
crop = forall a. Maybe a
Prelude.Nothing,
$sel:deblockFilter:Input' :: Maybe InputDeblockFilter
deblockFilter = forall a. Maybe a
Prelude.Nothing,
$sel:decryptionSettings:Input' :: Maybe InputDecryptionSettings
decryptionSettings = forall a. Maybe a
Prelude.Nothing,
$sel:denoiseFilter:Input' :: Maybe InputDenoiseFilter
denoiseFilter = forall a. Maybe a
Prelude.Nothing,
$sel:dolbyVisionMetadataXml:Input' :: Maybe Text
dolbyVisionMetadataXml = forall a. Maybe a
Prelude.Nothing,
$sel:fileInput:Input' :: Maybe Text
fileInput = forall a. Maybe a
Prelude.Nothing,
$sel:filterEnable:Input' :: Maybe InputFilterEnable
filterEnable = forall a. Maybe a
Prelude.Nothing,
$sel:filterStrength:Input' :: Maybe Int
filterStrength = forall a. Maybe a
Prelude.Nothing,
$sel:imageInserter:Input' :: Maybe ImageInserter
imageInserter = forall a. Maybe a
Prelude.Nothing,
$sel:inputClippings:Input' :: Maybe [InputClipping]
inputClippings = forall a. Maybe a
Prelude.Nothing,
$sel:inputScanType:Input' :: Maybe InputScanType
inputScanType = forall a. Maybe a
Prelude.Nothing,
$sel:position:Input' :: Maybe Rectangle
position = forall a. Maybe a
Prelude.Nothing,
$sel:programNumber:Input' :: Maybe Natural
programNumber = forall a. Maybe a
Prelude.Nothing,
$sel:psiControl:Input' :: Maybe InputPsiControl
psiControl = forall a. Maybe a
Prelude.Nothing,
$sel:supplementalImps:Input' :: Maybe [Text]
supplementalImps = forall a. Maybe a
Prelude.Nothing,
$sel:timecodeSource:Input' :: Maybe InputTimecodeSource
timecodeSource = forall a. Maybe a
Prelude.Nothing,
$sel:timecodeStart:Input' :: Maybe Text
timecodeStart = forall a. Maybe a
Prelude.Nothing,
$sel:videoGenerator:Input' :: Maybe InputVideoGenerator
videoGenerator = forall a. Maybe a
Prelude.Nothing,
$sel:videoSelector:Input' :: Maybe VideoSelector
videoSelector = forall a. Maybe a
Prelude.Nothing
}
input_audioSelectorGroups :: Lens.Lens' Input (Prelude.Maybe (Prelude.HashMap Prelude.Text AudioSelectorGroup))
input_audioSelectorGroups :: Lens' Input (Maybe (HashMap Text AudioSelectorGroup))
input_audioSelectorGroups = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Input' {Maybe (HashMap Text AudioSelectorGroup)
audioSelectorGroups :: Maybe (HashMap Text AudioSelectorGroup)
$sel:audioSelectorGroups:Input' :: Input -> Maybe (HashMap Text AudioSelectorGroup)
audioSelectorGroups} -> Maybe (HashMap Text AudioSelectorGroup)
audioSelectorGroups) (\s :: Input
s@Input' {} Maybe (HashMap Text AudioSelectorGroup)
a -> Input
s {$sel:audioSelectorGroups:Input' :: Maybe (HashMap Text AudioSelectorGroup)
audioSelectorGroups = Maybe (HashMap Text AudioSelectorGroup)
a} :: Input) 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
input_audioSelectors :: Lens.Lens' Input (Prelude.Maybe (Prelude.HashMap Prelude.Text AudioSelector))
input_audioSelectors :: Lens' Input (Maybe (HashMap Text AudioSelector))
input_audioSelectors = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Input' {Maybe (HashMap Text AudioSelector)
audioSelectors :: Maybe (HashMap Text AudioSelector)
$sel:audioSelectors:Input' :: Input -> Maybe (HashMap Text AudioSelector)
audioSelectors} -> Maybe (HashMap Text AudioSelector)
audioSelectors) (\s :: Input
s@Input' {} Maybe (HashMap Text AudioSelector)
a -> Input
s {$sel:audioSelectors:Input' :: Maybe (HashMap Text AudioSelector)
audioSelectors = Maybe (HashMap Text AudioSelector)
a} :: Input) 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
input_captionSelectors :: Lens.Lens' Input (Prelude.Maybe (Prelude.HashMap Prelude.Text CaptionSelector))
input_captionSelectors :: Lens' Input (Maybe (HashMap Text CaptionSelector))
input_captionSelectors = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Input' {Maybe (HashMap Text CaptionSelector)
captionSelectors :: Maybe (HashMap Text CaptionSelector)
$sel:captionSelectors:Input' :: Input -> Maybe (HashMap Text CaptionSelector)
captionSelectors} -> Maybe (HashMap Text CaptionSelector)
captionSelectors) (\s :: Input
s@Input' {} Maybe (HashMap Text CaptionSelector)
a -> Input
s {$sel:captionSelectors:Input' :: Maybe (HashMap Text CaptionSelector)
captionSelectors = Maybe (HashMap Text CaptionSelector)
a} :: Input) 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
input_crop :: Lens.Lens' Input (Prelude.Maybe Rectangle)
input_crop :: Lens' Input (Maybe Rectangle)
input_crop = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Input' {Maybe Rectangle
crop :: Maybe Rectangle
$sel:crop:Input' :: Input -> Maybe Rectangle
crop} -> Maybe Rectangle
crop) (\s :: Input
s@Input' {} Maybe Rectangle
a -> Input
s {$sel:crop:Input' :: Maybe Rectangle
crop = Maybe Rectangle
a} :: Input)
input_deblockFilter :: Lens.Lens' Input (Prelude.Maybe InputDeblockFilter)
input_deblockFilter :: Lens' Input (Maybe InputDeblockFilter)
input_deblockFilter = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Input' {Maybe InputDeblockFilter
deblockFilter :: Maybe InputDeblockFilter
$sel:deblockFilter:Input' :: Input -> Maybe InputDeblockFilter
deblockFilter} -> Maybe InputDeblockFilter
deblockFilter) (\s :: Input
s@Input' {} Maybe InputDeblockFilter
a -> Input
s {$sel:deblockFilter:Input' :: Maybe InputDeblockFilter
deblockFilter = Maybe InputDeblockFilter
a} :: Input)
input_decryptionSettings :: Lens.Lens' Input (Prelude.Maybe InputDecryptionSettings)
input_decryptionSettings :: Lens' Input (Maybe InputDecryptionSettings)
input_decryptionSettings = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Input' {Maybe InputDecryptionSettings
decryptionSettings :: Maybe InputDecryptionSettings
$sel:decryptionSettings:Input' :: Input -> Maybe InputDecryptionSettings
decryptionSettings} -> Maybe InputDecryptionSettings
decryptionSettings) (\s :: Input
s@Input' {} Maybe InputDecryptionSettings
a -> Input
s {$sel:decryptionSettings:Input' :: Maybe InputDecryptionSettings
decryptionSettings = Maybe InputDecryptionSettings
a} :: Input)
input_denoiseFilter :: Lens.Lens' Input (Prelude.Maybe InputDenoiseFilter)
input_denoiseFilter :: Lens' Input (Maybe InputDenoiseFilter)
input_denoiseFilter = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Input' {Maybe InputDenoiseFilter
denoiseFilter :: Maybe InputDenoiseFilter
$sel:denoiseFilter:Input' :: Input -> Maybe InputDenoiseFilter
denoiseFilter} -> Maybe InputDenoiseFilter
denoiseFilter) (\s :: Input
s@Input' {} Maybe InputDenoiseFilter
a -> Input
s {$sel:denoiseFilter:Input' :: Maybe InputDenoiseFilter
denoiseFilter = Maybe InputDenoiseFilter
a} :: Input)
input_dolbyVisionMetadataXml :: Lens.Lens' Input (Prelude.Maybe Prelude.Text)
input_dolbyVisionMetadataXml :: Lens' Input (Maybe Text)
input_dolbyVisionMetadataXml = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Input' {Maybe Text
dolbyVisionMetadataXml :: Maybe Text
$sel:dolbyVisionMetadataXml:Input' :: Input -> Maybe Text
dolbyVisionMetadataXml} -> Maybe Text
dolbyVisionMetadataXml) (\s :: Input
s@Input' {} Maybe Text
a -> Input
s {$sel:dolbyVisionMetadataXml:Input' :: Maybe Text
dolbyVisionMetadataXml = Maybe Text
a} :: Input)
input_fileInput :: Lens.Lens' Input (Prelude.Maybe Prelude.Text)
input_fileInput :: Lens' Input (Maybe Text)
input_fileInput = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Input' {Maybe Text
fileInput :: Maybe Text
$sel:fileInput:Input' :: Input -> Maybe Text
fileInput} -> Maybe Text
fileInput) (\s :: Input
s@Input' {} Maybe Text
a -> Input
s {$sel:fileInput:Input' :: Maybe Text
fileInput = Maybe Text
a} :: Input)
input_filterEnable :: Lens.Lens' Input (Prelude.Maybe InputFilterEnable)
input_filterEnable :: Lens' Input (Maybe InputFilterEnable)
input_filterEnable = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Input' {Maybe InputFilterEnable
filterEnable :: Maybe InputFilterEnable
$sel:filterEnable:Input' :: Input -> Maybe InputFilterEnable
filterEnable} -> Maybe InputFilterEnable
filterEnable) (\s :: Input
s@Input' {} Maybe InputFilterEnable
a -> Input
s {$sel:filterEnable:Input' :: Maybe InputFilterEnable
filterEnable = Maybe InputFilterEnable
a} :: Input)
input_filterStrength :: Lens.Lens' Input (Prelude.Maybe Prelude.Int)
input_filterStrength :: Lens' Input (Maybe Int)
input_filterStrength = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Input' {Maybe Int
filterStrength :: Maybe Int
$sel:filterStrength:Input' :: Input -> Maybe Int
filterStrength} -> Maybe Int
filterStrength) (\s :: Input
s@Input' {} Maybe Int
a -> Input
s {$sel:filterStrength:Input' :: Maybe Int
filterStrength = Maybe Int
a} :: Input)
input_imageInserter :: Lens.Lens' Input (Prelude.Maybe ImageInserter)
input_imageInserter :: Lens' Input (Maybe ImageInserter)
input_imageInserter = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Input' {Maybe ImageInserter
imageInserter :: Maybe ImageInserter
$sel:imageInserter:Input' :: Input -> Maybe ImageInserter
imageInserter} -> Maybe ImageInserter
imageInserter) (\s :: Input
s@Input' {} Maybe ImageInserter
a -> Input
s {$sel:imageInserter:Input' :: Maybe ImageInserter
imageInserter = Maybe ImageInserter
a} :: Input)
input_inputClippings :: Lens.Lens' Input (Prelude.Maybe [InputClipping])
input_inputClippings :: Lens' Input (Maybe [InputClipping])
input_inputClippings = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Input' {Maybe [InputClipping]
inputClippings :: Maybe [InputClipping]
$sel:inputClippings:Input' :: Input -> Maybe [InputClipping]
inputClippings} -> Maybe [InputClipping]
inputClippings) (\s :: Input
s@Input' {} Maybe [InputClipping]
a -> Input
s {$sel:inputClippings:Input' :: Maybe [InputClipping]
inputClippings = Maybe [InputClipping]
a} :: Input) 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
input_inputScanType :: Lens.Lens' Input (Prelude.Maybe InputScanType)
input_inputScanType :: Lens' Input (Maybe InputScanType)
input_inputScanType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Input' {Maybe InputScanType
inputScanType :: Maybe InputScanType
$sel:inputScanType:Input' :: Input -> Maybe InputScanType
inputScanType} -> Maybe InputScanType
inputScanType) (\s :: Input
s@Input' {} Maybe InputScanType
a -> Input
s {$sel:inputScanType:Input' :: Maybe InputScanType
inputScanType = Maybe InputScanType
a} :: Input)
input_position :: Lens.Lens' Input (Prelude.Maybe Rectangle)
input_position :: Lens' Input (Maybe Rectangle)
input_position = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Input' {Maybe Rectangle
position :: Maybe Rectangle
$sel:position:Input' :: Input -> Maybe Rectangle
position} -> Maybe Rectangle
position) (\s :: Input
s@Input' {} Maybe Rectangle
a -> Input
s {$sel:position:Input' :: Maybe Rectangle
position = Maybe Rectangle
a} :: Input)
input_programNumber :: Lens.Lens' Input (Prelude.Maybe Prelude.Natural)
input_programNumber :: Lens' Input (Maybe Natural)
input_programNumber = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Input' {Maybe Natural
programNumber :: Maybe Natural
$sel:programNumber:Input' :: Input -> Maybe Natural
programNumber} -> Maybe Natural
programNumber) (\s :: Input
s@Input' {} Maybe Natural
a -> Input
s {$sel:programNumber:Input' :: Maybe Natural
programNumber = Maybe Natural
a} :: Input)
input_psiControl :: Lens.Lens' Input (Prelude.Maybe InputPsiControl)
input_psiControl :: Lens' Input (Maybe InputPsiControl)
input_psiControl = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Input' {Maybe InputPsiControl
psiControl :: Maybe InputPsiControl
$sel:psiControl:Input' :: Input -> Maybe InputPsiControl
psiControl} -> Maybe InputPsiControl
psiControl) (\s :: Input
s@Input' {} Maybe InputPsiControl
a -> Input
s {$sel:psiControl:Input' :: Maybe InputPsiControl
psiControl = Maybe InputPsiControl
a} :: Input)
input_supplementalImps :: Lens.Lens' Input (Prelude.Maybe [Prelude.Text])
input_supplementalImps :: Lens' Input (Maybe [Text])
input_supplementalImps = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Input' {Maybe [Text]
supplementalImps :: Maybe [Text]
$sel:supplementalImps:Input' :: Input -> Maybe [Text]
supplementalImps} -> Maybe [Text]
supplementalImps) (\s :: Input
s@Input' {} Maybe [Text]
a -> Input
s {$sel:supplementalImps:Input' :: Maybe [Text]
supplementalImps = Maybe [Text]
a} :: Input) 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
input_timecodeSource :: Lens.Lens' Input (Prelude.Maybe InputTimecodeSource)
input_timecodeSource :: Lens' Input (Maybe InputTimecodeSource)
input_timecodeSource = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Input' {Maybe InputTimecodeSource
timecodeSource :: Maybe InputTimecodeSource
$sel:timecodeSource:Input' :: Input -> Maybe InputTimecodeSource
timecodeSource} -> Maybe InputTimecodeSource
timecodeSource) (\s :: Input
s@Input' {} Maybe InputTimecodeSource
a -> Input
s {$sel:timecodeSource:Input' :: Maybe InputTimecodeSource
timecodeSource = Maybe InputTimecodeSource
a} :: Input)
input_timecodeStart :: Lens.Lens' Input (Prelude.Maybe Prelude.Text)
input_timecodeStart :: Lens' Input (Maybe Text)
input_timecodeStart = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Input' {Maybe Text
timecodeStart :: Maybe Text
$sel:timecodeStart:Input' :: Input -> Maybe Text
timecodeStart} -> Maybe Text
timecodeStart) (\s :: Input
s@Input' {} Maybe Text
a -> Input
s {$sel:timecodeStart:Input' :: Maybe Text
timecodeStart = Maybe Text
a} :: Input)
input_videoGenerator :: Lens.Lens' Input (Prelude.Maybe InputVideoGenerator)
input_videoGenerator :: Lens' Input (Maybe InputVideoGenerator)
input_videoGenerator = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Input' {Maybe InputVideoGenerator
videoGenerator :: Maybe InputVideoGenerator
$sel:videoGenerator:Input' :: Input -> Maybe InputVideoGenerator
videoGenerator} -> Maybe InputVideoGenerator
videoGenerator) (\s :: Input
s@Input' {} Maybe InputVideoGenerator
a -> Input
s {$sel:videoGenerator:Input' :: Maybe InputVideoGenerator
videoGenerator = Maybe InputVideoGenerator
a} :: Input)
input_videoSelector :: Lens.Lens' Input (Prelude.Maybe VideoSelector)
input_videoSelector :: Lens' Input (Maybe VideoSelector)
input_videoSelector = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Input' {Maybe VideoSelector
videoSelector :: Maybe VideoSelector
$sel:videoSelector:Input' :: Input -> Maybe VideoSelector
videoSelector} -> Maybe VideoSelector
videoSelector) (\s :: Input
s@Input' {} Maybe VideoSelector
a -> Input
s {$sel:videoSelector:Input' :: Maybe VideoSelector
videoSelector = Maybe VideoSelector
a} :: Input)
instance Data.FromJSON Input where
parseJSON :: Value -> Parser Input
parseJSON =
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.withObject
String
"Input"
( \Object
x ->
Maybe (HashMap Text AudioSelectorGroup)
-> Maybe (HashMap Text AudioSelector)
-> Maybe (HashMap Text CaptionSelector)
-> Maybe Rectangle
-> Maybe InputDeblockFilter
-> Maybe InputDecryptionSettings
-> Maybe InputDenoiseFilter
-> Maybe Text
-> Maybe Text
-> Maybe InputFilterEnable
-> Maybe Int
-> Maybe ImageInserter
-> Maybe [InputClipping]
-> Maybe InputScanType
-> Maybe Rectangle
-> Maybe Natural
-> Maybe InputPsiControl
-> Maybe [Text]
-> Maybe InputTimecodeSource
-> Maybe Text
-> Maybe InputVideoGenerator
-> Maybe VideoSelector
-> Input
Input'
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
"decryptionSettings")
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
"fileInput")
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
"supplementalImps"
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
"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
"videoGenerator")
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 Input where
hashWithSalt :: Int -> Input -> Int
hashWithSalt Int
_salt Input' {Maybe Int
Maybe Natural
Maybe [Text]
Maybe [InputClipping]
Maybe Text
Maybe (HashMap Text AudioSelectorGroup)
Maybe (HashMap Text AudioSelector)
Maybe (HashMap Text CaptionSelector)
Maybe InputDeblockFilter
Maybe InputDecryptionSettings
Maybe InputDenoiseFilter
Maybe InputFilterEnable
Maybe InputPsiControl
Maybe InputScanType
Maybe InputTimecodeSource
Maybe InputVideoGenerator
Maybe ImageInserter
Maybe Rectangle
Maybe VideoSelector
videoSelector :: Maybe VideoSelector
videoGenerator :: Maybe InputVideoGenerator
timecodeStart :: Maybe Text
timecodeSource :: Maybe InputTimecodeSource
supplementalImps :: Maybe [Text]
psiControl :: Maybe InputPsiControl
programNumber :: Maybe Natural
position :: Maybe Rectangle
inputScanType :: Maybe InputScanType
inputClippings :: Maybe [InputClipping]
imageInserter :: Maybe ImageInserter
filterStrength :: Maybe Int
filterEnable :: Maybe InputFilterEnable
fileInput :: Maybe Text
dolbyVisionMetadataXml :: Maybe Text
denoiseFilter :: Maybe InputDenoiseFilter
decryptionSettings :: Maybe InputDecryptionSettings
deblockFilter :: Maybe InputDeblockFilter
crop :: Maybe Rectangle
captionSelectors :: Maybe (HashMap Text CaptionSelector)
audioSelectors :: Maybe (HashMap Text AudioSelector)
audioSelectorGroups :: Maybe (HashMap Text AudioSelectorGroup)
$sel:videoSelector:Input' :: Input -> Maybe VideoSelector
$sel:videoGenerator:Input' :: Input -> Maybe InputVideoGenerator
$sel:timecodeStart:Input' :: Input -> Maybe Text
$sel:timecodeSource:Input' :: Input -> Maybe InputTimecodeSource
$sel:supplementalImps:Input' :: Input -> Maybe [Text]
$sel:psiControl:Input' :: Input -> Maybe InputPsiControl
$sel:programNumber:Input' :: Input -> Maybe Natural
$sel:position:Input' :: Input -> Maybe Rectangle
$sel:inputScanType:Input' :: Input -> Maybe InputScanType
$sel:inputClippings:Input' :: Input -> Maybe [InputClipping]
$sel:imageInserter:Input' :: Input -> Maybe ImageInserter
$sel:filterStrength:Input' :: Input -> Maybe Int
$sel:filterEnable:Input' :: Input -> Maybe InputFilterEnable
$sel:fileInput:Input' :: Input -> Maybe Text
$sel:dolbyVisionMetadataXml:Input' :: Input -> Maybe Text
$sel:denoiseFilter:Input' :: Input -> Maybe InputDenoiseFilter
$sel:decryptionSettings:Input' :: Input -> Maybe InputDecryptionSettings
$sel:deblockFilter:Input' :: Input -> Maybe InputDeblockFilter
$sel:crop:Input' :: Input -> Maybe Rectangle
$sel:captionSelectors:Input' :: Input -> Maybe (HashMap Text CaptionSelector)
$sel:audioSelectors:Input' :: Input -> Maybe (HashMap Text AudioSelector)
$sel:audioSelectorGroups:Input' :: Input -> 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 InputDecryptionSettings
decryptionSettings
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 Text
fileInput
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 [Text]
supplementalImps
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 InputVideoGenerator
videoGenerator
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe VideoSelector
videoSelector
instance Prelude.NFData Input where
rnf :: Input -> ()
rnf Input' {Maybe Int
Maybe Natural
Maybe [Text]
Maybe [InputClipping]
Maybe Text
Maybe (HashMap Text AudioSelectorGroup)
Maybe (HashMap Text AudioSelector)
Maybe (HashMap Text CaptionSelector)
Maybe InputDeblockFilter
Maybe InputDecryptionSettings
Maybe InputDenoiseFilter
Maybe InputFilterEnable
Maybe InputPsiControl
Maybe InputScanType
Maybe InputTimecodeSource
Maybe InputVideoGenerator
Maybe ImageInserter
Maybe Rectangle
Maybe VideoSelector
videoSelector :: Maybe VideoSelector
videoGenerator :: Maybe InputVideoGenerator
timecodeStart :: Maybe Text
timecodeSource :: Maybe InputTimecodeSource
supplementalImps :: Maybe [Text]
psiControl :: Maybe InputPsiControl
programNumber :: Maybe Natural
position :: Maybe Rectangle
inputScanType :: Maybe InputScanType
inputClippings :: Maybe [InputClipping]
imageInserter :: Maybe ImageInserter
filterStrength :: Maybe Int
filterEnable :: Maybe InputFilterEnable
fileInput :: Maybe Text
dolbyVisionMetadataXml :: Maybe Text
denoiseFilter :: Maybe InputDenoiseFilter
decryptionSettings :: Maybe InputDecryptionSettings
deblockFilter :: Maybe InputDeblockFilter
crop :: Maybe Rectangle
captionSelectors :: Maybe (HashMap Text CaptionSelector)
audioSelectors :: Maybe (HashMap Text AudioSelector)
audioSelectorGroups :: Maybe (HashMap Text AudioSelectorGroup)
$sel:videoSelector:Input' :: Input -> Maybe VideoSelector
$sel:videoGenerator:Input' :: Input -> Maybe InputVideoGenerator
$sel:timecodeStart:Input' :: Input -> Maybe Text
$sel:timecodeSource:Input' :: Input -> Maybe InputTimecodeSource
$sel:supplementalImps:Input' :: Input -> Maybe [Text]
$sel:psiControl:Input' :: Input -> Maybe InputPsiControl
$sel:programNumber:Input' :: Input -> Maybe Natural
$sel:position:Input' :: Input -> Maybe Rectangle
$sel:inputScanType:Input' :: Input -> Maybe InputScanType
$sel:inputClippings:Input' :: Input -> Maybe [InputClipping]
$sel:imageInserter:Input' :: Input -> Maybe ImageInserter
$sel:filterStrength:Input' :: Input -> Maybe Int
$sel:filterEnable:Input' :: Input -> Maybe InputFilterEnable
$sel:fileInput:Input' :: Input -> Maybe Text
$sel:dolbyVisionMetadataXml:Input' :: Input -> Maybe Text
$sel:denoiseFilter:Input' :: Input -> Maybe InputDenoiseFilter
$sel:decryptionSettings:Input' :: Input -> Maybe InputDecryptionSettings
$sel:deblockFilter:Input' :: Input -> Maybe InputDeblockFilter
$sel:crop:Input' :: Input -> Maybe Rectangle
$sel:captionSelectors:Input' :: Input -> Maybe (HashMap Text CaptionSelector)
$sel:audioSelectors:Input' :: Input -> Maybe (HashMap Text AudioSelector)
$sel:audioSelectorGroups:Input' :: Input -> 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 InputDecryptionSettings
decryptionSettings
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 Text
fileInput
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 [Text]
supplementalImps
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 InputVideoGenerator
videoGenerator
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe VideoSelector
videoSelector
instance Data.ToJSON Input where
toJSON :: Input -> Value
toJSON Input' {Maybe Int
Maybe Natural
Maybe [Text]
Maybe [InputClipping]
Maybe Text
Maybe (HashMap Text AudioSelectorGroup)
Maybe (HashMap Text AudioSelector)
Maybe (HashMap Text CaptionSelector)
Maybe InputDeblockFilter
Maybe InputDecryptionSettings
Maybe InputDenoiseFilter
Maybe InputFilterEnable
Maybe InputPsiControl
Maybe InputScanType
Maybe InputTimecodeSource
Maybe InputVideoGenerator
Maybe ImageInserter
Maybe Rectangle
Maybe VideoSelector
videoSelector :: Maybe VideoSelector
videoGenerator :: Maybe InputVideoGenerator
timecodeStart :: Maybe Text
timecodeSource :: Maybe InputTimecodeSource
supplementalImps :: Maybe [Text]
psiControl :: Maybe InputPsiControl
programNumber :: Maybe Natural
position :: Maybe Rectangle
inputScanType :: Maybe InputScanType
inputClippings :: Maybe [InputClipping]
imageInserter :: Maybe ImageInserter
filterStrength :: Maybe Int
filterEnable :: Maybe InputFilterEnable
fileInput :: Maybe Text
dolbyVisionMetadataXml :: Maybe Text
denoiseFilter :: Maybe InputDenoiseFilter
decryptionSettings :: Maybe InputDecryptionSettings
deblockFilter :: Maybe InputDeblockFilter
crop :: Maybe Rectangle
captionSelectors :: Maybe (HashMap Text CaptionSelector)
audioSelectors :: Maybe (HashMap Text AudioSelector)
audioSelectorGroups :: Maybe (HashMap Text AudioSelectorGroup)
$sel:videoSelector:Input' :: Input -> Maybe VideoSelector
$sel:videoGenerator:Input' :: Input -> Maybe InputVideoGenerator
$sel:timecodeStart:Input' :: Input -> Maybe Text
$sel:timecodeSource:Input' :: Input -> Maybe InputTimecodeSource
$sel:supplementalImps:Input' :: Input -> Maybe [Text]
$sel:psiControl:Input' :: Input -> Maybe InputPsiControl
$sel:programNumber:Input' :: Input -> Maybe Natural
$sel:position:Input' :: Input -> Maybe Rectangle
$sel:inputScanType:Input' :: Input -> Maybe InputScanType
$sel:inputClippings:Input' :: Input -> Maybe [InputClipping]
$sel:imageInserter:Input' :: Input -> Maybe ImageInserter
$sel:filterStrength:Input' :: Input -> Maybe Int
$sel:filterEnable:Input' :: Input -> Maybe InputFilterEnable
$sel:fileInput:Input' :: Input -> Maybe Text
$sel:dolbyVisionMetadataXml:Input' :: Input -> Maybe Text
$sel:denoiseFilter:Input' :: Input -> Maybe InputDenoiseFilter
$sel:decryptionSettings:Input' :: Input -> Maybe InputDecryptionSettings
$sel:deblockFilter:Input' :: Input -> Maybe InputDeblockFilter
$sel:crop:Input' :: Input -> Maybe Rectangle
$sel:captionSelectors:Input' :: Input -> Maybe (HashMap Text CaptionSelector)
$sel:audioSelectors:Input' :: Input -> Maybe (HashMap Text AudioSelector)
$sel:audioSelectorGroups:Input' :: Input -> 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
"decryptionSettings" 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 InputDecryptionSettings
decryptionSettings,
(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
"fileInput" 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
fileInput,
(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
"supplementalImps" 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]
supplementalImps,
(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
"videoGenerator" 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 InputVideoGenerator
videoGenerator,
(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
]
)