{-# 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.CreateStreamingDistributionWithTags
(
createStreamingDistributionWithTags
, CreateStreamingDistributionWithTags
, csdwtStreamingDistributionConfigWithTags
, createStreamingDistributionWithTagsResponse
, CreateStreamingDistributionWithTagsResponse
, csdwtrsETag
, csdwtrsLocation
, csdwtrsStreamingDistribution
, csdwtrsResponseStatus
) 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 CreateStreamingDistributionWithTags = CreateStreamingDistributionWithTags'
{ _csdwtStreamingDistributionConfigWithTags :: StreamingDistributionConfigWithTags
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createStreamingDistributionWithTags
:: StreamingDistributionConfigWithTags
-> CreateStreamingDistributionWithTags
createStreamingDistributionWithTags pStreamingDistributionConfigWithTags_ =
CreateStreamingDistributionWithTags'
{ _csdwtStreamingDistributionConfigWithTags =
pStreamingDistributionConfigWithTags_
}
csdwtStreamingDistributionConfigWithTags :: Lens' CreateStreamingDistributionWithTags StreamingDistributionConfigWithTags
csdwtStreamingDistributionConfigWithTags = lens _csdwtStreamingDistributionConfigWithTags (\ s a -> s{_csdwtStreamingDistributionConfigWithTags = a})
instance AWSRequest
CreateStreamingDistributionWithTags
where
type Rs CreateStreamingDistributionWithTags =
CreateStreamingDistributionWithTagsResponse
request = postXML cloudFront
response
= receiveXML
(\ s h x ->
CreateStreamingDistributionWithTagsResponse' <$>
(h .#? "ETag") <*> (h .#? "Location") <*>
(parseXML x)
<*> (pure (fromEnum s)))
instance Hashable CreateStreamingDistributionWithTags
where
instance NFData CreateStreamingDistributionWithTags
where
instance ToElement
CreateStreamingDistributionWithTags
where
toElement
= mkElement
"{http://cloudfront.amazonaws.com/doc/2017-10-30/}StreamingDistributionConfigWithTags"
.
_csdwtStreamingDistributionConfigWithTags
instance ToHeaders
CreateStreamingDistributionWithTags
where
toHeaders = const mempty
instance ToPath CreateStreamingDistributionWithTags
where
toPath = const "/2017-10-30/streaming-distribution"
instance ToQuery CreateStreamingDistributionWithTags
where
toQuery = const (mconcat ["WithTags"])
data CreateStreamingDistributionWithTagsResponse = CreateStreamingDistributionWithTagsResponse'
{ _csdwtrsETag :: !(Maybe Text)
, _csdwtrsLocation :: !(Maybe Text)
, _csdwtrsStreamingDistribution :: !(Maybe StreamingDistribution)
, _csdwtrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createStreamingDistributionWithTagsResponse
:: Int
-> CreateStreamingDistributionWithTagsResponse
createStreamingDistributionWithTagsResponse pResponseStatus_ =
CreateStreamingDistributionWithTagsResponse'
{ _csdwtrsETag = Nothing
, _csdwtrsLocation = Nothing
, _csdwtrsStreamingDistribution = Nothing
, _csdwtrsResponseStatus = pResponseStatus_
}
csdwtrsETag :: Lens' CreateStreamingDistributionWithTagsResponse (Maybe Text)
csdwtrsETag = lens _csdwtrsETag (\ s a -> s{_csdwtrsETag = a})
csdwtrsLocation :: Lens' CreateStreamingDistributionWithTagsResponse (Maybe Text)
csdwtrsLocation = lens _csdwtrsLocation (\ s a -> s{_csdwtrsLocation = a})
csdwtrsStreamingDistribution :: Lens' CreateStreamingDistributionWithTagsResponse (Maybe StreamingDistribution)
csdwtrsStreamingDistribution = lens _csdwtrsStreamingDistribution (\ s a -> s{_csdwtrsStreamingDistribution = a})
csdwtrsResponseStatus :: Lens' CreateStreamingDistributionWithTagsResponse Int
csdwtrsResponseStatus = lens _csdwtrsResponseStatus (\ s a -> s{_csdwtrsResponseStatus = a})
instance NFData
CreateStreamingDistributionWithTagsResponse
where