{-# 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.MediaPackage.DescribeOriginEndpoint
(
DescribeOriginEndpoint (..),
newDescribeOriginEndpoint,
describeOriginEndpoint_id,
DescribeOriginEndpointResponse (..),
newDescribeOriginEndpointResponse,
describeOriginEndpointResponse_arn,
describeOriginEndpointResponse_authorization,
describeOriginEndpointResponse_channelId,
describeOriginEndpointResponse_cmafPackage,
describeOriginEndpointResponse_dashPackage,
describeOriginEndpointResponse_description,
describeOriginEndpointResponse_hlsPackage,
describeOriginEndpointResponse_id,
describeOriginEndpointResponse_manifestName,
describeOriginEndpointResponse_mssPackage,
describeOriginEndpointResponse_origination,
describeOriginEndpointResponse_startoverWindowSeconds,
describeOriginEndpointResponse_tags,
describeOriginEndpointResponse_timeDelaySeconds,
describeOriginEndpointResponse_url,
describeOriginEndpointResponse_whitelist,
describeOriginEndpointResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.MediaPackage.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DescribeOriginEndpoint = DescribeOriginEndpoint'
{
DescribeOriginEndpoint -> Text
id :: Prelude.Text
}
deriving (DescribeOriginEndpoint -> DescribeOriginEndpoint -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeOriginEndpoint -> DescribeOriginEndpoint -> Bool
$c/= :: DescribeOriginEndpoint -> DescribeOriginEndpoint -> Bool
== :: DescribeOriginEndpoint -> DescribeOriginEndpoint -> Bool
$c== :: DescribeOriginEndpoint -> DescribeOriginEndpoint -> Bool
Prelude.Eq, ReadPrec [DescribeOriginEndpoint]
ReadPrec DescribeOriginEndpoint
Int -> ReadS DescribeOriginEndpoint
ReadS [DescribeOriginEndpoint]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeOriginEndpoint]
$creadListPrec :: ReadPrec [DescribeOriginEndpoint]
readPrec :: ReadPrec DescribeOriginEndpoint
$creadPrec :: ReadPrec DescribeOriginEndpoint
readList :: ReadS [DescribeOriginEndpoint]
$creadList :: ReadS [DescribeOriginEndpoint]
readsPrec :: Int -> ReadS DescribeOriginEndpoint
$creadsPrec :: Int -> ReadS DescribeOriginEndpoint
Prelude.Read, Int -> DescribeOriginEndpoint -> ShowS
[DescribeOriginEndpoint] -> ShowS
DescribeOriginEndpoint -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeOriginEndpoint] -> ShowS
$cshowList :: [DescribeOriginEndpoint] -> ShowS
show :: DescribeOriginEndpoint -> String
$cshow :: DescribeOriginEndpoint -> String
showsPrec :: Int -> DescribeOriginEndpoint -> ShowS
$cshowsPrec :: Int -> DescribeOriginEndpoint -> ShowS
Prelude.Show, forall x. Rep DescribeOriginEndpoint x -> DescribeOriginEndpoint
forall x. DescribeOriginEndpoint -> Rep DescribeOriginEndpoint x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DescribeOriginEndpoint x -> DescribeOriginEndpoint
$cfrom :: forall x. DescribeOriginEndpoint -> Rep DescribeOriginEndpoint x
Prelude.Generic)
newDescribeOriginEndpoint ::
Prelude.Text ->
DescribeOriginEndpoint
newDescribeOriginEndpoint :: Text -> DescribeOriginEndpoint
newDescribeOriginEndpoint Text
pId_ =
DescribeOriginEndpoint' {$sel:id:DescribeOriginEndpoint' :: Text
id = Text
pId_}
describeOriginEndpoint_id :: Lens.Lens' DescribeOriginEndpoint Prelude.Text
describeOriginEndpoint_id :: Lens' DescribeOriginEndpoint Text
describeOriginEndpoint_id = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeOriginEndpoint' {Text
id :: Text
$sel:id:DescribeOriginEndpoint' :: DescribeOriginEndpoint -> Text
id} -> Text
id) (\s :: DescribeOriginEndpoint
s@DescribeOriginEndpoint' {} Text
a -> DescribeOriginEndpoint
s {$sel:id:DescribeOriginEndpoint' :: Text
id = Text
a} :: DescribeOriginEndpoint)
instance Core.AWSRequest DescribeOriginEndpoint where
type
AWSResponse DescribeOriginEndpoint =
DescribeOriginEndpointResponse
request :: (Service -> Service)
-> DescribeOriginEndpoint -> Request DescribeOriginEndpoint
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.get (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DescribeOriginEndpoint
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DescribeOriginEndpoint)))
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 Authorization
-> Maybe Text
-> Maybe CmafPackage
-> Maybe DashPackage
-> Maybe Text
-> Maybe HlsPackage
-> Maybe Text
-> Maybe Text
-> Maybe MssPackage
-> Maybe Origination
-> Maybe Int
-> Maybe (HashMap Text Text)
-> Maybe Int
-> Maybe Text
-> Maybe [Text]
-> Int
-> DescribeOriginEndpointResponse
DescribeOriginEndpointResponse'
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
"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
"authorization")
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
"channelId")
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
"cmafPackage")
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
"dashPackage")
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
"description")
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
"hlsPackage")
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
"id")
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
"manifestName")
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
"mssPackage")
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
"origination")
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
"startoverWindowSeconds")
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
"timeDelaySeconds")
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
"url")
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
"whitelist" 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.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance Prelude.Hashable DescribeOriginEndpoint where
hashWithSalt :: Int -> DescribeOriginEndpoint -> Int
hashWithSalt Int
_salt DescribeOriginEndpoint' {Text
id :: Text
$sel:id:DescribeOriginEndpoint' :: DescribeOriginEndpoint -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
id
instance Prelude.NFData DescribeOriginEndpoint where
rnf :: DescribeOriginEndpoint -> ()
rnf DescribeOriginEndpoint' {Text
id :: Text
$sel:id:DescribeOriginEndpoint' :: DescribeOriginEndpoint -> Text
..} = forall a. NFData a => a -> ()
Prelude.rnf Text
id
instance Data.ToHeaders DescribeOriginEndpoint where
toHeaders :: DescribeOriginEndpoint -> 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.ToPath DescribeOriginEndpoint where
toPath :: DescribeOriginEndpoint -> ByteString
toPath DescribeOriginEndpoint' {Text
id :: Text
$sel:id:DescribeOriginEndpoint' :: DescribeOriginEndpoint -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ByteString
"/origin_endpoints/", forall a. ToByteString a => a -> ByteString
Data.toBS Text
id]
instance Data.ToQuery DescribeOriginEndpoint where
toQuery :: DescribeOriginEndpoint -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DescribeOriginEndpointResponse = DescribeOriginEndpointResponse'
{
DescribeOriginEndpointResponse -> Maybe Text
arn :: Prelude.Maybe Prelude.Text,
DescribeOriginEndpointResponse -> Maybe Authorization
authorization :: Prelude.Maybe Authorization,
DescribeOriginEndpointResponse -> Maybe Text
channelId :: Prelude.Maybe Prelude.Text,
DescribeOriginEndpointResponse -> Maybe CmafPackage
cmafPackage :: Prelude.Maybe CmafPackage,
DescribeOriginEndpointResponse -> Maybe DashPackage
dashPackage :: Prelude.Maybe DashPackage,
DescribeOriginEndpointResponse -> Maybe Text
description :: Prelude.Maybe Prelude.Text,
DescribeOriginEndpointResponse -> Maybe HlsPackage
hlsPackage :: Prelude.Maybe HlsPackage,
DescribeOriginEndpointResponse -> Maybe Text
id :: Prelude.Maybe Prelude.Text,
DescribeOriginEndpointResponse -> Maybe Text
manifestName :: Prelude.Maybe Prelude.Text,
DescribeOriginEndpointResponse -> Maybe MssPackage
mssPackage :: Prelude.Maybe MssPackage,
DescribeOriginEndpointResponse -> Maybe Origination
origination :: Prelude.Maybe Origination,
DescribeOriginEndpointResponse -> Maybe Int
startoverWindowSeconds :: Prelude.Maybe Prelude.Int,
DescribeOriginEndpointResponse -> Maybe (HashMap Text Text)
tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
DescribeOriginEndpointResponse -> Maybe Int
timeDelaySeconds :: Prelude.Maybe Prelude.Int,
DescribeOriginEndpointResponse -> Maybe Text
url :: Prelude.Maybe Prelude.Text,
DescribeOriginEndpointResponse -> Maybe [Text]
whitelist :: Prelude.Maybe [Prelude.Text],
DescribeOriginEndpointResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeOriginEndpointResponse
-> DescribeOriginEndpointResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeOriginEndpointResponse
-> DescribeOriginEndpointResponse -> Bool
$c/= :: DescribeOriginEndpointResponse
-> DescribeOriginEndpointResponse -> Bool
== :: DescribeOriginEndpointResponse
-> DescribeOriginEndpointResponse -> Bool
$c== :: DescribeOriginEndpointResponse
-> DescribeOriginEndpointResponse -> Bool
Prelude.Eq, ReadPrec [DescribeOriginEndpointResponse]
ReadPrec DescribeOriginEndpointResponse
Int -> ReadS DescribeOriginEndpointResponse
ReadS [DescribeOriginEndpointResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeOriginEndpointResponse]
$creadListPrec :: ReadPrec [DescribeOriginEndpointResponse]
readPrec :: ReadPrec DescribeOriginEndpointResponse
$creadPrec :: ReadPrec DescribeOriginEndpointResponse
readList :: ReadS [DescribeOriginEndpointResponse]
$creadList :: ReadS [DescribeOriginEndpointResponse]
readsPrec :: Int -> ReadS DescribeOriginEndpointResponse
$creadsPrec :: Int -> ReadS DescribeOriginEndpointResponse
Prelude.Read, Int -> DescribeOriginEndpointResponse -> ShowS
[DescribeOriginEndpointResponse] -> ShowS
DescribeOriginEndpointResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeOriginEndpointResponse] -> ShowS
$cshowList :: [DescribeOriginEndpointResponse] -> ShowS
show :: DescribeOriginEndpointResponse -> String
$cshow :: DescribeOriginEndpointResponse -> String
showsPrec :: Int -> DescribeOriginEndpointResponse -> ShowS
$cshowsPrec :: Int -> DescribeOriginEndpointResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeOriginEndpointResponse x
-> DescribeOriginEndpointResponse
forall x.
DescribeOriginEndpointResponse
-> Rep DescribeOriginEndpointResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeOriginEndpointResponse x
-> DescribeOriginEndpointResponse
$cfrom :: forall x.
DescribeOriginEndpointResponse
-> Rep DescribeOriginEndpointResponse x
Prelude.Generic)
newDescribeOriginEndpointResponse ::
Prelude.Int ->
DescribeOriginEndpointResponse
newDescribeOriginEndpointResponse :: Int -> DescribeOriginEndpointResponse
newDescribeOriginEndpointResponse Int
pHttpStatus_ =
DescribeOriginEndpointResponse'
{ $sel:arn:DescribeOriginEndpointResponse' :: Maybe Text
arn =
forall a. Maybe a
Prelude.Nothing,
$sel:authorization:DescribeOriginEndpointResponse' :: Maybe Authorization
authorization = forall a. Maybe a
Prelude.Nothing,
$sel:channelId:DescribeOriginEndpointResponse' :: Maybe Text
channelId = forall a. Maybe a
Prelude.Nothing,
$sel:cmafPackage:DescribeOriginEndpointResponse' :: Maybe CmafPackage
cmafPackage = forall a. Maybe a
Prelude.Nothing,
$sel:dashPackage:DescribeOriginEndpointResponse' :: Maybe DashPackage
dashPackage = forall a. Maybe a
Prelude.Nothing,
$sel:description:DescribeOriginEndpointResponse' :: Maybe Text
description = forall a. Maybe a
Prelude.Nothing,
$sel:hlsPackage:DescribeOriginEndpointResponse' :: Maybe HlsPackage
hlsPackage = forall a. Maybe a
Prelude.Nothing,
$sel:id:DescribeOriginEndpointResponse' :: Maybe Text
id = forall a. Maybe a
Prelude.Nothing,
$sel:manifestName:DescribeOriginEndpointResponse' :: Maybe Text
manifestName = forall a. Maybe a
Prelude.Nothing,
$sel:mssPackage:DescribeOriginEndpointResponse' :: Maybe MssPackage
mssPackage = forall a. Maybe a
Prelude.Nothing,
$sel:origination:DescribeOriginEndpointResponse' :: Maybe Origination
origination = forall a. Maybe a
Prelude.Nothing,
$sel:startoverWindowSeconds:DescribeOriginEndpointResponse' :: Maybe Int
startoverWindowSeconds = forall a. Maybe a
Prelude.Nothing,
$sel:tags:DescribeOriginEndpointResponse' :: Maybe (HashMap Text Text)
tags = forall a. Maybe a
Prelude.Nothing,
$sel:timeDelaySeconds:DescribeOriginEndpointResponse' :: Maybe Int
timeDelaySeconds = forall a. Maybe a
Prelude.Nothing,
$sel:url:DescribeOriginEndpointResponse' :: Maybe Text
url = forall a. Maybe a
Prelude.Nothing,
$sel:whitelist:DescribeOriginEndpointResponse' :: Maybe [Text]
whitelist = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeOriginEndpointResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describeOriginEndpointResponse_arn :: Lens.Lens' DescribeOriginEndpointResponse (Prelude.Maybe Prelude.Text)
describeOriginEndpointResponse_arn :: Lens' DescribeOriginEndpointResponse (Maybe Text)
describeOriginEndpointResponse_arn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeOriginEndpointResponse' {Maybe Text
arn :: Maybe Text
$sel:arn:DescribeOriginEndpointResponse' :: DescribeOriginEndpointResponse -> Maybe Text
arn} -> Maybe Text
arn) (\s :: DescribeOriginEndpointResponse
s@DescribeOriginEndpointResponse' {} Maybe Text
a -> DescribeOriginEndpointResponse
s {$sel:arn:DescribeOriginEndpointResponse' :: Maybe Text
arn = Maybe Text
a} :: DescribeOriginEndpointResponse)
describeOriginEndpointResponse_authorization :: Lens.Lens' DescribeOriginEndpointResponse (Prelude.Maybe Authorization)
describeOriginEndpointResponse_authorization :: Lens' DescribeOriginEndpointResponse (Maybe Authorization)
describeOriginEndpointResponse_authorization = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeOriginEndpointResponse' {Maybe Authorization
authorization :: Maybe Authorization
$sel:authorization:DescribeOriginEndpointResponse' :: DescribeOriginEndpointResponse -> Maybe Authorization
authorization} -> Maybe Authorization
authorization) (\s :: DescribeOriginEndpointResponse
s@DescribeOriginEndpointResponse' {} Maybe Authorization
a -> DescribeOriginEndpointResponse
s {$sel:authorization:DescribeOriginEndpointResponse' :: Maybe Authorization
authorization = Maybe Authorization
a} :: DescribeOriginEndpointResponse)
describeOriginEndpointResponse_channelId :: Lens.Lens' DescribeOriginEndpointResponse (Prelude.Maybe Prelude.Text)
describeOriginEndpointResponse_channelId :: Lens' DescribeOriginEndpointResponse (Maybe Text)
describeOriginEndpointResponse_channelId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeOriginEndpointResponse' {Maybe Text
channelId :: Maybe Text
$sel:channelId:DescribeOriginEndpointResponse' :: DescribeOriginEndpointResponse -> Maybe Text
channelId} -> Maybe Text
channelId) (\s :: DescribeOriginEndpointResponse
s@DescribeOriginEndpointResponse' {} Maybe Text
a -> DescribeOriginEndpointResponse
s {$sel:channelId:DescribeOriginEndpointResponse' :: Maybe Text
channelId = Maybe Text
a} :: DescribeOriginEndpointResponse)
describeOriginEndpointResponse_cmafPackage :: Lens.Lens' DescribeOriginEndpointResponse (Prelude.Maybe CmafPackage)
describeOriginEndpointResponse_cmafPackage :: Lens' DescribeOriginEndpointResponse (Maybe CmafPackage)
describeOriginEndpointResponse_cmafPackage = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeOriginEndpointResponse' {Maybe CmafPackage
cmafPackage :: Maybe CmafPackage
$sel:cmafPackage:DescribeOriginEndpointResponse' :: DescribeOriginEndpointResponse -> Maybe CmafPackage
cmafPackage} -> Maybe CmafPackage
cmafPackage) (\s :: DescribeOriginEndpointResponse
s@DescribeOriginEndpointResponse' {} Maybe CmafPackage
a -> DescribeOriginEndpointResponse
s {$sel:cmafPackage:DescribeOriginEndpointResponse' :: Maybe CmafPackage
cmafPackage = Maybe CmafPackage
a} :: DescribeOriginEndpointResponse)
describeOriginEndpointResponse_dashPackage :: Lens.Lens' DescribeOriginEndpointResponse (Prelude.Maybe DashPackage)
describeOriginEndpointResponse_dashPackage :: Lens' DescribeOriginEndpointResponse (Maybe DashPackage)
describeOriginEndpointResponse_dashPackage = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeOriginEndpointResponse' {Maybe DashPackage
dashPackage :: Maybe DashPackage
$sel:dashPackage:DescribeOriginEndpointResponse' :: DescribeOriginEndpointResponse -> Maybe DashPackage
dashPackage} -> Maybe DashPackage
dashPackage) (\s :: DescribeOriginEndpointResponse
s@DescribeOriginEndpointResponse' {} Maybe DashPackage
a -> DescribeOriginEndpointResponse
s {$sel:dashPackage:DescribeOriginEndpointResponse' :: Maybe DashPackage
dashPackage = Maybe DashPackage
a} :: DescribeOriginEndpointResponse)
describeOriginEndpointResponse_description :: Lens.Lens' DescribeOriginEndpointResponse (Prelude.Maybe Prelude.Text)
describeOriginEndpointResponse_description :: Lens' DescribeOriginEndpointResponse (Maybe Text)
describeOriginEndpointResponse_description = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeOriginEndpointResponse' {Maybe Text
description :: Maybe Text
$sel:description:DescribeOriginEndpointResponse' :: DescribeOriginEndpointResponse -> Maybe Text
description} -> Maybe Text
description) (\s :: DescribeOriginEndpointResponse
s@DescribeOriginEndpointResponse' {} Maybe Text
a -> DescribeOriginEndpointResponse
s {$sel:description:DescribeOriginEndpointResponse' :: Maybe Text
description = Maybe Text
a} :: DescribeOriginEndpointResponse)
describeOriginEndpointResponse_hlsPackage :: Lens.Lens' DescribeOriginEndpointResponse (Prelude.Maybe HlsPackage)
describeOriginEndpointResponse_hlsPackage :: Lens' DescribeOriginEndpointResponse (Maybe HlsPackage)
describeOriginEndpointResponse_hlsPackage = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeOriginEndpointResponse' {Maybe HlsPackage
hlsPackage :: Maybe HlsPackage
$sel:hlsPackage:DescribeOriginEndpointResponse' :: DescribeOriginEndpointResponse -> Maybe HlsPackage
hlsPackage} -> Maybe HlsPackage
hlsPackage) (\s :: DescribeOriginEndpointResponse
s@DescribeOriginEndpointResponse' {} Maybe HlsPackage
a -> DescribeOriginEndpointResponse
s {$sel:hlsPackage:DescribeOriginEndpointResponse' :: Maybe HlsPackage
hlsPackage = Maybe HlsPackage
a} :: DescribeOriginEndpointResponse)
describeOriginEndpointResponse_id :: Lens.Lens' DescribeOriginEndpointResponse (Prelude.Maybe Prelude.Text)
describeOriginEndpointResponse_id :: Lens' DescribeOriginEndpointResponse (Maybe Text)
describeOriginEndpointResponse_id = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeOriginEndpointResponse' {Maybe Text
id :: Maybe Text
$sel:id:DescribeOriginEndpointResponse' :: DescribeOriginEndpointResponse -> Maybe Text
id} -> Maybe Text
id) (\s :: DescribeOriginEndpointResponse
s@DescribeOriginEndpointResponse' {} Maybe Text
a -> DescribeOriginEndpointResponse
s {$sel:id:DescribeOriginEndpointResponse' :: Maybe Text
id = Maybe Text
a} :: DescribeOriginEndpointResponse)
describeOriginEndpointResponse_manifestName :: Lens.Lens' DescribeOriginEndpointResponse (Prelude.Maybe Prelude.Text)
describeOriginEndpointResponse_manifestName :: Lens' DescribeOriginEndpointResponse (Maybe Text)
describeOriginEndpointResponse_manifestName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeOriginEndpointResponse' {Maybe Text
manifestName :: Maybe Text
$sel:manifestName:DescribeOriginEndpointResponse' :: DescribeOriginEndpointResponse -> Maybe Text
manifestName} -> Maybe Text
manifestName) (\s :: DescribeOriginEndpointResponse
s@DescribeOriginEndpointResponse' {} Maybe Text
a -> DescribeOriginEndpointResponse
s {$sel:manifestName:DescribeOriginEndpointResponse' :: Maybe Text
manifestName = Maybe Text
a} :: DescribeOriginEndpointResponse)
describeOriginEndpointResponse_mssPackage :: Lens.Lens' DescribeOriginEndpointResponse (Prelude.Maybe MssPackage)
describeOriginEndpointResponse_mssPackage :: Lens' DescribeOriginEndpointResponse (Maybe MssPackage)
describeOriginEndpointResponse_mssPackage = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeOriginEndpointResponse' {Maybe MssPackage
mssPackage :: Maybe MssPackage
$sel:mssPackage:DescribeOriginEndpointResponse' :: DescribeOriginEndpointResponse -> Maybe MssPackage
mssPackage} -> Maybe MssPackage
mssPackage) (\s :: DescribeOriginEndpointResponse
s@DescribeOriginEndpointResponse' {} Maybe MssPackage
a -> DescribeOriginEndpointResponse
s {$sel:mssPackage:DescribeOriginEndpointResponse' :: Maybe MssPackage
mssPackage = Maybe MssPackage
a} :: DescribeOriginEndpointResponse)
describeOriginEndpointResponse_origination :: Lens.Lens' DescribeOriginEndpointResponse (Prelude.Maybe Origination)
describeOriginEndpointResponse_origination :: Lens' DescribeOriginEndpointResponse (Maybe Origination)
describeOriginEndpointResponse_origination = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeOriginEndpointResponse' {Maybe Origination
origination :: Maybe Origination
$sel:origination:DescribeOriginEndpointResponse' :: DescribeOriginEndpointResponse -> Maybe Origination
origination} -> Maybe Origination
origination) (\s :: DescribeOriginEndpointResponse
s@DescribeOriginEndpointResponse' {} Maybe Origination
a -> DescribeOriginEndpointResponse
s {$sel:origination:DescribeOriginEndpointResponse' :: Maybe Origination
origination = Maybe Origination
a} :: DescribeOriginEndpointResponse)
describeOriginEndpointResponse_startoverWindowSeconds :: Lens.Lens' DescribeOriginEndpointResponse (Prelude.Maybe Prelude.Int)
describeOriginEndpointResponse_startoverWindowSeconds :: Lens' DescribeOriginEndpointResponse (Maybe Int)
describeOriginEndpointResponse_startoverWindowSeconds = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeOriginEndpointResponse' {Maybe Int
startoverWindowSeconds :: Maybe Int
$sel:startoverWindowSeconds:DescribeOriginEndpointResponse' :: DescribeOriginEndpointResponse -> Maybe Int
startoverWindowSeconds} -> Maybe Int
startoverWindowSeconds) (\s :: DescribeOriginEndpointResponse
s@DescribeOriginEndpointResponse' {} Maybe Int
a -> DescribeOriginEndpointResponse
s {$sel:startoverWindowSeconds:DescribeOriginEndpointResponse' :: Maybe Int
startoverWindowSeconds = Maybe Int
a} :: DescribeOriginEndpointResponse)
describeOriginEndpointResponse_tags :: Lens.Lens' DescribeOriginEndpointResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
describeOriginEndpointResponse_tags :: Lens' DescribeOriginEndpointResponse (Maybe (HashMap Text Text))
describeOriginEndpointResponse_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeOriginEndpointResponse' {Maybe (HashMap Text Text)
tags :: Maybe (HashMap Text Text)
$sel:tags:DescribeOriginEndpointResponse' :: DescribeOriginEndpointResponse -> Maybe (HashMap Text Text)
tags} -> Maybe (HashMap Text Text)
tags) (\s :: DescribeOriginEndpointResponse
s@DescribeOriginEndpointResponse' {} Maybe (HashMap Text Text)
a -> DescribeOriginEndpointResponse
s {$sel:tags:DescribeOriginEndpointResponse' :: Maybe (HashMap Text Text)
tags = Maybe (HashMap Text Text)
a} :: DescribeOriginEndpointResponse) 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
describeOriginEndpointResponse_timeDelaySeconds :: Lens.Lens' DescribeOriginEndpointResponse (Prelude.Maybe Prelude.Int)
describeOriginEndpointResponse_timeDelaySeconds :: Lens' DescribeOriginEndpointResponse (Maybe Int)
describeOriginEndpointResponse_timeDelaySeconds = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeOriginEndpointResponse' {Maybe Int
timeDelaySeconds :: Maybe Int
$sel:timeDelaySeconds:DescribeOriginEndpointResponse' :: DescribeOriginEndpointResponse -> Maybe Int
timeDelaySeconds} -> Maybe Int
timeDelaySeconds) (\s :: DescribeOriginEndpointResponse
s@DescribeOriginEndpointResponse' {} Maybe Int
a -> DescribeOriginEndpointResponse
s {$sel:timeDelaySeconds:DescribeOriginEndpointResponse' :: Maybe Int
timeDelaySeconds = Maybe Int
a} :: DescribeOriginEndpointResponse)
describeOriginEndpointResponse_url :: Lens.Lens' DescribeOriginEndpointResponse (Prelude.Maybe Prelude.Text)
describeOriginEndpointResponse_url :: Lens' DescribeOriginEndpointResponse (Maybe Text)
describeOriginEndpointResponse_url = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeOriginEndpointResponse' {Maybe Text
url :: Maybe Text
$sel:url:DescribeOriginEndpointResponse' :: DescribeOriginEndpointResponse -> Maybe Text
url} -> Maybe Text
url) (\s :: DescribeOriginEndpointResponse
s@DescribeOriginEndpointResponse' {} Maybe Text
a -> DescribeOriginEndpointResponse
s {$sel:url:DescribeOriginEndpointResponse' :: Maybe Text
url = Maybe Text
a} :: DescribeOriginEndpointResponse)
describeOriginEndpointResponse_whitelist :: Lens.Lens' DescribeOriginEndpointResponse (Prelude.Maybe [Prelude.Text])
describeOriginEndpointResponse_whitelist :: Lens' DescribeOriginEndpointResponse (Maybe [Text])
describeOriginEndpointResponse_whitelist = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeOriginEndpointResponse' {Maybe [Text]
whitelist :: Maybe [Text]
$sel:whitelist:DescribeOriginEndpointResponse' :: DescribeOriginEndpointResponse -> Maybe [Text]
whitelist} -> Maybe [Text]
whitelist) (\s :: DescribeOriginEndpointResponse
s@DescribeOriginEndpointResponse' {} Maybe [Text]
a -> DescribeOriginEndpointResponse
s {$sel:whitelist:DescribeOriginEndpointResponse' :: Maybe [Text]
whitelist = Maybe [Text]
a} :: DescribeOriginEndpointResponse) 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
describeOriginEndpointResponse_httpStatus :: Lens.Lens' DescribeOriginEndpointResponse Prelude.Int
describeOriginEndpointResponse_httpStatus :: Lens' DescribeOriginEndpointResponse Int
describeOriginEndpointResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeOriginEndpointResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeOriginEndpointResponse' :: DescribeOriginEndpointResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeOriginEndpointResponse
s@DescribeOriginEndpointResponse' {} Int
a -> DescribeOriginEndpointResponse
s {$sel:httpStatus:DescribeOriginEndpointResponse' :: Int
httpStatus = Int
a} :: DescribeOriginEndpointResponse)
instance
Prelude.NFData
DescribeOriginEndpointResponse
where
rnf :: DescribeOriginEndpointResponse -> ()
rnf DescribeOriginEndpointResponse' {Int
Maybe Int
Maybe [Text]
Maybe Text
Maybe (HashMap Text Text)
Maybe Authorization
Maybe Origination
Maybe MssPackage
Maybe HlsPackage
Maybe CmafPackage
Maybe DashPackage
httpStatus :: Int
whitelist :: Maybe [Text]
url :: Maybe Text
timeDelaySeconds :: Maybe Int
tags :: Maybe (HashMap Text Text)
startoverWindowSeconds :: Maybe Int
origination :: Maybe Origination
mssPackage :: Maybe MssPackage
manifestName :: Maybe Text
id :: Maybe Text
hlsPackage :: Maybe HlsPackage
description :: Maybe Text
dashPackage :: Maybe DashPackage
cmafPackage :: Maybe CmafPackage
channelId :: Maybe Text
authorization :: Maybe Authorization
arn :: Maybe Text
$sel:httpStatus:DescribeOriginEndpointResponse' :: DescribeOriginEndpointResponse -> Int
$sel:whitelist:DescribeOriginEndpointResponse' :: DescribeOriginEndpointResponse -> Maybe [Text]
$sel:url:DescribeOriginEndpointResponse' :: DescribeOriginEndpointResponse -> Maybe Text
$sel:timeDelaySeconds:DescribeOriginEndpointResponse' :: DescribeOriginEndpointResponse -> Maybe Int
$sel:tags:DescribeOriginEndpointResponse' :: DescribeOriginEndpointResponse -> Maybe (HashMap Text Text)
$sel:startoverWindowSeconds:DescribeOriginEndpointResponse' :: DescribeOriginEndpointResponse -> Maybe Int
$sel:origination:DescribeOriginEndpointResponse' :: DescribeOriginEndpointResponse -> Maybe Origination
$sel:mssPackage:DescribeOriginEndpointResponse' :: DescribeOriginEndpointResponse -> Maybe MssPackage
$sel:manifestName:DescribeOriginEndpointResponse' :: DescribeOriginEndpointResponse -> Maybe Text
$sel:id:DescribeOriginEndpointResponse' :: DescribeOriginEndpointResponse -> Maybe Text
$sel:hlsPackage:DescribeOriginEndpointResponse' :: DescribeOriginEndpointResponse -> Maybe HlsPackage
$sel:description:DescribeOriginEndpointResponse' :: DescribeOriginEndpointResponse -> Maybe Text
$sel:dashPackage:DescribeOriginEndpointResponse' :: DescribeOriginEndpointResponse -> Maybe DashPackage
$sel:cmafPackage:DescribeOriginEndpointResponse' :: DescribeOriginEndpointResponse -> Maybe CmafPackage
$sel:channelId:DescribeOriginEndpointResponse' :: DescribeOriginEndpointResponse -> Maybe Text
$sel:authorization:DescribeOriginEndpointResponse' :: DescribeOriginEndpointResponse -> Maybe Authorization
$sel:arn:DescribeOriginEndpointResponse' :: DescribeOriginEndpointResponse -> Maybe Text
..} =
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 Authorization
authorization
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
channelId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe CmafPackage
cmafPackage
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe DashPackage
dashPackage
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
description
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe HlsPackage
hlsPackage
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
id
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
manifestName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe MssPackage
mssPackage
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Origination
origination
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
startoverWindowSeconds
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 Int
timeDelaySeconds
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
url
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
whitelist
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus