module Network.AWS.CloudFront.CreateDistribution
(
createDistribution
, CreateDistribution
, cdDistributionConfig
, createDistributionResponse
, CreateDistributionResponse
, cdrsETag
, cdrsDistribution
, cdrsLocation
, cdrsResponseStatus
) 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 CreateDistribution = CreateDistribution'
{ _cdDistributionConfig :: DistributionConfig
} deriving (Eq,Read,Show,Data,Typeable,Generic)
createDistribution
:: DistributionConfig
-> CreateDistribution
createDistribution pDistributionConfig_ =
CreateDistribution'
{ _cdDistributionConfig = pDistributionConfig_
}
cdDistributionConfig :: Lens' CreateDistribution DistributionConfig
cdDistributionConfig = lens _cdDistributionConfig (\ s a -> s{_cdDistributionConfig = a});
instance AWSRequest CreateDistribution where
type Rs CreateDistribution =
CreateDistributionResponse
request = postXML cloudFront
response
= receiveXML
(\ s h x ->
CreateDistributionResponse' <$>
(h .#? "ETag") <*> (parseXML x) <*>
(h .#? "Location")
<*> (pure (fromEnum s)))
instance ToElement CreateDistribution where
toElement
= mkElement
"{http://cloudfront.amazonaws.com/doc/2015-04-17/}DistributionConfig"
.
_cdDistributionConfig
instance ToHeaders CreateDistribution where
toHeaders = const mempty
instance ToPath CreateDistribution where
toPath = const "/2015-04-17/distribution"
instance ToQuery CreateDistribution where
toQuery = const mempty
data CreateDistributionResponse = CreateDistributionResponse'
{ _cdrsETag :: !(Maybe Text)
, _cdrsDistribution :: !(Maybe Distribution)
, _cdrsLocation :: !(Maybe Text)
, _cdrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
createDistributionResponse
:: Int
-> CreateDistributionResponse
createDistributionResponse pResponseStatus_ =
CreateDistributionResponse'
{ _cdrsETag = Nothing
, _cdrsDistribution = Nothing
, _cdrsLocation = Nothing
, _cdrsResponseStatus = pResponseStatus_
}
cdrsETag :: Lens' CreateDistributionResponse (Maybe Text)
cdrsETag = lens _cdrsETag (\ s a -> s{_cdrsETag = a});
cdrsDistribution :: Lens' CreateDistributionResponse (Maybe Distribution)
cdrsDistribution = lens _cdrsDistribution (\ s a -> s{_cdrsDistribution = a});
cdrsLocation :: Lens' CreateDistributionResponse (Maybe Text)
cdrsLocation = lens _cdrsLocation (\ s a -> s{_cdrsLocation = a});
cdrsResponseStatus :: Lens' CreateDistributionResponse Int
cdrsResponseStatus = lens _cdrsResponseStatus (\ s a -> s{_cdrsResponseStatus = a});