{-# 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.CreateProgram
(
CreateProgram (..),
newCreateProgram,
createProgram_adBreaks,
createProgram_liveSourceName,
createProgram_vodSourceName,
createProgram_channelName,
createProgram_programName,
createProgram_scheduleConfiguration,
createProgram_sourceLocationName,
CreateProgramResponse (..),
newCreateProgramResponse,
createProgramResponse_adBreaks,
createProgramResponse_arn,
createProgramResponse_channelName,
createProgramResponse_creationTime,
createProgramResponse_liveSourceName,
createProgramResponse_programName,
createProgramResponse_scheduledStartTime,
createProgramResponse_sourceLocationName,
createProgramResponse_vodSourceName,
createProgramResponse_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 CreateProgram = CreateProgram'
{
CreateProgram -> Maybe [AdBreak]
adBreaks :: Prelude.Maybe [AdBreak],
CreateProgram -> Maybe Text
liveSourceName :: Prelude.Maybe Prelude.Text,
CreateProgram -> Maybe Text
vodSourceName :: Prelude.Maybe Prelude.Text,
CreateProgram -> Text
channelName :: Prelude.Text,
CreateProgram -> Text
programName :: Prelude.Text,
CreateProgram -> ScheduleConfiguration
scheduleConfiguration :: ScheduleConfiguration,
CreateProgram -> Text
sourceLocationName :: Prelude.Text
}
deriving (CreateProgram -> CreateProgram -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateProgram -> CreateProgram -> Bool
$c/= :: CreateProgram -> CreateProgram -> Bool
== :: CreateProgram -> CreateProgram -> Bool
$c== :: CreateProgram -> CreateProgram -> Bool
Prelude.Eq, ReadPrec [CreateProgram]
ReadPrec CreateProgram
Int -> ReadS CreateProgram
ReadS [CreateProgram]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateProgram]
$creadListPrec :: ReadPrec [CreateProgram]
readPrec :: ReadPrec CreateProgram
$creadPrec :: ReadPrec CreateProgram
readList :: ReadS [CreateProgram]
$creadList :: ReadS [CreateProgram]
readsPrec :: Int -> ReadS CreateProgram
$creadsPrec :: Int -> ReadS CreateProgram
Prelude.Read, Int -> CreateProgram -> ShowS
[CreateProgram] -> ShowS
CreateProgram -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateProgram] -> ShowS
$cshowList :: [CreateProgram] -> ShowS
show :: CreateProgram -> String
$cshow :: CreateProgram -> String
showsPrec :: Int -> CreateProgram -> ShowS
$cshowsPrec :: Int -> CreateProgram -> ShowS
Prelude.Show, forall x. Rep CreateProgram x -> CreateProgram
forall x. CreateProgram -> Rep CreateProgram x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateProgram x -> CreateProgram
$cfrom :: forall x. CreateProgram -> Rep CreateProgram x
Prelude.Generic)
newCreateProgram ::
Prelude.Text ->
Prelude.Text ->
ScheduleConfiguration ->
Prelude.Text ->
CreateProgram
newCreateProgram :: Text -> Text -> ScheduleConfiguration -> Text -> CreateProgram
newCreateProgram
Text
pChannelName_
Text
pProgramName_
ScheduleConfiguration
pScheduleConfiguration_
Text
pSourceLocationName_ =
CreateProgram'
{ $sel:adBreaks:CreateProgram' :: Maybe [AdBreak]
adBreaks = forall a. Maybe a
Prelude.Nothing,
$sel:liveSourceName:CreateProgram' :: Maybe Text
liveSourceName = forall a. Maybe a
Prelude.Nothing,
$sel:vodSourceName:CreateProgram' :: Maybe Text
vodSourceName = forall a. Maybe a
Prelude.Nothing,
$sel:channelName:CreateProgram' :: Text
channelName = Text
pChannelName_,
$sel:programName:CreateProgram' :: Text
programName = Text
pProgramName_,
$sel:scheduleConfiguration:CreateProgram' :: ScheduleConfiguration
scheduleConfiguration = ScheduleConfiguration
pScheduleConfiguration_,
$sel:sourceLocationName:CreateProgram' :: Text
sourceLocationName = Text
pSourceLocationName_
}
createProgram_adBreaks :: Lens.Lens' CreateProgram (Prelude.Maybe [AdBreak])
createProgram_adBreaks :: Lens' CreateProgram (Maybe [AdBreak])
createProgram_adBreaks = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateProgram' {Maybe [AdBreak]
adBreaks :: Maybe [AdBreak]
$sel:adBreaks:CreateProgram' :: CreateProgram -> Maybe [AdBreak]
adBreaks} -> Maybe [AdBreak]
adBreaks) (\s :: CreateProgram
s@CreateProgram' {} Maybe [AdBreak]
a -> CreateProgram
s {$sel:adBreaks:CreateProgram' :: Maybe [AdBreak]
adBreaks = Maybe [AdBreak]
a} :: CreateProgram) 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
createProgram_liveSourceName :: Lens.Lens' CreateProgram (Prelude.Maybe Prelude.Text)
createProgram_liveSourceName :: Lens' CreateProgram (Maybe Text)
createProgram_liveSourceName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateProgram' {Maybe Text
liveSourceName :: Maybe Text
$sel:liveSourceName:CreateProgram' :: CreateProgram -> Maybe Text
liveSourceName} -> Maybe Text
liveSourceName) (\s :: CreateProgram
s@CreateProgram' {} Maybe Text
a -> CreateProgram
s {$sel:liveSourceName:CreateProgram' :: Maybe Text
liveSourceName = Maybe Text
a} :: CreateProgram)
createProgram_vodSourceName :: Lens.Lens' CreateProgram (Prelude.Maybe Prelude.Text)
createProgram_vodSourceName :: Lens' CreateProgram (Maybe Text)
createProgram_vodSourceName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateProgram' {Maybe Text
vodSourceName :: Maybe Text
$sel:vodSourceName:CreateProgram' :: CreateProgram -> Maybe Text
vodSourceName} -> Maybe Text
vodSourceName) (\s :: CreateProgram
s@CreateProgram' {} Maybe Text
a -> CreateProgram
s {$sel:vodSourceName:CreateProgram' :: Maybe Text
vodSourceName = Maybe Text
a} :: CreateProgram)
createProgram_channelName :: Lens.Lens' CreateProgram Prelude.Text
createProgram_channelName :: Lens' CreateProgram Text
createProgram_channelName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateProgram' {Text
channelName :: Text
$sel:channelName:CreateProgram' :: CreateProgram -> Text
channelName} -> Text
channelName) (\s :: CreateProgram
s@CreateProgram' {} Text
a -> CreateProgram
s {$sel:channelName:CreateProgram' :: Text
channelName = Text
a} :: CreateProgram)
createProgram_programName :: Lens.Lens' CreateProgram Prelude.Text
createProgram_programName :: Lens' CreateProgram Text
createProgram_programName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateProgram' {Text
programName :: Text
$sel:programName:CreateProgram' :: CreateProgram -> Text
programName} -> Text
programName) (\s :: CreateProgram
s@CreateProgram' {} Text
a -> CreateProgram
s {$sel:programName:CreateProgram' :: Text
programName = Text
a} :: CreateProgram)
createProgram_scheduleConfiguration :: Lens.Lens' CreateProgram ScheduleConfiguration
createProgram_scheduleConfiguration :: Lens' CreateProgram ScheduleConfiguration
createProgram_scheduleConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateProgram' {ScheduleConfiguration
scheduleConfiguration :: ScheduleConfiguration
$sel:scheduleConfiguration:CreateProgram' :: CreateProgram -> ScheduleConfiguration
scheduleConfiguration} -> ScheduleConfiguration
scheduleConfiguration) (\s :: CreateProgram
s@CreateProgram' {} ScheduleConfiguration
a -> CreateProgram
s {$sel:scheduleConfiguration:CreateProgram' :: ScheduleConfiguration
scheduleConfiguration = ScheduleConfiguration
a} :: CreateProgram)
createProgram_sourceLocationName :: Lens.Lens' CreateProgram Prelude.Text
createProgram_sourceLocationName :: Lens' CreateProgram Text
createProgram_sourceLocationName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateProgram' {Text
sourceLocationName :: Text
$sel:sourceLocationName:CreateProgram' :: CreateProgram -> Text
sourceLocationName} -> Text
sourceLocationName) (\s :: CreateProgram
s@CreateProgram' {} Text
a -> CreateProgram
s {$sel:sourceLocationName:CreateProgram' :: Text
sourceLocationName = Text
a} :: CreateProgram)
instance Core.AWSRequest CreateProgram where
type
AWSResponse CreateProgram =
CreateProgramResponse
request :: (Service -> Service) -> CreateProgram -> Request CreateProgram
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy CreateProgram
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse CreateProgram)))
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 [AdBreak]
-> Maybe Text
-> Maybe Text
-> Maybe POSIX
-> Maybe Text
-> Maybe Text
-> Maybe POSIX
-> Maybe Text
-> Maybe Text
-> Int
-> CreateProgramResponse
CreateProgramResponse'
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
"AdBreaks" 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
"Arn")
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
"ChannelName")
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
"CreationTime")
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
"LiveSourceName")
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
"ProgramName")
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
"ScheduledStartTime")
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
"SourceLocationName")
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
"VodSourceName")
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 CreateProgram where
hashWithSalt :: Int -> CreateProgram -> Int
hashWithSalt Int
_salt CreateProgram' {Maybe [AdBreak]
Maybe Text
Text
ScheduleConfiguration
sourceLocationName :: Text
scheduleConfiguration :: ScheduleConfiguration
programName :: Text
channelName :: Text
vodSourceName :: Maybe Text
liveSourceName :: Maybe Text
adBreaks :: Maybe [AdBreak]
$sel:sourceLocationName:CreateProgram' :: CreateProgram -> Text
$sel:scheduleConfiguration:CreateProgram' :: CreateProgram -> ScheduleConfiguration
$sel:programName:CreateProgram' :: CreateProgram -> Text
$sel:channelName:CreateProgram' :: CreateProgram -> Text
$sel:vodSourceName:CreateProgram' :: CreateProgram -> Maybe Text
$sel:liveSourceName:CreateProgram' :: CreateProgram -> Maybe Text
$sel:adBreaks:CreateProgram' :: CreateProgram -> Maybe [AdBreak]
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [AdBreak]
adBreaks
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
liveSourceName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
vodSourceName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
channelName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
programName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` ScheduleConfiguration
scheduleConfiguration
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
sourceLocationName
instance Prelude.NFData CreateProgram where
rnf :: CreateProgram -> ()
rnf CreateProgram' {Maybe [AdBreak]
Maybe Text
Text
ScheduleConfiguration
sourceLocationName :: Text
scheduleConfiguration :: ScheduleConfiguration
programName :: Text
channelName :: Text
vodSourceName :: Maybe Text
liveSourceName :: Maybe Text
adBreaks :: Maybe [AdBreak]
$sel:sourceLocationName:CreateProgram' :: CreateProgram -> Text
$sel:scheduleConfiguration:CreateProgram' :: CreateProgram -> ScheduleConfiguration
$sel:programName:CreateProgram' :: CreateProgram -> Text
$sel:channelName:CreateProgram' :: CreateProgram -> Text
$sel:vodSourceName:CreateProgram' :: CreateProgram -> Maybe Text
$sel:liveSourceName:CreateProgram' :: CreateProgram -> Maybe Text
$sel:adBreaks:CreateProgram' :: CreateProgram -> Maybe [AdBreak]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [AdBreak]
adBreaks
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
liveSourceName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
vodSourceName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
channelName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
programName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf ScheduleConfiguration
scheduleConfiguration
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
sourceLocationName
instance Data.ToHeaders CreateProgram where
toHeaders :: CreateProgram -> 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 CreateProgram where
toJSON :: CreateProgram -> Value
toJSON CreateProgram' {Maybe [AdBreak]
Maybe Text
Text
ScheduleConfiguration
sourceLocationName :: Text
scheduleConfiguration :: ScheduleConfiguration
programName :: Text
channelName :: Text
vodSourceName :: Maybe Text
liveSourceName :: Maybe Text
adBreaks :: Maybe [AdBreak]
$sel:sourceLocationName:CreateProgram' :: CreateProgram -> Text
$sel:scheduleConfiguration:CreateProgram' :: CreateProgram -> ScheduleConfiguration
$sel:programName:CreateProgram' :: CreateProgram -> Text
$sel:channelName:CreateProgram' :: CreateProgram -> Text
$sel:vodSourceName:CreateProgram' :: CreateProgram -> Maybe Text
$sel:liveSourceName:CreateProgram' :: CreateProgram -> Maybe Text
$sel:adBreaks:CreateProgram' :: CreateProgram -> Maybe [AdBreak]
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"AdBreaks" 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 [AdBreak]
adBreaks,
(Key
"LiveSourceName" 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
liveSourceName,
(Key
"VodSourceName" 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
vodSourceName,
forall a. a -> Maybe a
Prelude.Just
( Key
"ScheduleConfiguration"
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= ScheduleConfiguration
scheduleConfiguration
),
forall a. a -> Maybe a
Prelude.Just
(Key
"SourceLocationName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
sourceLocationName)
]
)
instance Data.ToPath CreateProgram where
toPath :: CreateProgram -> ByteString
toPath CreateProgram' {Maybe [AdBreak]
Maybe Text
Text
ScheduleConfiguration
sourceLocationName :: Text
scheduleConfiguration :: ScheduleConfiguration
programName :: Text
channelName :: Text
vodSourceName :: Maybe Text
liveSourceName :: Maybe Text
adBreaks :: Maybe [AdBreak]
$sel:sourceLocationName:CreateProgram' :: CreateProgram -> Text
$sel:scheduleConfiguration:CreateProgram' :: CreateProgram -> ScheduleConfiguration
$sel:programName:CreateProgram' :: CreateProgram -> Text
$sel:channelName:CreateProgram' :: CreateProgram -> Text
$sel:vodSourceName:CreateProgram' :: CreateProgram -> Maybe Text
$sel:liveSourceName:CreateProgram' :: CreateProgram -> Maybe Text
$sel:adBreaks:CreateProgram' :: CreateProgram -> Maybe [AdBreak]
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/channel/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
channelName,
ByteString
"/program/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
programName
]
instance Data.ToQuery CreateProgram where
toQuery :: CreateProgram -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data CreateProgramResponse = CreateProgramResponse'
{
CreateProgramResponse -> Maybe [AdBreak]
adBreaks :: Prelude.Maybe [AdBreak],
CreateProgramResponse -> Maybe Text
arn :: Prelude.Maybe Prelude.Text,
CreateProgramResponse -> Maybe Text
channelName :: Prelude.Maybe Prelude.Text,
CreateProgramResponse -> Maybe POSIX
creationTime :: Prelude.Maybe Data.POSIX,
CreateProgramResponse -> Maybe Text
liveSourceName :: Prelude.Maybe Prelude.Text,
CreateProgramResponse -> Maybe Text
programName :: Prelude.Maybe Prelude.Text,
CreateProgramResponse -> Maybe POSIX
scheduledStartTime :: Prelude.Maybe Data.POSIX,
CreateProgramResponse -> Maybe Text
sourceLocationName :: Prelude.Maybe Prelude.Text,
CreateProgramResponse -> Maybe Text
vodSourceName :: Prelude.Maybe Prelude.Text,
CreateProgramResponse -> Int
httpStatus :: Prelude.Int
}
deriving (CreateProgramResponse -> CreateProgramResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateProgramResponse -> CreateProgramResponse -> Bool
$c/= :: CreateProgramResponse -> CreateProgramResponse -> Bool
== :: CreateProgramResponse -> CreateProgramResponse -> Bool
$c== :: CreateProgramResponse -> CreateProgramResponse -> Bool
Prelude.Eq, ReadPrec [CreateProgramResponse]
ReadPrec CreateProgramResponse
Int -> ReadS CreateProgramResponse
ReadS [CreateProgramResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateProgramResponse]
$creadListPrec :: ReadPrec [CreateProgramResponse]
readPrec :: ReadPrec CreateProgramResponse
$creadPrec :: ReadPrec CreateProgramResponse
readList :: ReadS [CreateProgramResponse]
$creadList :: ReadS [CreateProgramResponse]
readsPrec :: Int -> ReadS CreateProgramResponse
$creadsPrec :: Int -> ReadS CreateProgramResponse
Prelude.Read, Int -> CreateProgramResponse -> ShowS
[CreateProgramResponse] -> ShowS
CreateProgramResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateProgramResponse] -> ShowS
$cshowList :: [CreateProgramResponse] -> ShowS
show :: CreateProgramResponse -> String
$cshow :: CreateProgramResponse -> String
showsPrec :: Int -> CreateProgramResponse -> ShowS
$cshowsPrec :: Int -> CreateProgramResponse -> ShowS
Prelude.Show, forall x. Rep CreateProgramResponse x -> CreateProgramResponse
forall x. CreateProgramResponse -> Rep CreateProgramResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateProgramResponse x -> CreateProgramResponse
$cfrom :: forall x. CreateProgramResponse -> Rep CreateProgramResponse x
Prelude.Generic)
newCreateProgramResponse ::
Prelude.Int ->
CreateProgramResponse
newCreateProgramResponse :: Int -> CreateProgramResponse
newCreateProgramResponse Int
pHttpStatus_ =
CreateProgramResponse'
{ $sel:adBreaks:CreateProgramResponse' :: Maybe [AdBreak]
adBreaks = forall a. Maybe a
Prelude.Nothing,
$sel:arn:CreateProgramResponse' :: Maybe Text
arn = forall a. Maybe a
Prelude.Nothing,
$sel:channelName:CreateProgramResponse' :: Maybe Text
channelName = forall a. Maybe a
Prelude.Nothing,
$sel:creationTime:CreateProgramResponse' :: Maybe POSIX
creationTime = forall a. Maybe a
Prelude.Nothing,
$sel:liveSourceName:CreateProgramResponse' :: Maybe Text
liveSourceName = forall a. Maybe a
Prelude.Nothing,
$sel:programName:CreateProgramResponse' :: Maybe Text
programName = forall a. Maybe a
Prelude.Nothing,
$sel:scheduledStartTime:CreateProgramResponse' :: Maybe POSIX
scheduledStartTime = forall a. Maybe a
Prelude.Nothing,
$sel:sourceLocationName:CreateProgramResponse' :: Maybe Text
sourceLocationName = forall a. Maybe a
Prelude.Nothing,
$sel:vodSourceName:CreateProgramResponse' :: Maybe Text
vodSourceName = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:CreateProgramResponse' :: Int
httpStatus = Int
pHttpStatus_
}
createProgramResponse_adBreaks :: Lens.Lens' CreateProgramResponse (Prelude.Maybe [AdBreak])
createProgramResponse_adBreaks :: Lens' CreateProgramResponse (Maybe [AdBreak])
createProgramResponse_adBreaks = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateProgramResponse' {Maybe [AdBreak]
adBreaks :: Maybe [AdBreak]
$sel:adBreaks:CreateProgramResponse' :: CreateProgramResponse -> Maybe [AdBreak]
adBreaks} -> Maybe [AdBreak]
adBreaks) (\s :: CreateProgramResponse
s@CreateProgramResponse' {} Maybe [AdBreak]
a -> CreateProgramResponse
s {$sel:adBreaks:CreateProgramResponse' :: Maybe [AdBreak]
adBreaks = Maybe [AdBreak]
a} :: CreateProgramResponse) 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
createProgramResponse_arn :: Lens.Lens' CreateProgramResponse (Prelude.Maybe Prelude.Text)
createProgramResponse_arn :: Lens' CreateProgramResponse (Maybe Text)
createProgramResponse_arn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateProgramResponse' {Maybe Text
arn :: Maybe Text
$sel:arn:CreateProgramResponse' :: CreateProgramResponse -> Maybe Text
arn} -> Maybe Text
arn) (\s :: CreateProgramResponse
s@CreateProgramResponse' {} Maybe Text
a -> CreateProgramResponse
s {$sel:arn:CreateProgramResponse' :: Maybe Text
arn = Maybe Text
a} :: CreateProgramResponse)
createProgramResponse_channelName :: Lens.Lens' CreateProgramResponse (Prelude.Maybe Prelude.Text)
createProgramResponse_channelName :: Lens' CreateProgramResponse (Maybe Text)
createProgramResponse_channelName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateProgramResponse' {Maybe Text
channelName :: Maybe Text
$sel:channelName:CreateProgramResponse' :: CreateProgramResponse -> Maybe Text
channelName} -> Maybe Text
channelName) (\s :: CreateProgramResponse
s@CreateProgramResponse' {} Maybe Text
a -> CreateProgramResponse
s {$sel:channelName:CreateProgramResponse' :: Maybe Text
channelName = Maybe Text
a} :: CreateProgramResponse)
createProgramResponse_creationTime :: Lens.Lens' CreateProgramResponse (Prelude.Maybe Prelude.UTCTime)
createProgramResponse_creationTime :: Lens' CreateProgramResponse (Maybe UTCTime)
createProgramResponse_creationTime = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateProgramResponse' {Maybe POSIX
creationTime :: Maybe POSIX
$sel:creationTime:CreateProgramResponse' :: CreateProgramResponse -> Maybe POSIX
creationTime} -> Maybe POSIX
creationTime) (\s :: CreateProgramResponse
s@CreateProgramResponse' {} Maybe POSIX
a -> CreateProgramResponse
s {$sel:creationTime:CreateProgramResponse' :: Maybe POSIX
creationTime = Maybe POSIX
a} :: CreateProgramResponse) 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 (a :: Format). Iso' (Time a) UTCTime
Data._Time
createProgramResponse_liveSourceName :: Lens.Lens' CreateProgramResponse (Prelude.Maybe Prelude.Text)
createProgramResponse_liveSourceName :: Lens' CreateProgramResponse (Maybe Text)
createProgramResponse_liveSourceName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateProgramResponse' {Maybe Text
liveSourceName :: Maybe Text
$sel:liveSourceName:CreateProgramResponse' :: CreateProgramResponse -> Maybe Text
liveSourceName} -> Maybe Text
liveSourceName) (\s :: CreateProgramResponse
s@CreateProgramResponse' {} Maybe Text
a -> CreateProgramResponse
s {$sel:liveSourceName:CreateProgramResponse' :: Maybe Text
liveSourceName = Maybe Text
a} :: CreateProgramResponse)
createProgramResponse_programName :: Lens.Lens' CreateProgramResponse (Prelude.Maybe Prelude.Text)
createProgramResponse_programName :: Lens' CreateProgramResponse (Maybe Text)
createProgramResponse_programName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateProgramResponse' {Maybe Text
programName :: Maybe Text
$sel:programName:CreateProgramResponse' :: CreateProgramResponse -> Maybe Text
programName} -> Maybe Text
programName) (\s :: CreateProgramResponse
s@CreateProgramResponse' {} Maybe Text
a -> CreateProgramResponse
s {$sel:programName:CreateProgramResponse' :: Maybe Text
programName = Maybe Text
a} :: CreateProgramResponse)
createProgramResponse_scheduledStartTime :: Lens.Lens' CreateProgramResponse (Prelude.Maybe Prelude.UTCTime)
createProgramResponse_scheduledStartTime :: Lens' CreateProgramResponse (Maybe UTCTime)
createProgramResponse_scheduledStartTime = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateProgramResponse' {Maybe POSIX
scheduledStartTime :: Maybe POSIX
$sel:scheduledStartTime:CreateProgramResponse' :: CreateProgramResponse -> Maybe POSIX
scheduledStartTime} -> Maybe POSIX
scheduledStartTime) (\s :: CreateProgramResponse
s@CreateProgramResponse' {} Maybe POSIX
a -> CreateProgramResponse
s {$sel:scheduledStartTime:CreateProgramResponse' :: Maybe POSIX
scheduledStartTime = Maybe POSIX
a} :: CreateProgramResponse) 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 (a :: Format). Iso' (Time a) UTCTime
Data._Time
createProgramResponse_sourceLocationName :: Lens.Lens' CreateProgramResponse (Prelude.Maybe Prelude.Text)
createProgramResponse_sourceLocationName :: Lens' CreateProgramResponse (Maybe Text)
createProgramResponse_sourceLocationName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateProgramResponse' {Maybe Text
sourceLocationName :: Maybe Text
$sel:sourceLocationName:CreateProgramResponse' :: CreateProgramResponse -> Maybe Text
sourceLocationName} -> Maybe Text
sourceLocationName) (\s :: CreateProgramResponse
s@CreateProgramResponse' {} Maybe Text
a -> CreateProgramResponse
s {$sel:sourceLocationName:CreateProgramResponse' :: Maybe Text
sourceLocationName = Maybe Text
a} :: CreateProgramResponse)
createProgramResponse_vodSourceName :: Lens.Lens' CreateProgramResponse (Prelude.Maybe Prelude.Text)
createProgramResponse_vodSourceName :: Lens' CreateProgramResponse (Maybe Text)
createProgramResponse_vodSourceName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateProgramResponse' {Maybe Text
vodSourceName :: Maybe Text
$sel:vodSourceName:CreateProgramResponse' :: CreateProgramResponse -> Maybe Text
vodSourceName} -> Maybe Text
vodSourceName) (\s :: CreateProgramResponse
s@CreateProgramResponse' {} Maybe Text
a -> CreateProgramResponse
s {$sel:vodSourceName:CreateProgramResponse' :: Maybe Text
vodSourceName = Maybe Text
a} :: CreateProgramResponse)
createProgramResponse_httpStatus :: Lens.Lens' CreateProgramResponse Prelude.Int
createProgramResponse_httpStatus :: Lens' CreateProgramResponse Int
createProgramResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateProgramResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateProgramResponse' :: CreateProgramResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateProgramResponse
s@CreateProgramResponse' {} Int
a -> CreateProgramResponse
s {$sel:httpStatus:CreateProgramResponse' :: Int
httpStatus = Int
a} :: CreateProgramResponse)
instance Prelude.NFData CreateProgramResponse where
rnf :: CreateProgramResponse -> ()
rnf CreateProgramResponse' {Int
Maybe [AdBreak]
Maybe Text
Maybe POSIX
httpStatus :: Int
vodSourceName :: Maybe Text
sourceLocationName :: Maybe Text
scheduledStartTime :: Maybe POSIX
programName :: Maybe Text
liveSourceName :: Maybe Text
creationTime :: Maybe POSIX
channelName :: Maybe Text
arn :: Maybe Text
adBreaks :: Maybe [AdBreak]
$sel:httpStatus:CreateProgramResponse' :: CreateProgramResponse -> Int
$sel:vodSourceName:CreateProgramResponse' :: CreateProgramResponse -> Maybe Text
$sel:sourceLocationName:CreateProgramResponse' :: CreateProgramResponse -> Maybe Text
$sel:scheduledStartTime:CreateProgramResponse' :: CreateProgramResponse -> Maybe POSIX
$sel:programName:CreateProgramResponse' :: CreateProgramResponse -> Maybe Text
$sel:liveSourceName:CreateProgramResponse' :: CreateProgramResponse -> Maybe Text
$sel:creationTime:CreateProgramResponse' :: CreateProgramResponse -> Maybe POSIX
$sel:channelName:CreateProgramResponse' :: CreateProgramResponse -> Maybe Text
$sel:arn:CreateProgramResponse' :: CreateProgramResponse -> Maybe Text
$sel:adBreaks:CreateProgramResponse' :: CreateProgramResponse -> Maybe [AdBreak]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [AdBreak]
adBreaks
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
arn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
channelName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe POSIX
creationTime
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
liveSourceName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
programName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe POSIX
scheduledStartTime
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
sourceLocationName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
vodSourceName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus