{-# 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.InputTemplate
-- Copyright   : (c) 2013-2021 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
module Amazonka.MediaConvert.Types.InputTemplate where

import qualified Amazonka.Core as Core
import qualified Amazonka.Lens as Lens
import Amazonka.MediaConvert.Types.AudioSelector
import Amazonka.MediaConvert.Types.AudioSelectorGroup
import Amazonka.MediaConvert.Types.CaptionSelector
import Amazonka.MediaConvert.Types.ImageInserter
import Amazonka.MediaConvert.Types.InputClipping
import Amazonka.MediaConvert.Types.InputDeblockFilter
import Amazonka.MediaConvert.Types.InputDenoiseFilter
import Amazonka.MediaConvert.Types.InputFilterEnable
import Amazonka.MediaConvert.Types.InputPsiControl
import Amazonka.MediaConvert.Types.InputScanType
import Amazonka.MediaConvert.Types.InputTimecodeSource
import Amazonka.MediaConvert.Types.Rectangle
import Amazonka.MediaConvert.Types.VideoSelector
import qualified Amazonka.Prelude as Prelude

-- | Specified video input in a template.
--
-- /See:/ 'newInputTemplate' smart constructor.
data InputTemplate = InputTemplate'
  { -- | Input video selectors contain the video settings for the input. Each of
    -- your inputs can have up to one video selector.
    InputTemplate -> Maybe VideoSelector
videoSelector :: Prelude.Maybe VideoSelector,
    -- | 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.
    InputTemplate -> Maybe Natural
programNumber :: Prelude.Maybe Prelude.Natural,
    -- | 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.
    InputTemplate -> Maybe (HashMap Text AudioSelectorGroup)
audioSelectorGroups :: Prelude.Maybe (Prelude.HashMap Prelude.Text AudioSelectorGroup),
    -- | 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.
    InputTemplate -> Maybe InputTimecodeSource
timecodeSource :: Prelude.Maybe InputTimecodeSource,
    -- | 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.
    InputTemplate -> Maybe (HashMap Text AudioSelector)
audioSelectors :: Prelude.Maybe (Prelude.HashMap Prelude.Text AudioSelector),
    -- | Enable Deblock (InputDeblockFilter) to produce smoother motion in the
    -- output. Default is disabled. Only manually controllable for MPEG2 and
    -- uncompressed video inputs.
    InputTemplate -> Maybe InputDeblockFilter
deblockFilter :: Prelude.Maybe InputDeblockFilter,
    -- | (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.
    InputTemplate -> Maybe [InputClipping]
inputClippings :: Prelude.Maybe [InputClipping],
    -- | 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).
    InputTemplate -> Maybe Rectangle
crop :: Prelude.Maybe Rectangle,
    -- | Enable Denoise (InputDenoiseFilter) to filter noise from the input.
    -- Default is disabled. Only applicable to MPEG2, H.264, H.265, and
    -- uncompressed video inputs.
    InputTemplate -> Maybe InputDenoiseFilter
denoiseFilter :: Prelude.Maybe InputDenoiseFilter,
    -- | 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.
    InputTemplate -> Maybe ImageInserter
imageInserter :: Prelude.Maybe ImageInserter,
    -- | Use Filter strength (FilterStrength) to adjust the magnitude the input
    -- filter settings (Deblock and Denoise). The range is -5 to 5. Default is
    -- 0.
    InputTemplate -> Maybe Int
filterStrength :: Prelude.Maybe Prelude.Int,
    -- | 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.
    InputTemplate -> Maybe InputPsiControl
psiControl :: Prelude.Maybe InputPsiControl,
    -- | 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.
    InputTemplate -> Maybe (HashMap Text CaptionSelector)
captionSelectors :: Prelude.Maybe (Prelude.HashMap Prelude.Text CaptionSelector),
    -- | 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.
    InputTemplate -> Maybe Text
timecodeStart :: Prelude.Maybe Prelude.Text,
    -- | 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.
    InputTemplate -> 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).
    InputTemplate -> Maybe Rectangle
position :: Prelude.Maybe Rectangle,
    -- | 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.
    InputTemplate -> Maybe InputFilterEnable
filterEnable :: Prelude.Maybe InputFilterEnable
  }
  deriving (InputTemplate -> InputTemplate -> Bool
(InputTemplate -> InputTemplate -> Bool)
-> (InputTemplate -> InputTemplate -> Bool) -> Eq InputTemplate
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: InputTemplate -> InputTemplate -> Bool
$c/= :: InputTemplate -> InputTemplate -> Bool
== :: InputTemplate -> InputTemplate -> Bool
$c== :: InputTemplate -> InputTemplate -> Bool
Prelude.Eq, ReadPrec [InputTemplate]
ReadPrec InputTemplate
Int -> ReadS InputTemplate
ReadS [InputTemplate]
(Int -> ReadS InputTemplate)
-> ReadS [InputTemplate]
-> ReadPrec InputTemplate
-> ReadPrec [InputTemplate]
-> Read InputTemplate
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [InputTemplate]
$creadListPrec :: ReadPrec [InputTemplate]
readPrec :: ReadPrec InputTemplate
$creadPrec :: ReadPrec InputTemplate
readList :: ReadS [InputTemplate]
$creadList :: ReadS [InputTemplate]
readsPrec :: Int -> ReadS InputTemplate
$creadsPrec :: Int -> ReadS InputTemplate
Prelude.Read, Int -> InputTemplate -> ShowS
[InputTemplate] -> ShowS
InputTemplate -> String
(Int -> InputTemplate -> ShowS)
-> (InputTemplate -> String)
-> ([InputTemplate] -> ShowS)
-> Show InputTemplate
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [InputTemplate] -> ShowS
$cshowList :: [InputTemplate] -> ShowS
show :: InputTemplate -> String
$cshow :: InputTemplate -> String
showsPrec :: Int -> InputTemplate -> ShowS
$cshowsPrec :: Int -> InputTemplate -> ShowS
Prelude.Show, (forall x. InputTemplate -> Rep InputTemplate x)
-> (forall x. Rep InputTemplate x -> InputTemplate)
-> Generic InputTemplate
forall x. Rep InputTemplate x -> InputTemplate
forall x. InputTemplate -> Rep InputTemplate x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep InputTemplate x -> InputTemplate
$cfrom :: forall x. InputTemplate -> Rep InputTemplate x
Prelude.Generic)

-- |
-- Create a value of 'InputTemplate' 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:
--
-- 'videoSelector', 'inputTemplate_videoSelector' - Input video selectors contain the video settings for the input. Each of
-- your inputs can have up to one video selector.
--
-- 'programNumber', 'inputTemplate_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.
--
-- 'audioSelectorGroups', 'inputTemplate_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.
--
-- 'timecodeSource', 'inputTemplate_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.
--
-- 'audioSelectors', 'inputTemplate_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.
--
-- 'deblockFilter', 'inputTemplate_deblockFilter' - Enable Deblock (InputDeblockFilter) to produce smoother motion in the
-- output. Default is disabled. Only manually controllable for MPEG2 and
-- uncompressed video inputs.
--
-- 'inputClippings', 'inputTemplate_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.
--
-- 'crop', 'inputTemplate_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).
--
-- 'denoiseFilter', 'inputTemplate_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.
--
-- 'imageInserter', 'inputTemplate_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.
--
-- 'filterStrength', 'inputTemplate_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.
--
-- 'psiControl', 'inputTemplate_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.
--
-- 'captionSelectors', 'inputTemplate_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.
--
-- 'timecodeStart', 'inputTemplate_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.
--
-- 'inputScanType', 'inputTemplate_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', 'inputTemplate_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).
--
-- 'filterEnable', 'inputTemplate_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.
newInputTemplate ::
  InputTemplate
newInputTemplate :: InputTemplate
newInputTemplate =
  InputTemplate' :: Maybe VideoSelector
-> Maybe Natural
-> Maybe (HashMap Text AudioSelectorGroup)
-> Maybe InputTimecodeSource
-> Maybe (HashMap Text AudioSelector)
-> Maybe InputDeblockFilter
-> Maybe [InputClipping]
-> Maybe Rectangle
-> Maybe InputDenoiseFilter
-> Maybe ImageInserter
-> Maybe Int
-> Maybe InputPsiControl
-> Maybe (HashMap Text CaptionSelector)
-> Maybe Text
-> Maybe InputScanType
-> Maybe Rectangle
-> Maybe InputFilterEnable
-> InputTemplate
InputTemplate'
    { $sel:videoSelector:InputTemplate' :: Maybe VideoSelector
videoSelector = Maybe VideoSelector
forall a. Maybe a
Prelude.Nothing,
      $sel:programNumber:InputTemplate' :: Maybe Natural
programNumber = Maybe Natural
forall a. Maybe a
Prelude.Nothing,
      $sel:audioSelectorGroups:InputTemplate' :: Maybe (HashMap Text AudioSelectorGroup)
audioSelectorGroups = Maybe (HashMap Text AudioSelectorGroup)
forall a. Maybe a
Prelude.Nothing,
      $sel:timecodeSource:InputTemplate' :: Maybe InputTimecodeSource
timecodeSource = Maybe InputTimecodeSource
forall a. Maybe a
Prelude.Nothing,
      $sel:audioSelectors:InputTemplate' :: Maybe (HashMap Text AudioSelector)
audioSelectors = Maybe (HashMap Text AudioSelector)
forall a. Maybe a
Prelude.Nothing,
      $sel:deblockFilter:InputTemplate' :: Maybe InputDeblockFilter
deblockFilter = Maybe InputDeblockFilter
forall a. Maybe a
Prelude.Nothing,
      $sel:inputClippings:InputTemplate' :: Maybe [InputClipping]
inputClippings = Maybe [InputClipping]
forall a. Maybe a
Prelude.Nothing,
      $sel:crop:InputTemplate' :: Maybe Rectangle
crop = Maybe Rectangle
forall a. Maybe a
Prelude.Nothing,
      $sel:denoiseFilter:InputTemplate' :: Maybe InputDenoiseFilter
denoiseFilter = Maybe InputDenoiseFilter
forall a. Maybe a
Prelude.Nothing,
      $sel:imageInserter:InputTemplate' :: Maybe ImageInserter
imageInserter = Maybe ImageInserter
forall a. Maybe a
Prelude.Nothing,
      $sel:filterStrength:InputTemplate' :: Maybe Int
filterStrength = Maybe Int
forall a. Maybe a
Prelude.Nothing,
      $sel:psiControl:InputTemplate' :: Maybe InputPsiControl
psiControl = Maybe InputPsiControl
forall a. Maybe a
Prelude.Nothing,
      $sel:captionSelectors:InputTemplate' :: Maybe (HashMap Text CaptionSelector)
captionSelectors = Maybe (HashMap Text CaptionSelector)
forall a. Maybe a
Prelude.Nothing,
      $sel:timecodeStart:InputTemplate' :: Maybe Text
timecodeStart = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:inputScanType:InputTemplate' :: Maybe InputScanType
inputScanType = Maybe InputScanType
forall a. Maybe a
Prelude.Nothing,
      $sel:position:InputTemplate' :: Maybe Rectangle
position = Maybe Rectangle
forall a. Maybe a
Prelude.Nothing,
      $sel:filterEnable:InputTemplate' :: Maybe InputFilterEnable
filterEnable = Maybe InputFilterEnable
forall a. Maybe a
Prelude.Nothing
    }

-- | Input video selectors contain the video settings for the input. Each of
-- your inputs can have up to one video selector.
inputTemplate_videoSelector :: Lens.Lens' InputTemplate (Prelude.Maybe VideoSelector)
inputTemplate_videoSelector :: (Maybe VideoSelector -> f (Maybe VideoSelector))
-> InputTemplate -> f InputTemplate
inputTemplate_videoSelector = (InputTemplate -> Maybe VideoSelector)
-> (InputTemplate -> Maybe VideoSelector -> InputTemplate)
-> Lens
     InputTemplate
     InputTemplate
     (Maybe VideoSelector)
     (Maybe VideoSelector)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\InputTemplate' {Maybe VideoSelector
videoSelector :: Maybe VideoSelector
$sel:videoSelector:InputTemplate' :: InputTemplate -> Maybe VideoSelector
videoSelector} -> Maybe VideoSelector
videoSelector) (\s :: InputTemplate
s@InputTemplate' {} Maybe VideoSelector
a -> InputTemplate
s {$sel:videoSelector:InputTemplate' :: Maybe VideoSelector
videoSelector = Maybe VideoSelector
a} :: InputTemplate)

-- | 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.
inputTemplate_programNumber :: Lens.Lens' InputTemplate (Prelude.Maybe Prelude.Natural)
inputTemplate_programNumber :: (Maybe Natural -> f (Maybe Natural))
-> InputTemplate -> f InputTemplate
inputTemplate_programNumber = (InputTemplate -> Maybe Natural)
-> (InputTemplate -> Maybe Natural -> InputTemplate)
-> Lens InputTemplate InputTemplate (Maybe Natural) (Maybe Natural)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\InputTemplate' {Maybe Natural
programNumber :: Maybe Natural
$sel:programNumber:InputTemplate' :: InputTemplate -> Maybe Natural
programNumber} -> Maybe Natural
programNumber) (\s :: InputTemplate
s@InputTemplate' {} Maybe Natural
a -> InputTemplate
s {$sel:programNumber:InputTemplate' :: Maybe Natural
programNumber = Maybe Natural
a} :: InputTemplate)

-- | 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.
inputTemplate_audioSelectorGroups :: Lens.Lens' InputTemplate (Prelude.Maybe (Prelude.HashMap Prelude.Text AudioSelectorGroup))
inputTemplate_audioSelectorGroups :: (Maybe (HashMap Text AudioSelectorGroup)
 -> f (Maybe (HashMap Text AudioSelectorGroup)))
-> InputTemplate -> f InputTemplate
inputTemplate_audioSelectorGroups = (InputTemplate -> Maybe (HashMap Text AudioSelectorGroup))
-> (InputTemplate
    -> Maybe (HashMap Text AudioSelectorGroup) -> InputTemplate)
-> Lens
     InputTemplate
     InputTemplate
     (Maybe (HashMap Text AudioSelectorGroup))
     (Maybe (HashMap Text AudioSelectorGroup))
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\InputTemplate' {Maybe (HashMap Text AudioSelectorGroup)
audioSelectorGroups :: Maybe (HashMap Text AudioSelectorGroup)
$sel:audioSelectorGroups:InputTemplate' :: InputTemplate -> Maybe (HashMap Text AudioSelectorGroup)
audioSelectorGroups} -> Maybe (HashMap Text AudioSelectorGroup)
audioSelectorGroups) (\s :: InputTemplate
s@InputTemplate' {} Maybe (HashMap Text AudioSelectorGroup)
a -> InputTemplate
s {$sel:audioSelectorGroups:InputTemplate' :: Maybe (HashMap Text AudioSelectorGroup)
audioSelectorGroups = Maybe (HashMap Text AudioSelectorGroup)
a} :: InputTemplate) ((Maybe (HashMap Text AudioSelectorGroup)
  -> f (Maybe (HashMap Text AudioSelectorGroup)))
 -> InputTemplate -> f InputTemplate)
-> ((Maybe (HashMap Text AudioSelectorGroup)
     -> f (Maybe (HashMap Text AudioSelectorGroup)))
    -> Maybe (HashMap Text AudioSelectorGroup)
    -> f (Maybe (HashMap Text AudioSelectorGroup)))
-> (Maybe (HashMap Text AudioSelectorGroup)
    -> f (Maybe (HashMap Text AudioSelectorGroup)))
-> InputTemplate
-> f InputTemplate
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso
  (HashMap Text AudioSelectorGroup)
  (HashMap Text AudioSelectorGroup)
  (HashMap Text AudioSelectorGroup)
  (HashMap Text AudioSelectorGroup)
-> Iso
     (Maybe (HashMap Text AudioSelectorGroup))
     (Maybe (HashMap Text AudioSelectorGroup))
     (Maybe (HashMap Text AudioSelectorGroup))
     (Maybe (HashMap Text AudioSelectorGroup))
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 AnIso
  (HashMap Text AudioSelectorGroup)
  (HashMap Text AudioSelectorGroup)
  (HashMap Text AudioSelectorGroup)
  (HashMap Text AudioSelectorGroup)
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.
inputTemplate_timecodeSource :: Lens.Lens' InputTemplate (Prelude.Maybe InputTimecodeSource)
inputTemplate_timecodeSource :: (Maybe InputTimecodeSource -> f (Maybe InputTimecodeSource))
-> InputTemplate -> f InputTemplate
inputTemplate_timecodeSource = (InputTemplate -> Maybe InputTimecodeSource)
-> (InputTemplate -> Maybe InputTimecodeSource -> InputTemplate)
-> Lens
     InputTemplate
     InputTemplate
     (Maybe InputTimecodeSource)
     (Maybe InputTimecodeSource)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\InputTemplate' {Maybe InputTimecodeSource
timecodeSource :: Maybe InputTimecodeSource
$sel:timecodeSource:InputTemplate' :: InputTemplate -> Maybe InputTimecodeSource
timecodeSource} -> Maybe InputTimecodeSource
timecodeSource) (\s :: InputTemplate
s@InputTemplate' {} Maybe InputTimecodeSource
a -> InputTemplate
s {$sel:timecodeSource:InputTemplate' :: Maybe InputTimecodeSource
timecodeSource = Maybe InputTimecodeSource
a} :: InputTemplate)

-- | 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.
inputTemplate_audioSelectors :: Lens.Lens' InputTemplate (Prelude.Maybe (Prelude.HashMap Prelude.Text AudioSelector))
inputTemplate_audioSelectors :: (Maybe (HashMap Text AudioSelector)
 -> f (Maybe (HashMap Text AudioSelector)))
-> InputTemplate -> f InputTemplate
inputTemplate_audioSelectors = (InputTemplate -> Maybe (HashMap Text AudioSelector))
-> (InputTemplate
    -> Maybe (HashMap Text AudioSelector) -> InputTemplate)
-> Lens
     InputTemplate
     InputTemplate
     (Maybe (HashMap Text AudioSelector))
     (Maybe (HashMap Text AudioSelector))
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\InputTemplate' {Maybe (HashMap Text AudioSelector)
audioSelectors :: Maybe (HashMap Text AudioSelector)
$sel:audioSelectors:InputTemplate' :: InputTemplate -> Maybe (HashMap Text AudioSelector)
audioSelectors} -> Maybe (HashMap Text AudioSelector)
audioSelectors) (\s :: InputTemplate
s@InputTemplate' {} Maybe (HashMap Text AudioSelector)
a -> InputTemplate
s {$sel:audioSelectors:InputTemplate' :: Maybe (HashMap Text AudioSelector)
audioSelectors = Maybe (HashMap Text AudioSelector)
a} :: InputTemplate) ((Maybe (HashMap Text AudioSelector)
  -> f (Maybe (HashMap Text AudioSelector)))
 -> InputTemplate -> f InputTemplate)
-> ((Maybe (HashMap Text AudioSelector)
     -> f (Maybe (HashMap Text AudioSelector)))
    -> Maybe (HashMap Text AudioSelector)
    -> f (Maybe (HashMap Text AudioSelector)))
-> (Maybe (HashMap Text AudioSelector)
    -> f (Maybe (HashMap Text AudioSelector)))
-> InputTemplate
-> f InputTemplate
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso
  (HashMap Text AudioSelector)
  (HashMap Text AudioSelector)
  (HashMap Text AudioSelector)
  (HashMap Text AudioSelector)
-> Iso
     (Maybe (HashMap Text AudioSelector))
     (Maybe (HashMap Text AudioSelector))
     (Maybe (HashMap Text AudioSelector))
     (Maybe (HashMap Text AudioSelector))
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 AnIso
  (HashMap Text AudioSelector)
  (HashMap Text AudioSelector)
  (HashMap Text AudioSelector)
  (HashMap Text AudioSelector)
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

-- | Enable Deblock (InputDeblockFilter) to produce smoother motion in the
-- output. Default is disabled. Only manually controllable for MPEG2 and
-- uncompressed video inputs.
inputTemplate_deblockFilter :: Lens.Lens' InputTemplate (Prelude.Maybe InputDeblockFilter)
inputTemplate_deblockFilter :: (Maybe InputDeblockFilter -> f (Maybe InputDeblockFilter))
-> InputTemplate -> f InputTemplate
inputTemplate_deblockFilter = (InputTemplate -> Maybe InputDeblockFilter)
-> (InputTemplate -> Maybe InputDeblockFilter -> InputTemplate)
-> Lens
     InputTemplate
     InputTemplate
     (Maybe InputDeblockFilter)
     (Maybe InputDeblockFilter)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\InputTemplate' {Maybe InputDeblockFilter
deblockFilter :: Maybe InputDeblockFilter
$sel:deblockFilter:InputTemplate' :: InputTemplate -> Maybe InputDeblockFilter
deblockFilter} -> Maybe InputDeblockFilter
deblockFilter) (\s :: InputTemplate
s@InputTemplate' {} Maybe InputDeblockFilter
a -> InputTemplate
s {$sel:deblockFilter:InputTemplate' :: Maybe InputDeblockFilter
deblockFilter = Maybe InputDeblockFilter
a} :: InputTemplate)

-- | (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.
inputTemplate_inputClippings :: Lens.Lens' InputTemplate (Prelude.Maybe [InputClipping])
inputTemplate_inputClippings :: (Maybe [InputClipping] -> f (Maybe [InputClipping]))
-> InputTemplate -> f InputTemplate
inputTemplate_inputClippings = (InputTemplate -> Maybe [InputClipping])
-> (InputTemplate -> Maybe [InputClipping] -> InputTemplate)
-> Lens
     InputTemplate
     InputTemplate
     (Maybe [InputClipping])
     (Maybe [InputClipping])
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\InputTemplate' {Maybe [InputClipping]
inputClippings :: Maybe [InputClipping]
$sel:inputClippings:InputTemplate' :: InputTemplate -> Maybe [InputClipping]
inputClippings} -> Maybe [InputClipping]
inputClippings) (\s :: InputTemplate
s@InputTemplate' {} Maybe [InputClipping]
a -> InputTemplate
s {$sel:inputClippings:InputTemplate' :: Maybe [InputClipping]
inputClippings = Maybe [InputClipping]
a} :: InputTemplate) ((Maybe [InputClipping] -> f (Maybe [InputClipping]))
 -> InputTemplate -> f InputTemplate)
-> ((Maybe [InputClipping] -> f (Maybe [InputClipping]))
    -> Maybe [InputClipping] -> f (Maybe [InputClipping]))
-> (Maybe [InputClipping] -> f (Maybe [InputClipping]))
-> InputTemplate
-> f InputTemplate
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso
  [InputClipping] [InputClipping] [InputClipping] [InputClipping]
-> Iso
     (Maybe [InputClipping])
     (Maybe [InputClipping])
     (Maybe [InputClipping])
     (Maybe [InputClipping])
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 AnIso
  [InputClipping] [InputClipping] [InputClipping] [InputClipping]
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).
inputTemplate_crop :: Lens.Lens' InputTemplate (Prelude.Maybe Rectangle)
inputTemplate_crop :: (Maybe Rectangle -> f (Maybe Rectangle))
-> InputTemplate -> f InputTemplate
inputTemplate_crop = (InputTemplate -> Maybe Rectangle)
-> (InputTemplate -> Maybe Rectangle -> InputTemplate)
-> Lens
     InputTemplate InputTemplate (Maybe Rectangle) (Maybe Rectangle)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\InputTemplate' {Maybe Rectangle
crop :: Maybe Rectangle
$sel:crop:InputTemplate' :: InputTemplate -> Maybe Rectangle
crop} -> Maybe Rectangle
crop) (\s :: InputTemplate
s@InputTemplate' {} Maybe Rectangle
a -> InputTemplate
s {$sel:crop:InputTemplate' :: Maybe Rectangle
crop = Maybe Rectangle
a} :: InputTemplate)

-- | Enable Denoise (InputDenoiseFilter) to filter noise from the input.
-- Default is disabled. Only applicable to MPEG2, H.264, H.265, and
-- uncompressed video inputs.
inputTemplate_denoiseFilter :: Lens.Lens' InputTemplate (Prelude.Maybe InputDenoiseFilter)
inputTemplate_denoiseFilter :: (Maybe InputDenoiseFilter -> f (Maybe InputDenoiseFilter))
-> InputTemplate -> f InputTemplate
inputTemplate_denoiseFilter = (InputTemplate -> Maybe InputDenoiseFilter)
-> (InputTemplate -> Maybe InputDenoiseFilter -> InputTemplate)
-> Lens
     InputTemplate
     InputTemplate
     (Maybe InputDenoiseFilter)
     (Maybe InputDenoiseFilter)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\InputTemplate' {Maybe InputDenoiseFilter
denoiseFilter :: Maybe InputDenoiseFilter
$sel:denoiseFilter:InputTemplate' :: InputTemplate -> Maybe InputDenoiseFilter
denoiseFilter} -> Maybe InputDenoiseFilter
denoiseFilter) (\s :: InputTemplate
s@InputTemplate' {} Maybe InputDenoiseFilter
a -> InputTemplate
s {$sel:denoiseFilter:InputTemplate' :: Maybe InputDenoiseFilter
denoiseFilter = Maybe InputDenoiseFilter
a} :: InputTemplate)

-- | 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.
inputTemplate_imageInserter :: Lens.Lens' InputTemplate (Prelude.Maybe ImageInserter)
inputTemplate_imageInserter :: (Maybe ImageInserter -> f (Maybe ImageInserter))
-> InputTemplate -> f InputTemplate
inputTemplate_imageInserter = (InputTemplate -> Maybe ImageInserter)
-> (InputTemplate -> Maybe ImageInserter -> InputTemplate)
-> Lens
     InputTemplate
     InputTemplate
     (Maybe ImageInserter)
     (Maybe ImageInserter)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\InputTemplate' {Maybe ImageInserter
imageInserter :: Maybe ImageInserter
$sel:imageInserter:InputTemplate' :: InputTemplate -> Maybe ImageInserter
imageInserter} -> Maybe ImageInserter
imageInserter) (\s :: InputTemplate
s@InputTemplate' {} Maybe ImageInserter
a -> InputTemplate
s {$sel:imageInserter:InputTemplate' :: Maybe ImageInserter
imageInserter = Maybe ImageInserter
a} :: InputTemplate)

-- | Use Filter strength (FilterStrength) to adjust the magnitude the input
-- filter settings (Deblock and Denoise). The range is -5 to 5. Default is
-- 0.
inputTemplate_filterStrength :: Lens.Lens' InputTemplate (Prelude.Maybe Prelude.Int)
inputTemplate_filterStrength :: (Maybe Int -> f (Maybe Int)) -> InputTemplate -> f InputTemplate
inputTemplate_filterStrength = (InputTemplate -> Maybe Int)
-> (InputTemplate -> Maybe Int -> InputTemplate)
-> Lens InputTemplate InputTemplate (Maybe Int) (Maybe Int)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\InputTemplate' {Maybe Int
filterStrength :: Maybe Int
$sel:filterStrength:InputTemplate' :: InputTemplate -> Maybe Int
filterStrength} -> Maybe Int
filterStrength) (\s :: InputTemplate
s@InputTemplate' {} Maybe Int
a -> InputTemplate
s {$sel:filterStrength:InputTemplate' :: Maybe Int
filterStrength = Maybe Int
a} :: InputTemplate)

-- | 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.
inputTemplate_psiControl :: Lens.Lens' InputTemplate (Prelude.Maybe InputPsiControl)
inputTemplate_psiControl :: (Maybe InputPsiControl -> f (Maybe InputPsiControl))
-> InputTemplate -> f InputTemplate
inputTemplate_psiControl = (InputTemplate -> Maybe InputPsiControl)
-> (InputTemplate -> Maybe InputPsiControl -> InputTemplate)
-> Lens
     InputTemplate
     InputTemplate
     (Maybe InputPsiControl)
     (Maybe InputPsiControl)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\InputTemplate' {Maybe InputPsiControl
psiControl :: Maybe InputPsiControl
$sel:psiControl:InputTemplate' :: InputTemplate -> Maybe InputPsiControl
psiControl} -> Maybe InputPsiControl
psiControl) (\s :: InputTemplate
s@InputTemplate' {} Maybe InputPsiControl
a -> InputTemplate
s {$sel:psiControl:InputTemplate' :: Maybe InputPsiControl
psiControl = Maybe InputPsiControl
a} :: InputTemplate)

-- | 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.
inputTemplate_captionSelectors :: Lens.Lens' InputTemplate (Prelude.Maybe (Prelude.HashMap Prelude.Text CaptionSelector))
inputTemplate_captionSelectors :: (Maybe (HashMap Text CaptionSelector)
 -> f (Maybe (HashMap Text CaptionSelector)))
-> InputTemplate -> f InputTemplate
inputTemplate_captionSelectors = (InputTemplate -> Maybe (HashMap Text CaptionSelector))
-> (InputTemplate
    -> Maybe (HashMap Text CaptionSelector) -> InputTemplate)
-> Lens
     InputTemplate
     InputTemplate
     (Maybe (HashMap Text CaptionSelector))
     (Maybe (HashMap Text CaptionSelector))
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\InputTemplate' {Maybe (HashMap Text CaptionSelector)
captionSelectors :: Maybe (HashMap Text CaptionSelector)
$sel:captionSelectors:InputTemplate' :: InputTemplate -> Maybe (HashMap Text CaptionSelector)
captionSelectors} -> Maybe (HashMap Text CaptionSelector)
captionSelectors) (\s :: InputTemplate
s@InputTemplate' {} Maybe (HashMap Text CaptionSelector)
a -> InputTemplate
s {$sel:captionSelectors:InputTemplate' :: Maybe (HashMap Text CaptionSelector)
captionSelectors = Maybe (HashMap Text CaptionSelector)
a} :: InputTemplate) ((Maybe (HashMap Text CaptionSelector)
  -> f (Maybe (HashMap Text CaptionSelector)))
 -> InputTemplate -> f InputTemplate)
-> ((Maybe (HashMap Text CaptionSelector)
     -> f (Maybe (HashMap Text CaptionSelector)))
    -> Maybe (HashMap Text CaptionSelector)
    -> f (Maybe (HashMap Text CaptionSelector)))
-> (Maybe (HashMap Text CaptionSelector)
    -> f (Maybe (HashMap Text CaptionSelector)))
-> InputTemplate
-> f InputTemplate
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso
  (HashMap Text CaptionSelector)
  (HashMap Text CaptionSelector)
  (HashMap Text CaptionSelector)
  (HashMap Text CaptionSelector)
-> Iso
     (Maybe (HashMap Text CaptionSelector))
     (Maybe (HashMap Text CaptionSelector))
     (Maybe (HashMap Text CaptionSelector))
     (Maybe (HashMap Text CaptionSelector))
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 AnIso
  (HashMap Text CaptionSelector)
  (HashMap Text CaptionSelector)
  (HashMap Text CaptionSelector)
  (HashMap Text CaptionSelector)
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

-- | 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.
inputTemplate_timecodeStart :: Lens.Lens' InputTemplate (Prelude.Maybe Prelude.Text)
inputTemplate_timecodeStart :: (Maybe Text -> f (Maybe Text)) -> InputTemplate -> f InputTemplate
inputTemplate_timecodeStart = (InputTemplate -> Maybe Text)
-> (InputTemplate -> Maybe Text -> InputTemplate)
-> Lens InputTemplate InputTemplate (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\InputTemplate' {Maybe Text
timecodeStart :: Maybe Text
$sel:timecodeStart:InputTemplate' :: InputTemplate -> Maybe Text
timecodeStart} -> Maybe Text
timecodeStart) (\s :: InputTemplate
s@InputTemplate' {} Maybe Text
a -> InputTemplate
s {$sel:timecodeStart:InputTemplate' :: Maybe Text
timecodeStart = Maybe Text
a} :: InputTemplate)

-- | 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.
inputTemplate_inputScanType :: Lens.Lens' InputTemplate (Prelude.Maybe InputScanType)
inputTemplate_inputScanType :: (Maybe InputScanType -> f (Maybe InputScanType))
-> InputTemplate -> f InputTemplate
inputTemplate_inputScanType = (InputTemplate -> Maybe InputScanType)
-> (InputTemplate -> Maybe InputScanType -> InputTemplate)
-> Lens
     InputTemplate
     InputTemplate
     (Maybe InputScanType)
     (Maybe InputScanType)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\InputTemplate' {Maybe InputScanType
inputScanType :: Maybe InputScanType
$sel:inputScanType:InputTemplate' :: InputTemplate -> Maybe InputScanType
inputScanType} -> Maybe InputScanType
inputScanType) (\s :: InputTemplate
s@InputTemplate' {} Maybe InputScanType
a -> InputTemplate
s {$sel:inputScanType:InputTemplate' :: Maybe InputScanType
inputScanType = Maybe InputScanType
a} :: InputTemplate)

-- | 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).
inputTemplate_position :: Lens.Lens' InputTemplate (Prelude.Maybe Rectangle)
inputTemplate_position :: (Maybe Rectangle -> f (Maybe Rectangle))
-> InputTemplate -> f InputTemplate
inputTemplate_position = (InputTemplate -> Maybe Rectangle)
-> (InputTemplate -> Maybe Rectangle -> InputTemplate)
-> Lens
     InputTemplate InputTemplate (Maybe Rectangle) (Maybe Rectangle)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\InputTemplate' {Maybe Rectangle
position :: Maybe Rectangle
$sel:position:InputTemplate' :: InputTemplate -> Maybe Rectangle
position} -> Maybe Rectangle
position) (\s :: InputTemplate
s@InputTemplate' {} Maybe Rectangle
a -> InputTemplate
s {$sel:position:InputTemplate' :: Maybe Rectangle
position = Maybe Rectangle
a} :: InputTemplate)

-- | 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.
inputTemplate_filterEnable :: Lens.Lens' InputTemplate (Prelude.Maybe InputFilterEnable)
inputTemplate_filterEnable :: (Maybe InputFilterEnable -> f (Maybe InputFilterEnable))
-> InputTemplate -> f InputTemplate
inputTemplate_filterEnable = (InputTemplate -> Maybe InputFilterEnable)
-> (InputTemplate -> Maybe InputFilterEnable -> InputTemplate)
-> Lens
     InputTemplate
     InputTemplate
     (Maybe InputFilterEnable)
     (Maybe InputFilterEnable)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\InputTemplate' {Maybe InputFilterEnable
filterEnable :: Maybe InputFilterEnable
$sel:filterEnable:InputTemplate' :: InputTemplate -> Maybe InputFilterEnable
filterEnable} -> Maybe InputFilterEnable
filterEnable) (\s :: InputTemplate
s@InputTemplate' {} Maybe InputFilterEnable
a -> InputTemplate
s {$sel:filterEnable:InputTemplate' :: Maybe InputFilterEnable
filterEnable = Maybe InputFilterEnable
a} :: InputTemplate)

instance Core.FromJSON InputTemplate where
  parseJSON :: Value -> Parser InputTemplate
parseJSON =
    String
-> (Object -> Parser InputTemplate)
-> Value
-> Parser InputTemplate
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Core.withObject
      String
"InputTemplate"
      ( \Object
x ->
          Maybe VideoSelector
-> Maybe Natural
-> Maybe (HashMap Text AudioSelectorGroup)
-> Maybe InputTimecodeSource
-> Maybe (HashMap Text AudioSelector)
-> Maybe InputDeblockFilter
-> Maybe [InputClipping]
-> Maybe Rectangle
-> Maybe InputDenoiseFilter
-> Maybe ImageInserter
-> Maybe Int
-> Maybe InputPsiControl
-> Maybe (HashMap Text CaptionSelector)
-> Maybe Text
-> Maybe InputScanType
-> Maybe Rectangle
-> Maybe InputFilterEnable
-> InputTemplate
InputTemplate'
            (Maybe VideoSelector
 -> Maybe Natural
 -> Maybe (HashMap Text AudioSelectorGroup)
 -> Maybe InputTimecodeSource
 -> Maybe (HashMap Text AudioSelector)
 -> Maybe InputDeblockFilter
 -> Maybe [InputClipping]
 -> Maybe Rectangle
 -> Maybe InputDenoiseFilter
 -> Maybe ImageInserter
 -> Maybe Int
 -> Maybe InputPsiControl
 -> Maybe (HashMap Text CaptionSelector)
 -> Maybe Text
 -> Maybe InputScanType
 -> Maybe Rectangle
 -> Maybe InputFilterEnable
 -> InputTemplate)
-> Parser (Maybe VideoSelector)
-> Parser
     (Maybe Natural
      -> Maybe (HashMap Text AudioSelectorGroup)
      -> Maybe InputTimecodeSource
      -> Maybe (HashMap Text AudioSelector)
      -> Maybe InputDeblockFilter
      -> Maybe [InputClipping]
      -> Maybe Rectangle
      -> Maybe InputDenoiseFilter
      -> Maybe ImageInserter
      -> Maybe Int
      -> Maybe InputPsiControl
      -> Maybe (HashMap Text CaptionSelector)
      -> Maybe Text
      -> Maybe InputScanType
      -> Maybe Rectangle
      -> Maybe InputFilterEnable
      -> InputTemplate)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x Object -> Text -> Parser (Maybe VideoSelector)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"videoSelector")
            Parser
  (Maybe Natural
   -> Maybe (HashMap Text AudioSelectorGroup)
   -> Maybe InputTimecodeSource
   -> Maybe (HashMap Text AudioSelector)
   -> Maybe InputDeblockFilter
   -> Maybe [InputClipping]
   -> Maybe Rectangle
   -> Maybe InputDenoiseFilter
   -> Maybe ImageInserter
   -> Maybe Int
   -> Maybe InputPsiControl
   -> Maybe (HashMap Text CaptionSelector)
   -> Maybe Text
   -> Maybe InputScanType
   -> Maybe Rectangle
   -> Maybe InputFilterEnable
   -> InputTemplate)
-> Parser (Maybe Natural)
-> Parser
     (Maybe (HashMap Text AudioSelectorGroup)
      -> Maybe InputTimecodeSource
      -> Maybe (HashMap Text AudioSelector)
      -> Maybe InputDeblockFilter
      -> Maybe [InputClipping]
      -> Maybe Rectangle
      -> Maybe InputDenoiseFilter
      -> Maybe ImageInserter
      -> Maybe Int
      -> Maybe InputPsiControl
      -> Maybe (HashMap Text CaptionSelector)
      -> Maybe Text
      -> Maybe InputScanType
      -> Maybe Rectangle
      -> Maybe InputFilterEnable
      -> InputTemplate)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Natural)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"programNumber")
            Parser
  (Maybe (HashMap Text AudioSelectorGroup)
   -> Maybe InputTimecodeSource
   -> Maybe (HashMap Text AudioSelector)
   -> Maybe InputDeblockFilter
   -> Maybe [InputClipping]
   -> Maybe Rectangle
   -> Maybe InputDenoiseFilter
   -> Maybe ImageInserter
   -> Maybe Int
   -> Maybe InputPsiControl
   -> Maybe (HashMap Text CaptionSelector)
   -> Maybe Text
   -> Maybe InputScanType
   -> Maybe Rectangle
   -> Maybe InputFilterEnable
   -> InputTemplate)
-> Parser (Maybe (HashMap Text AudioSelectorGroup))
-> Parser
     (Maybe InputTimecodeSource
      -> Maybe (HashMap Text AudioSelector)
      -> Maybe InputDeblockFilter
      -> Maybe [InputClipping]
      -> Maybe Rectangle
      -> Maybe InputDenoiseFilter
      -> Maybe ImageInserter
      -> Maybe Int
      -> Maybe InputPsiControl
      -> Maybe (HashMap Text CaptionSelector)
      -> Maybe Text
      -> Maybe InputScanType
      -> Maybe Rectangle
      -> Maybe InputFilterEnable
      -> InputTemplate)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ( Object
x Object
-> Text -> Parser (Maybe (Maybe (HashMap Text AudioSelectorGroup)))
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"audioSelectorGroups"
                            Parser (Maybe (Maybe (HashMap Text AudioSelectorGroup)))
-> Maybe (HashMap Text AudioSelectorGroup)
-> Parser (Maybe (HashMap Text AudioSelectorGroup))
forall a. Parser (Maybe a) -> a -> Parser a
Core..!= Maybe (HashMap Text AudioSelectorGroup)
forall a. Monoid a => a
Prelude.mempty
                        )
            Parser
  (Maybe InputTimecodeSource
   -> Maybe (HashMap Text AudioSelector)
   -> Maybe InputDeblockFilter
   -> Maybe [InputClipping]
   -> Maybe Rectangle
   -> Maybe InputDenoiseFilter
   -> Maybe ImageInserter
   -> Maybe Int
   -> Maybe InputPsiControl
   -> Maybe (HashMap Text CaptionSelector)
   -> Maybe Text
   -> Maybe InputScanType
   -> Maybe Rectangle
   -> Maybe InputFilterEnable
   -> InputTemplate)
-> Parser (Maybe InputTimecodeSource)
-> Parser
     (Maybe (HashMap Text AudioSelector)
      -> Maybe InputDeblockFilter
      -> Maybe [InputClipping]
      -> Maybe Rectangle
      -> Maybe InputDenoiseFilter
      -> Maybe ImageInserter
      -> Maybe Int
      -> Maybe InputPsiControl
      -> Maybe (HashMap Text CaptionSelector)
      -> Maybe Text
      -> Maybe InputScanType
      -> Maybe Rectangle
      -> Maybe InputFilterEnable
      -> InputTemplate)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe InputTimecodeSource)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"timecodeSource")
            Parser
  (Maybe (HashMap Text AudioSelector)
   -> Maybe InputDeblockFilter
   -> Maybe [InputClipping]
   -> Maybe Rectangle
   -> Maybe InputDenoiseFilter
   -> Maybe ImageInserter
   -> Maybe Int
   -> Maybe InputPsiControl
   -> Maybe (HashMap Text CaptionSelector)
   -> Maybe Text
   -> Maybe InputScanType
   -> Maybe Rectangle
   -> Maybe InputFilterEnable
   -> InputTemplate)
-> Parser (Maybe (HashMap Text AudioSelector))
-> Parser
     (Maybe InputDeblockFilter
      -> Maybe [InputClipping]
      -> Maybe Rectangle
      -> Maybe InputDenoiseFilter
      -> Maybe ImageInserter
      -> Maybe Int
      -> Maybe InputPsiControl
      -> Maybe (HashMap Text CaptionSelector)
      -> Maybe Text
      -> Maybe InputScanType
      -> Maybe Rectangle
      -> Maybe InputFilterEnable
      -> InputTemplate)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object
-> Text -> Parser (Maybe (Maybe (HashMap Text AudioSelector)))
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"audioSelectors" Parser (Maybe (Maybe (HashMap Text AudioSelector)))
-> Maybe (HashMap Text AudioSelector)
-> Parser (Maybe (HashMap Text AudioSelector))
forall a. Parser (Maybe a) -> a -> Parser a
Core..!= Maybe (HashMap Text AudioSelector)
forall a. Monoid a => a
Prelude.mempty)
            Parser
  (Maybe InputDeblockFilter
   -> Maybe [InputClipping]
   -> Maybe Rectangle
   -> Maybe InputDenoiseFilter
   -> Maybe ImageInserter
   -> Maybe Int
   -> Maybe InputPsiControl
   -> Maybe (HashMap Text CaptionSelector)
   -> Maybe Text
   -> Maybe InputScanType
   -> Maybe Rectangle
   -> Maybe InputFilterEnable
   -> InputTemplate)
-> Parser (Maybe InputDeblockFilter)
-> Parser
     (Maybe [InputClipping]
      -> Maybe Rectangle
      -> Maybe InputDenoiseFilter
      -> Maybe ImageInserter
      -> Maybe Int
      -> Maybe InputPsiControl
      -> Maybe (HashMap Text CaptionSelector)
      -> Maybe Text
      -> Maybe InputScanType
      -> Maybe Rectangle
      -> Maybe InputFilterEnable
      -> InputTemplate)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe InputDeblockFilter)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"deblockFilter")
            Parser
  (Maybe [InputClipping]
   -> Maybe Rectangle
   -> Maybe InputDenoiseFilter
   -> Maybe ImageInserter
   -> Maybe Int
   -> Maybe InputPsiControl
   -> Maybe (HashMap Text CaptionSelector)
   -> Maybe Text
   -> Maybe InputScanType
   -> Maybe Rectangle
   -> Maybe InputFilterEnable
   -> InputTemplate)
-> Parser (Maybe [InputClipping])
-> Parser
     (Maybe Rectangle
      -> Maybe InputDenoiseFilter
      -> Maybe ImageInserter
      -> Maybe Int
      -> Maybe InputPsiControl
      -> Maybe (HashMap Text CaptionSelector)
      -> Maybe Text
      -> Maybe InputScanType
      -> Maybe Rectangle
      -> Maybe InputFilterEnable
      -> InputTemplate)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe (Maybe [InputClipping]))
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"inputClippings" Parser (Maybe (Maybe [InputClipping]))
-> Maybe [InputClipping] -> Parser (Maybe [InputClipping])
forall a. Parser (Maybe a) -> a -> Parser a
Core..!= Maybe [InputClipping]
forall a. Monoid a => a
Prelude.mempty)
            Parser
  (Maybe Rectangle
   -> Maybe InputDenoiseFilter
   -> Maybe ImageInserter
   -> Maybe Int
   -> Maybe InputPsiControl
   -> Maybe (HashMap Text CaptionSelector)
   -> Maybe Text
   -> Maybe InputScanType
   -> Maybe Rectangle
   -> Maybe InputFilterEnable
   -> InputTemplate)
-> Parser (Maybe Rectangle)
-> Parser
     (Maybe InputDenoiseFilter
      -> Maybe ImageInserter
      -> Maybe Int
      -> Maybe InputPsiControl
      -> Maybe (HashMap Text CaptionSelector)
      -> Maybe Text
      -> Maybe InputScanType
      -> Maybe Rectangle
      -> Maybe InputFilterEnable
      -> InputTemplate)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Rectangle)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"crop")
            Parser
  (Maybe InputDenoiseFilter
   -> Maybe ImageInserter
   -> Maybe Int
   -> Maybe InputPsiControl
   -> Maybe (HashMap Text CaptionSelector)
   -> Maybe Text
   -> Maybe InputScanType
   -> Maybe Rectangle
   -> Maybe InputFilterEnable
   -> InputTemplate)
-> Parser (Maybe InputDenoiseFilter)
-> Parser
     (Maybe ImageInserter
      -> Maybe Int
      -> Maybe InputPsiControl
      -> Maybe (HashMap Text CaptionSelector)
      -> Maybe Text
      -> Maybe InputScanType
      -> Maybe Rectangle
      -> Maybe InputFilterEnable
      -> InputTemplate)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe InputDenoiseFilter)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"denoiseFilter")
            Parser
  (Maybe ImageInserter
   -> Maybe Int
   -> Maybe InputPsiControl
   -> Maybe (HashMap Text CaptionSelector)
   -> Maybe Text
   -> Maybe InputScanType
   -> Maybe Rectangle
   -> Maybe InputFilterEnable
   -> InputTemplate)
-> Parser (Maybe ImageInserter)
-> Parser
     (Maybe Int
      -> Maybe InputPsiControl
      -> Maybe (HashMap Text CaptionSelector)
      -> Maybe Text
      -> Maybe InputScanType
      -> Maybe Rectangle
      -> Maybe InputFilterEnable
      -> InputTemplate)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe ImageInserter)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"imageInserter")
            Parser
  (Maybe Int
   -> Maybe InputPsiControl
   -> Maybe (HashMap Text CaptionSelector)
   -> Maybe Text
   -> Maybe InputScanType
   -> Maybe Rectangle
   -> Maybe InputFilterEnable
   -> InputTemplate)
-> Parser (Maybe Int)
-> Parser
     (Maybe InputPsiControl
      -> Maybe (HashMap Text CaptionSelector)
      -> Maybe Text
      -> Maybe InputScanType
      -> Maybe Rectangle
      -> Maybe InputFilterEnable
      -> InputTemplate)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Int)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"filterStrength")
            Parser
  (Maybe InputPsiControl
   -> Maybe (HashMap Text CaptionSelector)
   -> Maybe Text
   -> Maybe InputScanType
   -> Maybe Rectangle
   -> Maybe InputFilterEnable
   -> InputTemplate)
-> Parser (Maybe InputPsiControl)
-> Parser
     (Maybe (HashMap Text CaptionSelector)
      -> Maybe Text
      -> Maybe InputScanType
      -> Maybe Rectangle
      -> Maybe InputFilterEnable
      -> InputTemplate)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe InputPsiControl)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"psiControl")
            Parser
  (Maybe (HashMap Text CaptionSelector)
   -> Maybe Text
   -> Maybe InputScanType
   -> Maybe Rectangle
   -> Maybe InputFilterEnable
   -> InputTemplate)
-> Parser (Maybe (HashMap Text CaptionSelector))
-> Parser
     (Maybe Text
      -> Maybe InputScanType
      -> Maybe Rectangle
      -> Maybe InputFilterEnable
      -> InputTemplate)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ( Object
x Object
-> Text -> Parser (Maybe (Maybe (HashMap Text CaptionSelector)))
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"captionSelectors"
                            Parser (Maybe (Maybe (HashMap Text CaptionSelector)))
-> Maybe (HashMap Text CaptionSelector)
-> Parser (Maybe (HashMap Text CaptionSelector))
forall a. Parser (Maybe a) -> a -> Parser a
Core..!= Maybe (HashMap Text CaptionSelector)
forall a. Monoid a => a
Prelude.mempty
                        )
            Parser
  (Maybe Text
   -> Maybe InputScanType
   -> Maybe Rectangle
   -> Maybe InputFilterEnable
   -> InputTemplate)
-> Parser (Maybe Text)
-> Parser
     (Maybe InputScanType
      -> Maybe Rectangle -> Maybe InputFilterEnable -> InputTemplate)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"timecodeStart")
            Parser
  (Maybe InputScanType
   -> Maybe Rectangle -> Maybe InputFilterEnable -> InputTemplate)
-> Parser (Maybe InputScanType)
-> Parser
     (Maybe Rectangle -> Maybe InputFilterEnable -> InputTemplate)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe InputScanType)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"inputScanType")
            Parser
  (Maybe Rectangle -> Maybe InputFilterEnable -> InputTemplate)
-> Parser (Maybe Rectangle)
-> Parser (Maybe InputFilterEnable -> InputTemplate)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Rectangle)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"position")
            Parser (Maybe InputFilterEnable -> InputTemplate)
-> Parser (Maybe InputFilterEnable) -> Parser InputTemplate
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe InputFilterEnable)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"filterEnable")
      )

instance Prelude.Hashable InputTemplate

instance Prelude.NFData InputTemplate

instance Core.ToJSON InputTemplate where
  toJSON :: InputTemplate -> Value
toJSON InputTemplate' {Maybe Int
Maybe Natural
Maybe [InputClipping]
Maybe Text
Maybe (HashMap Text AudioSelectorGroup)
Maybe (HashMap Text AudioSelector)
Maybe (HashMap Text CaptionSelector)
Maybe InputDeblockFilter
Maybe InputDenoiseFilter
Maybe InputFilterEnable
Maybe InputPsiControl
Maybe InputScanType
Maybe InputTimecodeSource
Maybe ImageInserter
Maybe Rectangle
Maybe VideoSelector
filterEnable :: Maybe InputFilterEnable
position :: Maybe Rectangle
inputScanType :: Maybe InputScanType
timecodeStart :: Maybe Text
captionSelectors :: Maybe (HashMap Text CaptionSelector)
psiControl :: Maybe InputPsiControl
filterStrength :: Maybe Int
imageInserter :: Maybe ImageInserter
denoiseFilter :: Maybe InputDenoiseFilter
crop :: Maybe Rectangle
inputClippings :: Maybe [InputClipping]
deblockFilter :: Maybe InputDeblockFilter
audioSelectors :: Maybe (HashMap Text AudioSelector)
timecodeSource :: Maybe InputTimecodeSource
audioSelectorGroups :: Maybe (HashMap Text AudioSelectorGroup)
programNumber :: Maybe Natural
videoSelector :: Maybe VideoSelector
$sel:filterEnable:InputTemplate' :: InputTemplate -> Maybe InputFilterEnable
$sel:position:InputTemplate' :: InputTemplate -> Maybe Rectangle
$sel:inputScanType:InputTemplate' :: InputTemplate -> Maybe InputScanType
$sel:timecodeStart:InputTemplate' :: InputTemplate -> Maybe Text
$sel:captionSelectors:InputTemplate' :: InputTemplate -> Maybe (HashMap Text CaptionSelector)
$sel:psiControl:InputTemplate' :: InputTemplate -> Maybe InputPsiControl
$sel:filterStrength:InputTemplate' :: InputTemplate -> Maybe Int
$sel:imageInserter:InputTemplate' :: InputTemplate -> Maybe ImageInserter
$sel:denoiseFilter:InputTemplate' :: InputTemplate -> Maybe InputDenoiseFilter
$sel:crop:InputTemplate' :: InputTemplate -> Maybe Rectangle
$sel:inputClippings:InputTemplate' :: InputTemplate -> Maybe [InputClipping]
$sel:deblockFilter:InputTemplate' :: InputTemplate -> Maybe InputDeblockFilter
$sel:audioSelectors:InputTemplate' :: InputTemplate -> Maybe (HashMap Text AudioSelector)
$sel:timecodeSource:InputTemplate' :: InputTemplate -> Maybe InputTimecodeSource
$sel:audioSelectorGroups:InputTemplate' :: InputTemplate -> Maybe (HashMap Text AudioSelectorGroup)
$sel:programNumber:InputTemplate' :: InputTemplate -> Maybe Natural
$sel:videoSelector:InputTemplate' :: InputTemplate -> Maybe VideoSelector
..} =
    [Pair] -> Value
Core.object
      ( [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
          [ (Text
"videoSelector" Text -> VideoSelector -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=) (VideoSelector -> Pair) -> Maybe VideoSelector -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe VideoSelector
videoSelector,
            (Text
"programNumber" Text -> Natural -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=) (Natural -> Pair) -> Maybe Natural -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Natural
programNumber,
            (Text
"audioSelectorGroups" Text -> HashMap Text AudioSelectorGroup -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=)
              (HashMap Text AudioSelectorGroup -> Pair)
-> Maybe (HashMap Text AudioSelectorGroup) -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (HashMap Text AudioSelectorGroup)
audioSelectorGroups,
            (Text
"timecodeSource" Text -> InputTimecodeSource -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=)
              (InputTimecodeSource -> Pair)
-> Maybe InputTimecodeSource -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe InputTimecodeSource
timecodeSource,
            (Text
"audioSelectors" Text -> HashMap Text AudioSelector -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=)
              (HashMap Text AudioSelector -> Pair)
-> Maybe (HashMap Text AudioSelector) -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (HashMap Text AudioSelector)
audioSelectors,
            (Text
"deblockFilter" Text -> InputDeblockFilter -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=) (InputDeblockFilter -> Pair)
-> Maybe InputDeblockFilter -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe InputDeblockFilter
deblockFilter,
            (Text
"inputClippings" Text -> [InputClipping] -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=)
              ([InputClipping] -> Pair) -> Maybe [InputClipping] -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [InputClipping]
inputClippings,
            (Text
"crop" Text -> Rectangle -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=) (Rectangle -> Pair) -> Maybe Rectangle -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Rectangle
crop,
            (Text
"denoiseFilter" Text -> InputDenoiseFilter -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=) (InputDenoiseFilter -> Pair)
-> Maybe InputDenoiseFilter -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe InputDenoiseFilter
denoiseFilter,
            (Text
"imageInserter" Text -> ImageInserter -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=) (ImageInserter -> Pair) -> Maybe ImageInserter -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ImageInserter
imageInserter,
            (Text
"filterStrength" Text -> Int -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=)
              (Int -> Pair) -> Maybe Int -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Int
filterStrength,
            (Text
"psiControl" Text -> InputPsiControl -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=) (InputPsiControl -> Pair) -> Maybe InputPsiControl -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe InputPsiControl
psiControl,
            (Text
"captionSelectors" Text -> HashMap Text CaptionSelector -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=)
              (HashMap Text CaptionSelector -> Pair)
-> Maybe (HashMap Text CaptionSelector) -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (HashMap Text CaptionSelector)
captionSelectors,
            (Text
"timecodeStart" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=) (Text -> Pair) -> Maybe Text -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
timecodeStart,
            (Text
"inputScanType" Text -> InputScanType -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=) (InputScanType -> Pair) -> Maybe InputScanType -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe InputScanType
inputScanType,
            (Text
"position" Text -> Rectangle -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=) (Rectangle -> Pair) -> Maybe Rectangle -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Rectangle
position,
            (Text
"filterEnable" Text -> InputFilterEnable -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=) (InputFilterEnable -> Pair)
-> Maybe InputFilterEnable -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe InputFilterEnable
filterEnable
          ]
      )