{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Network.AWS.MediaPackage.DescribeOriginEndpoint
(
describeOriginEndpoint
, DescribeOriginEndpoint
, doeId
, describeOriginEndpointResponse
, DescribeOriginEndpointResponse
, desrsWhitelist
, desrsHlsPackage
, desrsARN
, desrsManifestName
, desrsURL
, desrsChannelId
, desrsStartoverWindowSeconds
, desrsDashPackage
, desrsMssPackage
, desrsId
, desrsTimeDelaySeconds
, desrsCmafPackage
, desrsDescription
, desrsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.MediaPackage.Types
import Network.AWS.MediaPackage.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DescribeOriginEndpoint = DescribeOriginEndpoint'
{ _doeId :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeOriginEndpoint
:: Text
-> DescribeOriginEndpoint
describeOriginEndpoint pId_ = DescribeOriginEndpoint' {_doeId = pId_}
doeId :: Lens' DescribeOriginEndpoint Text
doeId = lens _doeId (\ s a -> s{_doeId = a})
instance AWSRequest DescribeOriginEndpoint where
type Rs DescribeOriginEndpoint =
DescribeOriginEndpointResponse
request = get mediaPackage
response
= receiveJSON
(\ s h x ->
DescribeOriginEndpointResponse' <$>
(x .?> "whitelist" .!@ mempty) <*>
(x .?> "hlsPackage")
<*> (x .?> "arn")
<*> (x .?> "manifestName")
<*> (x .?> "url")
<*> (x .?> "channelId")
<*> (x .?> "startoverWindowSeconds")
<*> (x .?> "dashPackage")
<*> (x .?> "mssPackage")
<*> (x .?> "id")
<*> (x .?> "timeDelaySeconds")
<*> (x .?> "cmafPackage")
<*> (x .?> "description")
<*> (pure (fromEnum s)))
instance Hashable DescribeOriginEndpoint where
instance NFData DescribeOriginEndpoint where
instance ToHeaders DescribeOriginEndpoint where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath DescribeOriginEndpoint where
toPath DescribeOriginEndpoint'{..}
= mconcat ["/origin_endpoints/", toBS _doeId]
instance ToQuery DescribeOriginEndpoint where
toQuery = const mempty
data DescribeOriginEndpointResponse = DescribeOriginEndpointResponse'
{ _desrsWhitelist :: !(Maybe [Text])
, _desrsHlsPackage :: !(Maybe HlsPackage)
, _desrsARN :: !(Maybe Text)
, _desrsManifestName :: !(Maybe Text)
, _desrsURL :: !(Maybe Text)
, _desrsChannelId :: !(Maybe Text)
, _desrsStartoverWindowSeconds :: !(Maybe Int)
, _desrsDashPackage :: !(Maybe DashPackage)
, _desrsMssPackage :: !(Maybe MssPackage)
, _desrsId :: !(Maybe Text)
, _desrsTimeDelaySeconds :: !(Maybe Int)
, _desrsCmafPackage :: !(Maybe CmafPackage)
, _desrsDescription :: !(Maybe Text)
, _desrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeOriginEndpointResponse
:: Int
-> DescribeOriginEndpointResponse
describeOriginEndpointResponse pResponseStatus_ =
DescribeOriginEndpointResponse'
{ _desrsWhitelist = Nothing
, _desrsHlsPackage = Nothing
, _desrsARN = Nothing
, _desrsManifestName = Nothing
, _desrsURL = Nothing
, _desrsChannelId = Nothing
, _desrsStartoverWindowSeconds = Nothing
, _desrsDashPackage = Nothing
, _desrsMssPackage = Nothing
, _desrsId = Nothing
, _desrsTimeDelaySeconds = Nothing
, _desrsCmafPackage = Nothing
, _desrsDescription = Nothing
, _desrsResponseStatus = pResponseStatus_
}
desrsWhitelist :: Lens' DescribeOriginEndpointResponse [Text]
desrsWhitelist = lens _desrsWhitelist (\ s a -> s{_desrsWhitelist = a}) . _Default . _Coerce
desrsHlsPackage :: Lens' DescribeOriginEndpointResponse (Maybe HlsPackage)
desrsHlsPackage = lens _desrsHlsPackage (\ s a -> s{_desrsHlsPackage = a})
desrsARN :: Lens' DescribeOriginEndpointResponse (Maybe Text)
desrsARN = lens _desrsARN (\ s a -> s{_desrsARN = a})
desrsManifestName :: Lens' DescribeOriginEndpointResponse (Maybe Text)
desrsManifestName = lens _desrsManifestName (\ s a -> s{_desrsManifestName = a})
desrsURL :: Lens' DescribeOriginEndpointResponse (Maybe Text)
desrsURL = lens _desrsURL (\ s a -> s{_desrsURL = a})
desrsChannelId :: Lens' DescribeOriginEndpointResponse (Maybe Text)
desrsChannelId = lens _desrsChannelId (\ s a -> s{_desrsChannelId = a})
desrsStartoverWindowSeconds :: Lens' DescribeOriginEndpointResponse (Maybe Int)
desrsStartoverWindowSeconds = lens _desrsStartoverWindowSeconds (\ s a -> s{_desrsStartoverWindowSeconds = a})
desrsDashPackage :: Lens' DescribeOriginEndpointResponse (Maybe DashPackage)
desrsDashPackage = lens _desrsDashPackage (\ s a -> s{_desrsDashPackage = a})
desrsMssPackage :: Lens' DescribeOriginEndpointResponse (Maybe MssPackage)
desrsMssPackage = lens _desrsMssPackage (\ s a -> s{_desrsMssPackage = a})
desrsId :: Lens' DescribeOriginEndpointResponse (Maybe Text)
desrsId = lens _desrsId (\ s a -> s{_desrsId = a})
desrsTimeDelaySeconds :: Lens' DescribeOriginEndpointResponse (Maybe Int)
desrsTimeDelaySeconds = lens _desrsTimeDelaySeconds (\ s a -> s{_desrsTimeDelaySeconds = a})
desrsCmafPackage :: Lens' DescribeOriginEndpointResponse (Maybe CmafPackage)
desrsCmafPackage = lens _desrsCmafPackage (\ s a -> s{_desrsCmafPackage = a})
desrsDescription :: Lens' DescribeOriginEndpointResponse (Maybe Text)
desrsDescription = lens _desrsDescription (\ s a -> s{_desrsDescription = a})
desrsResponseStatus :: Lens' DescribeOriginEndpointResponse Int
desrsResponseStatus = lens _desrsResponseStatus (\ s a -> s{_desrsResponseStatus = a})
instance NFData DescribeOriginEndpointResponse where