module Network.AWS.CloudFront.GetStreamingDistributionConfig
(
getStreamingDistributionConfig
, GetStreamingDistributionConfig
, gsdcId
, getStreamingDistributionConfigResponse
, GetStreamingDistributionConfigResponse
, gsdcrsStreamingDistributionConfig
, gsdcrsETag
, gsdcrsStatus
) where
import Network.AWS.CloudFront.Types
import Network.AWS.CloudFront.Types.Product
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 ToHeaders GetStreamingDistributionConfig
where
toHeaders = const mempty
instance ToPath GetStreamingDistributionConfig where
toPath GetStreamingDistributionConfig'{..}
= mconcat
["/2015-04-17/streaming-distribution/", toBS _gsdcId,
"/config"]
instance ToQuery GetStreamingDistributionConfig where
toQuery = const mempty
data GetStreamingDistributionConfigResponse = GetStreamingDistributionConfigResponse'
{ _gsdcrsStreamingDistributionConfig :: !(Maybe StreamingDistributionConfig)
, _gsdcrsETag :: !(Maybe Text)
, _gsdcrsStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
getStreamingDistributionConfigResponse
:: Int
-> GetStreamingDistributionConfigResponse
getStreamingDistributionConfigResponse pStatus_ =
GetStreamingDistributionConfigResponse'
{ _gsdcrsStreamingDistributionConfig = Nothing
, _gsdcrsETag = Nothing
, _gsdcrsStatus = pStatus_
}
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});
gsdcrsStatus :: Lens' GetStreamingDistributionConfigResponse Int
gsdcrsStatus = lens _gsdcrsStatus (\ s a -> s{_gsdcrsStatus = a});