diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,24 +8,27 @@ ## Version -`1.4.4` +`1.4.5` ## Description -Amazon CloudFront is a web service that speeds up distribution of your static and dynamic web content, for example, .html, .css, .php, image, and media files, to end users. CloudFront delivers your content through a worldwide network of edge locations. When an end user requests content that you\'re serving with CloudFront, the user is routed to the edge location that provides the lowest latency, so content is delivered with the best possible performance. If the content is already in that edge location, CloudFront delivers it immediately. If the content is not currently in that edge location, CloudFront retrieves it from an Amazon S3 bucket or an HTTP server (for example, a web server) that you have identified as the source for the definitive version of your content. - Documentation is available via [Hackage](http://hackage.haskell.org/package/amazonka-cloudfront) and the [AWS API Reference](https://aws.amazon.com/documentation/). The types from this library are intended to be used with [amazonka](http://hackage.haskell.org/package/amazonka), -which provides mechanisms for specifying AuthN/AuthZ information and sending requests. +which provides mechanisms for specifying AuthN/AuthZ information, sending requests, +and receiving responses. -Use of lenses is required for constructing and manipulating types. -This is due to the amount of nesting of AWS types and transparency regarding +Lenses are used for constructing and manipulating types, +due to the depth of nesting of AWS types and transparency regarding de/serialisation into more palatable Haskell values. The provided lenses should be compatible with any of the major lens libraries [lens](http://hackage.haskell.org/package/lens) or [lens-family-core](http://hackage.haskell.org/package/lens-family-core). + +See [Network.AWS.CloudFront](http://hackage.haskell.org/package/amazonka-cloudfront/docs/Network-AWS-CloudFront.html) +or [the AWS documentation](https://aws.amazon.com/documentation/) to get started. + ## Contribute diff --git a/amazonka-cloudfront.cabal b/amazonka-cloudfront.cabal --- a/amazonka-cloudfront.cabal +++ b/amazonka-cloudfront.cabal @@ -1,5 +1,5 @@ name: amazonka-cloudfront -version: 1.4.4 +version: 1.4.5 synopsis: Amazon CloudFront SDK. homepage: https://github.com/brendanhay/amazonka bug-reports: https://github.com/brendanhay/amazonka/issues @@ -13,20 +13,19 @@ cabal-version: >= 1.10 extra-source-files: README.md fixture/*.yaml fixture/*.proto src/.gitkeep description: - Amazon CloudFront is a web service that speeds up distribution of your static and dynamic web content, for example, .html, .css, .php, image, and media files, to end users. CloudFront delivers your content through a worldwide network of edge locations. When an end user requests content that you\'re serving with CloudFront, the user is routed to the edge location that provides the lowest latency, so content is delivered with the best possible performance. If the content is already in that edge location, CloudFront delivers it immediately. If the content is not currently in that edge location, CloudFront retrieves it from an Amazon S3 bucket or an HTTP server (for example, a web server) that you have identified as the source for the definitive version of your content. - . The types from this library are intended to be used with , which provides - mechanisms for specifying AuthN/AuthZ information and sending requests. + mechanisms for specifying AuthN/AuthZ information, sending requests, + and receiving responses. . - Use of lenses is required for constructing and manipulating types. - This is due to the amount of nesting of AWS types and transparency regarding + Lenses are used for constructing and manipulating types, + due to the depth of nesting of AWS types and transparency regarding de/serialisation into more palatable Haskell values. The provided lenses should be compatible with any of the major lens libraries such as or . . - See "Network.AWS.CloudFront" or + See "Network.AWS.CloudFront" or to get started. source-repository head @@ -76,7 +75,7 @@ , Network.AWS.CloudFront.Types.Sum build-depends: - amazonka-core == 1.4.4.* + amazonka-core == 1.4.5.* , base >= 4.7 && < 5 test-suite amazonka-cloudfront-test @@ -96,9 +95,9 @@ , Test.AWS.CloudFront.Internal build-depends: - amazonka-core == 1.4.4.* - , amazonka-test == 1.4.4.* - , amazonka-cloudfront == 1.4.4.* + amazonka-core == 1.4.5.* + , amazonka-test == 1.4.5.* + , amazonka-cloudfront == 1.4.5.* , base , bytestring , tasty diff --git a/gen/Network/AWS/CloudFront.hs b/gen/Network/AWS/CloudFront.hs --- a/gen/Network/AWS/CloudFront.hs +++ b/gen/Network/AWS/CloudFront.hs @@ -11,7 +11,7 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- Amazon CloudFront is a web service that speeds up distribution of your static and dynamic web content, for example, .html, .css, .php, image, and media files, to end users. CloudFront delivers your content through a worldwide network of edge locations. When an end user requests content that you\'re serving with CloudFront, the user is routed to the edge location that provides the lowest latency, so content is delivered with the best possible performance. If the content is already in that edge location, CloudFront delivers it immediately. If the content is not currently in that edge location, CloudFront retrieves it from an Amazon S3 bucket or an HTTP server (for example, a web server) that you have identified as the source for the definitive version of your content. +-- Amazon CloudFront is a web service that speeds up distribution of your static and dynamic web content, for example, .html, .css, .php, image, and media files, to end users. CloudFront delivers your content through a worldwide network of edge locations. When an end user requests content that you're serving with CloudFront, the user is routed to the edge location that provides the lowest latency, so content is delivered with the best possible performance. If the content is already in that edge location, CloudFront delivers it immediately. If the content is not currently in that edge location, CloudFront retrieves it from an Amazon S3 bucket or an HTTP server (for example, a web server) that you have identified as the source for the definitive version of your content. module Network.AWS.CloudFront ( -- * Service Configuration @@ -469,6 +469,7 @@ , dcRestrictions , dcLogging , dcCacheBehaviors + , dcIsIPV6Enabled , dcCallerReference , dcOrigins , dcDefaultCacheBehavior @@ -511,6 +512,7 @@ , dsRestrictions , dsWebACLId , dsHTTPVersion + , dsIsIPV6Enabled -- ** ForwardedValues , ForwardedValues diff --git a/gen/Network/AWS/CloudFront/CreateCloudFrontOriginAccessIdentity.hs b/gen/Network/AWS/CloudFront/CreateCloudFrontOriginAccessIdentity.hs --- a/gen/Network/AWS/CloudFront/CreateCloudFrontOriginAccessIdentity.hs +++ b/gen/Network/AWS/CloudFront/CreateCloudFrontOriginAccessIdentity.hs @@ -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 in the /Amazon CloudFront Developer Guide/ . +-- +-- module Network.AWS.CloudFront.CreateCloudFrontOriginAccessIdentity ( -- * Creating a Request @@ -46,6 +48,8 @@ -- | The request to create a new origin access identity. -- +-- +-- -- /See:/ 'createCloudFrontOriginAccessIdentity' smart constructor. newtype CreateCloudFrontOriginAccessIdentity = CreateCloudFrontOriginAccessIdentity' { _ccfoaiCloudFrontOriginAccessIdentityConfig :: CloudFrontOriginAccessIdentityConfig @@ -55,7 +59,7 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'ccfoaiCloudFrontOriginAccessIdentityConfig' +-- * 'ccfoaiCloudFrontOriginAccessIdentityConfig' - The current configuration information for the identity. createCloudFrontOriginAccessIdentity :: CloudFrontOriginAccessIdentityConfig -- ^ 'ccfoaiCloudFrontOriginAccessIdentityConfig' -> CreateCloudFrontOriginAccessIdentity @@ -64,7 +68,7 @@ { _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}); @@ -90,7 +94,7 @@ CreateCloudFrontOriginAccessIdentity where toElement = mkElement - "{http://cloudfront.amazonaws.com/doc/2016-09-07/}CloudFrontOriginAccessIdentityConfig" + "{http://cloudfront.amazonaws.com/doc/2016-09-29/}CloudFrontOriginAccessIdentityConfig" . _ccfoaiCloudFrontOriginAccessIdentityConfig @@ -102,7 +106,7 @@ where toPath = const - "/2016-09-07/origin-access-identity/cloudfront" + "/2016-09-29/origin-access-identity/cloudfront" instance ToQuery CreateCloudFrontOriginAccessIdentity where @@ -110,6 +114,8 @@ -- | The returned result of the corresponding request. -- +-- +-- -- /See:/ 'createCloudFrontOriginAccessIdentityResponse' smart constructor. data CreateCloudFrontOriginAccessIdentityResponse = CreateCloudFrontOriginAccessIdentityResponse' { _ccfoairsETag :: !(Maybe Text) @@ -122,13 +128,13 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'ccfoairsETag' +-- * 'ccfoairsETag' - The current version of the origin access identity created. -- --- * 'ccfoairsLocation' +-- * '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' +-- * 'ccfoairsCloudFrontOriginAccessIdentity' - The origin access identity's information. -- --- * 'ccfoairsResponseStatus' +-- * 'ccfoairsResponseStatus' - -- | The response status code. createCloudFrontOriginAccessIdentityResponse :: Int -- ^ 'ccfoairsResponseStatus' -> CreateCloudFrontOriginAccessIdentityResponse @@ -144,15 +150,15 @@ 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}); --- | The origin access identity\'s information. +-- | The origin access identity's information. ccfoairsCloudFrontOriginAccessIdentity :: Lens' CreateCloudFrontOriginAccessIdentityResponse (Maybe CloudFrontOriginAccessIdentity) ccfoairsCloudFrontOriginAccessIdentity = lens _ccfoairsCloudFrontOriginAccessIdentity (\ s a -> s{_ccfoairsCloudFrontOriginAccessIdentity = a}); --- | The response status code. +-- | -- | The response status code. ccfoairsResponseStatus :: Lens' CreateCloudFrontOriginAccessIdentityResponse Int ccfoairsResponseStatus = lens _ccfoairsResponseStatus (\ s a -> s{_ccfoairsResponseStatus = a}); diff --git a/gen/Network/AWS/CloudFront/CreateDistribution.hs b/gen/Network/AWS/CloudFront/CreateDistribution.hs --- a/gen/Network/AWS/CloudFront/CreateDistribution.hs +++ b/gen/Network/AWS/CloudFront/CreateDistribution.hs @@ -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 @@ -46,6 +48,8 @@ -- | The request to create a new distribution. -- +-- +-- -- /See:/ 'createDistribution' smart constructor. newtype CreateDistribution = CreateDistribution' { _cdDistributionConfig :: DistributionConfig @@ -55,7 +59,7 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'cdDistributionConfig' +-- * 'cdDistributionConfig' - The distribution's configuration information. createDistribution :: DistributionConfig -- ^ 'cdDistributionConfig' -> CreateDistribution @@ -64,7 +68,7 @@ { _cdDistributionConfig = pDistributionConfig_ } --- | The distribution\'s configuration information. +-- | The distribution's configuration information. cdDistributionConfig :: Lens' CreateDistribution DistributionConfig cdDistributionConfig = lens _cdDistributionConfig (\ s a -> s{_cdDistributionConfig = a}); @@ -87,7 +91,7 @@ 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 @@ -95,13 +99,15 @@ 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) @@ -114,13 +120,13 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'cdrsETag' +-- * 'cdrsETag' - The current version of the distribution created. -- --- * 'cdrsDistribution' +-- * 'cdrsDistribution' - The distribution's information. -- --- * 'cdrsLocation' +-- * 'cdrsLocation' - The fully qualified URI of the new distribution resource just created. For example: @https://cloudfront.amazonaws.com/2010-11-01/distribution/EDFDVBD632BHDS5@ . -- --- * 'cdrsResponseStatus' +-- * 'cdrsResponseStatus' - -- | The response status code. createDistributionResponse :: Int -- ^ 'cdrsResponseStatus' -> CreateDistributionResponse @@ -136,15 +142,15 @@ cdrsETag :: Lens' CreateDistributionResponse (Maybe Text) cdrsETag = lens _cdrsETag (\ s a -> s{_cdrsETag = a}); --- | The distribution\'s information. +-- | The distribution's information. 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}); --- | The response status code. +-- | -- | The response status code. cdrsResponseStatus :: Lens' CreateDistributionResponse Int cdrsResponseStatus = lens _cdrsResponseStatus (\ s a -> s{_cdrsResponseStatus = a}); diff --git a/gen/Network/AWS/CloudFront/CreateDistributionWithTags.hs b/gen/Network/AWS/CloudFront/CreateDistributionWithTags.hs --- a/gen/Network/AWS/CloudFront/CreateDistributionWithTags.hs +++ b/gen/Network/AWS/CloudFront/CreateDistributionWithTags.hs @@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Create a new distribution with tags. +-- +-- module Network.AWS.CloudFront.CreateDistributionWithTags ( -- * Creating a Request @@ -44,8 +46,10 @@ 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' { _cdwtDistributionConfigWithTags :: DistributionConfigWithTags @@ -55,7 +59,7 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'cdwtDistributionConfigWithTags' +-- * 'cdwtDistributionConfigWithTags' - The distribution's configuration information. createDistributionWithTags :: DistributionConfigWithTags -- ^ 'cdwtDistributionConfigWithTags' -> CreateDistributionWithTags @@ -64,7 +68,7 @@ { _cdwtDistributionConfigWithTags = pDistributionConfigWithTags_ } --- | The distribution\'s configuration information. +-- | The distribution's configuration information. cdwtDistributionConfigWithTags :: Lens' CreateDistributionWithTags DistributionConfigWithTags cdwtDistributionConfigWithTags = lens _cdwtDistributionConfigWithTags (\ s a -> s{_cdwtDistributionConfigWithTags = a}); @@ -87,7 +91,7 @@ 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 @@ -95,13 +99,15 @@ 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) @@ -114,13 +120,13 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'cdwtrsETag' +-- * 'cdwtrsETag' - The current version of the distribution created. -- --- * 'cdwtrsDistribution' +-- * 'cdwtrsDistribution' - The distribution's information. -- --- * 'cdwtrsLocation' +-- * 'cdwtrsLocation' - The fully qualified URI of the new distribution resource just created. For example: @https://cloudfront.amazonaws.com/2010-11-01/distribution/EDFDVBD632BHDS5@ . -- --- * 'cdwtrsResponseStatus' +-- * 'cdwtrsResponseStatus' - -- | The response status code. createDistributionWithTagsResponse :: Int -- ^ 'cdwtrsResponseStatus' -> CreateDistributionWithTagsResponse @@ -136,15 +142,15 @@ cdwtrsETag :: Lens' CreateDistributionWithTagsResponse (Maybe Text) cdwtrsETag = lens _cdwtrsETag (\ s a -> s{_cdwtrsETag = a}); --- | The distribution\'s information. +-- | The distribution's information. 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}); --- | The response status code. +-- | -- | The response status code. cdwtrsResponseStatus :: Lens' CreateDistributionWithTagsResponse Int cdwtrsResponseStatus = lens _cdwtrsResponseStatus (\ s a -> s{_cdwtrsResponseStatus = a}); diff --git a/gen/Network/AWS/CloudFront/CreateInvalidation.hs b/gen/Network/AWS/CloudFront/CreateInvalidation.hs --- a/gen/Network/AWS/CloudFront/CreateInvalidation.hs +++ b/gen/Network/AWS/CloudFront/CreateInvalidation.hs @@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Create a new invalidation. +-- +-- module Network.AWS.CloudFront.CreateInvalidation ( -- * Creating a Request @@ -46,6 +48,8 @@ -- | The request to create an invalidation. -- +-- +-- -- /See:/ 'createInvalidation' smart constructor. data CreateInvalidation = CreateInvalidation' { _ciDistributionId :: !Text @@ -56,9 +60,9 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'ciDistributionId' +-- * 'ciDistributionId' - The distribution's id. -- --- * 'ciInvalidationBatch' +-- * 'ciInvalidationBatch' - The batch information for the invalidation. createInvalidation :: Text -- ^ 'ciDistributionId' -> InvalidationBatch -- ^ 'ciInvalidationBatch' @@ -69,7 +73,7 @@ , _ciInvalidationBatch = pInvalidationBatch_ } --- | The distribution\'s id. +-- | The distribution's id. ciDistributionId :: Lens' CreateInvalidation Text ciDistributionId = lens _ciDistributionId (\ s a -> s{_ciDistributionId = a}); @@ -95,7 +99,7 @@ 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 @@ -105,7 +109,7 @@ instance ToPath CreateInvalidation where toPath CreateInvalidation'{..} = mconcat - ["/2016-09-07/distribution/", toBS _ciDistributionId, + ["/2016-09-29/distribution/", toBS _ciDistributionId, "/invalidation"] instance ToQuery CreateInvalidation where @@ -113,6 +117,8 @@ -- | The returned result of the corresponding request. -- +-- +-- -- /See:/ 'createInvalidationResponse' smart constructor. data CreateInvalidationResponse = CreateInvalidationResponse' { _cirsInvalidation :: !(Maybe Invalidation) @@ -124,11 +130,11 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'cirsInvalidation' +-- * 'cirsInvalidation' - The invalidation's information. -- --- * 'cirsLocation' +-- * 'cirsLocation' - The fully qualified URI of the distribution and invalidation batch request, including the @Invalidation ID@ . -- --- * 'cirsResponseStatus' +-- * 'cirsResponseStatus' - -- | The response status code. createInvalidationResponse :: Int -- ^ 'cirsResponseStatus' -> CreateInvalidationResponse @@ -139,15 +145,15 @@ , _cirsResponseStatus = pResponseStatus_ } --- | The invalidation\'s information. +-- | The invalidation's information. 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}); --- | The response status code. +-- | -- | The response status code. cirsResponseStatus :: Lens' CreateInvalidationResponse Int cirsResponseStatus = lens _cirsResponseStatus (\ s a -> s{_cirsResponseStatus = a}); diff --git a/gen/Network/AWS/CloudFront/CreateStreamingDistribution.hs b/gen/Network/AWS/CloudFront/CreateStreamingDistribution.hs --- a/gen/Network/AWS/CloudFront/CreateStreamingDistribution.hs +++ b/gen/Network/AWS/CloudFront/CreateStreamingDistribution.hs @@ -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 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 @@ -46,6 +56,8 @@ -- | The request to create a new streaming distribution. -- +-- +-- -- /See:/ 'createStreamingDistribution' smart constructor. newtype CreateStreamingDistribution = CreateStreamingDistribution' { _csdStreamingDistributionConfig :: StreamingDistributionConfig @@ -55,7 +67,7 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'csdStreamingDistributionConfig' +-- * 'csdStreamingDistributionConfig' - The streaming distribution's configuration information. createStreamingDistribution :: StreamingDistributionConfig -- ^ 'csdStreamingDistributionConfig' -> CreateStreamingDistribution @@ -64,7 +76,7 @@ { _csdStreamingDistributionConfig = pStreamingDistributionConfig_ } --- | The streaming distribution\'s configuration information. +-- | The streaming distribution's configuration information. csdStreamingDistributionConfig :: Lens' CreateStreamingDistribution StreamingDistributionConfig csdStreamingDistributionConfig = lens _csdStreamingDistributionConfig (\ s a -> s{_csdStreamingDistributionConfig = a}); @@ -87,7 +99,7 @@ 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 @@ -95,13 +107,15 @@ 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) @@ -114,13 +128,13 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'csdrsETag' +-- * 'csdrsETag' - The current version of the streaming distribution created. -- --- * 'csdrsLocation' +-- * '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' +-- * 'csdrsStreamingDistribution' - The streaming distribution's information. -- --- * 'csdrsResponseStatus' +-- * 'csdrsResponseStatus' - -- | The response status code. createStreamingDistributionResponse :: Int -- ^ 'csdrsResponseStatus' -> CreateStreamingDistributionResponse @@ -136,15 +150,15 @@ 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}); --- | The streaming distribution\'s information. +-- | The streaming distribution's information. csdrsStreamingDistribution :: Lens' CreateStreamingDistributionResponse (Maybe StreamingDistribution) csdrsStreamingDistribution = lens _csdrsStreamingDistribution (\ s a -> s{_csdrsStreamingDistribution = a}); --- | The response status code. +-- | -- | The response status code. csdrsResponseStatus :: Lens' CreateStreamingDistributionResponse Int csdrsResponseStatus = lens _csdrsResponseStatus (\ s a -> s{_csdrsResponseStatus = a}); diff --git a/gen/Network/AWS/CloudFront/CreateStreamingDistributionWithTags.hs b/gen/Network/AWS/CloudFront/CreateStreamingDistributionWithTags.hs --- a/gen/Network/AWS/CloudFront/CreateStreamingDistributionWithTags.hs +++ b/gen/Network/AWS/CloudFront/CreateStreamingDistributionWithTags.hs @@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Create a new streaming distribution with tags. +-- +-- module Network.AWS.CloudFront.CreateStreamingDistributionWithTags ( -- * Creating a Request @@ -46,6 +48,8 @@ -- | The request to create a new streaming distribution with tags. -- +-- +-- -- /See:/ 'createStreamingDistributionWithTags' smart constructor. newtype CreateStreamingDistributionWithTags = CreateStreamingDistributionWithTags' { _csdwtStreamingDistributionConfigWithTags :: StreamingDistributionConfigWithTags @@ -55,7 +59,7 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'csdwtStreamingDistributionConfigWithTags' +-- * 'csdwtStreamingDistributionConfigWithTags' - The streaming distribution's configuration information. createStreamingDistributionWithTags :: StreamingDistributionConfigWithTags -- ^ 'csdwtStreamingDistributionConfigWithTags' -> CreateStreamingDistributionWithTags @@ -64,7 +68,7 @@ { _csdwtStreamingDistributionConfigWithTags = pStreamingDistributionConfigWithTags_ } --- | The streaming distribution\'s configuration information. +-- | The streaming distribution's configuration information. csdwtStreamingDistributionConfigWithTags :: Lens' CreateStreamingDistributionWithTags StreamingDistributionConfigWithTags csdwtStreamingDistributionConfigWithTags = lens _csdwtStreamingDistributionConfigWithTags (\ s a -> s{_csdwtStreamingDistributionConfigWithTags = a}); @@ -89,7 +93,7 @@ CreateStreamingDistributionWithTags where toElement = mkElement - "{http://cloudfront.amazonaws.com/doc/2016-09-07/}StreamingDistributionConfigWithTags" + "{http://cloudfront.amazonaws.com/doc/2016-09-29/}StreamingDistributionConfigWithTags" . _csdwtStreamingDistributionConfigWithTags @@ -99,7 +103,7 @@ instance ToPath CreateStreamingDistributionWithTags where - toPath = const "/2016-09-07/streaming-distribution" + toPath = const "/2016-09-29/streaming-distribution" instance ToQuery CreateStreamingDistributionWithTags where @@ -107,6 +111,8 @@ -- | The returned result of the corresponding request. -- +-- +-- -- /See:/ 'createStreamingDistributionWithTagsResponse' smart constructor. data CreateStreamingDistributionWithTagsResponse = CreateStreamingDistributionWithTagsResponse' { _csdwtrsETag :: !(Maybe Text) @@ -119,13 +125,13 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'csdwtrsETag' +-- * 'csdwtrsETag' - Undocumented member. -- --- * 'csdwtrsLocation' +-- * 'csdwtrsLocation' - The fully qualified URI of the new streaming distribution resource just created. For example:@https://cloudfront.amazonaws.com/2010-11-01/streaming-distribution/EGTXBD79H29TRA8@ . -- --- * 'csdwtrsStreamingDistribution' +-- * 'csdwtrsStreamingDistribution' - The streaming distribution's information. -- --- * 'csdwtrsResponseStatus' +-- * 'csdwtrsResponseStatus' - -- | The response status code. createStreamingDistributionWithTagsResponse :: Int -- ^ 'csdwtrsResponseStatus' -> CreateStreamingDistributionWithTagsResponse @@ -137,19 +143,19 @@ , _csdwtrsResponseStatus = pResponseStatus_ } --- | The current version of the streaming distribution created. +-- | Undocumented member. csdwtrsETag :: Lens' CreateStreamingDistributionWithTagsResponse (Maybe Text) csdwtrsETag = lens _csdwtrsETag (\ s a -> s{_csdwtrsETag = 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@ . csdwtrsLocation :: Lens' CreateStreamingDistributionWithTagsResponse (Maybe Text) csdwtrsLocation = lens _csdwtrsLocation (\ s a -> s{_csdwtrsLocation = a}); --- | The streaming distribution\'s information. +-- | The streaming distribution's information. csdwtrsStreamingDistribution :: Lens' CreateStreamingDistributionWithTagsResponse (Maybe StreamingDistribution) csdwtrsStreamingDistribution = lens _csdwtrsStreamingDistribution (\ s a -> s{_csdwtrsStreamingDistribution = a}); --- | The response status code. +-- | -- | The response status code. csdwtrsResponseStatus :: Lens' CreateStreamingDistributionWithTagsResponse Int csdwtrsResponseStatus = lens _csdwtrsResponseStatus (\ s a -> s{_csdwtrsResponseStatus = a}); diff --git a/gen/Network/AWS/CloudFront/DeleteCloudFrontOriginAccessIdentity.hs b/gen/Network/AWS/CloudFront/DeleteCloudFrontOriginAccessIdentity.hs --- a/gen/Network/AWS/CloudFront/DeleteCloudFrontOriginAccessIdentity.hs +++ b/gen/Network/AWS/CloudFront/DeleteCloudFrontOriginAccessIdentity.hs @@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Delete an origin access identity. +-- +-- module Network.AWS.CloudFront.DeleteCloudFrontOriginAccessIdentity ( -- * Creating a Request @@ -40,8 +42,10 @@ import Network.AWS.Request import Network.AWS.Response --- | The request to delete a origin access identity. +-- | Deletes a origin access identity. -- +-- +-- -- /See:/ 'deleteCloudFrontOriginAccessIdentity' smart constructor. data DeleteCloudFrontOriginAccessIdentity = DeleteCloudFrontOriginAccessIdentity' { _dcfoaiIfMatch :: !(Maybe Text) @@ -52,9 +56,9 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'dcfoaiIfMatch' +-- * 'dcfoaiIfMatch' - The value of the @ETag@ header you received from a previous @GET@ or @PUT@ request. For example: @E2QWRUHAPOMQZL@ . -- --- * 'dcfoaiId' +-- * 'dcfoaiId' - The origin access identity's ID. deleteCloudFrontOriginAccessIdentity :: Text -- ^ 'dcfoaiId' -> DeleteCloudFrontOriginAccessIdentity @@ -64,11 +68,11 @@ , _dcfoaiId = pId_ } --- | The value of the ETag header you received from a previous GET or PUT request. For example: E2QWRUHAPOMQZL. +-- | The value of the @ETag@ header you received from a previous @GET@ or @PUT@ request. For example: @E2QWRUHAPOMQZL@ . dcfoaiIfMatch :: Lens' DeleteCloudFrontOriginAccessIdentity (Maybe Text) dcfoaiIfMatch = lens _dcfoaiIfMatch (\ s a -> s{_dcfoaiIfMatch = a}); --- | The origin access identity\'s id. +-- | The origin access identity's ID. dcfoaiId :: Lens' DeleteCloudFrontOriginAccessIdentity Text dcfoaiId = lens _dcfoaiId (\ s a -> s{_dcfoaiId = a}); @@ -95,7 +99,7 @@ where toPath DeleteCloudFrontOriginAccessIdentity'{..} = mconcat - ["/2016-09-07/origin-access-identity/cloudfront/", + ["/2016-09-29/origin-access-identity/cloudfront/", toBS _dcfoaiId] instance ToQuery DeleteCloudFrontOriginAccessIdentity diff --git a/gen/Network/AWS/CloudFront/DeleteDistribution.hs b/gen/Network/AWS/CloudFront/DeleteDistribution.hs --- a/gen/Network/AWS/CloudFront/DeleteDistribution.hs +++ b/gen/Network/AWS/CloudFront/DeleteDistribution.hs @@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Delete a distribution. +-- +-- module Network.AWS.CloudFront.DeleteDistribution ( -- * Creating a Request @@ -40,8 +42,32 @@ import Network.AWS.Request import Network.AWS.Response --- | The request to delete a distribution. +-- | This action deletes a web distribution. To delete a web distribution using the CloudFront API, perform the following steps. -- +-- +-- __To delete a web distribution using the CloudFront API:__ +-- +-- * Disable the web distribution +-- +-- * Submit a @GET Distribution Config@ request to get the current configuration and the @Etag@ header for the distribution. +-- +-- * Update the XML document that was returned in the response to your @GET Distribution Config@ request to change the value of @Enabled@ to @false@ . +-- +-- * Submit a @PUT Distribution Config@ request to update the configuration for your distribution. In the request body, include the XML document that you updated in Step 3. Set the value of the HTTP @If-Match@ header to the value of the @ETag@ header that CloudFront returned when you submitted the @GET Distribution Config@ request in Step 2. +-- +-- * Review the response to the @PUT Distribution Config@ request to confirm that the distribution was successfully disabled. +-- +-- * Submit a @GET Distribution@ request to confirm that your changes have propagated. When propagation is complete, the value of @Status@ is @Deployed@ . +-- +-- * Submit a @DELETE Distribution@ request. Set the value of the HTTP @If-Match@ header to the value of the @ETag@ header that CloudFront returned when you submitted the @GET Distribution Config@ request in Step 6. +-- +-- * Review the response to your @DELETE Distribution@ request to confirm that the distribution was successfully deleted. +-- +-- +-- +-- For information about deleting a distribution using the CloudFront console, see in the /Amazon CloudFront Developer Guide/ . +-- +-- -- /See:/ 'deleteDistribution' smart constructor. data DeleteDistribution = DeleteDistribution' { _ddIfMatch :: !(Maybe Text) @@ -52,9 +78,9 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'ddIfMatch' +-- * 'ddIfMatch' - The value of the @ETag@ header that you received when you disabled the distribution. For example: @E2QWRUHAPOMQZL@ . -- --- * 'ddId' +-- * 'ddId' - The distribution ID. deleteDistribution :: Text -- ^ 'ddId' -> DeleteDistribution @@ -64,11 +90,11 @@ , _ddId = pId_ } --- | The value of the ETag header you received when you disabled the distribution. For example: E2QWRUHAPOMQZL. +-- | The value of the @ETag@ header that you received when you disabled the distribution. For example: @E2QWRUHAPOMQZL@ . ddIfMatch :: Lens' DeleteDistribution (Maybe Text) ddIfMatch = lens _ddIfMatch (\ s a -> s{_ddIfMatch = a}); --- | The distribution id. +-- | The distribution ID. ddId :: Lens' DeleteDistribution Text ddId = lens _ddId (\ s a -> s{_ddId = a}); @@ -88,7 +114,7 @@ instance ToPath DeleteDistribution where toPath DeleteDistribution'{..} - = mconcat ["/2016-09-07/distribution/", toBS _ddId] + = mconcat ["/2016-09-29/distribution/", toBS _ddId] instance ToQuery DeleteDistribution where toQuery = const mempty diff --git a/gen/Network/AWS/CloudFront/DeleteStreamingDistribution.hs b/gen/Network/AWS/CloudFront/DeleteStreamingDistribution.hs --- a/gen/Network/AWS/CloudFront/DeleteStreamingDistribution.hs +++ b/gen/Network/AWS/CloudFront/DeleteStreamingDistribution.hs @@ -18,7 +18,31 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- Delete a streaming distribution. +-- Delete a streaming distribution. To delete an RTMP distribution using the CloudFront API, perform the following steps. +-- +-- +-- __To delete an RTMP distribution using the CloudFront API__ : +-- +-- * Disable the RTMP distribution. +-- +-- * Submit a @GET Streaming Distribution Config@ request to get the current configuration and the @Etag@ header for the distribution. +-- +-- * Update the XML document that was returned in the response to your @GET Streaming Distribution Config@ request to change the value of @Enabled@ to @false@ . +-- +-- * Submit a @PUT Streaming Distribution Config@ request to update the configuration for your distribution. In the request body, include the XML document that you updated in Step 3. Then set the value of the HTTP @If-Match@ header to the value of the @ETag@ header that CloudFront returned when you submitted the @GET Streaming Distribution Config@ request in Step 2. +-- +-- * Review the response to the @PUT Streaming Distribution Config@ request to confirm that the distribution was successfully disabled. +-- +-- * Submit a @GET Streaming Distribution Config@ request to confirm that your changes have propagated. When propagation is complete, the value of @Status@ is @Deployed@ . +-- +-- * Submit a @DELETE Streaming Distribution@ request. Set the value of the HTTP @If-Match@ header to the value of the @ETag@ header that CloudFront returned when you submitted the @GET Streaming Distribution Config@ request in Step 2. +-- +-- * Review the response to your @DELETE Streaming Distribution@ request to confirm that the distribution was successfully deleted. +-- +-- +-- +-- For information about deleting a distribution using the CloudFront console, see in the /Amazon CloudFront Developer Guide/ . +-- module Network.AWS.CloudFront.DeleteStreamingDistribution ( -- * Creating a Request @@ -42,6 +66,8 @@ -- | The request to delete a streaming distribution. -- +-- +-- -- /See:/ 'deleteStreamingDistribution' smart constructor. data DeleteStreamingDistribution = DeleteStreamingDistribution' { _dsdIfMatch :: !(Maybe Text) @@ -52,9 +78,9 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'dsdIfMatch' +-- * 'dsdIfMatch' - The value of the @ETag@ header that you received when you disabled the streaming distribution. For example: @E2QWRUHAPOMQZL@ . -- --- * 'dsdId' +-- * 'dsdId' - The distribution ID. deleteStreamingDistribution :: Text -- ^ 'dsdId' -> DeleteStreamingDistribution @@ -64,11 +90,11 @@ , _dsdId = pId_ } --- | The value of the ETag header you received when you disabled the streaming distribution. For example: E2QWRUHAPOMQZL. +-- | The value of the @ETag@ header that you received when you disabled the streaming distribution. For example: @E2QWRUHAPOMQZL@ . dsdIfMatch :: Lens' DeleteStreamingDistribution (Maybe Text) dsdIfMatch = lens _dsdIfMatch (\ s a -> s{_dsdIfMatch = a}); --- | The distribution id. +-- | The distribution ID. dsdId :: Lens' DeleteStreamingDistribution Text dsdId = lens _dsdId (\ s a -> s{_dsdId = a}); @@ -90,7 +116,7 @@ instance ToPath DeleteStreamingDistribution where toPath DeleteStreamingDistribution'{..} = mconcat - ["/2016-09-07/streaming-distribution/", toBS _dsdId] + ["/2016-09-29/streaming-distribution/", toBS _dsdId] instance ToQuery DeleteStreamingDistribution where toQuery = const mempty diff --git a/gen/Network/AWS/CloudFront/GetCloudFrontOriginAccessIdentity.hs b/gen/Network/AWS/CloudFront/GetCloudFrontOriginAccessIdentity.hs --- a/gen/Network/AWS/CloudFront/GetCloudFrontOriginAccessIdentity.hs +++ b/gen/Network/AWS/CloudFront/GetCloudFrontOriginAccessIdentity.hs @@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Get the information about an origin access identity. +-- +-- module Network.AWS.CloudFront.GetCloudFrontOriginAccessIdentity ( -- * Creating a Request @@ -43,8 +45,10 @@ import Network.AWS.Request import Network.AWS.Response --- | The request to get an origin access identity\'s information. +-- | The request to get an origin access identity's information. -- +-- +-- -- /See:/ 'getCloudFrontOriginAccessIdentity' smart constructor. newtype GetCloudFrontOriginAccessIdentity = GetCloudFrontOriginAccessIdentity' { _gcfoaiId :: Text @@ -54,7 +58,7 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'gcfoaiId' +-- * 'gcfoaiId' - The identity's ID. getCloudFrontOriginAccessIdentity :: Text -- ^ 'gcfoaiId' -> GetCloudFrontOriginAccessIdentity @@ -63,7 +67,7 @@ { _gcfoaiId = pId_ } --- | The identity\'s id. +-- | The identity's ID. gcfoaiId :: Lens' GetCloudFrontOriginAccessIdentity Text gcfoaiId = lens _gcfoaiId (\ s a -> s{_gcfoaiId = a}); @@ -91,7 +95,7 @@ where toPath GetCloudFrontOriginAccessIdentity'{..} = mconcat - ["/2016-09-07/origin-access-identity/cloudfront/", + ["/2016-09-29/origin-access-identity/cloudfront/", toBS _gcfoaiId] instance ToQuery GetCloudFrontOriginAccessIdentity @@ -100,6 +104,8 @@ -- | The returned result of the corresponding request. -- +-- +-- -- /See:/ 'getCloudFrontOriginAccessIdentityResponse' smart constructor. data GetCloudFrontOriginAccessIdentityResponse = GetCloudFrontOriginAccessIdentityResponse' { _gcfoairsETag :: !(Maybe Text) @@ -111,11 +117,11 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'gcfoairsETag' +-- * 'gcfoairsETag' - The current version of the origin access identity's information. For example: @E2QWRUHAPOMQZL@ . -- --- * 'gcfoairsCloudFrontOriginAccessIdentity' +-- * 'gcfoairsCloudFrontOriginAccessIdentity' - The origin access identity's information. -- --- * 'gcfoairsResponseStatus' +-- * 'gcfoairsResponseStatus' - -- | The response status code. getCloudFrontOriginAccessIdentityResponse :: Int -- ^ 'gcfoairsResponseStatus' -> GetCloudFrontOriginAccessIdentityResponse @@ -126,15 +132,15 @@ , _gcfoairsResponseStatus = pResponseStatus_ } --- | The current version of the origin access identity\'s information. For example: E2QWRUHAPOMQZL. +-- | The current version of the origin access identity's information. For example: @E2QWRUHAPOMQZL@ . gcfoairsETag :: Lens' GetCloudFrontOriginAccessIdentityResponse (Maybe Text) gcfoairsETag = lens _gcfoairsETag (\ s a -> s{_gcfoairsETag = a}); --- | The origin access identity\'s information. +-- | The origin access identity's information. gcfoairsCloudFrontOriginAccessIdentity :: Lens' GetCloudFrontOriginAccessIdentityResponse (Maybe CloudFrontOriginAccessIdentity) gcfoairsCloudFrontOriginAccessIdentity = lens _gcfoairsCloudFrontOriginAccessIdentity (\ s a -> s{_gcfoairsCloudFrontOriginAccessIdentity = a}); --- | The response status code. +-- | -- | The response status code. gcfoairsResponseStatus :: Lens' GetCloudFrontOriginAccessIdentityResponse Int gcfoairsResponseStatus = lens _gcfoairsResponseStatus (\ s a -> s{_gcfoairsResponseStatus = a}); diff --git a/gen/Network/AWS/CloudFront/GetCloudFrontOriginAccessIdentityConfig.hs b/gen/Network/AWS/CloudFront/GetCloudFrontOriginAccessIdentityConfig.hs --- a/gen/Network/AWS/CloudFront/GetCloudFrontOriginAccessIdentityConfig.hs +++ b/gen/Network/AWS/CloudFront/GetCloudFrontOriginAccessIdentityConfig.hs @@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Get the configuration information about an origin access identity. +-- +-- module Network.AWS.CloudFront.GetCloudFrontOriginAccessIdentityConfig ( -- * Creating a Request @@ -43,8 +45,10 @@ import Network.AWS.Request import Network.AWS.Response --- | The request to get an origin access identity\'s configuration. +-- | The origin access identity's configuration information. For more information, see 'CloudFrontOriginAccessIdentityConfigComplexType' . -- +-- +-- -- /See:/ 'getCloudFrontOriginAccessIdentityConfig' smart constructor. newtype GetCloudFrontOriginAccessIdentityConfig = GetCloudFrontOriginAccessIdentityConfig' { _gcfoaicId :: Text @@ -54,7 +58,7 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'gcfoaicId' +-- * 'gcfoaicId' - The identity's ID. getCloudFrontOriginAccessIdentityConfig :: Text -- ^ 'gcfoaicId' -> GetCloudFrontOriginAccessIdentityConfig @@ -63,7 +67,7 @@ { _gcfoaicId = pId_ } --- | The identity\'s id. +-- | The identity's ID. gcfoaicId :: Lens' GetCloudFrontOriginAccessIdentityConfig Text gcfoaicId = lens _gcfoaicId (\ s a -> s{_gcfoaicId = a}); @@ -93,7 +97,7 @@ GetCloudFrontOriginAccessIdentityConfig where toPath GetCloudFrontOriginAccessIdentityConfig'{..} = mconcat - ["/2016-09-07/origin-access-identity/cloudfront/", + ["/2016-09-29/origin-access-identity/cloudfront/", toBS _gcfoaicId, "/config"] instance ToQuery @@ -102,6 +106,8 @@ -- | The returned result of the corresponding request. -- +-- +-- -- /See:/ 'getCloudFrontOriginAccessIdentityConfigResponse' smart constructor. data GetCloudFrontOriginAccessIdentityConfigResponse = GetCloudFrontOriginAccessIdentityConfigResponse' { _gcfoaicrsCloudFrontOriginAccessIdentityConfig :: !(Maybe CloudFrontOriginAccessIdentityConfig) @@ -113,11 +119,11 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'gcfoaicrsCloudFrontOriginAccessIdentityConfig' +-- * 'gcfoaicrsCloudFrontOriginAccessIdentityConfig' - The origin access identity's configuration information. -- --- * 'gcfoaicrsETag' +-- * 'gcfoaicrsETag' - The current version of the configuration. For example: @E2QWRUHAPOMQZL@ . -- --- * 'gcfoaicrsResponseStatus' +-- * 'gcfoaicrsResponseStatus' - -- | The response status code. getCloudFrontOriginAccessIdentityConfigResponse :: Int -- ^ 'gcfoaicrsResponseStatus' -> GetCloudFrontOriginAccessIdentityConfigResponse @@ -128,15 +134,15 @@ , _gcfoaicrsResponseStatus = pResponseStatus_ } --- | The origin access identity\'s configuration information. +-- | The origin access identity's configuration information. gcfoaicrsCloudFrontOriginAccessIdentityConfig :: Lens' GetCloudFrontOriginAccessIdentityConfigResponse (Maybe CloudFrontOriginAccessIdentityConfig) gcfoaicrsCloudFrontOriginAccessIdentityConfig = lens _gcfoaicrsCloudFrontOriginAccessIdentityConfig (\ s a -> s{_gcfoaicrsCloudFrontOriginAccessIdentityConfig = a}); --- | The current version of the configuration. For example: E2QWRUHAPOMQZL. +-- | The current version of the configuration. For example: @E2QWRUHAPOMQZL@ . gcfoaicrsETag :: Lens' GetCloudFrontOriginAccessIdentityConfigResponse (Maybe Text) gcfoaicrsETag = lens _gcfoaicrsETag (\ s a -> s{_gcfoaicrsETag = a}); --- | The response status code. +-- | -- | The response status code. gcfoaicrsResponseStatus :: Lens' GetCloudFrontOriginAccessIdentityConfigResponse Int gcfoaicrsResponseStatus = lens _gcfoaicrsResponseStatus (\ s a -> s{_gcfoaicrsResponseStatus = a}); diff --git a/gen/Network/AWS/CloudFront/GetDistribution.hs b/gen/Network/AWS/CloudFront/GetDistribution.hs --- a/gen/Network/AWS/CloudFront/GetDistribution.hs +++ b/gen/Network/AWS/CloudFront/GetDistribution.hs @@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Get the information about a distribution. +-- +-- module Network.AWS.CloudFront.GetDistribution ( -- * Creating a Request @@ -43,8 +45,10 @@ import Network.AWS.Request import Network.AWS.Response --- | The request to get a distribution\'s information. +-- | The request to get a distribution's information. -- +-- +-- -- /See:/ 'getDistribution' smart constructor. newtype GetDistribution = GetDistribution' { _gdId :: Text @@ -54,7 +58,7 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'gdId' +-- * 'gdId' - The distribution's ID. getDistribution :: Text -- ^ 'gdId' -> GetDistribution @@ -63,7 +67,7 @@ { _gdId = pId_ } --- | The distribution\'s id. +-- | The distribution's ID. gdId :: Lens' GetDistribution Text gdId = lens _gdId (\ s a -> s{_gdId = a}); @@ -86,13 +90,15 @@ instance ToPath GetDistribution where toPath GetDistribution'{..} - = mconcat ["/2016-09-07/distribution/", toBS _gdId] + = mconcat ["/2016-09-29/distribution/", toBS _gdId] instance ToQuery GetDistribution where toQuery = const mempty -- | The returned result of the corresponding request. -- +-- +-- -- /See:/ 'getDistributionResponse' smart constructor. data GetDistributionResponse = GetDistributionResponse' { _gdrsETag :: !(Maybe Text) @@ -104,11 +110,11 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'gdrsETag' +-- * 'gdrsETag' - The current version of the distribution's information. For example: @E2QWRUHAPOMQZL@ . -- --- * 'gdrsDistribution' +-- * 'gdrsDistribution' - The distribution's information. -- --- * 'gdrsResponseStatus' +-- * 'gdrsResponseStatus' - -- | The response status code. getDistributionResponse :: Int -- ^ 'gdrsResponseStatus' -> GetDistributionResponse @@ -119,15 +125,15 @@ , _gdrsResponseStatus = pResponseStatus_ } --- | The current version of the distribution\'s information. For example: E2QWRUHAPOMQZL. +-- | The current version of the distribution's information. For example: @E2QWRUHAPOMQZL@ . gdrsETag :: Lens' GetDistributionResponse (Maybe Text) gdrsETag = lens _gdrsETag (\ s a -> s{_gdrsETag = a}); --- | The distribution\'s information. +-- | The distribution's information. gdrsDistribution :: Lens' GetDistributionResponse (Maybe Distribution) gdrsDistribution = lens _gdrsDistribution (\ s a -> s{_gdrsDistribution = a}); --- | The response status code. +-- | -- | The response status code. gdrsResponseStatus :: Lens' GetDistributionResponse Int gdrsResponseStatus = lens _gdrsResponseStatus (\ s a -> s{_gdrsResponseStatus = a}); diff --git a/gen/Network/AWS/CloudFront/GetDistributionConfig.hs b/gen/Network/AWS/CloudFront/GetDistributionConfig.hs --- a/gen/Network/AWS/CloudFront/GetDistributionConfig.hs +++ b/gen/Network/AWS/CloudFront/GetDistributionConfig.hs @@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Get the configuration information about a distribution. +-- +-- module Network.AWS.CloudFront.GetDistributionConfig ( -- * Creating a Request @@ -45,6 +47,8 @@ -- | The request to get a distribution configuration. -- +-- +-- -- /See:/ 'getDistributionConfig' smart constructor. newtype GetDistributionConfig = GetDistributionConfig' { _gdcId :: Text @@ -54,7 +58,7 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'gdcId' +-- * 'gdcId' - The distribution's ID. getDistributionConfig :: Text -- ^ 'gdcId' -> GetDistributionConfig @@ -63,7 +67,7 @@ { _gdcId = pId_ } --- | The distribution\'s id. +-- | The distribution's ID. gdcId :: Lens' GetDistributionConfig Text gdcId = lens _gdcId (\ s a -> s{_gdcId = a}); @@ -88,13 +92,15 @@ instance ToPath GetDistributionConfig where toPath GetDistributionConfig'{..} = mconcat - ["/2016-09-07/distribution/", toBS _gdcId, "/config"] + ["/2016-09-29/distribution/", toBS _gdcId, "/config"] instance ToQuery GetDistributionConfig where toQuery = const mempty -- | The returned result of the corresponding request. -- +-- +-- -- /See:/ 'getDistributionConfigResponse' smart constructor. data GetDistributionConfigResponse = GetDistributionConfigResponse' { _gdcrsETag :: !(Maybe Text) @@ -106,11 +112,11 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'gdcrsETag' +-- * 'gdcrsETag' - The current version of the configuration. For example: @E2QWRUHAPOMQZL@ . -- --- * 'gdcrsDistributionConfig' +-- * 'gdcrsDistributionConfig' - The distribution's configuration information. -- --- * 'gdcrsResponseStatus' +-- * 'gdcrsResponseStatus' - -- | The response status code. getDistributionConfigResponse :: Int -- ^ 'gdcrsResponseStatus' -> GetDistributionConfigResponse @@ -121,15 +127,15 @@ , _gdcrsResponseStatus = pResponseStatus_ } --- | The current version of the configuration. For example: E2QWRUHAPOMQZL. +-- | The current version of the configuration. For example: @E2QWRUHAPOMQZL@ . gdcrsETag :: Lens' GetDistributionConfigResponse (Maybe Text) gdcrsETag = lens _gdcrsETag (\ s a -> s{_gdcrsETag = a}); --- | The distribution\'s configuration information. +-- | The distribution's configuration information. gdcrsDistributionConfig :: Lens' GetDistributionConfigResponse (Maybe DistributionConfig) gdcrsDistributionConfig = lens _gdcrsDistributionConfig (\ s a -> s{_gdcrsDistributionConfig = a}); --- | The response status code. +-- | -- | The response status code. gdcrsResponseStatus :: Lens' GetDistributionConfigResponse Int gdcrsResponseStatus = lens _gdcrsResponseStatus (\ s a -> s{_gdcrsResponseStatus = a}); diff --git a/gen/Network/AWS/CloudFront/GetInvalidation.hs b/gen/Network/AWS/CloudFront/GetInvalidation.hs --- a/gen/Network/AWS/CloudFront/GetInvalidation.hs +++ b/gen/Network/AWS/CloudFront/GetInvalidation.hs @@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Get the information about an invalidation. +-- +-- module Network.AWS.CloudFront.GetInvalidation ( -- * Creating a Request @@ -43,8 +45,10 @@ import Network.AWS.Request import Network.AWS.Response --- | The request to get an invalidation\'s information. +-- | The request to get an invalidation's information. -- +-- +-- -- /See:/ 'getInvalidation' smart constructor. data GetInvalidation = GetInvalidation' { _giDistributionId :: !Text @@ -55,9 +59,9 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'giDistributionId' +-- * 'giDistributionId' - The distribution's ID. -- --- * 'giId' +-- * 'giId' - The identifier for the invalidation request, for example, @IDFDVBD632BHDS5@ . getInvalidation :: Text -- ^ 'giDistributionId' -> Text -- ^ 'giId' @@ -68,11 +72,11 @@ , _giId = pId_ } --- | The distribution\'s id. +-- | The distribution's ID. giDistributionId :: Lens' GetInvalidation Text giDistributionId = lens _giDistributionId (\ s a -> s{_giDistributionId = a}); --- | The invalidation\'s id. +-- | The identifier for the invalidation request, for example, @IDFDVBD632BHDS5@ . giId :: Lens' GetInvalidation Text giId = lens _giId (\ s a -> s{_giId = a}); @@ -95,7 +99,7 @@ instance ToPath GetInvalidation where toPath GetInvalidation'{..} = mconcat - ["/2016-09-07/distribution/", toBS _giDistributionId, + ["/2016-09-29/distribution/", toBS _giDistributionId, "/invalidation/", toBS _giId] instance ToQuery GetInvalidation where @@ -103,6 +107,8 @@ -- | The returned result of the corresponding request. -- +-- +-- -- /See:/ 'getInvalidationResponse' smart constructor. data GetInvalidationResponse = GetInvalidationResponse' { _girsInvalidation :: !(Maybe Invalidation) @@ -113,9 +119,9 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'girsInvalidation' +-- * 'girsInvalidation' - The invalidation's information. For more information, see . -- --- * 'girsResponseStatus' +-- * 'girsResponseStatus' - -- | The response status code. getInvalidationResponse :: Int -- ^ 'girsResponseStatus' -> GetInvalidationResponse @@ -125,11 +131,11 @@ , _girsResponseStatus = pResponseStatus_ } --- | The invalidation\'s information. +-- | The invalidation's information. For more information, see . girsInvalidation :: Lens' GetInvalidationResponse (Maybe Invalidation) girsInvalidation = lens _girsInvalidation (\ s a -> s{_girsInvalidation = a}); --- | The response status code. +-- | -- | The response status code. girsResponseStatus :: Lens' GetInvalidationResponse Int girsResponseStatus = lens _girsResponseStatus (\ s a -> s{_girsResponseStatus = a}); diff --git a/gen/Network/AWS/CloudFront/GetStreamingDistribution.hs b/gen/Network/AWS/CloudFront/GetStreamingDistribution.hs --- a/gen/Network/AWS/CloudFront/GetStreamingDistribution.hs +++ b/gen/Network/AWS/CloudFront/GetStreamingDistribution.hs @@ -18,7 +18,9 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- Get the information about a streaming distribution. +-- Gets information about a specified RTMP distribution, including the distribution configuration. +-- +-- module Network.AWS.CloudFront.GetStreamingDistribution ( -- * Creating a Request @@ -43,8 +45,10 @@ import Network.AWS.Request import Network.AWS.Response --- | The request to get a streaming distribution\'s information. +-- | The request to get a streaming distribution's information. -- +-- +-- -- /See:/ 'getStreamingDistribution' smart constructor. newtype GetStreamingDistribution = GetStreamingDistribution' { _gsdId :: Text @@ -54,7 +58,7 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'gsdId' +-- * 'gsdId' - The streaming distribution's ID. getStreamingDistribution :: Text -- ^ 'gsdId' -> GetStreamingDistribution @@ -63,7 +67,7 @@ { _gsdId = pId_ } --- | The streaming distribution\'s id. +-- | The streaming distribution's ID. gsdId :: Lens' GetStreamingDistribution Text gsdId = lens _gsdId (\ s a -> s{_gsdId = a}); @@ -88,13 +92,15 @@ instance ToPath GetStreamingDistribution where toPath GetStreamingDistribution'{..} = mconcat - ["/2016-09-07/streaming-distribution/", toBS _gsdId] + ["/2016-09-29/streaming-distribution/", toBS _gsdId] instance ToQuery GetStreamingDistribution where toQuery = const mempty -- | The returned result of the corresponding request. -- +-- +-- -- /See:/ 'getStreamingDistributionResponse' smart constructor. data GetStreamingDistributionResponse = GetStreamingDistributionResponse' { _gsdrsETag :: !(Maybe Text) @@ -106,11 +112,11 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'gsdrsETag' +-- * 'gsdrsETag' - The current version of the streaming distribution's information. For example: @E2QWRUHAPOMQZL@ . -- --- * 'gsdrsStreamingDistribution' +-- * 'gsdrsStreamingDistribution' - The streaming distribution's information. -- --- * 'gsdrsResponseStatus' +-- * 'gsdrsResponseStatus' - -- | The response status code. getStreamingDistributionResponse :: Int -- ^ 'gsdrsResponseStatus' -> GetStreamingDistributionResponse @@ -121,15 +127,15 @@ , _gsdrsResponseStatus = pResponseStatus_ } --- | The current version of the streaming distribution\'s information. For example: E2QWRUHAPOMQZL. +-- | The current version of the streaming distribution's information. For example: @E2QWRUHAPOMQZL@ . gsdrsETag :: Lens' GetStreamingDistributionResponse (Maybe Text) gsdrsETag = lens _gsdrsETag (\ s a -> s{_gsdrsETag = a}); --- | The streaming distribution\'s information. +-- | The streaming distribution's information. gsdrsStreamingDistribution :: Lens' GetStreamingDistributionResponse (Maybe StreamingDistribution) gsdrsStreamingDistribution = lens _gsdrsStreamingDistribution (\ s a -> s{_gsdrsStreamingDistribution = a}); --- | The response status code. +-- | -- | The response status code. gsdrsResponseStatus :: Lens' GetStreamingDistributionResponse Int gsdrsResponseStatus = lens _gsdrsResponseStatus (\ s a -> s{_gsdrsResponseStatus = a}); diff --git a/gen/Network/AWS/CloudFront/GetStreamingDistributionConfig.hs b/gen/Network/AWS/CloudFront/GetStreamingDistributionConfig.hs --- a/gen/Network/AWS/CloudFront/GetStreamingDistributionConfig.hs +++ b/gen/Network/AWS/CloudFront/GetStreamingDistributionConfig.hs @@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Get the configuration information about a streaming distribution. +-- +-- module Network.AWS.CloudFront.GetStreamingDistributionConfig ( -- * Creating a Request @@ -45,6 +47,8 @@ -- | To request to get a streaming distribution configuration. -- +-- +-- -- /See:/ 'getStreamingDistributionConfig' smart constructor. newtype GetStreamingDistributionConfig = GetStreamingDistributionConfig' { _gsdcId :: Text @@ -54,7 +58,7 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'gsdcId' +-- * 'gsdcId' - The streaming distribution's ID. getStreamingDistributionConfig :: Text -- ^ 'gsdcId' -> GetStreamingDistributionConfig @@ -63,7 +67,7 @@ { _gsdcId = pId_ } --- | The streaming distribution\'s id. +-- | The streaming distribution's ID. gsdcId :: Lens' GetStreamingDistributionConfig Text gsdcId = lens _gsdcId (\ s a -> s{_gsdcId = a}); @@ -90,7 +94,7 @@ instance ToPath GetStreamingDistributionConfig where toPath GetStreamingDistributionConfig'{..} = mconcat - ["/2016-09-07/streaming-distribution/", toBS _gsdcId, + ["/2016-09-29/streaming-distribution/", toBS _gsdcId, "/config"] instance ToQuery GetStreamingDistributionConfig where @@ -98,6 +102,8 @@ -- | The returned result of the corresponding request. -- +-- +-- -- /See:/ 'getStreamingDistributionConfigResponse' smart constructor. data GetStreamingDistributionConfigResponse = GetStreamingDistributionConfigResponse' { _gsdcrsStreamingDistributionConfig :: !(Maybe StreamingDistributionConfig) @@ -109,11 +115,11 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'gsdcrsStreamingDistributionConfig' +-- * 'gsdcrsStreamingDistributionConfig' - The streaming distribution's configuration information. -- --- * 'gsdcrsETag' +-- * 'gsdcrsETag' - The current version of the configuration. For example: @E2QWRUHAPOMQZL@ . -- --- * 'gsdcrsResponseStatus' +-- * 'gsdcrsResponseStatus' - -- | The response status code. getStreamingDistributionConfigResponse :: Int -- ^ 'gsdcrsResponseStatus' -> GetStreamingDistributionConfigResponse @@ -124,15 +130,15 @@ , _gsdcrsResponseStatus = pResponseStatus_ } --- | The streaming distribution\'s configuration information. +-- | The streaming distribution's configuration information. gsdcrsStreamingDistributionConfig :: Lens' GetStreamingDistributionConfigResponse (Maybe StreamingDistributionConfig) gsdcrsStreamingDistributionConfig = lens _gsdcrsStreamingDistributionConfig (\ s a -> s{_gsdcrsStreamingDistributionConfig = a}); --- | The current version of the configuration. For example: E2QWRUHAPOMQZL. +-- | The current version of the configuration. For example: @E2QWRUHAPOMQZL@ . gsdcrsETag :: Lens' GetStreamingDistributionConfigResponse (Maybe Text) gsdcrsETag = lens _gsdcrsETag (\ s a -> s{_gsdcrsETag = a}); --- | The response status code. +-- | -- | The response status code. gsdcrsResponseStatus :: Lens' GetStreamingDistributionConfigResponse Int gsdcrsResponseStatus = lens _gsdcrsResponseStatus (\ s a -> s{_gsdcrsResponseStatus = a}); diff --git a/gen/Network/AWS/CloudFront/ListCloudFrontOriginAccessIdentities.hs b/gen/Network/AWS/CloudFront/ListCloudFrontOriginAccessIdentities.hs --- a/gen/Network/AWS/CloudFront/ListCloudFrontOriginAccessIdentities.hs +++ b/gen/Network/AWS/CloudFront/ListCloudFrontOriginAccessIdentities.hs @@ -18,8 +18,10 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- List origin access identities. +-- Lists origin access identities. -- +-- +-- -- This operation returns paginated results. module Network.AWS.CloudFront.ListCloudFrontOriginAccessIdentities ( @@ -48,6 +50,8 @@ -- | The request to list origin access identities. -- +-- +-- -- /See:/ 'listCloudFrontOriginAccessIdentities' smart constructor. data ListCloudFrontOriginAccessIdentities = ListCloudFrontOriginAccessIdentities' { _lcfoaiMarker :: !(Maybe Text) @@ -58,9 +62,9 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'lcfoaiMarker' +-- * 'lcfoaiMarker' - Use this when paginating results to indicate where to begin in your list of origin access identities. The results include identities in the list that occur after the marker. To get the next page of results, set the @Marker@ to the value of the @NextMarker@ from the current page's response (which is also the ID of the last identity on that page). -- --- * 'lcfoaiMaxItems' +-- * 'lcfoaiMaxItems' - The maximum number of origin access identities you want in the response body. listCloudFrontOriginAccessIdentities :: ListCloudFrontOriginAccessIdentities listCloudFrontOriginAccessIdentities = @@ -69,7 +73,7 @@ , _lcfoaiMaxItems = Nothing } --- | Use this when paginating results to indicate where to begin in your list of origin access identities. The results include identities in the list that occur after the marker. To get the next page of results, set the Marker to the value of the NextMarker from the current page\'s response (which is also the ID of the last identity on that page). +-- | Use this when paginating results to indicate where to begin in your list of origin access identities. The results include identities in the list that occur after the marker. To get the next page of results, set the @Marker@ to the value of the @NextMarker@ from the current page's response (which is also the ID of the last identity on that page). lcfoaiMarker :: Lens' ListCloudFrontOriginAccessIdentities (Maybe Text) lcfoaiMarker = lens _lcfoaiMarker (\ s a -> s{_lcfoaiMarker = a}); @@ -121,7 +125,7 @@ where toPath = const - "/2016-09-07/origin-access-identity/cloudfront" + "/2016-09-29/origin-access-identity/cloudfront" instance ToQuery ListCloudFrontOriginAccessIdentities where @@ -132,6 +136,8 @@ -- | The returned result of the corresponding request. -- +-- +-- -- /See:/ 'listCloudFrontOriginAccessIdentitiesResponse' smart constructor. data ListCloudFrontOriginAccessIdentitiesResponse = ListCloudFrontOriginAccessIdentitiesResponse' { _lcfoairsResponseStatus :: !Int @@ -142,9 +148,9 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'lcfoairsResponseStatus' +-- * 'lcfoairsResponseStatus' - -- | The response status code. -- --- * 'lcfoairsCloudFrontOriginAccessIdentityList' +-- * 'lcfoairsCloudFrontOriginAccessIdentityList' - The @CloudFrontOriginAccessIdentityList@ type. listCloudFrontOriginAccessIdentitiesResponse :: Int -- ^ 'lcfoairsResponseStatus' -> CloudFrontOriginAccessIdentityList -- ^ 'lcfoairsCloudFrontOriginAccessIdentityList' @@ -155,11 +161,11 @@ , _lcfoairsCloudFrontOriginAccessIdentityList = pCloudFrontOriginAccessIdentityList_ } --- | The response status code. +-- | -- | The response status code. lcfoairsResponseStatus :: Lens' ListCloudFrontOriginAccessIdentitiesResponse Int lcfoairsResponseStatus = lens _lcfoairsResponseStatus (\ s a -> s{_lcfoairsResponseStatus = a}); --- | The CloudFrontOriginAccessIdentityList type. +-- | The @CloudFrontOriginAccessIdentityList@ type. lcfoairsCloudFrontOriginAccessIdentityList :: Lens' ListCloudFrontOriginAccessIdentitiesResponse CloudFrontOriginAccessIdentityList lcfoairsCloudFrontOriginAccessIdentityList = lens _lcfoairsCloudFrontOriginAccessIdentityList (\ s a -> s{_lcfoairsCloudFrontOriginAccessIdentityList = a}); diff --git a/gen/Network/AWS/CloudFront/ListDistributions.hs b/gen/Network/AWS/CloudFront/ListDistributions.hs --- a/gen/Network/AWS/CloudFront/ListDistributions.hs +++ b/gen/Network/AWS/CloudFront/ListDistributions.hs @@ -20,6 +20,8 @@ -- -- List distributions. -- +-- +-- -- This operation returns paginated results. module Network.AWS.CloudFront.ListDistributions ( @@ -48,6 +50,8 @@ -- | The request to list your distributions. -- +-- +-- -- /See:/ 'listDistributions' smart constructor. data ListDistributions = ListDistributions' { _ldMarker :: !(Maybe Text) @@ -58,9 +62,9 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'ldMarker' +-- * 'ldMarker' - Use this when paginating results to indicate where to begin in your list of distributions. The results include distributions in the list that occur after the marker. To get the next page of results, set the @Marker@ to the value of the @NextMarker@ from the current page's response (which is also the ID of the last distribution on that page). -- --- * 'ldMaxItems' +-- * 'ldMaxItems' - The maximum number of distributions you want in the response body. listDistributions :: ListDistributions listDistributions = @@ -69,11 +73,11 @@ , _ldMaxItems = Nothing } --- | Use Marker and MaxItems to control pagination of results. If you have more than MaxItems distributions that satisfy the request, the response includes a NextMarker element. To get the next page of results, submit another request. For the value of Marker, specify the value of NextMarker from the last response. (For the first request, omit Marker.) +-- | Use this when paginating results to indicate where to begin in your list of distributions. The results include distributions in the list that occur after the marker. To get the next page of results, set the @Marker@ to the value of the @NextMarker@ from the current page's response (which is also the ID of the last distribution on that page). ldMarker :: Lens' ListDistributions (Maybe Text) ldMarker = lens _ldMarker (\ s a -> s{_ldMarker = a}); --- | The maximum number of distributions that you want CloudFront to return in the response body. The maximum and default values are both 100. +-- | The maximum number of distributions you want in the response body. ldMaxItems :: Lens' ListDistributions (Maybe Text) ldMaxItems = lens _ldMaxItems (\ s a -> s{_ldMaxItems = a}); @@ -106,7 +110,7 @@ toHeaders = const mempty instance ToPath ListDistributions where - toPath = const "/2016-09-07/distribution" + toPath = const "/2016-09-29/distribution" instance ToQuery ListDistributions where toQuery ListDistributions'{..} @@ -115,6 +119,8 @@ -- | The returned result of the corresponding request. -- +-- +-- -- /See:/ 'listDistributionsResponse' smart constructor. data ListDistributionsResponse = ListDistributionsResponse' { _ldrsResponseStatus :: !Int @@ -125,9 +131,9 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'ldrsResponseStatus' +-- * 'ldrsResponseStatus' - -- | The response status code. -- --- * 'ldrsDistributionList' +-- * 'ldrsDistributionList' - The @DistributionList@ type. listDistributionsResponse :: Int -- ^ 'ldrsResponseStatus' -> DistributionList -- ^ 'ldrsDistributionList' @@ -138,11 +144,11 @@ , _ldrsDistributionList = pDistributionList_ } --- | The response status code. +-- | -- | The response status code. ldrsResponseStatus :: Lens' ListDistributionsResponse Int ldrsResponseStatus = lens _ldrsResponseStatus (\ s a -> s{_ldrsResponseStatus = a}); --- | The DistributionList type. +-- | The @DistributionList@ type. ldrsDistributionList :: Lens' ListDistributionsResponse DistributionList ldrsDistributionList = lens _ldrsDistributionList (\ s a -> s{_ldrsDistributionList = a}); diff --git a/gen/Network/AWS/CloudFront/ListDistributionsByWebACLId.hs b/gen/Network/AWS/CloudFront/ListDistributionsByWebACLId.hs --- a/gen/Network/AWS/CloudFront/ListDistributionsByWebACLId.hs +++ b/gen/Network/AWS/CloudFront/ListDistributionsByWebACLId.hs @@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- List the distributions that are associated with a specified AWS WAF web ACL. +-- +-- module Network.AWS.CloudFront.ListDistributionsByWebACLId ( -- * Creating a Request @@ -46,6 +48,8 @@ -- | The request to list distributions that are associated with a specified AWS WAF web ACL. -- +-- +-- -- /See:/ 'listDistributionsByWebACLId' smart constructor. data ListDistributionsByWebACLId = ListDistributionsByWebACLId' { _ldbwaiMarker :: !(Maybe Text) @@ -57,11 +61,11 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'ldbwaiMarker' +-- * 'ldbwaiMarker' - Use @Marker@ and @MaxItems@ to control pagination of results. If you have more than @MaxItems@ distributions that satisfy the request, the response includes a @NextMarker@ element. To get the next page of results, submit another request. For the value of @Marker@ , specify the value of @NextMarker@ from the last response. (For the first request, omit @Marker@ .) -- --- * 'ldbwaiMaxItems' +-- * 'ldbwaiMaxItems' - The maximum number of distributions that you want CloudFront to return in the response body. The maximum and default values are both 100. -- --- * 'ldbwaiWebACLId' +-- * 'ldbwaiWebACLId' - The ID of the AWS WAF web ACL that you want to list the associated distributions. If you specify "null" for the ID, the request returns a list of the distributions that aren't associated with a web ACL. listDistributionsByWebACLId :: Text -- ^ 'ldbwaiWebACLId' -> ListDistributionsByWebACLId @@ -72,7 +76,7 @@ , _ldbwaiWebACLId = pWebACLId_ } --- | Use Marker and MaxItems to control pagination of results. If you have more than MaxItems distributions that satisfy the request, the response includes a NextMarker element. To get the next page of results, submit another request. For the value of Marker, specify the value of NextMarker from the last response. (For the first request, omit Marker.) +-- | Use @Marker@ and @MaxItems@ to control pagination of results. If you have more than @MaxItems@ distributions that satisfy the request, the response includes a @NextMarker@ element. To get the next page of results, submit another request. For the value of @Marker@ , specify the value of @NextMarker@ from the last response. (For the first request, omit @Marker@ .) ldbwaiMarker :: Lens' ListDistributionsByWebACLId (Maybe Text) ldbwaiMarker = lens _ldbwaiMarker (\ s a -> s{_ldbwaiMarker = a}); @@ -80,7 +84,7 @@ ldbwaiMaxItems :: Lens' ListDistributionsByWebACLId (Maybe Text) ldbwaiMaxItems = lens _ldbwaiMaxItems (\ s a -> s{_ldbwaiMaxItems = a}); --- | The Id of the AWS WAF web ACL for which you want to list the associated distributions. If you specify \"null\" for the Id, the request returns a list of the distributions that aren\'t associated with a web ACL. +-- | The ID of the AWS WAF web ACL that you want to list the associated distributions. If you specify "null" for the ID, the request returns a list of the distributions that aren't associated with a web ACL. ldbwaiWebACLId :: Lens' ListDistributionsByWebACLId Text ldbwaiWebACLId = lens _ldbwaiWebACLId (\ s a -> s{_ldbwaiWebACLId = a}); @@ -104,7 +108,7 @@ instance ToPath ListDistributionsByWebACLId where toPath ListDistributionsByWebACLId'{..} = mconcat - ["/2016-09-07/distributionsByWebACLId/", + ["/2016-09-29/distributionsByWebACLId/", toBS _ldbwaiWebACLId] instance ToQuery ListDistributionsByWebACLId where @@ -115,6 +119,8 @@ -- | The response to a request to list the distributions that are associated with a specified AWS WAF web ACL. -- +-- +-- -- /See:/ 'listDistributionsByWebACLIdResponse' smart constructor. data ListDistributionsByWebACLIdResponse = ListDistributionsByWebACLIdResponse' { _ldbwairsDistributionList :: !(Maybe DistributionList) @@ -125,9 +131,9 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'ldbwairsDistributionList' +-- * 'ldbwairsDistributionList' - The @DistributionList@ type. -- --- * 'ldbwairsResponseStatus' +-- * 'ldbwairsResponseStatus' - -- | The response status code. listDistributionsByWebACLIdResponse :: Int -- ^ 'ldbwairsResponseStatus' -> ListDistributionsByWebACLIdResponse @@ -137,11 +143,11 @@ , _ldbwairsResponseStatus = pResponseStatus_ } --- | The DistributionList type. +-- | The @DistributionList@ type. ldbwairsDistributionList :: Lens' ListDistributionsByWebACLIdResponse (Maybe DistributionList) ldbwairsDistributionList = lens _ldbwairsDistributionList (\ s a -> s{_ldbwairsDistributionList = a}); --- | The response status code. +-- | -- | The response status code. ldbwairsResponseStatus :: Lens' ListDistributionsByWebACLIdResponse Int ldbwairsResponseStatus = lens _ldbwairsResponseStatus (\ s a -> s{_ldbwairsResponseStatus = a}); diff --git a/gen/Network/AWS/CloudFront/ListInvalidations.hs b/gen/Network/AWS/CloudFront/ListInvalidations.hs --- a/gen/Network/AWS/CloudFront/ListInvalidations.hs +++ b/gen/Network/AWS/CloudFront/ListInvalidations.hs @@ -18,8 +18,10 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- List invalidation batches. +-- Lists invalidation batches. -- +-- +-- -- This operation returns paginated results. module Network.AWS.CloudFront.ListInvalidations ( @@ -49,6 +51,8 @@ -- | The request to list invalidations. -- +-- +-- -- /See:/ 'listInvalidations' smart constructor. data ListInvalidations = ListInvalidations' { _liMarker :: !(Maybe Text) @@ -60,11 +64,11 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'liMarker' +-- * 'liMarker' - Use this parameter when paginating results to indicate where to begin in your list of invalidation batches. Because the results are returned in decreasing order from most recent to oldest, the most recent results are on the first page, the second page will contain earlier results, and so on. To get the next page of results, set @Marker@ to the value of the @NextMarker@ from the current page's response. This value is the same as the ID of the last invalidation batch on that page. -- --- * 'liMaxItems' +-- * 'liMaxItems' - The maximum number of invalidation batches that you want in the response body. -- --- * 'liDistributionId' +-- * 'liDistributionId' - The distribution's ID. listInvalidations :: Text -- ^ 'liDistributionId' -> ListInvalidations @@ -75,15 +79,15 @@ , _liDistributionId = pDistributionId_ } --- | Use this parameter when paginating results to indicate where to begin in your list of invalidation batches. Because the results are returned in decreasing order from most recent to oldest, the most recent results are on the first page, the second page will contain earlier results, and so on. To get the next page of results, set the Marker to the value of the NextMarker from the current page\'s response. This value is the same as the ID of the last invalidation batch on that page. +-- | Use this parameter when paginating results to indicate where to begin in your list of invalidation batches. Because the results are returned in decreasing order from most recent to oldest, the most recent results are on the first page, the second page will contain earlier results, and so on. To get the next page of results, set @Marker@ to the value of the @NextMarker@ from the current page's response. This value is the same as the ID of the last invalidation batch on that page. liMarker :: Lens' ListInvalidations (Maybe Text) liMarker = lens _liMarker (\ s a -> s{_liMarker = a}); --- | The maximum number of invalidation batches you want in the response body. +-- | The maximum number of invalidation batches that you want in the response body. liMaxItems :: Lens' ListInvalidations (Maybe Text) liMaxItems = lens _liMaxItems (\ s a -> s{_liMaxItems = a}); --- | The distribution\'s id. +-- | The distribution's ID. liDistributionId :: Lens' ListInvalidations Text liDistributionId = lens _liDistributionId (\ s a -> s{_liDistributionId = a}); @@ -118,7 +122,7 @@ instance ToPath ListInvalidations where toPath ListInvalidations'{..} = mconcat - ["/2016-09-07/distribution/", toBS _liDistributionId, + ["/2016-09-29/distribution/", toBS _liDistributionId, "/invalidation"] instance ToQuery ListInvalidations where @@ -128,6 +132,8 @@ -- | The returned result of the corresponding request. -- +-- +-- -- /See:/ 'listInvalidationsResponse' smart constructor. data ListInvalidationsResponse = ListInvalidationsResponse' { _lirsResponseStatus :: !Int @@ -138,9 +144,9 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'lirsResponseStatus' +-- * 'lirsResponseStatus' - -- | The response status code. -- --- * 'lirsInvalidationList' +-- * 'lirsInvalidationList' - Information about invalidation batches. listInvalidationsResponse :: Int -- ^ 'lirsResponseStatus' -> InvalidationList -- ^ 'lirsInvalidationList' @@ -151,7 +157,7 @@ , _lirsInvalidationList = pInvalidationList_ } --- | The response status code. +-- | -- | The response status code. lirsResponseStatus :: Lens' ListInvalidationsResponse Int lirsResponseStatus = lens _lirsResponseStatus (\ s a -> s{_lirsResponseStatus = a}); diff --git a/gen/Network/AWS/CloudFront/ListStreamingDistributions.hs b/gen/Network/AWS/CloudFront/ListStreamingDistributions.hs --- a/gen/Network/AWS/CloudFront/ListStreamingDistributions.hs +++ b/gen/Network/AWS/CloudFront/ListStreamingDistributions.hs @@ -20,6 +20,8 @@ -- -- List streaming distributions. -- +-- +-- -- This operation returns paginated results. module Network.AWS.CloudFront.ListStreamingDistributions ( @@ -48,6 +50,8 @@ -- | The request to list your streaming distributions. -- +-- +-- -- /See:/ 'listStreamingDistributions' smart constructor. data ListStreamingDistributions = ListStreamingDistributions' { _lsdMarker :: !(Maybe Text) @@ -58,9 +62,9 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'lsdMarker' +-- * 'lsdMarker' - The value that you provided for the @Marker@ request parameter. -- --- * 'lsdMaxItems' +-- * 'lsdMaxItems' - The value that you provided for the @MaxItems@ request parameter. listStreamingDistributions :: ListStreamingDistributions listStreamingDistributions = @@ -69,11 +73,11 @@ , _lsdMaxItems = Nothing } --- | Use this when paginating results to indicate where to begin in your list of streaming distributions. The results include distributions in the list that occur after the marker. To get the next page of results, set the Marker to the value of the NextMarker from the current page\'s response (which is also the ID of the last distribution on that page). +-- | The value that you provided for the @Marker@ request parameter. lsdMarker :: Lens' ListStreamingDistributions (Maybe Text) lsdMarker = lens _lsdMarker (\ s a -> s{_lsdMarker = a}); --- | The maximum number of streaming distributions you want in the response body. +-- | The value that you provided for the @MaxItems@ request parameter. lsdMaxItems :: Lens' ListStreamingDistributions (Maybe Text) lsdMaxItems = lens _lsdMaxItems (\ s a -> s{_lsdMaxItems = a}); @@ -113,7 +117,7 @@ toHeaders = const mempty instance ToPath ListStreamingDistributions where - toPath = const "/2016-09-07/streaming-distribution" + toPath = const "/2016-09-29/streaming-distribution" instance ToQuery ListStreamingDistributions where toQuery ListStreamingDistributions'{..} @@ -122,6 +126,8 @@ -- | The returned result of the corresponding request. -- +-- +-- -- /See:/ 'listStreamingDistributionsResponse' smart constructor. data ListStreamingDistributionsResponse = ListStreamingDistributionsResponse' { _lsdrsResponseStatus :: !Int @@ -132,9 +138,9 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'lsdrsResponseStatus' +-- * 'lsdrsResponseStatus' - -- | The response status code. -- --- * 'lsdrsStreamingDistributionList' +-- * 'lsdrsStreamingDistributionList' - The @StreamingDistributionList@ type. listStreamingDistributionsResponse :: Int -- ^ 'lsdrsResponseStatus' -> StreamingDistributionList -- ^ 'lsdrsStreamingDistributionList' @@ -145,11 +151,11 @@ , _lsdrsStreamingDistributionList = pStreamingDistributionList_ } --- | The response status code. +-- | -- | The response status code. lsdrsResponseStatus :: Lens' ListStreamingDistributionsResponse Int lsdrsResponseStatus = lens _lsdrsResponseStatus (\ s a -> s{_lsdrsResponseStatus = a}); --- | The StreamingDistributionList type. +-- | The @StreamingDistributionList@ type. lsdrsStreamingDistributionList :: Lens' ListStreamingDistributionsResponse StreamingDistributionList lsdrsStreamingDistributionList = lens _lsdrsStreamingDistributionList (\ s a -> s{_lsdrsStreamingDistributionList = a}); diff --git a/gen/Network/AWS/CloudFront/ListTagsForResource.hs b/gen/Network/AWS/CloudFront/ListTagsForResource.hs --- a/gen/Network/AWS/CloudFront/ListTagsForResource.hs +++ b/gen/Network/AWS/CloudFront/ListTagsForResource.hs @@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- List tags for a CloudFront resource. +-- +-- module Network.AWS.CloudFront.ListTagsForResource ( -- * Creating a Request @@ -44,6 +46,8 @@ -- | The request to list tags for a CloudFront resource. -- +-- +-- -- /See:/ 'listTagsForResource' smart constructor. newtype ListTagsForResource = ListTagsForResource' { _ltfrResource :: Text @@ -53,7 +57,7 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'ltfrResource' +-- * 'ltfrResource' - An ARN of a CloudFront resource. listTagsForResource :: Text -- ^ 'ltfrResource' -> ListTagsForResource @@ -84,7 +88,7 @@ toHeaders = const mempty instance ToPath ListTagsForResource where - toPath = const "/2016-09-07/tagging" + toPath = const "/2016-09-29/tagging" instance ToQuery ListTagsForResource where toQuery ListTagsForResource'{..} @@ -92,6 +96,8 @@ -- | The returned result of the corresponding request. -- +-- +-- -- /See:/ 'listTagsForResourceResponse' smart constructor. data ListTagsForResourceResponse = ListTagsForResourceResponse' { _ltfrrsResponseStatus :: !Int @@ -102,9 +108,9 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'ltfrrsResponseStatus' +-- * 'ltfrrsResponseStatus' - -- | The response status code. -- --- * 'ltfrrsTags' +-- * 'ltfrrsTags' - A complex type that contains zero or more @Tag@ elements. listTagsForResourceResponse :: Int -- ^ 'ltfrrsResponseStatus' -> Tags -- ^ 'ltfrrsTags' @@ -115,11 +121,11 @@ , _ltfrrsTags = pTags_ } --- | The response status code. +-- | -- | The response status code. ltfrrsResponseStatus :: Lens' ListTagsForResourceResponse Int ltfrrsResponseStatus = lens _ltfrrsResponseStatus (\ s a -> s{_ltfrrsResponseStatus = a}); --- | A complex type that contains zero or more Tag elements. +-- | A complex type that contains zero or more @Tag@ elements. ltfrrsTags :: Lens' ListTagsForResourceResponse Tags ltfrrsTags = lens _ltfrrsTags (\ s a -> s{_ltfrrsTags = a}); diff --git a/gen/Network/AWS/CloudFront/TagResource.hs b/gen/Network/AWS/CloudFront/TagResource.hs --- a/gen/Network/AWS/CloudFront/TagResource.hs +++ b/gen/Network/AWS/CloudFront/TagResource.hs @@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Add tags to a CloudFront resource. +-- +-- module Network.AWS.CloudFront.TagResource ( -- * Creating a Request @@ -42,6 +44,8 @@ -- | The request to add tags to a CloudFront resource. -- +-- +-- -- /See:/ 'tagResource' smart constructor. data TagResource = TagResource' { _trResource :: !Text @@ -52,9 +56,9 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'trResource' +-- * 'trResource' - An ARN of a CloudFront resource. -- --- * 'trTags' +-- * 'trTags' - A complex type that contains zero or more @Tag@ elements. tagResource :: Text -- ^ 'trResource' -> Tags -- ^ 'trTags' @@ -69,7 +73,7 @@ trResource :: Lens' TagResource Text trResource = lens _trResource (\ s a -> s{_trResource = a}); --- | A complex type that contains zero or more Tag elements. +-- | A complex type that contains zero or more @Tag@ elements. trTags :: Lens' TagResource Tags trTags = lens _trTags (\ s a -> s{_trTags = a}); @@ -85,7 +89,7 @@ instance ToElement TagResource where toElement = mkElement - "{http://cloudfront.amazonaws.com/doc/2016-09-07/}Tags" + "{http://cloudfront.amazonaws.com/doc/2016-09-29/}Tags" . _trTags @@ -93,7 +97,7 @@ toHeaders = const mempty instance ToPath TagResource where - toPath = const "/2016-09-07/tagging" + toPath = const "/2016-09-29/tagging" instance ToQuery TagResource where toQuery TagResource'{..} diff --git a/gen/Network/AWS/CloudFront/Types.hs b/gen/Network/AWS/CloudFront/Types.hs --- a/gen/Network/AWS/CloudFront/Types.hs +++ b/gen/Network/AWS/CloudFront/Types.hs @@ -260,6 +260,7 @@ , dcRestrictions , dcLogging , dcCacheBehaviors + , dcIsIPV6Enabled , dcCallerReference , dcOrigins , dcDefaultCacheBehavior @@ -302,6 +303,7 @@ , dsRestrictions , dsWebACLId , dsHTTPVersion + , dsIsIPV6Enabled -- * ForwardedValues , ForwardedValues @@ -533,14 +535,14 @@ import Network.AWS.Prelude import Network.AWS.Sign.V4 --- | API version '2016-09-07' of the Amazon CloudFront SDK configuration. +-- | API version @2016-09-29@ of the Amazon CloudFront SDK configuration. cloudFront :: Service cloudFront = Service { _svcAbbrev = "CloudFront" , _svcSigner = v4 , _svcPrefix = "cloudfront" - , _svcVersion = "2016-09-07" + , _svcVersion = "2016-09-29" , _svcEndpoint = defaultEndpoint cloudFront , _svcTimeout = Just 70 , _svcCheck = statusSuccess @@ -572,7 +574,7 @@ _TooManyOriginCustomHeaders = _ServiceError . hasStatus 400 . hasCode "TooManyOriginCustomHeaders" --- | The specified tagging for a CloudFront resource is invalid. For more information, see the error text. +-- | Prism for InvalidTagging' errors. _InvalidTagging :: AsError a => Getting (First ServiceError) a ServiceError _InvalidTagging = _ServiceError . hasStatus 400 . hasCode "InvalidTagging" @@ -580,18 +582,24 @@ _InvalidErrorCode :: AsError a => Getting (First ServiceError) a ServiceError _InvalidErrorCode = _ServiceError . hasStatus 400 . hasCode "InvalidErrorCode" --- | You cannot create anymore cache behaviors for the distribution. +-- | You cannot create more cache behaviors for the distribution. +-- +-- _TooManyCacheBehaviors :: AsError a => Getting (First ServiceError) a ServiceError _TooManyCacheBehaviors = _ServiceError . hasStatus 400 . hasCode "TooManyCacheBehaviors" -- | Processing your request would cause you to exceed the maximum number of origin access identities allowed. +-- +-- _TooManyCloudFrontOriginAccessIdentities :: AsError a => Getting (First ServiceError) a ServiceError _TooManyCloudFrontOriginAccessIdentities = _ServiceError . hasStatus 400 . hasCode "TooManyCloudFrontOriginAccessIdentities" --- | The origin access identity is not valid or doesn\'t exist. +-- | The origin access identity is not valid or doesn't exist. +-- +-- _InvalidOriginAccessIdentity :: AsError a => Getting (First ServiceError) a ServiceError _InvalidOriginAccessIdentity = _ServiceError . hasStatus 400 . hasCode "InvalidOriginAccessIdentity" @@ -602,20 +610,28 @@ _ServiceError . hasStatus 409 . hasCode "DistributionNotDisabled" -- | The specified streaming distribution does not exist. +-- +-- _NoSuchStreamingDistribution :: AsError a => Getting (First ServiceError) a ServiceError _NoSuchStreamingDistribution = _ServiceError . hasStatus 404 . hasCode "NoSuchStreamingDistribution" --- | The value of Quantity and the size of Items do not match. +-- | The value of @Quantity@ and the size of @Items@ do not match. +-- +-- _InconsistentQuantities :: AsError a => Getting (First ServiceError) a ServiceError _InconsistentQuantities = _ServiceError . hasStatus 400 . hasCode "InconsistentQuantities" -- | The argument is invalid. +-- +-- _InvalidArgument :: AsError a => Getting (First ServiceError) a ServiceError _InvalidArgument = _ServiceError . hasStatus 400 . hasCode "InvalidArgument" -- | You have exceeded the maximum number of allowable InProgress invalidation batch requests, or invalidation objects. +-- +-- _TooManyInvalidationsInProgress :: AsError a => Getting (First ServiceError) a ServiceError _TooManyInvalidationsInProgress = _ServiceError . hasStatus 400 . hasCode "TooManyInvalidationsInProgress" @@ -630,11 +646,15 @@ _ServiceError . hasStatus 400 . hasCode "TooManyQueryStringParameters" -- | Your request contains more CNAMEs than are allowed per distribution. +-- +-- _TooManyDistributionCNAMEs :: AsError a => Getting (First ServiceError) a ServiceError _TooManyDistributionCNAMEs = _ServiceError . hasStatus 400 . hasCode "TooManyDistributionCNAMEs" -- | The specified origin access identity does not exist. +-- +-- _NoSuchCloudFrontOriginAccessIdentity :: AsError a => Getting (First ServiceError) a ServiceError _NoSuchCloudFrontOriginAccessIdentity = _ServiceError . @@ -647,6 +667,8 @@ hasStatus 409 . hasCode "CloudFrontOriginAccessIdentityInUse" -- | Processing your request would cause you to exceed the maximum number of streaming distributions allowed. +-- +-- _TooManyStreamingDistributions :: AsError a => Getting (First ServiceError) a ServiceError _TooManyStreamingDistributions = _ServiceError . hasStatus 400 . hasCode "TooManyStreamingDistributions" @@ -656,30 +678,42 @@ _BatchTooLarge = _ServiceError . hasStatus 413 . hasCode "BatchTooLarge" -- | Your request contains more cookie names in the whitelist than are allowed per cache behavior. +-- +-- _TooManyCookieNamesInWhiteList :: AsError a => Getting (First ServiceError) a ServiceError _TooManyCookieNamesInWhiteList = _ServiceError . hasStatus 400 . hasCode "TooManyCookieNamesInWhiteList" --- | Your request contains forward cookies option which doesn\'t match with the expectation for the whitelisted list of cookie names. Either list of cookie names has been specified when not allowed or list of cookie names is missing when expected. +-- | Your request contains forward cookies option which doesn't match with the expectation for the @whitelisted@ list of cookie names. Either list of cookie names has been specified when not allowed or list of cookie names is missing when expected. +-- +-- _InvalidForwardCookies :: AsError a => Getting (First ServiceError) a ServiceError _InvalidForwardCookies = _ServiceError . hasStatus 400 . hasCode "InvalidForwardCookies" -- | Your request contains more trusted signers than are allowed per distribution. +-- +-- _TooManyTrustedSigners :: AsError a => Getting (First ServiceError) a ServiceError _TooManyTrustedSigners = _ServiceError . hasStatus 400 . hasCode "TooManyTrustedSigners" -- | The Amazon S3 origin server specified does not refer to a valid Amazon S3 bucket. +-- +-- _InvalidOrigin :: AsError a => Getting (First ServiceError) a ServiceError _InvalidOrigin = _ServiceError . hasStatus 400 . hasCode "InvalidOrigin" -- | The specified invalidation does not exist. +-- +-- _NoSuchInvalidation :: AsError a => Getting (First ServiceError) a ServiceError _NoSuchInvalidation = _ServiceError . hasStatus 404 . hasCode "NoSuchInvalidation" --- | No origin exists with the specified Origin Id. +-- | No origin exists with the specified @Origin Id@ . +-- +-- _NoSuchOrigin :: AsError a => Getting (First ServiceError) a ServiceError _NoSuchOrigin = _ServiceError . hasStatus 404 . hasCode "NoSuchOrigin" @@ -697,7 +731,7 @@ _TooManyHeadersInForwardedValues = _ServiceError . hasStatus 400 . hasCode "TooManyHeadersInForwardedValues" --- | The specified CloudFront resource does not exist. +-- | Prism for NoSuchResource' errors. _NoSuchResource :: AsError a => Getting (First ServiceError) a ServiceError _NoSuchResource = _ServiceError . hasStatus 404 . hasCode "NoSuchResource" @@ -707,22 +741,30 @@ _ServiceError . hasStatus 400 . hasCode "TooManyStreamingDistributionCNAMEs" --- | This operation requires the HTTPS protocol. Ensure that you specify the HTTPS protocol in your request, or omit the RequiredProtocols element from your distribution configuration. +-- | This operation requires the HTTPS protocol. Ensure that you specify the HTTPS protocol in your request, or omit the @RequiredProtocols@ element from your distribution configuration. +-- +-- _InvalidRequiredProtocol :: AsError a => Getting (First ServiceError) a ServiceError _InvalidRequiredProtocol = _ServiceError . hasStatus 400 . hasCode "InvalidRequiredProtocol" -- | Processing your request would cause you to exceed the maximum number of distributions allowed. +-- +-- _TooManyDistributions :: AsError a => Getting (First ServiceError) a ServiceError _TooManyDistributions = _ServiceError . hasStatus 400 . hasCode "TooManyDistributions" --- | You cannot create anymore custom ssl certificates. +-- | You cannot create anymore custom SSL/TLS certificates. +-- +-- _TooManyCertificates :: AsError a => Getting (First ServiceError) a ServiceError _TooManyCertificates = _ServiceError . hasStatus 400 . hasCode "TooManyCertificates" -- | The caller reference you attempted to create the distribution with is associated with another distribution. +-- +-- _DistributionAlreadyExists :: AsError a => Getting (First ServiceError) a ServiceError _DistributionAlreadyExists = _ServiceError . hasStatus 409 . hasCode "DistributionAlreadyExists" @@ -733,19 +775,27 @@ _ServiceError . hasStatus 400 . hasCode "InvalidQueryStringParameters" -- | This operation requires a body. Ensure that the body is present and the Content-Type header is set. +-- +-- _MissingBody :: AsError a => Getting (First ServiceError) a ServiceError _MissingBody = _ServiceError . hasStatus 400 . hasCode "MissingBody" --- | Origin and CallerReference cannot be updated. +-- | Origin and @CallerReference@ cannot be updated. +-- +-- _IllegalUpdate :: AsError a => Getting (First ServiceError) a ServiceError _IllegalUpdate = _ServiceError . hasStatus 400 . hasCode "IllegalUpdate" --- | The If-Match version is missing or not valid for the distribution. +-- | The @If-Match@ version is missing or not valid for the distribution. +-- +-- _InvalidIfMatchVersion :: AsError a => Getting (First ServiceError) a ServiceError _InvalidIfMatchVersion = _ServiceError . hasStatus 400 . hasCode "InvalidIfMatchVersion" --- | The precondition given in one or more of the request-header fields evaluated to false. +-- | The precondition given in one or more of the request-header fields evaluated to @false@ . +-- +-- _PreconditionFailed :: AsError a => Getting (First ServiceError) a ServiceError _PreconditionFailed = _ServiceError . hasStatus 412 . hasCode "PreconditionFailed" @@ -766,26 +816,36 @@ _ServiceError . hasStatus 409 . hasCode "CNAMEAlreadyExists" -- | One or more of your trusted signers do not exist. +-- +-- _TrustedSignerDoesNotExist :: AsError a => Getting (First ServiceError) a ServiceError _TrustedSignerDoesNotExist = _ServiceError . hasStatus 400 . hasCode "TrustedSignerDoesNotExist" --- | You cannot specify SSLv3 as the minimum protocol version if you only want to support only clients that Support Server Name Indication (SNI). +-- | You cannot specify SSLv3 as the minimum protocol version if you only want to support only clients that support Server Name Indication (SNI). +-- +-- _InvalidProtocolSettings :: AsError a => Getting (First ServiceError) a ServiceError _InvalidProtocolSettings = _ServiceError . hasStatus 400 . hasCode "InvalidProtocolSettings" --- | If the CallerReference is a value you already sent in a previous request to create an identity but the content of the CloudFrontOriginAccessIdentityConfig is different from the original request, CloudFront returns a CloudFrontOriginAccessIdentityAlreadyExists error. +-- | If the @CallerReference@ is a value you already sent in a previous request to create an identity but the content of the @CloudFrontOriginAccessIdentityConfig@ is different from the original request, CloudFront returns a @CloudFrontOriginAccessIdentityAlreadyExists@ error. +-- +-- _CloudFrontOriginAccessIdentityAlreadyExists :: AsError a => Getting (First ServiceError) a ServiceError _CloudFrontOriginAccessIdentityAlreadyExists = _ServiceError . hasStatus 409 . hasCode "CloudFrontOriginAccessIdentityAlreadyExists" --- | You cannot create anymore origins for the distribution. +-- | You cannot create more origins for the distribution. +-- +-- _TooManyOrigins :: AsError a => Getting (First ServiceError) a ServiceError _TooManyOrigins = _ServiceError . hasStatus 400 . hasCode "TooManyOrigins" --- | The relative path is too big, is not URL-encoded, or does not begin with a slash (\/). +-- | The relative path is too big, is not URL-encoded, or does not begin with a slash (/). +-- +-- _InvalidRelativePath :: AsError a => Getting (First ServiceError) a ServiceError _InvalidRelativePath = _ServiceError . hasStatus 400 . hasCode "InvalidRelativePath" @@ -802,6 +862,8 @@ _ServiceError . hasStatus 400 . hasCode "InvalidMinimumProtocolVersion" -- | Access denied. +-- +-- _AccessDenied :: AsError a => Getting (First ServiceError) a ServiceError _AccessDenied = _ServiceError . hasStatus 403 . hasCode "AccessDenied" @@ -811,11 +873,15 @@ _ServiceError . hasStatus 400 . hasCode "InvalidViewerCertificate" -- | The specified distribution does not exist. +-- +-- _NoSuchDistribution :: AsError a => Getting (First ServiceError) a ServiceError _NoSuchDistribution = _ServiceError . hasStatus 404 . hasCode "NoSuchDistribution" -- | The default root object file name is too big or contains an invalid character. +-- +-- _InvalidDefaultRootObject :: AsError a => Getting (First ServiceError) a ServiceError _InvalidDefaultRootObject = _ServiceError . hasStatus 400 . hasCode "InvalidDefaultRootObject" diff --git a/gen/Network/AWS/CloudFront/Types/Product.hs b/gen/Network/AWS/CloudFront/Types/Product.hs --- a/gen/Network/AWS/CloudFront/Types/Product.hs +++ b/gen/Network/AWS/CloudFront/Types/Product.hs @@ -21,3494 +21,3686 @@ import Network.AWS.Lens import Network.AWS.Prelude --- | A complex type that lists the AWS accounts, if any, that you included in the TrustedSigners complex type for the default cache behavior or for any of the other cache behaviors for this distribution. These are accounts that you want to allow to create signed URLs for private content. --- --- /See:/ 'activeTrustedSigners' smart constructor. -data ActiveTrustedSigners = ActiveTrustedSigners' - { _atsItems :: !(Maybe [Signer]) - , _atsEnabled :: !Bool - , _atsQuantity :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) - --- | Creates a value of 'ActiveTrustedSigners' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'atsItems' --- --- * 'atsEnabled' --- --- * 'atsQuantity' -activeTrustedSigners - :: Bool -- ^ 'atsEnabled' - -> Int -- ^ 'atsQuantity' - -> ActiveTrustedSigners -activeTrustedSigners pEnabled_ pQuantity_ = - ActiveTrustedSigners' - { _atsItems = Nothing - , _atsEnabled = pEnabled_ - , _atsQuantity = pQuantity_ - } - --- | A complex type that contains one Signer complex type for each unique trusted signer that is specified in the TrustedSigners complex type, including trusted signers in the default cache behavior and in all of the other cache behaviors. -atsItems :: Lens' ActiveTrustedSigners [Signer] -atsItems = lens _atsItems (\ s a -> s{_atsItems = a}) . _Default . _Coerce; - --- | Each active trusted signer. -atsEnabled :: Lens' ActiveTrustedSigners Bool -atsEnabled = lens _atsEnabled (\ s a -> s{_atsEnabled = a}); - --- | The number of unique trusted signers included in all cache behaviors. For example, if three cache behaviors all list the same three AWS accounts, the value of Quantity for ActiveTrustedSigners will be 3. -atsQuantity :: Lens' ActiveTrustedSigners Int -atsQuantity = lens _atsQuantity (\ s a -> s{_atsQuantity = a}); - -instance FromXML ActiveTrustedSigners where - parseXML x - = ActiveTrustedSigners' <$> - (x .@? "Items" .!@ mempty >>= - may (parseXMLList "Signer")) - <*> (x .@ "Enabled") - <*> (x .@ "Quantity") - -instance Hashable ActiveTrustedSigners - -instance NFData ActiveTrustedSigners - --- | A complex type that contains information about CNAMEs (alternate domain names), if any, for this distribution. --- --- /See:/ 'aliases' smart constructor. -data Aliases = Aliases' - { _aItems :: !(Maybe [Text]) - , _aQuantity :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) - --- | Creates a value of 'Aliases' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'aItems' --- --- * 'aQuantity' -aliases - :: Int -- ^ 'aQuantity' - -> Aliases -aliases pQuantity_ = - Aliases' - { _aItems = Nothing - , _aQuantity = pQuantity_ - } - --- | Optional: A complex type that contains CNAME elements, if any, for this distribution. If Quantity is 0, you can omit Items. -aItems :: Lens' Aliases [Text] -aItems = lens _aItems (\ s a -> s{_aItems = a}) . _Default . _Coerce; - --- | The number of CNAMEs, if any, for this distribution. -aQuantity :: Lens' Aliases Int -aQuantity = lens _aQuantity (\ s a -> s{_aQuantity = a}); - -instance FromXML Aliases where - parseXML x - = Aliases' <$> - (x .@? "Items" .!@ mempty >>= - may (parseXMLList "CNAME")) - <*> (x .@ "Quantity") - -instance Hashable Aliases - -instance NFData Aliases - -instance ToXML Aliases where - toXML Aliases'{..} - = mconcat - ["Items" @= toXML (toXMLList "CNAME" <$> _aItems), - "Quantity" @= _aQuantity] - --- | A complex type that controls which HTTP methods CloudFront processes and forwards to your Amazon S3 bucket or your custom origin. There are three choices: - CloudFront forwards only GET and HEAD requests. - CloudFront forwards only GET, HEAD and OPTIONS requests. - CloudFront forwards GET, HEAD, OPTIONS, PUT, PATCH, POST, and DELETE requests. If you pick the third choice, you may need to restrict access to your Amazon S3 bucket or to your custom origin so users can\'t perform operations that you don\'t want them to. For example, you may not want users to have permission to delete objects from your origin. --- --- /See:/ 'allowedMethods' smart constructor. -data AllowedMethods = AllowedMethods' - { _amCachedMethods :: !(Maybe CachedMethods) - , _amQuantity :: !Int - , _amItems :: ![Method] - } deriving (Eq,Read,Show,Data,Typeable,Generic) - --- | Creates a value of 'AllowedMethods' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'amCachedMethods' --- --- * 'amQuantity' --- --- * 'amItems' -allowedMethods - :: Int -- ^ 'amQuantity' - -> AllowedMethods -allowedMethods pQuantity_ = - AllowedMethods' - { _amCachedMethods = Nothing - , _amQuantity = pQuantity_ - , _amItems = mempty - } - --- | Undocumented member. -amCachedMethods :: Lens' AllowedMethods (Maybe CachedMethods) -amCachedMethods = lens _amCachedMethods (\ s a -> s{_amCachedMethods = a}); - --- | The number of HTTP methods that you want CloudFront to forward to your origin. Valid values are 2 (for GET and HEAD requests), 3 (for GET, HEAD and OPTIONS requests) and 7 (for GET, HEAD, OPTIONS, PUT, PATCH, POST, and DELETE requests). -amQuantity :: Lens' AllowedMethods Int -amQuantity = lens _amQuantity (\ s a -> s{_amQuantity = a}); - --- | A complex type that contains the HTTP methods that you want CloudFront to process and forward to your origin. -amItems :: Lens' AllowedMethods [Method] -amItems = lens _amItems (\ s a -> s{_amItems = a}) . _Coerce; - -instance FromXML AllowedMethods where - parseXML x - = AllowedMethods' <$> - (x .@? "CachedMethods") <*> (x .@ "Quantity") <*> - (x .@? "Items" .!@ mempty >>= parseXMLList "Method") - -instance Hashable AllowedMethods - -instance NFData AllowedMethods - -instance ToXML AllowedMethods where - toXML AllowedMethods'{..} - = mconcat - ["CachedMethods" @= _amCachedMethods, - "Quantity" @= _amQuantity, - "Items" @= toXMLList "Method" _amItems] - --- | A complex type that describes how CloudFront processes requests. You can create up to 10 cache behaviors.You must create at least as many cache behaviors (including the default cache behavior) as you have origins if you want CloudFront to distribute objects from all of the origins. Each cache behavior specifies the one origin from which you want CloudFront to get objects. If you have two origins and only the default cache behavior, the default cache behavior will cause CloudFront to get objects from one of the origins, but the other origin will never be used. If you don\'t want to specify any cache behaviors, include only an empty CacheBehaviors element. Don\'t include an empty CacheBehavior element, or CloudFront returns a MalformedXML error. To delete all cache behaviors in an existing distribution, update the distribution configuration and include only an empty CacheBehaviors element. To add, change, or remove one or more cache behaviors, update the distribution configuration and specify all of the cache behaviors that you want to include in the updated distribution. --- --- /See:/ 'cacheBehavior' smart constructor. -data CacheBehavior = CacheBehavior' - { _cbAllowedMethods :: !(Maybe AllowedMethods) - , _cbMaxTTL :: !(Maybe Integer) - , _cbCompress :: !(Maybe Bool) - , _cbSmoothStreaming :: !(Maybe Bool) - , _cbDefaultTTL :: !(Maybe Integer) - , _cbPathPattern :: !Text - , _cbTargetOriginId :: !Text - , _cbForwardedValues :: !ForwardedValues - , _cbTrustedSigners :: !TrustedSigners - , _cbViewerProtocolPolicy :: !ViewerProtocolPolicy - , _cbMinTTL :: !Integer - } deriving (Eq,Read,Show,Data,Typeable,Generic) - --- | Creates a value of 'CacheBehavior' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'cbAllowedMethods' --- --- * 'cbMaxTTL' --- --- * 'cbCompress' --- --- * 'cbSmoothStreaming' --- --- * 'cbDefaultTTL' --- --- * 'cbPathPattern' --- --- * 'cbTargetOriginId' --- --- * 'cbForwardedValues' --- --- * 'cbTrustedSigners' --- --- * 'cbViewerProtocolPolicy' --- --- * 'cbMinTTL' -cacheBehavior - :: Text -- ^ 'cbPathPattern' - -> Text -- ^ 'cbTargetOriginId' - -> ForwardedValues -- ^ 'cbForwardedValues' - -> TrustedSigners -- ^ 'cbTrustedSigners' - -> ViewerProtocolPolicy -- ^ 'cbViewerProtocolPolicy' - -> Integer -- ^ 'cbMinTTL' - -> CacheBehavior -cacheBehavior pPathPattern_ pTargetOriginId_ pForwardedValues_ pTrustedSigners_ pViewerProtocolPolicy_ pMinTTL_ = - CacheBehavior' - { _cbAllowedMethods = Nothing - , _cbMaxTTL = Nothing - , _cbCompress = Nothing - , _cbSmoothStreaming = Nothing - , _cbDefaultTTL = Nothing - , _cbPathPattern = pPathPattern_ - , _cbTargetOriginId = pTargetOriginId_ - , _cbForwardedValues = pForwardedValues_ - , _cbTrustedSigners = pTrustedSigners_ - , _cbViewerProtocolPolicy = pViewerProtocolPolicy_ - , _cbMinTTL = pMinTTL_ - } - --- | Undocumented member. -cbAllowedMethods :: Lens' CacheBehavior (Maybe AllowedMethods) -cbAllowedMethods = lens _cbAllowedMethods (\ s a -> s{_cbAllowedMethods = a}); - --- | The maximum amount of time (in seconds) that an object is in a CloudFront cache before CloudFront forwards another request to your origin to determine whether the object has been updated. The value that you specify applies only when your origin adds HTTP headers such as Cache-Control max-age, Cache-Control s-maxage, and Expires to objects. You can specify a value from 0 to 3,153,600,000 seconds (100 years). -cbMaxTTL :: Lens' CacheBehavior (Maybe Integer) -cbMaxTTL = lens _cbMaxTTL (\ s a -> s{_cbMaxTTL = a}); - --- | Whether you want CloudFront to automatically compress content for web requests that include Accept-Encoding: gzip in the request header. If so, specify true; if not, specify false. CloudFront compresses files larger than 1000 bytes and less than 1 megabyte for both Amazon S3 and custom origins. When a CloudFront edge location is unusually busy, some files might not be compressed. The value of the Content-Type header must be on the list of file types that CloudFront will compress. For the current list, see in the Amazon CloudFront Developer Guide. If you configure CloudFront to compress content, CloudFront removes the ETag response header from the objects that it compresses. The ETag header indicates that the version in a CloudFront edge cache is identical to the version on the origin server, but after compression the two versions are no longer identical. As a result, for compressed objects, CloudFront can\'t use the ETag header to determine whether an expired object in the CloudFront edge cache is still the latest version. -cbCompress :: Lens' CacheBehavior (Maybe Bool) -cbCompress = lens _cbCompress (\ s a -> s{_cbCompress = a}); - --- | Indicates whether you want to distribute media files in Microsoft Smooth Streaming format using the origin that is associated with this cache behavior. If so, specify true; if not, specify false. -cbSmoothStreaming :: Lens' CacheBehavior (Maybe Bool) -cbSmoothStreaming = lens _cbSmoothStreaming (\ s a -> s{_cbSmoothStreaming = a}); - --- | If you don\'t configure your origin to add a Cache-Control max-age directive or an Expires header, DefaultTTL is the default amount of time (in seconds) that an object is in a CloudFront cache before CloudFront forwards another request to your origin to determine whether the object has been updated. The value that you specify applies only when your origin does not add HTTP headers such as Cache-Control max-age, Cache-Control s-maxage, and Expires to objects. You can specify a value from 0 to 3,153,600,000 seconds (100 years). -cbDefaultTTL :: Lens' CacheBehavior (Maybe Integer) -cbDefaultTTL = lens _cbDefaultTTL (\ s a -> s{_cbDefaultTTL = a}); - --- | The pattern (for example, images\/*.jpg) that specifies which requests you want this cache behavior to apply to. When CloudFront receives an end-user request, the requested path is compared with path patterns in the order in which cache behaviors are listed in the distribution. The path pattern for the default cache behavior is * and cannot be changed. If the request for an object does not match the path pattern for any cache behaviors, CloudFront applies the behavior in the default cache behavior. -cbPathPattern :: Lens' CacheBehavior Text -cbPathPattern = lens _cbPathPattern (\ s a -> s{_cbPathPattern = a}); - --- | The value of ID for the origin that you want CloudFront to route requests to when a request matches the path pattern either for a cache behavior or for the default cache behavior. -cbTargetOriginId :: Lens' CacheBehavior Text -cbTargetOriginId = lens _cbTargetOriginId (\ s a -> s{_cbTargetOriginId = a}); - --- | A complex type that specifies how CloudFront handles query strings, cookies and headers. -cbForwardedValues :: Lens' CacheBehavior ForwardedValues -cbForwardedValues = lens _cbForwardedValues (\ s a -> s{_cbForwardedValues = a}); - --- | A complex type that specifies the AWS accounts, if any, that you want to allow to create signed URLs for private content. If you want to require signed URLs in requests for objects in the target origin that match the PathPattern for this cache behavior, specify true for Enabled, and specify the applicable values for Quantity and Items. For more information, go to Using a Signed URL to Serve Private Content in the Amazon CloudFront Developer Guide. If you don\'t want to require signed URLs in requests for objects that match PathPattern, specify false for Enabled and 0 for Quantity. Omit Items. To add, change, or remove one or more trusted signers, change Enabled to true (if it\'s currently false), change Quantity as applicable, and specify all of the trusted signers that you want to include in the updated distribution. -cbTrustedSigners :: Lens' CacheBehavior TrustedSigners -cbTrustedSigners = lens _cbTrustedSigners (\ s a -> s{_cbTrustedSigners = a}); - --- | Use this element to specify the protocol that users can use to access the files in the origin specified by TargetOriginId when a request matches the path pattern in PathPattern. If you want CloudFront to allow end users to use any available protocol, specify allow-all. If you want CloudFront to require HTTPS, specify https. If you want CloudFront to respond to an HTTP request with an HTTP status code of 301 (Moved Permanently) and the HTTPS URL, specify redirect-to-https. The viewer then resubmits the request using the HTTPS URL. -cbViewerProtocolPolicy :: Lens' CacheBehavior ViewerProtocolPolicy -cbViewerProtocolPolicy = lens _cbViewerProtocolPolicy (\ s a -> s{_cbViewerProtocolPolicy = a}); - --- | The minimum amount of time that you want objects to stay in CloudFront caches before CloudFront queries your origin to see whether the object has been updated.You can specify a value from 0 to 3,153,600,000 seconds (100 years). -cbMinTTL :: Lens' CacheBehavior Integer -cbMinTTL = lens _cbMinTTL (\ s a -> s{_cbMinTTL = a}); - -instance FromXML CacheBehavior where - parseXML x - = CacheBehavior' <$> - (x .@? "AllowedMethods") <*> (x .@? "MaxTTL") <*> - (x .@? "Compress") - <*> (x .@? "SmoothStreaming") - <*> (x .@? "DefaultTTL") - <*> (x .@ "PathPattern") - <*> (x .@ "TargetOriginId") - <*> (x .@ "ForwardedValues") - <*> (x .@ "TrustedSigners") - <*> (x .@ "ViewerProtocolPolicy") - <*> (x .@ "MinTTL") - -instance Hashable CacheBehavior - -instance NFData CacheBehavior - -instance ToXML CacheBehavior where - toXML CacheBehavior'{..} - = mconcat - ["AllowedMethods" @= _cbAllowedMethods, - "MaxTTL" @= _cbMaxTTL, "Compress" @= _cbCompress, - "SmoothStreaming" @= _cbSmoothStreaming, - "DefaultTTL" @= _cbDefaultTTL, - "PathPattern" @= _cbPathPattern, - "TargetOriginId" @= _cbTargetOriginId, - "ForwardedValues" @= _cbForwardedValues, - "TrustedSigners" @= _cbTrustedSigners, - "ViewerProtocolPolicy" @= _cbViewerProtocolPolicy, - "MinTTL" @= _cbMinTTL] - --- | A complex type that contains zero or more CacheBehavior elements. --- --- /See:/ 'cacheBehaviors' smart constructor. -data CacheBehaviors = CacheBehaviors' - { _cbItems :: !(Maybe [CacheBehavior]) - , _cbQuantity :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) - --- | Creates a value of 'CacheBehaviors' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'cbItems' --- --- * 'cbQuantity' -cacheBehaviors - :: Int -- ^ 'cbQuantity' - -> CacheBehaviors -cacheBehaviors pQuantity_ = - CacheBehaviors' - { _cbItems = Nothing - , _cbQuantity = pQuantity_ - } - --- | Optional: A complex type that contains cache behaviors for this distribution. If Quantity is 0, you can omit Items. -cbItems :: Lens' CacheBehaviors [CacheBehavior] -cbItems = lens _cbItems (\ s a -> s{_cbItems = a}) . _Default . _Coerce; - --- | The number of cache behaviors for this distribution. -cbQuantity :: Lens' CacheBehaviors Int -cbQuantity = lens _cbQuantity (\ s a -> s{_cbQuantity = a}); - -instance FromXML CacheBehaviors where - parseXML x - = CacheBehaviors' <$> - (x .@? "Items" .!@ mempty >>= - may (parseXMLList "CacheBehavior")) - <*> (x .@ "Quantity") - -instance Hashable CacheBehaviors - -instance NFData CacheBehaviors - -instance ToXML CacheBehaviors where - toXML CacheBehaviors'{..} - = mconcat - ["Items" @= - toXML (toXMLList "CacheBehavior" <$> _cbItems), - "Quantity" @= _cbQuantity] - --- | A complex type that controls whether CloudFront caches the response to requests using the specified HTTP methods. There are two choices: - CloudFront caches responses to GET and HEAD requests. - CloudFront caches responses to GET, HEAD, and OPTIONS requests. If you pick the second choice for your S3 Origin, you may need to forward Access-Control-Request-Method, Access-Control-Request-Headers and Origin headers for the responses to be cached correctly. --- --- /See:/ 'cachedMethods' smart constructor. -data CachedMethods = CachedMethods' - { _cmQuantity :: !Int - , _cmItems :: ![Method] - } deriving (Eq,Read,Show,Data,Typeable,Generic) - --- | Creates a value of 'CachedMethods' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'cmQuantity' --- --- * 'cmItems' -cachedMethods - :: Int -- ^ 'cmQuantity' - -> CachedMethods -cachedMethods pQuantity_ = - CachedMethods' - { _cmQuantity = pQuantity_ - , _cmItems = mempty - } - --- | The number of HTTP methods for which you want CloudFront to cache responses. Valid values are 2 (for caching responses to GET and HEAD requests) and 3 (for caching responses to GET, HEAD, and OPTIONS requests). -cmQuantity :: Lens' CachedMethods Int -cmQuantity = lens _cmQuantity (\ s a -> s{_cmQuantity = a}); - --- | A complex type that contains the HTTP methods that you want CloudFront to cache responses to. -cmItems :: Lens' CachedMethods [Method] -cmItems = lens _cmItems (\ s a -> s{_cmItems = a}) . _Coerce; - -instance FromXML CachedMethods where - parseXML x - = CachedMethods' <$> - (x .@ "Quantity") <*> - (x .@? "Items" .!@ mempty >>= parseXMLList "Method") - -instance Hashable CachedMethods - -instance NFData CachedMethods - -instance ToXML CachedMethods where - toXML CachedMethods'{..} - = mconcat - ["Quantity" @= _cmQuantity, - "Items" @= toXMLList "Method" _cmItems] - --- | CloudFront origin access identity. --- --- /See:/ 'cloudFrontOriginAccessIdentity' smart constructor. -data CloudFrontOriginAccessIdentity = CloudFrontOriginAccessIdentity' - { _cfoaiCloudFrontOriginAccessIdentityConfig :: !(Maybe CloudFrontOriginAccessIdentityConfig) - , _cfoaiId :: !Text - , _cfoaiS3CanonicalUserId :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) - --- | Creates a value of 'CloudFrontOriginAccessIdentity' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'cfoaiCloudFrontOriginAccessIdentityConfig' --- --- * 'cfoaiId' --- --- * 'cfoaiS3CanonicalUserId' -cloudFrontOriginAccessIdentity - :: Text -- ^ 'cfoaiId' - -> Text -- ^ 'cfoaiS3CanonicalUserId' - -> CloudFrontOriginAccessIdentity -cloudFrontOriginAccessIdentity pId_ pS3CanonicalUserId_ = - CloudFrontOriginAccessIdentity' - { _cfoaiCloudFrontOriginAccessIdentityConfig = Nothing - , _cfoaiId = pId_ - , _cfoaiS3CanonicalUserId = pS3CanonicalUserId_ - } - --- | The current configuration information for the identity. -cfoaiCloudFrontOriginAccessIdentityConfig :: Lens' CloudFrontOriginAccessIdentity (Maybe CloudFrontOriginAccessIdentityConfig) -cfoaiCloudFrontOriginAccessIdentityConfig = lens _cfoaiCloudFrontOriginAccessIdentityConfig (\ s a -> s{_cfoaiCloudFrontOriginAccessIdentityConfig = a}); - --- | The ID for the origin access identity. For example: E74FTE3AJFJ256A. -cfoaiId :: Lens' CloudFrontOriginAccessIdentity Text -cfoaiId = lens _cfoaiId (\ s a -> s{_cfoaiId = a}); - --- | The Amazon S3 canonical user ID for the origin access identity, which you use when giving the origin access identity read permission to an object in Amazon S3. -cfoaiS3CanonicalUserId :: Lens' CloudFrontOriginAccessIdentity Text -cfoaiS3CanonicalUserId = lens _cfoaiS3CanonicalUserId (\ s a -> s{_cfoaiS3CanonicalUserId = a}); - -instance FromXML CloudFrontOriginAccessIdentity where - parseXML x - = CloudFrontOriginAccessIdentity' <$> - (x .@? "CloudFrontOriginAccessIdentityConfig") <*> - (x .@ "Id") - <*> (x .@ "S3CanonicalUserId") - -instance Hashable CloudFrontOriginAccessIdentity - -instance NFData CloudFrontOriginAccessIdentity - --- | Origin access identity configuration. --- --- /See:/ 'cloudFrontOriginAccessIdentityConfig' smart constructor. -data CloudFrontOriginAccessIdentityConfig = CloudFrontOriginAccessIdentityConfig' - { _cfoaicCallerReference :: !Text - , _cfoaicComment :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) - --- | Creates a value of 'CloudFrontOriginAccessIdentityConfig' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'cfoaicCallerReference' --- --- * 'cfoaicComment' -cloudFrontOriginAccessIdentityConfig - :: Text -- ^ 'cfoaicCallerReference' - -> Text -- ^ 'cfoaicComment' - -> CloudFrontOriginAccessIdentityConfig -cloudFrontOriginAccessIdentityConfig pCallerReference_ pComment_ = - CloudFrontOriginAccessIdentityConfig' - { _cfoaicCallerReference = pCallerReference_ - , _cfoaicComment = pComment_ - } - --- | A unique number that ensures the request can\'t be replayed. If the CallerReference is new (no matter the content of the CloudFrontOriginAccessIdentityConfig object), a new origin access identity is created. If the CallerReference is a value you already sent in a previous request to create an identity, and the content of the CloudFrontOriginAccessIdentityConfig is identical to the original request (ignoring white space), the response includes the same information returned to the original request. If the CallerReference is a value you already sent in a previous request to create an identity but the content of the CloudFrontOriginAccessIdentityConfig is different from the original request, CloudFront returns a CloudFrontOriginAccessIdentityAlreadyExists error. -cfoaicCallerReference :: Lens' CloudFrontOriginAccessIdentityConfig Text -cfoaicCallerReference = lens _cfoaicCallerReference (\ s a -> s{_cfoaicCallerReference = a}); - --- | Any comments you want to include about the origin access identity. -cfoaicComment :: Lens' CloudFrontOriginAccessIdentityConfig Text -cfoaicComment = lens _cfoaicComment (\ s a -> s{_cfoaicComment = a}); - -instance FromXML CloudFrontOriginAccessIdentityConfig - where - parseXML x - = CloudFrontOriginAccessIdentityConfig' <$> - (x .@ "CallerReference") <*> (x .@ "Comment") - -instance Hashable - CloudFrontOriginAccessIdentityConfig - -instance NFData CloudFrontOriginAccessIdentityConfig - -instance ToXML CloudFrontOriginAccessIdentityConfig - where - toXML CloudFrontOriginAccessIdentityConfig'{..} - = mconcat - ["CallerReference" @= _cfoaicCallerReference, - "Comment" @= _cfoaicComment] - --- | The CloudFrontOriginAccessIdentityList type. --- --- /See:/ 'cloudFrontOriginAccessIdentityList' smart constructor. -data CloudFrontOriginAccessIdentityList = CloudFrontOriginAccessIdentityList' - { _cfoailItems :: !(Maybe [CloudFrontOriginAccessIdentitySummary]) - , _cfoailNextMarker :: !(Maybe Text) - , _cfoailMarker :: !Text - , _cfoailMaxItems :: !Int - , _cfoailIsTruncated :: !Bool - , _cfoailQuantity :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) - --- | Creates a value of 'CloudFrontOriginAccessIdentityList' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'cfoailItems' --- --- * 'cfoailNextMarker' --- --- * 'cfoailMarker' --- --- * 'cfoailMaxItems' --- --- * 'cfoailIsTruncated' --- --- * 'cfoailQuantity' -cloudFrontOriginAccessIdentityList - :: Text -- ^ 'cfoailMarker' - -> Int -- ^ 'cfoailMaxItems' - -> Bool -- ^ 'cfoailIsTruncated' - -> Int -- ^ 'cfoailQuantity' - -> CloudFrontOriginAccessIdentityList -cloudFrontOriginAccessIdentityList pMarker_ pMaxItems_ pIsTruncated_ pQuantity_ = - CloudFrontOriginAccessIdentityList' - { _cfoailItems = Nothing - , _cfoailNextMarker = Nothing - , _cfoailMarker = pMarker_ - , _cfoailMaxItems = pMaxItems_ - , _cfoailIsTruncated = pIsTruncated_ - , _cfoailQuantity = pQuantity_ - } - --- | A complex type that contains one CloudFrontOriginAccessIdentitySummary element for each origin access identity that was created by the current AWS account. -cfoailItems :: Lens' CloudFrontOriginAccessIdentityList [CloudFrontOriginAccessIdentitySummary] -cfoailItems = lens _cfoailItems (\ s a -> s{_cfoailItems = a}) . _Default . _Coerce; - --- | If IsTruncated is true, this element is present and contains the value you can use for the Marker request parameter to continue listing your origin access identities where they left off. -cfoailNextMarker :: Lens' CloudFrontOriginAccessIdentityList (Maybe Text) -cfoailNextMarker = lens _cfoailNextMarker (\ s a -> s{_cfoailNextMarker = a}); - --- | The value you provided for the Marker request parameter. -cfoailMarker :: Lens' CloudFrontOriginAccessIdentityList Text -cfoailMarker = lens _cfoailMarker (\ s a -> s{_cfoailMarker = a}); - --- | The value you provided for the MaxItems request parameter. -cfoailMaxItems :: Lens' CloudFrontOriginAccessIdentityList Int -cfoailMaxItems = lens _cfoailMaxItems (\ s a -> s{_cfoailMaxItems = a}); - --- | A flag that indicates whether more origin access identities remain to be listed. If your results were truncated, you can make a follow-up pagination request using the Marker request parameter to retrieve more items in the list. -cfoailIsTruncated :: Lens' CloudFrontOriginAccessIdentityList Bool -cfoailIsTruncated = lens _cfoailIsTruncated (\ s a -> s{_cfoailIsTruncated = a}); - --- | The number of CloudFront origin access identities that were created by the current AWS account. -cfoailQuantity :: Lens' CloudFrontOriginAccessIdentityList Int -cfoailQuantity = lens _cfoailQuantity (\ s a -> s{_cfoailQuantity = a}); - -instance FromXML CloudFrontOriginAccessIdentityList - where - parseXML x - = CloudFrontOriginAccessIdentityList' <$> - (x .@? "Items" .!@ mempty >>= - may - (parseXMLList - "CloudFrontOriginAccessIdentitySummary")) - <*> (x .@? "NextMarker") - <*> (x .@ "Marker") - <*> (x .@ "MaxItems") - <*> (x .@ "IsTruncated") - <*> (x .@ "Quantity") - -instance Hashable CloudFrontOriginAccessIdentityList - -instance NFData CloudFrontOriginAccessIdentityList - --- | Summary of the information about a CloudFront origin access identity. --- --- /See:/ 'cloudFrontOriginAccessIdentitySummary' smart constructor. -data CloudFrontOriginAccessIdentitySummary = CloudFrontOriginAccessIdentitySummary' - { _cfoaisId :: !Text - , _cfoaisS3CanonicalUserId :: !Text - , _cfoaisComment :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) - --- | Creates a value of 'CloudFrontOriginAccessIdentitySummary' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'cfoaisId' --- --- * 'cfoaisS3CanonicalUserId' --- --- * 'cfoaisComment' -cloudFrontOriginAccessIdentitySummary - :: Text -- ^ 'cfoaisId' - -> Text -- ^ 'cfoaisS3CanonicalUserId' - -> Text -- ^ 'cfoaisComment' - -> CloudFrontOriginAccessIdentitySummary -cloudFrontOriginAccessIdentitySummary pId_ pS3CanonicalUserId_ pComment_ = - CloudFrontOriginAccessIdentitySummary' - { _cfoaisId = pId_ - , _cfoaisS3CanonicalUserId = pS3CanonicalUserId_ - , _cfoaisComment = pComment_ - } - --- | The ID for the origin access identity. For example: E74FTE3AJFJ256A. -cfoaisId :: Lens' CloudFrontOriginAccessIdentitySummary Text -cfoaisId = lens _cfoaisId (\ s a -> s{_cfoaisId = a}); - --- | The Amazon S3 canonical user ID for the origin access identity, which you use when giving the origin access identity read permission to an object in Amazon S3. -cfoaisS3CanonicalUserId :: Lens' CloudFrontOriginAccessIdentitySummary Text -cfoaisS3CanonicalUserId = lens _cfoaisS3CanonicalUserId (\ s a -> s{_cfoaisS3CanonicalUserId = a}); - --- | The comment for this origin access identity, as originally specified when created. -cfoaisComment :: Lens' CloudFrontOriginAccessIdentitySummary Text -cfoaisComment = lens _cfoaisComment (\ s a -> s{_cfoaisComment = a}); - -instance FromXML - CloudFrontOriginAccessIdentitySummary where - parseXML x - = CloudFrontOriginAccessIdentitySummary' <$> - (x .@ "Id") <*> (x .@ "S3CanonicalUserId") <*> - (x .@ "Comment") - -instance Hashable - CloudFrontOriginAccessIdentitySummary - -instance NFData CloudFrontOriginAccessIdentitySummary - --- | A complex type that specifies the whitelisted cookies, if any, that you want CloudFront to forward to your origin that is associated with this cache behavior. --- --- /See:/ 'cookieNames' smart constructor. -data CookieNames = CookieNames' - { _cnItems :: !(Maybe [Text]) - , _cnQuantity :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) - --- | Creates a value of 'CookieNames' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'cnItems' --- --- * 'cnQuantity' -cookieNames - :: Int -- ^ 'cnQuantity' - -> CookieNames -cookieNames pQuantity_ = - CookieNames' - { _cnItems = Nothing - , _cnQuantity = pQuantity_ - } - --- | Optional: A complex type that contains whitelisted cookies for this cache behavior. If Quantity is 0, you can omit Items. -cnItems :: Lens' CookieNames [Text] -cnItems = lens _cnItems (\ s a -> s{_cnItems = a}) . _Default . _Coerce; - --- | The number of whitelisted cookies for this cache behavior. -cnQuantity :: Lens' CookieNames Int -cnQuantity = lens _cnQuantity (\ s a -> s{_cnQuantity = a}); - -instance FromXML CookieNames where - parseXML x - = CookieNames' <$> - (x .@? "Items" .!@ mempty >>= - may (parseXMLList "Name")) - <*> (x .@ "Quantity") - -instance Hashable CookieNames - -instance NFData CookieNames - -instance ToXML CookieNames where - toXML CookieNames'{..} - = mconcat - ["Items" @= toXML (toXMLList "Name" <$> _cnItems), - "Quantity" @= _cnQuantity] - --- | A complex type that specifies the cookie preferences associated with this cache behavior. --- --- /See:/ 'cookiePreference' smart constructor. -data CookiePreference = CookiePreference' - { _cpWhitelistedNames :: !(Maybe CookieNames) - , _cpForward :: !ItemSelection - } deriving (Eq,Read,Show,Data,Typeable,Generic) - --- | Creates a value of 'CookiePreference' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'cpWhitelistedNames' --- --- * 'cpForward' -cookiePreference - :: ItemSelection -- ^ 'cpForward' - -> CookiePreference -cookiePreference pForward_ = - CookiePreference' - { _cpWhitelistedNames = Nothing - , _cpForward = pForward_ - } - --- | A complex type that specifies the whitelisted cookies, if any, that you want CloudFront to forward to your origin that is associated with this cache behavior. -cpWhitelistedNames :: Lens' CookiePreference (Maybe CookieNames) -cpWhitelistedNames = lens _cpWhitelistedNames (\ s a -> s{_cpWhitelistedNames = a}); - --- | Use this element to specify whether you want CloudFront to forward cookies to the origin that is associated with this cache behavior. You can specify all, none or whitelist. If you choose All, CloudFront forwards all cookies regardless of how many your application uses. -cpForward :: Lens' CookiePreference ItemSelection -cpForward = lens _cpForward (\ s a -> s{_cpForward = a}); - -instance FromXML CookiePreference where - parseXML x - = CookiePreference' <$> - (x .@? "WhitelistedNames") <*> (x .@ "Forward") - -instance Hashable CookiePreference - -instance NFData CookiePreference - -instance ToXML CookiePreference where - toXML CookiePreference'{..} - = mconcat - ["WhitelistedNames" @= _cpWhitelistedNames, - "Forward" @= _cpForward] - --- | A complex type that describes how you\'d prefer CloudFront to respond to requests that result in either a 4xx or 5xx response. You can control whether a custom error page should be displayed, what the desired response code should be for this error page and how long should the error response be cached by CloudFront. If you don\'t want to specify any custom error responses, include only an empty CustomErrorResponses element. To delete all custom error responses in an existing distribution, update the distribution configuration and include only an empty CustomErrorResponses element. To add, change, or remove one or more custom error responses, update the distribution configuration and specify all of the custom error responses that you want to include in the updated distribution. --- --- /See:/ 'customErrorResponse' smart constructor. -data CustomErrorResponse = CustomErrorResponse' - { _ceResponsePagePath :: !(Maybe Text) - , _ceResponseCode :: !(Maybe Text) - , _ceErrorCachingMinTTL :: !(Maybe Integer) - , _ceErrorCode :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) - --- | Creates a value of 'CustomErrorResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'ceResponsePagePath' --- --- * 'ceResponseCode' --- --- * 'ceErrorCachingMinTTL' --- --- * 'ceErrorCode' -customErrorResponse - :: Int -- ^ 'ceErrorCode' - -> CustomErrorResponse -customErrorResponse pErrorCode_ = - CustomErrorResponse' - { _ceResponsePagePath = Nothing - , _ceResponseCode = Nothing - , _ceErrorCachingMinTTL = Nothing - , _ceErrorCode = pErrorCode_ - } - --- | The path of the custom error page (for example, \/custom_404.html). The path is relative to the distribution and must begin with a slash (\/). If the path includes any non-ASCII characters or unsafe characters as defined in RFC 1783 (http:\/\/www.ietf.org\/rfc\/rfc1738.txt), URL encode those characters. Do not URL encode any other characters in the path, or CloudFront will not return the custom error page to the viewer. -ceResponsePagePath :: Lens' CustomErrorResponse (Maybe Text) -ceResponsePagePath = lens _ceResponsePagePath (\ s a -> s{_ceResponsePagePath = a}); - --- | The HTTP status code that you want CloudFront to return with the custom error page to the viewer. For a list of HTTP status codes that you can replace, see CloudFront Documentation. -ceResponseCode :: Lens' CustomErrorResponse (Maybe Text) -ceResponseCode = lens _ceResponseCode (\ s a -> s{_ceResponseCode = a}); - --- | The minimum amount of time you want HTTP error codes to stay in CloudFront caches before CloudFront queries your origin to see whether the object has been updated. You can specify a value from 0 to 31,536,000. -ceErrorCachingMinTTL :: Lens' CustomErrorResponse (Maybe Integer) -ceErrorCachingMinTTL = lens _ceErrorCachingMinTTL (\ s a -> s{_ceErrorCachingMinTTL = a}); - --- | The 4xx or 5xx HTTP status code that you want to customize. For a list of HTTP status codes that you can customize, see CloudFront documentation. -ceErrorCode :: Lens' CustomErrorResponse Int -ceErrorCode = lens _ceErrorCode (\ s a -> s{_ceErrorCode = a}); - -instance FromXML CustomErrorResponse where - parseXML x - = CustomErrorResponse' <$> - (x .@? "ResponsePagePath") <*> (x .@? "ResponseCode") - <*> (x .@? "ErrorCachingMinTTL") - <*> (x .@ "ErrorCode") - -instance Hashable CustomErrorResponse - -instance NFData CustomErrorResponse - -instance ToXML CustomErrorResponse where - toXML CustomErrorResponse'{..} - = mconcat - ["ResponsePagePath" @= _ceResponsePagePath, - "ResponseCode" @= _ceResponseCode, - "ErrorCachingMinTTL" @= _ceErrorCachingMinTTL, - "ErrorCode" @= _ceErrorCode] - --- | A complex type that contains zero or more CustomErrorResponse elements. --- --- /See:/ 'customErrorResponses' smart constructor. -data CustomErrorResponses = CustomErrorResponses' - { _cerItems :: !(Maybe [CustomErrorResponse]) - , _cerQuantity :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) - --- | Creates a value of 'CustomErrorResponses' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'cerItems' --- --- * 'cerQuantity' -customErrorResponses - :: Int -- ^ 'cerQuantity' - -> CustomErrorResponses -customErrorResponses pQuantity_ = - CustomErrorResponses' - { _cerItems = Nothing - , _cerQuantity = pQuantity_ - } - --- | Optional: A complex type that contains custom error responses for this distribution. If Quantity is 0, you can omit Items. -cerItems :: Lens' CustomErrorResponses [CustomErrorResponse] -cerItems = lens _cerItems (\ s a -> s{_cerItems = a}) . _Default . _Coerce; - --- | The number of custom error responses for this distribution. -cerQuantity :: Lens' CustomErrorResponses Int -cerQuantity = lens _cerQuantity (\ s a -> s{_cerQuantity = a}); - -instance FromXML CustomErrorResponses where - parseXML x - = CustomErrorResponses' <$> - (x .@? "Items" .!@ mempty >>= - may (parseXMLList "CustomErrorResponse")) - <*> (x .@ "Quantity") - -instance Hashable CustomErrorResponses - -instance NFData CustomErrorResponses - -instance ToXML CustomErrorResponses where - toXML CustomErrorResponses'{..} - = mconcat - ["Items" @= - toXML - (toXMLList "CustomErrorResponse" <$> _cerItems), - "Quantity" @= _cerQuantity] - --- | A complex type that contains the list of Custom Headers for each origin. --- --- /See:/ 'customHeaders' smart constructor. -data CustomHeaders = CustomHeaders' - { _chItems :: !(Maybe [OriginCustomHeader]) - , _chQuantity :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) - --- | Creates a value of 'CustomHeaders' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'chItems' --- --- * 'chQuantity' -customHeaders - :: Int -- ^ 'chQuantity' - -> CustomHeaders -customHeaders pQuantity_ = - CustomHeaders' - { _chItems = Nothing - , _chQuantity = pQuantity_ - } - --- | A complex type that contains the custom headers for this Origin. -chItems :: Lens' CustomHeaders [OriginCustomHeader] -chItems = lens _chItems (\ s a -> s{_chItems = a}) . _Default . _Coerce; - --- | The number of custom headers for this origin. -chQuantity :: Lens' CustomHeaders Int -chQuantity = lens _chQuantity (\ s a -> s{_chQuantity = a}); - -instance FromXML CustomHeaders where - parseXML x - = CustomHeaders' <$> - (x .@? "Items" .!@ mempty >>= - may (parseXMLList "OriginCustomHeader")) - <*> (x .@ "Quantity") - -instance Hashable CustomHeaders - -instance NFData CustomHeaders - -instance ToXML CustomHeaders where - toXML CustomHeaders'{..} - = mconcat - ["Items" @= - toXML (toXMLList "OriginCustomHeader" <$> _chItems), - "Quantity" @= _chQuantity] - --- | A customer origin. --- --- /See:/ 'customOriginConfig' smart constructor. -data CustomOriginConfig = CustomOriginConfig' - { _cocOriginSSLProtocols :: !(Maybe OriginSSLProtocols) - , _cocHTTPPort :: !Int - , _cocHTTPSPort :: !Int - , _cocOriginProtocolPolicy :: !OriginProtocolPolicy - } deriving (Eq,Read,Show,Data,Typeable,Generic) - --- | Creates a value of 'CustomOriginConfig' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'cocOriginSSLProtocols' --- --- * 'cocHTTPPort' --- --- * 'cocHTTPSPort' --- --- * 'cocOriginProtocolPolicy' -customOriginConfig - :: Int -- ^ 'cocHTTPPort' - -> Int -- ^ 'cocHTTPSPort' - -> OriginProtocolPolicy -- ^ 'cocOriginProtocolPolicy' - -> CustomOriginConfig -customOriginConfig pHTTPPort_ pHTTPSPort_ pOriginProtocolPolicy_ = - CustomOriginConfig' - { _cocOriginSSLProtocols = Nothing - , _cocHTTPPort = pHTTPPort_ - , _cocHTTPSPort = pHTTPSPort_ - , _cocOriginProtocolPolicy = pOriginProtocolPolicy_ - } - --- | The SSL\/TLS protocols that you want CloudFront to use when communicating with your origin over HTTPS. -cocOriginSSLProtocols :: Lens' CustomOriginConfig (Maybe OriginSSLProtocols) -cocOriginSSLProtocols = lens _cocOriginSSLProtocols (\ s a -> s{_cocOriginSSLProtocols = a}); - --- | The HTTP port the custom origin listens on. -cocHTTPPort :: Lens' CustomOriginConfig Int -cocHTTPPort = lens _cocHTTPPort (\ s a -> s{_cocHTTPPort = a}); - --- | The HTTPS port the custom origin listens on. -cocHTTPSPort :: Lens' CustomOriginConfig Int -cocHTTPSPort = lens _cocHTTPSPort (\ s a -> s{_cocHTTPSPort = a}); - --- | The origin protocol policy to apply to your origin. -cocOriginProtocolPolicy :: Lens' CustomOriginConfig OriginProtocolPolicy -cocOriginProtocolPolicy = lens _cocOriginProtocolPolicy (\ s a -> s{_cocOriginProtocolPolicy = a}); - -instance FromXML CustomOriginConfig where - parseXML x - = CustomOriginConfig' <$> - (x .@? "OriginSslProtocols") <*> (x .@ "HTTPPort") - <*> (x .@ "HTTPSPort") - <*> (x .@ "OriginProtocolPolicy") - -instance Hashable CustomOriginConfig - -instance NFData CustomOriginConfig - -instance ToXML CustomOriginConfig where - toXML CustomOriginConfig'{..} - = mconcat - ["OriginSslProtocols" @= _cocOriginSSLProtocols, - "HTTPPort" @= _cocHTTPPort, - "HTTPSPort" @= _cocHTTPSPort, - "OriginProtocolPolicy" @= _cocOriginProtocolPolicy] - --- | A complex type that describes the default cache behavior if you do not specify a CacheBehavior element or if files don\'t match any of the values of PathPattern in CacheBehavior elements.You must create exactly one default cache behavior. --- --- /See:/ 'defaultCacheBehavior' smart constructor. -data DefaultCacheBehavior = DefaultCacheBehavior' - { _dcbAllowedMethods :: !(Maybe AllowedMethods) - , _dcbMaxTTL :: !(Maybe Integer) - , _dcbCompress :: !(Maybe Bool) - , _dcbSmoothStreaming :: !(Maybe Bool) - , _dcbDefaultTTL :: !(Maybe Integer) - , _dcbTargetOriginId :: !Text - , _dcbForwardedValues :: !ForwardedValues - , _dcbTrustedSigners :: !TrustedSigners - , _dcbViewerProtocolPolicy :: !ViewerProtocolPolicy - , _dcbMinTTL :: !Integer - } deriving (Eq,Read,Show,Data,Typeable,Generic) - --- | Creates a value of 'DefaultCacheBehavior' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'dcbAllowedMethods' --- --- * 'dcbMaxTTL' --- --- * 'dcbCompress' --- --- * 'dcbSmoothStreaming' --- --- * 'dcbDefaultTTL' --- --- * 'dcbTargetOriginId' --- --- * 'dcbForwardedValues' --- --- * 'dcbTrustedSigners' --- --- * 'dcbViewerProtocolPolicy' --- --- * 'dcbMinTTL' -defaultCacheBehavior - :: Text -- ^ 'dcbTargetOriginId' - -> ForwardedValues -- ^ 'dcbForwardedValues' - -> TrustedSigners -- ^ 'dcbTrustedSigners' - -> ViewerProtocolPolicy -- ^ 'dcbViewerProtocolPolicy' - -> Integer -- ^ 'dcbMinTTL' - -> DefaultCacheBehavior -defaultCacheBehavior pTargetOriginId_ pForwardedValues_ pTrustedSigners_ pViewerProtocolPolicy_ pMinTTL_ = - DefaultCacheBehavior' - { _dcbAllowedMethods = Nothing - , _dcbMaxTTL = Nothing - , _dcbCompress = Nothing - , _dcbSmoothStreaming = Nothing - , _dcbDefaultTTL = Nothing - , _dcbTargetOriginId = pTargetOriginId_ - , _dcbForwardedValues = pForwardedValues_ - , _dcbTrustedSigners = pTrustedSigners_ - , _dcbViewerProtocolPolicy = pViewerProtocolPolicy_ - , _dcbMinTTL = pMinTTL_ - } - --- | Undocumented member. -dcbAllowedMethods :: Lens' DefaultCacheBehavior (Maybe AllowedMethods) -dcbAllowedMethods = lens _dcbAllowedMethods (\ s a -> s{_dcbAllowedMethods = a}); - --- | The maximum amount of time (in seconds) that an object is in a CloudFront cache before CloudFront forwards another request to your origin to determine whether the object has been updated. The value that you specify applies only when your origin adds HTTP headers such as Cache-Control max-age, Cache-Control s-maxage, and Expires to objects. You can specify a value from 0 to 3,153,600,000 seconds (100 years). -dcbMaxTTL :: Lens' DefaultCacheBehavior (Maybe Integer) -dcbMaxTTL = lens _dcbMaxTTL (\ s a -> s{_dcbMaxTTL = a}); - --- | Whether you want CloudFront to automatically compress content for web requests that include Accept-Encoding: gzip in the request header. If so, specify true; if not, specify false. CloudFront compresses files larger than 1000 bytes and less than 1 megabyte for both Amazon S3 and custom origins. When a CloudFront edge location is unusually busy, some files might not be compressed. The value of the Content-Type header must be on the list of file types that CloudFront will compress. For the current list, see in the Amazon CloudFront Developer Guide. If you configure CloudFront to compress content, CloudFront removes the ETag response header from the objects that it compresses. The ETag header indicates that the version in a CloudFront edge cache is identical to the version on the origin server, but after compression the two versions are no longer identical. As a result, for compressed objects, CloudFront can\'t use the ETag header to determine whether an expired object in the CloudFront edge cache is still the latest version. -dcbCompress :: Lens' DefaultCacheBehavior (Maybe Bool) -dcbCompress = lens _dcbCompress (\ s a -> s{_dcbCompress = a}); - --- | Indicates whether you want to distribute media files in Microsoft Smooth Streaming format using the origin that is associated with this cache behavior. If so, specify true; if not, specify false. -dcbSmoothStreaming :: Lens' DefaultCacheBehavior (Maybe Bool) -dcbSmoothStreaming = lens _dcbSmoothStreaming (\ s a -> s{_dcbSmoothStreaming = a}); - --- | If you don\'t configure your origin to add a Cache-Control max-age directive or an Expires header, DefaultTTL is the default amount of time (in seconds) that an object is in a CloudFront cache before CloudFront forwards another request to your origin to determine whether the object has been updated. The value that you specify applies only when your origin does not add HTTP headers such as Cache-Control max-age, Cache-Control s-maxage, and Expires to objects. You can specify a value from 0 to 3,153,600,000 seconds (100 years). -dcbDefaultTTL :: Lens' DefaultCacheBehavior (Maybe Integer) -dcbDefaultTTL = lens _dcbDefaultTTL (\ s a -> s{_dcbDefaultTTL = a}); - --- | The value of ID for the origin that you want CloudFront to route requests to when a request matches the path pattern either for a cache behavior or for the default cache behavior. -dcbTargetOriginId :: Lens' DefaultCacheBehavior Text -dcbTargetOriginId = lens _dcbTargetOriginId (\ s a -> s{_dcbTargetOriginId = a}); - --- | A complex type that specifies how CloudFront handles query strings, cookies and headers. -dcbForwardedValues :: Lens' DefaultCacheBehavior ForwardedValues -dcbForwardedValues = lens _dcbForwardedValues (\ s a -> s{_dcbForwardedValues = a}); - --- | A complex type that specifies the AWS accounts, if any, that you want to allow to create signed URLs for private content. If you want to require signed URLs in requests for objects in the target origin that match the PathPattern for this cache behavior, specify true for Enabled, and specify the applicable values for Quantity and Items. For more information, go to Using a Signed URL to Serve Private Content in the Amazon CloudFront Developer Guide. If you don\'t want to require signed URLs in requests for objects that match PathPattern, specify false for Enabled and 0 for Quantity. Omit Items. To add, change, or remove one or more trusted signers, change Enabled to true (if it\'s currently false), change Quantity as applicable, and specify all of the trusted signers that you want to include in the updated distribution. -dcbTrustedSigners :: Lens' DefaultCacheBehavior TrustedSigners -dcbTrustedSigners = lens _dcbTrustedSigners (\ s a -> s{_dcbTrustedSigners = a}); - --- | Use this element to specify the protocol that users can use to access the files in the origin specified by TargetOriginId when a request matches the path pattern in PathPattern. If you want CloudFront to allow end users to use any available protocol, specify allow-all. If you want CloudFront to require HTTPS, specify https. If you want CloudFront to respond to an HTTP request with an HTTP status code of 301 (Moved Permanently) and the HTTPS URL, specify redirect-to-https. The viewer then resubmits the request using the HTTPS URL. -dcbViewerProtocolPolicy :: Lens' DefaultCacheBehavior ViewerProtocolPolicy -dcbViewerProtocolPolicy = lens _dcbViewerProtocolPolicy (\ s a -> s{_dcbViewerProtocolPolicy = a}); - --- | The minimum amount of time that you want objects to stay in CloudFront caches before CloudFront queries your origin to see whether the object has been updated.You can specify a value from 0 to 3,153,600,000 seconds (100 years). -dcbMinTTL :: Lens' DefaultCacheBehavior Integer -dcbMinTTL = lens _dcbMinTTL (\ s a -> s{_dcbMinTTL = a}); - -instance FromXML DefaultCacheBehavior where - parseXML x - = DefaultCacheBehavior' <$> - (x .@? "AllowedMethods") <*> (x .@? "MaxTTL") <*> - (x .@? "Compress") - <*> (x .@? "SmoothStreaming") - <*> (x .@? "DefaultTTL") - <*> (x .@ "TargetOriginId") - <*> (x .@ "ForwardedValues") - <*> (x .@ "TrustedSigners") - <*> (x .@ "ViewerProtocolPolicy") - <*> (x .@ "MinTTL") - -instance Hashable DefaultCacheBehavior - -instance NFData DefaultCacheBehavior - -instance ToXML DefaultCacheBehavior where - toXML DefaultCacheBehavior'{..} - = mconcat - ["AllowedMethods" @= _dcbAllowedMethods, - "MaxTTL" @= _dcbMaxTTL, "Compress" @= _dcbCompress, - "SmoothStreaming" @= _dcbSmoothStreaming, - "DefaultTTL" @= _dcbDefaultTTL, - "TargetOriginId" @= _dcbTargetOriginId, - "ForwardedValues" @= _dcbForwardedValues, - "TrustedSigners" @= _dcbTrustedSigners, - "ViewerProtocolPolicy" @= _dcbViewerProtocolPolicy, - "MinTTL" @= _dcbMinTTL] - --- | A distribution. --- --- /See:/ 'distribution' smart constructor. -data Distribution = Distribution' - { _dId :: !Text - , _dARN :: !Text - , _dStatus :: !Text - , _dLastModifiedTime :: !ISO8601 - , _dInProgressInvalidationBatches :: !Int - , _dDomainName :: !Text - , _dActiveTrustedSigners :: !ActiveTrustedSigners - , _dDistributionConfig :: !DistributionConfig - } deriving (Eq,Read,Show,Data,Typeable,Generic) - --- | Creates a value of 'Distribution' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'dId' --- --- * 'dARN' --- --- * 'dStatus' --- --- * 'dLastModifiedTime' --- --- * 'dInProgressInvalidationBatches' --- --- * 'dDomainName' --- --- * 'dActiveTrustedSigners' --- --- * 'dDistributionConfig' -distribution - :: Text -- ^ 'dId' - -> Text -- ^ 'dARN' - -> Text -- ^ 'dStatus' - -> UTCTime -- ^ 'dLastModifiedTime' - -> Int -- ^ 'dInProgressInvalidationBatches' - -> Text -- ^ 'dDomainName' - -> ActiveTrustedSigners -- ^ 'dActiveTrustedSigners' - -> DistributionConfig -- ^ 'dDistributionConfig' - -> Distribution -distribution pId_ pARN_ pStatus_ pLastModifiedTime_ pInProgressInvalidationBatches_ pDomainName_ pActiveTrustedSigners_ pDistributionConfig_ = - Distribution' - { _dId = pId_ - , _dARN = pARN_ - , _dStatus = pStatus_ - , _dLastModifiedTime = _Time # pLastModifiedTime_ - , _dInProgressInvalidationBatches = pInProgressInvalidationBatches_ - , _dDomainName = pDomainName_ - , _dActiveTrustedSigners = pActiveTrustedSigners_ - , _dDistributionConfig = pDistributionConfig_ - } - --- | The identifier for the distribution. For example: EDFDVBD632BHDS5. -dId :: Lens' Distribution Text -dId = lens _dId (\ s a -> s{_dId = a}); - --- | The ARN (Amazon Resource Name) for the distribution. For example: arn:aws:cloudfront::123456789012:distribution\/EDFDVBD632BHDS5, where 123456789012 is your AWS account Id. -dARN :: Lens' Distribution Text -dARN = lens _dARN (\ s a -> s{_dARN = a}); - --- | This response element indicates the current status of the distribution. When the status is Deployed, the distribution\'s information is fully propagated throughout the Amazon CloudFront system. -dStatus :: Lens' Distribution Text -dStatus = lens _dStatus (\ s a -> s{_dStatus = a}); - --- | The date and time the distribution was last modified. -dLastModifiedTime :: Lens' Distribution UTCTime -dLastModifiedTime = lens _dLastModifiedTime (\ s a -> s{_dLastModifiedTime = a}) . _Time; - --- | The number of invalidation batches currently in progress. -dInProgressInvalidationBatches :: Lens' Distribution Int -dInProgressInvalidationBatches = lens _dInProgressInvalidationBatches (\ s a -> s{_dInProgressInvalidationBatches = a}); - --- | The domain name corresponding to the distribution. For example: d604721fxaaqy9.cloudfront.net. -dDomainName :: Lens' Distribution Text -dDomainName = lens _dDomainName (\ s a -> s{_dDomainName = a}); - --- | CloudFront automatically adds this element to the response only if you\'ve set up the distribution to serve private content with signed URLs. The element lists the key pair IDs that CloudFront is aware of for each trusted signer. The Signer child element lists the AWS account number of the trusted signer (or an empty Self element if the signer is you). The Signer element also includes the IDs of any active key pairs associated with the trusted signer\'s AWS account. If no KeyPairId element appears for a Signer, that signer can\'t create working signed URLs. -dActiveTrustedSigners :: Lens' Distribution ActiveTrustedSigners -dActiveTrustedSigners = lens _dActiveTrustedSigners (\ s a -> s{_dActiveTrustedSigners = a}); - --- | The current configuration information for the distribution. -dDistributionConfig :: Lens' Distribution DistributionConfig -dDistributionConfig = lens _dDistributionConfig (\ s a -> s{_dDistributionConfig = a}); - -instance FromXML Distribution where - parseXML x - = Distribution' <$> - (x .@ "Id") <*> (x .@ "ARN") <*> (x .@ "Status") <*> - (x .@ "LastModifiedTime") - <*> (x .@ "InProgressInvalidationBatches") - <*> (x .@ "DomainName") - <*> (x .@ "ActiveTrustedSigners") - <*> (x .@ "DistributionConfig") - -instance Hashable Distribution - -instance NFData Distribution - --- | A distribution Configuration. --- --- /See:/ 'distributionConfig' smart constructor. -data DistributionConfig = DistributionConfig' - { _dcHTTPVersion :: !(Maybe HTTPVersion) - , _dcAliases :: !(Maybe Aliases) - , _dcDefaultRootObject :: !(Maybe Text) - , _dcPriceClass :: !(Maybe PriceClass) - , _dcCustomErrorResponses :: !(Maybe CustomErrorResponses) - , _dcWebACLId :: !(Maybe Text) - , _dcViewerCertificate :: !(Maybe ViewerCertificate) - , _dcRestrictions :: !(Maybe Restrictions) - , _dcLogging :: !(Maybe LoggingConfig) - , _dcCacheBehaviors :: !(Maybe CacheBehaviors) - , _dcCallerReference :: !Text - , _dcOrigins :: !Origins - , _dcDefaultCacheBehavior :: !DefaultCacheBehavior - , _dcComment :: !Text - , _dcEnabled :: !Bool - } deriving (Eq,Read,Show,Data,Typeable,Generic) - --- | Creates a value of 'DistributionConfig' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'dcHTTPVersion' --- --- * 'dcAliases' --- --- * 'dcDefaultRootObject' --- --- * 'dcPriceClass' --- --- * 'dcCustomErrorResponses' --- --- * 'dcWebACLId' --- --- * 'dcViewerCertificate' --- --- * 'dcRestrictions' --- --- * 'dcLogging' --- --- * 'dcCacheBehaviors' --- --- * 'dcCallerReference' --- --- * 'dcOrigins' --- --- * 'dcDefaultCacheBehavior' --- --- * 'dcComment' --- --- * 'dcEnabled' -distributionConfig - :: Text -- ^ 'dcCallerReference' - -> Origins -- ^ 'dcOrigins' - -> DefaultCacheBehavior -- ^ 'dcDefaultCacheBehavior' - -> Text -- ^ 'dcComment' - -> Bool -- ^ 'dcEnabled' - -> DistributionConfig -distributionConfig pCallerReference_ pOrigins_ pDefaultCacheBehavior_ pComment_ pEnabled_ = - DistributionConfig' - { _dcHTTPVersion = Nothing - , _dcAliases = Nothing - , _dcDefaultRootObject = Nothing - , _dcPriceClass = Nothing - , _dcCustomErrorResponses = Nothing - , _dcWebACLId = Nothing - , _dcViewerCertificate = Nothing - , _dcRestrictions = Nothing - , _dcLogging = Nothing - , _dcCacheBehaviors = Nothing - , _dcCallerReference = pCallerReference_ - , _dcOrigins = pOrigins_ - , _dcDefaultCacheBehavior = pDefaultCacheBehavior_ - , _dcComment = pComment_ - , _dcEnabled = pEnabled_ - } - --- | (Optional) Specify the maximum HTTP version that you want viewers to use to communicate with CloudFront. The default value for new web distributions is http2. Viewers that don\'t support HTTP\/2 will automatically use an earlier version. -dcHTTPVersion :: Lens' DistributionConfig (Maybe HTTPVersion) -dcHTTPVersion = lens _dcHTTPVersion (\ s a -> s{_dcHTTPVersion = a}); - --- | A complex type that contains information about CNAMEs (alternate domain names), if any, for this distribution. -dcAliases :: Lens' DistributionConfig (Maybe Aliases) -dcAliases = lens _dcAliases (\ s a -> s{_dcAliases = a}); - --- | The object that you want CloudFront to return (for example, index.html) when an end user requests the root URL for your distribution (http:\/\/www.example.com) instead of an object in your distribution (http:\/\/www.example.com\/index.html). Specifying a default root object avoids exposing the contents of your distribution. If you don\'t want to specify a default root object when you create a distribution, include an empty DefaultRootObject element. To delete the default root object from an existing distribution, update the distribution configuration and include an empty DefaultRootObject element. To replace the default root object, update the distribution configuration and specify the new object. -dcDefaultRootObject :: Lens' DistributionConfig (Maybe Text) -dcDefaultRootObject = lens _dcDefaultRootObject (\ s a -> s{_dcDefaultRootObject = a}); - --- | A complex type that contains information about price class for this distribution. -dcPriceClass :: Lens' DistributionConfig (Maybe PriceClass) -dcPriceClass = lens _dcPriceClass (\ s a -> s{_dcPriceClass = a}); - --- | A complex type that contains zero or more CustomErrorResponse elements. -dcCustomErrorResponses :: Lens' DistributionConfig (Maybe CustomErrorResponses) -dcCustomErrorResponses = lens _dcCustomErrorResponses (\ s a -> s{_dcCustomErrorResponses = a}); - --- | (Optional) If you\'re using AWS WAF to filter CloudFront requests, the Id of the AWS WAF web ACL that is associated with the distribution. -dcWebACLId :: Lens' DistributionConfig (Maybe Text) -dcWebACLId = lens _dcWebACLId (\ s a -> s{_dcWebACLId = a}); - --- | Undocumented member. -dcViewerCertificate :: Lens' DistributionConfig (Maybe ViewerCertificate) -dcViewerCertificate = lens _dcViewerCertificate (\ s a -> s{_dcViewerCertificate = a}); - --- | Undocumented member. -dcRestrictions :: Lens' DistributionConfig (Maybe Restrictions) -dcRestrictions = lens _dcRestrictions (\ s a -> s{_dcRestrictions = a}); - --- | A complex type that controls whether access logs are written for the distribution. -dcLogging :: Lens' DistributionConfig (Maybe LoggingConfig) -dcLogging = lens _dcLogging (\ s a -> s{_dcLogging = a}); - --- | A complex type that contains zero or more CacheBehavior elements. -dcCacheBehaviors :: Lens' DistributionConfig (Maybe CacheBehaviors) -dcCacheBehaviors = lens _dcCacheBehaviors (\ s a -> s{_dcCacheBehaviors = a}); - --- | A unique number that ensures the request can\'t be replayed. If the CallerReference is new (no matter the content of the DistributionConfig object), a new distribution is created. If the CallerReference is a value you already sent in a previous request to create a distribution, and the content of the DistributionConfig is identical to the original request (ignoring white space), the response includes the same information returned to the original request. If the CallerReference is a value you already sent in a previous request to create a distribution but the content of the DistributionConfig is different from the original request, CloudFront returns a DistributionAlreadyExists error. -dcCallerReference :: Lens' DistributionConfig Text -dcCallerReference = lens _dcCallerReference (\ s a -> s{_dcCallerReference = a}); - --- | A complex type that contains information about origins for this distribution. -dcOrigins :: Lens' DistributionConfig Origins -dcOrigins = lens _dcOrigins (\ s a -> s{_dcOrigins = a}); - --- | A complex type that describes the default cache behavior if you do not specify a CacheBehavior element or if files don\'t match any of the values of PathPattern in CacheBehavior elements.You must create exactly one default cache behavior. -dcDefaultCacheBehavior :: Lens' DistributionConfig DefaultCacheBehavior -dcDefaultCacheBehavior = lens _dcDefaultCacheBehavior (\ s a -> s{_dcDefaultCacheBehavior = a}); - --- | Any comments you want to include about the distribution. -dcComment :: Lens' DistributionConfig Text -dcComment = lens _dcComment (\ s a -> s{_dcComment = a}); - --- | Whether the distribution is enabled to accept end user requests for content. -dcEnabled :: Lens' DistributionConfig Bool -dcEnabled = lens _dcEnabled (\ s a -> s{_dcEnabled = a}); - -instance FromXML DistributionConfig where - parseXML x - = DistributionConfig' <$> - (x .@? "HttpVersion") <*> (x .@? "Aliases") <*> - (x .@? "DefaultRootObject") - <*> (x .@? "PriceClass") - <*> (x .@? "CustomErrorResponses") - <*> (x .@? "WebACLId") - <*> (x .@? "ViewerCertificate") - <*> (x .@? "Restrictions") - <*> (x .@? "Logging") - <*> (x .@? "CacheBehaviors") - <*> (x .@ "CallerReference") - <*> (x .@ "Origins") - <*> (x .@ "DefaultCacheBehavior") - <*> (x .@ "Comment") - <*> (x .@ "Enabled") - -instance Hashable DistributionConfig - -instance NFData DistributionConfig - -instance ToXML DistributionConfig where - toXML DistributionConfig'{..} - = mconcat - ["HttpVersion" @= _dcHTTPVersion, - "Aliases" @= _dcAliases, - "DefaultRootObject" @= _dcDefaultRootObject, - "PriceClass" @= _dcPriceClass, - "CustomErrorResponses" @= _dcCustomErrorResponses, - "WebACLId" @= _dcWebACLId, - "ViewerCertificate" @= _dcViewerCertificate, - "Restrictions" @= _dcRestrictions, - "Logging" @= _dcLogging, - "CacheBehaviors" @= _dcCacheBehaviors, - "CallerReference" @= _dcCallerReference, - "Origins" @= _dcOrigins, - "DefaultCacheBehavior" @= _dcDefaultCacheBehavior, - "Comment" @= _dcComment, "Enabled" @= _dcEnabled] - --- | A distribution Configuration and a list of tags to be associated with the distribution. --- --- /See:/ 'distributionConfigWithTags' smart constructor. -data DistributionConfigWithTags = DistributionConfigWithTags' - { _dcwtDistributionConfig :: !DistributionConfig - , _dcwtTags :: !Tags - } deriving (Eq,Read,Show,Data,Typeable,Generic) - --- | Creates a value of 'DistributionConfigWithTags' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'dcwtDistributionConfig' --- --- * 'dcwtTags' -distributionConfigWithTags - :: DistributionConfig -- ^ 'dcwtDistributionConfig' - -> Tags -- ^ 'dcwtTags' - -> DistributionConfigWithTags -distributionConfigWithTags pDistributionConfig_ pTags_ = - DistributionConfigWithTags' - { _dcwtDistributionConfig = pDistributionConfig_ - , _dcwtTags = pTags_ - } - --- | A distribution Configuration. -dcwtDistributionConfig :: Lens' DistributionConfigWithTags DistributionConfig -dcwtDistributionConfig = lens _dcwtDistributionConfig (\ s a -> s{_dcwtDistributionConfig = a}); - --- | A complex type that contains zero or more Tag elements. -dcwtTags :: Lens' DistributionConfigWithTags Tags -dcwtTags = lens _dcwtTags (\ s a -> s{_dcwtTags = a}); - -instance Hashable DistributionConfigWithTags - -instance NFData DistributionConfigWithTags - -instance ToXML DistributionConfigWithTags where - toXML DistributionConfigWithTags'{..} - = mconcat - ["DistributionConfig" @= _dcwtDistributionConfig, - "Tags" @= _dcwtTags] - --- | A distribution list. --- --- /See:/ 'distributionList' smart constructor. -data DistributionList = DistributionList' - { _dlItems :: !(Maybe [DistributionSummary]) - , _dlNextMarker :: !(Maybe Text) - , _dlMarker :: !Text - , _dlMaxItems :: !Int - , _dlIsTruncated :: !Bool - , _dlQuantity :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) - --- | Creates a value of 'DistributionList' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'dlItems' --- --- * 'dlNextMarker' --- --- * 'dlMarker' --- --- * 'dlMaxItems' --- --- * 'dlIsTruncated' --- --- * 'dlQuantity' -distributionList - :: Text -- ^ 'dlMarker' - -> Int -- ^ 'dlMaxItems' - -> Bool -- ^ 'dlIsTruncated' - -> Int -- ^ 'dlQuantity' - -> DistributionList -distributionList pMarker_ pMaxItems_ pIsTruncated_ pQuantity_ = - DistributionList' - { _dlItems = Nothing - , _dlNextMarker = Nothing - , _dlMarker = pMarker_ - , _dlMaxItems = pMaxItems_ - , _dlIsTruncated = pIsTruncated_ - , _dlQuantity = pQuantity_ - } - --- | A complex type that contains one DistributionSummary element for each distribution that was created by the current AWS account. -dlItems :: Lens' DistributionList [DistributionSummary] -dlItems = lens _dlItems (\ s a -> s{_dlItems = a}) . _Default . _Coerce; - --- | If IsTruncated is true, this element is present and contains the value you can use for the Marker request parameter to continue listing your distributions where they left off. -dlNextMarker :: Lens' DistributionList (Maybe Text) -dlNextMarker = lens _dlNextMarker (\ s a -> s{_dlNextMarker = a}); - --- | The value you provided for the Marker request parameter. -dlMarker :: Lens' DistributionList Text -dlMarker = lens _dlMarker (\ s a -> s{_dlMarker = a}); - --- | The value you provided for the MaxItems request parameter. -dlMaxItems :: Lens' DistributionList Int -dlMaxItems = lens _dlMaxItems (\ s a -> s{_dlMaxItems = a}); - --- | A flag that indicates whether more distributions remain to be listed. If your results were truncated, you can make a follow-up pagination request using the Marker request parameter to retrieve more distributions in the list. -dlIsTruncated :: Lens' DistributionList Bool -dlIsTruncated = lens _dlIsTruncated (\ s a -> s{_dlIsTruncated = a}); - --- | The number of distributions that were created by the current AWS account. -dlQuantity :: Lens' DistributionList Int -dlQuantity = lens _dlQuantity (\ s a -> s{_dlQuantity = a}); - -instance FromXML DistributionList where - parseXML x - = DistributionList' <$> - (x .@? "Items" .!@ mempty >>= - may (parseXMLList "DistributionSummary")) - <*> (x .@? "NextMarker") - <*> (x .@ "Marker") - <*> (x .@ "MaxItems") - <*> (x .@ "IsTruncated") - <*> (x .@ "Quantity") - -instance Hashable DistributionList - -instance NFData DistributionList - --- | A summary of the information for an Amazon CloudFront distribution. --- --- /See:/ 'distributionSummary' smart constructor. -data DistributionSummary = DistributionSummary' - { _dsId :: !Text - , _dsARN :: !Text - , _dsStatus :: !Text - , _dsLastModifiedTime :: !ISO8601 - , _dsDomainName :: !Text - , _dsAliases :: !Aliases - , _dsOrigins :: !Origins - , _dsDefaultCacheBehavior :: !DefaultCacheBehavior - , _dsCacheBehaviors :: !CacheBehaviors - , _dsCustomErrorResponses :: !CustomErrorResponses - , _dsComment :: !Text - , _dsPriceClass :: !PriceClass - , _dsEnabled :: !Bool - , _dsViewerCertificate :: !ViewerCertificate - , _dsRestrictions :: !Restrictions - , _dsWebACLId :: !Text - , _dsHTTPVersion :: !HTTPVersion - } deriving (Eq,Read,Show,Data,Typeable,Generic) - --- | Creates a value of 'DistributionSummary' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'dsId' --- --- * 'dsARN' --- --- * 'dsStatus' --- --- * 'dsLastModifiedTime' --- --- * 'dsDomainName' --- --- * 'dsAliases' --- --- * 'dsOrigins' --- --- * 'dsDefaultCacheBehavior' --- --- * 'dsCacheBehaviors' --- --- * 'dsCustomErrorResponses' --- --- * 'dsComment' --- --- * 'dsPriceClass' --- --- * 'dsEnabled' --- --- * 'dsViewerCertificate' --- --- * 'dsRestrictions' --- --- * 'dsWebACLId' --- --- * 'dsHTTPVersion' -distributionSummary - :: Text -- ^ 'dsId' - -> Text -- ^ 'dsARN' - -> Text -- ^ 'dsStatus' - -> UTCTime -- ^ 'dsLastModifiedTime' - -> Text -- ^ 'dsDomainName' - -> Aliases -- ^ 'dsAliases' - -> Origins -- ^ 'dsOrigins' - -> DefaultCacheBehavior -- ^ 'dsDefaultCacheBehavior' - -> CacheBehaviors -- ^ 'dsCacheBehaviors' - -> CustomErrorResponses -- ^ 'dsCustomErrorResponses' - -> Text -- ^ 'dsComment' - -> PriceClass -- ^ 'dsPriceClass' - -> Bool -- ^ 'dsEnabled' - -> ViewerCertificate -- ^ 'dsViewerCertificate' - -> Restrictions -- ^ 'dsRestrictions' - -> Text -- ^ 'dsWebACLId' - -> HTTPVersion -- ^ 'dsHTTPVersion' - -> DistributionSummary -distributionSummary pId_ pARN_ pStatus_ pLastModifiedTime_ pDomainName_ pAliases_ pOrigins_ pDefaultCacheBehavior_ pCacheBehaviors_ pCustomErrorResponses_ pComment_ pPriceClass_ pEnabled_ pViewerCertificate_ pRestrictions_ pWebACLId_ pHTTPVersion_ = - DistributionSummary' - { _dsId = pId_ - , _dsARN = pARN_ - , _dsStatus = pStatus_ - , _dsLastModifiedTime = _Time # pLastModifiedTime_ - , _dsDomainName = pDomainName_ - , _dsAliases = pAliases_ - , _dsOrigins = pOrigins_ - , _dsDefaultCacheBehavior = pDefaultCacheBehavior_ - , _dsCacheBehaviors = pCacheBehaviors_ - , _dsCustomErrorResponses = pCustomErrorResponses_ - , _dsComment = pComment_ - , _dsPriceClass = pPriceClass_ - , _dsEnabled = pEnabled_ - , _dsViewerCertificate = pViewerCertificate_ - , _dsRestrictions = pRestrictions_ - , _dsWebACLId = pWebACLId_ - , _dsHTTPVersion = pHTTPVersion_ - } - --- | The identifier for the distribution. For example: EDFDVBD632BHDS5. -dsId :: Lens' DistributionSummary Text -dsId = lens _dsId (\ s a -> s{_dsId = a}); - --- | The ARN (Amazon Resource Name) for the distribution. For example: arn:aws:cloudfront::123456789012:distribution\/EDFDVBD632BHDS5, where 123456789012 is your AWS account Id. -dsARN :: Lens' DistributionSummary Text -dsARN = lens _dsARN (\ s a -> s{_dsARN = a}); - --- | This response element indicates the current status of the distribution. When the status is Deployed, the distribution\'s information is fully propagated throughout the Amazon CloudFront system. -dsStatus :: Lens' DistributionSummary Text -dsStatus = lens _dsStatus (\ s a -> s{_dsStatus = a}); - --- | The date and time the distribution was last modified. -dsLastModifiedTime :: Lens' DistributionSummary UTCTime -dsLastModifiedTime = lens _dsLastModifiedTime (\ s a -> s{_dsLastModifiedTime = a}) . _Time; - --- | The domain name corresponding to the distribution. For example: d604721fxaaqy9.cloudfront.net. -dsDomainName :: Lens' DistributionSummary Text -dsDomainName = lens _dsDomainName (\ s a -> s{_dsDomainName = a}); - --- | A complex type that contains information about CNAMEs (alternate domain names), if any, for this distribution. -dsAliases :: Lens' DistributionSummary Aliases -dsAliases = lens _dsAliases (\ s a -> s{_dsAliases = a}); - --- | A complex type that contains information about origins for this distribution. -dsOrigins :: Lens' DistributionSummary Origins -dsOrigins = lens _dsOrigins (\ s a -> s{_dsOrigins = a}); - --- | A complex type that describes the default cache behavior if you do not specify a CacheBehavior element or if files don\'t match any of the values of PathPattern in CacheBehavior elements.You must create exactly one default cache behavior. -dsDefaultCacheBehavior :: Lens' DistributionSummary DefaultCacheBehavior -dsDefaultCacheBehavior = lens _dsDefaultCacheBehavior (\ s a -> s{_dsDefaultCacheBehavior = a}); - --- | A complex type that contains zero or more CacheBehavior elements. -dsCacheBehaviors :: Lens' DistributionSummary CacheBehaviors -dsCacheBehaviors = lens _dsCacheBehaviors (\ s a -> s{_dsCacheBehaviors = a}); - --- | A complex type that contains zero or more CustomErrorResponses elements. -dsCustomErrorResponses :: Lens' DistributionSummary CustomErrorResponses -dsCustomErrorResponses = lens _dsCustomErrorResponses (\ s a -> s{_dsCustomErrorResponses = a}); - --- | The comment originally specified when this distribution was created. -dsComment :: Lens' DistributionSummary Text -dsComment = lens _dsComment (\ s a -> s{_dsComment = a}); - --- | Undocumented member. -dsPriceClass :: Lens' DistributionSummary PriceClass -dsPriceClass = lens _dsPriceClass (\ s a -> s{_dsPriceClass = a}); - --- | Whether the distribution is enabled to accept end user requests for content. -dsEnabled :: Lens' DistributionSummary Bool -dsEnabled = lens _dsEnabled (\ s a -> s{_dsEnabled = a}); - --- | Undocumented member. -dsViewerCertificate :: Lens' DistributionSummary ViewerCertificate -dsViewerCertificate = lens _dsViewerCertificate (\ s a -> s{_dsViewerCertificate = a}); - --- | Undocumented member. -dsRestrictions :: Lens' DistributionSummary Restrictions -dsRestrictions = lens _dsRestrictions (\ s a -> s{_dsRestrictions = a}); - --- | The Web ACL Id (if any) associated with the distribution. -dsWebACLId :: Lens' DistributionSummary Text -dsWebACLId = lens _dsWebACLId (\ s a -> s{_dsWebACLId = a}); - --- | Specify the maximum HTTP version that you want viewers to use to communicate with CloudFront. The default value for new web distributions is http2. Viewers that don\'t support HTTP\/2 will automatically use an earlier version. -dsHTTPVersion :: Lens' DistributionSummary HTTPVersion -dsHTTPVersion = lens _dsHTTPVersion (\ s a -> s{_dsHTTPVersion = a}); - -instance FromXML DistributionSummary where - parseXML x - = DistributionSummary' <$> - (x .@ "Id") <*> (x .@ "ARN") <*> (x .@ "Status") <*> - (x .@ "LastModifiedTime") - <*> (x .@ "DomainName") - <*> (x .@ "Aliases") - <*> (x .@ "Origins") - <*> (x .@ "DefaultCacheBehavior") - <*> (x .@ "CacheBehaviors") - <*> (x .@ "CustomErrorResponses") - <*> (x .@ "Comment") - <*> (x .@ "PriceClass") - <*> (x .@ "Enabled") - <*> (x .@ "ViewerCertificate") - <*> (x .@ "Restrictions") - <*> (x .@ "WebACLId") - <*> (x .@ "HttpVersion") - -instance Hashable DistributionSummary - -instance NFData DistributionSummary - --- | A complex type that specifies how CloudFront handles query strings, cookies and headers. --- --- /See:/ 'forwardedValues' smart constructor. -data ForwardedValues = ForwardedValues' - { _fvQueryStringCacheKeys :: !(Maybe QueryStringCacheKeys) - , _fvHeaders :: !(Maybe Headers) - , _fvQueryString :: !Bool - , _fvCookies :: !CookiePreference - } deriving (Eq,Read,Show,Data,Typeable,Generic) - --- | Creates a value of 'ForwardedValues' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'fvQueryStringCacheKeys' --- --- * 'fvHeaders' --- --- * 'fvQueryString' --- --- * 'fvCookies' -forwardedValues - :: Bool -- ^ 'fvQueryString' - -> CookiePreference -- ^ 'fvCookies' - -> ForwardedValues -forwardedValues pQueryString_ pCookies_ = - ForwardedValues' - { _fvQueryStringCacheKeys = Nothing - , _fvHeaders = Nothing - , _fvQueryString = pQueryString_ - , _fvCookies = pCookies_ - } - --- | A complex type that contains information about the query string parameters that you want CloudFront to use for caching for this cache behavior. -fvQueryStringCacheKeys :: Lens' ForwardedValues (Maybe QueryStringCacheKeys) -fvQueryStringCacheKeys = lens _fvQueryStringCacheKeys (\ s a -> s{_fvQueryStringCacheKeys = a}); - --- | A complex type that specifies the Headers, if any, that you want CloudFront to vary upon for this cache behavior. -fvHeaders :: Lens' ForwardedValues (Maybe Headers) -fvHeaders = lens _fvHeaders (\ s a -> s{_fvHeaders = a}); - --- | Indicates whether you want CloudFront to forward query strings to the origin that is associated with this cache behavior and cache based on the query string parameters. CloudFront behavior depends on the value of QueryString and on the values that you specify for QueryStringCacheKeys, if any: --- --- - If you specify true for QueryString and you don\'t specify any values for QueryStringCacheKeys, CloudFront forwards all query string parameters to the origin and caches based on all query string parameters. Depending on how many query string parameters and values you have, this can adversely affect performance because CloudFront must forward more requests to the origin. --- - If you specify true for QueryString and you specify one or more values for QueryStringCacheKeys, CloudFront forwards all query string parameters to the origin, but it only caches based on the query string parameters that you specify. --- - If you specify false for QueryString, CloudFront doesn\'t forward any query string parameters to the origin, and doesn\'t cache based on query string parameters. -fvQueryString :: Lens' ForwardedValues Bool -fvQueryString = lens _fvQueryString (\ s a -> s{_fvQueryString = a}); - --- | A complex type that specifies how CloudFront handles cookies. -fvCookies :: Lens' ForwardedValues CookiePreference -fvCookies = lens _fvCookies (\ s a -> s{_fvCookies = a}); - -instance FromXML ForwardedValues where - parseXML x - = ForwardedValues' <$> - (x .@? "QueryStringCacheKeys") <*> (x .@? "Headers") - <*> (x .@ "QueryString") - <*> (x .@ "Cookies") - -instance Hashable ForwardedValues - -instance NFData ForwardedValues - -instance ToXML ForwardedValues where - toXML ForwardedValues'{..} - = mconcat - ["QueryStringCacheKeys" @= _fvQueryStringCacheKeys, - "Headers" @= _fvHeaders, - "QueryString" @= _fvQueryString, - "Cookies" @= _fvCookies] - --- | A complex type that controls the countries in which your content is distributed. For more information about geo restriction, go to Customizing Error Responses in the Amazon CloudFront Developer Guide. CloudFront determines the location of your users using MaxMind GeoIP databases. For information about the accuracy of these databases, see How accurate are your GeoIP databases? on the MaxMind website. --- --- /See:/ 'geoRestriction' smart constructor. -data GeoRestriction = GeoRestriction' - { _grItems :: !(Maybe [Text]) - , _grRestrictionType :: !GeoRestrictionType - , _grQuantity :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) - --- | Creates a value of 'GeoRestriction' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'grItems' --- --- * 'grRestrictionType' --- --- * 'grQuantity' -geoRestriction - :: GeoRestrictionType -- ^ 'grRestrictionType' - -> Int -- ^ 'grQuantity' - -> GeoRestriction -geoRestriction pRestrictionType_ pQuantity_ = - GeoRestriction' - { _grItems = Nothing - , _grRestrictionType = pRestrictionType_ - , _grQuantity = pQuantity_ - } - --- | A complex type that contains a Location element for each country in which you want CloudFront either to distribute your content (whitelist) or not distribute your content (blacklist). The Location element is a two-letter, uppercase country code for a country that you want to include in your blacklist or whitelist. Include one Location element for each country. CloudFront and MaxMind both use ISO 3166 country codes. For the current list of countries and the corresponding codes, see ISO 3166-1-alpha-2 code on the International Organization for Standardization website. You can also refer to the country list in the CloudFront console, which includes both country names and codes. -grItems :: Lens' GeoRestriction [Text] -grItems = lens _grItems (\ s a -> s{_grItems = a}) . _Default . _Coerce; - --- | The method that you want to use to restrict distribution of your content by country: - none: No geo restriction is enabled, meaning access to content is not restricted by client geo location. - blacklist: The Location elements specify the countries in which you do not want CloudFront to distribute your content. - whitelist: The Location elements specify the countries in which you want CloudFront to distribute your content. -grRestrictionType :: Lens' GeoRestriction GeoRestrictionType -grRestrictionType = lens _grRestrictionType (\ s a -> s{_grRestrictionType = a}); - --- | When geo restriction is enabled, this is the number of countries in your whitelist or blacklist. Otherwise, when it is not enabled, Quantity is 0, and you can omit Items. -grQuantity :: Lens' GeoRestriction Int -grQuantity = lens _grQuantity (\ s a -> s{_grQuantity = a}); - -instance FromXML GeoRestriction where - parseXML x - = GeoRestriction' <$> - (x .@? "Items" .!@ mempty >>= - may (parseXMLList "Location")) - <*> (x .@ "RestrictionType") - <*> (x .@ "Quantity") - -instance Hashable GeoRestriction - -instance NFData GeoRestriction - -instance ToXML GeoRestriction where - toXML GeoRestriction'{..} - = mconcat - ["Items" @= - toXML (toXMLList "Location" <$> _grItems), - "RestrictionType" @= _grRestrictionType, - "Quantity" @= _grQuantity] - --- | A complex type that specifies the headers that you want CloudFront to forward to the origin for this cache behavior. For the headers that you specify, CloudFront also caches separate versions of a given object based on the header values in viewer requests; this is known as varying on headers. For example, suppose viewer requests for logo.jpg contain a custom Product header that has a value of either Acme or Apex, and you configure CloudFront to vary on the Product header. CloudFront forwards the Product header to the origin and caches the response from the origin once for each header value. --- --- /See:/ 'headers' smart constructor. -data Headers = Headers' - { _hItems :: !(Maybe [Text]) - , _hQuantity :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) - --- | Creates a value of 'Headers' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'hItems' --- --- * 'hQuantity' -headers - :: Int -- ^ 'hQuantity' - -> Headers -headers pQuantity_ = - Headers' - { _hItems = Nothing - , _hQuantity = pQuantity_ - } - --- | Optional: A complex type that contains a Name element for each header that you want CloudFront to forward to the origin and to vary on for this cache behavior. If Quantity is 0, omit Items. -hItems :: Lens' Headers [Text] -hItems = lens _hItems (\ s a -> s{_hItems = a}) . _Default . _Coerce; - --- | The number of different headers that you want CloudFront to forward to the origin and to vary on for this cache behavior. The maximum number of headers that you can specify by name is 10. If you want CloudFront to forward all headers to the origin and vary on all of them, specify 1 for Quantity and * for Name. If you don\'t want CloudFront to forward any additional headers to the origin or to vary on any headers, specify 0 for Quantity and omit Items. -hQuantity :: Lens' Headers Int -hQuantity = lens _hQuantity (\ s a -> s{_hQuantity = a}); - -instance FromXML Headers where - parseXML x - = Headers' <$> - (x .@? "Items" .!@ mempty >>= - may (parseXMLList "Name")) - <*> (x .@ "Quantity") - -instance Hashable Headers - -instance NFData Headers - -instance ToXML Headers where - toXML Headers'{..} - = mconcat - ["Items" @= toXML (toXMLList "Name" <$> _hItems), - "Quantity" @= _hQuantity] - --- | An invalidation. --- --- /See:/ 'invalidation' smart constructor. -data Invalidation = Invalidation' - { _iId :: !Text - , _iStatus :: !Text - , _iCreateTime :: !ISO8601 - , _iInvalidationBatch :: !InvalidationBatch - } deriving (Eq,Read,Show,Data,Typeable,Generic) - --- | Creates a value of 'Invalidation' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'iId' --- --- * 'iStatus' --- --- * 'iCreateTime' --- --- * 'iInvalidationBatch' -invalidation - :: Text -- ^ 'iId' - -> Text -- ^ 'iStatus' - -> UTCTime -- ^ 'iCreateTime' - -> InvalidationBatch -- ^ 'iInvalidationBatch' - -> Invalidation -invalidation pId_ pStatus_ pCreateTime_ pInvalidationBatch_ = - Invalidation' - { _iId = pId_ - , _iStatus = pStatus_ - , _iCreateTime = _Time # pCreateTime_ - , _iInvalidationBatch = pInvalidationBatch_ - } - --- | The identifier for the invalidation request. For example: IDFDVBD632BHDS5. -iId :: Lens' Invalidation Text -iId = lens _iId (\ s a -> s{_iId = a}); - --- | The status of the invalidation request. When the invalidation batch is finished, the status is Completed. -iStatus :: Lens' Invalidation Text -iStatus = lens _iStatus (\ s a -> s{_iStatus = a}); - --- | The date and time the invalidation request was first made. -iCreateTime :: Lens' Invalidation UTCTime -iCreateTime = lens _iCreateTime (\ s a -> s{_iCreateTime = a}) . _Time; - --- | The current invalidation information for the batch request. -iInvalidationBatch :: Lens' Invalidation InvalidationBatch -iInvalidationBatch = lens _iInvalidationBatch (\ s a -> s{_iInvalidationBatch = a}); - -instance FromXML Invalidation where - parseXML x - = Invalidation' <$> - (x .@ "Id") <*> (x .@ "Status") <*> - (x .@ "CreateTime") - <*> (x .@ "InvalidationBatch") - -instance Hashable Invalidation - -instance NFData Invalidation - --- | An invalidation batch. --- --- /See:/ 'invalidationBatch' smart constructor. -data InvalidationBatch = InvalidationBatch' - { _ibPaths :: !Paths - , _ibCallerReference :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) - --- | Creates a value of 'InvalidationBatch' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'ibPaths' --- --- * 'ibCallerReference' -invalidationBatch - :: Paths -- ^ 'ibPaths' - -> Text -- ^ 'ibCallerReference' - -> InvalidationBatch -invalidationBatch pPaths_ pCallerReference_ = - InvalidationBatch' - { _ibPaths = pPaths_ - , _ibCallerReference = pCallerReference_ - } - --- | The path of the object to invalidate. The path is relative to the distribution and must begin with a slash (\/). You must enclose each invalidation object with the Path element tags. If the path includes non-ASCII characters or unsafe characters as defined in RFC 1783 (http:\/\/www.ietf.org\/rfc\/rfc1738.txt), URL encode those characters. Do not URL encode any other characters in the path, or CloudFront will not invalidate the old version of the updated object. -ibPaths :: Lens' InvalidationBatch Paths -ibPaths = lens _ibPaths (\ s a -> s{_ibPaths = a}); - --- | A unique name that ensures the request can\'t be replayed. If the CallerReference is new (no matter the content of the Path object), a new distribution is created. If the CallerReference is a value you already sent in a previous request to create an invalidation batch, and the content of each Path element is identical to the original request, the response includes the same information returned to the original request. If the CallerReference is a value you already sent in a previous request to create a distribution but the content of any Path is different from the original request, CloudFront returns an InvalidationBatchAlreadyExists error. -ibCallerReference :: Lens' InvalidationBatch Text -ibCallerReference = lens _ibCallerReference (\ s a -> s{_ibCallerReference = a}); - -instance FromXML InvalidationBatch where - parseXML x - = InvalidationBatch' <$> - (x .@ "Paths") <*> (x .@ "CallerReference") - -instance Hashable InvalidationBatch - -instance NFData InvalidationBatch - -instance ToXML InvalidationBatch where - toXML InvalidationBatch'{..} - = mconcat - ["Paths" @= _ibPaths, - "CallerReference" @= _ibCallerReference] - --- | An invalidation list. --- --- /See:/ 'invalidationList' smart constructor. -data InvalidationList = InvalidationList' - { _ilItems :: !(Maybe [InvalidationSummary]) - , _ilNextMarker :: !(Maybe Text) - , _ilMarker :: !Text - , _ilMaxItems :: !Int - , _ilIsTruncated :: !Bool - , _ilQuantity :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) - --- | Creates a value of 'InvalidationList' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'ilItems' --- --- * 'ilNextMarker' --- --- * 'ilMarker' --- --- * 'ilMaxItems' --- --- * 'ilIsTruncated' --- --- * 'ilQuantity' -invalidationList - :: Text -- ^ 'ilMarker' - -> Int -- ^ 'ilMaxItems' - -> Bool -- ^ 'ilIsTruncated' - -> Int -- ^ 'ilQuantity' - -> InvalidationList -invalidationList pMarker_ pMaxItems_ pIsTruncated_ pQuantity_ = - InvalidationList' - { _ilItems = Nothing - , _ilNextMarker = Nothing - , _ilMarker = pMarker_ - , _ilMaxItems = pMaxItems_ - , _ilIsTruncated = pIsTruncated_ - , _ilQuantity = pQuantity_ - } - --- | A complex type that contains one InvalidationSummary element for each invalidation batch that was created by the current AWS account. -ilItems :: Lens' InvalidationList [InvalidationSummary] -ilItems = lens _ilItems (\ s a -> s{_ilItems = a}) . _Default . _Coerce; - --- | If IsTruncated is true, this element is present and contains the value you can use for the Marker request parameter to continue listing your invalidation batches where they left off. -ilNextMarker :: Lens' InvalidationList (Maybe Text) -ilNextMarker = lens _ilNextMarker (\ s a -> s{_ilNextMarker = a}); - --- | The value you provided for the Marker request parameter. -ilMarker :: Lens' InvalidationList Text -ilMarker = lens _ilMarker (\ s a -> s{_ilMarker = a}); - --- | The value you provided for the MaxItems request parameter. -ilMaxItems :: Lens' InvalidationList Int -ilMaxItems = lens _ilMaxItems (\ s a -> s{_ilMaxItems = a}); - --- | A flag that indicates whether more invalidation batch requests remain to be listed. If your results were truncated, you can make a follow-up pagination request using the Marker request parameter to retrieve more invalidation batches in the list. -ilIsTruncated :: Lens' InvalidationList Bool -ilIsTruncated = lens _ilIsTruncated (\ s a -> s{_ilIsTruncated = a}); - --- | The number of invalidation batches that were created by the current AWS account. -ilQuantity :: Lens' InvalidationList Int -ilQuantity = lens _ilQuantity (\ s a -> s{_ilQuantity = a}); - -instance FromXML InvalidationList where - parseXML x - = InvalidationList' <$> - (x .@? "Items" .!@ mempty >>= - may (parseXMLList "InvalidationSummary")) - <*> (x .@? "NextMarker") - <*> (x .@ "Marker") - <*> (x .@ "MaxItems") - <*> (x .@ "IsTruncated") - <*> (x .@ "Quantity") - -instance Hashable InvalidationList - -instance NFData InvalidationList - --- | Summary of an invalidation request. --- --- /See:/ 'invalidationSummary' smart constructor. -data InvalidationSummary = InvalidationSummary' - { _isId :: !Text - , _isCreateTime :: !ISO8601 - , _isStatus :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) - --- | Creates a value of 'InvalidationSummary' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'isId' --- --- * 'isCreateTime' --- --- * 'isStatus' -invalidationSummary - :: Text -- ^ 'isId' - -> UTCTime -- ^ 'isCreateTime' - -> Text -- ^ 'isStatus' - -> InvalidationSummary -invalidationSummary pId_ pCreateTime_ pStatus_ = - InvalidationSummary' - { _isId = pId_ - , _isCreateTime = _Time # pCreateTime_ - , _isStatus = pStatus_ - } - --- | The unique ID for an invalidation request. -isId :: Lens' InvalidationSummary Text -isId = lens _isId (\ s a -> s{_isId = a}); - --- | Undocumented member. -isCreateTime :: Lens' InvalidationSummary UTCTime -isCreateTime = lens _isCreateTime (\ s a -> s{_isCreateTime = a}) . _Time; - --- | The status of an invalidation request. -isStatus :: Lens' InvalidationSummary Text -isStatus = lens _isStatus (\ s a -> s{_isStatus = a}); - -instance FromXML InvalidationSummary where - parseXML x - = InvalidationSummary' <$> - (x .@ "Id") <*> (x .@ "CreateTime") <*> - (x .@ "Status") - -instance Hashable InvalidationSummary - -instance NFData InvalidationSummary - --- | A complex type that lists the active CloudFront key pairs, if any, that are associated with AwsAccountNumber. --- --- /See:/ 'keyPairIds' smart constructor. -data KeyPairIds = KeyPairIds' - { _kpiItems :: !(Maybe [Text]) - , _kpiQuantity :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) - --- | Creates a value of 'KeyPairIds' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'kpiItems' --- --- * 'kpiQuantity' -keyPairIds - :: Int -- ^ 'kpiQuantity' - -> KeyPairIds -keyPairIds pQuantity_ = - KeyPairIds' - { _kpiItems = Nothing - , _kpiQuantity = pQuantity_ - } - --- | A complex type that lists the active CloudFront key pairs, if any, that are associated with AwsAccountNumber. -kpiItems :: Lens' KeyPairIds [Text] -kpiItems = lens _kpiItems (\ s a -> s{_kpiItems = a}) . _Default . _Coerce; - --- | The number of active CloudFront key pairs for AwsAccountNumber. -kpiQuantity :: Lens' KeyPairIds Int -kpiQuantity = lens _kpiQuantity (\ s a -> s{_kpiQuantity = a}); - -instance FromXML KeyPairIds where - parseXML x - = KeyPairIds' <$> - (x .@? "Items" .!@ mempty >>= - may (parseXMLList "KeyPairId")) - <*> (x .@ "Quantity") - -instance Hashable KeyPairIds - -instance NFData KeyPairIds - --- | A complex type that controls whether access logs are written for the distribution. --- --- /See:/ 'loggingConfig' smart constructor. -data LoggingConfig = LoggingConfig' - { _lcEnabled :: !Bool - , _lcIncludeCookies :: !Bool - , _lcBucket :: !Text - , _lcPrefix :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) - --- | Creates a value of 'LoggingConfig' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'lcEnabled' --- --- * 'lcIncludeCookies' --- --- * 'lcBucket' --- --- * 'lcPrefix' -loggingConfig - :: Bool -- ^ 'lcEnabled' - -> Bool -- ^ 'lcIncludeCookies' - -> Text -- ^ 'lcBucket' - -> Text -- ^ 'lcPrefix' - -> LoggingConfig -loggingConfig pEnabled_ pIncludeCookies_ pBucket_ pPrefix_ = - LoggingConfig' - { _lcEnabled = pEnabled_ - , _lcIncludeCookies = pIncludeCookies_ - , _lcBucket = pBucket_ - , _lcPrefix = pPrefix_ - } - --- | Specifies whether you want CloudFront to save access logs to an Amazon S3 bucket. If you do not want to enable logging when you create a distribution or if you want to disable logging for an existing distribution, specify false for Enabled, and specify empty Bucket and Prefix elements. If you specify false for Enabled but you specify values for Bucket, prefix and IncludeCookies, the values are automatically deleted. -lcEnabled :: Lens' LoggingConfig Bool -lcEnabled = lens _lcEnabled (\ s a -> s{_lcEnabled = a}); - --- | Specifies whether you want CloudFront to include cookies in access logs, specify true for IncludeCookies. If you choose to include cookies in logs, CloudFront logs all cookies regardless of how you configure the cache behaviors for this distribution. If you do not want to include cookies when you create a distribution or if you want to disable include cookies for an existing distribution, specify false for IncludeCookies. -lcIncludeCookies :: Lens' LoggingConfig Bool -lcIncludeCookies = lens _lcIncludeCookies (\ s a -> s{_lcIncludeCookies = a}); - --- | The Amazon S3 bucket to store the access logs in, for example, myawslogbucket.s3.amazonaws.com. -lcBucket :: Lens' LoggingConfig Text -lcBucket = lens _lcBucket (\ s a -> s{_lcBucket = a}); - --- | An optional string that you want CloudFront to prefix to the access log filenames for this distribution, for example, myprefix\/. If you want to enable logging, but you do not want to specify a prefix, you still must include an empty Prefix element in the Logging element. -lcPrefix :: Lens' LoggingConfig Text -lcPrefix = lens _lcPrefix (\ s a -> s{_lcPrefix = a}); - -instance FromXML LoggingConfig where - parseXML x - = LoggingConfig' <$> - (x .@ "Enabled") <*> (x .@ "IncludeCookies") <*> - (x .@ "Bucket") - <*> (x .@ "Prefix") - -instance Hashable LoggingConfig - -instance NFData LoggingConfig - -instance ToXML LoggingConfig where - toXML LoggingConfig'{..} - = mconcat - ["Enabled" @= _lcEnabled, - "IncludeCookies" @= _lcIncludeCookies, - "Bucket" @= _lcBucket, "Prefix" @= _lcPrefix] - --- | A complex type that describes the Amazon S3 bucket or the HTTP server (for example, a web server) from which CloudFront gets your files.You must create at least one origin. --- --- /See:/ 'origin' smart constructor. -data Origin = Origin' - { _oCustomHeaders :: !(Maybe CustomHeaders) - , _oCustomOriginConfig :: !(Maybe CustomOriginConfig) - , _oS3OriginConfig :: !(Maybe S3OriginConfig) - , _oOriginPath :: !(Maybe Text) - , _oId :: !Text - , _oDomainName :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) - --- | Creates a value of 'Origin' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'oCustomHeaders' --- --- * 'oCustomOriginConfig' --- --- * 'oS3OriginConfig' --- --- * 'oOriginPath' --- --- * 'oId' --- --- * 'oDomainName' -origin - :: Text -- ^ 'oId' - -> Text -- ^ 'oDomainName' - -> Origin -origin pId_ pDomainName_ = - Origin' - { _oCustomHeaders = Nothing - , _oCustomOriginConfig = Nothing - , _oS3OriginConfig = Nothing - , _oOriginPath = Nothing - , _oId = pId_ - , _oDomainName = pDomainName_ - } - --- | A complex type that contains information about the custom headers associated with this Origin. -oCustomHeaders :: Lens' Origin (Maybe CustomHeaders) -oCustomHeaders = lens _oCustomHeaders (\ s a -> s{_oCustomHeaders = a}); - --- | A complex type that contains information about a custom origin. If the origin is an Amazon S3 bucket, use the S3OriginConfig element instead. -oCustomOriginConfig :: Lens' Origin (Maybe CustomOriginConfig) -oCustomOriginConfig = lens _oCustomOriginConfig (\ s a -> s{_oCustomOriginConfig = a}); - --- | A complex type that contains information about the Amazon S3 origin. If the origin is a custom origin, use the CustomOriginConfig element instead. -oS3OriginConfig :: Lens' Origin (Maybe S3OriginConfig) -oS3OriginConfig = lens _oS3OriginConfig (\ s a -> s{_oS3OriginConfig = a}); - --- | An optional element that causes CloudFront to request your content from a directory in your Amazon S3 bucket or your custom origin. When you include the OriginPath element, specify the directory name, beginning with a \/. CloudFront appends the directory name to the value of DomainName. -oOriginPath :: Lens' Origin (Maybe Text) -oOriginPath = lens _oOriginPath (\ s a -> s{_oOriginPath = a}); - --- | A unique identifier for the origin. The value of Id must be unique within the distribution. You use the value of Id when you create a cache behavior. The Id identifies the origin that CloudFront routes a request to when the request matches the path pattern for that cache behavior. -oId :: Lens' Origin Text -oId = lens _oId (\ s a -> s{_oId = a}); - --- | Amazon S3 origins: The DNS name of the Amazon S3 bucket from which you want CloudFront to get objects for this origin, for example, myawsbucket.s3.amazonaws.com. Custom origins: The DNS domain name for the HTTP server from which you want CloudFront to get objects for this origin, for example, www.example.com. -oDomainName :: Lens' Origin Text -oDomainName = lens _oDomainName (\ s a -> s{_oDomainName = a}); - -instance FromXML Origin where - parseXML x - = Origin' <$> - (x .@? "CustomHeaders") <*> - (x .@? "CustomOriginConfig") - <*> (x .@? "S3OriginConfig") - <*> (x .@? "OriginPath") - <*> (x .@ "Id") - <*> (x .@ "DomainName") - -instance Hashable Origin - -instance NFData Origin - -instance ToXML Origin where - toXML Origin'{..} - = mconcat - ["CustomHeaders" @= _oCustomHeaders, - "CustomOriginConfig" @= _oCustomOriginConfig, - "S3OriginConfig" @= _oS3OriginConfig, - "OriginPath" @= _oOriginPath, "Id" @= _oId, - "DomainName" @= _oDomainName] - --- | A complex type that contains information related to a Header --- --- /See:/ 'originCustomHeader' smart constructor. -data OriginCustomHeader = OriginCustomHeader' - { _ochHeaderName :: !Text - , _ochHeaderValue :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) - --- | Creates a value of 'OriginCustomHeader' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'ochHeaderName' --- --- * 'ochHeaderValue' -originCustomHeader - :: Text -- ^ 'ochHeaderName' - -> Text -- ^ 'ochHeaderValue' - -> OriginCustomHeader -originCustomHeader pHeaderName_ pHeaderValue_ = - OriginCustomHeader' - { _ochHeaderName = pHeaderName_ - , _ochHeaderValue = pHeaderValue_ - } - --- | The header\'s name. -ochHeaderName :: Lens' OriginCustomHeader Text -ochHeaderName = lens _ochHeaderName (\ s a -> s{_ochHeaderName = a}); - --- | The header\'s value. -ochHeaderValue :: Lens' OriginCustomHeader Text -ochHeaderValue = lens _ochHeaderValue (\ s a -> s{_ochHeaderValue = a}); - -instance FromXML OriginCustomHeader where - parseXML x - = OriginCustomHeader' <$> - (x .@ "HeaderName") <*> (x .@ "HeaderValue") - -instance Hashable OriginCustomHeader - -instance NFData OriginCustomHeader - -instance ToXML OriginCustomHeader where - toXML OriginCustomHeader'{..} - = mconcat - ["HeaderName" @= _ochHeaderName, - "HeaderValue" @= _ochHeaderValue] - --- | A complex type that contains the list of SSL\/TLS protocols that you want CloudFront to use when communicating with your origin over HTTPS. --- --- /See:/ 'originSSLProtocols' smart constructor. -data OriginSSLProtocols = OriginSSLProtocols' - { _ospQuantity :: !Int - , _ospItems :: ![SSLProtocol] - } deriving (Eq,Read,Show,Data,Typeable,Generic) - --- | Creates a value of 'OriginSSLProtocols' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'ospQuantity' --- --- * 'ospItems' -originSSLProtocols - :: Int -- ^ 'ospQuantity' - -> OriginSSLProtocols -originSSLProtocols pQuantity_ = - OriginSSLProtocols' - { _ospQuantity = pQuantity_ - , _ospItems = mempty - } - --- | The number of SSL\/TLS protocols that you want to allow CloudFront to use when establishing an HTTPS connection with this origin. -ospQuantity :: Lens' OriginSSLProtocols Int -ospQuantity = lens _ospQuantity (\ s a -> s{_ospQuantity = a}); - --- | A complex type that contains one SslProtocol element for each SSL\/TLS protocol that you want to allow CloudFront to use when establishing an HTTPS connection with this origin. -ospItems :: Lens' OriginSSLProtocols [SSLProtocol] -ospItems = lens _ospItems (\ s a -> s{_ospItems = a}) . _Coerce; - -instance FromXML OriginSSLProtocols where - parseXML x - = OriginSSLProtocols' <$> - (x .@ "Quantity") <*> - (x .@? "Items" .!@ mempty >>= - parseXMLList "SslProtocol") - -instance Hashable OriginSSLProtocols - -instance NFData OriginSSLProtocols - -instance ToXML OriginSSLProtocols where - toXML OriginSSLProtocols'{..} - = mconcat - ["Quantity" @= _ospQuantity, - "Items" @= toXMLList "SslProtocol" _ospItems] - --- | A complex type that contains information about origins for this distribution. --- --- /See:/ 'origins' smart constructor. -data Origins = Origins' - { _oItems :: !(Maybe (List1 Origin)) - , _oQuantity :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) - --- | Creates a value of 'Origins' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'oItems' --- --- * 'oQuantity' -origins - :: Int -- ^ 'oQuantity' - -> Origins -origins pQuantity_ = - Origins' - { _oItems = Nothing - , _oQuantity = pQuantity_ - } - --- | A complex type that contains origins for this distribution. -oItems :: Lens' Origins (Maybe (NonEmpty Origin)) -oItems = lens _oItems (\ s a -> s{_oItems = a}) . mapping _List1; - --- | The number of origins for this distribution. -oQuantity :: Lens' Origins Int -oQuantity = lens _oQuantity (\ s a -> s{_oQuantity = a}); - -instance FromXML Origins where - parseXML x - = Origins' <$> - (x .@? "Items" .!@ mempty >>= - may (parseXMLList1 "Origin")) - <*> (x .@ "Quantity") - -instance Hashable Origins - -instance NFData Origins - -instance ToXML Origins where - toXML Origins'{..} - = mconcat - ["Items" @= toXML (toXMLList "Origin" <$> _oItems), - "Quantity" @= _oQuantity] - --- | A complex type that contains information about the objects that you want to invalidate. --- --- /See:/ 'paths' smart constructor. -data Paths = Paths' - { _pItems :: !(Maybe [Text]) - , _pQuantity :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) - --- | Creates a value of 'Paths' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'pItems' --- --- * 'pQuantity' -paths - :: Int -- ^ 'pQuantity' - -> Paths -paths pQuantity_ = - Paths' - { _pItems = Nothing - , _pQuantity = pQuantity_ - } - --- | A complex type that contains a list of the objects that you want to invalidate. -pItems :: Lens' Paths [Text] -pItems = lens _pItems (\ s a -> s{_pItems = a}) . _Default . _Coerce; - --- | The number of objects that you want to invalidate. -pQuantity :: Lens' Paths Int -pQuantity = lens _pQuantity (\ s a -> s{_pQuantity = a}); - -instance FromXML Paths where - parseXML x - = Paths' <$> - (x .@? "Items" .!@ mempty >>= - may (parseXMLList "Path")) - <*> (x .@ "Quantity") - -instance Hashable Paths - -instance NFData Paths - -instance ToXML Paths where - toXML Paths'{..} - = mconcat - ["Items" @= toXML (toXMLList "Path" <$> _pItems), - "Quantity" @= _pQuantity] - --- | /See:/ 'queryStringCacheKeys' smart constructor. -data QueryStringCacheKeys = QueryStringCacheKeys' - { _qsckItems :: !(Maybe [Text]) - , _qsckQuantity :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) - --- | Creates a value of 'QueryStringCacheKeys' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'qsckItems' --- --- * 'qsckQuantity' -queryStringCacheKeys - :: Int -- ^ 'qsckQuantity' - -> QueryStringCacheKeys -queryStringCacheKeys pQuantity_ = - QueryStringCacheKeys' - { _qsckItems = Nothing - , _qsckQuantity = pQuantity_ - } - --- | Optional: A list that contains the query string parameters that you want CloudFront to use as a basis for caching for this cache behavior. If Quantity is 0, you can omit Items. -qsckItems :: Lens' QueryStringCacheKeys [Text] -qsckItems = lens _qsckItems (\ s a -> s{_qsckItems = a}) . _Default . _Coerce; - --- | The number of whitelisted query string parameters for this cache behavior. -qsckQuantity :: Lens' QueryStringCacheKeys Int -qsckQuantity = lens _qsckQuantity (\ s a -> s{_qsckQuantity = a}); - -instance FromXML QueryStringCacheKeys where - parseXML x - = QueryStringCacheKeys' <$> - (x .@? "Items" .!@ mempty >>= - may (parseXMLList "Name")) - <*> (x .@ "Quantity") - -instance Hashable QueryStringCacheKeys - -instance NFData QueryStringCacheKeys - -instance ToXML QueryStringCacheKeys where - toXML QueryStringCacheKeys'{..} - = mconcat - ["Items" @= toXML (toXMLList "Name" <$> _qsckItems), - "Quantity" @= _qsckQuantity] - --- | A complex type that identifies ways in which you want to restrict distribution of your content. --- --- /See:/ 'restrictions' smart constructor. -newtype Restrictions = Restrictions' - { _rGeoRestriction :: GeoRestriction - } deriving (Eq,Read,Show,Data,Typeable,Generic) - --- | Creates a value of 'Restrictions' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'rGeoRestriction' -restrictions - :: GeoRestriction -- ^ 'rGeoRestriction' - -> Restrictions -restrictions pGeoRestriction_ = - Restrictions' - { _rGeoRestriction = pGeoRestriction_ - } - --- | Undocumented member. -rGeoRestriction :: Lens' Restrictions GeoRestriction -rGeoRestriction = lens _rGeoRestriction (\ s a -> s{_rGeoRestriction = a}); - -instance FromXML Restrictions where - parseXML x - = Restrictions' <$> (x .@ "GeoRestriction") - -instance Hashable Restrictions - -instance NFData Restrictions - -instance ToXML Restrictions where - toXML Restrictions'{..} - = mconcat ["GeoRestriction" @= _rGeoRestriction] - --- | A complex type that contains information about the Amazon S3 bucket from which you want CloudFront to get your media files for distribution. --- --- /See:/ 's3Origin' smart constructor. -data S3Origin = S3Origin' - { _soDomainName :: !Text - , _soOriginAccessIdentity :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) - --- | Creates a value of 'S3Origin' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'soDomainName' --- --- * 'soOriginAccessIdentity' -s3Origin - :: Text -- ^ 'soDomainName' - -> Text -- ^ 'soOriginAccessIdentity' - -> S3Origin -s3Origin pDomainName_ pOriginAccessIdentity_ = - S3Origin' - { _soDomainName = pDomainName_ - , _soOriginAccessIdentity = pOriginAccessIdentity_ - } - --- | The DNS name of the S3 origin. -soDomainName :: Lens' S3Origin Text -soDomainName = lens _soDomainName (\ s a -> s{_soDomainName = a}); - --- | Your S3 origin\'s origin access identity. -soOriginAccessIdentity :: Lens' S3Origin Text -soOriginAccessIdentity = lens _soOriginAccessIdentity (\ s a -> s{_soOriginAccessIdentity = a}); - -instance FromXML S3Origin where - parseXML x - = S3Origin' <$> - (x .@ "DomainName") <*> (x .@ "OriginAccessIdentity") - -instance Hashable S3Origin - -instance NFData S3Origin - -instance ToXML S3Origin where - toXML S3Origin'{..} - = mconcat - ["DomainName" @= _soDomainName, - "OriginAccessIdentity" @= _soOriginAccessIdentity] - --- | A complex type that contains information about the Amazon S3 origin. If the origin is a custom origin, use the CustomOriginConfig element instead. --- --- /See:/ 's3OriginConfig' smart constructor. -newtype S3OriginConfig = S3OriginConfig' - { _socOriginAccessIdentity :: Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) - --- | Creates a value of 'S3OriginConfig' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'socOriginAccessIdentity' -s3OriginConfig - :: Text -- ^ 'socOriginAccessIdentity' - -> S3OriginConfig -s3OriginConfig pOriginAccessIdentity_ = - S3OriginConfig' - { _socOriginAccessIdentity = pOriginAccessIdentity_ - } - --- | The CloudFront origin access identity to associate with the origin. Use an origin access identity to configure the origin so that end users can only access objects in an Amazon S3 bucket through CloudFront. If you want end users to be able to access objects using either the CloudFront URL or the Amazon S3 URL, specify an empty OriginAccessIdentity element. To delete the origin access identity from an existing distribution, update the distribution configuration and include an empty OriginAccessIdentity element. To replace the origin access identity, update the distribution configuration and specify the new origin access identity. Use the format origin-access-identity\/cloudfront\/Id where Id is the value that CloudFront returned in the Id element when you created the origin access identity. -socOriginAccessIdentity :: Lens' S3OriginConfig Text -socOriginAccessIdentity = lens _socOriginAccessIdentity (\ s a -> s{_socOriginAccessIdentity = a}); - -instance FromXML S3OriginConfig where - parseXML x - = S3OriginConfig' <$> (x .@ "OriginAccessIdentity") - -instance Hashable S3OriginConfig - -instance NFData S3OriginConfig - -instance ToXML S3OriginConfig where - toXML S3OriginConfig'{..} - = mconcat - ["OriginAccessIdentity" @= _socOriginAccessIdentity] - --- | A complex type that lists the AWS accounts that were included in the TrustedSigners complex type, as well as their active CloudFront key pair IDs, if any. --- --- /See:/ 'signer' smart constructor. -data Signer = Signer' - { _sAWSAccountNumber :: !(Maybe Text) - , _sKeyPairIds :: !(Maybe KeyPairIds) - } deriving (Eq,Read,Show,Data,Typeable,Generic) - --- | Creates a value of 'Signer' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'sAWSAccountNumber' --- --- * 'sKeyPairIds' -signer - :: Signer -signer = - Signer' - { _sAWSAccountNumber = Nothing - , _sKeyPairIds = Nothing - } - --- | Specifies an AWS account that can create signed URLs. Values: self, which indicates that the AWS account that was used to create the distribution can created signed URLs, or an AWS account number. Omit the dashes in the account number. -sAWSAccountNumber :: Lens' Signer (Maybe Text) -sAWSAccountNumber = lens _sAWSAccountNumber (\ s a -> s{_sAWSAccountNumber = a}); - --- | A complex type that lists the active CloudFront key pairs, if any, that are associated with AwsAccountNumber. -sKeyPairIds :: Lens' Signer (Maybe KeyPairIds) -sKeyPairIds = lens _sKeyPairIds (\ s a -> s{_sKeyPairIds = a}); - -instance FromXML Signer where - parseXML x - = Signer' <$> - (x .@? "AwsAccountNumber") <*> (x .@? "KeyPairIds") - -instance Hashable Signer - -instance NFData Signer - --- | A streaming distribution. --- --- /See:/ 'streamingDistribution' smart constructor. -data StreamingDistribution = StreamingDistribution' - { _sdLastModifiedTime :: !(Maybe ISO8601) - , _sdId :: !Text - , _sdARN :: !Text - , _sdStatus :: !Text - , _sdDomainName :: !Text - , _sdActiveTrustedSigners :: !ActiveTrustedSigners - , _sdStreamingDistributionConfig :: !StreamingDistributionConfig - } deriving (Eq,Read,Show,Data,Typeable,Generic) - --- | Creates a value of 'StreamingDistribution' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'sdLastModifiedTime' --- --- * 'sdId' --- --- * 'sdARN' --- --- * 'sdStatus' --- --- * 'sdDomainName' --- --- * 'sdActiveTrustedSigners' --- --- * 'sdStreamingDistributionConfig' -streamingDistribution - :: Text -- ^ 'sdId' - -> Text -- ^ 'sdARN' - -> Text -- ^ 'sdStatus' - -> Text -- ^ 'sdDomainName' - -> ActiveTrustedSigners -- ^ 'sdActiveTrustedSigners' - -> StreamingDistributionConfig -- ^ 'sdStreamingDistributionConfig' - -> StreamingDistribution -streamingDistribution pId_ pARN_ pStatus_ pDomainName_ pActiveTrustedSigners_ pStreamingDistributionConfig_ = - StreamingDistribution' - { _sdLastModifiedTime = Nothing - , _sdId = pId_ - , _sdARN = pARN_ - , _sdStatus = pStatus_ - , _sdDomainName = pDomainName_ - , _sdActiveTrustedSigners = pActiveTrustedSigners_ - , _sdStreamingDistributionConfig = pStreamingDistributionConfig_ - } - --- | The date and time the distribution was last modified. -sdLastModifiedTime :: Lens' StreamingDistribution (Maybe UTCTime) -sdLastModifiedTime = lens _sdLastModifiedTime (\ s a -> s{_sdLastModifiedTime = a}) . mapping _Time; - --- | The identifier for the streaming distribution. For example: EGTXBD79H29TRA8. -sdId :: Lens' StreamingDistribution Text -sdId = lens _sdId (\ s a -> s{_sdId = a}); - --- | The ARN (Amazon Resource Name) for the streaming distribution. For example: arn:aws:cloudfront::123456789012:streaming-distribution\/EDFDVBD632BHDS5, where 123456789012 is your AWS account Id. -sdARN :: Lens' StreamingDistribution Text -sdARN = lens _sdARN (\ s a -> s{_sdARN = a}); - --- | The current status of the streaming distribution. When the status is Deployed, the distribution\'s information is fully propagated throughout the Amazon CloudFront system. -sdStatus :: Lens' StreamingDistribution Text -sdStatus = lens _sdStatus (\ s a -> s{_sdStatus = a}); - --- | The domain name corresponding to the streaming distribution. For example: s5c39gqb8ow64r.cloudfront.net. -sdDomainName :: Lens' StreamingDistribution Text -sdDomainName = lens _sdDomainName (\ s a -> s{_sdDomainName = a}); - --- | CloudFront automatically adds this element to the response only if you\'ve set up the distribution to serve private content with signed URLs. The element lists the key pair IDs that CloudFront is aware of for each trusted signer. The Signer child element lists the AWS account number of the trusted signer (or an empty Self element if the signer is you). The Signer element also includes the IDs of any active key pairs associated with the trusted signer\'s AWS account. If no KeyPairId element appears for a Signer, that signer can\'t create working signed URLs. -sdActiveTrustedSigners :: Lens' StreamingDistribution ActiveTrustedSigners -sdActiveTrustedSigners = lens _sdActiveTrustedSigners (\ s a -> s{_sdActiveTrustedSigners = a}); - --- | The current configuration information for the streaming distribution. -sdStreamingDistributionConfig :: Lens' StreamingDistribution StreamingDistributionConfig -sdStreamingDistributionConfig = lens _sdStreamingDistributionConfig (\ s a -> s{_sdStreamingDistributionConfig = a}); - -instance FromXML StreamingDistribution where - parseXML x - = StreamingDistribution' <$> - (x .@? "LastModifiedTime") <*> (x .@ "Id") <*> - (x .@ "ARN") - <*> (x .@ "Status") - <*> (x .@ "DomainName") - <*> (x .@ "ActiveTrustedSigners") - <*> (x .@ "StreamingDistributionConfig") - -instance Hashable StreamingDistribution - -instance NFData StreamingDistribution - --- | The configuration for the streaming distribution. --- --- /See:/ 'streamingDistributionConfig' smart constructor. -data StreamingDistributionConfig = StreamingDistributionConfig' - { _sdcAliases :: !(Maybe Aliases) - , _sdcPriceClass :: !(Maybe PriceClass) - , _sdcLogging :: !(Maybe StreamingLoggingConfig) - , _sdcCallerReference :: !Text - , _sdcS3Origin :: !S3Origin - , _sdcComment :: !Text - , _sdcTrustedSigners :: !TrustedSigners - , _sdcEnabled :: !Bool - } deriving (Eq,Read,Show,Data,Typeable,Generic) - --- | Creates a value of 'StreamingDistributionConfig' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'sdcAliases' --- --- * 'sdcPriceClass' --- --- * 'sdcLogging' --- --- * 'sdcCallerReference' --- --- * 'sdcS3Origin' --- --- * 'sdcComment' --- --- * 'sdcTrustedSigners' --- --- * 'sdcEnabled' -streamingDistributionConfig - :: Text -- ^ 'sdcCallerReference' - -> S3Origin -- ^ 'sdcS3Origin' - -> Text -- ^ 'sdcComment' - -> TrustedSigners -- ^ 'sdcTrustedSigners' - -> Bool -- ^ 'sdcEnabled' - -> StreamingDistributionConfig -streamingDistributionConfig pCallerReference_ pS3Origin_ pComment_ pTrustedSigners_ pEnabled_ = - StreamingDistributionConfig' - { _sdcAliases = Nothing - , _sdcPriceClass = Nothing - , _sdcLogging = Nothing - , _sdcCallerReference = pCallerReference_ - , _sdcS3Origin = pS3Origin_ - , _sdcComment = pComment_ - , _sdcTrustedSigners = pTrustedSigners_ - , _sdcEnabled = pEnabled_ - } - --- | A complex type that contains information about CNAMEs (alternate domain names), if any, for this streaming distribution. -sdcAliases :: Lens' StreamingDistributionConfig (Maybe Aliases) -sdcAliases = lens _sdcAliases (\ s a -> s{_sdcAliases = a}); - --- | A complex type that contains information about price class for this streaming distribution. -sdcPriceClass :: Lens' StreamingDistributionConfig (Maybe PriceClass) -sdcPriceClass = lens _sdcPriceClass (\ s a -> s{_sdcPriceClass = a}); - --- | A complex type that controls whether access logs are written for the streaming distribution. -sdcLogging :: Lens' StreamingDistributionConfig (Maybe StreamingLoggingConfig) -sdcLogging = lens _sdcLogging (\ s a -> s{_sdcLogging = a}); - --- | A unique number that ensures the request can\'t be replayed. If the CallerReference is new (no matter the content of the StreamingDistributionConfig object), a new streaming distribution is created. If the CallerReference is a value you already sent in a previous request to create a streaming distribution, and the content of the StreamingDistributionConfig is identical to the original request (ignoring white space), the response includes the same information returned to the original request. If the CallerReference is a value you already sent in a previous request to create a streaming distribution but the content of the StreamingDistributionConfig is different from the original request, CloudFront returns a DistributionAlreadyExists error. -sdcCallerReference :: Lens' StreamingDistributionConfig Text -sdcCallerReference = lens _sdcCallerReference (\ s a -> s{_sdcCallerReference = a}); - --- | A complex type that contains information about the Amazon S3 bucket from which you want CloudFront to get your media files for distribution. -sdcS3Origin :: Lens' StreamingDistributionConfig S3Origin -sdcS3Origin = lens _sdcS3Origin (\ s a -> s{_sdcS3Origin = a}); - --- | Any comments you want to include about the streaming distribution. -sdcComment :: Lens' StreamingDistributionConfig Text -sdcComment = lens _sdcComment (\ s a -> s{_sdcComment = a}); - --- | A complex type that specifies the AWS accounts, if any, that you want to allow to create signed URLs for private content. If you want to require signed URLs in requests for objects in the target origin that match the PathPattern for this cache behavior, specify true for Enabled, and specify the applicable values for Quantity and Items. For more information, go to Using a Signed URL to Serve Private Content in the Amazon CloudFront Developer Guide. If you don\'t want to require signed URLs in requests for objects that match PathPattern, specify false for Enabled and 0 for Quantity. Omit Items. To add, change, or remove one or more trusted signers, change Enabled to true (if it\'s currently false), change Quantity as applicable, and specify all of the trusted signers that you want to include in the updated distribution. -sdcTrustedSigners :: Lens' StreamingDistributionConfig TrustedSigners -sdcTrustedSigners = lens _sdcTrustedSigners (\ s a -> s{_sdcTrustedSigners = a}); - --- | Whether the streaming distribution is enabled to accept end user requests for content. -sdcEnabled :: Lens' StreamingDistributionConfig Bool -sdcEnabled = lens _sdcEnabled (\ s a -> s{_sdcEnabled = a}); - -instance FromXML StreamingDistributionConfig where - parseXML x - = StreamingDistributionConfig' <$> - (x .@? "Aliases") <*> (x .@? "PriceClass") <*> - (x .@? "Logging") - <*> (x .@ "CallerReference") - <*> (x .@ "S3Origin") - <*> (x .@ "Comment") - <*> (x .@ "TrustedSigners") - <*> (x .@ "Enabled") - -instance Hashable StreamingDistributionConfig - -instance NFData StreamingDistributionConfig - -instance ToXML StreamingDistributionConfig where - toXML StreamingDistributionConfig'{..} - = mconcat - ["Aliases" @= _sdcAliases, - "PriceClass" @= _sdcPriceClass, - "Logging" @= _sdcLogging, - "CallerReference" @= _sdcCallerReference, - "S3Origin" @= _sdcS3Origin, "Comment" @= _sdcComment, - "TrustedSigners" @= _sdcTrustedSigners, - "Enabled" @= _sdcEnabled] - --- | A streaming distribution Configuration and a list of tags to be associated with the streaming distribution. --- --- /See:/ 'streamingDistributionConfigWithTags' smart constructor. -data StreamingDistributionConfigWithTags = StreamingDistributionConfigWithTags' - { _sdcwtStreamingDistributionConfig :: !StreamingDistributionConfig - , _sdcwtTags :: !Tags - } deriving (Eq,Read,Show,Data,Typeable,Generic) - --- | Creates a value of 'StreamingDistributionConfigWithTags' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'sdcwtStreamingDistributionConfig' --- --- * 'sdcwtTags' -streamingDistributionConfigWithTags - :: StreamingDistributionConfig -- ^ 'sdcwtStreamingDistributionConfig' - -> Tags -- ^ 'sdcwtTags' - -> StreamingDistributionConfigWithTags -streamingDistributionConfigWithTags pStreamingDistributionConfig_ pTags_ = - StreamingDistributionConfigWithTags' - { _sdcwtStreamingDistributionConfig = pStreamingDistributionConfig_ - , _sdcwtTags = pTags_ - } - --- | A streaming distribution Configuration. -sdcwtStreamingDistributionConfig :: Lens' StreamingDistributionConfigWithTags StreamingDistributionConfig -sdcwtStreamingDistributionConfig = lens _sdcwtStreamingDistributionConfig (\ s a -> s{_sdcwtStreamingDistributionConfig = a}); - --- | A complex type that contains zero or more Tag elements. -sdcwtTags :: Lens' StreamingDistributionConfigWithTags Tags -sdcwtTags = lens _sdcwtTags (\ s a -> s{_sdcwtTags = a}); - -instance Hashable StreamingDistributionConfigWithTags - -instance NFData StreamingDistributionConfigWithTags - -instance ToXML StreamingDistributionConfigWithTags - where - toXML StreamingDistributionConfigWithTags'{..} - = mconcat - ["StreamingDistributionConfig" @= - _sdcwtStreamingDistributionConfig, - "Tags" @= _sdcwtTags] - --- | A streaming distribution list. --- --- /See:/ 'streamingDistributionList' smart constructor. -data StreamingDistributionList = StreamingDistributionList' - { _sdlItems :: !(Maybe [StreamingDistributionSummary]) - , _sdlNextMarker :: !(Maybe Text) - , _sdlMarker :: !Text - , _sdlMaxItems :: !Int - , _sdlIsTruncated :: !Bool - , _sdlQuantity :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) - --- | Creates a value of 'StreamingDistributionList' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'sdlItems' --- --- * 'sdlNextMarker' --- --- * 'sdlMarker' --- --- * 'sdlMaxItems' --- --- * 'sdlIsTruncated' --- --- * 'sdlQuantity' -streamingDistributionList - :: Text -- ^ 'sdlMarker' - -> Int -- ^ 'sdlMaxItems' - -> Bool -- ^ 'sdlIsTruncated' - -> Int -- ^ 'sdlQuantity' - -> StreamingDistributionList -streamingDistributionList pMarker_ pMaxItems_ pIsTruncated_ pQuantity_ = - StreamingDistributionList' - { _sdlItems = Nothing - , _sdlNextMarker = Nothing - , _sdlMarker = pMarker_ - , _sdlMaxItems = pMaxItems_ - , _sdlIsTruncated = pIsTruncated_ - , _sdlQuantity = pQuantity_ - } - --- | A complex type that contains one StreamingDistributionSummary element for each distribution that was created by the current AWS account. -sdlItems :: Lens' StreamingDistributionList [StreamingDistributionSummary] -sdlItems = lens _sdlItems (\ s a -> s{_sdlItems = a}) . _Default . _Coerce; - --- | If IsTruncated is true, this element is present and contains the value you can use for the Marker request parameter to continue listing your streaming distributions where they left off. -sdlNextMarker :: Lens' StreamingDistributionList (Maybe Text) -sdlNextMarker = lens _sdlNextMarker (\ s a -> s{_sdlNextMarker = a}); - --- | The value you provided for the Marker request parameter. -sdlMarker :: Lens' StreamingDistributionList Text -sdlMarker = lens _sdlMarker (\ s a -> s{_sdlMarker = a}); - --- | The value you provided for the MaxItems request parameter. -sdlMaxItems :: Lens' StreamingDistributionList Int -sdlMaxItems = lens _sdlMaxItems (\ s a -> s{_sdlMaxItems = a}); - --- | A flag that indicates whether more streaming distributions remain to be listed. If your results were truncated, you can make a follow-up pagination request using the Marker request parameter to retrieve more distributions in the list. -sdlIsTruncated :: Lens' StreamingDistributionList Bool -sdlIsTruncated = lens _sdlIsTruncated (\ s a -> s{_sdlIsTruncated = a}); - --- | The number of streaming distributions that were created by the current AWS account. -sdlQuantity :: Lens' StreamingDistributionList Int -sdlQuantity = lens _sdlQuantity (\ s a -> s{_sdlQuantity = a}); - -instance FromXML StreamingDistributionList where - parseXML x - = StreamingDistributionList' <$> - (x .@? "Items" .!@ mempty >>= - may (parseXMLList "StreamingDistributionSummary")) - <*> (x .@? "NextMarker") - <*> (x .@ "Marker") - <*> (x .@ "MaxItems") - <*> (x .@ "IsTruncated") - <*> (x .@ "Quantity") - -instance Hashable StreamingDistributionList - -instance NFData StreamingDistributionList - --- | A summary of the information for an Amazon CloudFront streaming distribution. --- --- /See:/ 'streamingDistributionSummary' smart constructor. -data StreamingDistributionSummary = StreamingDistributionSummary' - { _sdsId :: !Text - , _sdsARN :: !Text - , _sdsStatus :: !Text - , _sdsLastModifiedTime :: !ISO8601 - , _sdsDomainName :: !Text - , _sdsS3Origin :: !S3Origin - , _sdsAliases :: !Aliases - , _sdsTrustedSigners :: !TrustedSigners - , _sdsComment :: !Text - , _sdsPriceClass :: !PriceClass - , _sdsEnabled :: !Bool - } deriving (Eq,Read,Show,Data,Typeable,Generic) - --- | Creates a value of 'StreamingDistributionSummary' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'sdsId' --- --- * 'sdsARN' --- --- * 'sdsStatus' --- --- * 'sdsLastModifiedTime' --- --- * 'sdsDomainName' --- --- * 'sdsS3Origin' --- --- * 'sdsAliases' --- --- * 'sdsTrustedSigners' --- --- * 'sdsComment' --- --- * 'sdsPriceClass' --- --- * 'sdsEnabled' -streamingDistributionSummary - :: Text -- ^ 'sdsId' - -> Text -- ^ 'sdsARN' - -> Text -- ^ 'sdsStatus' - -> UTCTime -- ^ 'sdsLastModifiedTime' - -> Text -- ^ 'sdsDomainName' - -> S3Origin -- ^ 'sdsS3Origin' - -> Aliases -- ^ 'sdsAliases' - -> TrustedSigners -- ^ 'sdsTrustedSigners' - -> Text -- ^ 'sdsComment' - -> PriceClass -- ^ 'sdsPriceClass' - -> Bool -- ^ 'sdsEnabled' - -> StreamingDistributionSummary -streamingDistributionSummary pId_ pARN_ pStatus_ pLastModifiedTime_ pDomainName_ pS3Origin_ pAliases_ pTrustedSigners_ pComment_ pPriceClass_ pEnabled_ = - StreamingDistributionSummary' - { _sdsId = pId_ - , _sdsARN = pARN_ - , _sdsStatus = pStatus_ - , _sdsLastModifiedTime = _Time # pLastModifiedTime_ - , _sdsDomainName = pDomainName_ - , _sdsS3Origin = pS3Origin_ - , _sdsAliases = pAliases_ - , _sdsTrustedSigners = pTrustedSigners_ - , _sdsComment = pComment_ - , _sdsPriceClass = pPriceClass_ - , _sdsEnabled = pEnabled_ - } - --- | The identifier for the distribution. For example: EDFDVBD632BHDS5. -sdsId :: Lens' StreamingDistributionSummary Text -sdsId = lens _sdsId (\ s a -> s{_sdsId = a}); - --- | The ARN (Amazon Resource Name) for the streaming distribution. For example: arn:aws:cloudfront::123456789012:streaming-distribution\/EDFDVBD632BHDS5, where 123456789012 is your AWS account Id. -sdsARN :: Lens' StreamingDistributionSummary Text -sdsARN = lens _sdsARN (\ s a -> s{_sdsARN = a}); - --- | Indicates the current status of the distribution. When the status is Deployed, the distribution\'s information is fully propagated throughout the Amazon CloudFront system. -sdsStatus :: Lens' StreamingDistributionSummary Text -sdsStatus = lens _sdsStatus (\ s a -> s{_sdsStatus = a}); - --- | The date and time the distribution was last modified. -sdsLastModifiedTime :: Lens' StreamingDistributionSummary UTCTime -sdsLastModifiedTime = lens _sdsLastModifiedTime (\ s a -> s{_sdsLastModifiedTime = a}) . _Time; - --- | The domain name corresponding to the distribution. For example: d604721fxaaqy9.cloudfront.net. -sdsDomainName :: Lens' StreamingDistributionSummary Text -sdsDomainName = lens _sdsDomainName (\ s a -> s{_sdsDomainName = a}); - --- | A complex type that contains information about the Amazon S3 bucket from which you want CloudFront to get your media files for distribution. -sdsS3Origin :: Lens' StreamingDistributionSummary S3Origin -sdsS3Origin = lens _sdsS3Origin (\ s a -> s{_sdsS3Origin = a}); - --- | A complex type that contains information about CNAMEs (alternate domain names), if any, for this streaming distribution. -sdsAliases :: Lens' StreamingDistributionSummary Aliases -sdsAliases = lens _sdsAliases (\ s a -> s{_sdsAliases = a}); - --- | A complex type that specifies the AWS accounts, if any, that you want to allow to create signed URLs for private content. If you want to require signed URLs in requests for objects in the target origin that match the PathPattern for this cache behavior, specify true for Enabled, and specify the applicable values for Quantity and Items. For more information, go to Using a Signed URL to Serve Private Content in the Amazon CloudFront Developer Guide. If you don\'t want to require signed URLs in requests for objects that match PathPattern, specify false for Enabled and 0 for Quantity. Omit Items. To add, change, or remove one or more trusted signers, change Enabled to true (if it\'s currently false), change Quantity as applicable, and specify all of the trusted signers that you want to include in the updated distribution. -sdsTrustedSigners :: Lens' StreamingDistributionSummary TrustedSigners -sdsTrustedSigners = lens _sdsTrustedSigners (\ s a -> s{_sdsTrustedSigners = a}); - --- | The comment originally specified when this distribution was created. -sdsComment :: Lens' StreamingDistributionSummary Text -sdsComment = lens _sdsComment (\ s a -> s{_sdsComment = a}); - --- | Undocumented member. -sdsPriceClass :: Lens' StreamingDistributionSummary PriceClass -sdsPriceClass = lens _sdsPriceClass (\ s a -> s{_sdsPriceClass = a}); - --- | Whether the distribution is enabled to accept end user requests for content. -sdsEnabled :: Lens' StreamingDistributionSummary Bool -sdsEnabled = lens _sdsEnabled (\ s a -> s{_sdsEnabled = a}); - -instance FromXML StreamingDistributionSummary where - parseXML x - = StreamingDistributionSummary' <$> - (x .@ "Id") <*> (x .@ "ARN") <*> (x .@ "Status") <*> - (x .@ "LastModifiedTime") - <*> (x .@ "DomainName") - <*> (x .@ "S3Origin") - <*> (x .@ "Aliases") - <*> (x .@ "TrustedSigners") - <*> (x .@ "Comment") - <*> (x .@ "PriceClass") - <*> (x .@ "Enabled") - -instance Hashable StreamingDistributionSummary - -instance NFData StreamingDistributionSummary - --- | A complex type that controls whether access logs are written for this streaming distribution. --- --- /See:/ 'streamingLoggingConfig' smart constructor. -data StreamingLoggingConfig = StreamingLoggingConfig' - { _slcEnabled :: !Bool - , _slcBucket :: !Text - , _slcPrefix :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) - --- | Creates a value of 'StreamingLoggingConfig' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'slcEnabled' --- --- * 'slcBucket' --- --- * 'slcPrefix' -streamingLoggingConfig - :: Bool -- ^ 'slcEnabled' - -> Text -- ^ 'slcBucket' - -> Text -- ^ 'slcPrefix' - -> StreamingLoggingConfig -streamingLoggingConfig pEnabled_ pBucket_ pPrefix_ = - StreamingLoggingConfig' - { _slcEnabled = pEnabled_ - , _slcBucket = pBucket_ - , _slcPrefix = pPrefix_ - } - --- | Specifies whether you want CloudFront to save access logs to an Amazon S3 bucket. If you do not want to enable logging when you create a streaming distribution or if you want to disable logging for an existing streaming distribution, specify false for Enabled, and specify empty Bucket and Prefix elements. If you specify false for Enabled but you specify values for Bucket and Prefix, the values are automatically deleted. -slcEnabled :: Lens' StreamingLoggingConfig Bool -slcEnabled = lens _slcEnabled (\ s a -> s{_slcEnabled = a}); - --- | The Amazon S3 bucket to store the access logs in, for example, myawslogbucket.s3.amazonaws.com. -slcBucket :: Lens' StreamingLoggingConfig Text -slcBucket = lens _slcBucket (\ s a -> s{_slcBucket = a}); - --- | An optional string that you want CloudFront to prefix to the access log filenames for this streaming distribution, for example, myprefix\/. If you want to enable logging, but you do not want to specify a prefix, you still must include an empty Prefix element in the Logging element. -slcPrefix :: Lens' StreamingLoggingConfig Text -slcPrefix = lens _slcPrefix (\ s a -> s{_slcPrefix = a}); - -instance FromXML StreamingLoggingConfig where - parseXML x - = StreamingLoggingConfig' <$> - (x .@ "Enabled") <*> (x .@ "Bucket") <*> - (x .@ "Prefix") - -instance Hashable StreamingLoggingConfig - -instance NFData StreamingLoggingConfig - -instance ToXML StreamingLoggingConfig where - toXML StreamingLoggingConfig'{..} - = mconcat - ["Enabled" @= _slcEnabled, "Bucket" @= _slcBucket, - "Prefix" @= _slcPrefix] - --- | A complex type that contains Tag key and Tag value. --- --- /See:/ 'tag' smart constructor. -data Tag = Tag' - { _tagValue :: !(Maybe Text) - , _tagKey :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) - --- | Creates a value of 'Tag' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'tagValue' --- --- * 'tagKey' -tag - :: Text -- ^ 'tagKey' - -> Tag -tag pKey_ = - Tag' - { _tagValue = Nothing - , _tagKey = pKey_ - } - --- | A string that contains an optional Tag value. The string length should be between 0 and 256 characters. Valid characters include a-z, A-Z, 0-9, space, and the special characters _ - . : \/ = + \'. -tagValue :: Lens' Tag (Maybe Text) -tagValue = lens _tagValue (\ s a -> s{_tagValue = a}); - --- | A string that contains Tag key. The string length should be between 1 and 128 characters. Valid characters include a-z, A-Z, 0-9, space, and the special characters _ - . : \/ = + \'. -tagKey :: Lens' Tag Text -tagKey = lens _tagKey (\ s a -> s{_tagKey = a}); - -instance FromXML Tag where - parseXML x - = Tag' <$> (x .@? "Value") <*> (x .@ "Key") - -instance Hashable Tag - -instance NFData Tag - -instance ToXML Tag where - toXML Tag'{..} - = mconcat ["Value" @= _tagValue, "Key" @= _tagKey] - --- | A complex type that contains zero or more Tag elements. --- --- /See:/ 'tagKeys' smart constructor. -newtype TagKeys = TagKeys' - { _tkItems :: Maybe [Text] - } deriving (Eq,Read,Show,Data,Typeable,Generic) - --- | Creates a value of 'TagKeys' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'tkItems' -tagKeys - :: TagKeys -tagKeys = - TagKeys' - { _tkItems = Nothing - } - --- | A complex type that contains Tag key elements -tkItems :: Lens' TagKeys [Text] -tkItems = lens _tkItems (\ s a -> s{_tkItems = a}) . _Default . _Coerce; - -instance Hashable TagKeys - -instance NFData TagKeys - -instance ToXML TagKeys where - toXML TagKeys'{..} - = mconcat - ["Items" @= toXML (toXMLList "Key" <$> _tkItems)] - --- | A complex type that contains zero or more Tag elements. --- --- /See:/ 'tags' smart constructor. -newtype Tags = Tags' - { _tItems :: Maybe [Tag] - } deriving (Eq,Read,Show,Data,Typeable,Generic) - --- | Creates a value of 'Tags' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'tItems' -tags - :: Tags -tags = - Tags' - { _tItems = Nothing - } - --- | A complex type that contains Tag elements -tItems :: Lens' Tags [Tag] -tItems = lens _tItems (\ s a -> s{_tItems = a}) . _Default . _Coerce; - -instance FromXML Tags where - parseXML x - = Tags' <$> - (x .@? "Items" .!@ mempty >>= - may (parseXMLList "Tag")) - -instance Hashable Tags - -instance NFData Tags - -instance ToXML Tags where - toXML Tags'{..} - = mconcat - ["Items" @= toXML (toXMLList "Tag" <$> _tItems)] - --- | A complex type that specifies the AWS accounts, if any, that you want to allow to create signed URLs for private content. If you want to require signed URLs in requests for objects in the target origin that match the PathPattern for this cache behavior, specify true for Enabled, and specify the applicable values for Quantity and Items. For more information, go to Using a Signed URL to Serve Private Content in the Amazon CloudFront Developer Guide. If you don\'t want to require signed URLs in requests for objects that match PathPattern, specify false for Enabled and 0 for Quantity. Omit Items. To add, change, or remove one or more trusted signers, change Enabled to true (if it\'s currently false), change Quantity as applicable, and specify all of the trusted signers that you want to include in the updated distribution. --- --- /See:/ 'trustedSigners' smart constructor. -data TrustedSigners = TrustedSigners' - { _tsItems :: !(Maybe [Text]) - , _tsEnabled :: !Bool - , _tsQuantity :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) - --- | Creates a value of 'TrustedSigners' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'tsItems' --- --- * 'tsEnabled' --- --- * 'tsQuantity' -trustedSigners - :: Bool -- ^ 'tsEnabled' - -> Int -- ^ 'tsQuantity' - -> TrustedSigners -trustedSigners pEnabled_ pQuantity_ = - TrustedSigners' - { _tsItems = Nothing - , _tsEnabled = pEnabled_ - , _tsQuantity = pQuantity_ - } - --- | Optional: A complex type that contains trusted signers for this cache behavior. If Quantity is 0, you can omit Items. -tsItems :: Lens' TrustedSigners [Text] -tsItems = lens _tsItems (\ s a -> s{_tsItems = a}) . _Default . _Coerce; - --- | Specifies whether you want to require end users to use signed URLs to access the files specified by PathPattern and TargetOriginId. -tsEnabled :: Lens' TrustedSigners Bool -tsEnabled = lens _tsEnabled (\ s a -> s{_tsEnabled = a}); - --- | The number of trusted signers for this cache behavior. -tsQuantity :: Lens' TrustedSigners Int -tsQuantity = lens _tsQuantity (\ s a -> s{_tsQuantity = a}); - -instance FromXML TrustedSigners where - parseXML x - = TrustedSigners' <$> - (x .@? "Items" .!@ mempty >>= - may (parseXMLList "AwsAccountNumber")) - <*> (x .@ "Enabled") - <*> (x .@ "Quantity") - -instance Hashable TrustedSigners - -instance NFData TrustedSigners - -instance ToXML TrustedSigners where - toXML TrustedSigners'{..} - = mconcat - ["Items" @= - toXML (toXMLList "AwsAccountNumber" <$> _tsItems), - "Enabled" @= _tsEnabled, "Quantity" @= _tsQuantity] - --- | A complex type that contains information about viewer certificates for this distribution. --- --- /See:/ 'viewerCertificate' smart constructor. -data ViewerCertificate = ViewerCertificate' - { _vcSSLSupportMethod :: !(Maybe SSLSupportMethod) - , _vcACMCertificateARN :: !(Maybe Text) - , _vcCertificateSource :: !(Maybe CertificateSource) - , _vcMinimumProtocolVersion :: !(Maybe MinimumProtocolVersion) - , _vcCertificate :: !(Maybe Text) - , _vcIAMCertificateId :: !(Maybe Text) - , _vcCloudFrontDefaultCertificate :: !(Maybe Bool) - } deriving (Eq,Read,Show,Data,Typeable,Generic) - --- | Creates a value of 'ViewerCertificate' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'vcSSLSupportMethod' --- --- * 'vcACMCertificateARN' --- --- * 'vcCertificateSource' --- --- * 'vcMinimumProtocolVersion' --- --- * 'vcCertificate' --- --- * 'vcIAMCertificateId' --- --- * 'vcCloudFrontDefaultCertificate' -viewerCertificate - :: ViewerCertificate -viewerCertificate = - ViewerCertificate' - { _vcSSLSupportMethod = Nothing - , _vcACMCertificateARN = Nothing - , _vcCertificateSource = Nothing - , _vcMinimumProtocolVersion = Nothing - , _vcCertificate = Nothing - , _vcIAMCertificateId = Nothing - , _vcCloudFrontDefaultCertificate = Nothing - } - --- | If you specify a value for IAMCertificateId, you must also specify how you want CloudFront to serve HTTPS requests. Valid values are vip and sni-only. If you specify vip, CloudFront uses dedicated IP addresses for your content and can respond to HTTPS requests from any viewer. However, you must request permission to use this feature, and you incur additional monthly charges. If you specify sni-only, CloudFront can only respond to HTTPS requests from viewers that support Server Name Indication (SNI). All modern browsers support SNI, but some browsers still in use don\'t support SNI. Do not specify a value for SSLSupportMethod if you specified true for CloudFrontDefaultCertificate. -vcSSLSupportMethod :: Lens' ViewerCertificate (Maybe SSLSupportMethod) -vcSSLSupportMethod = lens _vcSSLSupportMethod (\ s a -> s{_vcSSLSupportMethod = a}); - --- | If you want viewers to use HTTPS to request your objects and you\'re using an alternate domain name in your object URLs (for example, https:\/\/example.com\/logo.jpg), specify the ACM certificate ARN of the custom viewer certificate for this distribution. Specify either this value, IAMCertificateId, or CloudFrontDefaultCertificate. -vcACMCertificateARN :: Lens' ViewerCertificate (Maybe Text) -vcACMCertificateARN = lens _vcACMCertificateARN (\ s a -> s{_vcACMCertificateARN = a}); - --- | Note: this field is deprecated. Please use one of [ACMCertificateArn, IAMCertificateId, CloudFrontDefaultCertificate]. -vcCertificateSource :: Lens' ViewerCertificate (Maybe CertificateSource) -vcCertificateSource = lens _vcCertificateSource (\ s a -> s{_vcCertificateSource = a}); - --- | Specify the minimum version of the SSL protocol that you want CloudFront to use, SSLv3 or TLSv1, for HTTPS connections. CloudFront will serve your objects only to browsers or devices that support at least the SSL version that you specify. The TLSv1 protocol is more secure, so we recommend that you specify SSLv3 only if your users are using browsers or devices that don\'t support TLSv1. If you\'re using a custom certificate (if you specify a value for IAMCertificateId) and if you\'re using dedicated IP (if you specify vip for SSLSupportMethod), you can choose SSLv3 or TLSv1 as the MinimumProtocolVersion. If you\'re using a custom certificate (if you specify a value for IAMCertificateId) and if you\'re using SNI (if you specify sni-only for SSLSupportMethod), you must specify TLSv1 for MinimumProtocolVersion. -vcMinimumProtocolVersion :: Lens' ViewerCertificate (Maybe MinimumProtocolVersion) -vcMinimumProtocolVersion = lens _vcMinimumProtocolVersion (\ s a -> s{_vcMinimumProtocolVersion = a}); - --- | Note: this field is deprecated. Please use one of [ACMCertificateArn, IAMCertificateId, CloudFrontDefaultCertificate]. -vcCertificate :: Lens' ViewerCertificate (Maybe Text) -vcCertificate = lens _vcCertificate (\ s a -> s{_vcCertificate = a}); - --- | If you want viewers to use HTTPS to request your objects and you\'re using an alternate domain name in your object URLs (for example, https:\/\/example.com\/logo.jpg), specify the IAM certificate identifier of the custom viewer certificate for this distribution. Specify either this value, ACMCertificateArn, or CloudFrontDefaultCertificate. -vcIAMCertificateId :: Lens' ViewerCertificate (Maybe Text) -vcIAMCertificateId = lens _vcIAMCertificateId (\ s a -> s{_vcIAMCertificateId = a}); - --- | If you want viewers to use HTTPS to request your objects and you\'re using the CloudFront domain name of your distribution in your object URLs (for example, https:\/\/d111111abcdef8.cloudfront.net\/logo.jpg), set to true. Omit this value if you are setting an ACMCertificateArn or IAMCertificateId. +-- | A complex type that lists the AWS accounts, if any, that you included in the @TrustedSigners@ complex type for this distribution. These are the accounts that you want to allow to create signed URLs for private content. +-- +-- +-- The @Signer@ complex type lists the AWS account number of the trusted signer or @self@ if the signer is the AWS account that created the distribution. The @Signer@ element also includes the IDs of any active CloudFront key pairs that are associated with the trusted signer's AWS account. If no @KeyPairId@ element appears for a @Signer@ , that signer can't create signed URLs. +-- +-- For more information, see in the /Amazon CloudFront Developer Guide/ . +-- +-- +-- /See:/ 'activeTrustedSigners' smart constructor. +data ActiveTrustedSigners = ActiveTrustedSigners' + { _atsItems :: !(Maybe [Signer]) + , _atsEnabled :: !Bool + , _atsQuantity :: !Int + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'ActiveTrustedSigners' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'atsItems' - A complex type that contains one @Signer@ complex type for each trusted signer that is specified in the @TrustedSigners@ complex type. For more information, see 'ActiveTrustedSigners' . +-- +-- * 'atsEnabled' - Enabled is @true@ if any of the AWS accounts listed in the @TrustedSigners@ complex type for this RTMP distribution have active CloudFront key pairs. If not, @Enabled@ is @false@ . For more information, see 'ActiveTrustedSigners' . +-- +-- * 'atsQuantity' - A complex type that contains one @Signer@ complex type for each trusted signer specified in the @TrustedSigners@ complex type. For more information, see 'ActiveTrustedSigners' . +activeTrustedSigners + :: Bool -- ^ 'atsEnabled' + -> Int -- ^ 'atsQuantity' + -> ActiveTrustedSigners +activeTrustedSigners pEnabled_ pQuantity_ = + ActiveTrustedSigners' + { _atsItems = Nothing + , _atsEnabled = pEnabled_ + , _atsQuantity = pQuantity_ + } + +-- | A complex type that contains one @Signer@ complex type for each trusted signer that is specified in the @TrustedSigners@ complex type. For more information, see 'ActiveTrustedSigners' . +atsItems :: Lens' ActiveTrustedSigners [Signer] +atsItems = lens _atsItems (\ s a -> s{_atsItems = a}) . _Default . _Coerce; + +-- | Enabled is @true@ if any of the AWS accounts listed in the @TrustedSigners@ complex type for this RTMP distribution have active CloudFront key pairs. If not, @Enabled@ is @false@ . For more information, see 'ActiveTrustedSigners' . +atsEnabled :: Lens' ActiveTrustedSigners Bool +atsEnabled = lens _atsEnabled (\ s a -> s{_atsEnabled = a}); + +-- | A complex type that contains one @Signer@ complex type for each trusted signer specified in the @TrustedSigners@ complex type. For more information, see 'ActiveTrustedSigners' . +atsQuantity :: Lens' ActiveTrustedSigners Int +atsQuantity = lens _atsQuantity (\ s a -> s{_atsQuantity = a}); + +instance FromXML ActiveTrustedSigners where + parseXML x + = ActiveTrustedSigners' <$> + (x .@? "Items" .!@ mempty >>= + may (parseXMLList "Signer")) + <*> (x .@ "Enabled") + <*> (x .@ "Quantity") + +instance Hashable ActiveTrustedSigners + +instance NFData ActiveTrustedSigners + +-- | A complex type that contains information about CNAMEs (alternate domain names), if any, for this distribution. +-- +-- +-- +-- /See:/ 'aliases' smart constructor. +data Aliases = Aliases' + { _aItems :: !(Maybe [Text]) + , _aQuantity :: !Int + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'Aliases' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'aItems' - A complex type that contains the CNAME aliases, if any, that you want to associate with this distribution. +-- +-- * 'aQuantity' - The number of CNAME aliases, if any, that you want to associate with this distribution. +aliases + :: Int -- ^ 'aQuantity' + -> Aliases +aliases pQuantity_ = + Aliases' + { _aItems = Nothing + , _aQuantity = pQuantity_ + } + +-- | A complex type that contains the CNAME aliases, if any, that you want to associate with this distribution. +aItems :: Lens' Aliases [Text] +aItems = lens _aItems (\ s a -> s{_aItems = a}) . _Default . _Coerce; + +-- | The number of CNAME aliases, if any, that you want to associate with this distribution. +aQuantity :: Lens' Aliases Int +aQuantity = lens _aQuantity (\ s a -> s{_aQuantity = a}); + +instance FromXML Aliases where + parseXML x + = Aliases' <$> + (x .@? "Items" .!@ mempty >>= + may (parseXMLList "CNAME")) + <*> (x .@ "Quantity") + +instance Hashable Aliases + +instance NFData Aliases + +instance ToXML Aliases where + toXML Aliases'{..} + = mconcat + ["Items" @= toXML (toXMLList "CNAME" <$> _aItems), + "Quantity" @= _aQuantity] + +-- | A complex type that controls which HTTP methods CloudFront processes and forwards to your Amazon S3 bucket or your custom origin. There are three choices: +-- +-- +-- * CloudFront forwards only @GET@ and @HEAD@ requests. +-- +-- * CloudFront forwards only @GET@ , @HEAD@ , and @OPTIONS@ requests. +-- +-- * CloudFront forwards @GET, HEAD, OPTIONS, PUT, PATCH, POST@ , and @DELETE@ requests. +-- +-- +-- +-- If you pick the third choice, you may need to restrict access to your Amazon S3 bucket or to your custom origin so users can't perform operations that you don't want them to. For example, you might not want users to have permissions to delete objects from your origin. +-- +-- +-- /See:/ 'allowedMethods' smart constructor. +data AllowedMethods = AllowedMethods' + { _amCachedMethods :: !(Maybe CachedMethods) + , _amQuantity :: !Int + , _amItems :: ![Method] + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'AllowedMethods' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'amCachedMethods' - Undocumented member. +-- +-- * 'amQuantity' - The number of HTTP methods that you want CloudFront to forward to your origin. Valid values are 2 (for @GET@ and @HEAD@ requests), 3 (for @GET@ , @HEAD@ , and @OPTIONS@ requests) and 7 (for @GET, HEAD, OPTIONS, PUT, PATCH, POST@ , and @DELETE@ requests). +-- +-- * 'amItems' - A complex type that contains the HTTP methods that you want CloudFront to process and forward to your origin. +allowedMethods + :: Int -- ^ 'amQuantity' + -> AllowedMethods +allowedMethods pQuantity_ = + AllowedMethods' + { _amCachedMethods = Nothing + , _amQuantity = pQuantity_ + , _amItems = mempty + } + +-- | Undocumented member. +amCachedMethods :: Lens' AllowedMethods (Maybe CachedMethods) +amCachedMethods = lens _amCachedMethods (\ s a -> s{_amCachedMethods = a}); + +-- | The number of HTTP methods that you want CloudFront to forward to your origin. Valid values are 2 (for @GET@ and @HEAD@ requests), 3 (for @GET@ , @HEAD@ , and @OPTIONS@ requests) and 7 (for @GET, HEAD, OPTIONS, PUT, PATCH, POST@ , and @DELETE@ requests). +amQuantity :: Lens' AllowedMethods Int +amQuantity = lens _amQuantity (\ s a -> s{_amQuantity = a}); + +-- | A complex type that contains the HTTP methods that you want CloudFront to process and forward to your origin. +amItems :: Lens' AllowedMethods [Method] +amItems = lens _amItems (\ s a -> s{_amItems = a}) . _Coerce; + +instance FromXML AllowedMethods where + parseXML x + = AllowedMethods' <$> + (x .@? "CachedMethods") <*> (x .@ "Quantity") <*> + (x .@? "Items" .!@ mempty >>= parseXMLList "Method") + +instance Hashable AllowedMethods + +instance NFData AllowedMethods + +instance ToXML AllowedMethods where + toXML AllowedMethods'{..} + = mconcat + ["CachedMethods" @= _amCachedMethods, + "Quantity" @= _amQuantity, + "Items" @= toXMLList "Method" _amItems] + +-- | A complex type that describes how CloudFront processes requests. +-- +-- +-- You must create at least as many cache behaviors (including the default cache behavior) as you have origins if you want CloudFront to distribute objects from all of the origins. Each cache behavior specifies the one origin from which you want CloudFront to get objects. If you have two origins and only the default cache behavior, the default cache behavior will cause CloudFront to get objects from one of the origins, but the other origin is never used. +-- +-- For the current limit on the number of cache behaviors that you can add to a distribution, see in the /AWS General Reference/ . +-- +-- If you don't want to specify any cache behaviors, include only an empty @CacheBehaviors@ element. Don't include an empty @CacheBehavior@ element, or CloudFront returns a @MalformedXML@ error. +-- +-- To delete all cache behaviors in an existing distribution, update the distribution configuration and include only an empty @CacheBehaviors@ element. +-- +-- To add, change, or remove one or more cache behaviors, update the distribution configuration and specify all of the cache behaviors that you want to include in the updated distribution. +-- +-- For more information about cache behaviors, see in the /Amazon CloudFront Developer Guide/ . +-- +-- +-- /See:/ 'cacheBehavior' smart constructor. +data CacheBehavior = CacheBehavior' + { _cbAllowedMethods :: !(Maybe AllowedMethods) + , _cbMaxTTL :: !(Maybe Integer) + , _cbCompress :: !(Maybe Bool) + , _cbSmoothStreaming :: !(Maybe Bool) + , _cbDefaultTTL :: !(Maybe Integer) + , _cbPathPattern :: !Text + , _cbTargetOriginId :: !Text + , _cbForwardedValues :: !ForwardedValues + , _cbTrustedSigners :: !TrustedSigners + , _cbViewerProtocolPolicy :: !ViewerProtocolPolicy + , _cbMinTTL :: !Integer + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'CacheBehavior' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'cbAllowedMethods' - Undocumented member. +-- +-- * 'cbMaxTTL' - The maximum amount of time that you want objects to stay in CloudFront caches before CloudFront forwards another request to your origin to determine whether the object has been updated. The value that you specify applies only when your origin adds HTTP headers such as @Cache-Control max-age@ , @Cache-Control s-maxage@ , and @Expires@ to objects. For more information, see in the /Amazon CloudFront Developer Guide/ . +-- +-- * 'cbCompress' - Whether you want CloudFront to automatically compress certain files for this cache behavior. If so, specify true; if not, specify false. For more information, see in the /Amazon CloudFront Developer Guide/ . +-- +-- * 'cbSmoothStreaming' - Indicates whether you want to distribute media files in the Microsoft Smooth Streaming format using the origin that is associated with this cache behavior. If so, specify @true@ ; if not, specify @false@ . If you specify @true@ for @SmoothStreaming@ , you can still distribute other content using this cache behavior if the content matches the value of @PathPattern@ . +-- +-- * 'cbDefaultTTL' - The default amount of time that you want objects to stay in CloudFront caches before CloudFront forwards another request to your origin to determine whether the object has been updated. The value that you specify applies only when your origin does not add HTTP headers such as @Cache-Control max-age@ , @Cache-Control s-maxage@ , and @Expires@ to objects. For more information, see in the /Amazon CloudFront Developer Guide/ . +-- +-- * 'cbPathPattern' - The pattern (for example, @images/*.jpg@ ) that specifies which requests to apply the behavior to. When CloudFront receives a viewer request, the requested path is compared with path patterns in the order in which cache behaviors are listed in the distribution. The path pattern for the default cache behavior is @*@ and cannot be changed. If the request for an object does not match the path pattern for any cache behaviors, CloudFront applies the behavior in the default cache behavior. For more information, see in the /Amazon CloudFront Developer Guide/ . +-- +-- * 'cbTargetOriginId' - The value of @ID@ for the origin that you want CloudFront to route requests to when a request matches the path pattern either for a cache behavior or for the default cache behavior. +-- +-- * 'cbForwardedValues' - A complex type that specifies how CloudFront handles query strings and cookies. +-- +-- * 'cbTrustedSigners' - A complex type that specifies the AWS accounts, if any, that you want to allow to create signed URLs for private content. If you want to require signed URLs in requests for objects in the target origin that match the @PathPattern@ for this cache behavior, specify @true@ for @Enabled@ , and specify the applicable values for @Quantity@ and @Items@ . For more information, see in the /Amazon Amazon CloudFront Developer Guide/ . If you don't want to require signed URLs in requests for objects that match @PathPattern@ , specify @false@ for @Enabled@ and @0@ for @Quantity@ . Omit @Items@ . To add, change, or remove one or more trusted signers, change @Enabled@ to @true@ (if it's currently @false@ ), change @Quantity@ as applicable, and specify all of the trusted signers that you want to include in the updated distribution. +-- +-- * 'cbViewerProtocolPolicy' - The protocol that viewers can use to access the files in the origin specified by @TargetOriginId@ when a request matches the path pattern in @PathPattern@ . You can specify the following options: * @allow-all@ : Viewers can use HTTP or HTTPS. * @redirect-to-https@ : If a viewer submits an HTTP request, CloudFront returns an HTTP status code of 301 (Moved Permanently) to the viewer along with the HTTPS URL. The viewer then resubmits the request using the new URL. * @https-only@ : If a viewer sends an HTTP request, CloudFront returns an HTTP status code of 403 (Forbidden). For more information about requiring the HTTPS protocol, see in the /Amazon CloudFront Developer Guide/ . +-- +-- * 'cbMinTTL' - The minimum amount of time that you want objects to stay in CloudFront caches before CloudFront forwards another request to your origin to determine whether the object has been updated. For more information, see in the /Amazon Amazon CloudFront Developer Guide/ . You must specify @0@ for @MinTTL@ if you configure CloudFront to forward all headers to your origin (under @Headers@ , if you specify @1@ for @Quantity@ and @*@ for @Name@ ). +cacheBehavior + :: Text -- ^ 'cbPathPattern' + -> Text -- ^ 'cbTargetOriginId' + -> ForwardedValues -- ^ 'cbForwardedValues' + -> TrustedSigners -- ^ 'cbTrustedSigners' + -> ViewerProtocolPolicy -- ^ 'cbViewerProtocolPolicy' + -> Integer -- ^ 'cbMinTTL' + -> CacheBehavior +cacheBehavior pPathPattern_ pTargetOriginId_ pForwardedValues_ pTrustedSigners_ pViewerProtocolPolicy_ pMinTTL_ = + CacheBehavior' + { _cbAllowedMethods = Nothing + , _cbMaxTTL = Nothing + , _cbCompress = Nothing + , _cbSmoothStreaming = Nothing + , _cbDefaultTTL = Nothing + , _cbPathPattern = pPathPattern_ + , _cbTargetOriginId = pTargetOriginId_ + , _cbForwardedValues = pForwardedValues_ + , _cbTrustedSigners = pTrustedSigners_ + , _cbViewerProtocolPolicy = pViewerProtocolPolicy_ + , _cbMinTTL = pMinTTL_ + } + +-- | Undocumented member. +cbAllowedMethods :: Lens' CacheBehavior (Maybe AllowedMethods) +cbAllowedMethods = lens _cbAllowedMethods (\ s a -> s{_cbAllowedMethods = a}); + +-- | The maximum amount of time that you want objects to stay in CloudFront caches before CloudFront forwards another request to your origin to determine whether the object has been updated. The value that you specify applies only when your origin adds HTTP headers such as @Cache-Control max-age@ , @Cache-Control s-maxage@ , and @Expires@ to objects. For more information, see in the /Amazon CloudFront Developer Guide/ . +cbMaxTTL :: Lens' CacheBehavior (Maybe Integer) +cbMaxTTL = lens _cbMaxTTL (\ s a -> s{_cbMaxTTL = a}); + +-- | Whether you want CloudFront to automatically compress certain files for this cache behavior. If so, specify true; if not, specify false. For more information, see in the /Amazon CloudFront Developer Guide/ . +cbCompress :: Lens' CacheBehavior (Maybe Bool) +cbCompress = lens _cbCompress (\ s a -> s{_cbCompress = a}); + +-- | Indicates whether you want to distribute media files in the Microsoft Smooth Streaming format using the origin that is associated with this cache behavior. If so, specify @true@ ; if not, specify @false@ . If you specify @true@ for @SmoothStreaming@ , you can still distribute other content using this cache behavior if the content matches the value of @PathPattern@ . +cbSmoothStreaming :: Lens' CacheBehavior (Maybe Bool) +cbSmoothStreaming = lens _cbSmoothStreaming (\ s a -> s{_cbSmoothStreaming = a}); + +-- | The default amount of time that you want objects to stay in CloudFront caches before CloudFront forwards another request to your origin to determine whether the object has been updated. The value that you specify applies only when your origin does not add HTTP headers such as @Cache-Control max-age@ , @Cache-Control s-maxage@ , and @Expires@ to objects. For more information, see in the /Amazon CloudFront Developer Guide/ . +cbDefaultTTL :: Lens' CacheBehavior (Maybe Integer) +cbDefaultTTL = lens _cbDefaultTTL (\ s a -> s{_cbDefaultTTL = a}); + +-- | The pattern (for example, @images/*.jpg@ ) that specifies which requests to apply the behavior to. When CloudFront receives a viewer request, the requested path is compared with path patterns in the order in which cache behaviors are listed in the distribution. The path pattern for the default cache behavior is @*@ and cannot be changed. If the request for an object does not match the path pattern for any cache behaviors, CloudFront applies the behavior in the default cache behavior. For more information, see in the /Amazon CloudFront Developer Guide/ . +cbPathPattern :: Lens' CacheBehavior Text +cbPathPattern = lens _cbPathPattern (\ s a -> s{_cbPathPattern = a}); + +-- | The value of @ID@ for the origin that you want CloudFront to route requests to when a request matches the path pattern either for a cache behavior or for the default cache behavior. +cbTargetOriginId :: Lens' CacheBehavior Text +cbTargetOriginId = lens _cbTargetOriginId (\ s a -> s{_cbTargetOriginId = a}); + +-- | A complex type that specifies how CloudFront handles query strings and cookies. +cbForwardedValues :: Lens' CacheBehavior ForwardedValues +cbForwardedValues = lens _cbForwardedValues (\ s a -> s{_cbForwardedValues = a}); + +-- | A complex type that specifies the AWS accounts, if any, that you want to allow to create signed URLs for private content. If you want to require signed URLs in requests for objects in the target origin that match the @PathPattern@ for this cache behavior, specify @true@ for @Enabled@ , and specify the applicable values for @Quantity@ and @Items@ . For more information, see in the /Amazon Amazon CloudFront Developer Guide/ . If you don't want to require signed URLs in requests for objects that match @PathPattern@ , specify @false@ for @Enabled@ and @0@ for @Quantity@ . Omit @Items@ . To add, change, or remove one or more trusted signers, change @Enabled@ to @true@ (if it's currently @false@ ), change @Quantity@ as applicable, and specify all of the trusted signers that you want to include in the updated distribution. +cbTrustedSigners :: Lens' CacheBehavior TrustedSigners +cbTrustedSigners = lens _cbTrustedSigners (\ s a -> s{_cbTrustedSigners = a}); + +-- | The protocol that viewers can use to access the files in the origin specified by @TargetOriginId@ when a request matches the path pattern in @PathPattern@ . You can specify the following options: * @allow-all@ : Viewers can use HTTP or HTTPS. * @redirect-to-https@ : If a viewer submits an HTTP request, CloudFront returns an HTTP status code of 301 (Moved Permanently) to the viewer along with the HTTPS URL. The viewer then resubmits the request using the new URL. * @https-only@ : If a viewer sends an HTTP request, CloudFront returns an HTTP status code of 403 (Forbidden). For more information about requiring the HTTPS protocol, see in the /Amazon CloudFront Developer Guide/ . +cbViewerProtocolPolicy :: Lens' CacheBehavior ViewerProtocolPolicy +cbViewerProtocolPolicy = lens _cbViewerProtocolPolicy (\ s a -> s{_cbViewerProtocolPolicy = a}); + +-- | The minimum amount of time that you want objects to stay in CloudFront caches before CloudFront forwards another request to your origin to determine whether the object has been updated. For more information, see in the /Amazon Amazon CloudFront Developer Guide/ . You must specify @0@ for @MinTTL@ if you configure CloudFront to forward all headers to your origin (under @Headers@ , if you specify @1@ for @Quantity@ and @*@ for @Name@ ). +cbMinTTL :: Lens' CacheBehavior Integer +cbMinTTL = lens _cbMinTTL (\ s a -> s{_cbMinTTL = a}); + +instance FromXML CacheBehavior where + parseXML x + = CacheBehavior' <$> + (x .@? "AllowedMethods") <*> (x .@? "MaxTTL") <*> + (x .@? "Compress") + <*> (x .@? "SmoothStreaming") + <*> (x .@? "DefaultTTL") + <*> (x .@ "PathPattern") + <*> (x .@ "TargetOriginId") + <*> (x .@ "ForwardedValues") + <*> (x .@ "TrustedSigners") + <*> (x .@ "ViewerProtocolPolicy") + <*> (x .@ "MinTTL") + +instance Hashable CacheBehavior + +instance NFData CacheBehavior + +instance ToXML CacheBehavior where + toXML CacheBehavior'{..} + = mconcat + ["AllowedMethods" @= _cbAllowedMethods, + "MaxTTL" @= _cbMaxTTL, "Compress" @= _cbCompress, + "SmoothStreaming" @= _cbSmoothStreaming, + "DefaultTTL" @= _cbDefaultTTL, + "PathPattern" @= _cbPathPattern, + "TargetOriginId" @= _cbTargetOriginId, + "ForwardedValues" @= _cbForwardedValues, + "TrustedSigners" @= _cbTrustedSigners, + "ViewerProtocolPolicy" @= _cbViewerProtocolPolicy, + "MinTTL" @= _cbMinTTL] + +-- | A complex type that contains zero or more @CacheBehavior@ elements. +-- +-- +-- +-- /See:/ 'cacheBehaviors' smart constructor. +data CacheBehaviors = CacheBehaviors' + { _cbItems :: !(Maybe [CacheBehavior]) + , _cbQuantity :: !Int + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'CacheBehaviors' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'cbItems' - Optional: A complex type that contains cache behaviors for this distribution. If @Quantity@ is @0@ , you can omit @Items@ . +-- +-- * 'cbQuantity' - The number of cache behaviors for this distribution. +cacheBehaviors + :: Int -- ^ 'cbQuantity' + -> CacheBehaviors +cacheBehaviors pQuantity_ = + CacheBehaviors' + { _cbItems = Nothing + , _cbQuantity = pQuantity_ + } + +-- | Optional: A complex type that contains cache behaviors for this distribution. If @Quantity@ is @0@ , you can omit @Items@ . +cbItems :: Lens' CacheBehaviors [CacheBehavior] +cbItems = lens _cbItems (\ s a -> s{_cbItems = a}) . _Default . _Coerce; + +-- | The number of cache behaviors for this distribution. +cbQuantity :: Lens' CacheBehaviors Int +cbQuantity = lens _cbQuantity (\ s a -> s{_cbQuantity = a}); + +instance FromXML CacheBehaviors where + parseXML x + = CacheBehaviors' <$> + (x .@? "Items" .!@ mempty >>= + may (parseXMLList "CacheBehavior")) + <*> (x .@ "Quantity") + +instance Hashable CacheBehaviors + +instance NFData CacheBehaviors + +instance ToXML CacheBehaviors where + toXML CacheBehaviors'{..} + = mconcat + ["Items" @= + toXML (toXMLList "CacheBehavior" <$> _cbItems), + "Quantity" @= _cbQuantity] + +-- | A complex type that controls whether CloudFront caches the response to requests using the specified HTTP methods. There are two choices: +-- +-- +-- * CloudFront caches responses to @GET@ and @HEAD@ requests. +-- +-- * CloudFront caches responses to @GET@ , @HEAD@ , and @OPTIONS@ requests. +-- +-- +-- +-- If you pick the second choice for your Amazon S3 Origin, you may need to forward Access-Control-Request-Method, Access-Control-Request-Headers, and Origin headers for the responses to be cached correctly. +-- +-- +-- /See:/ 'cachedMethods' smart constructor. +data CachedMethods = CachedMethods' + { _cmQuantity :: !Int + , _cmItems :: ![Method] + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'CachedMethods' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'cmQuantity' - The number of HTTP methods for which you want CloudFront to cache responses. Valid values are @2@ (for caching responses to @GET@ and @HEAD@ requests) and @3@ (for caching responses to @GET@ , @HEAD@ , and @OPTIONS@ requests). +-- +-- * 'cmItems' - A complex type that contains the HTTP methods that you want CloudFront to cache responses to. +cachedMethods + :: Int -- ^ 'cmQuantity' + -> CachedMethods +cachedMethods pQuantity_ = + CachedMethods' + { _cmQuantity = pQuantity_ + , _cmItems = mempty + } + +-- | The number of HTTP methods for which you want CloudFront to cache responses. Valid values are @2@ (for caching responses to @GET@ and @HEAD@ requests) and @3@ (for caching responses to @GET@ , @HEAD@ , and @OPTIONS@ requests). +cmQuantity :: Lens' CachedMethods Int +cmQuantity = lens _cmQuantity (\ s a -> s{_cmQuantity = a}); + +-- | A complex type that contains the HTTP methods that you want CloudFront to cache responses to. +cmItems :: Lens' CachedMethods [Method] +cmItems = lens _cmItems (\ s a -> s{_cmItems = a}) . _Coerce; + +instance FromXML CachedMethods where + parseXML x + = CachedMethods' <$> + (x .@ "Quantity") <*> + (x .@? "Items" .!@ mempty >>= parseXMLList "Method") + +instance Hashable CachedMethods + +instance NFData CachedMethods + +instance ToXML CachedMethods where + toXML CachedMethods'{..} + = mconcat + ["Quantity" @= _cmQuantity, + "Items" @= toXMLList "Method" _cmItems] + +-- | CloudFront origin access identity. +-- +-- +-- +-- /See:/ 'cloudFrontOriginAccessIdentity' smart constructor. +data CloudFrontOriginAccessIdentity = CloudFrontOriginAccessIdentity' + { _cfoaiCloudFrontOriginAccessIdentityConfig :: !(Maybe CloudFrontOriginAccessIdentityConfig) + , _cfoaiId :: !Text + , _cfoaiS3CanonicalUserId :: !Text + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'CloudFrontOriginAccessIdentity' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'cfoaiCloudFrontOriginAccessIdentityConfig' - The current configuration information for the identity. +-- +-- * 'cfoaiId' - The ID for the origin access identity. For example: @E74FTE3AJFJ256A@ . +-- +-- * 'cfoaiS3CanonicalUserId' - The Amazon S3 canonical user ID for the origin access identity, used when giving the origin access identity read permission to an object in Amazon S3. +cloudFrontOriginAccessIdentity + :: Text -- ^ 'cfoaiId' + -> Text -- ^ 'cfoaiS3CanonicalUserId' + -> CloudFrontOriginAccessIdentity +cloudFrontOriginAccessIdentity pId_ pS3CanonicalUserId_ = + CloudFrontOriginAccessIdentity' + { _cfoaiCloudFrontOriginAccessIdentityConfig = Nothing + , _cfoaiId = pId_ + , _cfoaiS3CanonicalUserId = pS3CanonicalUserId_ + } + +-- | The current configuration information for the identity. +cfoaiCloudFrontOriginAccessIdentityConfig :: Lens' CloudFrontOriginAccessIdentity (Maybe CloudFrontOriginAccessIdentityConfig) +cfoaiCloudFrontOriginAccessIdentityConfig = lens _cfoaiCloudFrontOriginAccessIdentityConfig (\ s a -> s{_cfoaiCloudFrontOriginAccessIdentityConfig = a}); + +-- | The ID for the origin access identity. For example: @E74FTE3AJFJ256A@ . +cfoaiId :: Lens' CloudFrontOriginAccessIdentity Text +cfoaiId = lens _cfoaiId (\ s a -> s{_cfoaiId = a}); + +-- | The Amazon S3 canonical user ID for the origin access identity, used when giving the origin access identity read permission to an object in Amazon S3. +cfoaiS3CanonicalUserId :: Lens' CloudFrontOriginAccessIdentity Text +cfoaiS3CanonicalUserId = lens _cfoaiS3CanonicalUserId (\ s a -> s{_cfoaiS3CanonicalUserId = a}); + +instance FromXML CloudFrontOriginAccessIdentity where + parseXML x + = CloudFrontOriginAccessIdentity' <$> + (x .@? "CloudFrontOriginAccessIdentityConfig") <*> + (x .@ "Id") + <*> (x .@ "S3CanonicalUserId") + +instance Hashable CloudFrontOriginAccessIdentity + +instance NFData CloudFrontOriginAccessIdentity + +-- | Origin access identity configuration. Send a @GET@ request to the @//CloudFront API version/ /CloudFront/identity ID/config@ resource. +-- +-- +-- +-- /See:/ 'cloudFrontOriginAccessIdentityConfig' smart constructor. +data CloudFrontOriginAccessIdentityConfig = CloudFrontOriginAccessIdentityConfig' + { _cfoaicCallerReference :: !Text + , _cfoaicComment :: !Text + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'CloudFrontOriginAccessIdentityConfig' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'cfoaicCallerReference' - A unique number that ensures the request can't be replayed. If the @CallerReference@ is new (no matter the content of the @CloudFrontOriginAccessIdentityConfig@ object), a new origin access identity is created. If the @CallerReference@ is a value already sent in a previous identity request, and the content of the @CloudFrontOriginAccessIdentityConfig@ is identical to the original request (ignoring white space), the response includes the same information returned to the original request. If the @CallerReference@ is a value you already sent in a previous request to create an identity, but the content of the @CloudFrontOriginAccessIdentityConfig@ is different from the original request, CloudFront returns a @CloudFrontOriginAccessIdentityAlreadyExists@ error. +-- +-- * 'cfoaicComment' - Any comments you want to include about the origin access identity. +cloudFrontOriginAccessIdentityConfig + :: Text -- ^ 'cfoaicCallerReference' + -> Text -- ^ 'cfoaicComment' + -> CloudFrontOriginAccessIdentityConfig +cloudFrontOriginAccessIdentityConfig pCallerReference_ pComment_ = + CloudFrontOriginAccessIdentityConfig' + { _cfoaicCallerReference = pCallerReference_ + , _cfoaicComment = pComment_ + } + +-- | A unique number that ensures the request can't be replayed. If the @CallerReference@ is new (no matter the content of the @CloudFrontOriginAccessIdentityConfig@ object), a new origin access identity is created. If the @CallerReference@ is a value already sent in a previous identity request, and the content of the @CloudFrontOriginAccessIdentityConfig@ is identical to the original request (ignoring white space), the response includes the same information returned to the original request. If the @CallerReference@ is a value you already sent in a previous request to create an identity, but the content of the @CloudFrontOriginAccessIdentityConfig@ is different from the original request, CloudFront returns a @CloudFrontOriginAccessIdentityAlreadyExists@ error. +cfoaicCallerReference :: Lens' CloudFrontOriginAccessIdentityConfig Text +cfoaicCallerReference = lens _cfoaicCallerReference (\ s a -> s{_cfoaicCallerReference = a}); + +-- | Any comments you want to include about the origin access identity. +cfoaicComment :: Lens' CloudFrontOriginAccessIdentityConfig Text +cfoaicComment = lens _cfoaicComment (\ s a -> s{_cfoaicComment = a}); + +instance FromXML CloudFrontOriginAccessIdentityConfig + where + parseXML x + = CloudFrontOriginAccessIdentityConfig' <$> + (x .@ "CallerReference") <*> (x .@ "Comment") + +instance Hashable + CloudFrontOriginAccessIdentityConfig + +instance NFData CloudFrontOriginAccessIdentityConfig + +instance ToXML CloudFrontOriginAccessIdentityConfig + where + toXML CloudFrontOriginAccessIdentityConfig'{..} + = mconcat + ["CallerReference" @= _cfoaicCallerReference, + "Comment" @= _cfoaicComment] + +-- | Lists the origin access identities for CloudFront.Send a @GET@ request to the @//CloudFront API version/ /origin-access-identity/cloudfront@ resource. The response includes a @CloudFrontOriginAccessIdentityList@ element with zero or more @CloudFrontOriginAccessIdentitySummary@ child elements. By default, your entire list of origin access identities is returned in one single page. If the list is long, you can paginate it using the @MaxItems@ and @Marker@ parameters. +-- +-- +-- +-- /See:/ 'cloudFrontOriginAccessIdentityList' smart constructor. +data CloudFrontOriginAccessIdentityList = CloudFrontOriginAccessIdentityList' + { _cfoailItems :: !(Maybe [CloudFrontOriginAccessIdentitySummary]) + , _cfoailNextMarker :: !(Maybe Text) + , _cfoailMarker :: !Text + , _cfoailMaxItems :: !Int + , _cfoailIsTruncated :: !Bool + , _cfoailQuantity :: !Int + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'CloudFrontOriginAccessIdentityList' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'cfoailItems' - A complex type that contains one @CloudFrontOriginAccessIdentitySummary@ element for each origin access identity that was created by the current AWS account. +-- +-- * 'cfoailNextMarker' - If @IsTruncated@ is @true@ , this element is present and contains the value you can use for the @Marker@ request parameter to continue listing your origin access identities where they left off. +-- +-- * 'cfoailMarker' - Use this when paginating results to indicate where to begin in your list of origin access identities. The results include identities in the list that occur after the marker. To get the next page of results, set the @Marker@ to the value of the @NextMarker@ from the current page's response (which is also the ID of the last identity on that page). +-- +-- * 'cfoailMaxItems' - The maximum number of origin access identities you want in the response body. +-- +-- * 'cfoailIsTruncated' - A flag that indicates whether more origin access identities remain to be listed. If your results were truncated, you can make a follow-up pagination request using the @Marker@ request parameter to retrieve more items in the list. +-- +-- * 'cfoailQuantity' - The number of CloudFront origin access identities that were created by the current AWS account. +cloudFrontOriginAccessIdentityList + :: Text -- ^ 'cfoailMarker' + -> Int -- ^ 'cfoailMaxItems' + -> Bool -- ^ 'cfoailIsTruncated' + -> Int -- ^ 'cfoailQuantity' + -> CloudFrontOriginAccessIdentityList +cloudFrontOriginAccessIdentityList pMarker_ pMaxItems_ pIsTruncated_ pQuantity_ = + CloudFrontOriginAccessIdentityList' + { _cfoailItems = Nothing + , _cfoailNextMarker = Nothing + , _cfoailMarker = pMarker_ + , _cfoailMaxItems = pMaxItems_ + , _cfoailIsTruncated = pIsTruncated_ + , _cfoailQuantity = pQuantity_ + } + +-- | A complex type that contains one @CloudFrontOriginAccessIdentitySummary@ element for each origin access identity that was created by the current AWS account. +cfoailItems :: Lens' CloudFrontOriginAccessIdentityList [CloudFrontOriginAccessIdentitySummary] +cfoailItems = lens _cfoailItems (\ s a -> s{_cfoailItems = a}) . _Default . _Coerce; + +-- | If @IsTruncated@ is @true@ , this element is present and contains the value you can use for the @Marker@ request parameter to continue listing your origin access identities where they left off. +cfoailNextMarker :: Lens' CloudFrontOriginAccessIdentityList (Maybe Text) +cfoailNextMarker = lens _cfoailNextMarker (\ s a -> s{_cfoailNextMarker = a}); + +-- | Use this when paginating results to indicate where to begin in your list of origin access identities. The results include identities in the list that occur after the marker. To get the next page of results, set the @Marker@ to the value of the @NextMarker@ from the current page's response (which is also the ID of the last identity on that page). +cfoailMarker :: Lens' CloudFrontOriginAccessIdentityList Text +cfoailMarker = lens _cfoailMarker (\ s a -> s{_cfoailMarker = a}); + +-- | The maximum number of origin access identities you want in the response body. +cfoailMaxItems :: Lens' CloudFrontOriginAccessIdentityList Int +cfoailMaxItems = lens _cfoailMaxItems (\ s a -> s{_cfoailMaxItems = a}); + +-- | A flag that indicates whether more origin access identities remain to be listed. If your results were truncated, you can make a follow-up pagination request using the @Marker@ request parameter to retrieve more items in the list. +cfoailIsTruncated :: Lens' CloudFrontOriginAccessIdentityList Bool +cfoailIsTruncated = lens _cfoailIsTruncated (\ s a -> s{_cfoailIsTruncated = a}); + +-- | The number of CloudFront origin access identities that were created by the current AWS account. +cfoailQuantity :: Lens' CloudFrontOriginAccessIdentityList Int +cfoailQuantity = lens _cfoailQuantity (\ s a -> s{_cfoailQuantity = a}); + +instance FromXML CloudFrontOriginAccessIdentityList + where + parseXML x + = CloudFrontOriginAccessIdentityList' <$> + (x .@? "Items" .!@ mempty >>= + may + (parseXMLList + "CloudFrontOriginAccessIdentitySummary")) + <*> (x .@? "NextMarker") + <*> (x .@ "Marker") + <*> (x .@ "MaxItems") + <*> (x .@ "IsTruncated") + <*> (x .@ "Quantity") + +instance Hashable CloudFrontOriginAccessIdentityList + +instance NFData CloudFrontOriginAccessIdentityList + +-- | Summary of the information about a CloudFront origin access identity. +-- +-- +-- +-- /See:/ 'cloudFrontOriginAccessIdentitySummary' smart constructor. +data CloudFrontOriginAccessIdentitySummary = CloudFrontOriginAccessIdentitySummary' + { _cfoaisId :: !Text + , _cfoaisS3CanonicalUserId :: !Text + , _cfoaisComment :: !Text + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'CloudFrontOriginAccessIdentitySummary' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'cfoaisId' - The ID for the origin access identity. For example: @E74FTE3AJFJ256A@ . +-- +-- * 'cfoaisS3CanonicalUserId' - The Amazon S3 canonical user ID for the origin access identity, which you use when giving the origin access identity read permission to an object in Amazon S3. +-- +-- * 'cfoaisComment' - The comment for this origin access identity, as originally specified when created. +cloudFrontOriginAccessIdentitySummary + :: Text -- ^ 'cfoaisId' + -> Text -- ^ 'cfoaisS3CanonicalUserId' + -> Text -- ^ 'cfoaisComment' + -> CloudFrontOriginAccessIdentitySummary +cloudFrontOriginAccessIdentitySummary pId_ pS3CanonicalUserId_ pComment_ = + CloudFrontOriginAccessIdentitySummary' + { _cfoaisId = pId_ + , _cfoaisS3CanonicalUserId = pS3CanonicalUserId_ + , _cfoaisComment = pComment_ + } + +-- | The ID for the origin access identity. For example: @E74FTE3AJFJ256A@ . +cfoaisId :: Lens' CloudFrontOriginAccessIdentitySummary Text +cfoaisId = lens _cfoaisId (\ s a -> s{_cfoaisId = a}); + +-- | The Amazon S3 canonical user ID for the origin access identity, which you use when giving the origin access identity read permission to an object in Amazon S3. +cfoaisS3CanonicalUserId :: Lens' CloudFrontOriginAccessIdentitySummary Text +cfoaisS3CanonicalUserId = lens _cfoaisS3CanonicalUserId (\ s a -> s{_cfoaisS3CanonicalUserId = a}); + +-- | The comment for this origin access identity, as originally specified when created. +cfoaisComment :: Lens' CloudFrontOriginAccessIdentitySummary Text +cfoaisComment = lens _cfoaisComment (\ s a -> s{_cfoaisComment = a}); + +instance FromXML + CloudFrontOriginAccessIdentitySummary where + parseXML x + = CloudFrontOriginAccessIdentitySummary' <$> + (x .@ "Id") <*> (x .@ "S3CanonicalUserId") <*> + (x .@ "Comment") + +instance Hashable + CloudFrontOriginAccessIdentitySummary + +instance NFData CloudFrontOriginAccessIdentitySummary + +-- | A complex type that specifies whether you want CloudFront to forward cookies to the origin and, if so, which ones. For more information about forwarding cookies to the origin, see in the /Amazon CloudFront Developer Guide/ . +-- +-- +-- +-- /See:/ 'cookieNames' smart constructor. +data CookieNames = CookieNames' + { _cnItems :: !(Maybe [Text]) + , _cnQuantity :: !Int + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'CookieNames' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'cnItems' - A complex type that contains one @Name@ element for each cookie that you want CloudFront to forward to the origin for this cache behavior. +-- +-- * 'cnQuantity' - The number of different cookies that you want CloudFront to forward to the origin for this cache behavior. +cookieNames + :: Int -- ^ 'cnQuantity' + -> CookieNames +cookieNames pQuantity_ = + CookieNames' + { _cnItems = Nothing + , _cnQuantity = pQuantity_ + } + +-- | A complex type that contains one @Name@ element for each cookie that you want CloudFront to forward to the origin for this cache behavior. +cnItems :: Lens' CookieNames [Text] +cnItems = lens _cnItems (\ s a -> s{_cnItems = a}) . _Default . _Coerce; + +-- | The number of different cookies that you want CloudFront to forward to the origin for this cache behavior. +cnQuantity :: Lens' CookieNames Int +cnQuantity = lens _cnQuantity (\ s a -> s{_cnQuantity = a}); + +instance FromXML CookieNames where + parseXML x + = CookieNames' <$> + (x .@? "Items" .!@ mempty >>= + may (parseXMLList "Name")) + <*> (x .@ "Quantity") + +instance Hashable CookieNames + +instance NFData CookieNames + +instance ToXML CookieNames where + toXML CookieNames'{..} + = mconcat + ["Items" @= toXML (toXMLList "Name" <$> _cnItems), + "Quantity" @= _cnQuantity] + +-- | A complex type that specifies whether you want CloudFront to forward cookies to the origin and, if so, which ones. For more information about forwarding cookies to the origin, see in the /Amazon CloudFront Developer Guide/ . +-- +-- +-- +-- /See:/ 'cookiePreference' smart constructor. +data CookiePreference = CookiePreference' + { _cpWhitelistedNames :: !(Maybe CookieNames) + , _cpForward :: !ItemSelection + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'CookiePreference' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'cpWhitelistedNames' - Required if you specify @whitelist@ for the value of @Forward:@ . A complex type that specifies how many different cookies you want CloudFront to forward to the origin for this cache behavior and, if you want to forward selected cookies, the names of those cookies. If you specify @all@ or none for the value of @Forward@ , omit @WhitelistedNames@ . If you change the value of @Forward@ from @whitelist@ to all or none and you don't delete the @WhitelistedNames@ element and its child elements, CloudFront deletes them automatically. For the current limit on the number of cookie names that you can whitelist for each cache behavior, see in the /AWS General Reference/ . +-- +-- * 'cpForward' - Specifies which cookies to forward to the origin for this cache behavior: all, none, or the list of cookies specified in the @WhitelistedNames@ complex type. Amazon S3 doesn't process cookies. When the cache behavior is forwarding requests to an Amazon S3 origin, specify none for the @Forward@ element. +cookiePreference + :: ItemSelection -- ^ 'cpForward' + -> CookiePreference +cookiePreference pForward_ = + CookiePreference' + { _cpWhitelistedNames = Nothing + , _cpForward = pForward_ + } + +-- | Required if you specify @whitelist@ for the value of @Forward:@ . A complex type that specifies how many different cookies you want CloudFront to forward to the origin for this cache behavior and, if you want to forward selected cookies, the names of those cookies. If you specify @all@ or none for the value of @Forward@ , omit @WhitelistedNames@ . If you change the value of @Forward@ from @whitelist@ to all or none and you don't delete the @WhitelistedNames@ element and its child elements, CloudFront deletes them automatically. For the current limit on the number of cookie names that you can whitelist for each cache behavior, see in the /AWS General Reference/ . +cpWhitelistedNames :: Lens' CookiePreference (Maybe CookieNames) +cpWhitelistedNames = lens _cpWhitelistedNames (\ s a -> s{_cpWhitelistedNames = a}); + +-- | Specifies which cookies to forward to the origin for this cache behavior: all, none, or the list of cookies specified in the @WhitelistedNames@ complex type. Amazon S3 doesn't process cookies. When the cache behavior is forwarding requests to an Amazon S3 origin, specify none for the @Forward@ element. +cpForward :: Lens' CookiePreference ItemSelection +cpForward = lens _cpForward (\ s a -> s{_cpForward = a}); + +instance FromXML CookiePreference where + parseXML x + = CookiePreference' <$> + (x .@? "WhitelistedNames") <*> (x .@ "Forward") + +instance Hashable CookiePreference + +instance NFData CookiePreference + +instance ToXML CookiePreference where + toXML CookiePreference'{..} + = mconcat + ["WhitelistedNames" @= _cpWhitelistedNames, + "Forward" @= _cpForward] + +-- | A complex type that controls: +-- +-- +-- * Whether CloudFront replaces HTTP status codes in the 4xx and 5xx range with custom error messages before returning the response to the viewer. +-- +-- * How long CloudFront caches HTTP status codes in the 4xx and 5xx range. +-- +-- +-- +-- For more information about custom error pages, see in the /Amazon CloudFront Developer Guide/ . +-- +-- +-- /See:/ 'customErrorResponse' smart constructor. +data CustomErrorResponse = CustomErrorResponse' + { _ceResponsePagePath :: !(Maybe Text) + , _ceResponseCode :: !(Maybe Text) + , _ceErrorCachingMinTTL :: !(Maybe Integer) + , _ceErrorCode :: !Int + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'CustomErrorResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ceResponsePagePath' - The path to the custom error page that you want CloudFront to return to a viewer when your origin returns the HTTP status code specified by @ErrorCode@ , for example, @/4xx-errors/403-forbidden.html@ . If you want to store your objects and your custom error pages in different locations, your distribution must include a cache behavior for which the following is true: * The value of @PathPattern@ matches the path to your custom error messages. For example, suppose you saved custom error pages for 4xx errors in an Amazon S3 bucket in a directory named @/4xx-errors@ . Your distribution must include a cache behavior for which the path pattern routes requests for your custom error pages to that location, for example, @/4xx-errors/*@ . * The value of @TargetOriginId@ specifies the value of the @ID@ element for the origin that contains your custom error pages. If you specify a value for @ResponsePagePath@ , you must also specify a value for @ResponseCode@ . If you don't want to specify a value, include an empty element, @@ , in the XML document. We recommend that you store custom error pages in an Amazon S3 bucket. If you store custom error pages on an HTTP server and the server starts to return 5xx errors, CloudFront can't get the files that you want to return to viewers because the origin server is unavailable. +-- +-- * 'ceResponseCode' - The HTTP status code that you want CloudFront to return to the viewer along with the custom error page. There are a variety of reasons that you might want CloudFront to return a status code different from the status code that your origin returned to CloudFront, for example: * Some Internet devices (some firewalls and corporate proxies, for example) intercept HTTP 4xx and 5xx and prevent the response from being returned to the viewer. If you substitute @200@ , the response typically won't be intercepted. * If you don't care about distinguishing among different client errors or server errors, you can specify @400@ or @500@ as the @ResponseCode@ for all 4xx or 5xx errors. * You might want to return a @200@ status code (OK) and static website so your customers don't know that your website is down. If you specify a value for @ResponseCode@ , you must also specify a value for @ResponsePagePath@ . If you don't want to specify a value, include an empty element, @@ , in the XML document. +-- +-- * 'ceErrorCachingMinTTL' - The minimum amount of time, in seconds, that you want CloudFront to cache the HTTP status code specified in @ErrorCode@ . When this time period has elapsed, CloudFront queries your origin to see whether the problem that caused the error has been resolved and the requested object is now available. If you don't want to specify a value, include an empty element, @@ , in the XML document. For more information, see in the /Amazon CloudFront Developer Guide/ . +-- +-- * 'ceErrorCode' - The HTTP status code for which you want to specify a custom error page and/or a caching duration. +customErrorResponse + :: Int -- ^ 'ceErrorCode' + -> CustomErrorResponse +customErrorResponse pErrorCode_ = + CustomErrorResponse' + { _ceResponsePagePath = Nothing + , _ceResponseCode = Nothing + , _ceErrorCachingMinTTL = Nothing + , _ceErrorCode = pErrorCode_ + } + +-- | The path to the custom error page that you want CloudFront to return to a viewer when your origin returns the HTTP status code specified by @ErrorCode@ , for example, @/4xx-errors/403-forbidden.html@ . If you want to store your objects and your custom error pages in different locations, your distribution must include a cache behavior for which the following is true: * The value of @PathPattern@ matches the path to your custom error messages. For example, suppose you saved custom error pages for 4xx errors in an Amazon S3 bucket in a directory named @/4xx-errors@ . Your distribution must include a cache behavior for which the path pattern routes requests for your custom error pages to that location, for example, @/4xx-errors/*@ . * The value of @TargetOriginId@ specifies the value of the @ID@ element for the origin that contains your custom error pages. If you specify a value for @ResponsePagePath@ , you must also specify a value for @ResponseCode@ . If you don't want to specify a value, include an empty element, @@ , in the XML document. We recommend that you store custom error pages in an Amazon S3 bucket. If you store custom error pages on an HTTP server and the server starts to return 5xx errors, CloudFront can't get the files that you want to return to viewers because the origin server is unavailable. +ceResponsePagePath :: Lens' CustomErrorResponse (Maybe Text) +ceResponsePagePath = lens _ceResponsePagePath (\ s a -> s{_ceResponsePagePath = a}); + +-- | The HTTP status code that you want CloudFront to return to the viewer along with the custom error page. There are a variety of reasons that you might want CloudFront to return a status code different from the status code that your origin returned to CloudFront, for example: * Some Internet devices (some firewalls and corporate proxies, for example) intercept HTTP 4xx and 5xx and prevent the response from being returned to the viewer. If you substitute @200@ , the response typically won't be intercepted. * If you don't care about distinguishing among different client errors or server errors, you can specify @400@ or @500@ as the @ResponseCode@ for all 4xx or 5xx errors. * You might want to return a @200@ status code (OK) and static website so your customers don't know that your website is down. If you specify a value for @ResponseCode@ , you must also specify a value for @ResponsePagePath@ . If you don't want to specify a value, include an empty element, @@ , in the XML document. +ceResponseCode :: Lens' CustomErrorResponse (Maybe Text) +ceResponseCode = lens _ceResponseCode (\ s a -> s{_ceResponseCode = a}); + +-- | The minimum amount of time, in seconds, that you want CloudFront to cache the HTTP status code specified in @ErrorCode@ . When this time period has elapsed, CloudFront queries your origin to see whether the problem that caused the error has been resolved and the requested object is now available. If you don't want to specify a value, include an empty element, @@ , in the XML document. For more information, see in the /Amazon CloudFront Developer Guide/ . +ceErrorCachingMinTTL :: Lens' CustomErrorResponse (Maybe Integer) +ceErrorCachingMinTTL = lens _ceErrorCachingMinTTL (\ s a -> s{_ceErrorCachingMinTTL = a}); + +-- | The HTTP status code for which you want to specify a custom error page and/or a caching duration. +ceErrorCode :: Lens' CustomErrorResponse Int +ceErrorCode = lens _ceErrorCode (\ s a -> s{_ceErrorCode = a}); + +instance FromXML CustomErrorResponse where + parseXML x + = CustomErrorResponse' <$> + (x .@? "ResponsePagePath") <*> (x .@? "ResponseCode") + <*> (x .@? "ErrorCachingMinTTL") + <*> (x .@ "ErrorCode") + +instance Hashable CustomErrorResponse + +instance NFData CustomErrorResponse + +instance ToXML CustomErrorResponse where + toXML CustomErrorResponse'{..} + = mconcat + ["ResponsePagePath" @= _ceResponsePagePath, + "ResponseCode" @= _ceResponseCode, + "ErrorCachingMinTTL" @= _ceErrorCachingMinTTL, + "ErrorCode" @= _ceErrorCode] + +-- | A complex type that controls: +-- +-- +-- * Whether CloudFront replaces HTTP status codes in the 4xx and 5xx range with custom error messages before returning the response to the viewer. +-- +-- * How long CloudFront caches HTTP status codes in the 4xx and 5xx range. +-- +-- +-- +-- For more information about custom error pages, see in the /Amazon CloudFront Developer Guide/ . +-- +-- +-- /See:/ 'customErrorResponses' smart constructor. +data CustomErrorResponses = CustomErrorResponses' + { _cerItems :: !(Maybe [CustomErrorResponse]) + , _cerQuantity :: !Int + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'CustomErrorResponses' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'cerItems' - A complex type that contains a @CustomErrorResponse@ element for each HTTP status code for which you want to specify a custom error page and/or a caching duration. +-- +-- * 'cerQuantity' - The number of HTTP status codes for which you want to specify a custom error page and/or a caching duration. If @Quantity@ is @0@ , you can omit @Items@ . +customErrorResponses + :: Int -- ^ 'cerQuantity' + -> CustomErrorResponses +customErrorResponses pQuantity_ = + CustomErrorResponses' + { _cerItems = Nothing + , _cerQuantity = pQuantity_ + } + +-- | A complex type that contains a @CustomErrorResponse@ element for each HTTP status code for which you want to specify a custom error page and/or a caching duration. +cerItems :: Lens' CustomErrorResponses [CustomErrorResponse] +cerItems = lens _cerItems (\ s a -> s{_cerItems = a}) . _Default . _Coerce; + +-- | The number of HTTP status codes for which you want to specify a custom error page and/or a caching duration. If @Quantity@ is @0@ , you can omit @Items@ . +cerQuantity :: Lens' CustomErrorResponses Int +cerQuantity = lens _cerQuantity (\ s a -> s{_cerQuantity = a}); + +instance FromXML CustomErrorResponses where + parseXML x + = CustomErrorResponses' <$> + (x .@? "Items" .!@ mempty >>= + may (parseXMLList "CustomErrorResponse")) + <*> (x .@ "Quantity") + +instance Hashable CustomErrorResponses + +instance NFData CustomErrorResponses + +instance ToXML CustomErrorResponses where + toXML CustomErrorResponses'{..} + = mconcat + ["Items" @= + toXML + (toXMLList "CustomErrorResponse" <$> _cerItems), + "Quantity" @= _cerQuantity] + +-- | A complex type that contains the list of Custom Headers for each origin. +-- +-- +-- +-- /See:/ 'customHeaders' smart constructor. +data CustomHeaders = CustomHeaders' + { _chItems :: !(Maybe [OriginCustomHeader]) + , _chQuantity :: !Int + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'CustomHeaders' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'chItems' - __Optional__ : A list that contains one @OriginCustomHeader@ element for each custom header that you want CloudFront to forward to the origin. If Quantity is @0@ , omit @Items@ . +-- +-- * 'chQuantity' - The number of custom headers, if any, for this distribution. +customHeaders + :: Int -- ^ 'chQuantity' + -> CustomHeaders +customHeaders pQuantity_ = + CustomHeaders' + { _chItems = Nothing + , _chQuantity = pQuantity_ + } + +-- | __Optional__ : A list that contains one @OriginCustomHeader@ element for each custom header that you want CloudFront to forward to the origin. If Quantity is @0@ , omit @Items@ . +chItems :: Lens' CustomHeaders [OriginCustomHeader] +chItems = lens _chItems (\ s a -> s{_chItems = a}) . _Default . _Coerce; + +-- | The number of custom headers, if any, for this distribution. +chQuantity :: Lens' CustomHeaders Int +chQuantity = lens _chQuantity (\ s a -> s{_chQuantity = a}); + +instance FromXML CustomHeaders where + parseXML x + = CustomHeaders' <$> + (x .@? "Items" .!@ mempty >>= + may (parseXMLList "OriginCustomHeader")) + <*> (x .@ "Quantity") + +instance Hashable CustomHeaders + +instance NFData CustomHeaders + +instance ToXML CustomHeaders where + toXML CustomHeaders'{..} + = mconcat + ["Items" @= + toXML (toXMLList "OriginCustomHeader" <$> _chItems), + "Quantity" @= _chQuantity] + +-- | A customer origin. +-- +-- +-- +-- /See:/ 'customOriginConfig' smart constructor. +data CustomOriginConfig = CustomOriginConfig' + { _cocOriginSSLProtocols :: !(Maybe OriginSSLProtocols) + , _cocHTTPPort :: !Int + , _cocHTTPSPort :: !Int + , _cocOriginProtocolPolicy :: !OriginProtocolPolicy + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'CustomOriginConfig' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'cocOriginSSLProtocols' - The SSL/TLS protocols that you want CloudFront to use when communicating with your origin over HTTPS. +-- +-- * 'cocHTTPPort' - The HTTP port the custom origin listens on. +-- +-- * 'cocHTTPSPort' - The HTTPS port the custom origin listens on. +-- +-- * 'cocOriginProtocolPolicy' - The origin protocol policy to apply to your origin. +customOriginConfig + :: Int -- ^ 'cocHTTPPort' + -> Int -- ^ 'cocHTTPSPort' + -> OriginProtocolPolicy -- ^ 'cocOriginProtocolPolicy' + -> CustomOriginConfig +customOriginConfig pHTTPPort_ pHTTPSPort_ pOriginProtocolPolicy_ = + CustomOriginConfig' + { _cocOriginSSLProtocols = Nothing + , _cocHTTPPort = pHTTPPort_ + , _cocHTTPSPort = pHTTPSPort_ + , _cocOriginProtocolPolicy = pOriginProtocolPolicy_ + } + +-- | The SSL/TLS protocols that you want CloudFront to use when communicating with your origin over HTTPS. +cocOriginSSLProtocols :: Lens' CustomOriginConfig (Maybe OriginSSLProtocols) +cocOriginSSLProtocols = lens _cocOriginSSLProtocols (\ s a -> s{_cocOriginSSLProtocols = a}); + +-- | The HTTP port the custom origin listens on. +cocHTTPPort :: Lens' CustomOriginConfig Int +cocHTTPPort = lens _cocHTTPPort (\ s a -> s{_cocHTTPPort = a}); + +-- | The HTTPS port the custom origin listens on. +cocHTTPSPort :: Lens' CustomOriginConfig Int +cocHTTPSPort = lens _cocHTTPSPort (\ s a -> s{_cocHTTPSPort = a}); + +-- | The origin protocol policy to apply to your origin. +cocOriginProtocolPolicy :: Lens' CustomOriginConfig OriginProtocolPolicy +cocOriginProtocolPolicy = lens _cocOriginProtocolPolicy (\ s a -> s{_cocOriginProtocolPolicy = a}); + +instance FromXML CustomOriginConfig where + parseXML x + = CustomOriginConfig' <$> + (x .@? "OriginSslProtocols") <*> (x .@ "HTTPPort") + <*> (x .@ "HTTPSPort") + <*> (x .@ "OriginProtocolPolicy") + +instance Hashable CustomOriginConfig + +instance NFData CustomOriginConfig + +instance ToXML CustomOriginConfig where + toXML CustomOriginConfig'{..} + = mconcat + ["OriginSslProtocols" @= _cocOriginSSLProtocols, + "HTTPPort" @= _cocHTTPPort, + "HTTPSPort" @= _cocHTTPSPort, + "OriginProtocolPolicy" @= _cocOriginProtocolPolicy] + +-- | A complex type that describes the default cache behavior if you do not specify a @CacheBehavior@ element or if files don't match any of the values of @PathPattern@ in @CacheBehavior@ elements. You must create exactly one default cache behavior. +-- +-- +-- +-- /See:/ 'defaultCacheBehavior' smart constructor. +data DefaultCacheBehavior = DefaultCacheBehavior' + { _dcbAllowedMethods :: !(Maybe AllowedMethods) + , _dcbMaxTTL :: !(Maybe Integer) + , _dcbCompress :: !(Maybe Bool) + , _dcbSmoothStreaming :: !(Maybe Bool) + , _dcbDefaultTTL :: !(Maybe Integer) + , _dcbTargetOriginId :: !Text + , _dcbForwardedValues :: !ForwardedValues + , _dcbTrustedSigners :: !TrustedSigners + , _dcbViewerProtocolPolicy :: !ViewerProtocolPolicy + , _dcbMinTTL :: !Integer + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'DefaultCacheBehavior' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dcbAllowedMethods' - Undocumented member. +-- +-- * 'dcbMaxTTL' - Undocumented member. +-- +-- * 'dcbCompress' - Whether you want CloudFront to automatically compress certain files for this cache behavior. If so, specify @true@ ; if not, specify @false@ . For more information, see in the /Amazon CloudFront Developer Guide/ . +-- +-- * 'dcbSmoothStreaming' - Indicates whether you want to distribute media files in the Microsoft Smooth Streaming format using the origin that is associated with this cache behavior. If so, specify @true@ ; if not, specify @false@ . If you specify @true@ for @SmoothStreaming@ , you can still distribute other content using this cache behavior if the content matches the value of @PathPattern@ . +-- +-- * 'dcbDefaultTTL' - The default amount of time that you want objects to stay in CloudFront caches before CloudFront forwards another request to your origin to determine whether the object has been updated. The value that you specify applies only when your origin does not add HTTP headers such as @Cache-Control max-age@ , @Cache-Control s-maxage@ , and @Expires@ to objects. For more information, see in the /Amazon CloudFront Developer Guide/ . +-- +-- * 'dcbTargetOriginId' - The value of @ID@ for the origin that you want CloudFront to route requests to when a request matches the path pattern either for a cache behavior or for the default cache behavior. +-- +-- * 'dcbForwardedValues' - A complex type that specifies how CloudFront handles query strings and cookies. +-- +-- * 'dcbTrustedSigners' - A complex type that specifies the AWS accounts, if any, that you want to allow to create signed URLs for private content. If you want to require signed URLs in requests for objects in the target origin that match the @PathPattern@ for this cache behavior, specify @true@ for @Enabled@ , and specify the applicable values for @Quantity@ and @Items@ . For more information, see in the /Amazon Amazon CloudFront Developer Guide/ . If you don't want to require signed URLs in requests for objects that match @PathPattern@ , specify @false@ for @Enabled@ and @0@ for @Quantity@ . Omit @Items@ . To add, change, or remove one or more trusted signers, change @Enabled@ to @true@ (if it's currently @false@ ), change @Quantity@ as applicable, and specify all of the trusted signers that you want to include in the updated distribution. +-- +-- * 'dcbViewerProtocolPolicy' - The protocol that viewers can use to access the files in the origin specified by @TargetOriginId@ when a request matches the path pattern in @PathPattern@ . You can specify the following options: * @allow-all@ : Viewers can use HTTP or HTTPS. * @redirect-to-https@ : If a viewer submits an HTTP request, CloudFront returns an HTTP status code of 301 (Moved Permanently) to the viewer along with the HTTPS URL. The viewer then resubmits the request using the new URL. * @https-only@ : If a viewer sends an HTTP request, CloudFront returns an HTTP status code of 403 (Forbidden). For more information about requiring the HTTPS protocol, see in the /Amazon CloudFront Developer Guide/ . +-- +-- * 'dcbMinTTL' - The minimum amount of time that you want objects to stay in CloudFront caches before CloudFront forwards another request to your origin to determine whether the object has been updated. For more information, see in the /Amazon Amazon CloudFront Developer Guide/ . You must specify @0@ for @MinTTL@ if you configure CloudFront to forward all headers to your origin (under @Headers@ , if you specify @1@ for @Quantity@ and @*@ for @Name@ ). +defaultCacheBehavior + :: Text -- ^ 'dcbTargetOriginId' + -> ForwardedValues -- ^ 'dcbForwardedValues' + -> TrustedSigners -- ^ 'dcbTrustedSigners' + -> ViewerProtocolPolicy -- ^ 'dcbViewerProtocolPolicy' + -> Integer -- ^ 'dcbMinTTL' + -> DefaultCacheBehavior +defaultCacheBehavior pTargetOriginId_ pForwardedValues_ pTrustedSigners_ pViewerProtocolPolicy_ pMinTTL_ = + DefaultCacheBehavior' + { _dcbAllowedMethods = Nothing + , _dcbMaxTTL = Nothing + , _dcbCompress = Nothing + , _dcbSmoothStreaming = Nothing + , _dcbDefaultTTL = Nothing + , _dcbTargetOriginId = pTargetOriginId_ + , _dcbForwardedValues = pForwardedValues_ + , _dcbTrustedSigners = pTrustedSigners_ + , _dcbViewerProtocolPolicy = pViewerProtocolPolicy_ + , _dcbMinTTL = pMinTTL_ + } + +-- | Undocumented member. +dcbAllowedMethods :: Lens' DefaultCacheBehavior (Maybe AllowedMethods) +dcbAllowedMethods = lens _dcbAllowedMethods (\ s a -> s{_dcbAllowedMethods = a}); + +-- | Undocumented member. +dcbMaxTTL :: Lens' DefaultCacheBehavior (Maybe Integer) +dcbMaxTTL = lens _dcbMaxTTL (\ s a -> s{_dcbMaxTTL = a}); + +-- | Whether you want CloudFront to automatically compress certain files for this cache behavior. If so, specify @true@ ; if not, specify @false@ . For more information, see in the /Amazon CloudFront Developer Guide/ . +dcbCompress :: Lens' DefaultCacheBehavior (Maybe Bool) +dcbCompress = lens _dcbCompress (\ s a -> s{_dcbCompress = a}); + +-- | Indicates whether you want to distribute media files in the Microsoft Smooth Streaming format using the origin that is associated with this cache behavior. If so, specify @true@ ; if not, specify @false@ . If you specify @true@ for @SmoothStreaming@ , you can still distribute other content using this cache behavior if the content matches the value of @PathPattern@ . +dcbSmoothStreaming :: Lens' DefaultCacheBehavior (Maybe Bool) +dcbSmoothStreaming = lens _dcbSmoothStreaming (\ s a -> s{_dcbSmoothStreaming = a}); + +-- | The default amount of time that you want objects to stay in CloudFront caches before CloudFront forwards another request to your origin to determine whether the object has been updated. The value that you specify applies only when your origin does not add HTTP headers such as @Cache-Control max-age@ , @Cache-Control s-maxage@ , and @Expires@ to objects. For more information, see in the /Amazon CloudFront Developer Guide/ . +dcbDefaultTTL :: Lens' DefaultCacheBehavior (Maybe Integer) +dcbDefaultTTL = lens _dcbDefaultTTL (\ s a -> s{_dcbDefaultTTL = a}); + +-- | The value of @ID@ for the origin that you want CloudFront to route requests to when a request matches the path pattern either for a cache behavior or for the default cache behavior. +dcbTargetOriginId :: Lens' DefaultCacheBehavior Text +dcbTargetOriginId = lens _dcbTargetOriginId (\ s a -> s{_dcbTargetOriginId = a}); + +-- | A complex type that specifies how CloudFront handles query strings and cookies. +dcbForwardedValues :: Lens' DefaultCacheBehavior ForwardedValues +dcbForwardedValues = lens _dcbForwardedValues (\ s a -> s{_dcbForwardedValues = a}); + +-- | A complex type that specifies the AWS accounts, if any, that you want to allow to create signed URLs for private content. If you want to require signed URLs in requests for objects in the target origin that match the @PathPattern@ for this cache behavior, specify @true@ for @Enabled@ , and specify the applicable values for @Quantity@ and @Items@ . For more information, see in the /Amazon Amazon CloudFront Developer Guide/ . If you don't want to require signed URLs in requests for objects that match @PathPattern@ , specify @false@ for @Enabled@ and @0@ for @Quantity@ . Omit @Items@ . To add, change, or remove one or more trusted signers, change @Enabled@ to @true@ (if it's currently @false@ ), change @Quantity@ as applicable, and specify all of the trusted signers that you want to include in the updated distribution. +dcbTrustedSigners :: Lens' DefaultCacheBehavior TrustedSigners +dcbTrustedSigners = lens _dcbTrustedSigners (\ s a -> s{_dcbTrustedSigners = a}); + +-- | The protocol that viewers can use to access the files in the origin specified by @TargetOriginId@ when a request matches the path pattern in @PathPattern@ . You can specify the following options: * @allow-all@ : Viewers can use HTTP or HTTPS. * @redirect-to-https@ : If a viewer submits an HTTP request, CloudFront returns an HTTP status code of 301 (Moved Permanently) to the viewer along with the HTTPS URL. The viewer then resubmits the request using the new URL. * @https-only@ : If a viewer sends an HTTP request, CloudFront returns an HTTP status code of 403 (Forbidden). For more information about requiring the HTTPS protocol, see in the /Amazon CloudFront Developer Guide/ . +dcbViewerProtocolPolicy :: Lens' DefaultCacheBehavior ViewerProtocolPolicy +dcbViewerProtocolPolicy = lens _dcbViewerProtocolPolicy (\ s a -> s{_dcbViewerProtocolPolicy = a}); + +-- | The minimum amount of time that you want objects to stay in CloudFront caches before CloudFront forwards another request to your origin to determine whether the object has been updated. For more information, see in the /Amazon Amazon CloudFront Developer Guide/ . You must specify @0@ for @MinTTL@ if you configure CloudFront to forward all headers to your origin (under @Headers@ , if you specify @1@ for @Quantity@ and @*@ for @Name@ ). +dcbMinTTL :: Lens' DefaultCacheBehavior Integer +dcbMinTTL = lens _dcbMinTTL (\ s a -> s{_dcbMinTTL = a}); + +instance FromXML DefaultCacheBehavior where + parseXML x + = DefaultCacheBehavior' <$> + (x .@? "AllowedMethods") <*> (x .@? "MaxTTL") <*> + (x .@? "Compress") + <*> (x .@? "SmoothStreaming") + <*> (x .@? "DefaultTTL") + <*> (x .@ "TargetOriginId") + <*> (x .@ "ForwardedValues") + <*> (x .@ "TrustedSigners") + <*> (x .@ "ViewerProtocolPolicy") + <*> (x .@ "MinTTL") + +instance Hashable DefaultCacheBehavior + +instance NFData DefaultCacheBehavior + +instance ToXML DefaultCacheBehavior where + toXML DefaultCacheBehavior'{..} + = mconcat + ["AllowedMethods" @= _dcbAllowedMethods, + "MaxTTL" @= _dcbMaxTTL, "Compress" @= _dcbCompress, + "SmoothStreaming" @= _dcbSmoothStreaming, + "DefaultTTL" @= _dcbDefaultTTL, + "TargetOriginId" @= _dcbTargetOriginId, + "ForwardedValues" @= _dcbForwardedValues, + "TrustedSigners" @= _dcbTrustedSigners, + "ViewerProtocolPolicy" @= _dcbViewerProtocolPolicy, + "MinTTL" @= _dcbMinTTL] + +-- | The distribution's information. +-- +-- +-- +-- /See:/ 'distribution' smart constructor. +data Distribution = Distribution' + { _dId :: !Text + , _dARN :: !Text + , _dStatus :: !Text + , _dLastModifiedTime :: !ISO8601 + , _dInProgressInvalidationBatches :: !Int + , _dDomainName :: !Text + , _dActiveTrustedSigners :: !ActiveTrustedSigners + , _dDistributionConfig :: !DistributionConfig + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'Distribution' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dId' - The identifier for the distribution. For example: @EDFDVBD632BHDS5@ . +-- +-- * 'dARN' - The ARN (Amazon Resource Name) for the distribution. For example: @arn:aws:cloudfront::123456789012:distribution/EDFDVBD632BHDS5@ , where @123456789012@ is your AWS account ID. +-- +-- * 'dStatus' - This response element indicates the current status of the distribution. When the status is @Deployed@ , the distribution's information is fully propagated to all CloudFront edge locations. +-- +-- * 'dLastModifiedTime' - The date and time the distribution was last modified. +-- +-- * 'dInProgressInvalidationBatches' - The number of invalidation batches currently in progress. +-- +-- * 'dDomainName' - The domain name corresponding to the distribution. For example: @d604721fxaaqy9.cloudfront.net@ . +-- +-- * 'dActiveTrustedSigners' - CloudFront automatically adds this element to the response only if you've set up the distribution to serve private content with signed URLs. The element lists the key pair IDs that CloudFront is aware of for each trusted signer. The @Signer@ child element lists the AWS account number of the trusted signer (or an empty @Self@ element if the signer is you). The @Signer@ element also includes the IDs of any active key pairs associated with the trusted signer's AWS account. If no @KeyPairId@ element appears for a @Signer@ , that signer can't create working signed URLs. +-- +-- * 'dDistributionConfig' - The current configuration information for the distribution. Send a @GET@ request to the @//CloudFront API version/ /distribution ID/config@ resource. +distribution + :: Text -- ^ 'dId' + -> Text -- ^ 'dARN' + -> Text -- ^ 'dStatus' + -> UTCTime -- ^ 'dLastModifiedTime' + -> Int -- ^ 'dInProgressInvalidationBatches' + -> Text -- ^ 'dDomainName' + -> ActiveTrustedSigners -- ^ 'dActiveTrustedSigners' + -> DistributionConfig -- ^ 'dDistributionConfig' + -> Distribution +distribution pId_ pARN_ pStatus_ pLastModifiedTime_ pInProgressInvalidationBatches_ pDomainName_ pActiveTrustedSigners_ pDistributionConfig_ = + Distribution' + { _dId = pId_ + , _dARN = pARN_ + , _dStatus = pStatus_ + , _dLastModifiedTime = _Time # pLastModifiedTime_ + , _dInProgressInvalidationBatches = pInProgressInvalidationBatches_ + , _dDomainName = pDomainName_ + , _dActiveTrustedSigners = pActiveTrustedSigners_ + , _dDistributionConfig = pDistributionConfig_ + } + +-- | The identifier for the distribution. For example: @EDFDVBD632BHDS5@ . +dId :: Lens' Distribution Text +dId = lens _dId (\ s a -> s{_dId = a}); + +-- | The ARN (Amazon Resource Name) for the distribution. For example: @arn:aws:cloudfront::123456789012:distribution/EDFDVBD632BHDS5@ , where @123456789012@ is your AWS account ID. +dARN :: Lens' Distribution Text +dARN = lens _dARN (\ s a -> s{_dARN = a}); + +-- | This response element indicates the current status of the distribution. When the status is @Deployed@ , the distribution's information is fully propagated to all CloudFront edge locations. +dStatus :: Lens' Distribution Text +dStatus = lens _dStatus (\ s a -> s{_dStatus = a}); + +-- | The date and time the distribution was last modified. +dLastModifiedTime :: Lens' Distribution UTCTime +dLastModifiedTime = lens _dLastModifiedTime (\ s a -> s{_dLastModifiedTime = a}) . _Time; + +-- | The number of invalidation batches currently in progress. +dInProgressInvalidationBatches :: Lens' Distribution Int +dInProgressInvalidationBatches = lens _dInProgressInvalidationBatches (\ s a -> s{_dInProgressInvalidationBatches = a}); + +-- | The domain name corresponding to the distribution. For example: @d604721fxaaqy9.cloudfront.net@ . +dDomainName :: Lens' Distribution Text +dDomainName = lens _dDomainName (\ s a -> s{_dDomainName = a}); + +-- | CloudFront automatically adds this element to the response only if you've set up the distribution to serve private content with signed URLs. The element lists the key pair IDs that CloudFront is aware of for each trusted signer. The @Signer@ child element lists the AWS account number of the trusted signer (or an empty @Self@ element if the signer is you). The @Signer@ element also includes the IDs of any active key pairs associated with the trusted signer's AWS account. If no @KeyPairId@ element appears for a @Signer@ , that signer can't create working signed URLs. +dActiveTrustedSigners :: Lens' Distribution ActiveTrustedSigners +dActiveTrustedSigners = lens _dActiveTrustedSigners (\ s a -> s{_dActiveTrustedSigners = a}); + +-- | The current configuration information for the distribution. Send a @GET@ request to the @//CloudFront API version/ /distribution ID/config@ resource. +dDistributionConfig :: Lens' Distribution DistributionConfig +dDistributionConfig = lens _dDistributionConfig (\ s a -> s{_dDistributionConfig = a}); + +instance FromXML Distribution where + parseXML x + = Distribution' <$> + (x .@ "Id") <*> (x .@ "ARN") <*> (x .@ "Status") <*> + (x .@ "LastModifiedTime") + <*> (x .@ "InProgressInvalidationBatches") + <*> (x .@ "DomainName") + <*> (x .@ "ActiveTrustedSigners") + <*> (x .@ "DistributionConfig") + +instance Hashable Distribution + +instance NFData Distribution + +-- | A distribution configuration. +-- +-- +-- +-- /See:/ 'distributionConfig' smart constructor. +data DistributionConfig = DistributionConfig' + { _dcHTTPVersion :: !(Maybe HTTPVersion) + , _dcAliases :: !(Maybe Aliases) + , _dcDefaultRootObject :: !(Maybe Text) + , _dcPriceClass :: !(Maybe PriceClass) + , _dcCustomErrorResponses :: !(Maybe CustomErrorResponses) + , _dcWebACLId :: !(Maybe Text) + , _dcViewerCertificate :: !(Maybe ViewerCertificate) + , _dcRestrictions :: !(Maybe Restrictions) + , _dcLogging :: !(Maybe LoggingConfig) + , _dcCacheBehaviors :: !(Maybe CacheBehaviors) + , _dcIsIPV6Enabled :: !(Maybe Bool) + , _dcCallerReference :: !Text + , _dcOrigins :: !Origins + , _dcDefaultCacheBehavior :: !DefaultCacheBehavior + , _dcComment :: !Text + , _dcEnabled :: !Bool + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'DistributionConfig' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dcHTTPVersion' - (Optional) Specify the maximum HTTP version that you want viewers to use to communicate with CloudFront. The default value for new web distributions is http2. Viewers that don't support HTTP/2 automatically use an earlier HTTP version. For viewers and CloudFront to use HTTP/2, viewers must support TLS 1.2 or later, and must support Server Name Identification (SNI). In general, configuring CloudFront to communicate with viewers using HTTP/2 reduces latency. You can improve performance by optimizing for HTTP/2. For more information, do an Internet search for "http/2 optimization." +-- +-- * 'dcAliases' - A complex type that contains information about CNAMEs (alternate domain names), if any, for this distribution. +-- +-- * 'dcDefaultRootObject' - The object that you want CloudFront to request from your origin (for example, @index.html@ ) when a viewer requests the root URL for your distribution (@http://www.example.com@ ) instead of an object in your distribution (@http://www.example.com/product-description.html@ ). Specifying a default root object avoids exposing the contents of your distribution. Specify only the object name, for example, @index.html@ . Do not add a @/@ before the object name. If you don't want to specify a default root object when you create a distribution, include an empty @DefaultRootObject@ element. To delete the default root object from an existing distribution, update the distribution configuration and include an empty @DefaultRootObject@ element. To replace the default root object, update the distribution configuration and specify the new object. For more information about the default root object, see in the /Amazon CloudFront Developer Guide/ . +-- +-- * 'dcPriceClass' - The price class that corresponds with the maximum price that you want to pay for CloudFront service. If you specify @PriceClass_All@ , CloudFront responds to requests for your objects from all CloudFront edge locations. If you specify a price class other than @PriceClass_All@ , CloudFront serves your objects from the CloudFront edge location that has the lowest latency among the edge locations in your price class. Viewers who are in or near regions that are excluded from your specified price class may encounter slower performance. For more information about price classes, see in the /Amazon CloudFront Developer Guide/ . For information about CloudFront pricing, including how price classes map to CloudFront regions, see . +-- +-- * 'dcCustomErrorResponses' - A complex type that controls the following: * Whether CloudFront replaces HTTP status codes in the 4xx and 5xx range with custom error messages before returning the response to the viewer. * How long CloudFront caches HTTP status codes in the 4xx and 5xx range. For more information about custom error pages, see in the /Amazon CloudFront Developer Guide/ . +-- +-- * 'dcWebACLId' - A unique identifier that specifies the AWS WAF web ACL, if any, to associate with this distribution. AWS WAF is a web application firewall that lets you monitor the HTTP and HTTPS requests that are forwarded to CloudFront, and lets you control access to your content. Based on conditions that you specify, such as the IP addresses that requests originate from or the values of query strings, CloudFront responds to requests either with the requested content or with an HTTP 403 status code (Forbidden). You can also configure CloudFront to return a custom error page when a request is blocked. For more information about AWS WAF, see the . +-- +-- * 'dcViewerCertificate' - Undocumented member. +-- +-- * 'dcRestrictions' - Undocumented member. +-- +-- * 'dcLogging' - A complex type that controls whether access logs are written for the distribution. For more information about logging, see in the /Amazon CloudFront Developer Guide/ . +-- +-- * 'dcCacheBehaviors' - A complex type that contains zero or more @CacheBehavior@ elements. +-- +-- * 'dcIsIPV6Enabled' - If you want CloudFront to respond to IPv6 DNS requests with an IPv6 address for your distribution, specify @true@ . If you specify @false@ , CloudFront responds to IPv6 DNS requests with the DNS response code @NOERROR@ and with no IP addresses. This allows viewers to submit a second request, for an IPv4 address for your distribution. In general, you should enable IPv6 if you have users on IPv6 networks who want to access your content. However, if you're using signed URLs or signed cookies to restrict access to your content, and if you're using a custom policy that includes the @IpAddress@ parameter to restrict the IP addresses that can access your content, do not enable IPv6. If you want to restrict access to some content by IP address and not restrict access to other content (or restrict access but not by IP address), you can create two distributions. For more information, see in the /Amazon CloudFront Developer Guide/ . If you're using an Amazon Route 53 alias resource record set to route traffic to your CloudFront distribution, you need to create a second alias resource record set when both of the following are true: * You enable IPv6 for the distribution * You're using alternate domain names in the URLs for your objects For more information, see in the /Amazon Route 53 Developer Guide/ . If you created a CNAME resource record set, either with Amazon Route 53 or with another DNS service, you don't need to make any changes. A CNAME record will route traffic to your distribution regardless of the IP address format of the viewer request. +-- +-- * 'dcCallerReference' - A unique value (for example, a date-time stamp) that ensures that the request can't be replayed. If the value of @CallerReference@ is new (regardless of the content of the @DistributionConfig@ object), CloudFront creates a new distribution. If @CallerReference@ is a value you already sent in a previous request to create a distribution, and if the content of the @DistributionConfig@ is identical to the original request (ignoring white space), CloudFront returns the same the response that it returned to the original request. If @CallerReference@ is a value you already sent in a previous request to create a distribution but the content of the @DistributionConfig@ is different from the original request, CloudFront returns a @DistributionAlreadyExists@ error. +-- +-- * 'dcOrigins' - A complex type that contains information about origins for this distribution. +-- +-- * 'dcDefaultCacheBehavior' - A complex type that describes the default cache behavior if you do not specify a @CacheBehavior@ element or if files don't match any of the values of @PathPattern@ in @CacheBehavior@ elements. You must create exactly one default cache behavior. +-- +-- * 'dcComment' - Any comments you want to include about the distribution. If you don't want to specify a comment, include an empty @Comment@ element. To delete an existing comment, update the distribution configuration and include an empty @Comment@ element. To add or change a comment, update the distribution configuration and specify the new comment. +-- +-- * 'dcEnabled' - Specifies whether you want CloudFront to save access logs to an Amazon S3 bucket. If you do not want to enable logging when you create a distribution, or if you want to disable logging for an existing distribution, specify @false@ for @Enabled@ , and specify empty @Bucket@ and @Prefix@ elements. If you specify @false@ for @Enabled@ but you specify values for @Bucket@ and @Prefix@ , the values are automatically deleted. +distributionConfig + :: Text -- ^ 'dcCallerReference' + -> Origins -- ^ 'dcOrigins' + -> DefaultCacheBehavior -- ^ 'dcDefaultCacheBehavior' + -> Text -- ^ 'dcComment' + -> Bool -- ^ 'dcEnabled' + -> DistributionConfig +distributionConfig pCallerReference_ pOrigins_ pDefaultCacheBehavior_ pComment_ pEnabled_ = + DistributionConfig' + { _dcHTTPVersion = Nothing + , _dcAliases = Nothing + , _dcDefaultRootObject = Nothing + , _dcPriceClass = Nothing + , _dcCustomErrorResponses = Nothing + , _dcWebACLId = Nothing + , _dcViewerCertificate = Nothing + , _dcRestrictions = Nothing + , _dcLogging = Nothing + , _dcCacheBehaviors = Nothing + , _dcIsIPV6Enabled = Nothing + , _dcCallerReference = pCallerReference_ + , _dcOrigins = pOrigins_ + , _dcDefaultCacheBehavior = pDefaultCacheBehavior_ + , _dcComment = pComment_ + , _dcEnabled = pEnabled_ + } + +-- | (Optional) Specify the maximum HTTP version that you want viewers to use to communicate with CloudFront. The default value for new web distributions is http2. Viewers that don't support HTTP/2 automatically use an earlier HTTP version. For viewers and CloudFront to use HTTP/2, viewers must support TLS 1.2 or later, and must support Server Name Identification (SNI). In general, configuring CloudFront to communicate with viewers using HTTP/2 reduces latency. You can improve performance by optimizing for HTTP/2. For more information, do an Internet search for "http/2 optimization." +dcHTTPVersion :: Lens' DistributionConfig (Maybe HTTPVersion) +dcHTTPVersion = lens _dcHTTPVersion (\ s a -> s{_dcHTTPVersion = a}); + +-- | A complex type that contains information about CNAMEs (alternate domain names), if any, for this distribution. +dcAliases :: Lens' DistributionConfig (Maybe Aliases) +dcAliases = lens _dcAliases (\ s a -> s{_dcAliases = a}); + +-- | The object that you want CloudFront to request from your origin (for example, @index.html@ ) when a viewer requests the root URL for your distribution (@http://www.example.com@ ) instead of an object in your distribution (@http://www.example.com/product-description.html@ ). Specifying a default root object avoids exposing the contents of your distribution. Specify only the object name, for example, @index.html@ . Do not add a @/@ before the object name. If you don't want to specify a default root object when you create a distribution, include an empty @DefaultRootObject@ element. To delete the default root object from an existing distribution, update the distribution configuration and include an empty @DefaultRootObject@ element. To replace the default root object, update the distribution configuration and specify the new object. For more information about the default root object, see in the /Amazon CloudFront Developer Guide/ . +dcDefaultRootObject :: Lens' DistributionConfig (Maybe Text) +dcDefaultRootObject = lens _dcDefaultRootObject (\ s a -> s{_dcDefaultRootObject = a}); + +-- | The price class that corresponds with the maximum price that you want to pay for CloudFront service. If you specify @PriceClass_All@ , CloudFront responds to requests for your objects from all CloudFront edge locations. If you specify a price class other than @PriceClass_All@ , CloudFront serves your objects from the CloudFront edge location that has the lowest latency among the edge locations in your price class. Viewers who are in or near regions that are excluded from your specified price class may encounter slower performance. For more information about price classes, see in the /Amazon CloudFront Developer Guide/ . For information about CloudFront pricing, including how price classes map to CloudFront regions, see . +dcPriceClass :: Lens' DistributionConfig (Maybe PriceClass) +dcPriceClass = lens _dcPriceClass (\ s a -> s{_dcPriceClass = a}); + +-- | A complex type that controls the following: * Whether CloudFront replaces HTTP status codes in the 4xx and 5xx range with custom error messages before returning the response to the viewer. * How long CloudFront caches HTTP status codes in the 4xx and 5xx range. For more information about custom error pages, see in the /Amazon CloudFront Developer Guide/ . +dcCustomErrorResponses :: Lens' DistributionConfig (Maybe CustomErrorResponses) +dcCustomErrorResponses = lens _dcCustomErrorResponses (\ s a -> s{_dcCustomErrorResponses = a}); + +-- | A unique identifier that specifies the AWS WAF web ACL, if any, to associate with this distribution. AWS WAF is a web application firewall that lets you monitor the HTTP and HTTPS requests that are forwarded to CloudFront, and lets you control access to your content. Based on conditions that you specify, such as the IP addresses that requests originate from or the values of query strings, CloudFront responds to requests either with the requested content or with an HTTP 403 status code (Forbidden). You can also configure CloudFront to return a custom error page when a request is blocked. For more information about AWS WAF, see the . +dcWebACLId :: Lens' DistributionConfig (Maybe Text) +dcWebACLId = lens _dcWebACLId (\ s a -> s{_dcWebACLId = a}); + +-- | Undocumented member. +dcViewerCertificate :: Lens' DistributionConfig (Maybe ViewerCertificate) +dcViewerCertificate = lens _dcViewerCertificate (\ s a -> s{_dcViewerCertificate = a}); + +-- | Undocumented member. +dcRestrictions :: Lens' DistributionConfig (Maybe Restrictions) +dcRestrictions = lens _dcRestrictions (\ s a -> s{_dcRestrictions = a}); + +-- | A complex type that controls whether access logs are written for the distribution. For more information about logging, see in the /Amazon CloudFront Developer Guide/ . +dcLogging :: Lens' DistributionConfig (Maybe LoggingConfig) +dcLogging = lens _dcLogging (\ s a -> s{_dcLogging = a}); + +-- | A complex type that contains zero or more @CacheBehavior@ elements. +dcCacheBehaviors :: Lens' DistributionConfig (Maybe CacheBehaviors) +dcCacheBehaviors = lens _dcCacheBehaviors (\ s a -> s{_dcCacheBehaviors = a}); + +-- | If you want CloudFront to respond to IPv6 DNS requests with an IPv6 address for your distribution, specify @true@ . If you specify @false@ , CloudFront responds to IPv6 DNS requests with the DNS response code @NOERROR@ and with no IP addresses. This allows viewers to submit a second request, for an IPv4 address for your distribution. In general, you should enable IPv6 if you have users on IPv6 networks who want to access your content. However, if you're using signed URLs or signed cookies to restrict access to your content, and if you're using a custom policy that includes the @IpAddress@ parameter to restrict the IP addresses that can access your content, do not enable IPv6. If you want to restrict access to some content by IP address and not restrict access to other content (or restrict access but not by IP address), you can create two distributions. For more information, see in the /Amazon CloudFront Developer Guide/ . If you're using an Amazon Route 53 alias resource record set to route traffic to your CloudFront distribution, you need to create a second alias resource record set when both of the following are true: * You enable IPv6 for the distribution * You're using alternate domain names in the URLs for your objects For more information, see in the /Amazon Route 53 Developer Guide/ . If you created a CNAME resource record set, either with Amazon Route 53 or with another DNS service, you don't need to make any changes. A CNAME record will route traffic to your distribution regardless of the IP address format of the viewer request. +dcIsIPV6Enabled :: Lens' DistributionConfig (Maybe Bool) +dcIsIPV6Enabled = lens _dcIsIPV6Enabled (\ s a -> s{_dcIsIPV6Enabled = a}); + +-- | A unique value (for example, a date-time stamp) that ensures that the request can't be replayed. If the value of @CallerReference@ is new (regardless of the content of the @DistributionConfig@ object), CloudFront creates a new distribution. If @CallerReference@ is a value you already sent in a previous request to create a distribution, and if the content of the @DistributionConfig@ is identical to the original request (ignoring white space), CloudFront returns the same the response that it returned to the original request. If @CallerReference@ is a value you already sent in a previous request to create a distribution but the content of the @DistributionConfig@ is different from the original request, CloudFront returns a @DistributionAlreadyExists@ error. +dcCallerReference :: Lens' DistributionConfig Text +dcCallerReference = lens _dcCallerReference (\ s a -> s{_dcCallerReference = a}); + +-- | A complex type that contains information about origins for this distribution. +dcOrigins :: Lens' DistributionConfig Origins +dcOrigins = lens _dcOrigins (\ s a -> s{_dcOrigins = a}); + +-- | A complex type that describes the default cache behavior if you do not specify a @CacheBehavior@ element or if files don't match any of the values of @PathPattern@ in @CacheBehavior@ elements. You must create exactly one default cache behavior. +dcDefaultCacheBehavior :: Lens' DistributionConfig DefaultCacheBehavior +dcDefaultCacheBehavior = lens _dcDefaultCacheBehavior (\ s a -> s{_dcDefaultCacheBehavior = a}); + +-- | Any comments you want to include about the distribution. If you don't want to specify a comment, include an empty @Comment@ element. To delete an existing comment, update the distribution configuration and include an empty @Comment@ element. To add or change a comment, update the distribution configuration and specify the new comment. +dcComment :: Lens' DistributionConfig Text +dcComment = lens _dcComment (\ s a -> s{_dcComment = a}); + +-- | Specifies whether you want CloudFront to save access logs to an Amazon S3 bucket. If you do not want to enable logging when you create a distribution, or if you want to disable logging for an existing distribution, specify @false@ for @Enabled@ , and specify empty @Bucket@ and @Prefix@ elements. If you specify @false@ for @Enabled@ but you specify values for @Bucket@ and @Prefix@ , the values are automatically deleted. +dcEnabled :: Lens' DistributionConfig Bool +dcEnabled = lens _dcEnabled (\ s a -> s{_dcEnabled = a}); + +instance FromXML DistributionConfig where + parseXML x + = DistributionConfig' <$> + (x .@? "HttpVersion") <*> (x .@? "Aliases") <*> + (x .@? "DefaultRootObject") + <*> (x .@? "PriceClass") + <*> (x .@? "CustomErrorResponses") + <*> (x .@? "WebACLId") + <*> (x .@? "ViewerCertificate") + <*> (x .@? "Restrictions") + <*> (x .@? "Logging") + <*> (x .@? "CacheBehaviors") + <*> (x .@? "IsIPV6Enabled") + <*> (x .@ "CallerReference") + <*> (x .@ "Origins") + <*> (x .@ "DefaultCacheBehavior") + <*> (x .@ "Comment") + <*> (x .@ "Enabled") + +instance Hashable DistributionConfig + +instance NFData DistributionConfig + +instance ToXML DistributionConfig where + toXML DistributionConfig'{..} + = mconcat + ["HttpVersion" @= _dcHTTPVersion, + "Aliases" @= _dcAliases, + "DefaultRootObject" @= _dcDefaultRootObject, + "PriceClass" @= _dcPriceClass, + "CustomErrorResponses" @= _dcCustomErrorResponses, + "WebACLId" @= _dcWebACLId, + "ViewerCertificate" @= _dcViewerCertificate, + "Restrictions" @= _dcRestrictions, + "Logging" @= _dcLogging, + "CacheBehaviors" @= _dcCacheBehaviors, + "IsIPV6Enabled" @= _dcIsIPV6Enabled, + "CallerReference" @= _dcCallerReference, + "Origins" @= _dcOrigins, + "DefaultCacheBehavior" @= _dcDefaultCacheBehavior, + "Comment" @= _dcComment, "Enabled" @= _dcEnabled] + +-- | A distribution Configuration and a list of tags to be associated with the distribution. +-- +-- +-- +-- /See:/ 'distributionConfigWithTags' smart constructor. +data DistributionConfigWithTags = DistributionConfigWithTags' + { _dcwtDistributionConfig :: !DistributionConfig + , _dcwtTags :: !Tags + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'DistributionConfigWithTags' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dcwtDistributionConfig' - A distribution configuration. +-- +-- * 'dcwtTags' - A complex type that contains zero or more @Tag@ elements. +distributionConfigWithTags + :: DistributionConfig -- ^ 'dcwtDistributionConfig' + -> Tags -- ^ 'dcwtTags' + -> DistributionConfigWithTags +distributionConfigWithTags pDistributionConfig_ pTags_ = + DistributionConfigWithTags' + { _dcwtDistributionConfig = pDistributionConfig_ + , _dcwtTags = pTags_ + } + +-- | A distribution configuration. +dcwtDistributionConfig :: Lens' DistributionConfigWithTags DistributionConfig +dcwtDistributionConfig = lens _dcwtDistributionConfig (\ s a -> s{_dcwtDistributionConfig = a}); + +-- | A complex type that contains zero or more @Tag@ elements. +dcwtTags :: Lens' DistributionConfigWithTags Tags +dcwtTags = lens _dcwtTags (\ s a -> s{_dcwtTags = a}); + +instance Hashable DistributionConfigWithTags + +instance NFData DistributionConfigWithTags + +instance ToXML DistributionConfigWithTags where + toXML DistributionConfigWithTags'{..} + = mconcat + ["DistributionConfig" @= _dcwtDistributionConfig, + "Tags" @= _dcwtTags] + +-- | A distribution list. +-- +-- +-- +-- /See:/ 'distributionList' smart constructor. +data DistributionList = DistributionList' + { _dlItems :: !(Maybe [DistributionSummary]) + , _dlNextMarker :: !(Maybe Text) + , _dlMarker :: !Text + , _dlMaxItems :: !Int + , _dlIsTruncated :: !Bool + , _dlQuantity :: !Int + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'DistributionList' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dlItems' - A complex type that contains one @DistributionSummary@ element for each distribution that was created by the current AWS account. +-- +-- * 'dlNextMarker' - If @IsTruncated@ is @true@ , this element is present and contains the value you can use for the @Marker@ request parameter to continue listing your distributions where they left off. +-- +-- * 'dlMarker' - The value you provided for the @Marker@ request parameter. +-- +-- * 'dlMaxItems' - The value you provided for the @MaxItems@ request parameter. +-- +-- * 'dlIsTruncated' - A flag that indicates whether more distributions remain to be listed. If your results were truncated, you can make a follow-up pagination request using the @Marker@ request parameter to retrieve more distributions in the list. +-- +-- * 'dlQuantity' - The number of distributions that were created by the current AWS account. +distributionList + :: Text -- ^ 'dlMarker' + -> Int -- ^ 'dlMaxItems' + -> Bool -- ^ 'dlIsTruncated' + -> Int -- ^ 'dlQuantity' + -> DistributionList +distributionList pMarker_ pMaxItems_ pIsTruncated_ pQuantity_ = + DistributionList' + { _dlItems = Nothing + , _dlNextMarker = Nothing + , _dlMarker = pMarker_ + , _dlMaxItems = pMaxItems_ + , _dlIsTruncated = pIsTruncated_ + , _dlQuantity = pQuantity_ + } + +-- | A complex type that contains one @DistributionSummary@ element for each distribution that was created by the current AWS account. +dlItems :: Lens' DistributionList [DistributionSummary] +dlItems = lens _dlItems (\ s a -> s{_dlItems = a}) . _Default . _Coerce; + +-- | If @IsTruncated@ is @true@ , this element is present and contains the value you can use for the @Marker@ request parameter to continue listing your distributions where they left off. +dlNextMarker :: Lens' DistributionList (Maybe Text) +dlNextMarker = lens _dlNextMarker (\ s a -> s{_dlNextMarker = a}); + +-- | The value you provided for the @Marker@ request parameter. +dlMarker :: Lens' DistributionList Text +dlMarker = lens _dlMarker (\ s a -> s{_dlMarker = a}); + +-- | The value you provided for the @MaxItems@ request parameter. +dlMaxItems :: Lens' DistributionList Int +dlMaxItems = lens _dlMaxItems (\ s a -> s{_dlMaxItems = a}); + +-- | A flag that indicates whether more distributions remain to be listed. If your results were truncated, you can make a follow-up pagination request using the @Marker@ request parameter to retrieve more distributions in the list. +dlIsTruncated :: Lens' DistributionList Bool +dlIsTruncated = lens _dlIsTruncated (\ s a -> s{_dlIsTruncated = a}); + +-- | The number of distributions that were created by the current AWS account. +dlQuantity :: Lens' DistributionList Int +dlQuantity = lens _dlQuantity (\ s a -> s{_dlQuantity = a}); + +instance FromXML DistributionList where + parseXML x + = DistributionList' <$> + (x .@? "Items" .!@ mempty >>= + may (parseXMLList "DistributionSummary")) + <*> (x .@? "NextMarker") + <*> (x .@ "Marker") + <*> (x .@ "MaxItems") + <*> (x .@ "IsTruncated") + <*> (x .@ "Quantity") + +instance Hashable DistributionList + +instance NFData DistributionList + +-- | A summary of the information about a CloudFront distribution. +-- +-- +-- +-- /See:/ 'distributionSummary' smart constructor. +data DistributionSummary = DistributionSummary' + { _dsId :: !Text + , _dsARN :: !Text + , _dsStatus :: !Text + , _dsLastModifiedTime :: !ISO8601 + , _dsDomainName :: !Text + , _dsAliases :: !Aliases + , _dsOrigins :: !Origins + , _dsDefaultCacheBehavior :: !DefaultCacheBehavior + , _dsCacheBehaviors :: !CacheBehaviors + , _dsCustomErrorResponses :: !CustomErrorResponses + , _dsComment :: !Text + , _dsPriceClass :: !PriceClass + , _dsEnabled :: !Bool + , _dsViewerCertificate :: !ViewerCertificate + , _dsRestrictions :: !Restrictions + , _dsWebACLId :: !Text + , _dsHTTPVersion :: !HTTPVersion + , _dsIsIPV6Enabled :: !Bool + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'DistributionSummary' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dsId' - The identifier for the distribution. For example: @EDFDVBD632BHDS5@ . +-- +-- * 'dsARN' - The ARN (Amazon Resource Name) for the distribution. For example: @arn:aws:cloudfront::123456789012:distribution/EDFDVBD632BHDS5@ , where @123456789012@ is your AWS account ID. +-- +-- * 'dsStatus' - The current status of the distribution. When the status is @Deployed@ , the distribution's information is propagated to all CloudFront edge locations. +-- +-- * 'dsLastModifiedTime' - The date and time the distribution was last modified. +-- +-- * 'dsDomainName' - The domain name that corresponds to the distribution. For example: @d604721fxaaqy9.cloudfront.net@ . +-- +-- * 'dsAliases' - A complex type that contains information about CNAMEs (alternate domain names), if any, for this distribution. +-- +-- * 'dsOrigins' - A complex type that contains information about origins for this distribution. +-- +-- * 'dsDefaultCacheBehavior' - A complex type that describes the default cache behavior if you do not specify a @CacheBehavior@ element or if files don't match any of the values of @PathPattern@ in @CacheBehavior@ elements. You must create exactly one default cache behavior. +-- +-- * 'dsCacheBehaviors' - A complex type that contains zero or more @CacheBehavior@ elements. +-- +-- * 'dsCustomErrorResponses' - A complex type that contains zero or more @CustomErrorResponses@ elements. +-- +-- * 'dsComment' - The comment originally specified when this distribution was created. +-- +-- * 'dsPriceClass' - Undocumented member. +-- +-- * 'dsEnabled' - Whether the distribution is enabled to accept user requests for content. +-- +-- * 'dsViewerCertificate' - Undocumented member. +-- +-- * 'dsRestrictions' - Undocumented member. +-- +-- * 'dsWebACLId' - The Web ACL Id (if any) associated with the distribution. +-- +-- * 'dsHTTPVersion' - Specify the maximum HTTP version that you want viewers to use to communicate with CloudFront. The default value for new web distributions is @http2@ . Viewers that don't support @HTTP/2@ will automatically use an earlier version. +-- +-- * 'dsIsIPV6Enabled' - Whether CloudFront responds to IPv6 DNS requests with an IPv6 address for your distribution. +distributionSummary + :: Text -- ^ 'dsId' + -> Text -- ^ 'dsARN' + -> Text -- ^ 'dsStatus' + -> UTCTime -- ^ 'dsLastModifiedTime' + -> Text -- ^ 'dsDomainName' + -> Aliases -- ^ 'dsAliases' + -> Origins -- ^ 'dsOrigins' + -> DefaultCacheBehavior -- ^ 'dsDefaultCacheBehavior' + -> CacheBehaviors -- ^ 'dsCacheBehaviors' + -> CustomErrorResponses -- ^ 'dsCustomErrorResponses' + -> Text -- ^ 'dsComment' + -> PriceClass -- ^ 'dsPriceClass' + -> Bool -- ^ 'dsEnabled' + -> ViewerCertificate -- ^ 'dsViewerCertificate' + -> Restrictions -- ^ 'dsRestrictions' + -> Text -- ^ 'dsWebACLId' + -> HTTPVersion -- ^ 'dsHTTPVersion' + -> Bool -- ^ 'dsIsIPV6Enabled' + -> DistributionSummary +distributionSummary pId_ pARN_ pStatus_ pLastModifiedTime_ pDomainName_ pAliases_ pOrigins_ pDefaultCacheBehavior_ pCacheBehaviors_ pCustomErrorResponses_ pComment_ pPriceClass_ pEnabled_ pViewerCertificate_ pRestrictions_ pWebACLId_ pHTTPVersion_ pIsIPV6Enabled_ = + DistributionSummary' + { _dsId = pId_ + , _dsARN = pARN_ + , _dsStatus = pStatus_ + , _dsLastModifiedTime = _Time # pLastModifiedTime_ + , _dsDomainName = pDomainName_ + , _dsAliases = pAliases_ + , _dsOrigins = pOrigins_ + , _dsDefaultCacheBehavior = pDefaultCacheBehavior_ + , _dsCacheBehaviors = pCacheBehaviors_ + , _dsCustomErrorResponses = pCustomErrorResponses_ + , _dsComment = pComment_ + , _dsPriceClass = pPriceClass_ + , _dsEnabled = pEnabled_ + , _dsViewerCertificate = pViewerCertificate_ + , _dsRestrictions = pRestrictions_ + , _dsWebACLId = pWebACLId_ + , _dsHTTPVersion = pHTTPVersion_ + , _dsIsIPV6Enabled = pIsIPV6Enabled_ + } + +-- | The identifier for the distribution. For example: @EDFDVBD632BHDS5@ . +dsId :: Lens' DistributionSummary Text +dsId = lens _dsId (\ s a -> s{_dsId = a}); + +-- | The ARN (Amazon Resource Name) for the distribution. For example: @arn:aws:cloudfront::123456789012:distribution/EDFDVBD632BHDS5@ , where @123456789012@ is your AWS account ID. +dsARN :: Lens' DistributionSummary Text +dsARN = lens _dsARN (\ s a -> s{_dsARN = a}); + +-- | The current status of the distribution. When the status is @Deployed@ , the distribution's information is propagated to all CloudFront edge locations. +dsStatus :: Lens' DistributionSummary Text +dsStatus = lens _dsStatus (\ s a -> s{_dsStatus = a}); + +-- | The date and time the distribution was last modified. +dsLastModifiedTime :: Lens' DistributionSummary UTCTime +dsLastModifiedTime = lens _dsLastModifiedTime (\ s a -> s{_dsLastModifiedTime = a}) . _Time; + +-- | The domain name that corresponds to the distribution. For example: @d604721fxaaqy9.cloudfront.net@ . +dsDomainName :: Lens' DistributionSummary Text +dsDomainName = lens _dsDomainName (\ s a -> s{_dsDomainName = a}); + +-- | A complex type that contains information about CNAMEs (alternate domain names), if any, for this distribution. +dsAliases :: Lens' DistributionSummary Aliases +dsAliases = lens _dsAliases (\ s a -> s{_dsAliases = a}); + +-- | A complex type that contains information about origins for this distribution. +dsOrigins :: Lens' DistributionSummary Origins +dsOrigins = lens _dsOrigins (\ s a -> s{_dsOrigins = a}); + +-- | A complex type that describes the default cache behavior if you do not specify a @CacheBehavior@ element or if files don't match any of the values of @PathPattern@ in @CacheBehavior@ elements. You must create exactly one default cache behavior. +dsDefaultCacheBehavior :: Lens' DistributionSummary DefaultCacheBehavior +dsDefaultCacheBehavior = lens _dsDefaultCacheBehavior (\ s a -> s{_dsDefaultCacheBehavior = a}); + +-- | A complex type that contains zero or more @CacheBehavior@ elements. +dsCacheBehaviors :: Lens' DistributionSummary CacheBehaviors +dsCacheBehaviors = lens _dsCacheBehaviors (\ s a -> s{_dsCacheBehaviors = a}); + +-- | A complex type that contains zero or more @CustomErrorResponses@ elements. +dsCustomErrorResponses :: Lens' DistributionSummary CustomErrorResponses +dsCustomErrorResponses = lens _dsCustomErrorResponses (\ s a -> s{_dsCustomErrorResponses = a}); + +-- | The comment originally specified when this distribution was created. +dsComment :: Lens' DistributionSummary Text +dsComment = lens _dsComment (\ s a -> s{_dsComment = a}); + +-- | Undocumented member. +dsPriceClass :: Lens' DistributionSummary PriceClass +dsPriceClass = lens _dsPriceClass (\ s a -> s{_dsPriceClass = a}); + +-- | Whether the distribution is enabled to accept user requests for content. +dsEnabled :: Lens' DistributionSummary Bool +dsEnabled = lens _dsEnabled (\ s a -> s{_dsEnabled = a}); + +-- | Undocumented member. +dsViewerCertificate :: Lens' DistributionSummary ViewerCertificate +dsViewerCertificate = lens _dsViewerCertificate (\ s a -> s{_dsViewerCertificate = a}); + +-- | Undocumented member. +dsRestrictions :: Lens' DistributionSummary Restrictions +dsRestrictions = lens _dsRestrictions (\ s a -> s{_dsRestrictions = a}); + +-- | The Web ACL Id (if any) associated with the distribution. +dsWebACLId :: Lens' DistributionSummary Text +dsWebACLId = lens _dsWebACLId (\ s a -> s{_dsWebACLId = a}); + +-- | Specify the maximum HTTP version that you want viewers to use to communicate with CloudFront. The default value for new web distributions is @http2@ . Viewers that don't support @HTTP/2@ will automatically use an earlier version. +dsHTTPVersion :: Lens' DistributionSummary HTTPVersion +dsHTTPVersion = lens _dsHTTPVersion (\ s a -> s{_dsHTTPVersion = a}); + +-- | Whether CloudFront responds to IPv6 DNS requests with an IPv6 address for your distribution. +dsIsIPV6Enabled :: Lens' DistributionSummary Bool +dsIsIPV6Enabled = lens _dsIsIPV6Enabled (\ s a -> s{_dsIsIPV6Enabled = a}); + +instance FromXML DistributionSummary where + parseXML x + = DistributionSummary' <$> + (x .@ "Id") <*> (x .@ "ARN") <*> (x .@ "Status") <*> + (x .@ "LastModifiedTime") + <*> (x .@ "DomainName") + <*> (x .@ "Aliases") + <*> (x .@ "Origins") + <*> (x .@ "DefaultCacheBehavior") + <*> (x .@ "CacheBehaviors") + <*> (x .@ "CustomErrorResponses") + <*> (x .@ "Comment") + <*> (x .@ "PriceClass") + <*> (x .@ "Enabled") + <*> (x .@ "ViewerCertificate") + <*> (x .@ "Restrictions") + <*> (x .@ "WebACLId") + <*> (x .@ "HttpVersion") + <*> (x .@ "IsIPV6Enabled") + +instance Hashable DistributionSummary + +instance NFData DistributionSummary + +-- | A complex type that specifies how CloudFront handles query strings and cookies. +-- +-- +-- +-- /See:/ 'forwardedValues' smart constructor. +data ForwardedValues = ForwardedValues' + { _fvQueryStringCacheKeys :: !(Maybe QueryStringCacheKeys) + , _fvHeaders :: !(Maybe Headers) + , _fvQueryString :: !Bool + , _fvCookies :: !CookiePreference + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'ForwardedValues' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'fvQueryStringCacheKeys' - A complex type that contains information about the query string parameters that you want CloudFront to use for caching for this cache behavior. +-- +-- * 'fvHeaders' - A complex type that specifies the @Headers@ , if any, that you want CloudFront to vary upon for this cache behavior. +-- +-- * 'fvQueryString' - Indicates whether you want CloudFront to forward query strings to the origin that is associated with this cache behavior and cache based on the query string parameters. CloudFront behavior depends on the value of @QueryString@ and on the values that you specify for @QueryStringCacheKeys@ , if any: If you specify true for @QueryString@ and you don't specify any values for @QueryStringCacheKeys@ , CloudFront forwards all query string parameters to the origin and caches based on all query string parameters. Depending on how many query string parameters and values you have, this can adversely affect performance because CloudFront must forward more requests to the origin. If you specify true for @QueryString@ and you specify one or more values for @QueryStringCacheKeys@ , CloudFront forwards all query string parameters to the origin, but it only caches based on the query string parameters that you specify. If you specify false for @QueryString@ , CloudFront doesn't forward any query string parameters to the origin, and doesn't cache based on query string parameters. For more information, see in the /Amazon CloudFront Developer Guide/ . +-- +-- * 'fvCookies' - A complex type that specifies whether you want CloudFront to forward cookies to the origin and, if so, which ones. For more information about forwarding cookies to the origin, see in the /Amazon CloudFront Developer Guide/ . +forwardedValues + :: Bool -- ^ 'fvQueryString' + -> CookiePreference -- ^ 'fvCookies' + -> ForwardedValues +forwardedValues pQueryString_ pCookies_ = + ForwardedValues' + { _fvQueryStringCacheKeys = Nothing + , _fvHeaders = Nothing + , _fvQueryString = pQueryString_ + , _fvCookies = pCookies_ + } + +-- | A complex type that contains information about the query string parameters that you want CloudFront to use for caching for this cache behavior. +fvQueryStringCacheKeys :: Lens' ForwardedValues (Maybe QueryStringCacheKeys) +fvQueryStringCacheKeys = lens _fvQueryStringCacheKeys (\ s a -> s{_fvQueryStringCacheKeys = a}); + +-- | A complex type that specifies the @Headers@ , if any, that you want CloudFront to vary upon for this cache behavior. +fvHeaders :: Lens' ForwardedValues (Maybe Headers) +fvHeaders = lens _fvHeaders (\ s a -> s{_fvHeaders = a}); + +-- | Indicates whether you want CloudFront to forward query strings to the origin that is associated with this cache behavior and cache based on the query string parameters. CloudFront behavior depends on the value of @QueryString@ and on the values that you specify for @QueryStringCacheKeys@ , if any: If you specify true for @QueryString@ and you don't specify any values for @QueryStringCacheKeys@ , CloudFront forwards all query string parameters to the origin and caches based on all query string parameters. Depending on how many query string parameters and values you have, this can adversely affect performance because CloudFront must forward more requests to the origin. If you specify true for @QueryString@ and you specify one or more values for @QueryStringCacheKeys@ , CloudFront forwards all query string parameters to the origin, but it only caches based on the query string parameters that you specify. If you specify false for @QueryString@ , CloudFront doesn't forward any query string parameters to the origin, and doesn't cache based on query string parameters. For more information, see in the /Amazon CloudFront Developer Guide/ . +fvQueryString :: Lens' ForwardedValues Bool +fvQueryString = lens _fvQueryString (\ s a -> s{_fvQueryString = a}); + +-- | A complex type that specifies whether you want CloudFront to forward cookies to the origin and, if so, which ones. For more information about forwarding cookies to the origin, see in the /Amazon CloudFront Developer Guide/ . +fvCookies :: Lens' ForwardedValues CookiePreference +fvCookies = lens _fvCookies (\ s a -> s{_fvCookies = a}); + +instance FromXML ForwardedValues where + parseXML x + = ForwardedValues' <$> + (x .@? "QueryStringCacheKeys") <*> (x .@? "Headers") + <*> (x .@ "QueryString") + <*> (x .@ "Cookies") + +instance Hashable ForwardedValues + +instance NFData ForwardedValues + +instance ToXML ForwardedValues where + toXML ForwardedValues'{..} + = mconcat + ["QueryStringCacheKeys" @= _fvQueryStringCacheKeys, + "Headers" @= _fvHeaders, + "QueryString" @= _fvQueryString, + "Cookies" @= _fvCookies] + +-- | A complex type that controls the countries in which your content is distributed. CloudFront determines the location of your users using @MaxMind@ GeoIP databases. +-- +-- +-- +-- /See:/ 'geoRestriction' smart constructor. +data GeoRestriction = GeoRestriction' + { _grItems :: !(Maybe [Text]) + , _grRestrictionType :: !GeoRestrictionType + , _grQuantity :: !Int + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'GeoRestriction' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'grItems' - A complex type that contains a @Location@ element for each country in which you want CloudFront either to distribute your content (@whitelist@ ) or not distribute your content (@blacklist@ ). The @Location@ element is a two-letter, uppercase country code for a country that you want to include in your @blacklist@ or @whitelist@ . Include one @Location@ element for each country. CloudFront and @MaxMind@ both use @ISO 3166@ country codes. For the current list of countries and the corresponding codes, see @ISO 3166-1-alpha-2@ code on the /International Organization for Standardization/ website. You can also refer to the country list in the CloudFront console, which includes both country names and codes. +-- +-- * 'grRestrictionType' - The method that you want to use to restrict distribution of your content by country: * @none@ : No geo restriction is enabled, meaning access to content is not restricted by client geo location. * @blacklist@ : The @Location@ elements specify the countries in which you do not want CloudFront to distribute your content. * @whitelist@ : The @Location@ elements specify the countries in which you want CloudFront to distribute your content. +-- +-- * 'grQuantity' - When geo restriction is @enabled@ , this is the number of countries in your @whitelist@ or @blacklist@ . Otherwise, when it is not enabled, @Quantity@ is @0@ , and you can omit @Items@ . +geoRestriction + :: GeoRestrictionType -- ^ 'grRestrictionType' + -> Int -- ^ 'grQuantity' + -> GeoRestriction +geoRestriction pRestrictionType_ pQuantity_ = + GeoRestriction' + { _grItems = Nothing + , _grRestrictionType = pRestrictionType_ + , _grQuantity = pQuantity_ + } + +-- | A complex type that contains a @Location@ element for each country in which you want CloudFront either to distribute your content (@whitelist@ ) or not distribute your content (@blacklist@ ). The @Location@ element is a two-letter, uppercase country code for a country that you want to include in your @blacklist@ or @whitelist@ . Include one @Location@ element for each country. CloudFront and @MaxMind@ both use @ISO 3166@ country codes. For the current list of countries and the corresponding codes, see @ISO 3166-1-alpha-2@ code on the /International Organization for Standardization/ website. You can also refer to the country list in the CloudFront console, which includes both country names and codes. +grItems :: Lens' GeoRestriction [Text] +grItems = lens _grItems (\ s a -> s{_grItems = a}) . _Default . _Coerce; + +-- | The method that you want to use to restrict distribution of your content by country: * @none@ : No geo restriction is enabled, meaning access to content is not restricted by client geo location. * @blacklist@ : The @Location@ elements specify the countries in which you do not want CloudFront to distribute your content. * @whitelist@ : The @Location@ elements specify the countries in which you want CloudFront to distribute your content. +grRestrictionType :: Lens' GeoRestriction GeoRestrictionType +grRestrictionType = lens _grRestrictionType (\ s a -> s{_grRestrictionType = a}); + +-- | When geo restriction is @enabled@ , this is the number of countries in your @whitelist@ or @blacklist@ . Otherwise, when it is not enabled, @Quantity@ is @0@ , and you can omit @Items@ . +grQuantity :: Lens' GeoRestriction Int +grQuantity = lens _grQuantity (\ s a -> s{_grQuantity = a}); + +instance FromXML GeoRestriction where + parseXML x + = GeoRestriction' <$> + (x .@? "Items" .!@ mempty >>= + may (parseXMLList "Location")) + <*> (x .@ "RestrictionType") + <*> (x .@ "Quantity") + +instance Hashable GeoRestriction + +instance NFData GeoRestriction + +instance ToXML GeoRestriction where + toXML GeoRestriction'{..} + = mconcat + ["Items" @= + toXML (toXMLList "Location" <$> _grItems), + "RestrictionType" @= _grRestrictionType, + "Quantity" @= _grQuantity] + +-- | A complex type that specifies the headers that you want CloudFront to forward to the origin for this cache behavior. +-- +-- +-- For the headers that you specify, CloudFront also caches separate versions of a specified object based on the header values in viewer requests. For example, suppose viewer requests for @logo.jpg@ contain a custom @Product@ header that has a value of either @Acme@ or @Apex@ , and you configure CloudFront to cache your content based on values in the @Product@ header. CloudFront forwards the @Product@ header to the origin and caches the response from the origin once for each header value. For more information about caching based on header values, see in the /Amazon CloudFront Developer Guide/ . +-- +-- +-- /See:/ 'headers' smart constructor. +data Headers = Headers' + { _hItems :: !(Maybe [Text]) + , _hQuantity :: !Int + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'Headers' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'hItems' - A complex type that contains one @Name@ element for each header that you want CloudFront to forward to the origin and to vary on for this cache behavior. If @Quantity@ is @0@ , omit @Items@ . +-- +-- * 'hQuantity' - The number of different headers that you want CloudFront to forward to the origin for this cache behavior. You can configure each cache behavior in a web distribution to do one of the following: * __Forward all headers to your origin__ : Specify @1@ for @Quantity@ and @*@ for @Name@ . /Important:/ If you configure CloudFront to forward all headers to your origin, CloudFront doesn't cache the objects associated with this cache behavior. Instead, it sends every request to the origin. * /Forward a whitelist of headers you specify/ : Specify the number of headers that you want to forward, and specify the header names in @Name@ elements. CloudFront caches your objects based on the values in all of the specified headers. CloudFront also forwards the headers that it forwards by default, but it caches your objects based only on the headers that you specify. * __Forward only the default headers__ : Specify @0@ for @Quantity@ and omit @Items@ . In this configuration, CloudFront doesn't cache based on the values in the request headers. +headers + :: Int -- ^ 'hQuantity' + -> Headers +headers pQuantity_ = + Headers' + { _hItems = Nothing + , _hQuantity = pQuantity_ + } + +-- | A complex type that contains one @Name@ element for each header that you want CloudFront to forward to the origin and to vary on for this cache behavior. If @Quantity@ is @0@ , omit @Items@ . +hItems :: Lens' Headers [Text] +hItems = lens _hItems (\ s a -> s{_hItems = a}) . _Default . _Coerce; + +-- | The number of different headers that you want CloudFront to forward to the origin for this cache behavior. You can configure each cache behavior in a web distribution to do one of the following: * __Forward all headers to your origin__ : Specify @1@ for @Quantity@ and @*@ for @Name@ . /Important:/ If you configure CloudFront to forward all headers to your origin, CloudFront doesn't cache the objects associated with this cache behavior. Instead, it sends every request to the origin. * /Forward a whitelist of headers you specify/ : Specify the number of headers that you want to forward, and specify the header names in @Name@ elements. CloudFront caches your objects based on the values in all of the specified headers. CloudFront also forwards the headers that it forwards by default, but it caches your objects based only on the headers that you specify. * __Forward only the default headers__ : Specify @0@ for @Quantity@ and omit @Items@ . In this configuration, CloudFront doesn't cache based on the values in the request headers. +hQuantity :: Lens' Headers Int +hQuantity = lens _hQuantity (\ s a -> s{_hQuantity = a}); + +instance FromXML Headers where + parseXML x + = Headers' <$> + (x .@? "Items" .!@ mempty >>= + may (parseXMLList "Name")) + <*> (x .@ "Quantity") + +instance Hashable Headers + +instance NFData Headers + +instance ToXML Headers where + toXML Headers'{..} + = mconcat + ["Items" @= toXML (toXMLList "Name" <$> _hItems), + "Quantity" @= _hQuantity] + +-- | An invalidation. +-- +-- +-- +-- /See:/ 'invalidation' smart constructor. +data Invalidation = Invalidation' + { _iId :: !Text + , _iStatus :: !Text + , _iCreateTime :: !ISO8601 + , _iInvalidationBatch :: !InvalidationBatch + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'Invalidation' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'iId' - The identifier for the invalidation request. For example: @IDFDVBD632BHDS5@ . +-- +-- * 'iStatus' - The status of the invalidation request. When the invalidation batch is finished, the status is @Completed@ . +-- +-- * 'iCreateTime' - The date and time the invalidation request was first made. +-- +-- * 'iInvalidationBatch' - The current invalidation information for the batch request. +invalidation + :: Text -- ^ 'iId' + -> Text -- ^ 'iStatus' + -> UTCTime -- ^ 'iCreateTime' + -> InvalidationBatch -- ^ 'iInvalidationBatch' + -> Invalidation +invalidation pId_ pStatus_ pCreateTime_ pInvalidationBatch_ = + Invalidation' + { _iId = pId_ + , _iStatus = pStatus_ + , _iCreateTime = _Time # pCreateTime_ + , _iInvalidationBatch = pInvalidationBatch_ + } + +-- | The identifier for the invalidation request. For example: @IDFDVBD632BHDS5@ . +iId :: Lens' Invalidation Text +iId = lens _iId (\ s a -> s{_iId = a}); + +-- | The status of the invalidation request. When the invalidation batch is finished, the status is @Completed@ . +iStatus :: Lens' Invalidation Text +iStatus = lens _iStatus (\ s a -> s{_iStatus = a}); + +-- | The date and time the invalidation request was first made. +iCreateTime :: Lens' Invalidation UTCTime +iCreateTime = lens _iCreateTime (\ s a -> s{_iCreateTime = a}) . _Time; + +-- | The current invalidation information for the batch request. +iInvalidationBatch :: Lens' Invalidation InvalidationBatch +iInvalidationBatch = lens _iInvalidationBatch (\ s a -> s{_iInvalidationBatch = a}); + +instance FromXML Invalidation where + parseXML x + = Invalidation' <$> + (x .@ "Id") <*> (x .@ "Status") <*> + (x .@ "CreateTime") + <*> (x .@ "InvalidationBatch") + +instance Hashable Invalidation + +instance NFData Invalidation + +-- | An invalidation batch. +-- +-- +-- +-- /See:/ 'invalidationBatch' smart constructor. +data InvalidationBatch = InvalidationBatch' + { _ibPaths :: !Paths + , _ibCallerReference :: !Text + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'InvalidationBatch' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ibPaths' - A complex type that contains information about the objects that you want to invalidate. For more information, see in the /Amazon CloudFront Developer Guide/ . +-- +-- * 'ibCallerReference' - A value that you specify to uniquely identify an invalidation request. CloudFront uses the value to prevent you from accidentally resubmitting an identical request. Whenever you create a new invalidation request, you must specify a new value for @CallerReference@ and change other values in the request as applicable. One way to ensure that the value of @CallerReference@ is unique is to use a @timestamp@ , for example, @20120301090000@ . If you make a second invalidation request with the same value for @CallerReference@ , and if the rest of the request is the same, CloudFront doesn't create a new invalidation request. Instead, CloudFront returns information about the invalidation request that you previously created with the same @CallerReference@ . If @CallerReference@ is a value you already sent in a previous invalidation batch request but the content of any @Path@ is different from the original request, CloudFront returns an @InvalidationBatchAlreadyExists@ error. +invalidationBatch + :: Paths -- ^ 'ibPaths' + -> Text -- ^ 'ibCallerReference' + -> InvalidationBatch +invalidationBatch pPaths_ pCallerReference_ = + InvalidationBatch' + { _ibPaths = pPaths_ + , _ibCallerReference = pCallerReference_ + } + +-- | A complex type that contains information about the objects that you want to invalidate. For more information, see in the /Amazon CloudFront Developer Guide/ . +ibPaths :: Lens' InvalidationBatch Paths +ibPaths = lens _ibPaths (\ s a -> s{_ibPaths = a}); + +-- | A value that you specify to uniquely identify an invalidation request. CloudFront uses the value to prevent you from accidentally resubmitting an identical request. Whenever you create a new invalidation request, you must specify a new value for @CallerReference@ and change other values in the request as applicable. One way to ensure that the value of @CallerReference@ is unique is to use a @timestamp@ , for example, @20120301090000@ . If you make a second invalidation request with the same value for @CallerReference@ , and if the rest of the request is the same, CloudFront doesn't create a new invalidation request. Instead, CloudFront returns information about the invalidation request that you previously created with the same @CallerReference@ . If @CallerReference@ is a value you already sent in a previous invalidation batch request but the content of any @Path@ is different from the original request, CloudFront returns an @InvalidationBatchAlreadyExists@ error. +ibCallerReference :: Lens' InvalidationBatch Text +ibCallerReference = lens _ibCallerReference (\ s a -> s{_ibCallerReference = a}); + +instance FromXML InvalidationBatch where + parseXML x + = InvalidationBatch' <$> + (x .@ "Paths") <*> (x .@ "CallerReference") + +instance Hashable InvalidationBatch + +instance NFData InvalidationBatch + +instance ToXML InvalidationBatch where + toXML InvalidationBatch'{..} + = mconcat + ["Paths" @= _ibPaths, + "CallerReference" @= _ibCallerReference] + +-- | The @InvalidationList@ complex type describes the list of invalidation objects. For more information about invalidation, see in the /Amazon CloudFront Developer Guide/ . +-- +-- +-- +-- /See:/ 'invalidationList' smart constructor. +data InvalidationList = InvalidationList' + { _ilItems :: !(Maybe [InvalidationSummary]) + , _ilNextMarker :: !(Maybe Text) + , _ilMarker :: !Text + , _ilMaxItems :: !Int + , _ilIsTruncated :: !Bool + , _ilQuantity :: !Int + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'InvalidationList' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ilItems' - A complex type that contains one @InvalidationSummary@ element for each invalidation batch created by the current AWS account. +-- +-- * 'ilNextMarker' - If @IsTruncated@ is @true@ , this element is present and contains the value that you can use for the @Marker@ request parameter to continue listing your invalidation batches where they left off. +-- +-- * 'ilMarker' - The value that you provided for the @Marker@ request parameter. +-- +-- * 'ilMaxItems' - The value that you provided for the @MaxItems@ request parameter. +-- +-- * 'ilIsTruncated' - A flag that indicates whether more invalidation batch requests remain to be listed. If your results were truncated, you can make a follow-up pagination request using the @Marker@ request parameter to retrieve more invalidation batches in the list. +-- +-- * 'ilQuantity' - The number of invalidation batches that were created by the current AWS account. +invalidationList + :: Text -- ^ 'ilMarker' + -> Int -- ^ 'ilMaxItems' + -> Bool -- ^ 'ilIsTruncated' + -> Int -- ^ 'ilQuantity' + -> InvalidationList +invalidationList pMarker_ pMaxItems_ pIsTruncated_ pQuantity_ = + InvalidationList' + { _ilItems = Nothing + , _ilNextMarker = Nothing + , _ilMarker = pMarker_ + , _ilMaxItems = pMaxItems_ + , _ilIsTruncated = pIsTruncated_ + , _ilQuantity = pQuantity_ + } + +-- | A complex type that contains one @InvalidationSummary@ element for each invalidation batch created by the current AWS account. +ilItems :: Lens' InvalidationList [InvalidationSummary] +ilItems = lens _ilItems (\ s a -> s{_ilItems = a}) . _Default . _Coerce; + +-- | If @IsTruncated@ is @true@ , this element is present and contains the value that you can use for the @Marker@ request parameter to continue listing your invalidation batches where they left off. +ilNextMarker :: Lens' InvalidationList (Maybe Text) +ilNextMarker = lens _ilNextMarker (\ s a -> s{_ilNextMarker = a}); + +-- | The value that you provided for the @Marker@ request parameter. +ilMarker :: Lens' InvalidationList Text +ilMarker = lens _ilMarker (\ s a -> s{_ilMarker = a}); + +-- | The value that you provided for the @MaxItems@ request parameter. +ilMaxItems :: Lens' InvalidationList Int +ilMaxItems = lens _ilMaxItems (\ s a -> s{_ilMaxItems = a}); + +-- | A flag that indicates whether more invalidation batch requests remain to be listed. If your results were truncated, you can make a follow-up pagination request using the @Marker@ request parameter to retrieve more invalidation batches in the list. +ilIsTruncated :: Lens' InvalidationList Bool +ilIsTruncated = lens _ilIsTruncated (\ s a -> s{_ilIsTruncated = a}); + +-- | The number of invalidation batches that were created by the current AWS account. +ilQuantity :: Lens' InvalidationList Int +ilQuantity = lens _ilQuantity (\ s a -> s{_ilQuantity = a}); + +instance FromXML InvalidationList where + parseXML x + = InvalidationList' <$> + (x .@? "Items" .!@ mempty >>= + may (parseXMLList "InvalidationSummary")) + <*> (x .@? "NextMarker") + <*> (x .@ "Marker") + <*> (x .@ "MaxItems") + <*> (x .@ "IsTruncated") + <*> (x .@ "Quantity") + +instance Hashable InvalidationList + +instance NFData InvalidationList + +-- | A summary of an invalidation request. +-- +-- +-- +-- /See:/ 'invalidationSummary' smart constructor. +data InvalidationSummary = InvalidationSummary' + { _isId :: !Text + , _isCreateTime :: !ISO8601 + , _isStatus :: !Text + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'InvalidationSummary' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'isId' - The unique ID for an invalidation request. +-- +-- * 'isCreateTime' - Undocumented member. +-- +-- * 'isStatus' - The status of an invalidation request. +invalidationSummary + :: Text -- ^ 'isId' + -> UTCTime -- ^ 'isCreateTime' + -> Text -- ^ 'isStatus' + -> InvalidationSummary +invalidationSummary pId_ pCreateTime_ pStatus_ = + InvalidationSummary' + { _isId = pId_ + , _isCreateTime = _Time # pCreateTime_ + , _isStatus = pStatus_ + } + +-- | The unique ID for an invalidation request. +isId :: Lens' InvalidationSummary Text +isId = lens _isId (\ s a -> s{_isId = a}); + +-- | Undocumented member. +isCreateTime :: Lens' InvalidationSummary UTCTime +isCreateTime = lens _isCreateTime (\ s a -> s{_isCreateTime = a}) . _Time; + +-- | The status of an invalidation request. +isStatus :: Lens' InvalidationSummary Text +isStatus = lens _isStatus (\ s a -> s{_isStatus = a}); + +instance FromXML InvalidationSummary where + parseXML x + = InvalidationSummary' <$> + (x .@ "Id") <*> (x .@ "CreateTime") <*> + (x .@ "Status") + +instance Hashable InvalidationSummary + +instance NFData InvalidationSummary + +-- | A complex type that lists the active CloudFront key pairs, if any, that are associated with @AwsAccountNumber@ . +-- +-- +-- For more information, see 'ActiveTrustedSigners' . +-- +-- +-- /See:/ 'keyPairIds' smart constructor. +data KeyPairIds = KeyPairIds' + { _kpiItems :: !(Maybe [Text]) + , _kpiQuantity :: !Int + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'KeyPairIds' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'kpiItems' - A complex type that lists the active CloudFront key pairs, if any, that are associated with @AwsAccountNumber@ . For more information, see 'ActiveTrustedSigners' . +-- +-- * 'kpiQuantity' - The number of active CloudFront key pairs for @AwsAccountNumber@ . For more information, see 'ActiveTrustedSigners' . +keyPairIds + :: Int -- ^ 'kpiQuantity' + -> KeyPairIds +keyPairIds pQuantity_ = + KeyPairIds' + { _kpiItems = Nothing + , _kpiQuantity = pQuantity_ + } + +-- | A complex type that lists the active CloudFront key pairs, if any, that are associated with @AwsAccountNumber@ . For more information, see 'ActiveTrustedSigners' . +kpiItems :: Lens' KeyPairIds [Text] +kpiItems = lens _kpiItems (\ s a -> s{_kpiItems = a}) . _Default . _Coerce; + +-- | The number of active CloudFront key pairs for @AwsAccountNumber@ . For more information, see 'ActiveTrustedSigners' . +kpiQuantity :: Lens' KeyPairIds Int +kpiQuantity = lens _kpiQuantity (\ s a -> s{_kpiQuantity = a}); + +instance FromXML KeyPairIds where + parseXML x + = KeyPairIds' <$> + (x .@? "Items" .!@ mempty >>= + may (parseXMLList "KeyPairId")) + <*> (x .@ "Quantity") + +instance Hashable KeyPairIds + +instance NFData KeyPairIds + +-- | A complex type that controls whether access logs are written for the distribution. +-- +-- +-- +-- /See:/ 'loggingConfig' smart constructor. +data LoggingConfig = LoggingConfig' + { _lcEnabled :: !Bool + , _lcIncludeCookies :: !Bool + , _lcBucket :: !Text + , _lcPrefix :: !Text + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'LoggingConfig' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'lcEnabled' - Specifies whether you want CloudFront to save access logs to an Amazon S3 bucket. If you do not want to enable logging when you create a distribution or if you want to disable logging for an existing distribution, specify @false@ for @Enabled@ , and specify empty @Bucket@ and @Prefix@ elements. If you specify @false@ for @Enabled@ but you specify values for @Bucket@ , @prefix@ , and @IncludeCookies@ , the values are automatically deleted. +-- +-- * 'lcIncludeCookies' - Specifies whether you want CloudFront to include cookies in access logs, specify @true@ for @IncludeCookies@ . If you choose to include cookies in logs, CloudFront logs all cookies regardless of how you configure the cache behaviors for this distribution. If you do not want to include cookies when you create a distribution or if you want to disable include cookies for an existing distribution, specify @false@ for @IncludeCookies@ . +-- +-- * 'lcBucket' - The Amazon S3 bucket to store the access logs in, for example, @myawslogbucket.s3.amazonaws.com@ . +-- +-- * 'lcPrefix' - An optional string that you want CloudFront to prefix to the access log @filenames@ for this distribution, for example, @myprefix/@ . If you want to enable logging, but you do not want to specify a prefix, you still must include an empty @Prefix@ element in the @Logging@ element. +loggingConfig + :: Bool -- ^ 'lcEnabled' + -> Bool -- ^ 'lcIncludeCookies' + -> Text -- ^ 'lcBucket' + -> Text -- ^ 'lcPrefix' + -> LoggingConfig +loggingConfig pEnabled_ pIncludeCookies_ pBucket_ pPrefix_ = + LoggingConfig' + { _lcEnabled = pEnabled_ + , _lcIncludeCookies = pIncludeCookies_ + , _lcBucket = pBucket_ + , _lcPrefix = pPrefix_ + } + +-- | Specifies whether you want CloudFront to save access logs to an Amazon S3 bucket. If you do not want to enable logging when you create a distribution or if you want to disable logging for an existing distribution, specify @false@ for @Enabled@ , and specify empty @Bucket@ and @Prefix@ elements. If you specify @false@ for @Enabled@ but you specify values for @Bucket@ , @prefix@ , and @IncludeCookies@ , the values are automatically deleted. +lcEnabled :: Lens' LoggingConfig Bool +lcEnabled = lens _lcEnabled (\ s a -> s{_lcEnabled = a}); + +-- | Specifies whether you want CloudFront to include cookies in access logs, specify @true@ for @IncludeCookies@ . If you choose to include cookies in logs, CloudFront logs all cookies regardless of how you configure the cache behaviors for this distribution. If you do not want to include cookies when you create a distribution or if you want to disable include cookies for an existing distribution, specify @false@ for @IncludeCookies@ . +lcIncludeCookies :: Lens' LoggingConfig Bool +lcIncludeCookies = lens _lcIncludeCookies (\ s a -> s{_lcIncludeCookies = a}); + +-- | The Amazon S3 bucket to store the access logs in, for example, @myawslogbucket.s3.amazonaws.com@ . +lcBucket :: Lens' LoggingConfig Text +lcBucket = lens _lcBucket (\ s a -> s{_lcBucket = a}); + +-- | An optional string that you want CloudFront to prefix to the access log @filenames@ for this distribution, for example, @myprefix/@ . If you want to enable logging, but you do not want to specify a prefix, you still must include an empty @Prefix@ element in the @Logging@ element. +lcPrefix :: Lens' LoggingConfig Text +lcPrefix = lens _lcPrefix (\ s a -> s{_lcPrefix = a}); + +instance FromXML LoggingConfig where + parseXML x + = LoggingConfig' <$> + (x .@ "Enabled") <*> (x .@ "IncludeCookies") <*> + (x .@ "Bucket") + <*> (x .@ "Prefix") + +instance Hashable LoggingConfig + +instance NFData LoggingConfig + +instance ToXML LoggingConfig where + toXML LoggingConfig'{..} + = mconcat + ["Enabled" @= _lcEnabled, + "IncludeCookies" @= _lcIncludeCookies, + "Bucket" @= _lcBucket, "Prefix" @= _lcPrefix] + +-- | A complex type that describes the Amazon S3 bucket or the HTTP server (for example, a web server) from which CloudFront gets your files. You must create at least one origin. +-- +-- +-- For the current limit on the number of origins that you can create for a distribution, see in the /AWS General Reference/ . +-- +-- +-- /See:/ 'origin' smart constructor. +data Origin = Origin' + { _oCustomHeaders :: !(Maybe CustomHeaders) + , _oCustomOriginConfig :: !(Maybe CustomOriginConfig) + , _oS3OriginConfig :: !(Maybe S3OriginConfig) + , _oOriginPath :: !(Maybe Text) + , _oId :: !Text + , _oDomainName :: !Text + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'Origin' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'oCustomHeaders' - A complex type that contains names and values for the custom headers that you want. +-- +-- * 'oCustomOriginConfig' - A complex type that contains information about a custom origin. If the origin is an Amazon S3 bucket, use the @S3OriginConfig@ element instead. +-- +-- * 'oS3OriginConfig' - A complex type that contains information about the Amazon S3 origin. If the origin is a custom origin, use the @CustomOriginConfig@ element instead. +-- +-- * 'oOriginPath' - An optional element that causes CloudFront to request your content from a directory in your Amazon S3 bucket or your custom origin. When you include the @OriginPath@ element, specify the directory name, beginning with a @/@ . CloudFront appends the directory name to the value of @DomainName@ , for example, @example.com/production@ . Do not include a @/@ at the end of the directory name. For example, suppose you've specified the following values for your distribution: * @DomainName@ : An Amazon S3 bucket named @myawsbucket@ . * @OriginPath@ : @/production@ * @CNAME@ : @example.com@ When a user enters @example.com/index.html@ in a browser, CloudFront sends a request to Amazon S3 for @myawsbucket/production/index.html@ . When a user enters @example.com/acme/index.html@ in a browser, CloudFront sends a request to Amazon S3 for @myawsbucket/production/acme/index.html@ . +-- +-- * 'oId' - A unique identifier for the origin. The value of @Id@ must be unique within the distribution. When you specify the value of @TargetOriginId@ for the default cache behavior or for another cache behavior, you indicate the origin to which you want the cache behavior to route requests by specifying the value of the @Id@ element for that origin. When a request matches the path pattern for that cache behavior, CloudFront routes the request to the specified origin. For more information, see in the /Amazon CloudFront Developer Guide/ . +-- +-- * 'oDomainName' - __Amazon S3 origins__ : The DNS name of the Amazon S3 bucket from which you want CloudFront to get objects for this origin, for example, @myawsbucket.s3.amazonaws.com@ . Constraints for Amazon S3 origins: * If you configured Amazon S3 Transfer Acceleration for your bucket, do not specify the @s3-accelerate@ endpoint for @DomainName@ . * The bucket name must be between 3 and 63 characters long (inclusive). * The bucket name must contain only lowercase characters, numbers, periods, underscores, and dashes. * The bucket name must not contain adjacent periods. __Custom Origins__ : The DNS domain name for the HTTP server from which you want CloudFront to get objects for this origin, for example, @www.example.com@ . Constraints for custom origins: * @DomainName@ must be a valid DNS name that contains only a-z, A-Z, 0-9, dot (.), hyphen (-), or underscore (_) characters. * The name cannot exceed 128 characters. +origin + :: Text -- ^ 'oId' + -> Text -- ^ 'oDomainName' + -> Origin +origin pId_ pDomainName_ = + Origin' + { _oCustomHeaders = Nothing + , _oCustomOriginConfig = Nothing + , _oS3OriginConfig = Nothing + , _oOriginPath = Nothing + , _oId = pId_ + , _oDomainName = pDomainName_ + } + +-- | A complex type that contains names and values for the custom headers that you want. +oCustomHeaders :: Lens' Origin (Maybe CustomHeaders) +oCustomHeaders = lens _oCustomHeaders (\ s a -> s{_oCustomHeaders = a}); + +-- | A complex type that contains information about a custom origin. If the origin is an Amazon S3 bucket, use the @S3OriginConfig@ element instead. +oCustomOriginConfig :: Lens' Origin (Maybe CustomOriginConfig) +oCustomOriginConfig = lens _oCustomOriginConfig (\ s a -> s{_oCustomOriginConfig = a}); + +-- | A complex type that contains information about the Amazon S3 origin. If the origin is a custom origin, use the @CustomOriginConfig@ element instead. +oS3OriginConfig :: Lens' Origin (Maybe S3OriginConfig) +oS3OriginConfig = lens _oS3OriginConfig (\ s a -> s{_oS3OriginConfig = a}); + +-- | An optional element that causes CloudFront to request your content from a directory in your Amazon S3 bucket or your custom origin. When you include the @OriginPath@ element, specify the directory name, beginning with a @/@ . CloudFront appends the directory name to the value of @DomainName@ , for example, @example.com/production@ . Do not include a @/@ at the end of the directory name. For example, suppose you've specified the following values for your distribution: * @DomainName@ : An Amazon S3 bucket named @myawsbucket@ . * @OriginPath@ : @/production@ * @CNAME@ : @example.com@ When a user enters @example.com/index.html@ in a browser, CloudFront sends a request to Amazon S3 for @myawsbucket/production/index.html@ . When a user enters @example.com/acme/index.html@ in a browser, CloudFront sends a request to Amazon S3 for @myawsbucket/production/acme/index.html@ . +oOriginPath :: Lens' Origin (Maybe Text) +oOriginPath = lens _oOriginPath (\ s a -> s{_oOriginPath = a}); + +-- | A unique identifier for the origin. The value of @Id@ must be unique within the distribution. When you specify the value of @TargetOriginId@ for the default cache behavior or for another cache behavior, you indicate the origin to which you want the cache behavior to route requests by specifying the value of the @Id@ element for that origin. When a request matches the path pattern for that cache behavior, CloudFront routes the request to the specified origin. For more information, see in the /Amazon CloudFront Developer Guide/ . +oId :: Lens' Origin Text +oId = lens _oId (\ s a -> s{_oId = a}); + +-- | __Amazon S3 origins__ : The DNS name of the Amazon S3 bucket from which you want CloudFront to get objects for this origin, for example, @myawsbucket.s3.amazonaws.com@ . Constraints for Amazon S3 origins: * If you configured Amazon S3 Transfer Acceleration for your bucket, do not specify the @s3-accelerate@ endpoint for @DomainName@ . * The bucket name must be between 3 and 63 characters long (inclusive). * The bucket name must contain only lowercase characters, numbers, periods, underscores, and dashes. * The bucket name must not contain adjacent periods. __Custom Origins__ : The DNS domain name for the HTTP server from which you want CloudFront to get objects for this origin, for example, @www.example.com@ . Constraints for custom origins: * @DomainName@ must be a valid DNS name that contains only a-z, A-Z, 0-9, dot (.), hyphen (-), or underscore (_) characters. * The name cannot exceed 128 characters. +oDomainName :: Lens' Origin Text +oDomainName = lens _oDomainName (\ s a -> s{_oDomainName = a}); + +instance FromXML Origin where + parseXML x + = Origin' <$> + (x .@? "CustomHeaders") <*> + (x .@? "CustomOriginConfig") + <*> (x .@? "S3OriginConfig") + <*> (x .@? "OriginPath") + <*> (x .@ "Id") + <*> (x .@ "DomainName") + +instance Hashable Origin + +instance NFData Origin + +instance ToXML Origin where + toXML Origin'{..} + = mconcat + ["CustomHeaders" @= _oCustomHeaders, + "CustomOriginConfig" @= _oCustomOriginConfig, + "S3OriginConfig" @= _oS3OriginConfig, + "OriginPath" @= _oOriginPath, "Id" @= _oId, + "DomainName" @= _oDomainName] + +-- | A complex type that contains @HeaderName@ and @HeaderValue@ elements, if any, for this distribution. +-- +-- +-- +-- /See:/ 'originCustomHeader' smart constructor. +data OriginCustomHeader = OriginCustomHeader' + { _ochHeaderName :: !Text + , _ochHeaderValue :: !Text + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'OriginCustomHeader' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ochHeaderName' - The name of a header that you want CloudFront to forward to your origin. For more information, see in the /Amazon Amazon CloudFront Developer Guide/ . +-- +-- * 'ochHeaderValue' - The value for the header that you specified in the @HeaderName@ field. +originCustomHeader + :: Text -- ^ 'ochHeaderName' + -> Text -- ^ 'ochHeaderValue' + -> OriginCustomHeader +originCustomHeader pHeaderName_ pHeaderValue_ = + OriginCustomHeader' + { _ochHeaderName = pHeaderName_ + , _ochHeaderValue = pHeaderValue_ + } + +-- | The name of a header that you want CloudFront to forward to your origin. For more information, see in the /Amazon Amazon CloudFront Developer Guide/ . +ochHeaderName :: Lens' OriginCustomHeader Text +ochHeaderName = lens _ochHeaderName (\ s a -> s{_ochHeaderName = a}); + +-- | The value for the header that you specified in the @HeaderName@ field. +ochHeaderValue :: Lens' OriginCustomHeader Text +ochHeaderValue = lens _ochHeaderValue (\ s a -> s{_ochHeaderValue = a}); + +instance FromXML OriginCustomHeader where + parseXML x + = OriginCustomHeader' <$> + (x .@ "HeaderName") <*> (x .@ "HeaderValue") + +instance Hashable OriginCustomHeader + +instance NFData OriginCustomHeader + +instance ToXML OriginCustomHeader where + toXML OriginCustomHeader'{..} + = mconcat + ["HeaderName" @= _ochHeaderName, + "HeaderValue" @= _ochHeaderValue] + +-- | A complex type that contains information about the SSL/TLS protocols that CloudFront can use when establishing an HTTPS connection with your origin. +-- +-- +-- +-- /See:/ 'originSSLProtocols' smart constructor. +data OriginSSLProtocols = OriginSSLProtocols' + { _ospQuantity :: !Int + , _ospItems :: ![SSLProtocol] + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'OriginSSLProtocols' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ospQuantity' - The number of SSL/TLS protocols that you want to allow CloudFront to use when establishing an HTTPS connection with this origin. +-- +-- * 'ospItems' - A list that contains allowed SSL/TLS protocols for this distribution. +originSSLProtocols + :: Int -- ^ 'ospQuantity' + -> OriginSSLProtocols +originSSLProtocols pQuantity_ = + OriginSSLProtocols' + { _ospQuantity = pQuantity_ + , _ospItems = mempty + } + +-- | The number of SSL/TLS protocols that you want to allow CloudFront to use when establishing an HTTPS connection with this origin. +ospQuantity :: Lens' OriginSSLProtocols Int +ospQuantity = lens _ospQuantity (\ s a -> s{_ospQuantity = a}); + +-- | A list that contains allowed SSL/TLS protocols for this distribution. +ospItems :: Lens' OriginSSLProtocols [SSLProtocol] +ospItems = lens _ospItems (\ s a -> s{_ospItems = a}) . _Coerce; + +instance FromXML OriginSSLProtocols where + parseXML x + = OriginSSLProtocols' <$> + (x .@ "Quantity") <*> + (x .@? "Items" .!@ mempty >>= + parseXMLList "SslProtocol") + +instance Hashable OriginSSLProtocols + +instance NFData OriginSSLProtocols + +instance ToXML OriginSSLProtocols where + toXML OriginSSLProtocols'{..} + = mconcat + ["Quantity" @= _ospQuantity, + "Items" @= toXMLList "SslProtocol" _ospItems] + +-- | A complex type that contains information about origins for this distribution. +-- +-- +-- +-- /See:/ 'origins' smart constructor. +data Origins = Origins' + { _oItems :: !(Maybe (List1 Origin)) + , _oQuantity :: !Int + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'Origins' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'oItems' - A complex type that contains origins for this distribution. +-- +-- * 'oQuantity' - The number of origins for this distribution. +origins + :: Int -- ^ 'oQuantity' + -> Origins +origins pQuantity_ = + Origins' + { _oItems = Nothing + , _oQuantity = pQuantity_ + } + +-- | A complex type that contains origins for this distribution. +oItems :: Lens' Origins (Maybe (NonEmpty Origin)) +oItems = lens _oItems (\ s a -> s{_oItems = a}) . mapping _List1; + +-- | The number of origins for this distribution. +oQuantity :: Lens' Origins Int +oQuantity = lens _oQuantity (\ s a -> s{_oQuantity = a}); + +instance FromXML Origins where + parseXML x + = Origins' <$> + (x .@? "Items" .!@ mempty >>= + may (parseXMLList1 "Origin")) + <*> (x .@ "Quantity") + +instance Hashable Origins + +instance NFData Origins + +instance ToXML Origins where + toXML Origins'{..} + = mconcat + ["Items" @= toXML (toXMLList "Origin" <$> _oItems), + "Quantity" @= _oQuantity] + +-- | A complex type that contains information about the objects that you want to invalidate. For more information, see in the /Amazon CloudFront Developer Guide/ . +-- +-- +-- +-- /See:/ 'paths' smart constructor. +data Paths = Paths' + { _pItems :: !(Maybe [Text]) + , _pQuantity :: !Int + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'Paths' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'pItems' - A complex type that contains a list of the paths that you want to invalidate. +-- +-- * 'pQuantity' - The number of objects that you want to invalidate. +paths + :: Int -- ^ 'pQuantity' + -> Paths +paths pQuantity_ = + Paths' + { _pItems = Nothing + , _pQuantity = pQuantity_ + } + +-- | A complex type that contains a list of the paths that you want to invalidate. +pItems :: Lens' Paths [Text] +pItems = lens _pItems (\ s a -> s{_pItems = a}) . _Default . _Coerce; + +-- | The number of objects that you want to invalidate. +pQuantity :: Lens' Paths Int +pQuantity = lens _pQuantity (\ s a -> s{_pQuantity = a}); + +instance FromXML Paths where + parseXML x + = Paths' <$> + (x .@? "Items" .!@ mempty >>= + may (parseXMLList "Path")) + <*> (x .@ "Quantity") + +instance Hashable Paths + +instance NFData Paths + +instance ToXML Paths where + toXML Paths'{..} + = mconcat + ["Items" @= toXML (toXMLList "Path" <$> _pItems), + "Quantity" @= _pQuantity] + +-- | /See:/ 'queryStringCacheKeys' smart constructor. +data QueryStringCacheKeys = QueryStringCacheKeys' + { _qsckItems :: !(Maybe [Text]) + , _qsckQuantity :: !Int + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'QueryStringCacheKeys' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'qsckItems' - (Optional) A list that contains the query string parameters that you want CloudFront to use as a basis for caching for this cache behavior. If @Quantity@ is 0, you can omit @Items@ . +-- +-- * 'qsckQuantity' - The number of @whitelisted@ query string parameters for this cache behavior. +queryStringCacheKeys + :: Int -- ^ 'qsckQuantity' + -> QueryStringCacheKeys +queryStringCacheKeys pQuantity_ = + QueryStringCacheKeys' + { _qsckItems = Nothing + , _qsckQuantity = pQuantity_ + } + +-- | (Optional) A list that contains the query string parameters that you want CloudFront to use as a basis for caching for this cache behavior. If @Quantity@ is 0, you can omit @Items@ . +qsckItems :: Lens' QueryStringCacheKeys [Text] +qsckItems = lens _qsckItems (\ s a -> s{_qsckItems = a}) . _Default . _Coerce; + +-- | The number of @whitelisted@ query string parameters for this cache behavior. +qsckQuantity :: Lens' QueryStringCacheKeys Int +qsckQuantity = lens _qsckQuantity (\ s a -> s{_qsckQuantity = a}); + +instance FromXML QueryStringCacheKeys where + parseXML x + = QueryStringCacheKeys' <$> + (x .@? "Items" .!@ mempty >>= + may (parseXMLList "Name")) + <*> (x .@ "Quantity") + +instance Hashable QueryStringCacheKeys + +instance NFData QueryStringCacheKeys + +instance ToXML QueryStringCacheKeys where + toXML QueryStringCacheKeys'{..} + = mconcat + ["Items" @= toXML (toXMLList "Name" <$> _qsckItems), + "Quantity" @= _qsckQuantity] + +-- | A complex type that identifies ways in which you want to restrict distribution of your content. +-- +-- +-- +-- /See:/ 'restrictions' smart constructor. +newtype Restrictions = Restrictions' + { _rGeoRestriction :: GeoRestriction + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'Restrictions' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'rGeoRestriction' - Undocumented member. +restrictions + :: GeoRestriction -- ^ 'rGeoRestriction' + -> Restrictions +restrictions pGeoRestriction_ = + Restrictions' + { _rGeoRestriction = pGeoRestriction_ + } + +-- | Undocumented member. +rGeoRestriction :: Lens' Restrictions GeoRestriction +rGeoRestriction = lens _rGeoRestriction (\ s a -> s{_rGeoRestriction = a}); + +instance FromXML Restrictions where + parseXML x + = Restrictions' <$> (x .@ "GeoRestriction") + +instance Hashable Restrictions + +instance NFData Restrictions + +instance ToXML Restrictions where + toXML Restrictions'{..} + = mconcat ["GeoRestriction" @= _rGeoRestriction] + +-- | A complex type that contains information about the Amazon S3 bucket from which you want CloudFront to get your media files for distribution. +-- +-- +-- +-- /See:/ 's3Origin' smart constructor. +data S3Origin = S3Origin' + { _soDomainName :: !Text + , _soOriginAccessIdentity :: !Text + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'S3Origin' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'soDomainName' - The DNS name of the Amazon S3 origin. +-- +-- * 'soOriginAccessIdentity' - The CloudFront origin access identity to associate with the RTMP distribution. Use an origin access identity to configure the distribution so that end users can only access objects in an Amazon S3 bucket through CloudFront. If you want end users to be able to access objects using either the CloudFront URL or the Amazon S3 URL, specify an empty @OriginAccessIdentity@ element. To delete the origin access identity from an existing distribution, update the distribution configuration and include an empty @OriginAccessIdentity@ element. To replace the origin access identity, update the distribution configuration and specify the new origin access identity. For more information, see in the /Amazon Amazon CloudFront Developer Guide/ . +s3Origin + :: Text -- ^ 'soDomainName' + -> Text -- ^ 'soOriginAccessIdentity' + -> S3Origin +s3Origin pDomainName_ pOriginAccessIdentity_ = + S3Origin' + { _soDomainName = pDomainName_ + , _soOriginAccessIdentity = pOriginAccessIdentity_ + } + +-- | The DNS name of the Amazon S3 origin. +soDomainName :: Lens' S3Origin Text +soDomainName = lens _soDomainName (\ s a -> s{_soDomainName = a}); + +-- | The CloudFront origin access identity to associate with the RTMP distribution. Use an origin access identity to configure the distribution so that end users can only access objects in an Amazon S3 bucket through CloudFront. If you want end users to be able to access objects using either the CloudFront URL or the Amazon S3 URL, specify an empty @OriginAccessIdentity@ element. To delete the origin access identity from an existing distribution, update the distribution configuration and include an empty @OriginAccessIdentity@ element. To replace the origin access identity, update the distribution configuration and specify the new origin access identity. For more information, see in the /Amazon Amazon CloudFront Developer Guide/ . +soOriginAccessIdentity :: Lens' S3Origin Text +soOriginAccessIdentity = lens _soOriginAccessIdentity (\ s a -> s{_soOriginAccessIdentity = a}); + +instance FromXML S3Origin where + parseXML x + = S3Origin' <$> + (x .@ "DomainName") <*> (x .@ "OriginAccessIdentity") + +instance Hashable S3Origin + +instance NFData S3Origin + +instance ToXML S3Origin where + toXML S3Origin'{..} + = mconcat + ["DomainName" @= _soDomainName, + "OriginAccessIdentity" @= _soOriginAccessIdentity] + +-- | A complex type that contains information about the Amazon S3 origin. If the origin is a custom origin, use the @CustomOriginConfig@ element instead. +-- +-- +-- +-- /See:/ 's3OriginConfig' smart constructor. +newtype S3OriginConfig = S3OriginConfig' + { _socOriginAccessIdentity :: Text + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'S3OriginConfig' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'socOriginAccessIdentity' - The CloudFront origin access identity to associate with the origin. Use an origin access identity to configure the origin so that viewers can /only/ access objects in an Amazon S3 bucket through CloudFront. The format of the value is: origin-access-identity/CloudFront//ID-of-origin-access-identity/ where @/ID-of-origin-access-identity/ @ is the value that CloudFront returned in the @ID@ element when you created the origin access identity. If you want viewers to be able to access objects using either the CloudFront URL or the Amazon S3 URL, specify an empty @OriginAccessIdentity@ element. To delete the origin access identity from an existing distribution, update the distribution configuration and include an empty @OriginAccessIdentity@ element. To replace the origin access identity, update the distribution configuration and specify the new origin access identity. For more information about the origin access identity, see in the /Amazon CloudFront Developer Guide/ . +s3OriginConfig + :: Text -- ^ 'socOriginAccessIdentity' + -> S3OriginConfig +s3OriginConfig pOriginAccessIdentity_ = + S3OriginConfig' + { _socOriginAccessIdentity = pOriginAccessIdentity_ + } + +-- | The CloudFront origin access identity to associate with the origin. Use an origin access identity to configure the origin so that viewers can /only/ access objects in an Amazon S3 bucket through CloudFront. The format of the value is: origin-access-identity/CloudFront//ID-of-origin-access-identity/ where @/ID-of-origin-access-identity/ @ is the value that CloudFront returned in the @ID@ element when you created the origin access identity. If you want viewers to be able to access objects using either the CloudFront URL or the Amazon S3 URL, specify an empty @OriginAccessIdentity@ element. To delete the origin access identity from an existing distribution, update the distribution configuration and include an empty @OriginAccessIdentity@ element. To replace the origin access identity, update the distribution configuration and specify the new origin access identity. For more information about the origin access identity, see in the /Amazon CloudFront Developer Guide/ . +socOriginAccessIdentity :: Lens' S3OriginConfig Text +socOriginAccessIdentity = lens _socOriginAccessIdentity (\ s a -> s{_socOriginAccessIdentity = a}); + +instance FromXML S3OriginConfig where + parseXML x + = S3OriginConfig' <$> (x .@ "OriginAccessIdentity") + +instance Hashable S3OriginConfig + +instance NFData S3OriginConfig + +instance ToXML S3OriginConfig where + toXML S3OriginConfig'{..} + = mconcat + ["OriginAccessIdentity" @= _socOriginAccessIdentity] + +-- | A complex type that lists the AWS accounts that were included in the @TrustedSigners@ complex type, as well as their active CloudFront key pair IDs, if any. +-- +-- +-- +-- /See:/ 'signer' smart constructor. +data Signer = Signer' + { _sAWSAccountNumber :: !(Maybe Text) + , _sKeyPairIds :: !(Maybe KeyPairIds) + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'Signer' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'sAWSAccountNumber' - An AWS account that is included in the @TrustedSigners@ complex type for this RTMP distribution. Valid values include: * @self@ , which is the AWS account used to create the distribution. * An AWS account number. +-- +-- * 'sKeyPairIds' - A complex type that lists the active CloudFront key pairs, if any, that are associated with @AwsAccountNumber@ . +signer + :: Signer +signer = + Signer' + { _sAWSAccountNumber = Nothing + , _sKeyPairIds = Nothing + } + +-- | An AWS account that is included in the @TrustedSigners@ complex type for this RTMP distribution. Valid values include: * @self@ , which is the AWS account used to create the distribution. * An AWS account number. +sAWSAccountNumber :: Lens' Signer (Maybe Text) +sAWSAccountNumber = lens _sAWSAccountNumber (\ s a -> s{_sAWSAccountNumber = a}); + +-- | A complex type that lists the active CloudFront key pairs, if any, that are associated with @AwsAccountNumber@ . +sKeyPairIds :: Lens' Signer (Maybe KeyPairIds) +sKeyPairIds = lens _sKeyPairIds (\ s a -> s{_sKeyPairIds = a}); + +instance FromXML Signer where + parseXML x + = Signer' <$> + (x .@? "AwsAccountNumber") <*> (x .@? "KeyPairIds") + +instance Hashable Signer + +instance NFData Signer + +-- | A streaming distribution. +-- +-- +-- +-- /See:/ 'streamingDistribution' smart constructor. +data StreamingDistribution = StreamingDistribution' + { _sdLastModifiedTime :: !(Maybe ISO8601) + , _sdId :: !Text + , _sdARN :: !Text + , _sdStatus :: !Text + , _sdDomainName :: !Text + , _sdActiveTrustedSigners :: !ActiveTrustedSigners + , _sdStreamingDistributionConfig :: !StreamingDistributionConfig + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'StreamingDistribution' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'sdLastModifiedTime' - The date and time that the distribution was last modified. +-- +-- * 'sdId' - The identifier for the RTMP distribution. For example: @EGTXBD79EXAMPLE@ . +-- +-- * 'sdARN' - Undocumented member. +-- +-- * 'sdStatus' - The current status of the RTMP distribution. When the status is @Deployed@ , the distribution's information is propagated to all CloudFront edge locations. +-- +-- * 'sdDomainName' - The domain name that corresponds to the streaming distribution. For example: @s5c39gqb8ow64r.cloudfront.net@ . +-- +-- * 'sdActiveTrustedSigners' - A complex type that lists the AWS accounts, if any, that you included in the @TrustedSigners@ complex type for this distribution. These are the accounts that you want to allow to create signed URLs for private content. The @Signer@ complex type lists the AWS account number of the trusted signer or @self@ if the signer is the AWS account that created the distribution. The @Signer@ element also includes the IDs of any active CloudFront key pairs that are associated with the trusted signer's AWS account. If no @KeyPairId@ element appears for a @Signer@ , that signer can't create signed URLs. For more information, see in the /Amazon CloudFront Developer Guide/ . +-- +-- * 'sdStreamingDistributionConfig' - The current configuration information for the RTMP distribution. +streamingDistribution + :: Text -- ^ 'sdId' + -> Text -- ^ 'sdARN' + -> Text -- ^ 'sdStatus' + -> Text -- ^ 'sdDomainName' + -> ActiveTrustedSigners -- ^ 'sdActiveTrustedSigners' + -> StreamingDistributionConfig -- ^ 'sdStreamingDistributionConfig' + -> StreamingDistribution +streamingDistribution pId_ pARN_ pStatus_ pDomainName_ pActiveTrustedSigners_ pStreamingDistributionConfig_ = + StreamingDistribution' + { _sdLastModifiedTime = Nothing + , _sdId = pId_ + , _sdARN = pARN_ + , _sdStatus = pStatus_ + , _sdDomainName = pDomainName_ + , _sdActiveTrustedSigners = pActiveTrustedSigners_ + , _sdStreamingDistributionConfig = pStreamingDistributionConfig_ + } + +-- | The date and time that the distribution was last modified. +sdLastModifiedTime :: Lens' StreamingDistribution (Maybe UTCTime) +sdLastModifiedTime = lens _sdLastModifiedTime (\ s a -> s{_sdLastModifiedTime = a}) . mapping _Time; + +-- | The identifier for the RTMP distribution. For example: @EGTXBD79EXAMPLE@ . +sdId :: Lens' StreamingDistribution Text +sdId = lens _sdId (\ s a -> s{_sdId = a}); + +-- | Undocumented member. +sdARN :: Lens' StreamingDistribution Text +sdARN = lens _sdARN (\ s a -> s{_sdARN = a}); + +-- | The current status of the RTMP distribution. When the status is @Deployed@ , the distribution's information is propagated to all CloudFront edge locations. +sdStatus :: Lens' StreamingDistribution Text +sdStatus = lens _sdStatus (\ s a -> s{_sdStatus = a}); + +-- | The domain name that corresponds to the streaming distribution. For example: @s5c39gqb8ow64r.cloudfront.net@ . +sdDomainName :: Lens' StreamingDistribution Text +sdDomainName = lens _sdDomainName (\ s a -> s{_sdDomainName = a}); + +-- | A complex type that lists the AWS accounts, if any, that you included in the @TrustedSigners@ complex type for this distribution. These are the accounts that you want to allow to create signed URLs for private content. The @Signer@ complex type lists the AWS account number of the trusted signer or @self@ if the signer is the AWS account that created the distribution. The @Signer@ element also includes the IDs of any active CloudFront key pairs that are associated with the trusted signer's AWS account. If no @KeyPairId@ element appears for a @Signer@ , that signer can't create signed URLs. For more information, see in the /Amazon CloudFront Developer Guide/ . +sdActiveTrustedSigners :: Lens' StreamingDistribution ActiveTrustedSigners +sdActiveTrustedSigners = lens _sdActiveTrustedSigners (\ s a -> s{_sdActiveTrustedSigners = a}); + +-- | The current configuration information for the RTMP distribution. +sdStreamingDistributionConfig :: Lens' StreamingDistribution StreamingDistributionConfig +sdStreamingDistributionConfig = lens _sdStreamingDistributionConfig (\ s a -> s{_sdStreamingDistributionConfig = a}); + +instance FromXML StreamingDistribution where + parseXML x + = StreamingDistribution' <$> + (x .@? "LastModifiedTime") <*> (x .@ "Id") <*> + (x .@ "ARN") + <*> (x .@ "Status") + <*> (x .@ "DomainName") + <*> (x .@ "ActiveTrustedSigners") + <*> (x .@ "StreamingDistributionConfig") + +instance Hashable StreamingDistribution + +instance NFData StreamingDistribution + +-- | The RTMP distribution's configuration information. +-- +-- +-- +-- /See:/ 'streamingDistributionConfig' smart constructor. +data StreamingDistributionConfig = StreamingDistributionConfig' + { _sdcAliases :: !(Maybe Aliases) + , _sdcPriceClass :: !(Maybe PriceClass) + , _sdcLogging :: !(Maybe StreamingLoggingConfig) + , _sdcCallerReference :: !Text + , _sdcS3Origin :: !S3Origin + , _sdcComment :: !Text + , _sdcTrustedSigners :: !TrustedSigners + , _sdcEnabled :: !Bool + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'StreamingDistributionConfig' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'sdcAliases' - A complex type that contains information about CNAMEs (alternate domain names), if any, for this streaming distribution. +-- +-- * 'sdcPriceClass' - A complex type that contains information about price class for this streaming distribution. +-- +-- * 'sdcLogging' - A complex type that controls whether access logs are written for the streaming distribution. +-- +-- * 'sdcCallerReference' - A unique number that ensures that the request can't be replayed. If the @CallerReference@ is new (no matter the content of the @StreamingDistributionConfig@ object), a new streaming distribution is created. If the @CallerReference@ is a value that you already sent in a previous request to create a streaming distribution, and the content of the @StreamingDistributionConfig@ is identical to the original request (ignoring white space), the response includes the same information returned to the original request. If the @CallerReference@ is a value that you already sent in a previous request to create a streaming distribution but the content of the @StreamingDistributionConfig@ is different from the original request, CloudFront returns a @DistributionAlreadyExists@ error. +-- +-- * 'sdcS3Origin' - A complex type that contains information about the Amazon S3 bucket from which you want CloudFront to get your media files for distribution. +-- +-- * 'sdcComment' - Any comments you want to include about the streaming distribution. +-- +-- * 'sdcTrustedSigners' - A complex type that specifies any AWS accounts that you want to permit to create signed URLs for private content. If you want the distribution to use signed URLs, include this element; if you want the distribution to use public URLs, remove this element. For more information, see in the /Amazon CloudFront Developer Guide/ . +-- +-- * 'sdcEnabled' - Whether the streaming distribution is enabled to accept user requests for content. +streamingDistributionConfig + :: Text -- ^ 'sdcCallerReference' + -> S3Origin -- ^ 'sdcS3Origin' + -> Text -- ^ 'sdcComment' + -> TrustedSigners -- ^ 'sdcTrustedSigners' + -> Bool -- ^ 'sdcEnabled' + -> StreamingDistributionConfig +streamingDistributionConfig pCallerReference_ pS3Origin_ pComment_ pTrustedSigners_ pEnabled_ = + StreamingDistributionConfig' + { _sdcAliases = Nothing + , _sdcPriceClass = Nothing + , _sdcLogging = Nothing + , _sdcCallerReference = pCallerReference_ + , _sdcS3Origin = pS3Origin_ + , _sdcComment = pComment_ + , _sdcTrustedSigners = pTrustedSigners_ + , _sdcEnabled = pEnabled_ + } + +-- | A complex type that contains information about CNAMEs (alternate domain names), if any, for this streaming distribution. +sdcAliases :: Lens' StreamingDistributionConfig (Maybe Aliases) +sdcAliases = lens _sdcAliases (\ s a -> s{_sdcAliases = a}); + +-- | A complex type that contains information about price class for this streaming distribution. +sdcPriceClass :: Lens' StreamingDistributionConfig (Maybe PriceClass) +sdcPriceClass = lens _sdcPriceClass (\ s a -> s{_sdcPriceClass = a}); + +-- | A complex type that controls whether access logs are written for the streaming distribution. +sdcLogging :: Lens' StreamingDistributionConfig (Maybe StreamingLoggingConfig) +sdcLogging = lens _sdcLogging (\ s a -> s{_sdcLogging = a}); + +-- | A unique number that ensures that the request can't be replayed. If the @CallerReference@ is new (no matter the content of the @StreamingDistributionConfig@ object), a new streaming distribution is created. If the @CallerReference@ is a value that you already sent in a previous request to create a streaming distribution, and the content of the @StreamingDistributionConfig@ is identical to the original request (ignoring white space), the response includes the same information returned to the original request. If the @CallerReference@ is a value that you already sent in a previous request to create a streaming distribution but the content of the @StreamingDistributionConfig@ is different from the original request, CloudFront returns a @DistributionAlreadyExists@ error. +sdcCallerReference :: Lens' StreamingDistributionConfig Text +sdcCallerReference = lens _sdcCallerReference (\ s a -> s{_sdcCallerReference = a}); + +-- | A complex type that contains information about the Amazon S3 bucket from which you want CloudFront to get your media files for distribution. +sdcS3Origin :: Lens' StreamingDistributionConfig S3Origin +sdcS3Origin = lens _sdcS3Origin (\ s a -> s{_sdcS3Origin = a}); + +-- | Any comments you want to include about the streaming distribution. +sdcComment :: Lens' StreamingDistributionConfig Text +sdcComment = lens _sdcComment (\ s a -> s{_sdcComment = a}); + +-- | A complex type that specifies any AWS accounts that you want to permit to create signed URLs for private content. If you want the distribution to use signed URLs, include this element; if you want the distribution to use public URLs, remove this element. For more information, see in the /Amazon CloudFront Developer Guide/ . +sdcTrustedSigners :: Lens' StreamingDistributionConfig TrustedSigners +sdcTrustedSigners = lens _sdcTrustedSigners (\ s a -> s{_sdcTrustedSigners = a}); + +-- | Whether the streaming distribution is enabled to accept user requests for content. +sdcEnabled :: Lens' StreamingDistributionConfig Bool +sdcEnabled = lens _sdcEnabled (\ s a -> s{_sdcEnabled = a}); + +instance FromXML StreamingDistributionConfig where + parseXML x + = StreamingDistributionConfig' <$> + (x .@? "Aliases") <*> (x .@? "PriceClass") <*> + (x .@? "Logging") + <*> (x .@ "CallerReference") + <*> (x .@ "S3Origin") + <*> (x .@ "Comment") + <*> (x .@ "TrustedSigners") + <*> (x .@ "Enabled") + +instance Hashable StreamingDistributionConfig + +instance NFData StreamingDistributionConfig + +instance ToXML StreamingDistributionConfig where + toXML StreamingDistributionConfig'{..} + = mconcat + ["Aliases" @= _sdcAliases, + "PriceClass" @= _sdcPriceClass, + "Logging" @= _sdcLogging, + "CallerReference" @= _sdcCallerReference, + "S3Origin" @= _sdcS3Origin, "Comment" @= _sdcComment, + "TrustedSigners" @= _sdcTrustedSigners, + "Enabled" @= _sdcEnabled] + +-- | A streaming distribution Configuration and a list of tags to be associated with the streaming distribution. +-- +-- +-- +-- /See:/ 'streamingDistributionConfigWithTags' smart constructor. +data StreamingDistributionConfigWithTags = StreamingDistributionConfigWithTags' + { _sdcwtStreamingDistributionConfig :: !StreamingDistributionConfig + , _sdcwtTags :: !Tags + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'StreamingDistributionConfigWithTags' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'sdcwtStreamingDistributionConfig' - A streaming distribution Configuration. +-- +-- * 'sdcwtTags' - A complex type that contains zero or more @Tag@ elements. +streamingDistributionConfigWithTags + :: StreamingDistributionConfig -- ^ 'sdcwtStreamingDistributionConfig' + -> Tags -- ^ 'sdcwtTags' + -> StreamingDistributionConfigWithTags +streamingDistributionConfigWithTags pStreamingDistributionConfig_ pTags_ = + StreamingDistributionConfigWithTags' + { _sdcwtStreamingDistributionConfig = pStreamingDistributionConfig_ + , _sdcwtTags = pTags_ + } + +-- | A streaming distribution Configuration. +sdcwtStreamingDistributionConfig :: Lens' StreamingDistributionConfigWithTags StreamingDistributionConfig +sdcwtStreamingDistributionConfig = lens _sdcwtStreamingDistributionConfig (\ s a -> s{_sdcwtStreamingDistributionConfig = a}); + +-- | A complex type that contains zero or more @Tag@ elements. +sdcwtTags :: Lens' StreamingDistributionConfigWithTags Tags +sdcwtTags = lens _sdcwtTags (\ s a -> s{_sdcwtTags = a}); + +instance Hashable StreamingDistributionConfigWithTags + +instance NFData StreamingDistributionConfigWithTags + +instance ToXML StreamingDistributionConfigWithTags + where + toXML StreamingDistributionConfigWithTags'{..} + = mconcat + ["StreamingDistributionConfig" @= + _sdcwtStreamingDistributionConfig, + "Tags" @= _sdcwtTags] + +-- | A streaming distribution list. +-- +-- +-- +-- /See:/ 'streamingDistributionList' smart constructor. +data StreamingDistributionList = StreamingDistributionList' + { _sdlItems :: !(Maybe [StreamingDistributionSummary]) + , _sdlNextMarker :: !(Maybe Text) + , _sdlMarker :: !Text + , _sdlMaxItems :: !Int + , _sdlIsTruncated :: !Bool + , _sdlQuantity :: !Int + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'StreamingDistributionList' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'sdlItems' - A complex type that contains one @StreamingDistributionSummary@ element for each distribution that was created by the current AWS account. +-- +-- * 'sdlNextMarker' - If @IsTruncated@ is @true@ , this element is present and contains the value you can use for the @Marker@ request parameter to continue listing your RTMP distributions where they left off. +-- +-- * 'sdlMarker' - The value you provided for the @Marker@ request parameter. +-- +-- * 'sdlMaxItems' - The value you provided for the @MaxItems@ request parameter. +-- +-- * 'sdlIsTruncated' - A flag that indicates whether more streaming distributions remain to be listed. If your results were truncated, you can make a follow-up pagination request using the @Marker@ request parameter to retrieve more distributions in the list. +-- +-- * 'sdlQuantity' - The number of streaming distributions that were created by the current AWS account. +streamingDistributionList + :: Text -- ^ 'sdlMarker' + -> Int -- ^ 'sdlMaxItems' + -> Bool -- ^ 'sdlIsTruncated' + -> Int -- ^ 'sdlQuantity' + -> StreamingDistributionList +streamingDistributionList pMarker_ pMaxItems_ pIsTruncated_ pQuantity_ = + StreamingDistributionList' + { _sdlItems = Nothing + , _sdlNextMarker = Nothing + , _sdlMarker = pMarker_ + , _sdlMaxItems = pMaxItems_ + , _sdlIsTruncated = pIsTruncated_ + , _sdlQuantity = pQuantity_ + } + +-- | A complex type that contains one @StreamingDistributionSummary@ element for each distribution that was created by the current AWS account. +sdlItems :: Lens' StreamingDistributionList [StreamingDistributionSummary] +sdlItems = lens _sdlItems (\ s a -> s{_sdlItems = a}) . _Default . _Coerce; + +-- | If @IsTruncated@ is @true@ , this element is present and contains the value you can use for the @Marker@ request parameter to continue listing your RTMP distributions where they left off. +sdlNextMarker :: Lens' StreamingDistributionList (Maybe Text) +sdlNextMarker = lens _sdlNextMarker (\ s a -> s{_sdlNextMarker = a}); + +-- | The value you provided for the @Marker@ request parameter. +sdlMarker :: Lens' StreamingDistributionList Text +sdlMarker = lens _sdlMarker (\ s a -> s{_sdlMarker = a}); + +-- | The value you provided for the @MaxItems@ request parameter. +sdlMaxItems :: Lens' StreamingDistributionList Int +sdlMaxItems = lens _sdlMaxItems (\ s a -> s{_sdlMaxItems = a}); + +-- | A flag that indicates whether more streaming distributions remain to be listed. If your results were truncated, you can make a follow-up pagination request using the @Marker@ request parameter to retrieve more distributions in the list. +sdlIsTruncated :: Lens' StreamingDistributionList Bool +sdlIsTruncated = lens _sdlIsTruncated (\ s a -> s{_sdlIsTruncated = a}); + +-- | The number of streaming distributions that were created by the current AWS account. +sdlQuantity :: Lens' StreamingDistributionList Int +sdlQuantity = lens _sdlQuantity (\ s a -> s{_sdlQuantity = a}); + +instance FromXML StreamingDistributionList where + parseXML x + = StreamingDistributionList' <$> + (x .@? "Items" .!@ mempty >>= + may (parseXMLList "StreamingDistributionSummary")) + <*> (x .@? "NextMarker") + <*> (x .@ "Marker") + <*> (x .@ "MaxItems") + <*> (x .@ "IsTruncated") + <*> (x .@ "Quantity") + +instance Hashable StreamingDistributionList + +instance NFData StreamingDistributionList + +-- | A summary of the information for an Amazon CloudFront streaming distribution. +-- +-- +-- +-- /See:/ 'streamingDistributionSummary' smart constructor. +data StreamingDistributionSummary = StreamingDistributionSummary' + { _sdsId :: !Text + , _sdsARN :: !Text + , _sdsStatus :: !Text + , _sdsLastModifiedTime :: !ISO8601 + , _sdsDomainName :: !Text + , _sdsS3Origin :: !S3Origin + , _sdsAliases :: !Aliases + , _sdsTrustedSigners :: !TrustedSigners + , _sdsComment :: !Text + , _sdsPriceClass :: !PriceClass + , _sdsEnabled :: !Bool + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'StreamingDistributionSummary' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'sdsId' - The identifier for the distribution. For example: @EDFDVBD632BHDS5@ . +-- +-- * 'sdsARN' - The ARN (Amazon Resource Name) for the streaming distribution. For example: @arn:aws:cloudfront::123456789012:streaming-distribution/EDFDVBD632BHDS5@ , where @123456789012@ is your AWS account ID. +-- +-- * 'sdsStatus' - Indicates the current status of the distribution. When the status is @Deployed@ , the distribution's information is fully propagated throughout the Amazon CloudFront system. +-- +-- * 'sdsLastModifiedTime' - The date and time the distribution was last modified. +-- +-- * 'sdsDomainName' - The domain name corresponding to the distribution. For example: @d604721fxaaqy9.cloudfront.net@ . +-- +-- * 'sdsS3Origin' - A complex type that contains information about the Amazon S3 bucket from which you want CloudFront to get your media files for distribution. +-- +-- * 'sdsAliases' - A complex type that contains information about CNAMEs (alternate domain names), if any, for this streaming distribution. +-- +-- * 'sdsTrustedSigners' - A complex type that specifies the AWS accounts, if any, that you want to allow to create signed URLs for private content. If you want to require signed URLs in requests for objects in the target origin that match the @PathPattern@ for this cache behavior, specify @true@ for @Enabled@ , and specify the applicable values for @Quantity@ and @Items@ .If you don't want to require signed URLs in requests for objects that match @PathPattern@ , specify @false@ for @Enabled@ and @0@ for @Quantity@ . Omit @Items@ . To add, change, or remove one or more trusted signers, change @Enabled@ to @true@ (if it's currently @false@ ), change @Quantity@ as applicable, and specify all of the trusted signers that you want to include in the updated distribution. +-- +-- * 'sdsComment' - The comment originally specified when this distribution was created. +-- +-- * 'sdsPriceClass' - Undocumented member. +-- +-- * 'sdsEnabled' - Whether the distribution is enabled to accept end user requests for content. +streamingDistributionSummary + :: Text -- ^ 'sdsId' + -> Text -- ^ 'sdsARN' + -> Text -- ^ 'sdsStatus' + -> UTCTime -- ^ 'sdsLastModifiedTime' + -> Text -- ^ 'sdsDomainName' + -> S3Origin -- ^ 'sdsS3Origin' + -> Aliases -- ^ 'sdsAliases' + -> TrustedSigners -- ^ 'sdsTrustedSigners' + -> Text -- ^ 'sdsComment' + -> PriceClass -- ^ 'sdsPriceClass' + -> Bool -- ^ 'sdsEnabled' + -> StreamingDistributionSummary +streamingDistributionSummary pId_ pARN_ pStatus_ pLastModifiedTime_ pDomainName_ pS3Origin_ pAliases_ pTrustedSigners_ pComment_ pPriceClass_ pEnabled_ = + StreamingDistributionSummary' + { _sdsId = pId_ + , _sdsARN = pARN_ + , _sdsStatus = pStatus_ + , _sdsLastModifiedTime = _Time # pLastModifiedTime_ + , _sdsDomainName = pDomainName_ + , _sdsS3Origin = pS3Origin_ + , _sdsAliases = pAliases_ + , _sdsTrustedSigners = pTrustedSigners_ + , _sdsComment = pComment_ + , _sdsPriceClass = pPriceClass_ + , _sdsEnabled = pEnabled_ + } + +-- | The identifier for the distribution. For example: @EDFDVBD632BHDS5@ . +sdsId :: Lens' StreamingDistributionSummary Text +sdsId = lens _sdsId (\ s a -> s{_sdsId = a}); + +-- | The ARN (Amazon Resource Name) for the streaming distribution. For example: @arn:aws:cloudfront::123456789012:streaming-distribution/EDFDVBD632BHDS5@ , where @123456789012@ is your AWS account ID. +sdsARN :: Lens' StreamingDistributionSummary Text +sdsARN = lens _sdsARN (\ s a -> s{_sdsARN = a}); + +-- | Indicates the current status of the distribution. When the status is @Deployed@ , the distribution's information is fully propagated throughout the Amazon CloudFront system. +sdsStatus :: Lens' StreamingDistributionSummary Text +sdsStatus = lens _sdsStatus (\ s a -> s{_sdsStatus = a}); + +-- | The date and time the distribution was last modified. +sdsLastModifiedTime :: Lens' StreamingDistributionSummary UTCTime +sdsLastModifiedTime = lens _sdsLastModifiedTime (\ s a -> s{_sdsLastModifiedTime = a}) . _Time; + +-- | The domain name corresponding to the distribution. For example: @d604721fxaaqy9.cloudfront.net@ . +sdsDomainName :: Lens' StreamingDistributionSummary Text +sdsDomainName = lens _sdsDomainName (\ s a -> s{_sdsDomainName = a}); + +-- | A complex type that contains information about the Amazon S3 bucket from which you want CloudFront to get your media files for distribution. +sdsS3Origin :: Lens' StreamingDistributionSummary S3Origin +sdsS3Origin = lens _sdsS3Origin (\ s a -> s{_sdsS3Origin = a}); + +-- | A complex type that contains information about CNAMEs (alternate domain names), if any, for this streaming distribution. +sdsAliases :: Lens' StreamingDistributionSummary Aliases +sdsAliases = lens _sdsAliases (\ s a -> s{_sdsAliases = a}); + +-- | A complex type that specifies the AWS accounts, if any, that you want to allow to create signed URLs for private content. If you want to require signed URLs in requests for objects in the target origin that match the @PathPattern@ for this cache behavior, specify @true@ for @Enabled@ , and specify the applicable values for @Quantity@ and @Items@ .If you don't want to require signed URLs in requests for objects that match @PathPattern@ , specify @false@ for @Enabled@ and @0@ for @Quantity@ . Omit @Items@ . To add, change, or remove one or more trusted signers, change @Enabled@ to @true@ (if it's currently @false@ ), change @Quantity@ as applicable, and specify all of the trusted signers that you want to include in the updated distribution. +sdsTrustedSigners :: Lens' StreamingDistributionSummary TrustedSigners +sdsTrustedSigners = lens _sdsTrustedSigners (\ s a -> s{_sdsTrustedSigners = a}); + +-- | The comment originally specified when this distribution was created. +sdsComment :: Lens' StreamingDistributionSummary Text +sdsComment = lens _sdsComment (\ s a -> s{_sdsComment = a}); + +-- | Undocumented member. +sdsPriceClass :: Lens' StreamingDistributionSummary PriceClass +sdsPriceClass = lens _sdsPriceClass (\ s a -> s{_sdsPriceClass = a}); + +-- | Whether the distribution is enabled to accept end user requests for content. +sdsEnabled :: Lens' StreamingDistributionSummary Bool +sdsEnabled = lens _sdsEnabled (\ s a -> s{_sdsEnabled = a}); + +instance FromXML StreamingDistributionSummary where + parseXML x + = StreamingDistributionSummary' <$> + (x .@ "Id") <*> (x .@ "ARN") <*> (x .@ "Status") <*> + (x .@ "LastModifiedTime") + <*> (x .@ "DomainName") + <*> (x .@ "S3Origin") + <*> (x .@ "Aliases") + <*> (x .@ "TrustedSigners") + <*> (x .@ "Comment") + <*> (x .@ "PriceClass") + <*> (x .@ "Enabled") + +instance Hashable StreamingDistributionSummary + +instance NFData StreamingDistributionSummary + +-- | A complex type that controls whether access logs are written for this streaming distribution. +-- +-- +-- +-- /See:/ 'streamingLoggingConfig' smart constructor. +data StreamingLoggingConfig = StreamingLoggingConfig' + { _slcEnabled :: !Bool + , _slcBucket :: !Text + , _slcPrefix :: !Text + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'StreamingLoggingConfig' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'slcEnabled' - Specifies whether you want CloudFront to save access logs to an Amazon S3 bucket. If you do not want to enable logging when you create a streaming distribution or if you want to disable logging for an existing streaming distribution, specify @false@ for @Enabled@ , and specify @empty Bucket@ and @Prefix@ elements. If you specify @false@ for @Enabled@ but you specify values for @Bucket@ and @Prefix@ , the values are automatically deleted. +-- +-- * 'slcBucket' - The Amazon S3 bucket to store the access logs in, for example, @myawslogbucket.s3.amazonaws.com@ . +-- +-- * 'slcPrefix' - An optional string that you want CloudFront to prefix to the access log @filenames@ for this streaming distribution, for example, @myprefix/@ . If you want to enable logging, but you do not want to specify a prefix, you still must include an empty @Prefix@ element in the @Logging@ element. +streamingLoggingConfig + :: Bool -- ^ 'slcEnabled' + -> Text -- ^ 'slcBucket' + -> Text -- ^ 'slcPrefix' + -> StreamingLoggingConfig +streamingLoggingConfig pEnabled_ pBucket_ pPrefix_ = + StreamingLoggingConfig' + { _slcEnabled = pEnabled_ + , _slcBucket = pBucket_ + , _slcPrefix = pPrefix_ + } + +-- | Specifies whether you want CloudFront to save access logs to an Amazon S3 bucket. If you do not want to enable logging when you create a streaming distribution or if you want to disable logging for an existing streaming distribution, specify @false@ for @Enabled@ , and specify @empty Bucket@ and @Prefix@ elements. If you specify @false@ for @Enabled@ but you specify values for @Bucket@ and @Prefix@ , the values are automatically deleted. +slcEnabled :: Lens' StreamingLoggingConfig Bool +slcEnabled = lens _slcEnabled (\ s a -> s{_slcEnabled = a}); + +-- | The Amazon S3 bucket to store the access logs in, for example, @myawslogbucket.s3.amazonaws.com@ . +slcBucket :: Lens' StreamingLoggingConfig Text +slcBucket = lens _slcBucket (\ s a -> s{_slcBucket = a}); + +-- | An optional string that you want CloudFront to prefix to the access log @filenames@ for this streaming distribution, for example, @myprefix/@ . If you want to enable logging, but you do not want to specify a prefix, you still must include an empty @Prefix@ element in the @Logging@ element. +slcPrefix :: Lens' StreamingLoggingConfig Text +slcPrefix = lens _slcPrefix (\ s a -> s{_slcPrefix = a}); + +instance FromXML StreamingLoggingConfig where + parseXML x + = StreamingLoggingConfig' <$> + (x .@ "Enabled") <*> (x .@ "Bucket") <*> + (x .@ "Prefix") + +instance Hashable StreamingLoggingConfig + +instance NFData StreamingLoggingConfig + +instance ToXML StreamingLoggingConfig where + toXML StreamingLoggingConfig'{..} + = mconcat + ["Enabled" @= _slcEnabled, "Bucket" @= _slcBucket, + "Prefix" @= _slcPrefix] + +-- | A complex type that contains @Tag@ key and @Tag@ value. +-- +-- +-- +-- /See:/ 'tag' smart constructor. +data Tag = Tag' + { _tagValue :: !(Maybe Text) + , _tagKey :: !Text + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'Tag' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'tagValue' - A string that contains an optional @Tag@ value. The string length should be between 0 and 256 characters. Valid characters include @a-z@ , @A-Z@ , @0-9@ , space, and the special characters @_ - . : / = + @@ . +-- +-- * 'tagKey' - A string that contains @Tag@ key. The string length should be between 1 and 128 characters. Valid characters include @a-z@ , @A-Z@ , @0-9@ , space, and the special characters @_ - . : / = + @@ . +tag + :: Text -- ^ 'tagKey' + -> Tag +tag pKey_ = + Tag' + { _tagValue = Nothing + , _tagKey = pKey_ + } + +-- | A string that contains an optional @Tag@ value. The string length should be between 0 and 256 characters. Valid characters include @a-z@ , @A-Z@ , @0-9@ , space, and the special characters @_ - . : / = + @@ . +tagValue :: Lens' Tag (Maybe Text) +tagValue = lens _tagValue (\ s a -> s{_tagValue = a}); + +-- | A string that contains @Tag@ key. The string length should be between 1 and 128 characters. Valid characters include @a-z@ , @A-Z@ , @0-9@ , space, and the special characters @_ - . : / = + @@ . +tagKey :: Lens' Tag Text +tagKey = lens _tagKey (\ s a -> s{_tagKey = a}); + +instance FromXML Tag where + parseXML x + = Tag' <$> (x .@? "Value") <*> (x .@ "Key") + +instance Hashable Tag + +instance NFData Tag + +instance ToXML Tag where + toXML Tag'{..} + = mconcat ["Value" @= _tagValue, "Key" @= _tagKey] + +-- | A complex type that contains zero or more @Tag@ elements. +-- +-- +-- +-- /See:/ 'tagKeys' smart constructor. +newtype TagKeys = TagKeys' + { _tkItems :: Maybe [Text] + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'TagKeys' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'tkItems' - A complex type that contains @Tag@ key elements. +tagKeys + :: TagKeys +tagKeys = + TagKeys' + { _tkItems = Nothing + } + +-- | A complex type that contains @Tag@ key elements. +tkItems :: Lens' TagKeys [Text] +tkItems = lens _tkItems (\ s a -> s{_tkItems = a}) . _Default . _Coerce; + +instance Hashable TagKeys + +instance NFData TagKeys + +instance ToXML TagKeys where + toXML TagKeys'{..} + = mconcat + ["Items" @= toXML (toXMLList "Key" <$> _tkItems)] + +-- | A complex type that contains zero or more @Tag@ elements. +-- +-- +-- +-- /See:/ 'tags' smart constructor. +newtype Tags = Tags' + { _tItems :: Maybe [Tag] + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'Tags' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'tItems' - A complex type that contains @Tag@ elements. +tags + :: Tags +tags = + Tags' + { _tItems = Nothing + } + +-- | A complex type that contains @Tag@ elements. +tItems :: Lens' Tags [Tag] +tItems = lens _tItems (\ s a -> s{_tItems = a}) . _Default . _Coerce; + +instance FromXML Tags where + parseXML x + = Tags' <$> + (x .@? "Items" .!@ mempty >>= + may (parseXMLList "Tag")) + +instance Hashable Tags + +instance NFData Tags + +instance ToXML Tags where + toXML Tags'{..} + = mconcat + ["Items" @= toXML (toXMLList "Tag" <$> _tItems)] + +-- | A complex type that specifies the AWS accounts, if any, that you want to allow to create signed URLs for private content. +-- +-- +-- If you want to require signed URLs in requests for objects in the target origin that match the @PathPattern@ for this cache behavior, specify @true@ for @Enabled@ , and specify the applicable values for @Quantity@ and @Items@ . For more information, see in the /Amazon Amazon CloudFront Developer Guide/ . +-- +-- If you don't want to require signed URLs in requests for objects that match @PathPattern@ , specify @false@ for @Enabled@ and @0@ for @Quantity@ . Omit @Items@ . +-- +-- To add, change, or remove one or more trusted signers, change @Enabled@ to @true@ (if it's currently @false@ ), change @Quantity@ as applicable, and specify all of the trusted signers that you want to include in the updated distribution. +-- +-- For more information about updating the distribution configuration, see 'DistributionConfig' . +-- +-- +-- /See:/ 'trustedSigners' smart constructor. +data TrustedSigners = TrustedSigners' + { _tsItems :: !(Maybe [Text]) + , _tsEnabled :: !Bool + , _tsQuantity :: !Int + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'TrustedSigners' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'tsItems' - __Optional__ : A complex type that contains trusted signers for this cache behavior. If @Quantity@ is @0@ , you can omit @Items@ . +-- +-- * 'tsEnabled' - Specifies whether you want to require viewers to use signed URLs to access the files specified by @PathPattern@ and @TargetOriginId@ . +-- +-- * 'tsQuantity' - The number of trusted signers for this cache behavior. +trustedSigners + :: Bool -- ^ 'tsEnabled' + -> Int -- ^ 'tsQuantity' + -> TrustedSigners +trustedSigners pEnabled_ pQuantity_ = + TrustedSigners' + { _tsItems = Nothing + , _tsEnabled = pEnabled_ + , _tsQuantity = pQuantity_ + } + +-- | __Optional__ : A complex type that contains trusted signers for this cache behavior. If @Quantity@ is @0@ , you can omit @Items@ . +tsItems :: Lens' TrustedSigners [Text] +tsItems = lens _tsItems (\ s a -> s{_tsItems = a}) . _Default . _Coerce; + +-- | Specifies whether you want to require viewers to use signed URLs to access the files specified by @PathPattern@ and @TargetOriginId@ . +tsEnabled :: Lens' TrustedSigners Bool +tsEnabled = lens _tsEnabled (\ s a -> s{_tsEnabled = a}); + +-- | The number of trusted signers for this cache behavior. +tsQuantity :: Lens' TrustedSigners Int +tsQuantity = lens _tsQuantity (\ s a -> s{_tsQuantity = a}); + +instance FromXML TrustedSigners where + parseXML x + = TrustedSigners' <$> + (x .@? "Items" .!@ mempty >>= + may (parseXMLList "AwsAccountNumber")) + <*> (x .@ "Enabled") + <*> (x .@ "Quantity") + +instance Hashable TrustedSigners + +instance NFData TrustedSigners + +instance ToXML TrustedSigners where + toXML TrustedSigners'{..} + = mconcat + ["Items" @= + toXML (toXMLList "AwsAccountNumber" <$> _tsItems), + "Enabled" @= _tsEnabled, "Quantity" @= _tsQuantity] + +-- | A complex type that specifies the following: +-- +-- +-- * Which SSL/TLS certificate to use when viewers request objects using HTTPS +-- +-- * Whether you want CloudFront to use dedicated IP addresses or SNI when you're using alternate domain names in your object names +-- +-- * The minimum protocol version that you want CloudFront to use when communicating with viewers +-- +-- +-- +-- For more information, see in the /Amazon Amazon CloudFront Developer Guide/ . +-- +-- +-- /See:/ 'viewerCertificate' smart constructor. +data ViewerCertificate = ViewerCertificate' + { _vcSSLSupportMethod :: !(Maybe SSLSupportMethod) + , _vcACMCertificateARN :: !(Maybe Text) + , _vcCertificateSource :: !(Maybe CertificateSource) + , _vcMinimumProtocolVersion :: !(Maybe MinimumProtocolVersion) + , _vcCertificate :: !(Maybe Text) + , _vcIAMCertificateId :: !(Maybe Text) + , _vcCloudFrontDefaultCertificate :: !(Maybe Bool) + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'ViewerCertificate' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'vcSSLSupportMethod' - If you specify a value for @ACMCertificateArn@ or for @IAMCertificateId@ , you must also specify how you want CloudFront to serve HTTPS requests: using a method that works for all clients or one that works for most clients: * @vip@ : CloudFront uses dedicated IP addresses for your content and can respond to HTTPS requests from any viewer. However, you must request permission to use this feature, and you incur additional monthly charges. * @sni-only@ : CloudFront can respond to HTTPS requests from viewers that support Server Name Indication (SNI). All modern browsers support SNI, but some browsers still in use don't support SNI. If some of your users' browsers don't support SNI, we recommend that you do one of the following: * Use the @vip@ option (dedicated IP addresses) instead of @sni-only@ . * Use the CloudFront SSL/TLS certificate instead of a custom certificate. This requires that you use the CloudFront domain name of your distribution in the URLs for your objects, for example, @https://d111111abcdef8.cloudfront.net/logo.png@ . * If you can control which browser your users use, upgrade the browser to one that supports SNI. * Use HTTP instead of HTTPS. Do not specify a value for @SSLSupportMethod@ if you specified @true@ . For more information, see in the /Amazon CloudFront Developer Guide/ . +-- +-- * 'vcACMCertificateARN' - If you want viewers to use HTTPS to request your objects and you're using an alternate domain name in your object URLs (for example, @https://example.com/logo.jpg)@ , specify the ACM certificate ARN of the custom viewer certificate for this distribution. Specify either this value, @IAMCertificateId@ , or @CloudFrontDefaultCertificate@ . +-- +-- * 'vcCertificateSource' - +-- +-- * 'vcMinimumProtocolVersion' - Specify the minimum version of the SSL/TLS protocol that you want CloudFront to use for HTTPS connections between viewers and CloudFront: @SSLv3@ or @TLSv1@ . CloudFront serves your objects only to viewers that support SSL/TLS version that you specify and later versions. The @TLSv1@ protocol is more secure, so we recommend that you specify @SSLv3@ only if your users are using browsers or devices that don't support @TLSv1@ . Note the following: * If you specify true, the minimum SSL protocol version is @TLSv1@ and can't be changed. * If you're using a custom certificate (if you specify a value for @ACMCertificateArn@ or for @IAMCertificateId@ ) and if you're using SNI (if you specify @sni-only@ for @SSLSupportMethod@ ), you must specify @TLSv1@ for @MinimumProtocolVersion@ . +-- +-- * 'vcCertificate' - Include one of these values to specify the following: * Whether you want viewers to use HTTP or HTTPS to request your objects. * If you want viewers to use HTTPS, whether you're using an alternate domain name such as example.com or the CloudFront domain name for your distribution, such as @d111111abcdef8.cloudfront.net@ . * If you're using an alternate domain name, whether AWS Certificate Manager (ACM) provided the certificate, or you purchased a certificate from a third-party certificate authority and imported it into ACM or uploaded it to the IAM certificate store. You must specify one (and only one) of the three values. Do not specify @false@ for @CloudFrontDefaultCertificate@ . __If you want viewers to use HTTP to request your objects__ : Specify the following value: @true@ In addition, specify @allow-all@ for @ViewerProtocolPolicy@ for all of your cache behaviors. __If you want viewers to use HTTPS to request your objects__ : Choose the type of certificate that you want to use based on whether you're using an alternate domain name for your objects or the CloudFront domain name: * __If you're using an alternate domain name, such as example.com__ : Specify one of the following values, depending on whether ACM provided your certificate or you purchased your certificate from third-party certificate authority: * @ARN for ACM SSL/TLS certificate@ where ARN for ACM SSL/TLS certificate is the ARN for the ACM SSL/TLS certificate that you want to use for this distribution. * @IAM certificate ID@ where IAM certificate ID is the ID that IAM returned when you added the certificate to the IAM certificate store. If you specify @ACMCertificateArn@ or @IAMCertificateId@ , you must also specify a value for @SSLSupportMethod@ . If you choose to use an ACM certificate or a certificate in the IAM certificate store, we recommend that you use only an alternate domain name in your object URLs (@https://example.com/logo.jpg@ ). If you use the domain name that is associated with your CloudFront distribution (@https://d111111abcdef8.cloudfront.net/logo.jpg@ ) and the viewer supports @SNI@ , then CloudFront behaves normally. However, if the browser does not support SNI, the user's experience depends on the value that you choose for @SSLSupportMethod@ : * @vip@ : The viewer displays a warning because there is a mismatch between the CloudFront domain name and the domain name in your SSL/TLS certificate. * @sni-only@ : CloudFront drops the connection with the browser without returning the object. * __If you're using the CloudFront domain name for your distribution, such as @d111111abcdef8.cloudfront.net@ __ : Specify the following value: @true @ If you want viewers to use HTTPS, you must also specify one of the following values in your cache behaviors: * @https-only @ * @redirect-to-https @ You can also optionally require that CloudFront use HTTPS to communicate with your origin by specifying one of the following values for the applicable origins: * @https-only @ * @match-viewer @ For more information, see in the /Amazon CloudFront Developer Guide/ . +-- +-- * 'vcIAMCertificateId' - If you want viewers to use HTTPS to request your objects and you're using an alternate domain name in your object URLs (for example, @https://example.com/logo.jpg)@ , specify the IAM certificate identifier of the custom viewer certificate for this distribution. Specify either this value, @ACMCertificateArn@ , or @CloudFrontDefaultCertificate@ . +-- +-- * 'vcCloudFrontDefaultCertificate' - If you want viewers to use HTTPS to request your objects and you're using the CloudFront domain name of your distribution in your object URLs (for example, @https://d111111abcdef8.cloudfront.net/logo.jpg@ ), set to @true@ . Omit this value if you are setting an @ACMCertificateArn@ or @IAMCertificateId@ . +viewerCertificate + :: ViewerCertificate +viewerCertificate = + ViewerCertificate' + { _vcSSLSupportMethod = Nothing + , _vcACMCertificateARN = Nothing + , _vcCertificateSource = Nothing + , _vcMinimumProtocolVersion = Nothing + , _vcCertificate = Nothing + , _vcIAMCertificateId = Nothing + , _vcCloudFrontDefaultCertificate = Nothing + } + +-- | If you specify a value for @ACMCertificateArn@ or for @IAMCertificateId@ , you must also specify how you want CloudFront to serve HTTPS requests: using a method that works for all clients or one that works for most clients: * @vip@ : CloudFront uses dedicated IP addresses for your content and can respond to HTTPS requests from any viewer. However, you must request permission to use this feature, and you incur additional monthly charges. * @sni-only@ : CloudFront can respond to HTTPS requests from viewers that support Server Name Indication (SNI). All modern browsers support SNI, but some browsers still in use don't support SNI. If some of your users' browsers don't support SNI, we recommend that you do one of the following: * Use the @vip@ option (dedicated IP addresses) instead of @sni-only@ . * Use the CloudFront SSL/TLS certificate instead of a custom certificate. This requires that you use the CloudFront domain name of your distribution in the URLs for your objects, for example, @https://d111111abcdef8.cloudfront.net/logo.png@ . * If you can control which browser your users use, upgrade the browser to one that supports SNI. * Use HTTP instead of HTTPS. Do not specify a value for @SSLSupportMethod@ if you specified @true@ . For more information, see in the /Amazon CloudFront Developer Guide/ . +vcSSLSupportMethod :: Lens' ViewerCertificate (Maybe SSLSupportMethod) +vcSSLSupportMethod = lens _vcSSLSupportMethod (\ s a -> s{_vcSSLSupportMethod = a}); + +-- | If you want viewers to use HTTPS to request your objects and you're using an alternate domain name in your object URLs (for example, @https://example.com/logo.jpg)@ , specify the ACM certificate ARN of the custom viewer certificate for this distribution. Specify either this value, @IAMCertificateId@ , or @CloudFrontDefaultCertificate@ . +vcACMCertificateARN :: Lens' ViewerCertificate (Maybe Text) +vcACMCertificateARN = lens _vcACMCertificateARN (\ s a -> s{_vcACMCertificateARN = a}); + +-- | +vcCertificateSource :: Lens' ViewerCertificate (Maybe CertificateSource) +vcCertificateSource = lens _vcCertificateSource (\ s a -> s{_vcCertificateSource = a}); + +-- | Specify the minimum version of the SSL/TLS protocol that you want CloudFront to use for HTTPS connections between viewers and CloudFront: @SSLv3@ or @TLSv1@ . CloudFront serves your objects only to viewers that support SSL/TLS version that you specify and later versions. The @TLSv1@ protocol is more secure, so we recommend that you specify @SSLv3@ only if your users are using browsers or devices that don't support @TLSv1@ . Note the following: * If you specify true, the minimum SSL protocol version is @TLSv1@ and can't be changed. * If you're using a custom certificate (if you specify a value for @ACMCertificateArn@ or for @IAMCertificateId@ ) and if you're using SNI (if you specify @sni-only@ for @SSLSupportMethod@ ), you must specify @TLSv1@ for @MinimumProtocolVersion@ . +vcMinimumProtocolVersion :: Lens' ViewerCertificate (Maybe MinimumProtocolVersion) +vcMinimumProtocolVersion = lens _vcMinimumProtocolVersion (\ s a -> s{_vcMinimumProtocolVersion = a}); + +-- | Include one of these values to specify the following: * Whether you want viewers to use HTTP or HTTPS to request your objects. * If you want viewers to use HTTPS, whether you're using an alternate domain name such as example.com or the CloudFront domain name for your distribution, such as @d111111abcdef8.cloudfront.net@ . * If you're using an alternate domain name, whether AWS Certificate Manager (ACM) provided the certificate, or you purchased a certificate from a third-party certificate authority and imported it into ACM or uploaded it to the IAM certificate store. You must specify one (and only one) of the three values. Do not specify @false@ for @CloudFrontDefaultCertificate@ . __If you want viewers to use HTTP to request your objects__ : Specify the following value: @true@ In addition, specify @allow-all@ for @ViewerProtocolPolicy@ for all of your cache behaviors. __If you want viewers to use HTTPS to request your objects__ : Choose the type of certificate that you want to use based on whether you're using an alternate domain name for your objects or the CloudFront domain name: * __If you're using an alternate domain name, such as example.com__ : Specify one of the following values, depending on whether ACM provided your certificate or you purchased your certificate from third-party certificate authority: * @ARN for ACM SSL/TLS certificate@ where ARN for ACM SSL/TLS certificate is the ARN for the ACM SSL/TLS certificate that you want to use for this distribution. * @IAM certificate ID@ where IAM certificate ID is the ID that IAM returned when you added the certificate to the IAM certificate store. If you specify @ACMCertificateArn@ or @IAMCertificateId@ , you must also specify a value for @SSLSupportMethod@ . If you choose to use an ACM certificate or a certificate in the IAM certificate store, we recommend that you use only an alternate domain name in your object URLs (@https://example.com/logo.jpg@ ). If you use the domain name that is associated with your CloudFront distribution (@https://d111111abcdef8.cloudfront.net/logo.jpg@ ) and the viewer supports @SNI@ , then CloudFront behaves normally. However, if the browser does not support SNI, the user's experience depends on the value that you choose for @SSLSupportMethod@ : * @vip@ : The viewer displays a warning because there is a mismatch between the CloudFront domain name and the domain name in your SSL/TLS certificate. * @sni-only@ : CloudFront drops the connection with the browser without returning the object. * __If you're using the CloudFront domain name for your distribution, such as @d111111abcdef8.cloudfront.net@ __ : Specify the following value: @true @ If you want viewers to use HTTPS, you must also specify one of the following values in your cache behaviors: * @https-only @ * @redirect-to-https @ You can also optionally require that CloudFront use HTTPS to communicate with your origin by specifying one of the following values for the applicable origins: * @https-only @ * @match-viewer @ For more information, see in the /Amazon CloudFront Developer Guide/ . +vcCertificate :: Lens' ViewerCertificate (Maybe Text) +vcCertificate = lens _vcCertificate (\ s a -> s{_vcCertificate = a}); + +-- | If you want viewers to use HTTPS to request your objects and you're using an alternate domain name in your object URLs (for example, @https://example.com/logo.jpg)@ , specify the IAM certificate identifier of the custom viewer certificate for this distribution. Specify either this value, @ACMCertificateArn@ , or @CloudFrontDefaultCertificate@ . +vcIAMCertificateId :: Lens' ViewerCertificate (Maybe Text) +vcIAMCertificateId = lens _vcIAMCertificateId (\ s a -> s{_vcIAMCertificateId = a}); + +-- | If you want viewers to use HTTPS to request your objects and you're using the CloudFront domain name of your distribution in your object URLs (for example, @https://d111111abcdef8.cloudfront.net/logo.jpg@ ), set to @true@ . Omit this value if you are setting an @ACMCertificateArn@ or @IAMCertificateId@ . vcCloudFrontDefaultCertificate :: Lens' ViewerCertificate (Maybe Bool) vcCloudFrontDefaultCertificate = lens _vcCloudFrontDefaultCertificate (\ s a -> s{_vcCloudFrontDefaultCertificate = a}); diff --git a/gen/Network/AWS/CloudFront/UntagResource.hs b/gen/Network/AWS/CloudFront/UntagResource.hs --- a/gen/Network/AWS/CloudFront/UntagResource.hs +++ b/gen/Network/AWS/CloudFront/UntagResource.hs @@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Remove tags from a CloudFront resource. +-- +-- module Network.AWS.CloudFront.UntagResource ( -- * Creating a Request @@ -42,6 +44,8 @@ -- | The request to remove tags from a CloudFront resource. -- +-- +-- -- /See:/ 'untagResource' smart constructor. data UntagResource = UntagResource' { _urResource :: !Text @@ -52,9 +56,9 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'urResource' +-- * 'urResource' - An ARN of a CloudFront resource. -- --- * 'urTagKeys' +-- * 'urTagKeys' - A complex type that contains zero or more @Tag@ key elements. untagResource :: Text -- ^ 'urResource' -> TagKeys -- ^ 'urTagKeys' @@ -69,7 +73,7 @@ urResource :: Lens' UntagResource Text urResource = lens _urResource (\ s a -> s{_urResource = a}); --- | A complex type that contains zero or more Tag key elements. +-- | A complex type that contains zero or more @Tag@ key elements. urTagKeys :: Lens' UntagResource TagKeys urTagKeys = lens _urTagKeys (\ s a -> s{_urTagKeys = a}); @@ -85,7 +89,7 @@ instance ToElement UntagResource where toElement = mkElement - "{http://cloudfront.amazonaws.com/doc/2016-09-07/}TagKeys" + "{http://cloudfront.amazonaws.com/doc/2016-09-29/}TagKeys" . _urTagKeys @@ -93,7 +97,7 @@ toHeaders = const mempty instance ToPath UntagResource where - toPath = const "/2016-09-07/tagging" + toPath = const "/2016-09-29/tagging" instance ToQuery UntagResource where toQuery UntagResource'{..} diff --git a/gen/Network/AWS/CloudFront/UpdateCloudFrontOriginAccessIdentity.hs b/gen/Network/AWS/CloudFront/UpdateCloudFrontOriginAccessIdentity.hs --- a/gen/Network/AWS/CloudFront/UpdateCloudFrontOriginAccessIdentity.hs +++ b/gen/Network/AWS/CloudFront/UpdateCloudFrontOriginAccessIdentity.hs @@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Update an origin access identity. +-- +-- module Network.AWS.CloudFront.UpdateCloudFrontOriginAccessIdentity ( -- * Creating a Request @@ -47,6 +49,8 @@ -- | The request to update an origin access identity. -- +-- +-- -- /See:/ 'updateCloudFrontOriginAccessIdentity' smart constructor. data UpdateCloudFrontOriginAccessIdentity = UpdateCloudFrontOriginAccessIdentity' { _ucfoaiIfMatch :: !(Maybe Text) @@ -58,11 +62,11 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'ucfoaiIfMatch' +-- * 'ucfoaiIfMatch' - The value of the @ETag@ header that you received when retrieving the identity's configuration. For example: @E2QWRUHAPOMQZL@ . -- --- * 'ucfoaiCloudFrontOriginAccessIdentityConfig' +-- * 'ucfoaiCloudFrontOriginAccessIdentityConfig' - The identity's configuration information. -- --- * 'ucfoaiId' +-- * 'ucfoaiId' - The identity's id. updateCloudFrontOriginAccessIdentity :: CloudFrontOriginAccessIdentityConfig -- ^ 'ucfoaiCloudFrontOriginAccessIdentityConfig' -> Text -- ^ 'ucfoaiId' @@ -74,15 +78,15 @@ , _ucfoaiId = pId_ } --- | The value of the ETag header you received when retrieving the identity\'s configuration. For example: E2QWRUHAPOMQZL. +-- | The value of the @ETag@ header that you received when retrieving the identity's configuration. For example: @E2QWRUHAPOMQZL@ . ucfoaiIfMatch :: Lens' UpdateCloudFrontOriginAccessIdentity (Maybe Text) ucfoaiIfMatch = lens _ucfoaiIfMatch (\ s a -> s{_ucfoaiIfMatch = a}); --- | The identity\'s configuration information. +-- | The identity's configuration information. ucfoaiCloudFrontOriginAccessIdentityConfig :: Lens' UpdateCloudFrontOriginAccessIdentity CloudFrontOriginAccessIdentityConfig ucfoaiCloudFrontOriginAccessIdentityConfig = lens _ucfoaiCloudFrontOriginAccessIdentityConfig (\ s a -> s{_ucfoaiCloudFrontOriginAccessIdentityConfig = a}); --- | The identity\'s id. +-- | The identity's id. ucfoaiId :: Lens' UpdateCloudFrontOriginAccessIdentity Text ucfoaiId = lens _ucfoaiId (\ s a -> s{_ucfoaiId = a}); @@ -107,7 +111,7 @@ UpdateCloudFrontOriginAccessIdentity where toElement = mkElement - "{http://cloudfront.amazonaws.com/doc/2016-09-07/}CloudFrontOriginAccessIdentityConfig" + "{http://cloudfront.amazonaws.com/doc/2016-09-29/}CloudFrontOriginAccessIdentityConfig" . _ucfoaiCloudFrontOriginAccessIdentityConfig @@ -120,7 +124,7 @@ where toPath UpdateCloudFrontOriginAccessIdentity'{..} = mconcat - ["/2016-09-07/origin-access-identity/cloudfront/", + ["/2016-09-29/origin-access-identity/cloudfront/", toBS _ucfoaiId, "/config"] instance ToQuery UpdateCloudFrontOriginAccessIdentity @@ -129,6 +133,8 @@ -- | The returned result of the corresponding request. -- +-- +-- -- /See:/ 'updateCloudFrontOriginAccessIdentityResponse' smart constructor. data UpdateCloudFrontOriginAccessIdentityResponse = UpdateCloudFrontOriginAccessIdentityResponse' { _ucfoairsETag :: !(Maybe Text) @@ -140,11 +146,11 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'ucfoairsETag' +-- * 'ucfoairsETag' - The current version of the configuration. For example: @E2QWRUHAPOMQZL@ . -- --- * 'ucfoairsCloudFrontOriginAccessIdentity' +-- * 'ucfoairsCloudFrontOriginAccessIdentity' - The origin access identity's information. -- --- * 'ucfoairsResponseStatus' +-- * 'ucfoairsResponseStatus' - -- | The response status code. updateCloudFrontOriginAccessIdentityResponse :: Int -- ^ 'ucfoairsResponseStatus' -> UpdateCloudFrontOriginAccessIdentityResponse @@ -155,15 +161,15 @@ , _ucfoairsResponseStatus = pResponseStatus_ } --- | The current version of the configuration. For example: E2QWRUHAPOMQZL. +-- | The current version of the configuration. For example: @E2QWRUHAPOMQZL@ . ucfoairsETag :: Lens' UpdateCloudFrontOriginAccessIdentityResponse (Maybe Text) ucfoairsETag = lens _ucfoairsETag (\ s a -> s{_ucfoairsETag = a}); --- | The origin access identity\'s information. +-- | The origin access identity's information. ucfoairsCloudFrontOriginAccessIdentity :: Lens' UpdateCloudFrontOriginAccessIdentityResponse (Maybe CloudFrontOriginAccessIdentity) ucfoairsCloudFrontOriginAccessIdentity = lens _ucfoairsCloudFrontOriginAccessIdentity (\ s a -> s{_ucfoairsCloudFrontOriginAccessIdentity = a}); --- | The response status code. +-- | -- | The response status code. ucfoairsResponseStatus :: Lens' UpdateCloudFrontOriginAccessIdentityResponse Int ucfoairsResponseStatus = lens _ucfoairsResponseStatus (\ s a -> s{_ucfoairsResponseStatus = a}); diff --git a/gen/Network/AWS/CloudFront/UpdateDistribution.hs b/gen/Network/AWS/CloudFront/UpdateDistribution.hs --- a/gen/Network/AWS/CloudFront/UpdateDistribution.hs +++ b/gen/Network/AWS/CloudFront/UpdateDistribution.hs @@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Update a distribution. +-- +-- module Network.AWS.CloudFront.UpdateDistribution ( -- * Creating a Request @@ -47,6 +49,8 @@ -- | The request to update a distribution. -- +-- +-- -- /See:/ 'updateDistribution' smart constructor. data UpdateDistribution = UpdateDistribution' { _udIfMatch :: !(Maybe Text) @@ -58,11 +62,11 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'udIfMatch' +-- * 'udIfMatch' - The value of the @ETag@ header that you received when retrieving the distribution's configuration. For example: @E2QWRUHAPOMQZL@ . -- --- * 'udDistributionConfig' +-- * 'udDistributionConfig' - The distribution's configuration information. -- --- * 'udId' +-- * 'udId' - The distribution's id. updateDistribution :: DistributionConfig -- ^ 'udDistributionConfig' -> Text -- ^ 'udId' @@ -74,15 +78,15 @@ , _udId = pId_ } --- | The value of the ETag header you received when retrieving the distribution\'s configuration. For example: E2QWRUHAPOMQZL. +-- | The value of the @ETag@ header that you received when retrieving the distribution's configuration. For example: @E2QWRUHAPOMQZL@ . udIfMatch :: Lens' UpdateDistribution (Maybe Text) udIfMatch = lens _udIfMatch (\ s a -> s{_udIfMatch = a}); --- | The distribution\'s configuration information. +-- | The distribution's configuration information. udDistributionConfig :: Lens' UpdateDistribution DistributionConfig udDistributionConfig = lens _udDistributionConfig (\ s a -> s{_udDistributionConfig = a}); --- | The distribution\'s id. +-- | The distribution's id. udId :: Lens' UpdateDistribution Text udId = lens _udId (\ s a -> s{_udId = a}); @@ -104,7 +108,7 @@ instance ToElement UpdateDistribution where toElement = mkElement - "{http://cloudfront.amazonaws.com/doc/2016-09-07/}DistributionConfig" + "{http://cloudfront.amazonaws.com/doc/2016-09-29/}DistributionConfig" . _udDistributionConfig @@ -115,13 +119,15 @@ instance ToPath UpdateDistribution where toPath UpdateDistribution'{..} = mconcat - ["/2016-09-07/distribution/", toBS _udId, "/config"] + ["/2016-09-29/distribution/", toBS _udId, "/config"] instance ToQuery UpdateDistribution where toQuery = const mempty -- | The returned result of the corresponding request. -- +-- +-- -- /See:/ 'updateDistributionResponse' smart constructor. data UpdateDistributionResponse = UpdateDistributionResponse' { _udrsETag :: !(Maybe Text) @@ -133,11 +139,11 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'udrsETag' +-- * 'udrsETag' - The current version of the configuration. For example: @E2QWRUHAPOMQZL@ . -- --- * 'udrsDistribution' +-- * 'udrsDistribution' - The distribution's information. -- --- * 'udrsResponseStatus' +-- * 'udrsResponseStatus' - -- | The response status code. updateDistributionResponse :: Int -- ^ 'udrsResponseStatus' -> UpdateDistributionResponse @@ -148,15 +154,15 @@ , _udrsResponseStatus = pResponseStatus_ } --- | The current version of the configuration. For example: E2QWRUHAPOMQZL. +-- | The current version of the configuration. For example: @E2QWRUHAPOMQZL@ . udrsETag :: Lens' UpdateDistributionResponse (Maybe Text) udrsETag = lens _udrsETag (\ s a -> s{_udrsETag = a}); --- | The distribution\'s information. +-- | The distribution's information. udrsDistribution :: Lens' UpdateDistributionResponse (Maybe Distribution) udrsDistribution = lens _udrsDistribution (\ s a -> s{_udrsDistribution = a}); --- | The response status code. +-- | -- | The response status code. udrsResponseStatus :: Lens' UpdateDistributionResponse Int udrsResponseStatus = lens _udrsResponseStatus (\ s a -> s{_udrsResponseStatus = a}); diff --git a/gen/Network/AWS/CloudFront/UpdateStreamingDistribution.hs b/gen/Network/AWS/CloudFront/UpdateStreamingDistribution.hs --- a/gen/Network/AWS/CloudFront/UpdateStreamingDistribution.hs +++ b/gen/Network/AWS/CloudFront/UpdateStreamingDistribution.hs @@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Update a streaming distribution. +-- +-- module Network.AWS.CloudFront.UpdateStreamingDistribution ( -- * Creating a Request @@ -47,6 +49,8 @@ -- | The request to update a streaming distribution. -- +-- +-- -- /See:/ 'updateStreamingDistribution' smart constructor. data UpdateStreamingDistribution = UpdateStreamingDistribution' { _usdIfMatch :: !(Maybe Text) @@ -58,11 +62,11 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'usdIfMatch' +-- * 'usdIfMatch' - The value of the @ETag@ header that you received when retrieving the streaming distribution's configuration. For example: @E2QWRUHAPOMQZL@ . -- --- * 'usdStreamingDistributionConfig' +-- * 'usdStreamingDistributionConfig' - The streaming distribution's configuration information. -- --- * 'usdId' +-- * 'usdId' - The streaming distribution's id. updateStreamingDistribution :: StreamingDistributionConfig -- ^ 'usdStreamingDistributionConfig' -> Text -- ^ 'usdId' @@ -74,15 +78,15 @@ , _usdId = pId_ } --- | The value of the ETag header you received when retrieving the streaming distribution\'s configuration. For example: E2QWRUHAPOMQZL. +-- | The value of the @ETag@ header that you received when retrieving the streaming distribution's configuration. For example: @E2QWRUHAPOMQZL@ . usdIfMatch :: Lens' UpdateStreamingDistribution (Maybe Text) usdIfMatch = lens _usdIfMatch (\ s a -> s{_usdIfMatch = a}); --- | The streaming distribution\'s configuration information. +-- | The streaming distribution's configuration information. usdStreamingDistributionConfig :: Lens' UpdateStreamingDistribution StreamingDistributionConfig usdStreamingDistributionConfig = lens _usdStreamingDistributionConfig (\ s a -> s{_usdStreamingDistributionConfig = a}); --- | The streaming distribution\'s id. +-- | The streaming distribution's id. usdId :: Lens' UpdateStreamingDistribution Text usdId = lens _usdId (\ s a -> s{_usdId = a}); @@ -104,7 +108,7 @@ instance ToElement UpdateStreamingDistribution where toElement = mkElement - "{http://cloudfront.amazonaws.com/doc/2016-09-07/}StreamingDistributionConfig" + "{http://cloudfront.amazonaws.com/doc/2016-09-29/}StreamingDistributionConfig" . _usdStreamingDistributionConfig @@ -115,7 +119,7 @@ instance ToPath UpdateStreamingDistribution where toPath UpdateStreamingDistribution'{..} = mconcat - ["/2016-09-07/streaming-distribution/", toBS _usdId, + ["/2016-09-29/streaming-distribution/", toBS _usdId, "/config"] instance ToQuery UpdateStreamingDistribution where @@ -123,6 +127,8 @@ -- | The returned result of the corresponding request. -- +-- +-- -- /See:/ 'updateStreamingDistributionResponse' smart constructor. data UpdateStreamingDistributionResponse = UpdateStreamingDistributionResponse' { _usdrsETag :: !(Maybe Text) @@ -134,11 +140,11 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'usdrsETag' +-- * 'usdrsETag' - The current version of the configuration. For example: @E2QWRUHAPOMQZL@ . -- --- * 'usdrsStreamingDistribution' +-- * 'usdrsStreamingDistribution' - The streaming distribution's information. -- --- * 'usdrsResponseStatus' +-- * 'usdrsResponseStatus' - -- | The response status code. updateStreamingDistributionResponse :: Int -- ^ 'usdrsResponseStatus' -> UpdateStreamingDistributionResponse @@ -149,15 +155,15 @@ , _usdrsResponseStatus = pResponseStatus_ } --- | The current version of the configuration. For example: E2QWRUHAPOMQZL. +-- | The current version of the configuration. For example: @E2QWRUHAPOMQZL@ . usdrsETag :: Lens' UpdateStreamingDistributionResponse (Maybe Text) usdrsETag = lens _usdrsETag (\ s a -> s{_usdrsETag = a}); --- | The streaming distribution\'s information. +-- | The streaming distribution's information. usdrsStreamingDistribution :: Lens' UpdateStreamingDistributionResponse (Maybe StreamingDistribution) usdrsStreamingDistribution = lens _usdrsStreamingDistribution (\ s a -> s{_usdrsStreamingDistribution = a}); --- | The response status code. +-- | -- | The response status code. usdrsResponseStatus :: Lens' UpdateStreamingDistributionResponse Int usdrsResponseStatus = lens _usdrsResponseStatus (\ s a -> s{_usdrsResponseStatus = a}); diff --git a/gen/Network/AWS/CloudFront/Waiters.hs b/gen/Network/AWS/CloudFront/Waiters.hs --- a/gen/Network/AWS/CloudFront/Waiters.hs +++ b/gen/Network/AWS/CloudFront/Waiters.hs @@ -23,8 +23,7 @@ import Network.AWS.Prelude import Network.AWS.Waiter --- | Polls 'Network.AWS.CloudFront.GetStreamingDistribution' every 60 seconds until a --- successful state is reached. An error is returned after 25 failed checks. +-- | Polls 'Network.AWS.CloudFront.GetStreamingDistribution' every 60 seconds until a successful state is reached. An error is returned after 25 failed checks. streamingDistributionDeployed :: Wait GetStreamingDistribution streamingDistributionDeployed = Wait @@ -38,8 +37,7 @@ _Just . sdStatus . to toTextCI)] } --- | Polls 'Network.AWS.CloudFront.GetDistribution' every 60 seconds until a --- successful state is reached. An error is returned after 25 failed checks. +-- | Polls 'Network.AWS.CloudFront.GetDistribution' every 60 seconds until a successful state is reached. An error is returned after 25 failed checks. distributionDeployed :: Wait GetDistribution distributionDeployed = Wait @@ -52,8 +50,7 @@ (gdrsDistribution . _Just . dStatus . to toTextCI)] } --- | Polls 'Network.AWS.CloudFront.GetInvalidation' every 20 seconds until a --- successful state is reached. An error is returned after 60 failed checks. +-- | Polls 'Network.AWS.CloudFront.GetInvalidation' every 20 seconds until a successful state is reached. An error is returned after 60 failed checks. invalidationCompleted :: Wait GetInvalidation invalidationCompleted = Wait