Skip to content

Commit

Permalink
Regenerating amazonka-cloudfront from latest service definition
Browse files Browse the repository at this point in the history
  • Loading branch information
brendanhay committed Nov 29, 2016
1 parent ce82485 commit 4e292a8
Show file tree
Hide file tree
Showing 30 changed files with 987 additions and 519 deletions.
2 changes: 2 additions & 0 deletions amazonka-cloudfront/gen/Network/AWS/CloudFront.hs
Original file line number Diff line number Diff line change
Expand Up @@ -469,6 +469,7 @@ module Network.AWS.CloudFront
, dcRestrictions
, dcLogging
, dcCacheBehaviors
, dcIsIPV6Enabled
, dcCallerReference
, dcOrigins
, dcDefaultCacheBehavior
Expand Down Expand Up @@ -511,6 +512,7 @@ module Network.AWS.CloudFront
, dsRestrictions
, dsWebACLId
, dsHTTPVersion
, dsIsIPV6Enabled

-- ** ForwardedValues
, ForwardedValues
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -18,7 +18,9 @@
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Create a new origin access identity.
-- Creates a new origin access identity. If you're using Amazon S3 for your origin, you can use an origin access identity to require users to access your content using a CloudFront URL instead of the Amazon S3 URL. For more information about how to use origin access identities, see <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/PrivateContent.html Serving Private Content through CloudFront> in the /Amazon CloudFront Developer Guide/ .
--
--
module Network.AWS.CloudFront.CreateCloudFrontOriginAccessIdentity
(
-- * Creating a Request
Expand Down Expand Up @@ -46,6 +48,8 @@ import Network.AWS.Response

-- | The request to create a new origin access identity.
--
--
--
-- /See:/ 'createCloudFrontOriginAccessIdentity' smart constructor.
newtype CreateCloudFrontOriginAccessIdentity = CreateCloudFrontOriginAccessIdentity'
{ _ccfoaiCloudFrontOriginAccessIdentityConfig :: CloudFrontOriginAccessIdentityConfig
Expand All @@ -55,7 +59,7 @@ newtype CreateCloudFrontOriginAccessIdentity = CreateCloudFrontOriginAccessIdent
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'ccfoaiCloudFrontOriginAccessIdentityConfig' - The origin access identity's configuration information.
-- * 'ccfoaiCloudFrontOriginAccessIdentityConfig' - The current configuration information for the identity.
createCloudFrontOriginAccessIdentity
:: CloudFrontOriginAccessIdentityConfig -- ^ 'ccfoaiCloudFrontOriginAccessIdentityConfig'
-> CreateCloudFrontOriginAccessIdentity
Expand All @@ -64,7 +68,7 @@ createCloudFrontOriginAccessIdentity pCloudFrontOriginAccessIdentityConfig_ =
{ _ccfoaiCloudFrontOriginAccessIdentityConfig = pCloudFrontOriginAccessIdentityConfig_
}

-- | The origin access identity's configuration information.
-- | The current configuration information for the identity.
ccfoaiCloudFrontOriginAccessIdentityConfig :: Lens' CreateCloudFrontOriginAccessIdentity CloudFrontOriginAccessIdentityConfig
ccfoaiCloudFrontOriginAccessIdentityConfig = lens _ccfoaiCloudFrontOriginAccessIdentityConfig (\ s a -> s{_ccfoaiCloudFrontOriginAccessIdentityConfig = a});

Expand All @@ -90,7 +94,7 @@ instance ToElement
CreateCloudFrontOriginAccessIdentity where
toElement
= mkElement
"{http://cloudfront.amazonaws.com/doc/2016-09-07/}CloudFrontOriginAccessIdentityConfig"
"{http://cloudfront.amazonaws.com/doc/2016-09-29/}CloudFrontOriginAccessIdentityConfig"
.
_ccfoaiCloudFrontOriginAccessIdentityConfig

Expand All @@ -102,14 +106,16 @@ instance ToPath CreateCloudFrontOriginAccessIdentity
where
toPath
= const
"/2016-09-07/origin-access-identity/cloudfront"
"/2016-09-29/origin-access-identity/cloudfront"

instance ToQuery CreateCloudFrontOriginAccessIdentity
where
toQuery = const mempty

-- | The returned result of the corresponding request.
--
--
--
-- /See:/ 'createCloudFrontOriginAccessIdentityResponse' smart constructor.
data CreateCloudFrontOriginAccessIdentityResponse = CreateCloudFrontOriginAccessIdentityResponse'
{ _ccfoairsETag :: !(Maybe Text)
Expand All @@ -124,7 +130,7 @@ data CreateCloudFrontOriginAccessIdentityResponse = CreateCloudFrontOriginAccess
--
-- * 'ccfoairsETag' - The current version of the origin access identity created.
--
-- * 'ccfoairsLocation' - The fully qualified URI of the new origin access identity just created. For example: https://cloudfront.amazonaws.com/2010-11-01/origin-access-identity/cloudfront/E74FTE3AJFJ256A.
-- * 'ccfoairsLocation' - The fully qualified URI of the new origin access identity just created. For example: @https://cloudfront.amazonaws.com/2010-11-01/origin-access-identity/cloudfront/E74FTE3AJFJ256A@ .
--
-- * 'ccfoairsCloudFrontOriginAccessIdentity' - The origin access identity's information.
--
Expand All @@ -144,7 +150,7 @@ createCloudFrontOriginAccessIdentityResponse pResponseStatus_ =
ccfoairsETag :: Lens' CreateCloudFrontOriginAccessIdentityResponse (Maybe Text)
ccfoairsETag = lens _ccfoairsETag (\ s a -> s{_ccfoairsETag = a});

-- | The fully qualified URI of the new origin access identity just created. For example: https://cloudfront.amazonaws.com/2010-11-01/origin-access-identity/cloudfront/E74FTE3AJFJ256A.
-- | The fully qualified URI of the new origin access identity just created. For example: @https://cloudfront.amazonaws.com/2010-11-01/origin-access-identity/cloudfront/E74FTE3AJFJ256A@ .
ccfoairsLocation :: Lens' CreateCloudFrontOriginAccessIdentityResponse (Maybe Text)
ccfoairsLocation = lens _ccfoairsLocation (\ s a -> s{_ccfoairsLocation = a});

Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -18,7 +18,9 @@
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Create a new distribution.
-- Creates a new web distribution. Send a @GET@ request to the @//CloudFront API version/ /distribution@ /@distribution ID@ resource.
--
--
module Network.AWS.CloudFront.CreateDistribution
(
-- * Creating a Request
Expand Down Expand Up @@ -46,6 +48,8 @@ import Network.AWS.Response

-- | The request to create a new distribution.
--
--
--
-- /See:/ 'createDistribution' smart constructor.
newtype CreateDistribution = CreateDistribution'
{ _cdDistributionConfig :: DistributionConfig
Expand Down Expand Up @@ -87,21 +91,23 @@ instance NFData CreateDistribution
instance ToElement CreateDistribution where
toElement
= mkElement
"{http://cloudfront.amazonaws.com/doc/2016-09-07/}DistributionConfig"
"{http://cloudfront.amazonaws.com/doc/2016-09-29/}DistributionConfig"
.
_cdDistributionConfig

instance ToHeaders CreateDistribution where
toHeaders = const mempty

instance ToPath CreateDistribution where
toPath = const "/2016-09-07/distribution"
toPath = const "/2016-09-29/distribution"

instance ToQuery CreateDistribution where
toQuery = const mempty

-- | The returned result of the corresponding request.
--
--
--
-- /See:/ 'createDistributionResponse' smart constructor.
data CreateDistributionResponse = CreateDistributionResponse'
{ _cdrsETag :: !(Maybe Text)
Expand All @@ -118,7 +124,7 @@ data CreateDistributionResponse = CreateDistributionResponse'
--
-- * 'cdrsDistribution' - The distribution's information.
--
-- * 'cdrsLocation' - The fully qualified URI of the new distribution resource just created. For example: https://cloudfront.amazonaws.com/2010-11-01/distribution/EDFDVBD632BHDS5.
-- * 'cdrsLocation' - The fully qualified URI of the new distribution resource just created. For example: @https://cloudfront.amazonaws.com/2010-11-01/distribution/EDFDVBD632BHDS5@ .
--
-- * 'cdrsResponseStatus' - -- | The response status code.
createDistributionResponse
Expand All @@ -140,7 +146,7 @@ cdrsETag = lens _cdrsETag (\ s a -> s{_cdrsETag = a});
cdrsDistribution :: Lens' CreateDistributionResponse (Maybe Distribution)
cdrsDistribution = lens _cdrsDistribution (\ s a -> s{_cdrsDistribution = a});

-- | The fully qualified URI of the new distribution resource just created. For example: https://cloudfront.amazonaws.com/2010-11-01/distribution/EDFDVBD632BHDS5.
-- | The fully qualified URI of the new distribution resource just created. For example: @https://cloudfront.amazonaws.com/2010-11-01/distribution/EDFDVBD632BHDS5@ .
cdrsLocation :: Lens' CreateDistributionResponse (Maybe Text)
cdrsLocation = lens _cdrsLocation (\ s a -> s{_cdrsLocation = a});

Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -19,6 +19,8 @@
-- Portability : non-portable (GHC extensions)
--
-- Create a new distribution with tags.
--
--
module Network.AWS.CloudFront.CreateDistributionWithTags
(
-- * Creating a Request
Expand All @@ -44,7 +46,9 @@ import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response

-- | The request to create a new distribution with tags
-- | The request to create a new distribution with tags.
--
--
--
-- /See:/ 'createDistributionWithTags' smart constructor.
newtype CreateDistributionWithTags = CreateDistributionWithTags'
Expand Down Expand Up @@ -87,21 +91,23 @@ instance NFData CreateDistributionWithTags
instance ToElement CreateDistributionWithTags where
toElement
= mkElement
"{http://cloudfront.amazonaws.com/doc/2016-09-07/}DistributionConfigWithTags"
"{http://cloudfront.amazonaws.com/doc/2016-09-29/}DistributionConfigWithTags"
.
_cdwtDistributionConfigWithTags

instance ToHeaders CreateDistributionWithTags where
toHeaders = const mempty

instance ToPath CreateDistributionWithTags where
toPath = const "/2016-09-07/distribution"
toPath = const "/2016-09-29/distribution"

instance ToQuery CreateDistributionWithTags where
toQuery = const (mconcat ["WithTags"])

-- | The returned result of the corresponding request.
--
--
--
-- /See:/ 'createDistributionWithTagsResponse' smart constructor.
data CreateDistributionWithTagsResponse = CreateDistributionWithTagsResponse'
{ _cdwtrsETag :: !(Maybe Text)
Expand All @@ -118,7 +124,7 @@ data CreateDistributionWithTagsResponse = CreateDistributionWithTagsResponse'
--
-- * 'cdwtrsDistribution' - The distribution's information.
--
-- * 'cdwtrsLocation' - The fully qualified URI of the new distribution resource just created. For example: https://cloudfront.amazonaws.com/2010-11-01/distribution/EDFDVBD632BHDS5.
-- * 'cdwtrsLocation' - The fully qualified URI of the new distribution resource just created. For example: @https://cloudfront.amazonaws.com/2010-11-01/distribution/EDFDVBD632BHDS5@ .
--
-- * 'cdwtrsResponseStatus' - -- | The response status code.
createDistributionWithTagsResponse
Expand All @@ -140,7 +146,7 @@ cdwtrsETag = lens _cdwtrsETag (\ s a -> s{_cdwtrsETag = a});
cdwtrsDistribution :: Lens' CreateDistributionWithTagsResponse (Maybe Distribution)
cdwtrsDistribution = lens _cdwtrsDistribution (\ s a -> s{_cdwtrsDistribution = a});

-- | The fully qualified URI of the new distribution resource just created. For example: https://cloudfront.amazonaws.com/2010-11-01/distribution/EDFDVBD632BHDS5.
-- | The fully qualified URI of the new distribution resource just created. For example: @https://cloudfront.amazonaws.com/2010-11-01/distribution/EDFDVBD632BHDS5@ .
cdwtrsLocation :: Lens' CreateDistributionWithTagsResponse (Maybe Text)
cdwtrsLocation = lens _cdwtrsLocation (\ s a -> s{_cdwtrsLocation = a});

Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -19,6 +19,8 @@
-- Portability : non-portable (GHC extensions)
--
-- Create a new invalidation.
--
--
module Network.AWS.CloudFront.CreateInvalidation
(
-- * Creating a Request
Expand Down Expand Up @@ -46,6 +48,8 @@ import Network.AWS.Response

-- | The request to create an invalidation.
--
--
--
-- /See:/ 'createInvalidation' smart constructor.
data CreateInvalidation = CreateInvalidation'
{ _ciDistributionId :: !Text
Expand Down Expand Up @@ -95,7 +99,7 @@ instance NFData CreateInvalidation
instance ToElement CreateInvalidation where
toElement
= mkElement
"{http://cloudfront.amazonaws.com/doc/2016-09-07/}InvalidationBatch"
"{http://cloudfront.amazonaws.com/doc/2016-09-29/}InvalidationBatch"
.
_ciInvalidationBatch

Expand All @@ -105,14 +109,16 @@ instance ToHeaders CreateInvalidation where
instance ToPath CreateInvalidation where
toPath CreateInvalidation'{..}
= mconcat
["/2016-09-07/distribution/", toBS _ciDistributionId,
["/2016-09-29/distribution/", toBS _ciDistributionId,
"/invalidation"]

instance ToQuery CreateInvalidation where
toQuery = const mempty

-- | The returned result of the corresponding request.
--
--
--
-- /See:/ 'createInvalidationResponse' smart constructor.
data CreateInvalidationResponse = CreateInvalidationResponse'
{ _cirsInvalidation :: !(Maybe Invalidation)
Expand All @@ -126,7 +132,7 @@ data CreateInvalidationResponse = CreateInvalidationResponse'
--
-- * 'cirsInvalidation' - The invalidation's information.
--
-- * 'cirsLocation' - The fully qualified URI of the distribution and invalidation batch request, including the Invalidation ID.
-- * 'cirsLocation' - The fully qualified URI of the distribution and invalidation batch request, including the @Invalidation ID@ .
--
-- * 'cirsResponseStatus' - -- | The response status code.
createInvalidationResponse
Expand All @@ -143,7 +149,7 @@ createInvalidationResponse pResponseStatus_ =
cirsInvalidation :: Lens' CreateInvalidationResponse (Maybe Invalidation)
cirsInvalidation = lens _cirsInvalidation (\ s a -> s{_cirsInvalidation = a});

-- | The fully qualified URI of the distribution and invalidation batch request, including the Invalidation ID.
-- | The fully qualified URI of the distribution and invalidation batch request, including the @Invalidation ID@ .
cirsLocation :: Lens' CreateInvalidationResponse (Maybe Text)
cirsLocation = lens _cirsLocation (\ s a -> s{_cirsLocation = a});

Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -18,7 +18,17 @@
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Create a new streaming distribution.
-- Creates a new RMTP distribution. An RTMP distribution is similar to a web distribution, but an RTMP distribution streams media files using the Adobe Real-Time Messaging Protocol (RTMP) instead of serving files using HTTP.
--
--
-- To create a new web distribution, submit a @POST@ request to the /CloudFront API version/ /distribution resource. The request body must include a document with a /StreamingDistributionConfig/ element. The response echoes the @StreamingDistributionConfig@ element and returns other information about the RTMP distribution.
--
-- To get the status of your request, use the /GET StreamingDistribution/ API action. When the value of @Enabled@ is @true@ and the value of @Status@ is @Deployed@ , your distribution is ready. A distribution usually deploys in less than 15 minutes.
--
-- For more information about web distributions, see <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/distribution-rtmp.html Working with RTMP Distributions> in the /Amazon CloudFront Developer Guide/ .
--
-- /Important:/ Beginning with the 2012-05-05 version of the CloudFront API, we made substantial changes to the format of the XML document that you include in the request body when you create or update a web distribution or an RTMP distribution, and when you invalidate objects. With previous versions of the API, we discovered that it was too easy to accidentally delete one or more values for an element that accepts multiple values, for example, CNAMEs and trusted signers. Our changes for the 2012-05-05 release are intended to prevent these accidental deletions and to notify you when there's a mismatch between the number of values you say you're specifying in the @Quantity@ element and the number of values specified.
--
module Network.AWS.CloudFront.CreateStreamingDistribution
(
-- * Creating a Request
Expand Down Expand Up @@ -46,6 +56,8 @@ import Network.AWS.Response

-- | The request to create a new streaming distribution.
--
--
--
-- /See:/ 'createStreamingDistribution' smart constructor.
newtype CreateStreamingDistribution = CreateStreamingDistribution'
{ _csdStreamingDistributionConfig :: StreamingDistributionConfig
Expand Down Expand Up @@ -87,21 +99,23 @@ instance NFData CreateStreamingDistribution
instance ToElement CreateStreamingDistribution where
toElement
= mkElement
"{http://cloudfront.amazonaws.com/doc/2016-09-07/}StreamingDistributionConfig"
"{http://cloudfront.amazonaws.com/doc/2016-09-29/}StreamingDistributionConfig"
.
_csdStreamingDistributionConfig

instance ToHeaders CreateStreamingDistribution where
toHeaders = const mempty

instance ToPath CreateStreamingDistribution where
toPath = const "/2016-09-07/streaming-distribution"
toPath = const "/2016-09-29/streaming-distribution"

instance ToQuery CreateStreamingDistribution where
toQuery = const mempty

-- | The returned result of the corresponding request.
--
--
--
-- /See:/ 'createStreamingDistributionResponse' smart constructor.
data CreateStreamingDistributionResponse = CreateStreamingDistributionResponse'
{ _csdrsETag :: !(Maybe Text)
Expand All @@ -116,7 +130,7 @@ data CreateStreamingDistributionResponse = CreateStreamingDistributionResponse'
--
-- * 'csdrsETag' - The current version of the streaming distribution created.
--
-- * 'csdrsLocation' - The fully qualified URI of the new streaming distribution resource just created. For example: https://cloudfront.amazonaws.com/2010-11-01/streaming-distribution/EGTXBD79H29TRA8.
-- * 'csdrsLocation' - The fully qualified URI of the new streaming distribution resource just created. For example: @https://cloudfront.amazonaws.com/2010-11-01/streaming-distribution/EGTXBD79H29TRA8@ .
--
-- * 'csdrsStreamingDistribution' - The streaming distribution's information.
--
Expand All @@ -136,7 +150,7 @@ createStreamingDistributionResponse pResponseStatus_ =
csdrsETag :: Lens' CreateStreamingDistributionResponse (Maybe Text)
csdrsETag = lens _csdrsETag (\ s a -> s{_csdrsETag = a});

-- | The fully qualified URI of the new streaming distribution resource just created. For example: https://cloudfront.amazonaws.com/2010-11-01/streaming-distribution/EGTXBD79H29TRA8.
-- | The fully qualified URI of the new streaming distribution resource just created. For example: @https://cloudfront.amazonaws.com/2010-11-01/streaming-distribution/EGTXBD79H29TRA8@ .
csdrsLocation :: Lens' CreateStreamingDistributionResponse (Maybe Text)
csdrsLocation = lens _csdrsLocation (\ s a -> s{_csdrsLocation = a});

Expand Down
Loading

0 comments on commit 4e292a8

Please sign in to comment.