{-# 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 #-}

-- Derived from AWS service descriptions, licensed under Apache 2.0.

-- |
-- Module      : Amazonka.MediaConvert.Types.Input
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
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

-- | Use inputs to define the source files used in your transcoding job. For
-- more information, see
-- https:\/\/docs.aws.amazon.com\/mediaconvert\/latest\/ug\/specify-input-settings.html.
-- You can use multiple video inputs to do input stitching. For more
-- information, see
-- https:\/\/docs.aws.amazon.com\/mediaconvert\/latest\/ug\/assembling-multiple-inputs-and-input-clips.html
--
-- /See:/ 'newInput' smart constructor.
data Input = Input'
  { -- | Use audio selector groups to combine multiple sidecar audio inputs so
    -- that you can assign them to a single output audio tab
    -- (AudioDescription). Note that, if you\'re working with embedded audio,
    -- it\'s simpler to assign multiple input tracks into a single audio
    -- selector rather than use an audio selector group.
    Input -> Maybe (HashMap Text AudioSelectorGroup)
audioSelectorGroups :: Prelude.Maybe (Prelude.HashMap Prelude.Text AudioSelectorGroup),
    -- | Use Audio selectors (AudioSelectors) to specify a track or set of tracks
    -- from the input that you will use in your outputs. You can use multiple
    -- Audio selectors per input.
    Input -> Maybe (HashMap Text AudioSelector)
audioSelectors :: Prelude.Maybe (Prelude.HashMap Prelude.Text AudioSelector),
    -- | Use captions selectors to specify the captions data from your input that
    -- you use in your outputs. You can use up to 20 captions selectors per
    -- input.
    Input -> Maybe (HashMap Text CaptionSelector)
captionSelectors :: Prelude.Maybe (Prelude.HashMap Prelude.Text CaptionSelector),
    -- | Use Cropping selection (crop) to specify the video area that the service
    -- will include in the output video frame. If you specify a value here, it
    -- will override any value that you specify in the output setting Cropping
    -- selection (crop).
    Input -> Maybe Rectangle
crop :: Prelude.Maybe Rectangle,
    -- | Enable Deblock (InputDeblockFilter) to produce smoother motion in the
    -- output. Default is disabled. Only manually controllable for MPEG2 and
    -- uncompressed video inputs.
    Input -> Maybe InputDeblockFilter
deblockFilter :: Prelude.Maybe InputDeblockFilter,
    -- | Settings for decrypting any input files that you encrypt before you
    -- upload them to Amazon S3. MediaConvert can decrypt files only when you
    -- use AWS Key Management Service (KMS) to encrypt the data key that you
    -- use to encrypt your content.
    Input -> Maybe InputDecryptionSettings
decryptionSettings :: Prelude.Maybe InputDecryptionSettings,
    -- | Enable Denoise (InputDenoiseFilter) to filter noise from the input.
    -- Default is disabled. Only applicable to MPEG2, H.264, H.265, and
    -- uncompressed video inputs.
    Input -> Maybe InputDenoiseFilter
denoiseFilter :: Prelude.Maybe InputDenoiseFilter,
    -- | Use this setting only when your video source has Dolby Vision studio
    -- mastering metadata that is carried in a separate XML file. Specify the
    -- Amazon S3 location for the metadata XML file. MediaConvert uses this
    -- file to provide global and frame-level metadata for Dolby Vision
    -- preprocessing. When you specify a file here and your input also has
    -- interleaved global and frame level metadata, MediaConvert ignores the
    -- interleaved metadata and uses only the the metadata from this external
    -- XML file. Note that your IAM service role must grant MediaConvert read
    -- permissions to this file. For more information, see
    -- https:\/\/docs.aws.amazon.com\/mediaconvert\/latest\/ug\/iam-role.html.
    Input -> Maybe Text
dolbyVisionMetadataXml :: Prelude.Maybe Prelude.Text,
    -- | Specify the source file for your transcoding job. You can use multiple
    -- inputs in a single job. The service concatenates these inputs, in the
    -- order that you specify them in the job, to create the outputs. If your
    -- input format is IMF, specify your input by providing the path to your
    -- CPL. For example, \"s3:\/\/bucket\/vf\/cpl.xml\". If the CPL is in an
    -- incomplete IMP, make sure to use *Supplemental IMPs* (SupplementalImps)
    -- to specify any supplemental IMPs that contain assets referenced by the
    -- CPL.
    Input -> Maybe Text
fileInput :: Prelude.Maybe Prelude.Text,
    -- | Specify how the transcoding service applies the denoise and deblock
    -- filters. You must also enable the filters separately, with Denoise
    -- (InputDenoiseFilter) and Deblock (InputDeblockFilter). * Auto - The
    -- transcoding service determines whether to apply filtering, depending on
    -- input type and quality. * Disable - The input is not filtered. This is
    -- true even if you use the API to enable them in (InputDeblockFilter) and
    -- (InputDeblockFilter). * Force - The input is filtered regardless of
    -- input type.
    Input -> Maybe InputFilterEnable
filterEnable :: Prelude.Maybe InputFilterEnable,
    -- | Use Filter strength (FilterStrength) to adjust the magnitude the input
    -- filter settings (Deblock and Denoise). The range is -5 to 5. Default is
    -- 0.
    Input -> Maybe Int
filterStrength :: Prelude.Maybe Prelude.Int,
    -- | Enable the image inserter feature to include a graphic overlay on your
    -- video. Enable or disable this feature for each input individually. This
    -- setting is disabled by default.
    Input -> Maybe ImageInserter
imageInserter :: Prelude.Maybe ImageInserter,
    -- | (InputClippings) contains sets of start and end times that together
    -- specify a portion of the input to be used in the outputs. If you provide
    -- only a start time, the clip will be the entire input from that point to
    -- the end. If you provide only an end time, it will be the entire input up
    -- to that point. When you specify more than one input clip, the
    -- transcoding service creates the job outputs by stringing the clips
    -- together in the order you specify them.
    Input -> Maybe [InputClipping]
inputClippings :: Prelude.Maybe [InputClipping],
    -- | When you have a progressive segmented frame (PsF) input, use this
    -- setting to flag the input as PsF. MediaConvert doesn\'t automatically
    -- detect PsF. Therefore, flagging your input as PsF results in better
    -- preservation of video quality when you do deinterlacing and frame rate
    -- conversion. If you don\'t specify, the default value is Auto (AUTO).
    -- Auto is the correct setting for all inputs that are not PsF. Don\'t set
    -- this value to PsF when your input is interlaced. Doing so creates
    -- horizontal interlacing artifacts.
    Input -> Maybe InputScanType
inputScanType :: Prelude.Maybe InputScanType,
    -- | Use Selection placement (position) to define the video area in your
    -- output frame. The area outside of the rectangle that you specify here is
    -- black. If you specify a value here, it will override any value that you
    -- specify in the output setting Selection placement (position). If you
    -- specify a value here, this will override any AFD values in your input,
    -- even if you set Respond to AFD (RespondToAfd) to Respond (RESPOND). If
    -- you specify a value here, this will ignore anything that you specify for
    -- the setting Scaling Behavior (scalingBehavior).
    Input -> Maybe Rectangle
position :: Prelude.Maybe Rectangle,
    -- | Use Program (programNumber) to select a specific program from within a
    -- multi-program transport stream. Note that Quad 4K is not currently
    -- supported. Default is the first program within the transport stream. If
    -- the program you specify doesn\'t exist, the transcoding service will use
    -- this default.
    Input -> Maybe Natural
programNumber :: Prelude.Maybe Prelude.Natural,
    -- | Set PSI control (InputPsiControl) for transport stream inputs to specify
    -- which data the demux process to scans. * Ignore PSI - Scan all PIDs for
    -- audio and video. * Use PSI - Scan only PSI data.
    Input -> Maybe InputPsiControl
psiControl :: Prelude.Maybe InputPsiControl,
    -- | Provide a list of any necessary supplemental IMPs. You need supplemental
    -- IMPs if the CPL that you\'re using for your input is in an incomplete
    -- IMP. Specify either the supplemental IMP directories with a trailing
    -- slash or the ASSETMAP.xml files. For example [\"s3:\/\/bucket\/ov\/\",
    -- \"s3:\/\/bucket\/vf2\/ASSETMAP.xml\"]. You don\'t need to specify the
    -- IMP that contains your input CPL, because the service automatically
    -- detects it.
    Input -> Maybe [Text]
supplementalImps :: Prelude.Maybe [Prelude.Text],
    -- | Use this Timecode source setting, located under the input settings
    -- (InputTimecodeSource), to specify how the service counts input video
    -- frames. This input frame count affects only the behavior of features
    -- that apply to a single input at a time, such as input clipping and
    -- synchronizing some captions formats. Choose Embedded (EMBEDDED) to use
    -- the timecodes in your input video. Choose Start at zero (ZEROBASED) to
    -- start the first frame at zero. Choose Specified start (SPECIFIEDSTART)
    -- to start the first frame at the timecode that you specify in the setting
    -- Start timecode (timecodeStart). If you don\'t specify a value for
    -- Timecode source, the service will use Embedded by default. For more
    -- information about timecodes, see
    -- https:\/\/docs.aws.amazon.com\/console\/mediaconvert\/timecode.
    Input -> Maybe InputTimecodeSource
timecodeSource :: Prelude.Maybe InputTimecodeSource,
    -- | Specify the timecode that you want the service to use for this input\'s
    -- initial frame. To use this setting, you must set the Timecode source
    -- setting, located under the input settings (InputTimecodeSource), to
    -- Specified start (SPECIFIEDSTART). For more information about timecodes,
    -- see https:\/\/docs.aws.amazon.com\/console\/mediaconvert\/timecode.
    Input -> Maybe Text
timecodeStart :: Prelude.Maybe Prelude.Text,
    -- | When you include Video generator, MediaConvert creates a video input
    -- with black frames. Use this setting if you do not have a video input or
    -- if you want to add black video frames before, or after, other inputs.
    -- You can specify Video generator, or you can specify an Input file, but
    -- you cannot specify both. For more information, see
    -- https:\/\/docs.aws.amazon.com\/mediaconvert\/latest\/ug\/video-generator.html
    Input -> Maybe InputVideoGenerator
videoGenerator :: Prelude.Maybe InputVideoGenerator,
    -- | Input video selectors contain the video settings for the input. Each of
    -- your inputs can have up to one video selector.
    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)

-- |
-- Create a value of 'Input' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
--
-- The following record fields are available, with the corresponding lenses provided
-- for backwards compatibility:
--
-- 'audioSelectorGroups', 'input_audioSelectorGroups' - Use audio selector groups to combine multiple sidecar audio inputs so
-- that you can assign them to a single output audio tab
-- (AudioDescription). Note that, if you\'re working with embedded audio,
-- it\'s simpler to assign multiple input tracks into a single audio
-- selector rather than use an audio selector group.
--
-- 'audioSelectors', 'input_audioSelectors' - Use Audio selectors (AudioSelectors) to specify a track or set of tracks
-- from the input that you will use in your outputs. You can use multiple
-- Audio selectors per input.
--
-- 'captionSelectors', 'input_captionSelectors' - Use captions selectors to specify the captions data from your input that
-- you use in your outputs. You can use up to 20 captions selectors per
-- input.
--
-- 'crop', 'input_crop' - Use Cropping selection (crop) to specify the video area that the service
-- will include in the output video frame. If you specify a value here, it
-- will override any value that you specify in the output setting Cropping
-- selection (crop).
--
-- 'deblockFilter', 'input_deblockFilter' - Enable Deblock (InputDeblockFilter) to produce smoother motion in the
-- output. Default is disabled. Only manually controllable for MPEG2 and
-- uncompressed video inputs.
--
-- 'decryptionSettings', 'input_decryptionSettings' - Settings for decrypting any input files that you encrypt before you
-- upload them to Amazon S3. MediaConvert can decrypt files only when you
-- use AWS Key Management Service (KMS) to encrypt the data key that you
-- use to encrypt your content.
--
-- 'denoiseFilter', 'input_denoiseFilter' - Enable Denoise (InputDenoiseFilter) to filter noise from the input.
-- Default is disabled. Only applicable to MPEG2, H.264, H.265, and
-- uncompressed video inputs.
--
-- 'dolbyVisionMetadataXml', 'input_dolbyVisionMetadataXml' - Use this setting only when your video source has Dolby Vision studio
-- mastering metadata that is carried in a separate XML file. Specify the
-- Amazon S3 location for the metadata XML file. MediaConvert uses this
-- file to provide global and frame-level metadata for Dolby Vision
-- preprocessing. When you specify a file here and your input also has
-- interleaved global and frame level metadata, MediaConvert ignores the
-- interleaved metadata and uses only the the metadata from this external
-- XML file. Note that your IAM service role must grant MediaConvert read
-- permissions to this file. For more information, see
-- https:\/\/docs.aws.amazon.com\/mediaconvert\/latest\/ug\/iam-role.html.
--
-- 'fileInput', 'input_fileInput' - Specify the source file for your transcoding job. You can use multiple
-- inputs in a single job. The service concatenates these inputs, in the
-- order that you specify them in the job, to create the outputs. If your
-- input format is IMF, specify your input by providing the path to your
-- CPL. For example, \"s3:\/\/bucket\/vf\/cpl.xml\". If the CPL is in an
-- incomplete IMP, make sure to use *Supplemental IMPs* (SupplementalImps)
-- to specify any supplemental IMPs that contain assets referenced by the
-- CPL.
--
-- 'filterEnable', 'input_filterEnable' - Specify how the transcoding service applies the denoise and deblock
-- filters. You must also enable the filters separately, with Denoise
-- (InputDenoiseFilter) and Deblock (InputDeblockFilter). * Auto - The
-- transcoding service determines whether to apply filtering, depending on
-- input type and quality. * Disable - The input is not filtered. This is
-- true even if you use the API to enable them in (InputDeblockFilter) and
-- (InputDeblockFilter). * Force - The input is filtered regardless of
-- input type.
--
-- 'filterStrength', 'input_filterStrength' - Use Filter strength (FilterStrength) to adjust the magnitude the input
-- filter settings (Deblock and Denoise). The range is -5 to 5. Default is
-- 0.
--
-- 'imageInserter', 'input_imageInserter' - Enable the image inserter feature to include a graphic overlay on your
-- video. Enable or disable this feature for each input individually. This
-- setting is disabled by default.
--
-- 'inputClippings', 'input_inputClippings' - (InputClippings) contains sets of start and end times that together
-- specify a portion of the input to be used in the outputs. If you provide
-- only a start time, the clip will be the entire input from that point to
-- the end. If you provide only an end time, it will be the entire input up
-- to that point. When you specify more than one input clip, the
-- transcoding service creates the job outputs by stringing the clips
-- together in the order you specify them.
--
-- 'inputScanType', 'input_inputScanType' - When you have a progressive segmented frame (PsF) input, use this
-- setting to flag the input as PsF. MediaConvert doesn\'t automatically
-- detect PsF. Therefore, flagging your input as PsF results in better
-- preservation of video quality when you do deinterlacing and frame rate
-- conversion. If you don\'t specify, the default value is Auto (AUTO).
-- Auto is the correct setting for all inputs that are not PsF. Don\'t set
-- this value to PsF when your input is interlaced. Doing so creates
-- horizontal interlacing artifacts.
--
-- 'position', 'input_position' - Use Selection placement (position) to define the video area in your
-- output frame. The area outside of the rectangle that you specify here is
-- black. If you specify a value here, it will override any value that you
-- specify in the output setting Selection placement (position). If you
-- specify a value here, this will override any AFD values in your input,
-- even if you set Respond to AFD (RespondToAfd) to Respond (RESPOND). If
-- you specify a value here, this will ignore anything that you specify for
-- the setting Scaling Behavior (scalingBehavior).
--
-- 'programNumber', 'input_programNumber' - Use Program (programNumber) to select a specific program from within a
-- multi-program transport stream. Note that Quad 4K is not currently
-- supported. Default is the first program within the transport stream. If
-- the program you specify doesn\'t exist, the transcoding service will use
-- this default.
--
-- 'psiControl', 'input_psiControl' - Set PSI control (InputPsiControl) for transport stream inputs to specify
-- which data the demux process to scans. * Ignore PSI - Scan all PIDs for
-- audio and video. * Use PSI - Scan only PSI data.
--
-- 'supplementalImps', 'input_supplementalImps' - Provide a list of any necessary supplemental IMPs. You need supplemental
-- IMPs if the CPL that you\'re using for your input is in an incomplete
-- IMP. Specify either the supplemental IMP directories with a trailing
-- slash or the ASSETMAP.xml files. For example [\"s3:\/\/bucket\/ov\/\",
-- \"s3:\/\/bucket\/vf2\/ASSETMAP.xml\"]. You don\'t need to specify the
-- IMP that contains your input CPL, because the service automatically
-- detects it.
--
-- 'timecodeSource', 'input_timecodeSource' - Use this Timecode source setting, located under the input settings
-- (InputTimecodeSource), to specify how the service counts input video
-- frames. This input frame count affects only the behavior of features
-- that apply to a single input at a time, such as input clipping and
-- synchronizing some captions formats. Choose Embedded (EMBEDDED) to use
-- the timecodes in your input video. Choose Start at zero (ZEROBASED) to
-- start the first frame at zero. Choose Specified start (SPECIFIEDSTART)
-- to start the first frame at the timecode that you specify in the setting
-- Start timecode (timecodeStart). If you don\'t specify a value for
-- Timecode source, the service will use Embedded by default. For more
-- information about timecodes, see
-- https:\/\/docs.aws.amazon.com\/console\/mediaconvert\/timecode.
--
-- 'timecodeStart', 'input_timecodeStart' - Specify the timecode that you want the service to use for this input\'s
-- initial frame. To use this setting, you must set the Timecode source
-- setting, located under the input settings (InputTimecodeSource), to
-- Specified start (SPECIFIEDSTART). For more information about timecodes,
-- see https:\/\/docs.aws.amazon.com\/console\/mediaconvert\/timecode.
--
-- 'videoGenerator', 'input_videoGenerator' - When you include Video generator, MediaConvert creates a video input
-- with black frames. Use this setting if you do not have a video input or
-- if you want to add black video frames before, or after, other inputs.
-- You can specify Video generator, or you can specify an Input file, but
-- you cannot specify both. For more information, see
-- https:\/\/docs.aws.amazon.com\/mediaconvert\/latest\/ug\/video-generator.html
--
-- 'videoSelector', 'input_videoSelector' - Input video selectors contain the video settings for the input. Each of
-- your inputs can have up to one video selector.
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
    }

-- | Use audio selector groups to combine multiple sidecar audio inputs so
-- that you can assign them to a single output audio tab
-- (AudioDescription). Note that, if you\'re working with embedded audio,
-- it\'s simpler to assign multiple input tracks into a single audio
-- selector rather than use an audio selector group.
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

-- | Use Audio selectors (AudioSelectors) to specify a track or set of tracks
-- from the input that you will use in your outputs. You can use multiple
-- Audio selectors per input.
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

-- | Use captions selectors to specify the captions data from your input that
-- you use in your outputs. You can use up to 20 captions selectors per
-- input.
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

-- | Use Cropping selection (crop) to specify the video area that the service
-- will include in the output video frame. If you specify a value here, it
-- will override any value that you specify in the output setting Cropping
-- selection (crop).
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)

-- | Enable Deblock (InputDeblockFilter) to produce smoother motion in the
-- output. Default is disabled. Only manually controllable for MPEG2 and
-- uncompressed video inputs.
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)

-- | Settings for decrypting any input files that you encrypt before you
-- upload them to Amazon S3. MediaConvert can decrypt files only when you
-- use AWS Key Management Service (KMS) to encrypt the data key that you
-- use to encrypt your content.
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)

-- | Enable Denoise (InputDenoiseFilter) to filter noise from the input.
-- Default is disabled. Only applicable to MPEG2, H.264, H.265, and
-- uncompressed video inputs.
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)

-- | Use this setting only when your video source has Dolby Vision studio
-- mastering metadata that is carried in a separate XML file. Specify the
-- Amazon S3 location for the metadata XML file. MediaConvert uses this
-- file to provide global and frame-level metadata for Dolby Vision
-- preprocessing. When you specify a file here and your input also has
-- interleaved global and frame level metadata, MediaConvert ignores the
-- interleaved metadata and uses only the the metadata from this external
-- XML file. Note that your IAM service role must grant MediaConvert read
-- permissions to this file. For more information, see
-- https:\/\/docs.aws.amazon.com\/mediaconvert\/latest\/ug\/iam-role.html.
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)

-- | Specify the source file for your transcoding job. You can use multiple
-- inputs in a single job. The service concatenates these inputs, in the
-- order that you specify them in the job, to create the outputs. If your
-- input format is IMF, specify your input by providing the path to your
-- CPL. For example, \"s3:\/\/bucket\/vf\/cpl.xml\". If the CPL is in an
-- incomplete IMP, make sure to use *Supplemental IMPs* (SupplementalImps)
-- to specify any supplemental IMPs that contain assets referenced by the
-- CPL.
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)

-- | Specify how the transcoding service applies the denoise and deblock
-- filters. You must also enable the filters separately, with Denoise
-- (InputDenoiseFilter) and Deblock (InputDeblockFilter). * Auto - The
-- transcoding service determines whether to apply filtering, depending on
-- input type and quality. * Disable - The input is not filtered. This is
-- true even if you use the API to enable them in (InputDeblockFilter) and
-- (InputDeblockFilter). * Force - The input is filtered regardless of
-- input type.
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)

-- | Use Filter strength (FilterStrength) to adjust the magnitude the input
-- filter settings (Deblock and Denoise). The range is -5 to 5. Default is
-- 0.
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)

-- | Enable the image inserter feature to include a graphic overlay on your
-- video. Enable or disable this feature for each input individually. This
-- setting is disabled by default.
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)

-- | (InputClippings) contains sets of start and end times that together
-- specify a portion of the input to be used in the outputs. If you provide
-- only a start time, the clip will be the entire input from that point to
-- the end. If you provide only an end time, it will be the entire input up
-- to that point. When you specify more than one input clip, the
-- transcoding service creates the job outputs by stringing the clips
-- together in the order you specify them.
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

-- | When you have a progressive segmented frame (PsF) input, use this
-- setting to flag the input as PsF. MediaConvert doesn\'t automatically
-- detect PsF. Therefore, flagging your input as PsF results in better
-- preservation of video quality when you do deinterlacing and frame rate
-- conversion. If you don\'t specify, the default value is Auto (AUTO).
-- Auto is the correct setting for all inputs that are not PsF. Don\'t set
-- this value to PsF when your input is interlaced. Doing so creates
-- horizontal interlacing artifacts.
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)

-- | Use Selection placement (position) to define the video area in your
-- output frame. The area outside of the rectangle that you specify here is
-- black. If you specify a value here, it will override any value that you
-- specify in the output setting Selection placement (position). If you
-- specify a value here, this will override any AFD values in your input,
-- even if you set Respond to AFD (RespondToAfd) to Respond (RESPOND). If
-- you specify a value here, this will ignore anything that you specify for
-- the setting Scaling Behavior (scalingBehavior).
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)

-- | Use Program (programNumber) to select a specific program from within a
-- multi-program transport stream. Note that Quad 4K is not currently
-- supported. Default is the first program within the transport stream. If
-- the program you specify doesn\'t exist, the transcoding service will use
-- this default.
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)

-- | Set PSI control (InputPsiControl) for transport stream inputs to specify
-- which data the demux process to scans. * Ignore PSI - Scan all PIDs for
-- audio and video. * Use PSI - Scan only PSI data.
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)

-- | Provide a list of any necessary supplemental IMPs. You need supplemental
-- IMPs if the CPL that you\'re using for your input is in an incomplete
-- IMP. Specify either the supplemental IMP directories with a trailing
-- slash or the ASSETMAP.xml files. For example [\"s3:\/\/bucket\/ov\/\",
-- \"s3:\/\/bucket\/vf2\/ASSETMAP.xml\"]. You don\'t need to specify the
-- IMP that contains your input CPL, because the service automatically
-- detects it.
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

-- | Use this Timecode source setting, located under the input settings
-- (InputTimecodeSource), to specify how the service counts input video
-- frames. This input frame count affects only the behavior of features
-- that apply to a single input at a time, such as input clipping and
-- synchronizing some captions formats. Choose Embedded (EMBEDDED) to use
-- the timecodes in your input video. Choose Start at zero (ZEROBASED) to
-- start the first frame at zero. Choose Specified start (SPECIFIEDSTART)
-- to start the first frame at the timecode that you specify in the setting
-- Start timecode (timecodeStart). If you don\'t specify a value for
-- Timecode source, the service will use Embedded by default. For more
-- information about timecodes, see
-- https:\/\/docs.aws.amazon.com\/console\/mediaconvert\/timecode.
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)

-- | Specify the timecode that you want the service to use for this input\'s
-- initial frame. To use this setting, you must set the Timecode source
-- setting, located under the input settings (InputTimecodeSource), to
-- Specified start (SPECIFIEDSTART). For more information about timecodes,
-- see https:\/\/docs.aws.amazon.com\/console\/mediaconvert\/timecode.
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)

-- | When you include Video generator, MediaConvert creates a video input
-- with black frames. Use this setting if you do not have a video input or
-- if you want to add black video frames before, or after, other inputs.
-- You can specify Video generator, or you can specify an Input file, but
-- you cannot specify both. For more information, see
-- https:\/\/docs.aws.amazon.com\/mediaconvert\/latest\/ug\/video-generator.html
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 video selectors contain the video settings for the input. Each of
-- your inputs can have up to one video selector.
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
          ]
      )