{-# 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.CloudFront.GetStreamingDistributionConfig
(
getStreamingDistributionConfig
, GetStreamingDistributionConfig
, gsdcId
, getStreamingDistributionConfigResponse
, GetStreamingDistributionConfigResponse
, gsdcrsStreamingDistributionConfig
, gsdcrsETag
, gsdcrsResponseStatus
) where
import Network.AWS.CloudFront.Types
import Network.AWS.CloudFront.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype GetStreamingDistributionConfig = GetStreamingDistributionConfig'
{ _gsdcId :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getStreamingDistributionConfig
:: Text
-> GetStreamingDistributionConfig
getStreamingDistributionConfig pId_ =
GetStreamingDistributionConfig' {_gsdcId = pId_}
gsdcId :: Lens' GetStreamingDistributionConfig Text
gsdcId = lens _gsdcId (\ s a -> s{_gsdcId = a})
instance AWSRequest GetStreamingDistributionConfig
where
type Rs GetStreamingDistributionConfig =
GetStreamingDistributionConfigResponse
request = get cloudFront
response
= receiveXML
(\ s h x ->
GetStreamingDistributionConfigResponse' <$>
(parseXML x) <*> (h .#? "ETag") <*>
(pure (fromEnum s)))
instance Hashable GetStreamingDistributionConfig
where
instance NFData GetStreamingDistributionConfig where
instance ToHeaders GetStreamingDistributionConfig
where
toHeaders = const mempty
instance ToPath GetStreamingDistributionConfig where
toPath GetStreamingDistributionConfig'{..}
= mconcat
["/2017-10-30/streaming-distribution/", toBS _gsdcId,
"/config"]
instance ToQuery GetStreamingDistributionConfig where
toQuery = const mempty
data GetStreamingDistributionConfigResponse = GetStreamingDistributionConfigResponse'
{ _gsdcrsStreamingDistributionConfig :: !(Maybe StreamingDistributionConfig)
, _gsdcrsETag :: !(Maybe Text)
, _gsdcrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getStreamingDistributionConfigResponse
:: Int
-> GetStreamingDistributionConfigResponse
getStreamingDistributionConfigResponse pResponseStatus_ =
GetStreamingDistributionConfigResponse'
{ _gsdcrsStreamingDistributionConfig = Nothing
, _gsdcrsETag = Nothing
, _gsdcrsResponseStatus = pResponseStatus_
}
gsdcrsStreamingDistributionConfig :: Lens' GetStreamingDistributionConfigResponse (Maybe StreamingDistributionConfig)
gsdcrsStreamingDistributionConfig = lens _gsdcrsStreamingDistributionConfig (\ s a -> s{_gsdcrsStreamingDistributionConfig = a})
gsdcrsETag :: Lens' GetStreamingDistributionConfigResponse (Maybe Text)
gsdcrsETag = lens _gsdcrsETag (\ s a -> s{_gsdcrsETag = a})
gsdcrsResponseStatus :: Lens' GetStreamingDistributionConfigResponse Int
gsdcrsResponseStatus = lens _gsdcrsResponseStatus (\ s a -> s{_gsdcrsResponseStatus = a})
instance NFData
GetStreamingDistributionConfigResponse
where