{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.MediaTailor.PutPlaybackConfiguration
(
PutPlaybackConfiguration (..),
newPutPlaybackConfiguration,
putPlaybackConfiguration_adDecisionServerUrl,
putPlaybackConfiguration_availSuppression,
putPlaybackConfiguration_bumper,
putPlaybackConfiguration_cdnConfiguration,
putPlaybackConfiguration_configurationAliases,
putPlaybackConfiguration_dashConfiguration,
putPlaybackConfiguration_livePreRollConfiguration,
putPlaybackConfiguration_manifestProcessingRules,
putPlaybackConfiguration_personalizationThresholdSeconds,
putPlaybackConfiguration_slateAdUrl,
putPlaybackConfiguration_tags,
putPlaybackConfiguration_transcodeProfileName,
putPlaybackConfiguration_videoContentSourceUrl,
putPlaybackConfiguration_name,
PutPlaybackConfigurationResponse (..),
newPutPlaybackConfigurationResponse,
putPlaybackConfigurationResponse_adDecisionServerUrl,
putPlaybackConfigurationResponse_availSuppression,
putPlaybackConfigurationResponse_bumper,
putPlaybackConfigurationResponse_cdnConfiguration,
putPlaybackConfigurationResponse_configurationAliases,
putPlaybackConfigurationResponse_dashConfiguration,
putPlaybackConfigurationResponse_hlsConfiguration,
putPlaybackConfigurationResponse_livePreRollConfiguration,
putPlaybackConfigurationResponse_logConfiguration,
putPlaybackConfigurationResponse_manifestProcessingRules,
putPlaybackConfigurationResponse_name,
putPlaybackConfigurationResponse_personalizationThresholdSeconds,
putPlaybackConfigurationResponse_playbackConfigurationArn,
putPlaybackConfigurationResponse_playbackEndpointPrefix,
putPlaybackConfigurationResponse_sessionInitializationEndpointPrefix,
putPlaybackConfigurationResponse_slateAdUrl,
putPlaybackConfigurationResponse_tags,
putPlaybackConfigurationResponse_transcodeProfileName,
putPlaybackConfigurationResponse_videoContentSourceUrl,
putPlaybackConfigurationResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.MediaTailor.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data PutPlaybackConfiguration = PutPlaybackConfiguration'
{
PutPlaybackConfiguration -> Maybe Text
adDecisionServerUrl :: Prelude.Maybe Prelude.Text,
PutPlaybackConfiguration -> Maybe AvailSuppression
availSuppression :: Prelude.Maybe AvailSuppression,
PutPlaybackConfiguration -> Maybe Bumper
bumper :: Prelude.Maybe Bumper,
PutPlaybackConfiguration -> Maybe CdnConfiguration
cdnConfiguration :: Prelude.Maybe CdnConfiguration,
PutPlaybackConfiguration
-> Maybe (HashMap Text (HashMap Text Text))
configurationAliases :: Prelude.Maybe (Prelude.HashMap Prelude.Text (Prelude.HashMap Prelude.Text Prelude.Text)),
PutPlaybackConfiguration -> Maybe DashConfigurationForPut
dashConfiguration :: Prelude.Maybe DashConfigurationForPut,
PutPlaybackConfiguration -> Maybe LivePreRollConfiguration
livePreRollConfiguration :: Prelude.Maybe LivePreRollConfiguration,
PutPlaybackConfiguration -> Maybe ManifestProcessingRules
manifestProcessingRules :: Prelude.Maybe ManifestProcessingRules,
PutPlaybackConfiguration -> Maybe Natural
personalizationThresholdSeconds :: Prelude.Maybe Prelude.Natural,
PutPlaybackConfiguration -> Maybe Text
slateAdUrl :: Prelude.Maybe Prelude.Text,
PutPlaybackConfiguration -> Maybe (HashMap Text Text)
tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
PutPlaybackConfiguration -> Maybe Text
transcodeProfileName :: Prelude.Maybe Prelude.Text,
PutPlaybackConfiguration -> Maybe Text
videoContentSourceUrl :: Prelude.Maybe Prelude.Text,
PutPlaybackConfiguration -> Text
name :: Prelude.Text
}
deriving (PutPlaybackConfiguration -> PutPlaybackConfiguration -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PutPlaybackConfiguration -> PutPlaybackConfiguration -> Bool
$c/= :: PutPlaybackConfiguration -> PutPlaybackConfiguration -> Bool
== :: PutPlaybackConfiguration -> PutPlaybackConfiguration -> Bool
$c== :: PutPlaybackConfiguration -> PutPlaybackConfiguration -> Bool
Prelude.Eq, ReadPrec [PutPlaybackConfiguration]
ReadPrec PutPlaybackConfiguration
Int -> ReadS PutPlaybackConfiguration
ReadS [PutPlaybackConfiguration]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [PutPlaybackConfiguration]
$creadListPrec :: ReadPrec [PutPlaybackConfiguration]
readPrec :: ReadPrec PutPlaybackConfiguration
$creadPrec :: ReadPrec PutPlaybackConfiguration
readList :: ReadS [PutPlaybackConfiguration]
$creadList :: ReadS [PutPlaybackConfiguration]
readsPrec :: Int -> ReadS PutPlaybackConfiguration
$creadsPrec :: Int -> ReadS PutPlaybackConfiguration
Prelude.Read, Int -> PutPlaybackConfiguration -> ShowS
[PutPlaybackConfiguration] -> ShowS
PutPlaybackConfiguration -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PutPlaybackConfiguration] -> ShowS
$cshowList :: [PutPlaybackConfiguration] -> ShowS
show :: PutPlaybackConfiguration -> String
$cshow :: PutPlaybackConfiguration -> String
showsPrec :: Int -> PutPlaybackConfiguration -> ShowS
$cshowsPrec :: Int -> PutPlaybackConfiguration -> ShowS
Prelude.Show, forall x.
Rep PutPlaybackConfiguration x -> PutPlaybackConfiguration
forall x.
PutPlaybackConfiguration -> Rep PutPlaybackConfiguration x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep PutPlaybackConfiguration x -> PutPlaybackConfiguration
$cfrom :: forall x.
PutPlaybackConfiguration -> Rep PutPlaybackConfiguration x
Prelude.Generic)
newPutPlaybackConfiguration ::
Prelude.Text ->
PutPlaybackConfiguration
newPutPlaybackConfiguration :: Text -> PutPlaybackConfiguration
newPutPlaybackConfiguration Text
pName_ =
PutPlaybackConfiguration'
{ $sel:adDecisionServerUrl:PutPlaybackConfiguration' :: Maybe Text
adDecisionServerUrl =
forall a. Maybe a
Prelude.Nothing,
$sel:availSuppression:PutPlaybackConfiguration' :: Maybe AvailSuppression
availSuppression = forall a. Maybe a
Prelude.Nothing,
$sel:bumper:PutPlaybackConfiguration' :: Maybe Bumper
bumper = forall a. Maybe a
Prelude.Nothing,
$sel:cdnConfiguration:PutPlaybackConfiguration' :: Maybe CdnConfiguration
cdnConfiguration = forall a. Maybe a
Prelude.Nothing,
$sel:configurationAliases:PutPlaybackConfiguration' :: Maybe (HashMap Text (HashMap Text Text))
configurationAliases = forall a. Maybe a
Prelude.Nothing,
$sel:dashConfiguration:PutPlaybackConfiguration' :: Maybe DashConfigurationForPut
dashConfiguration = forall a. Maybe a
Prelude.Nothing,
$sel:livePreRollConfiguration:PutPlaybackConfiguration' :: Maybe LivePreRollConfiguration
livePreRollConfiguration = forall a. Maybe a
Prelude.Nothing,
$sel:manifestProcessingRules:PutPlaybackConfiguration' :: Maybe ManifestProcessingRules
manifestProcessingRules = forall a. Maybe a
Prelude.Nothing,
$sel:personalizationThresholdSeconds:PutPlaybackConfiguration' :: Maybe Natural
personalizationThresholdSeconds = forall a. Maybe a
Prelude.Nothing,
$sel:slateAdUrl:PutPlaybackConfiguration' :: Maybe Text
slateAdUrl = forall a. Maybe a
Prelude.Nothing,
$sel:tags:PutPlaybackConfiguration' :: Maybe (HashMap Text Text)
tags = forall a. Maybe a
Prelude.Nothing,
$sel:transcodeProfileName:PutPlaybackConfiguration' :: Maybe Text
transcodeProfileName = forall a. Maybe a
Prelude.Nothing,
$sel:videoContentSourceUrl:PutPlaybackConfiguration' :: Maybe Text
videoContentSourceUrl = forall a. Maybe a
Prelude.Nothing,
$sel:name:PutPlaybackConfiguration' :: Text
name = Text
pName_
}
putPlaybackConfiguration_adDecisionServerUrl :: Lens.Lens' PutPlaybackConfiguration (Prelude.Maybe Prelude.Text)
putPlaybackConfiguration_adDecisionServerUrl :: Lens' PutPlaybackConfiguration (Maybe Text)
putPlaybackConfiguration_adDecisionServerUrl = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutPlaybackConfiguration' {Maybe Text
adDecisionServerUrl :: Maybe Text
$sel:adDecisionServerUrl:PutPlaybackConfiguration' :: PutPlaybackConfiguration -> Maybe Text
adDecisionServerUrl} -> Maybe Text
adDecisionServerUrl) (\s :: PutPlaybackConfiguration
s@PutPlaybackConfiguration' {} Maybe Text
a -> PutPlaybackConfiguration
s {$sel:adDecisionServerUrl:PutPlaybackConfiguration' :: Maybe Text
adDecisionServerUrl = Maybe Text
a} :: PutPlaybackConfiguration)
putPlaybackConfiguration_availSuppression :: Lens.Lens' PutPlaybackConfiguration (Prelude.Maybe AvailSuppression)
putPlaybackConfiguration_availSuppression :: Lens' PutPlaybackConfiguration (Maybe AvailSuppression)
putPlaybackConfiguration_availSuppression = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutPlaybackConfiguration' {Maybe AvailSuppression
availSuppression :: Maybe AvailSuppression
$sel:availSuppression:PutPlaybackConfiguration' :: PutPlaybackConfiguration -> Maybe AvailSuppression
availSuppression} -> Maybe AvailSuppression
availSuppression) (\s :: PutPlaybackConfiguration
s@PutPlaybackConfiguration' {} Maybe AvailSuppression
a -> PutPlaybackConfiguration
s {$sel:availSuppression:PutPlaybackConfiguration' :: Maybe AvailSuppression
availSuppression = Maybe AvailSuppression
a} :: PutPlaybackConfiguration)
putPlaybackConfiguration_bumper :: Lens.Lens' PutPlaybackConfiguration (Prelude.Maybe Bumper)
putPlaybackConfiguration_bumper :: Lens' PutPlaybackConfiguration (Maybe Bumper)
putPlaybackConfiguration_bumper = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutPlaybackConfiguration' {Maybe Bumper
bumper :: Maybe Bumper
$sel:bumper:PutPlaybackConfiguration' :: PutPlaybackConfiguration -> Maybe Bumper
bumper} -> Maybe Bumper
bumper) (\s :: PutPlaybackConfiguration
s@PutPlaybackConfiguration' {} Maybe Bumper
a -> PutPlaybackConfiguration
s {$sel:bumper:PutPlaybackConfiguration' :: Maybe Bumper
bumper = Maybe Bumper
a} :: PutPlaybackConfiguration)
putPlaybackConfiguration_cdnConfiguration :: Lens.Lens' PutPlaybackConfiguration (Prelude.Maybe CdnConfiguration)
putPlaybackConfiguration_cdnConfiguration :: Lens' PutPlaybackConfiguration (Maybe CdnConfiguration)
putPlaybackConfiguration_cdnConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutPlaybackConfiguration' {Maybe CdnConfiguration
cdnConfiguration :: Maybe CdnConfiguration
$sel:cdnConfiguration:PutPlaybackConfiguration' :: PutPlaybackConfiguration -> Maybe CdnConfiguration
cdnConfiguration} -> Maybe CdnConfiguration
cdnConfiguration) (\s :: PutPlaybackConfiguration
s@PutPlaybackConfiguration' {} Maybe CdnConfiguration
a -> PutPlaybackConfiguration
s {$sel:cdnConfiguration:PutPlaybackConfiguration' :: Maybe CdnConfiguration
cdnConfiguration = Maybe CdnConfiguration
a} :: PutPlaybackConfiguration)
putPlaybackConfiguration_configurationAliases :: Lens.Lens' PutPlaybackConfiguration (Prelude.Maybe (Prelude.HashMap Prelude.Text (Prelude.HashMap Prelude.Text Prelude.Text)))
putPlaybackConfiguration_configurationAliases :: Lens'
PutPlaybackConfiguration (Maybe (HashMap Text (HashMap Text Text)))
putPlaybackConfiguration_configurationAliases = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutPlaybackConfiguration' {Maybe (HashMap Text (HashMap Text Text))
configurationAliases :: Maybe (HashMap Text (HashMap Text Text))
$sel:configurationAliases:PutPlaybackConfiguration' :: PutPlaybackConfiguration
-> Maybe (HashMap Text (HashMap Text Text))
configurationAliases} -> Maybe (HashMap Text (HashMap Text Text))
configurationAliases) (\s :: PutPlaybackConfiguration
s@PutPlaybackConfiguration' {} Maybe (HashMap Text (HashMap Text Text))
a -> PutPlaybackConfiguration
s {$sel:configurationAliases:PutPlaybackConfiguration' :: Maybe (HashMap Text (HashMap Text Text))
configurationAliases = Maybe (HashMap Text (HashMap Text Text))
a} :: PutPlaybackConfiguration) 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
putPlaybackConfiguration_dashConfiguration :: Lens.Lens' PutPlaybackConfiguration (Prelude.Maybe DashConfigurationForPut)
putPlaybackConfiguration_dashConfiguration :: Lens' PutPlaybackConfiguration (Maybe DashConfigurationForPut)
putPlaybackConfiguration_dashConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutPlaybackConfiguration' {Maybe DashConfigurationForPut
dashConfiguration :: Maybe DashConfigurationForPut
$sel:dashConfiguration:PutPlaybackConfiguration' :: PutPlaybackConfiguration -> Maybe DashConfigurationForPut
dashConfiguration} -> Maybe DashConfigurationForPut
dashConfiguration) (\s :: PutPlaybackConfiguration
s@PutPlaybackConfiguration' {} Maybe DashConfigurationForPut
a -> PutPlaybackConfiguration
s {$sel:dashConfiguration:PutPlaybackConfiguration' :: Maybe DashConfigurationForPut
dashConfiguration = Maybe DashConfigurationForPut
a} :: PutPlaybackConfiguration)
putPlaybackConfiguration_livePreRollConfiguration :: Lens.Lens' PutPlaybackConfiguration (Prelude.Maybe LivePreRollConfiguration)
putPlaybackConfiguration_livePreRollConfiguration :: Lens' PutPlaybackConfiguration (Maybe LivePreRollConfiguration)
putPlaybackConfiguration_livePreRollConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutPlaybackConfiguration' {Maybe LivePreRollConfiguration
livePreRollConfiguration :: Maybe LivePreRollConfiguration
$sel:livePreRollConfiguration:PutPlaybackConfiguration' :: PutPlaybackConfiguration -> Maybe LivePreRollConfiguration
livePreRollConfiguration} -> Maybe LivePreRollConfiguration
livePreRollConfiguration) (\s :: PutPlaybackConfiguration
s@PutPlaybackConfiguration' {} Maybe LivePreRollConfiguration
a -> PutPlaybackConfiguration
s {$sel:livePreRollConfiguration:PutPlaybackConfiguration' :: Maybe LivePreRollConfiguration
livePreRollConfiguration = Maybe LivePreRollConfiguration
a} :: PutPlaybackConfiguration)
putPlaybackConfiguration_manifestProcessingRules :: Lens.Lens' PutPlaybackConfiguration (Prelude.Maybe ManifestProcessingRules)
putPlaybackConfiguration_manifestProcessingRules :: Lens' PutPlaybackConfiguration (Maybe ManifestProcessingRules)
putPlaybackConfiguration_manifestProcessingRules = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutPlaybackConfiguration' {Maybe ManifestProcessingRules
manifestProcessingRules :: Maybe ManifestProcessingRules
$sel:manifestProcessingRules:PutPlaybackConfiguration' :: PutPlaybackConfiguration -> Maybe ManifestProcessingRules
manifestProcessingRules} -> Maybe ManifestProcessingRules
manifestProcessingRules) (\s :: PutPlaybackConfiguration
s@PutPlaybackConfiguration' {} Maybe ManifestProcessingRules
a -> PutPlaybackConfiguration
s {$sel:manifestProcessingRules:PutPlaybackConfiguration' :: Maybe ManifestProcessingRules
manifestProcessingRules = Maybe ManifestProcessingRules
a} :: PutPlaybackConfiguration)
putPlaybackConfiguration_personalizationThresholdSeconds :: Lens.Lens' PutPlaybackConfiguration (Prelude.Maybe Prelude.Natural)
putPlaybackConfiguration_personalizationThresholdSeconds :: Lens' PutPlaybackConfiguration (Maybe Natural)
putPlaybackConfiguration_personalizationThresholdSeconds = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutPlaybackConfiguration' {Maybe Natural
personalizationThresholdSeconds :: Maybe Natural
$sel:personalizationThresholdSeconds:PutPlaybackConfiguration' :: PutPlaybackConfiguration -> Maybe Natural
personalizationThresholdSeconds} -> Maybe Natural
personalizationThresholdSeconds) (\s :: PutPlaybackConfiguration
s@PutPlaybackConfiguration' {} Maybe Natural
a -> PutPlaybackConfiguration
s {$sel:personalizationThresholdSeconds:PutPlaybackConfiguration' :: Maybe Natural
personalizationThresholdSeconds = Maybe Natural
a} :: PutPlaybackConfiguration)
putPlaybackConfiguration_slateAdUrl :: Lens.Lens' PutPlaybackConfiguration (Prelude.Maybe Prelude.Text)
putPlaybackConfiguration_slateAdUrl :: Lens' PutPlaybackConfiguration (Maybe Text)
putPlaybackConfiguration_slateAdUrl = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutPlaybackConfiguration' {Maybe Text
slateAdUrl :: Maybe Text
$sel:slateAdUrl:PutPlaybackConfiguration' :: PutPlaybackConfiguration -> Maybe Text
slateAdUrl} -> Maybe Text
slateAdUrl) (\s :: PutPlaybackConfiguration
s@PutPlaybackConfiguration' {} Maybe Text
a -> PutPlaybackConfiguration
s {$sel:slateAdUrl:PutPlaybackConfiguration' :: Maybe Text
slateAdUrl = Maybe Text
a} :: PutPlaybackConfiguration)
putPlaybackConfiguration_tags :: Lens.Lens' PutPlaybackConfiguration (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
putPlaybackConfiguration_tags :: Lens' PutPlaybackConfiguration (Maybe (HashMap Text Text))
putPlaybackConfiguration_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutPlaybackConfiguration' {Maybe (HashMap Text Text)
tags :: Maybe (HashMap Text Text)
$sel:tags:PutPlaybackConfiguration' :: PutPlaybackConfiguration -> Maybe (HashMap Text Text)
tags} -> Maybe (HashMap Text Text)
tags) (\s :: PutPlaybackConfiguration
s@PutPlaybackConfiguration' {} Maybe (HashMap Text Text)
a -> PutPlaybackConfiguration
s {$sel:tags:PutPlaybackConfiguration' :: Maybe (HashMap Text Text)
tags = Maybe (HashMap Text Text)
a} :: PutPlaybackConfiguration) 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
putPlaybackConfiguration_transcodeProfileName :: Lens.Lens' PutPlaybackConfiguration (Prelude.Maybe Prelude.Text)
putPlaybackConfiguration_transcodeProfileName :: Lens' PutPlaybackConfiguration (Maybe Text)
putPlaybackConfiguration_transcodeProfileName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutPlaybackConfiguration' {Maybe Text
transcodeProfileName :: Maybe Text
$sel:transcodeProfileName:PutPlaybackConfiguration' :: PutPlaybackConfiguration -> Maybe Text
transcodeProfileName} -> Maybe Text
transcodeProfileName) (\s :: PutPlaybackConfiguration
s@PutPlaybackConfiguration' {} Maybe Text
a -> PutPlaybackConfiguration
s {$sel:transcodeProfileName:PutPlaybackConfiguration' :: Maybe Text
transcodeProfileName = Maybe Text
a} :: PutPlaybackConfiguration)
putPlaybackConfiguration_videoContentSourceUrl :: Lens.Lens' PutPlaybackConfiguration (Prelude.Maybe Prelude.Text)
putPlaybackConfiguration_videoContentSourceUrl :: Lens' PutPlaybackConfiguration (Maybe Text)
putPlaybackConfiguration_videoContentSourceUrl = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutPlaybackConfiguration' {Maybe Text
videoContentSourceUrl :: Maybe Text
$sel:videoContentSourceUrl:PutPlaybackConfiguration' :: PutPlaybackConfiguration -> Maybe Text
videoContentSourceUrl} -> Maybe Text
videoContentSourceUrl) (\s :: PutPlaybackConfiguration
s@PutPlaybackConfiguration' {} Maybe Text
a -> PutPlaybackConfiguration
s {$sel:videoContentSourceUrl:PutPlaybackConfiguration' :: Maybe Text
videoContentSourceUrl = Maybe Text
a} :: PutPlaybackConfiguration)
putPlaybackConfiguration_name :: Lens.Lens' PutPlaybackConfiguration Prelude.Text
putPlaybackConfiguration_name :: Lens' PutPlaybackConfiguration Text
putPlaybackConfiguration_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutPlaybackConfiguration' {Text
name :: Text
$sel:name:PutPlaybackConfiguration' :: PutPlaybackConfiguration -> Text
name} -> Text
name) (\s :: PutPlaybackConfiguration
s@PutPlaybackConfiguration' {} Text
a -> PutPlaybackConfiguration
s {$sel:name:PutPlaybackConfiguration' :: Text
name = Text
a} :: PutPlaybackConfiguration)
instance Core.AWSRequest PutPlaybackConfiguration where
type
AWSResponse PutPlaybackConfiguration =
PutPlaybackConfigurationResponse
request :: (Service -> Service)
-> PutPlaybackConfiguration -> Request PutPlaybackConfiguration
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.putJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy PutPlaybackConfiguration
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse PutPlaybackConfiguration)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Maybe Text
-> Maybe AvailSuppression
-> Maybe Bumper
-> Maybe CdnConfiguration
-> Maybe (HashMap Text (HashMap Text Text))
-> Maybe DashConfiguration
-> Maybe HlsConfiguration
-> Maybe LivePreRollConfiguration
-> Maybe LogConfiguration
-> Maybe ManifestProcessingRules
-> Maybe Text
-> Maybe Natural
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe (HashMap Text Text)
-> Maybe Text
-> Maybe Text
-> Int
-> PutPlaybackConfigurationResponse
PutPlaybackConfigurationResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"AdDecisionServerUrl")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"AvailSuppression")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"Bumper")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"CdnConfiguration")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ( Object
x
forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"ConfigurationAliases"
forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ 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 -> Either String (Maybe a)
Data..?> Key
"DashConfiguration")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"HlsConfiguration")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"LivePreRollConfiguration")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"LogConfiguration")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"ManifestProcessingRules")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"Name")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"PersonalizationThresholdSeconds")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"PlaybackConfigurationArn")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"PlaybackEndpointPrefix")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"SessionInitializationEndpointPrefix")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"SlateAdUrl")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"tags" forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ 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 -> Either String (Maybe a)
Data..?> Key
"TranscodeProfileName")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"VideoContentSourceUrl")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance Prelude.Hashable PutPlaybackConfiguration where
hashWithSalt :: Int -> PutPlaybackConfiguration -> Int
hashWithSalt Int
_salt PutPlaybackConfiguration' {Maybe Natural
Maybe Text
Maybe (HashMap Text Text)
Maybe (HashMap Text (HashMap Text Text))
Maybe Bumper
Maybe CdnConfiguration
Maybe LivePreRollConfiguration
Maybe ManifestProcessingRules
Maybe AvailSuppression
Maybe DashConfigurationForPut
Text
name :: Text
videoContentSourceUrl :: Maybe Text
transcodeProfileName :: Maybe Text
tags :: Maybe (HashMap Text Text)
slateAdUrl :: Maybe Text
personalizationThresholdSeconds :: Maybe Natural
manifestProcessingRules :: Maybe ManifestProcessingRules
livePreRollConfiguration :: Maybe LivePreRollConfiguration
dashConfiguration :: Maybe DashConfigurationForPut
configurationAliases :: Maybe (HashMap Text (HashMap Text Text))
cdnConfiguration :: Maybe CdnConfiguration
bumper :: Maybe Bumper
availSuppression :: Maybe AvailSuppression
adDecisionServerUrl :: Maybe Text
$sel:name:PutPlaybackConfiguration' :: PutPlaybackConfiguration -> Text
$sel:videoContentSourceUrl:PutPlaybackConfiguration' :: PutPlaybackConfiguration -> Maybe Text
$sel:transcodeProfileName:PutPlaybackConfiguration' :: PutPlaybackConfiguration -> Maybe Text
$sel:tags:PutPlaybackConfiguration' :: PutPlaybackConfiguration -> Maybe (HashMap Text Text)
$sel:slateAdUrl:PutPlaybackConfiguration' :: PutPlaybackConfiguration -> Maybe Text
$sel:personalizationThresholdSeconds:PutPlaybackConfiguration' :: PutPlaybackConfiguration -> Maybe Natural
$sel:manifestProcessingRules:PutPlaybackConfiguration' :: PutPlaybackConfiguration -> Maybe ManifestProcessingRules
$sel:livePreRollConfiguration:PutPlaybackConfiguration' :: PutPlaybackConfiguration -> Maybe LivePreRollConfiguration
$sel:dashConfiguration:PutPlaybackConfiguration' :: PutPlaybackConfiguration -> Maybe DashConfigurationForPut
$sel:configurationAliases:PutPlaybackConfiguration' :: PutPlaybackConfiguration
-> Maybe (HashMap Text (HashMap Text Text))
$sel:cdnConfiguration:PutPlaybackConfiguration' :: PutPlaybackConfiguration -> Maybe CdnConfiguration
$sel:bumper:PutPlaybackConfiguration' :: PutPlaybackConfiguration -> Maybe Bumper
$sel:availSuppression:PutPlaybackConfiguration' :: PutPlaybackConfiguration -> Maybe AvailSuppression
$sel:adDecisionServerUrl:PutPlaybackConfiguration' :: PutPlaybackConfiguration -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
adDecisionServerUrl
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe AvailSuppression
availSuppression
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bumper
bumper
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe CdnConfiguration
cdnConfiguration
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (HashMap Text (HashMap Text Text))
configurationAliases
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe DashConfigurationForPut
dashConfiguration
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe LivePreRollConfiguration
livePreRollConfiguration
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ManifestProcessingRules
manifestProcessingRules
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
personalizationThresholdSeconds
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
slateAdUrl
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (HashMap Text Text)
tags
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
transcodeProfileName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
videoContentSourceUrl
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
name
instance Prelude.NFData PutPlaybackConfiguration where
rnf :: PutPlaybackConfiguration -> ()
rnf PutPlaybackConfiguration' {Maybe Natural
Maybe Text
Maybe (HashMap Text Text)
Maybe (HashMap Text (HashMap Text Text))
Maybe Bumper
Maybe CdnConfiguration
Maybe LivePreRollConfiguration
Maybe ManifestProcessingRules
Maybe AvailSuppression
Maybe DashConfigurationForPut
Text
name :: Text
videoContentSourceUrl :: Maybe Text
transcodeProfileName :: Maybe Text
tags :: Maybe (HashMap Text Text)
slateAdUrl :: Maybe Text
personalizationThresholdSeconds :: Maybe Natural
manifestProcessingRules :: Maybe ManifestProcessingRules
livePreRollConfiguration :: Maybe LivePreRollConfiguration
dashConfiguration :: Maybe DashConfigurationForPut
configurationAliases :: Maybe (HashMap Text (HashMap Text Text))
cdnConfiguration :: Maybe CdnConfiguration
bumper :: Maybe Bumper
availSuppression :: Maybe AvailSuppression
adDecisionServerUrl :: Maybe Text
$sel:name:PutPlaybackConfiguration' :: PutPlaybackConfiguration -> Text
$sel:videoContentSourceUrl:PutPlaybackConfiguration' :: PutPlaybackConfiguration -> Maybe Text
$sel:transcodeProfileName:PutPlaybackConfiguration' :: PutPlaybackConfiguration -> Maybe Text
$sel:tags:PutPlaybackConfiguration' :: PutPlaybackConfiguration -> Maybe (HashMap Text Text)
$sel:slateAdUrl:PutPlaybackConfiguration' :: PutPlaybackConfiguration -> Maybe Text
$sel:personalizationThresholdSeconds:PutPlaybackConfiguration' :: PutPlaybackConfiguration -> Maybe Natural
$sel:manifestProcessingRules:PutPlaybackConfiguration' :: PutPlaybackConfiguration -> Maybe ManifestProcessingRules
$sel:livePreRollConfiguration:PutPlaybackConfiguration' :: PutPlaybackConfiguration -> Maybe LivePreRollConfiguration
$sel:dashConfiguration:PutPlaybackConfiguration' :: PutPlaybackConfiguration -> Maybe DashConfigurationForPut
$sel:configurationAliases:PutPlaybackConfiguration' :: PutPlaybackConfiguration
-> Maybe (HashMap Text (HashMap Text Text))
$sel:cdnConfiguration:PutPlaybackConfiguration' :: PutPlaybackConfiguration -> Maybe CdnConfiguration
$sel:bumper:PutPlaybackConfiguration' :: PutPlaybackConfiguration -> Maybe Bumper
$sel:availSuppression:PutPlaybackConfiguration' :: PutPlaybackConfiguration -> Maybe AvailSuppression
$sel:adDecisionServerUrl:PutPlaybackConfiguration' :: PutPlaybackConfiguration -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
adDecisionServerUrl
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe AvailSuppression
availSuppression
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bumper
bumper
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe CdnConfiguration
cdnConfiguration
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (HashMap Text (HashMap Text Text))
configurationAliases
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe DashConfigurationForPut
dashConfiguration
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe LivePreRollConfiguration
livePreRollConfiguration
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ManifestProcessingRules
manifestProcessingRules
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
personalizationThresholdSeconds
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
slateAdUrl
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (HashMap Text Text)
tags
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
transcodeProfileName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
videoContentSourceUrl
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
name
instance Data.ToHeaders PutPlaybackConfiguration where
toHeaders :: PutPlaybackConfiguration -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON PutPlaybackConfiguration where
toJSON :: PutPlaybackConfiguration -> Value
toJSON PutPlaybackConfiguration' {Maybe Natural
Maybe Text
Maybe (HashMap Text Text)
Maybe (HashMap Text (HashMap Text Text))
Maybe Bumper
Maybe CdnConfiguration
Maybe LivePreRollConfiguration
Maybe ManifestProcessingRules
Maybe AvailSuppression
Maybe DashConfigurationForPut
Text
name :: Text
videoContentSourceUrl :: Maybe Text
transcodeProfileName :: Maybe Text
tags :: Maybe (HashMap Text Text)
slateAdUrl :: Maybe Text
personalizationThresholdSeconds :: Maybe Natural
manifestProcessingRules :: Maybe ManifestProcessingRules
livePreRollConfiguration :: Maybe LivePreRollConfiguration
dashConfiguration :: Maybe DashConfigurationForPut
configurationAliases :: Maybe (HashMap Text (HashMap Text Text))
cdnConfiguration :: Maybe CdnConfiguration
bumper :: Maybe Bumper
availSuppression :: Maybe AvailSuppression
adDecisionServerUrl :: Maybe Text
$sel:name:PutPlaybackConfiguration' :: PutPlaybackConfiguration -> Text
$sel:videoContentSourceUrl:PutPlaybackConfiguration' :: PutPlaybackConfiguration -> Maybe Text
$sel:transcodeProfileName:PutPlaybackConfiguration' :: PutPlaybackConfiguration -> Maybe Text
$sel:tags:PutPlaybackConfiguration' :: PutPlaybackConfiguration -> Maybe (HashMap Text Text)
$sel:slateAdUrl:PutPlaybackConfiguration' :: PutPlaybackConfiguration -> Maybe Text
$sel:personalizationThresholdSeconds:PutPlaybackConfiguration' :: PutPlaybackConfiguration -> Maybe Natural
$sel:manifestProcessingRules:PutPlaybackConfiguration' :: PutPlaybackConfiguration -> Maybe ManifestProcessingRules
$sel:livePreRollConfiguration:PutPlaybackConfiguration' :: PutPlaybackConfiguration -> Maybe LivePreRollConfiguration
$sel:dashConfiguration:PutPlaybackConfiguration' :: PutPlaybackConfiguration -> Maybe DashConfigurationForPut
$sel:configurationAliases:PutPlaybackConfiguration' :: PutPlaybackConfiguration
-> Maybe (HashMap Text (HashMap Text Text))
$sel:cdnConfiguration:PutPlaybackConfiguration' :: PutPlaybackConfiguration -> Maybe CdnConfiguration
$sel:bumper:PutPlaybackConfiguration' :: PutPlaybackConfiguration -> Maybe Bumper
$sel:availSuppression:PutPlaybackConfiguration' :: PutPlaybackConfiguration -> Maybe AvailSuppression
$sel:adDecisionServerUrl:PutPlaybackConfiguration' :: PutPlaybackConfiguration -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"AdDecisionServerUrl" 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
adDecisionServerUrl,
(Key
"AvailSuppression" 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 AvailSuppression
availSuppression,
(Key
"Bumper" 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 Bumper
bumper,
(Key
"CdnConfiguration" 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 CdnConfiguration
cdnConfiguration,
(Key
"ConfigurationAliases" 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 (HashMap Text Text))
configurationAliases,
(Key
"DashConfiguration" 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 DashConfigurationForPut
dashConfiguration,
(Key
"LivePreRollConfiguration" 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 LivePreRollConfiguration
livePreRollConfiguration,
(Key
"ManifestProcessingRules" 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 ManifestProcessingRules
manifestProcessingRules,
(Key
"PersonalizationThresholdSeconds" 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
personalizationThresholdSeconds,
(Key
"SlateAdUrl" 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
slateAdUrl,
(Key
"tags" 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 Text)
tags,
(Key
"TranscodeProfileName" 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
transcodeProfileName,
(Key
"VideoContentSourceUrl" 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
videoContentSourceUrl,
forall a. a -> Maybe a
Prelude.Just (Key
"Name" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
name)
]
)
instance Data.ToPath PutPlaybackConfiguration where
toPath :: PutPlaybackConfiguration -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/playbackConfiguration"
instance Data.ToQuery PutPlaybackConfiguration where
toQuery :: PutPlaybackConfiguration -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data PutPlaybackConfigurationResponse = PutPlaybackConfigurationResponse'
{
PutPlaybackConfigurationResponse -> Maybe Text
adDecisionServerUrl :: Prelude.Maybe Prelude.Text,
PutPlaybackConfigurationResponse -> Maybe AvailSuppression
availSuppression :: Prelude.Maybe AvailSuppression,
PutPlaybackConfigurationResponse -> Maybe Bumper
bumper :: Prelude.Maybe Bumper,
PutPlaybackConfigurationResponse -> Maybe CdnConfiguration
cdnConfiguration :: Prelude.Maybe CdnConfiguration,
PutPlaybackConfigurationResponse
-> Maybe (HashMap Text (HashMap Text Text))
configurationAliases :: Prelude.Maybe (Prelude.HashMap Prelude.Text (Prelude.HashMap Prelude.Text Prelude.Text)),
PutPlaybackConfigurationResponse -> Maybe DashConfiguration
dashConfiguration :: Prelude.Maybe DashConfiguration,
PutPlaybackConfigurationResponse -> Maybe HlsConfiguration
hlsConfiguration :: Prelude.Maybe HlsConfiguration,
PutPlaybackConfigurationResponse -> Maybe LivePreRollConfiguration
livePreRollConfiguration :: Prelude.Maybe LivePreRollConfiguration,
PutPlaybackConfigurationResponse -> Maybe LogConfiguration
logConfiguration :: Prelude.Maybe LogConfiguration,
PutPlaybackConfigurationResponse -> Maybe ManifestProcessingRules
manifestProcessingRules :: Prelude.Maybe ManifestProcessingRules,
PutPlaybackConfigurationResponse -> Maybe Text
name :: Prelude.Maybe Prelude.Text,
PutPlaybackConfigurationResponse -> Maybe Natural
personalizationThresholdSeconds :: Prelude.Maybe Prelude.Natural,
PutPlaybackConfigurationResponse -> Maybe Text
playbackConfigurationArn :: Prelude.Maybe Prelude.Text,
PutPlaybackConfigurationResponse -> Maybe Text
playbackEndpointPrefix :: Prelude.Maybe Prelude.Text,
PutPlaybackConfigurationResponse -> Maybe Text
sessionInitializationEndpointPrefix :: Prelude.Maybe Prelude.Text,
PutPlaybackConfigurationResponse -> Maybe Text
slateAdUrl :: Prelude.Maybe Prelude.Text,
PutPlaybackConfigurationResponse -> Maybe (HashMap Text Text)
tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
PutPlaybackConfigurationResponse -> Maybe Text
transcodeProfileName :: Prelude.Maybe Prelude.Text,
PutPlaybackConfigurationResponse -> Maybe Text
videoContentSourceUrl :: Prelude.Maybe Prelude.Text,
PutPlaybackConfigurationResponse -> Int
httpStatus :: Prelude.Int
}
deriving (PutPlaybackConfigurationResponse
-> PutPlaybackConfigurationResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PutPlaybackConfigurationResponse
-> PutPlaybackConfigurationResponse -> Bool
$c/= :: PutPlaybackConfigurationResponse
-> PutPlaybackConfigurationResponse -> Bool
== :: PutPlaybackConfigurationResponse
-> PutPlaybackConfigurationResponse -> Bool
$c== :: PutPlaybackConfigurationResponse
-> PutPlaybackConfigurationResponse -> Bool
Prelude.Eq, ReadPrec [PutPlaybackConfigurationResponse]
ReadPrec PutPlaybackConfigurationResponse
Int -> ReadS PutPlaybackConfigurationResponse
ReadS [PutPlaybackConfigurationResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [PutPlaybackConfigurationResponse]
$creadListPrec :: ReadPrec [PutPlaybackConfigurationResponse]
readPrec :: ReadPrec PutPlaybackConfigurationResponse
$creadPrec :: ReadPrec PutPlaybackConfigurationResponse
readList :: ReadS [PutPlaybackConfigurationResponse]
$creadList :: ReadS [PutPlaybackConfigurationResponse]
readsPrec :: Int -> ReadS PutPlaybackConfigurationResponse
$creadsPrec :: Int -> ReadS PutPlaybackConfigurationResponse
Prelude.Read, Int -> PutPlaybackConfigurationResponse -> ShowS
[PutPlaybackConfigurationResponse] -> ShowS
PutPlaybackConfigurationResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PutPlaybackConfigurationResponse] -> ShowS
$cshowList :: [PutPlaybackConfigurationResponse] -> ShowS
show :: PutPlaybackConfigurationResponse -> String
$cshow :: PutPlaybackConfigurationResponse -> String
showsPrec :: Int -> PutPlaybackConfigurationResponse -> ShowS
$cshowsPrec :: Int -> PutPlaybackConfigurationResponse -> ShowS
Prelude.Show, forall x.
Rep PutPlaybackConfigurationResponse x
-> PutPlaybackConfigurationResponse
forall x.
PutPlaybackConfigurationResponse
-> Rep PutPlaybackConfigurationResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep PutPlaybackConfigurationResponse x
-> PutPlaybackConfigurationResponse
$cfrom :: forall x.
PutPlaybackConfigurationResponse
-> Rep PutPlaybackConfigurationResponse x
Prelude.Generic)
newPutPlaybackConfigurationResponse ::
Prelude.Int ->
PutPlaybackConfigurationResponse
newPutPlaybackConfigurationResponse :: Int -> PutPlaybackConfigurationResponse
newPutPlaybackConfigurationResponse Int
pHttpStatus_ =
PutPlaybackConfigurationResponse'
{ $sel:adDecisionServerUrl:PutPlaybackConfigurationResponse' :: Maybe Text
adDecisionServerUrl =
forall a. Maybe a
Prelude.Nothing,
$sel:availSuppression:PutPlaybackConfigurationResponse' :: Maybe AvailSuppression
availSuppression = forall a. Maybe a
Prelude.Nothing,
$sel:bumper:PutPlaybackConfigurationResponse' :: Maybe Bumper
bumper = forall a. Maybe a
Prelude.Nothing,
$sel:cdnConfiguration:PutPlaybackConfigurationResponse' :: Maybe CdnConfiguration
cdnConfiguration = forall a. Maybe a
Prelude.Nothing,
$sel:configurationAliases:PutPlaybackConfigurationResponse' :: Maybe (HashMap Text (HashMap Text Text))
configurationAliases = forall a. Maybe a
Prelude.Nothing,
$sel:dashConfiguration:PutPlaybackConfigurationResponse' :: Maybe DashConfiguration
dashConfiguration = forall a. Maybe a
Prelude.Nothing,
$sel:hlsConfiguration:PutPlaybackConfigurationResponse' :: Maybe HlsConfiguration
hlsConfiguration = forall a. Maybe a
Prelude.Nothing,
$sel:livePreRollConfiguration:PutPlaybackConfigurationResponse' :: Maybe LivePreRollConfiguration
livePreRollConfiguration =
forall a. Maybe a
Prelude.Nothing,
$sel:logConfiguration:PutPlaybackConfigurationResponse' :: Maybe LogConfiguration
logConfiguration = forall a. Maybe a
Prelude.Nothing,
$sel:manifestProcessingRules:PutPlaybackConfigurationResponse' :: Maybe ManifestProcessingRules
manifestProcessingRules = forall a. Maybe a
Prelude.Nothing,
$sel:name:PutPlaybackConfigurationResponse' :: Maybe Text
name = forall a. Maybe a
Prelude.Nothing,
$sel:personalizationThresholdSeconds:PutPlaybackConfigurationResponse' :: Maybe Natural
personalizationThresholdSeconds =
forall a. Maybe a
Prelude.Nothing,
$sel:playbackConfigurationArn:PutPlaybackConfigurationResponse' :: Maybe Text
playbackConfigurationArn =
forall a. Maybe a
Prelude.Nothing,
$sel:playbackEndpointPrefix:PutPlaybackConfigurationResponse' :: Maybe Text
playbackEndpointPrefix = forall a. Maybe a
Prelude.Nothing,
$sel:sessionInitializationEndpointPrefix:PutPlaybackConfigurationResponse' :: Maybe Text
sessionInitializationEndpointPrefix =
forall a. Maybe a
Prelude.Nothing,
$sel:slateAdUrl:PutPlaybackConfigurationResponse' :: Maybe Text
slateAdUrl = forall a. Maybe a
Prelude.Nothing,
$sel:tags:PutPlaybackConfigurationResponse' :: Maybe (HashMap Text Text)
tags = forall a. Maybe a
Prelude.Nothing,
$sel:transcodeProfileName:PutPlaybackConfigurationResponse' :: Maybe Text
transcodeProfileName = forall a. Maybe a
Prelude.Nothing,
$sel:videoContentSourceUrl:PutPlaybackConfigurationResponse' :: Maybe Text
videoContentSourceUrl = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:PutPlaybackConfigurationResponse' :: Int
httpStatus = Int
pHttpStatus_
}
putPlaybackConfigurationResponse_adDecisionServerUrl :: Lens.Lens' PutPlaybackConfigurationResponse (Prelude.Maybe Prelude.Text)
putPlaybackConfigurationResponse_adDecisionServerUrl :: Lens' PutPlaybackConfigurationResponse (Maybe Text)
putPlaybackConfigurationResponse_adDecisionServerUrl = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutPlaybackConfigurationResponse' {Maybe Text
adDecisionServerUrl :: Maybe Text
$sel:adDecisionServerUrl:PutPlaybackConfigurationResponse' :: PutPlaybackConfigurationResponse -> Maybe Text
adDecisionServerUrl} -> Maybe Text
adDecisionServerUrl) (\s :: PutPlaybackConfigurationResponse
s@PutPlaybackConfigurationResponse' {} Maybe Text
a -> PutPlaybackConfigurationResponse
s {$sel:adDecisionServerUrl:PutPlaybackConfigurationResponse' :: Maybe Text
adDecisionServerUrl = Maybe Text
a} :: PutPlaybackConfigurationResponse)
putPlaybackConfigurationResponse_availSuppression :: Lens.Lens' PutPlaybackConfigurationResponse (Prelude.Maybe AvailSuppression)
putPlaybackConfigurationResponse_availSuppression :: Lens' PutPlaybackConfigurationResponse (Maybe AvailSuppression)
putPlaybackConfigurationResponse_availSuppression = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutPlaybackConfigurationResponse' {Maybe AvailSuppression
availSuppression :: Maybe AvailSuppression
$sel:availSuppression:PutPlaybackConfigurationResponse' :: PutPlaybackConfigurationResponse -> Maybe AvailSuppression
availSuppression} -> Maybe AvailSuppression
availSuppression) (\s :: PutPlaybackConfigurationResponse
s@PutPlaybackConfigurationResponse' {} Maybe AvailSuppression
a -> PutPlaybackConfigurationResponse
s {$sel:availSuppression:PutPlaybackConfigurationResponse' :: Maybe AvailSuppression
availSuppression = Maybe AvailSuppression
a} :: PutPlaybackConfigurationResponse)
putPlaybackConfigurationResponse_bumper :: Lens.Lens' PutPlaybackConfigurationResponse (Prelude.Maybe Bumper)
putPlaybackConfigurationResponse_bumper :: Lens' PutPlaybackConfigurationResponse (Maybe Bumper)
putPlaybackConfigurationResponse_bumper = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutPlaybackConfigurationResponse' {Maybe Bumper
bumper :: Maybe Bumper
$sel:bumper:PutPlaybackConfigurationResponse' :: PutPlaybackConfigurationResponse -> Maybe Bumper
bumper} -> Maybe Bumper
bumper) (\s :: PutPlaybackConfigurationResponse
s@PutPlaybackConfigurationResponse' {} Maybe Bumper
a -> PutPlaybackConfigurationResponse
s {$sel:bumper:PutPlaybackConfigurationResponse' :: Maybe Bumper
bumper = Maybe Bumper
a} :: PutPlaybackConfigurationResponse)
putPlaybackConfigurationResponse_cdnConfiguration :: Lens.Lens' PutPlaybackConfigurationResponse (Prelude.Maybe CdnConfiguration)
putPlaybackConfigurationResponse_cdnConfiguration :: Lens' PutPlaybackConfigurationResponse (Maybe CdnConfiguration)
putPlaybackConfigurationResponse_cdnConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutPlaybackConfigurationResponse' {Maybe CdnConfiguration
cdnConfiguration :: Maybe CdnConfiguration
$sel:cdnConfiguration:PutPlaybackConfigurationResponse' :: PutPlaybackConfigurationResponse -> Maybe CdnConfiguration
cdnConfiguration} -> Maybe CdnConfiguration
cdnConfiguration) (\s :: PutPlaybackConfigurationResponse
s@PutPlaybackConfigurationResponse' {} Maybe CdnConfiguration
a -> PutPlaybackConfigurationResponse
s {$sel:cdnConfiguration:PutPlaybackConfigurationResponse' :: Maybe CdnConfiguration
cdnConfiguration = Maybe CdnConfiguration
a} :: PutPlaybackConfigurationResponse)
putPlaybackConfigurationResponse_configurationAliases :: Lens.Lens' PutPlaybackConfigurationResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text (Prelude.HashMap Prelude.Text Prelude.Text)))
putPlaybackConfigurationResponse_configurationAliases :: Lens'
PutPlaybackConfigurationResponse
(Maybe (HashMap Text (HashMap Text Text)))
putPlaybackConfigurationResponse_configurationAliases = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutPlaybackConfigurationResponse' {Maybe (HashMap Text (HashMap Text Text))
configurationAliases :: Maybe (HashMap Text (HashMap Text Text))
$sel:configurationAliases:PutPlaybackConfigurationResponse' :: PutPlaybackConfigurationResponse
-> Maybe (HashMap Text (HashMap Text Text))
configurationAliases} -> Maybe (HashMap Text (HashMap Text Text))
configurationAliases) (\s :: PutPlaybackConfigurationResponse
s@PutPlaybackConfigurationResponse' {} Maybe (HashMap Text (HashMap Text Text))
a -> PutPlaybackConfigurationResponse
s {$sel:configurationAliases:PutPlaybackConfigurationResponse' :: Maybe (HashMap Text (HashMap Text Text))
configurationAliases = Maybe (HashMap Text (HashMap Text Text))
a} :: PutPlaybackConfigurationResponse) 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
putPlaybackConfigurationResponse_dashConfiguration :: Lens.Lens' PutPlaybackConfigurationResponse (Prelude.Maybe DashConfiguration)
putPlaybackConfigurationResponse_dashConfiguration :: Lens' PutPlaybackConfigurationResponse (Maybe DashConfiguration)
putPlaybackConfigurationResponse_dashConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutPlaybackConfigurationResponse' {Maybe DashConfiguration
dashConfiguration :: Maybe DashConfiguration
$sel:dashConfiguration:PutPlaybackConfigurationResponse' :: PutPlaybackConfigurationResponse -> Maybe DashConfiguration
dashConfiguration} -> Maybe DashConfiguration
dashConfiguration) (\s :: PutPlaybackConfigurationResponse
s@PutPlaybackConfigurationResponse' {} Maybe DashConfiguration
a -> PutPlaybackConfigurationResponse
s {$sel:dashConfiguration:PutPlaybackConfigurationResponse' :: Maybe DashConfiguration
dashConfiguration = Maybe DashConfiguration
a} :: PutPlaybackConfigurationResponse)
putPlaybackConfigurationResponse_hlsConfiguration :: Lens.Lens' PutPlaybackConfigurationResponse (Prelude.Maybe HlsConfiguration)
putPlaybackConfigurationResponse_hlsConfiguration :: Lens' PutPlaybackConfigurationResponse (Maybe HlsConfiguration)
putPlaybackConfigurationResponse_hlsConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutPlaybackConfigurationResponse' {Maybe HlsConfiguration
hlsConfiguration :: Maybe HlsConfiguration
$sel:hlsConfiguration:PutPlaybackConfigurationResponse' :: PutPlaybackConfigurationResponse -> Maybe HlsConfiguration
hlsConfiguration} -> Maybe HlsConfiguration
hlsConfiguration) (\s :: PutPlaybackConfigurationResponse
s@PutPlaybackConfigurationResponse' {} Maybe HlsConfiguration
a -> PutPlaybackConfigurationResponse
s {$sel:hlsConfiguration:PutPlaybackConfigurationResponse' :: Maybe HlsConfiguration
hlsConfiguration = Maybe HlsConfiguration
a} :: PutPlaybackConfigurationResponse)
putPlaybackConfigurationResponse_livePreRollConfiguration :: Lens.Lens' PutPlaybackConfigurationResponse (Prelude.Maybe LivePreRollConfiguration)
putPlaybackConfigurationResponse_livePreRollConfiguration :: Lens'
PutPlaybackConfigurationResponse (Maybe LivePreRollConfiguration)
putPlaybackConfigurationResponse_livePreRollConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutPlaybackConfigurationResponse' {Maybe LivePreRollConfiguration
livePreRollConfiguration :: Maybe LivePreRollConfiguration
$sel:livePreRollConfiguration:PutPlaybackConfigurationResponse' :: PutPlaybackConfigurationResponse -> Maybe LivePreRollConfiguration
livePreRollConfiguration} -> Maybe LivePreRollConfiguration
livePreRollConfiguration) (\s :: PutPlaybackConfigurationResponse
s@PutPlaybackConfigurationResponse' {} Maybe LivePreRollConfiguration
a -> PutPlaybackConfigurationResponse
s {$sel:livePreRollConfiguration:PutPlaybackConfigurationResponse' :: Maybe LivePreRollConfiguration
livePreRollConfiguration = Maybe LivePreRollConfiguration
a} :: PutPlaybackConfigurationResponse)
putPlaybackConfigurationResponse_logConfiguration :: Lens.Lens' PutPlaybackConfigurationResponse (Prelude.Maybe LogConfiguration)
putPlaybackConfigurationResponse_logConfiguration :: Lens' PutPlaybackConfigurationResponse (Maybe LogConfiguration)
putPlaybackConfigurationResponse_logConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutPlaybackConfigurationResponse' {Maybe LogConfiguration
logConfiguration :: Maybe LogConfiguration
$sel:logConfiguration:PutPlaybackConfigurationResponse' :: PutPlaybackConfigurationResponse -> Maybe LogConfiguration
logConfiguration} -> Maybe LogConfiguration
logConfiguration) (\s :: PutPlaybackConfigurationResponse
s@PutPlaybackConfigurationResponse' {} Maybe LogConfiguration
a -> PutPlaybackConfigurationResponse
s {$sel:logConfiguration:PutPlaybackConfigurationResponse' :: Maybe LogConfiguration
logConfiguration = Maybe LogConfiguration
a} :: PutPlaybackConfigurationResponse)
putPlaybackConfigurationResponse_manifestProcessingRules :: Lens.Lens' PutPlaybackConfigurationResponse (Prelude.Maybe ManifestProcessingRules)
putPlaybackConfigurationResponse_manifestProcessingRules :: Lens'
PutPlaybackConfigurationResponse (Maybe ManifestProcessingRules)
putPlaybackConfigurationResponse_manifestProcessingRules = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutPlaybackConfigurationResponse' {Maybe ManifestProcessingRules
manifestProcessingRules :: Maybe ManifestProcessingRules
$sel:manifestProcessingRules:PutPlaybackConfigurationResponse' :: PutPlaybackConfigurationResponse -> Maybe ManifestProcessingRules
manifestProcessingRules} -> Maybe ManifestProcessingRules
manifestProcessingRules) (\s :: PutPlaybackConfigurationResponse
s@PutPlaybackConfigurationResponse' {} Maybe ManifestProcessingRules
a -> PutPlaybackConfigurationResponse
s {$sel:manifestProcessingRules:PutPlaybackConfigurationResponse' :: Maybe ManifestProcessingRules
manifestProcessingRules = Maybe ManifestProcessingRules
a} :: PutPlaybackConfigurationResponse)
putPlaybackConfigurationResponse_name :: Lens.Lens' PutPlaybackConfigurationResponse (Prelude.Maybe Prelude.Text)
putPlaybackConfigurationResponse_name :: Lens' PutPlaybackConfigurationResponse (Maybe Text)
putPlaybackConfigurationResponse_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutPlaybackConfigurationResponse' {Maybe Text
name :: Maybe Text
$sel:name:PutPlaybackConfigurationResponse' :: PutPlaybackConfigurationResponse -> Maybe Text
name} -> Maybe Text
name) (\s :: PutPlaybackConfigurationResponse
s@PutPlaybackConfigurationResponse' {} Maybe Text
a -> PutPlaybackConfigurationResponse
s {$sel:name:PutPlaybackConfigurationResponse' :: Maybe Text
name = Maybe Text
a} :: PutPlaybackConfigurationResponse)
putPlaybackConfigurationResponse_personalizationThresholdSeconds :: Lens.Lens' PutPlaybackConfigurationResponse (Prelude.Maybe Prelude.Natural)
putPlaybackConfigurationResponse_personalizationThresholdSeconds :: Lens' PutPlaybackConfigurationResponse (Maybe Natural)
putPlaybackConfigurationResponse_personalizationThresholdSeconds = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutPlaybackConfigurationResponse' {Maybe Natural
personalizationThresholdSeconds :: Maybe Natural
$sel:personalizationThresholdSeconds:PutPlaybackConfigurationResponse' :: PutPlaybackConfigurationResponse -> Maybe Natural
personalizationThresholdSeconds} -> Maybe Natural
personalizationThresholdSeconds) (\s :: PutPlaybackConfigurationResponse
s@PutPlaybackConfigurationResponse' {} Maybe Natural
a -> PutPlaybackConfigurationResponse
s {$sel:personalizationThresholdSeconds:PutPlaybackConfigurationResponse' :: Maybe Natural
personalizationThresholdSeconds = Maybe Natural
a} :: PutPlaybackConfigurationResponse)
putPlaybackConfigurationResponse_playbackConfigurationArn :: Lens.Lens' PutPlaybackConfigurationResponse (Prelude.Maybe Prelude.Text)
putPlaybackConfigurationResponse_playbackConfigurationArn :: Lens' PutPlaybackConfigurationResponse (Maybe Text)
putPlaybackConfigurationResponse_playbackConfigurationArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutPlaybackConfigurationResponse' {Maybe Text
playbackConfigurationArn :: Maybe Text
$sel:playbackConfigurationArn:PutPlaybackConfigurationResponse' :: PutPlaybackConfigurationResponse -> Maybe Text
playbackConfigurationArn} -> Maybe Text
playbackConfigurationArn) (\s :: PutPlaybackConfigurationResponse
s@PutPlaybackConfigurationResponse' {} Maybe Text
a -> PutPlaybackConfigurationResponse
s {$sel:playbackConfigurationArn:PutPlaybackConfigurationResponse' :: Maybe Text
playbackConfigurationArn = Maybe Text
a} :: PutPlaybackConfigurationResponse)
putPlaybackConfigurationResponse_playbackEndpointPrefix :: Lens.Lens' PutPlaybackConfigurationResponse (Prelude.Maybe Prelude.Text)
putPlaybackConfigurationResponse_playbackEndpointPrefix :: Lens' PutPlaybackConfigurationResponse (Maybe Text)
putPlaybackConfigurationResponse_playbackEndpointPrefix = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutPlaybackConfigurationResponse' {Maybe Text
playbackEndpointPrefix :: Maybe Text
$sel:playbackEndpointPrefix:PutPlaybackConfigurationResponse' :: PutPlaybackConfigurationResponse -> Maybe Text
playbackEndpointPrefix} -> Maybe Text
playbackEndpointPrefix) (\s :: PutPlaybackConfigurationResponse
s@PutPlaybackConfigurationResponse' {} Maybe Text
a -> PutPlaybackConfigurationResponse
s {$sel:playbackEndpointPrefix:PutPlaybackConfigurationResponse' :: Maybe Text
playbackEndpointPrefix = Maybe Text
a} :: PutPlaybackConfigurationResponse)
putPlaybackConfigurationResponse_sessionInitializationEndpointPrefix :: Lens.Lens' PutPlaybackConfigurationResponse (Prelude.Maybe Prelude.Text)
putPlaybackConfigurationResponse_sessionInitializationEndpointPrefix :: Lens' PutPlaybackConfigurationResponse (Maybe Text)
putPlaybackConfigurationResponse_sessionInitializationEndpointPrefix = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutPlaybackConfigurationResponse' {Maybe Text
sessionInitializationEndpointPrefix :: Maybe Text
$sel:sessionInitializationEndpointPrefix:PutPlaybackConfigurationResponse' :: PutPlaybackConfigurationResponse -> Maybe Text
sessionInitializationEndpointPrefix} -> Maybe Text
sessionInitializationEndpointPrefix) (\s :: PutPlaybackConfigurationResponse
s@PutPlaybackConfigurationResponse' {} Maybe Text
a -> PutPlaybackConfigurationResponse
s {$sel:sessionInitializationEndpointPrefix:PutPlaybackConfigurationResponse' :: Maybe Text
sessionInitializationEndpointPrefix = Maybe Text
a} :: PutPlaybackConfigurationResponse)
putPlaybackConfigurationResponse_slateAdUrl :: Lens.Lens' PutPlaybackConfigurationResponse (Prelude.Maybe Prelude.Text)
putPlaybackConfigurationResponse_slateAdUrl :: Lens' PutPlaybackConfigurationResponse (Maybe Text)
putPlaybackConfigurationResponse_slateAdUrl = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutPlaybackConfigurationResponse' {Maybe Text
slateAdUrl :: Maybe Text
$sel:slateAdUrl:PutPlaybackConfigurationResponse' :: PutPlaybackConfigurationResponse -> Maybe Text
slateAdUrl} -> Maybe Text
slateAdUrl) (\s :: PutPlaybackConfigurationResponse
s@PutPlaybackConfigurationResponse' {} Maybe Text
a -> PutPlaybackConfigurationResponse
s {$sel:slateAdUrl:PutPlaybackConfigurationResponse' :: Maybe Text
slateAdUrl = Maybe Text
a} :: PutPlaybackConfigurationResponse)
putPlaybackConfigurationResponse_tags :: Lens.Lens' PutPlaybackConfigurationResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
putPlaybackConfigurationResponse_tags :: Lens' PutPlaybackConfigurationResponse (Maybe (HashMap Text Text))
putPlaybackConfigurationResponse_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutPlaybackConfigurationResponse' {Maybe (HashMap Text Text)
tags :: Maybe (HashMap Text Text)
$sel:tags:PutPlaybackConfigurationResponse' :: PutPlaybackConfigurationResponse -> Maybe (HashMap Text Text)
tags} -> Maybe (HashMap Text Text)
tags) (\s :: PutPlaybackConfigurationResponse
s@PutPlaybackConfigurationResponse' {} Maybe (HashMap Text Text)
a -> PutPlaybackConfigurationResponse
s {$sel:tags:PutPlaybackConfigurationResponse' :: Maybe (HashMap Text Text)
tags = Maybe (HashMap Text Text)
a} :: PutPlaybackConfigurationResponse) 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
putPlaybackConfigurationResponse_transcodeProfileName :: Lens.Lens' PutPlaybackConfigurationResponse (Prelude.Maybe Prelude.Text)
putPlaybackConfigurationResponse_transcodeProfileName :: Lens' PutPlaybackConfigurationResponse (Maybe Text)
putPlaybackConfigurationResponse_transcodeProfileName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutPlaybackConfigurationResponse' {Maybe Text
transcodeProfileName :: Maybe Text
$sel:transcodeProfileName:PutPlaybackConfigurationResponse' :: PutPlaybackConfigurationResponse -> Maybe Text
transcodeProfileName} -> Maybe Text
transcodeProfileName) (\s :: PutPlaybackConfigurationResponse
s@PutPlaybackConfigurationResponse' {} Maybe Text
a -> PutPlaybackConfigurationResponse
s {$sel:transcodeProfileName:PutPlaybackConfigurationResponse' :: Maybe Text
transcodeProfileName = Maybe Text
a} :: PutPlaybackConfigurationResponse)
putPlaybackConfigurationResponse_videoContentSourceUrl :: Lens.Lens' PutPlaybackConfigurationResponse (Prelude.Maybe Prelude.Text)
putPlaybackConfigurationResponse_videoContentSourceUrl :: Lens' PutPlaybackConfigurationResponse (Maybe Text)
putPlaybackConfigurationResponse_videoContentSourceUrl = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutPlaybackConfigurationResponse' {Maybe Text
videoContentSourceUrl :: Maybe Text
$sel:videoContentSourceUrl:PutPlaybackConfigurationResponse' :: PutPlaybackConfigurationResponse -> Maybe Text
videoContentSourceUrl} -> Maybe Text
videoContentSourceUrl) (\s :: PutPlaybackConfigurationResponse
s@PutPlaybackConfigurationResponse' {} Maybe Text
a -> PutPlaybackConfigurationResponse
s {$sel:videoContentSourceUrl:PutPlaybackConfigurationResponse' :: Maybe Text
videoContentSourceUrl = Maybe Text
a} :: PutPlaybackConfigurationResponse)
putPlaybackConfigurationResponse_httpStatus :: Lens.Lens' PutPlaybackConfigurationResponse Prelude.Int
putPlaybackConfigurationResponse_httpStatus :: Lens' PutPlaybackConfigurationResponse Int
putPlaybackConfigurationResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutPlaybackConfigurationResponse' {Int
httpStatus :: Int
$sel:httpStatus:PutPlaybackConfigurationResponse' :: PutPlaybackConfigurationResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: PutPlaybackConfigurationResponse
s@PutPlaybackConfigurationResponse' {} Int
a -> PutPlaybackConfigurationResponse
s {$sel:httpStatus:PutPlaybackConfigurationResponse' :: Int
httpStatus = Int
a} :: PutPlaybackConfigurationResponse)
instance
Prelude.NFData
PutPlaybackConfigurationResponse
where
rnf :: PutPlaybackConfigurationResponse -> ()
rnf PutPlaybackConfigurationResponse' {Int
Maybe Natural
Maybe Text
Maybe (HashMap Text Text)
Maybe (HashMap Text (HashMap Text Text))
Maybe Bumper
Maybe CdnConfiguration
Maybe HlsConfiguration
Maybe LivePreRollConfiguration
Maybe LogConfiguration
Maybe ManifestProcessingRules
Maybe AvailSuppression
Maybe DashConfiguration
httpStatus :: Int
videoContentSourceUrl :: Maybe Text
transcodeProfileName :: Maybe Text
tags :: Maybe (HashMap Text Text)
slateAdUrl :: Maybe Text
sessionInitializationEndpointPrefix :: Maybe Text
playbackEndpointPrefix :: Maybe Text
playbackConfigurationArn :: Maybe Text
personalizationThresholdSeconds :: Maybe Natural
name :: Maybe Text
manifestProcessingRules :: Maybe ManifestProcessingRules
logConfiguration :: Maybe LogConfiguration
livePreRollConfiguration :: Maybe LivePreRollConfiguration
hlsConfiguration :: Maybe HlsConfiguration
dashConfiguration :: Maybe DashConfiguration
configurationAliases :: Maybe (HashMap Text (HashMap Text Text))
cdnConfiguration :: Maybe CdnConfiguration
bumper :: Maybe Bumper
availSuppression :: Maybe AvailSuppression
adDecisionServerUrl :: Maybe Text
$sel:httpStatus:PutPlaybackConfigurationResponse' :: PutPlaybackConfigurationResponse -> Int
$sel:videoContentSourceUrl:PutPlaybackConfigurationResponse' :: PutPlaybackConfigurationResponse -> Maybe Text
$sel:transcodeProfileName:PutPlaybackConfigurationResponse' :: PutPlaybackConfigurationResponse -> Maybe Text
$sel:tags:PutPlaybackConfigurationResponse' :: PutPlaybackConfigurationResponse -> Maybe (HashMap Text Text)
$sel:slateAdUrl:PutPlaybackConfigurationResponse' :: PutPlaybackConfigurationResponse -> Maybe Text
$sel:sessionInitializationEndpointPrefix:PutPlaybackConfigurationResponse' :: PutPlaybackConfigurationResponse -> Maybe Text
$sel:playbackEndpointPrefix:PutPlaybackConfigurationResponse' :: PutPlaybackConfigurationResponse -> Maybe Text
$sel:playbackConfigurationArn:PutPlaybackConfigurationResponse' :: PutPlaybackConfigurationResponse -> Maybe Text
$sel:personalizationThresholdSeconds:PutPlaybackConfigurationResponse' :: PutPlaybackConfigurationResponse -> Maybe Natural
$sel:name:PutPlaybackConfigurationResponse' :: PutPlaybackConfigurationResponse -> Maybe Text
$sel:manifestProcessingRules:PutPlaybackConfigurationResponse' :: PutPlaybackConfigurationResponse -> Maybe ManifestProcessingRules
$sel:logConfiguration:PutPlaybackConfigurationResponse' :: PutPlaybackConfigurationResponse -> Maybe LogConfiguration
$sel:livePreRollConfiguration:PutPlaybackConfigurationResponse' :: PutPlaybackConfigurationResponse -> Maybe LivePreRollConfiguration
$sel:hlsConfiguration:PutPlaybackConfigurationResponse' :: PutPlaybackConfigurationResponse -> Maybe HlsConfiguration
$sel:dashConfiguration:PutPlaybackConfigurationResponse' :: PutPlaybackConfigurationResponse -> Maybe DashConfiguration
$sel:configurationAliases:PutPlaybackConfigurationResponse' :: PutPlaybackConfigurationResponse
-> Maybe (HashMap Text (HashMap Text Text))
$sel:cdnConfiguration:PutPlaybackConfigurationResponse' :: PutPlaybackConfigurationResponse -> Maybe CdnConfiguration
$sel:bumper:PutPlaybackConfigurationResponse' :: PutPlaybackConfigurationResponse -> Maybe Bumper
$sel:availSuppression:PutPlaybackConfigurationResponse' :: PutPlaybackConfigurationResponse -> Maybe AvailSuppression
$sel:adDecisionServerUrl:PutPlaybackConfigurationResponse' :: PutPlaybackConfigurationResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
adDecisionServerUrl
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe AvailSuppression
availSuppression
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bumper
bumper
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe CdnConfiguration
cdnConfiguration
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (HashMap Text (HashMap Text Text))
configurationAliases
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe DashConfiguration
dashConfiguration
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe HlsConfiguration
hlsConfiguration
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe LivePreRollConfiguration
livePreRollConfiguration
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe LogConfiguration
logConfiguration
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ManifestProcessingRules
manifestProcessingRules
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
name
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
personalizationThresholdSeconds
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
playbackConfigurationArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
playbackEndpointPrefix
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Maybe Text
sessionInitializationEndpointPrefix
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
slateAdUrl
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (HashMap Text Text)
tags
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
transcodeProfileName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Maybe Text
videoContentSourceUrl
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus