amazonka-cloudfront 1.4.3 → 1.4.4

raw patch · 45 files changed

+1311/−63 lines, 45 filesdep ~amazonka-cloudfrontdep ~amazonka-coredep ~amazonka-testPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: amazonka-cloudfront, amazonka-core, amazonka-test

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-cloudfront.cabal +11/−6
• fixture/CreateDistributionWithTags.yaml +0/−0
• fixture/CreateDistributionWithTagsResponse.proto +0/−0
• fixture/CreateStreamingDistributionWithTags.yaml +0/−0
• fixture/CreateStreamingDistributionWithTagsResponse.proto +0/−0
• fixture/ListTagsForResource.yaml +0/−0
• fixture/ListTagsForResourceResponse.proto +0/−0
• fixture/TagResource.yaml +0/−0
• fixture/TagResourceResponse.proto +0/−0
• fixture/UntagResource.yaml +0/−0
• fixture/UntagResourceResponse.proto +0/−0
• gen/Network/AWS/CloudFront.hs +76/−0
• gen/Network/AWS/CloudFront/CreateCloudFrontOriginAccessIdentity.hs +2/−2
• gen/Network/AWS/CloudFront/CreateDistribution.hs +2/−2
• gen/Network/AWS/CloudFront/CreateDistributionWithTags.hs +151/−0
• gen/Network/AWS/CloudFront/CreateInvalidation.hs +2/−2
• gen/Network/AWS/CloudFront/CreateStreamingDistribution.hs +2/−2
• gen/Network/AWS/CloudFront/CreateStreamingDistributionWithTags.hs +157/−0
• gen/Network/AWS/CloudFront/DeleteCloudFrontOriginAccessIdentity.hs +1/−1
• gen/Network/AWS/CloudFront/DeleteDistribution.hs +1/−1
• gen/Network/AWS/CloudFront/DeleteStreamingDistribution.hs +1/−1
• gen/Network/AWS/CloudFront/GetCloudFrontOriginAccessIdentity.hs +1/−1
• gen/Network/AWS/CloudFront/GetCloudFrontOriginAccessIdentityConfig.hs +1/−1
• gen/Network/AWS/CloudFront/GetDistribution.hs +1/−1
• gen/Network/AWS/CloudFront/GetDistributionConfig.hs +1/−1
• gen/Network/AWS/CloudFront/GetInvalidation.hs +1/−1
• gen/Network/AWS/CloudFront/GetStreamingDistribution.hs +1/−1
• gen/Network/AWS/CloudFront/GetStreamingDistributionConfig.hs +1/−1
• gen/Network/AWS/CloudFront/ListCloudFrontOriginAccessIdentities.hs +1/−1
• gen/Network/AWS/CloudFront/ListDistributions.hs +1/−1
• gen/Network/AWS/CloudFront/ListDistributionsByWebACLId.hs +1/−1
• gen/Network/AWS/CloudFront/ListInvalidations.hs +1/−1
• gen/Network/AWS/CloudFront/ListStreamingDistributions.hs +1/−1
• gen/Network/AWS/CloudFront/ListTagsForResource.hs +126/−0
• gen/Network/AWS/CloudFront/TagResource.hs +114/−0
• gen/Network/AWS/CloudFront/Types.hs +68/−2
• gen/Network/AWS/CloudFront/Types/Product.hs +341/−21
• gen/Network/AWS/CloudFront/Types/Sum.hs +33/−4
• gen/Network/AWS/CloudFront/UntagResource.hs +114/−0
• gen/Network/AWS/CloudFront/UpdateCloudFrontOriginAccessIdentity.hs +2/−2
• gen/Network/AWS/CloudFront/UpdateDistribution.hs +2/−2
• gen/Network/AWS/CloudFront/UpdateStreamingDistribution.hs +2/−2
• src/.gitkeep +0/−0
• test/Test/AWS/Gen/CloudFront.hs +90/−0

@@ -8,7 +8,7 @@  ## Version -`1.4.3`+`1.4.4`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-cloudfront-version:               1.4.3+version:               1.4.4 synopsis:              Amazon CloudFront SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -11,7 +11,7 @@ category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple cabal-version:         >= 1.10-extra-source-files:    README.md fixture/*.yaml fixture/*.proto+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.     .@@ -43,8 +43,10 @@           Network.AWS.CloudFront         , Network.AWS.CloudFront.CreateCloudFrontOriginAccessIdentity         , Network.AWS.CloudFront.CreateDistribution+        , Network.AWS.CloudFront.CreateDistributionWithTags         , Network.AWS.CloudFront.CreateInvalidation         , Network.AWS.CloudFront.CreateStreamingDistribution+        , Network.AWS.CloudFront.CreateStreamingDistributionWithTags         , Network.AWS.CloudFront.DeleteCloudFrontOriginAccessIdentity         , Network.AWS.CloudFront.DeleteDistribution         , Network.AWS.CloudFront.DeleteStreamingDistribution@@ -60,7 +62,10 @@         , Network.AWS.CloudFront.ListDistributionsByWebACLId         , Network.AWS.CloudFront.ListInvalidations         , Network.AWS.CloudFront.ListStreamingDistributions+        , Network.AWS.CloudFront.ListTagsForResource+        , Network.AWS.CloudFront.TagResource         , Network.AWS.CloudFront.Types+        , Network.AWS.CloudFront.UntagResource         , Network.AWS.CloudFront.UpdateCloudFrontOriginAccessIdentity         , Network.AWS.CloudFront.UpdateDistribution         , Network.AWS.CloudFront.UpdateStreamingDistribution@@ -71,7 +76,7 @@         , Network.AWS.CloudFront.Types.Sum      build-depends:-          amazonka-core == 1.4.3.*+          amazonka-core == 1.4.4.*         , base          >= 4.7     && < 5  test-suite amazonka-cloudfront-test@@ -91,9 +96,9 @@         , Test.AWS.CloudFront.Internal      build-depends:-          amazonka-core == 1.4.3.*-        , amazonka-test == 1.4.3.*-        , amazonka-cloudfront == 1.4.3.*+          amazonka-core == 1.4.4.*+        , amazonka-test == 1.4.4.*+        , amazonka-cloudfront == 1.4.4.*         , base         , bytestring         , tasty

@@ -23,6 +23,9 @@     -- ** TooManyOriginCustomHeaders     , _TooManyOriginCustomHeaders +    -- ** InvalidTagging+    , _InvalidTagging+     -- ** InvalidErrorCode     , _InvalidErrorCode @@ -53,6 +56,9 @@     -- ** InvalidWebACLId     , _InvalidWebACLId +    -- ** TooManyQueryStringParameters+    , _TooManyQueryStringParameters+     -- ** TooManyDistributionCNAMEs     , _TooManyDistributionCNAMEs @@ -95,6 +101,9 @@     -- ** TooManyHeadersInForwardedValues     , _TooManyHeadersInForwardedValues +    -- ** NoSuchResource+    , _NoSuchResource+     -- ** TooManyStreamingDistributionCNAMEs     , _TooManyStreamingDistributionCNAMEs @@ -110,6 +119,9 @@     -- ** DistributionAlreadyExists     , _DistributionAlreadyExists +    -- ** InvalidQueryStringParameters+    , _InvalidQueryStringParameters+     -- ** MissingBody     , _MissingBody @@ -191,12 +203,21 @@     -- ** UpdateStreamingDistribution     , module Network.AWS.CloudFront.UpdateStreamingDistribution +    -- ** ListTagsForResource+    , module Network.AWS.CloudFront.ListTagsForResource++    -- ** CreateDistributionWithTags+    , module Network.AWS.CloudFront.CreateDistributionWithTags+     -- ** CreateDistribution     , module Network.AWS.CloudFront.CreateDistribution      -- ** GetDistributionConfig     , module Network.AWS.CloudFront.GetDistributionConfig +    -- ** CreateStreamingDistributionWithTags+    , module Network.AWS.CloudFront.CreateStreamingDistributionWithTags+     -- ** GetDistribution     , module Network.AWS.CloudFront.GetDistribution @@ -236,6 +257,9 @@     -- ** GetCloudFrontOriginAccessIdentity     , module Network.AWS.CloudFront.GetCloudFrontOriginAccessIdentity +    -- ** TagResource+    , module Network.AWS.CloudFront.TagResource+     -- ** GetStreamingDistribution     , module Network.AWS.CloudFront.GetStreamingDistribution @@ -245,6 +269,9 @@     -- ** DeleteDistribution     , module Network.AWS.CloudFront.DeleteDistribution +    -- ** UntagResource+    , module Network.AWS.CloudFront.UntagResource+     -- ** ListDistributionsByWebACLId     , module Network.AWS.CloudFront.ListDistributionsByWebACLId @@ -259,6 +286,9 @@     -- ** GeoRestrictionType     , GeoRestrictionType (..) +    -- ** HTTPVersion+    , HTTPVersion (..)+     -- ** ItemSelection     , ItemSelection (..) @@ -418,6 +448,7 @@     , Distribution     , distribution     , dId+    , dARN     , dStatus     , dLastModifiedTime     , dInProgressInvalidationBatches@@ -428,6 +459,7 @@     -- ** DistributionConfig     , DistributionConfig     , distributionConfig+    , dcHTTPVersion     , dcAliases     , dcDefaultRootObject     , dcPriceClass@@ -443,6 +475,12 @@     , dcComment     , dcEnabled +    -- ** DistributionConfigWithTags+    , DistributionConfigWithTags+    , distributionConfigWithTags+    , dcwtDistributionConfig+    , dcwtTags+     -- ** DistributionList     , DistributionList     , distributionList@@ -457,6 +495,7 @@     , DistributionSummary     , distributionSummary     , dsId+    , dsARN     , dsStatus     , dsLastModifiedTime     , dsDomainName@@ -471,10 +510,12 @@     , dsViewerCertificate     , dsRestrictions     , dsWebACLId+    , dsHTTPVersion      -- ** ForwardedValues     , ForwardedValues     , forwardedValues+    , fvQueryStringCacheKeys     , fvHeaders     , fvQueryString     , fvCookies@@ -571,6 +612,12 @@     , pItems     , pQuantity +    -- ** QueryStringCacheKeys+    , QueryStringCacheKeys+    , queryStringCacheKeys+    , qsckItems+    , qsckQuantity+     -- ** Restrictions     , Restrictions     , restrictions@@ -598,6 +645,7 @@     , streamingDistribution     , sdLastModifiedTime     , sdId+    , sdARN     , sdStatus     , sdDomainName     , sdActiveTrustedSigners@@ -615,6 +663,12 @@     , sdcTrustedSigners     , sdcEnabled +    -- ** StreamingDistributionConfigWithTags+    , StreamingDistributionConfigWithTags+    , streamingDistributionConfigWithTags+    , sdcwtStreamingDistributionConfig+    , sdcwtTags+     -- ** StreamingDistributionList     , StreamingDistributionList     , streamingDistributionList@@ -629,6 +683,7 @@     , StreamingDistributionSummary     , streamingDistributionSummary     , sdsId+    , sdsARN     , sdsStatus     , sdsLastModifiedTime     , sdsDomainName@@ -646,6 +701,22 @@     , slcBucket     , slcPrefix +    -- ** Tag+    , Tag+    , tag+    , tagValue+    , tagKey++    -- ** TagKeys+    , TagKeys+    , tagKeys+    , tkItems++    -- ** Tags+    , Tags+    , tags+    , tItems+     -- ** TrustedSigners     , TrustedSigners     , trustedSigners@@ -667,8 +738,10 @@  import           Network.AWS.CloudFront.CreateCloudFrontOriginAccessIdentity import           Network.AWS.CloudFront.CreateDistribution+import           Network.AWS.CloudFront.CreateDistributionWithTags import           Network.AWS.CloudFront.CreateInvalidation import           Network.AWS.CloudFront.CreateStreamingDistribution+import           Network.AWS.CloudFront.CreateStreamingDistributionWithTags import           Network.AWS.CloudFront.DeleteCloudFrontOriginAccessIdentity import           Network.AWS.CloudFront.DeleteDistribution import           Network.AWS.CloudFront.DeleteStreamingDistribution@@ -684,7 +757,10 @@ import           Network.AWS.CloudFront.ListDistributionsByWebACLId import           Network.AWS.CloudFront.ListInvalidations import           Network.AWS.CloudFront.ListStreamingDistributions+import           Network.AWS.CloudFront.ListTagsForResource+import           Network.AWS.CloudFront.TagResource import           Network.AWS.CloudFront.Types+import           Network.AWS.CloudFront.UntagResource import           Network.AWS.CloudFront.UpdateCloudFrontOriginAccessIdentity import           Network.AWS.CloudFront.UpdateDistribution import           Network.AWS.CloudFront.UpdateStreamingDistribution

@@ -90,7 +90,7 @@          CreateCloudFrontOriginAccessIdentity where         toElement           = mkElement-              "{http://cloudfront.amazonaws.com/doc/2016-01-28/}CloudFrontOriginAccessIdentityConfig"+              "{http://cloudfront.amazonaws.com/doc/2016-09-07/}CloudFrontOriginAccessIdentityConfig"               .               _ccfoaiCloudFrontOriginAccessIdentityConfig @@ -102,7 +102,7 @@          where         toPath           = const-              "/2016-01-28/origin-access-identity/cloudfront"+              "/2016-09-07/origin-access-identity/cloudfront"  instance ToQuery CreateCloudFrontOriginAccessIdentity          where

@@ -87,7 +87,7 @@ instance ToElement CreateDistribution where         toElement           = mkElement-              "{http://cloudfront.amazonaws.com/doc/2016-01-28/}DistributionConfig"+              "{http://cloudfront.amazonaws.com/doc/2016-09-07/}DistributionConfig"               .               _cdDistributionConfig @@ -95,7 +95,7 @@         toHeaders = const mempty  instance ToPath CreateDistribution where-        toPath = const "/2016-01-28/distribution"+        toPath = const "/2016-09-07/distribution"  instance ToQuery CreateDistribution where         toQuery = const mempty

@@ -0,0 +1,151 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.CloudFront.CreateDistributionWithTags+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Create a new distribution with tags.+module Network.AWS.CloudFront.CreateDistributionWithTags+    (+    -- * Creating a Request+      createDistributionWithTags+    , CreateDistributionWithTags+    -- * Request Lenses+    , cdwtDistributionConfigWithTags++    -- * Destructuring the Response+    , createDistributionWithTagsResponse+    , CreateDistributionWithTagsResponse+    -- * Response Lenses+    , cdwtrsETag+    , cdwtrsDistribution+    , cdwtrsLocation+    , cdwtrsResponseStatus+    ) where++import           Network.AWS.CloudFront.Types+import           Network.AWS.CloudFront.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | The request to create a new distribution with tags+--+-- /See:/ 'createDistributionWithTags' smart constructor.+newtype CreateDistributionWithTags = CreateDistributionWithTags'+    { _cdwtDistributionConfigWithTags :: DistributionConfigWithTags+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateDistributionWithTags' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cdwtDistributionConfigWithTags'+createDistributionWithTags+    :: DistributionConfigWithTags -- ^ 'cdwtDistributionConfigWithTags'+    -> CreateDistributionWithTags+createDistributionWithTags pDistributionConfigWithTags_ =+    CreateDistributionWithTags'+    { _cdwtDistributionConfigWithTags = pDistributionConfigWithTags_+    }++-- | The distribution\'s configuration information.+cdwtDistributionConfigWithTags :: Lens' CreateDistributionWithTags DistributionConfigWithTags+cdwtDistributionConfigWithTags = lens _cdwtDistributionConfigWithTags (\ s a -> s{_cdwtDistributionConfigWithTags = a});++instance AWSRequest CreateDistributionWithTags where+        type Rs CreateDistributionWithTags =+             CreateDistributionWithTagsResponse+        request = postXML cloudFront+        response+          = receiveXML+              (\ s h x ->+                 CreateDistributionWithTagsResponse' <$>+                   (h .#? "ETag") <*> (parseXML x) <*>+                     (h .#? "Location")+                     <*> (pure (fromEnum s)))++instance Hashable CreateDistributionWithTags++instance NFData CreateDistributionWithTags++instance ToElement CreateDistributionWithTags where+        toElement+          = mkElement+              "{http://cloudfront.amazonaws.com/doc/2016-09-07/}DistributionConfigWithTags"+              .+              _cdwtDistributionConfigWithTags++instance ToHeaders CreateDistributionWithTags where+        toHeaders = const mempty++instance ToPath CreateDistributionWithTags where+        toPath = const "/2016-09-07/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)+    , _cdwtrsDistribution   :: !(Maybe Distribution)+    , _cdwtrsLocation       :: !(Maybe Text)+    , _cdwtrsResponseStatus :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateDistributionWithTagsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cdwtrsETag'+--+-- * 'cdwtrsDistribution'+--+-- * 'cdwtrsLocation'+--+-- * 'cdwtrsResponseStatus'+createDistributionWithTagsResponse+    :: Int -- ^ 'cdwtrsResponseStatus'+    -> CreateDistributionWithTagsResponse+createDistributionWithTagsResponse pResponseStatus_ =+    CreateDistributionWithTagsResponse'+    { _cdwtrsETag = Nothing+    , _cdwtrsDistribution = Nothing+    , _cdwtrsLocation = Nothing+    , _cdwtrsResponseStatus = pResponseStatus_+    }++-- | The current version of the distribution created.+cdwtrsETag :: Lens' CreateDistributionWithTagsResponse (Maybe Text)+cdwtrsETag = lens _cdwtrsETag (\ s a -> s{_cdwtrsETag = a});++-- | 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.+cdwtrsLocation :: Lens' CreateDistributionWithTagsResponse (Maybe Text)+cdwtrsLocation = lens _cdwtrsLocation (\ s a -> s{_cdwtrsLocation = a});++-- | The response status code.+cdwtrsResponseStatus :: Lens' CreateDistributionWithTagsResponse Int+cdwtrsResponseStatus = lens _cdwtrsResponseStatus (\ s a -> s{_cdwtrsResponseStatus = a});++instance NFData CreateDistributionWithTagsResponse

@@ -95,7 +95,7 @@ instance ToElement CreateInvalidation where         toElement           = mkElement-              "{http://cloudfront.amazonaws.com/doc/2016-01-28/}InvalidationBatch"+              "{http://cloudfront.amazonaws.com/doc/2016-09-07/}InvalidationBatch"               .               _ciInvalidationBatch @@ -105,7 +105,7 @@ instance ToPath CreateInvalidation where         toPath CreateInvalidation'{..}           = mconcat-              ["/2016-01-28/distribution/", toBS _ciDistributionId,+              ["/2016-09-07/distribution/", toBS _ciDistributionId,                "/invalidation"]  instance ToQuery CreateInvalidation where

@@ -87,7 +87,7 @@ instance ToElement CreateStreamingDistribution where         toElement           = mkElement-              "{http://cloudfront.amazonaws.com/doc/2016-01-28/}StreamingDistributionConfig"+              "{http://cloudfront.amazonaws.com/doc/2016-09-07/}StreamingDistributionConfig"               .               _csdStreamingDistributionConfig @@ -95,7 +95,7 @@         toHeaders = const mempty  instance ToPath CreateStreamingDistribution where-        toPath = const "/2016-01-28/streaming-distribution"+        toPath = const "/2016-09-07/streaming-distribution"  instance ToQuery CreateStreamingDistribution where         toQuery = const mempty

@@ -0,0 +1,157 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.CloudFront.CreateStreamingDistributionWithTags+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Create a new streaming distribution with tags.+module Network.AWS.CloudFront.CreateStreamingDistributionWithTags+    (+    -- * Creating a Request+      createStreamingDistributionWithTags+    , CreateStreamingDistributionWithTags+    -- * Request Lenses+    , csdwtStreamingDistributionConfigWithTags++    -- * Destructuring the Response+    , createStreamingDistributionWithTagsResponse+    , CreateStreamingDistributionWithTagsResponse+    -- * Response Lenses+    , csdwtrsETag+    , csdwtrsLocation+    , csdwtrsStreamingDistribution+    , csdwtrsResponseStatus+    ) where++import           Network.AWS.CloudFront.Types+import           Network.AWS.CloudFront.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | The request to create a new streaming distribution with tags.+--+-- /See:/ 'createStreamingDistributionWithTags' smart constructor.+newtype CreateStreamingDistributionWithTags = CreateStreamingDistributionWithTags'+    { _csdwtStreamingDistributionConfigWithTags :: StreamingDistributionConfigWithTags+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateStreamingDistributionWithTags' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'csdwtStreamingDistributionConfigWithTags'+createStreamingDistributionWithTags+    :: StreamingDistributionConfigWithTags -- ^ 'csdwtStreamingDistributionConfigWithTags'+    -> CreateStreamingDistributionWithTags+createStreamingDistributionWithTags pStreamingDistributionConfigWithTags_ =+    CreateStreamingDistributionWithTags'+    { _csdwtStreamingDistributionConfigWithTags = pStreamingDistributionConfigWithTags_+    }++-- | The streaming distribution\'s configuration information.+csdwtStreamingDistributionConfigWithTags :: Lens' CreateStreamingDistributionWithTags StreamingDistributionConfigWithTags+csdwtStreamingDistributionConfigWithTags = lens _csdwtStreamingDistributionConfigWithTags (\ s a -> s{_csdwtStreamingDistributionConfigWithTags = a});++instance AWSRequest+         CreateStreamingDistributionWithTags where+        type Rs CreateStreamingDistributionWithTags =+             CreateStreamingDistributionWithTagsResponse+        request = postXML cloudFront+        response+          = receiveXML+              (\ s h x ->+                 CreateStreamingDistributionWithTagsResponse' <$>+                   (h .#? "ETag") <*> (h .#? "Location") <*>+                     (parseXML x)+                     <*> (pure (fromEnum s)))++instance Hashable CreateStreamingDistributionWithTags++instance NFData CreateStreamingDistributionWithTags++instance ToElement+         CreateStreamingDistributionWithTags where+        toElement+          = mkElement+              "{http://cloudfront.amazonaws.com/doc/2016-09-07/}StreamingDistributionConfigWithTags"+              .+              _csdwtStreamingDistributionConfigWithTags++instance ToHeaders+         CreateStreamingDistributionWithTags where+        toHeaders = const mempty++instance ToPath CreateStreamingDistributionWithTags+         where+        toPath = const "/2016-09-07/streaming-distribution"++instance ToQuery CreateStreamingDistributionWithTags+         where+        toQuery = const (mconcat ["WithTags"])++-- | The returned result of the corresponding request.+--+-- /See:/ 'createStreamingDistributionWithTagsResponse' smart constructor.+data CreateStreamingDistributionWithTagsResponse = CreateStreamingDistributionWithTagsResponse'+    { _csdwtrsETag                  :: !(Maybe Text)+    , _csdwtrsLocation              :: !(Maybe Text)+    , _csdwtrsStreamingDistribution :: !(Maybe StreamingDistribution)+    , _csdwtrsResponseStatus        :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateStreamingDistributionWithTagsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'csdwtrsETag'+--+-- * 'csdwtrsLocation'+--+-- * 'csdwtrsStreamingDistribution'+--+-- * 'csdwtrsResponseStatus'+createStreamingDistributionWithTagsResponse+    :: Int -- ^ 'csdwtrsResponseStatus'+    -> CreateStreamingDistributionWithTagsResponse+createStreamingDistributionWithTagsResponse pResponseStatus_ =+    CreateStreamingDistributionWithTagsResponse'+    { _csdwtrsETag = Nothing+    , _csdwtrsLocation = Nothing+    , _csdwtrsStreamingDistribution = Nothing+    , _csdwtrsResponseStatus = pResponseStatus_+    }++-- | The current version of the streaming distribution created.+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.+csdwtrsLocation :: Lens' CreateStreamingDistributionWithTagsResponse (Maybe Text)+csdwtrsLocation = lens _csdwtrsLocation (\ s a -> s{_csdwtrsLocation = a});++-- | The streaming distribution\'s information.+csdwtrsStreamingDistribution :: Lens' CreateStreamingDistributionWithTagsResponse (Maybe StreamingDistribution)+csdwtrsStreamingDistribution = lens _csdwtrsStreamingDistribution (\ s a -> s{_csdwtrsStreamingDistribution = a});++-- | The response status code.+csdwtrsResponseStatus :: Lens' CreateStreamingDistributionWithTagsResponse Int+csdwtrsResponseStatus = lens _csdwtrsResponseStatus (\ s a -> s{_csdwtrsResponseStatus = a});++instance NFData+         CreateStreamingDistributionWithTagsResponse

@@ -95,7 +95,7 @@          where         toPath DeleteCloudFrontOriginAccessIdentity'{..}           = mconcat-              ["/2016-01-28/origin-access-identity/cloudfront/",+              ["/2016-09-07/origin-access-identity/cloudfront/",                toBS _dcfoaiId]  instance ToQuery DeleteCloudFrontOriginAccessIdentity

@@ -88,7 +88,7 @@  instance ToPath DeleteDistribution where         toPath DeleteDistribution'{..}-          = mconcat ["/2016-01-28/distribution/", toBS _ddId]+          = mconcat ["/2016-09-07/distribution/", toBS _ddId]  instance ToQuery DeleteDistribution where         toQuery = const mempty

@@ -90,7 +90,7 @@ instance ToPath DeleteStreamingDistribution where         toPath DeleteStreamingDistribution'{..}           = mconcat-              ["/2016-01-28/streaming-distribution/", toBS _dsdId]+              ["/2016-09-07/streaming-distribution/", toBS _dsdId]  instance ToQuery DeleteStreamingDistribution where         toQuery = const mempty

@@ -91,7 +91,7 @@          where         toPath GetCloudFrontOriginAccessIdentity'{..}           = mconcat-              ["/2016-01-28/origin-access-identity/cloudfront/",+              ["/2016-09-07/origin-access-identity/cloudfront/",                toBS _gcfoaiId]  instance ToQuery GetCloudFrontOriginAccessIdentity

@@ -93,7 +93,7 @@          GetCloudFrontOriginAccessIdentityConfig where         toPath GetCloudFrontOriginAccessIdentityConfig'{..}           = mconcat-              ["/2016-01-28/origin-access-identity/cloudfront/",+              ["/2016-09-07/origin-access-identity/cloudfront/",                toBS _gcfoaicId, "/config"]  instance ToQuery

@@ -86,7 +86,7 @@  instance ToPath GetDistribution where         toPath GetDistribution'{..}-          = mconcat ["/2016-01-28/distribution/", toBS _gdId]+          = mconcat ["/2016-09-07/distribution/", toBS _gdId]  instance ToQuery GetDistribution where         toQuery = const mempty

@@ -88,7 +88,7 @@ instance ToPath GetDistributionConfig where         toPath GetDistributionConfig'{..}           = mconcat-              ["/2016-01-28/distribution/", toBS _gdcId, "/config"]+              ["/2016-09-07/distribution/", toBS _gdcId, "/config"]  instance ToQuery GetDistributionConfig where         toQuery = const mempty

@@ -95,7 +95,7 @@ instance ToPath GetInvalidation where         toPath GetInvalidation'{..}           = mconcat-              ["/2016-01-28/distribution/", toBS _giDistributionId,+              ["/2016-09-07/distribution/", toBS _giDistributionId,                "/invalidation/", toBS _giId]  instance ToQuery GetInvalidation where

@@ -88,7 +88,7 @@ instance ToPath GetStreamingDistribution where         toPath GetStreamingDistribution'{..}           = mconcat-              ["/2016-01-28/streaming-distribution/", toBS _gsdId]+              ["/2016-09-07/streaming-distribution/", toBS _gsdId]  instance ToQuery GetStreamingDistribution where         toQuery = const mempty

@@ -90,7 +90,7 @@ instance ToPath GetStreamingDistributionConfig where         toPath GetStreamingDistributionConfig'{..}           = mconcat-              ["/2016-01-28/streaming-distribution/", toBS _gsdcId,+              ["/2016-09-07/streaming-distribution/", toBS _gsdcId,                "/config"]  instance ToQuery GetStreamingDistributionConfig where

@@ -121,7 +121,7 @@          where         toPath           = const-              "/2016-01-28/origin-access-identity/cloudfront"+              "/2016-09-07/origin-access-identity/cloudfront"  instance ToQuery ListCloudFrontOriginAccessIdentities          where

@@ -106,7 +106,7 @@         toHeaders = const mempty  instance ToPath ListDistributions where-        toPath = const "/2016-01-28/distribution"+        toPath = const "/2016-09-07/distribution"  instance ToQuery ListDistributions where         toQuery ListDistributions'{..}

@@ -104,7 +104,7 @@ instance ToPath ListDistributionsByWebACLId where         toPath ListDistributionsByWebACLId'{..}           = mconcat-              ["/2016-01-28/distributionsByWebACLId/",+              ["/2016-09-07/distributionsByWebACLId/",                toBS _ldbwaiWebACLId]  instance ToQuery ListDistributionsByWebACLId where

@@ -118,7 +118,7 @@ instance ToPath ListInvalidations where         toPath ListInvalidations'{..}           = mconcat-              ["/2016-01-28/distribution/", toBS _liDistributionId,+              ["/2016-09-07/distribution/", toBS _liDistributionId,                "/invalidation"]  instance ToQuery ListInvalidations where

@@ -113,7 +113,7 @@         toHeaders = const mempty  instance ToPath ListStreamingDistributions where-        toPath = const "/2016-01-28/streaming-distribution"+        toPath = const "/2016-09-07/streaming-distribution"  instance ToQuery ListStreamingDistributions where         toQuery ListStreamingDistributions'{..}

@@ -0,0 +1,126 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.CloudFront.ListTagsForResource+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- List tags for a CloudFront resource.+module Network.AWS.CloudFront.ListTagsForResource+    (+    -- * Creating a Request+      listTagsForResource+    , ListTagsForResource+    -- * Request Lenses+    , ltfrResource++    -- * Destructuring the Response+    , listTagsForResourceResponse+    , ListTagsForResourceResponse+    -- * Response Lenses+    , ltfrrsResponseStatus+    , ltfrrsTags+    ) where++import           Network.AWS.CloudFront.Types+import           Network.AWS.CloudFront.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | The request to list tags for a CloudFront resource.+--+-- /See:/ 'listTagsForResource' smart constructor.+newtype ListTagsForResource = ListTagsForResource'+    { _ltfrResource :: Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ListTagsForResource' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ltfrResource'+listTagsForResource+    :: Text -- ^ 'ltfrResource'+    -> ListTagsForResource+listTagsForResource pResource_ =+    ListTagsForResource'+    { _ltfrResource = pResource_+    }++-- | An ARN of a CloudFront resource.+ltfrResource :: Lens' ListTagsForResource Text+ltfrResource = lens _ltfrResource (\ s a -> s{_ltfrResource = a});++instance AWSRequest ListTagsForResource where+        type Rs ListTagsForResource =+             ListTagsForResourceResponse+        request = get cloudFront+        response+          = receiveXML+              (\ s h x ->+                 ListTagsForResourceResponse' <$>+                   (pure (fromEnum s)) <*> (parseXML x))++instance Hashable ListTagsForResource++instance NFData ListTagsForResource++instance ToHeaders ListTagsForResource where+        toHeaders = const mempty++instance ToPath ListTagsForResource where+        toPath = const "/2016-09-07/tagging"++instance ToQuery ListTagsForResource where+        toQuery ListTagsForResource'{..}+          = mconcat ["Resource" =: _ltfrResource]++-- | The returned result of the corresponding request.+--+-- /See:/ 'listTagsForResourceResponse' smart constructor.+data ListTagsForResourceResponse = ListTagsForResourceResponse'+    { _ltfrrsResponseStatus :: !Int+    , _ltfrrsTags           :: !Tags+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ListTagsForResourceResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ltfrrsResponseStatus'+--+-- * 'ltfrrsTags'+listTagsForResourceResponse+    :: Int -- ^ 'ltfrrsResponseStatus'+    -> Tags -- ^ 'ltfrrsTags'+    -> ListTagsForResourceResponse+listTagsForResourceResponse pResponseStatus_ pTags_ =+    ListTagsForResourceResponse'+    { _ltfrrsResponseStatus = pResponseStatus_+    , _ltfrrsTags = pTags_+    }++-- | 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.+ltfrrsTags :: Lens' ListTagsForResourceResponse Tags+ltfrrsTags = lens _ltfrrsTags (\ s a -> s{_ltfrrsTags = a});++instance NFData ListTagsForResourceResponse

@@ -0,0 +1,114 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.CloudFront.TagResource+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Add tags to a CloudFront resource.+module Network.AWS.CloudFront.TagResource+    (+    -- * Creating a Request+      tagResource+    , TagResource+    -- * Request Lenses+    , trResource+    , trTags++    -- * Destructuring the Response+    , tagResourceResponse+    , TagResourceResponse+    ) where++import           Network.AWS.CloudFront.Types+import           Network.AWS.CloudFront.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | The request to add tags to a CloudFront resource.+--+-- /See:/ 'tagResource' smart constructor.+data TagResource = TagResource'+    { _trResource :: !Text+    , _trTags     :: !Tags+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'TagResource' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'trResource'+--+-- * 'trTags'+tagResource+    :: Text -- ^ 'trResource'+    -> Tags -- ^ 'trTags'+    -> TagResource+tagResource pResource_ pTags_ =+    TagResource'+    { _trResource = pResource_+    , _trTags = pTags_+    }++-- | An ARN of a CloudFront resource.+trResource :: Lens' TagResource Text+trResource = lens _trResource (\ s a -> s{_trResource = a});++-- | A complex type that contains zero or more Tag elements.+trTags :: Lens' TagResource Tags+trTags = lens _trTags (\ s a -> s{_trTags = a});++instance AWSRequest TagResource where+        type Rs TagResource = TagResourceResponse+        request = postXML cloudFront+        response = receiveNull TagResourceResponse'++instance Hashable TagResource++instance NFData TagResource++instance ToElement TagResource where+        toElement+          = mkElement+              "{http://cloudfront.amazonaws.com/doc/2016-09-07/}Tags"+              .+              _trTags++instance ToHeaders TagResource where+        toHeaders = const mempty++instance ToPath TagResource where+        toPath = const "/2016-09-07/tagging"++instance ToQuery TagResource where+        toQuery TagResource'{..}+          = mconcat+              ["Resource" =: _trResource, "Operation=Tag"]++-- | /See:/ 'tagResourceResponse' smart constructor.+data TagResourceResponse =+    TagResourceResponse'+    deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'TagResourceResponse' with the minimum fields required to make a request.+--+tagResourceResponse+    :: TagResourceResponse+tagResourceResponse = TagResourceResponse'++instance NFData TagResourceResponse

@@ -17,6 +17,7 @@      -- * Errors     , _TooManyOriginCustomHeaders+    , _InvalidTagging     , _InvalidErrorCode     , _TooManyCacheBehaviors     , _TooManyCloudFrontOriginAccessIdentities@@ -27,6 +28,7 @@     , _InvalidArgument     , _TooManyInvalidationsInProgress     , _InvalidWebACLId+    , _TooManyQueryStringParameters     , _TooManyDistributionCNAMEs     , _NoSuchCloudFrontOriginAccessIdentity     , _CloudFrontOriginAccessIdentityInUse@@ -41,11 +43,13 @@     , _InvalidTTLOrder     , _StreamingDistributionNotDisabled     , _TooManyHeadersInForwardedValues+    , _NoSuchResource     , _TooManyStreamingDistributionCNAMEs     , _InvalidRequiredProtocol     , _TooManyDistributions     , _TooManyCertificates     , _DistributionAlreadyExists+    , _InvalidQueryStringParameters     , _MissingBody     , _IllegalUpdate     , _InvalidIfMatchVersion@@ -73,6 +77,9 @@     -- * GeoRestrictionType     , GeoRestrictionType (..) +    -- * HTTPVersion+    , HTTPVersion (..)+     -- * ItemSelection     , ItemSelection (..) @@ -232,6 +239,7 @@     , Distribution     , distribution     , dId+    , dARN     , dStatus     , dLastModifiedTime     , dInProgressInvalidationBatches@@ -242,6 +250,7 @@     -- * DistributionConfig     , DistributionConfig     , distributionConfig+    , dcHTTPVersion     , dcAliases     , dcDefaultRootObject     , dcPriceClass@@ -257,6 +266,12 @@     , dcComment     , dcEnabled +    -- * DistributionConfigWithTags+    , DistributionConfigWithTags+    , distributionConfigWithTags+    , dcwtDistributionConfig+    , dcwtTags+     -- * DistributionList     , DistributionList     , distributionList@@ -271,6 +286,7 @@     , DistributionSummary     , distributionSummary     , dsId+    , dsARN     , dsStatus     , dsLastModifiedTime     , dsDomainName@@ -285,10 +301,12 @@     , dsViewerCertificate     , dsRestrictions     , dsWebACLId+    , dsHTTPVersion      -- * ForwardedValues     , ForwardedValues     , forwardedValues+    , fvQueryStringCacheKeys     , fvHeaders     , fvQueryString     , fvCookies@@ -385,6 +403,12 @@     , pItems     , pQuantity +    -- * QueryStringCacheKeys+    , QueryStringCacheKeys+    , queryStringCacheKeys+    , qsckItems+    , qsckQuantity+     -- * Restrictions     , Restrictions     , restrictions@@ -412,6 +436,7 @@     , streamingDistribution     , sdLastModifiedTime     , sdId+    , sdARN     , sdStatus     , sdDomainName     , sdActiveTrustedSigners@@ -429,6 +454,12 @@     , sdcTrustedSigners     , sdcEnabled +    -- * StreamingDistributionConfigWithTags+    , StreamingDistributionConfigWithTags+    , streamingDistributionConfigWithTags+    , sdcwtStreamingDistributionConfig+    , sdcwtTags+     -- * StreamingDistributionList     , StreamingDistributionList     , streamingDistributionList@@ -443,6 +474,7 @@     , StreamingDistributionSummary     , streamingDistributionSummary     , sdsId+    , sdsARN     , sdsStatus     , sdsLastModifiedTime     , sdsDomainName@@ -460,6 +492,22 @@     , slcBucket     , slcPrefix +    -- * Tag+    , Tag+    , tag+    , tagValue+    , tagKey++    -- * TagKeys+    , TagKeys+    , tagKeys+    , tkItems++    -- * Tags+    , Tags+    , tags+    , tItems+     -- * TrustedSigners     , TrustedSigners     , trustedSigners@@ -485,14 +533,14 @@ import           Network.AWS.Prelude import           Network.AWS.Sign.V4 --- | API version '2016-01-28' of the Amazon CloudFront SDK configuration.+-- | API version '2016-09-07' of the Amazon CloudFront SDK configuration. cloudFront :: Service cloudFront =     Service     { _svcAbbrev = "CloudFront"     , _svcSigner = v4     , _svcPrefix = "cloudfront"-    , _svcVersion = "2016-01-28"+    , _svcVersion = "2016-09-07"     , _svcEndpoint = defaultEndpoint cloudFront     , _svcTimeout = Just 70     , _svcCheck = statusSuccess@@ -524,6 +572,10 @@ _TooManyOriginCustomHeaders =     _ServiceError . hasStatus 400 . hasCode "TooManyOriginCustomHeaders" +-- | The specified tagging for a CloudFront resource is invalid. For more information, see the error text.+_InvalidTagging :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidTagging = _ServiceError . hasStatus 400 . hasCode "InvalidTagging"+ -- | Prism for InvalidErrorCode' errors. _InvalidErrorCode :: AsError a => Getting (First ServiceError) a ServiceError _InvalidErrorCode = _ServiceError . hasStatus 400 . hasCode "InvalidErrorCode"@@ -572,6 +624,11 @@ _InvalidWebACLId :: AsError a => Getting (First ServiceError) a ServiceError _InvalidWebACLId = _ServiceError . hasStatus 400 . hasCode "InvalidWebACLId" +-- | Prism for TooManyQueryStringParameters' errors.+_TooManyQueryStringParameters :: AsError a => Getting (First ServiceError) a ServiceError+_TooManyQueryStringParameters =+    _ServiceError . hasStatus 400 . hasCode "TooManyQueryStringParameters"+ -- | Your request contains more CNAMEs than are allowed per distribution. _TooManyDistributionCNAMEs :: AsError a => Getting (First ServiceError) a ServiceError _TooManyDistributionCNAMEs =@@ -640,6 +697,10 @@ _TooManyHeadersInForwardedValues =     _ServiceError . hasStatus 400 . hasCode "TooManyHeadersInForwardedValues" +-- | The specified CloudFront resource does not exist.+_NoSuchResource :: AsError a => Getting (First ServiceError) a ServiceError+_NoSuchResource = _ServiceError . hasStatus 404 . hasCode "NoSuchResource"+ -- | Prism for TooManyStreamingDistributionCNAMEs' errors. _TooManyStreamingDistributionCNAMEs :: AsError a => Getting (First ServiceError) a ServiceError _TooManyStreamingDistributionCNAMEs =@@ -665,6 +726,11 @@ _DistributionAlreadyExists :: AsError a => Getting (First ServiceError) a ServiceError _DistributionAlreadyExists =     _ServiceError . hasStatus 409 . hasCode "DistributionAlreadyExists"++-- | Prism for InvalidQueryStringParameters' errors.+_InvalidQueryStringParameters :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidQueryStringParameters =+    _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

@@ -1129,6 +1129,7 @@ -- /See:/ 'distribution' smart constructor. data Distribution = Distribution'     { _dId                            :: !Text+    , _dARN                           :: !Text     , _dStatus                        :: !Text     , _dLastModifiedTime              :: !ISO8601     , _dInProgressInvalidationBatches :: !Int@@ -1143,6 +1144,8 @@ -- -- * 'dId' --+-- * 'dARN'+-- -- * 'dStatus' -- -- * 'dLastModifiedTime'@@ -1156,6 +1159,7 @@ -- * 'dDistributionConfig' distribution     :: Text -- ^ 'dId'+    -> Text -- ^ 'dARN'     -> Text -- ^ 'dStatus'     -> UTCTime -- ^ 'dLastModifiedTime'     -> Int -- ^ 'dInProgressInvalidationBatches'@@ -1163,9 +1167,10 @@     -> ActiveTrustedSigners -- ^ 'dActiveTrustedSigners'     -> DistributionConfig -- ^ 'dDistributionConfig'     -> Distribution-distribution pId_ pStatus_ pLastModifiedTime_ pInProgressInvalidationBatches_ pDomainName_ pActiveTrustedSigners_ pDistributionConfig_ =+distribution pId_ pARN_ pStatus_ pLastModifiedTime_ pInProgressInvalidationBatches_ pDomainName_ pActiveTrustedSigners_ pDistributionConfig_ =     Distribution'     { _dId = pId_+    , _dARN = pARN_     , _dStatus = pStatus_     , _dLastModifiedTime = _Time # pLastModifiedTime_     , _dInProgressInvalidationBatches = pInProgressInvalidationBatches_@@ -1178,6 +1183,10 @@ 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});@@ -1205,7 +1214,7 @@ instance FromXML Distribution where         parseXML x           = Distribution' <$>-              (x .@ "Id") <*> (x .@ "Status") <*>+              (x .@ "Id") <*> (x .@ "ARN") <*> (x .@ "Status") <*>                 (x .@ "LastModifiedTime")                 <*> (x .@ "InProgressInvalidationBatches")                 <*> (x .@ "DomainName")@@ -1220,7 +1229,8 @@ -- -- /See:/ 'distributionConfig' smart constructor. data DistributionConfig = DistributionConfig'-    { _dcAliases              :: !(Maybe Aliases)+    { _dcHTTPVersion          :: !(Maybe HTTPVersion)+    , _dcAliases              :: !(Maybe Aliases)     , _dcDefaultRootObject    :: !(Maybe Text)     , _dcPriceClass           :: !(Maybe PriceClass)     , _dcCustomErrorResponses :: !(Maybe CustomErrorResponses)@@ -1240,6 +1250,8 @@ -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'dcHTTPVersion'+-- -- * 'dcAliases' -- -- * 'dcDefaultRootObject'@@ -1276,7 +1288,8 @@     -> DistributionConfig distributionConfig pCallerReference_ pOrigins_ pDefaultCacheBehavior_ pComment_ pEnabled_ =     DistributionConfig'-    { _dcAliases = Nothing+    { _dcHTTPVersion = Nothing+    , _dcAliases = Nothing     , _dcDefaultRootObject = Nothing     , _dcPriceClass = Nothing     , _dcCustomErrorResponses = Nothing@@ -1292,6 +1305,10 @@     , _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});@@ -1351,8 +1368,9 @@ instance FromXML DistributionConfig where         parseXML x           = DistributionConfig' <$>-              (x .@? "Aliases") <*> (x .@? "DefaultRootObject") <*>-                (x .@? "PriceClass")+              (x .@? "HttpVersion") <*> (x .@? "Aliases") <*>+                (x .@? "DefaultRootObject")+                <*> (x .@? "PriceClass")                 <*> (x .@? "CustomErrorResponses")                 <*> (x .@? "WebACLId")                 <*> (x .@? "ViewerCertificate")@@ -1372,7 +1390,8 @@ instance ToXML DistributionConfig where         toXML DistributionConfig'{..}           = mconcat-              ["Aliases" @= _dcAliases,+              ["HttpVersion" @= _dcHTTPVersion,+               "Aliases" @= _dcAliases,                "DefaultRootObject" @= _dcDefaultRootObject,                "PriceClass" @= _dcPriceClass,                "CustomErrorResponses" @= _dcCustomErrorResponses,@@ -1386,6 +1405,49 @@                "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.@@ -1473,6 +1535,7 @@ -- /See:/ 'distributionSummary' smart constructor. data DistributionSummary = DistributionSummary'     { _dsId                   :: !Text+    , _dsARN                  :: !Text     , _dsStatus               :: !Text     , _dsLastModifiedTime     :: !ISO8601     , _dsDomainName           :: !Text@@ -1487,6 +1550,7 @@     , _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.@@ -1495,6 +1559,8 @@ -- -- * 'dsId' --+-- * 'dsARN'+-- -- * 'dsStatus' -- -- * 'dsLastModifiedTime'@@ -1522,8 +1588,11 @@ -- * 'dsRestrictions' -- -- * 'dsWebACLId'+--+-- * 'dsHTTPVersion' distributionSummary     :: Text -- ^ 'dsId'+    -> Text -- ^ 'dsARN'     -> Text -- ^ 'dsStatus'     -> UTCTime -- ^ 'dsLastModifiedTime'     -> Text -- ^ 'dsDomainName'@@ -1538,10 +1607,12 @@     -> ViewerCertificate -- ^ 'dsViewerCertificate'     -> Restrictions -- ^ 'dsRestrictions'     -> Text -- ^ 'dsWebACLId'+    -> HTTPVersion -- ^ 'dsHTTPVersion'     -> DistributionSummary-distributionSummary pId_ pStatus_ pLastModifiedTime_ pDomainName_ pAliases_ pOrigins_ pDefaultCacheBehavior_ pCacheBehaviors_ pCustomErrorResponses_ pComment_ pPriceClass_ pEnabled_ pViewerCertificate_ pRestrictions_ pWebACLId_ =+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_@@ -1556,12 +1627,17 @@     , _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});@@ -1618,10 +1694,14 @@ 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 .@ "Status") <*>+              (x .@ "Id") <*> (x .@ "ARN") <*> (x .@ "Status") <*>                 (x .@ "LastModifiedTime")                 <*> (x .@ "DomainName")                 <*> (x .@ "Aliases")@@ -1635,6 +1715,7 @@                 <*> (x .@ "ViewerCertificate")                 <*> (x .@ "Restrictions")                 <*> (x .@ "WebACLId")+                <*> (x .@ "HttpVersion")  instance Hashable DistributionSummary @@ -1644,15 +1725,18 @@ -- -- /See:/ 'forwardedValues' smart constructor. data ForwardedValues = ForwardedValues'-    { _fvHeaders     :: !(Maybe Headers)-    , _fvQueryString :: !Bool-    , _fvCookies     :: !CookiePreference+    { _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'@@ -1664,16 +1748,25 @@     -> ForwardedValues forwardedValues pQueryString_ pCookies_ =     ForwardedValues'-    { _fvHeaders = Nothing+    { _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. If so, specify true; if not, specify false.+-- | 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}); @@ -1684,8 +1777,9 @@ instance FromXML ForwardedValues where         parseXML x           = ForwardedValues' <$>-              (x .@? "Headers") <*> (x .@ "QueryString") <*>-                (x .@ "Cookies")+              (x .@? "QueryStringCacheKeys") <*> (x .@? "Headers")+                <*> (x .@ "QueryString")+                <*> (x .@ "Cookies")  instance Hashable ForwardedValues @@ -1694,7 +1788,8 @@ instance ToXML ForwardedValues where         toXML ForwardedValues'{..}           = mconcat-              ["Headers" @= _fvHeaders,+              ["QueryStringCacheKeys" @= _fvQueryStringCacheKeys,+               "Headers" @= _fvHeaders,                "QueryString" @= _fvQueryString,                "Cookies" @= _fvCookies] @@ -2447,6 +2542,53 @@               ["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.@@ -2614,6 +2756,7 @@ data StreamingDistribution = StreamingDistribution'     { _sdLastModifiedTime            :: !(Maybe ISO8601)     , _sdId                          :: !Text+    , _sdARN                         :: !Text     , _sdStatus                      :: !Text     , _sdDomainName                  :: !Text     , _sdActiveTrustedSigners        :: !ActiveTrustedSigners@@ -2628,6 +2771,8 @@ -- -- * 'sdId' --+-- * 'sdARN'+-- -- * 'sdStatus' -- -- * 'sdDomainName'@@ -2637,15 +2782,17 @@ -- * 'sdStreamingDistributionConfig' streamingDistribution     :: Text -- ^ 'sdId'+    -> Text -- ^ 'sdARN'     -> Text -- ^ 'sdStatus'     -> Text -- ^ 'sdDomainName'     -> ActiveTrustedSigners -- ^ 'sdActiveTrustedSigners'     -> StreamingDistributionConfig -- ^ 'sdStreamingDistributionConfig'     -> StreamingDistribution-streamingDistribution pId_ pStatus_ pDomainName_ pActiveTrustedSigners_ pStreamingDistributionConfig_ =+streamingDistribution pId_ pARN_ pStatus_ pDomainName_ pActiveTrustedSigners_ pStreamingDistributionConfig_ =     StreamingDistribution'     { _sdLastModifiedTime = Nothing     , _sdId = pId_+    , _sdARN = pARN_     , _sdStatus = pStatus_     , _sdDomainName = pDomainName_     , _sdActiveTrustedSigners = pActiveTrustedSigners_@@ -2660,6 +2807,10 @@ 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});@@ -2680,7 +2831,8 @@         parseXML x           = StreamingDistribution' <$>               (x .@? "LastModifiedTime") <*> (x .@ "Id") <*>-                (x .@ "Status")+                (x .@ "ARN")+                <*> (x .@ "Status")                 <*> (x .@ "DomainName")                 <*> (x .@ "ActiveTrustedSigners")                 <*> (x .@ "StreamingDistributionConfig")@@ -2799,6 +2951,51 @@                "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.@@ -2886,6 +3083,7 @@ -- /See:/ 'streamingDistributionSummary' smart constructor. data StreamingDistributionSummary = StreamingDistributionSummary'     { _sdsId               :: !Text+    , _sdsARN              :: !Text     , _sdsStatus           :: !Text     , _sdsLastModifiedTime :: !ISO8601     , _sdsDomainName       :: !Text@@ -2903,6 +3101,8 @@ -- -- * 'sdsId' --+-- * 'sdsARN'+-- -- * 'sdsStatus' -- -- * 'sdsLastModifiedTime'@@ -2922,6 +3122,7 @@ -- * 'sdsEnabled' streamingDistributionSummary     :: Text -- ^ 'sdsId'+    -> Text -- ^ 'sdsARN'     -> Text -- ^ 'sdsStatus'     -> UTCTime -- ^ 'sdsLastModifiedTime'     -> Text -- ^ 'sdsDomainName'@@ -2932,9 +3133,10 @@     -> PriceClass -- ^ 'sdsPriceClass'     -> Bool -- ^ 'sdsEnabled'     -> StreamingDistributionSummary-streamingDistributionSummary pId_ pStatus_ pLastModifiedTime_ pDomainName_ pS3Origin_ pAliases_ pTrustedSigners_ pComment_ pPriceClass_ pEnabled_ =+streamingDistributionSummary pId_ pARN_ pStatus_ pLastModifiedTime_ pDomainName_ pS3Origin_ pAliases_ pTrustedSigners_ pComment_ pPriceClass_ pEnabled_ =     StreamingDistributionSummary'     { _sdsId = pId_+    , _sdsARN = pARN_     , _sdsStatus = pStatus_     , _sdsLastModifiedTime = _Time # pLastModifiedTime_     , _sdsDomainName = pDomainName_@@ -2950,6 +3152,10 @@ 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});@@ -2989,7 +3195,7 @@ instance FromXML StreamingDistributionSummary where         parseXML x           = StreamingDistributionSummary' <$>-              (x .@ "Id") <*> (x .@ "Status") <*>+              (x .@ "Id") <*> (x .@ "ARN") <*> (x .@ "Status") <*>                 (x .@ "LastModifiedTime")                 <*> (x .@ "DomainName")                 <*> (x .@ "S3Origin")@@ -3060,6 +3266,120 @@           = 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. --

@@ -83,6 +83,35 @@ instance ToXML GeoRestrictionType where     toXML = toXMLText +data HTTPVersion+    = HTTP1_1+    | HTTP2+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)++instance FromText HTTPVersion where+    parser = takeLowerText >>= \case+        "http1.1" -> pure HTTP1_1+        "http2" -> pure HTTP2+        e -> fromTextError $ "Failure parsing HTTPVersion from value: '" <> e+           <> "'. Accepted values: http1.1, http2"++instance ToText HTTPVersion where+    toText = \case+        HTTP1_1 -> "http1.1"+        HTTP2 -> "http2"++instance Hashable     HTTPVersion+instance NFData       HTTPVersion+instance ToByteString HTTPVersion+instance ToQuery      HTTPVersion+instance ToHeader     HTTPVersion++instance FromXML HTTPVersion where+    parseXML = parseXMLText "HTTPVersion"++instance ToXML HTTPVersion where+    toXML = toXMLText+ data ItemSelection     = ISAll     | ISNone@@ -135,7 +164,7 @@         "post" -> pure Post         "put" -> pure Put         e -> fromTextError $ "Failure parsing Method from value: '" <> e-           <> "'. Accepted values: DELETE, GET, HEAD, OPTIONS, PATCH, POST, PUT"+           <> "'. Accepted values: delete, get, head, options, patch, post, put"  instance ToText Method where     toText = \case@@ -169,7 +198,7 @@         "sslv3" -> pure MPVSSLV3         "tlsv1" -> pure MPVTLSV1         e -> fromTextError $ "Failure parsing MinimumProtocolVersion from value: '" <> e-           <> "'. Accepted values: SSLv3, TLSv1"+           <> "'. Accepted values: sslv3, tlsv1"  instance ToText MinimumProtocolVersion where     toText = \case@@ -232,7 +261,7 @@         "priceclass_200" -> pure PriceClass200         "priceclass_all" -> pure PriceClassAll         e -> fromTextError $ "Failure parsing PriceClass from value: '" <> e-           <> "'. Accepted values: PriceClass_100, PriceClass_200, PriceClass_All"+           <> "'. Accepted values: priceclass_100, priceclass_200, priceclass_all"  instance ToText PriceClass where     toText = \case@@ -266,7 +295,7 @@         "tlsv1.1" -> pure TLSV1_1         "tlsv1.2" -> pure TLSV1_2         e -> fromTextError $ "Failure parsing SSLProtocol from value: '" <> e-           <> "'. Accepted values: SSLv3, TLSv1, TLSv1.1, TLSv1.2"+           <> "'. Accepted values: sslv3, tlsv1, tlsv1.1, tlsv1.2"  instance ToText SSLProtocol where     toText = \case

@@ -0,0 +1,114 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.CloudFront.UntagResource+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Remove tags from a CloudFront resource.+module Network.AWS.CloudFront.UntagResource+    (+    -- * Creating a Request+      untagResource+    , UntagResource+    -- * Request Lenses+    , urResource+    , urTagKeys++    -- * Destructuring the Response+    , untagResourceResponse+    , UntagResourceResponse+    ) where++import           Network.AWS.CloudFront.Types+import           Network.AWS.CloudFront.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | The request to remove tags from a CloudFront resource.+--+-- /See:/ 'untagResource' smart constructor.+data UntagResource = UntagResource'+    { _urResource :: !Text+    , _urTagKeys  :: !TagKeys+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'UntagResource' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'urResource'+--+-- * 'urTagKeys'+untagResource+    :: Text -- ^ 'urResource'+    -> TagKeys -- ^ 'urTagKeys'+    -> UntagResource+untagResource pResource_ pTagKeys_ =+    UntagResource'+    { _urResource = pResource_+    , _urTagKeys = pTagKeys_+    }++-- | An ARN of a CloudFront resource.+urResource :: Lens' UntagResource Text+urResource = lens _urResource (\ s a -> s{_urResource = a});++-- | A complex type that contains zero or more Tag key elements.+urTagKeys :: Lens' UntagResource TagKeys+urTagKeys = lens _urTagKeys (\ s a -> s{_urTagKeys = a});++instance AWSRequest UntagResource where+        type Rs UntagResource = UntagResourceResponse+        request = postXML cloudFront+        response = receiveNull UntagResourceResponse'++instance Hashable UntagResource++instance NFData UntagResource++instance ToElement UntagResource where+        toElement+          = mkElement+              "{http://cloudfront.amazonaws.com/doc/2016-09-07/}TagKeys"+              .+              _urTagKeys++instance ToHeaders UntagResource where+        toHeaders = const mempty++instance ToPath UntagResource where+        toPath = const "/2016-09-07/tagging"++instance ToQuery UntagResource where+        toQuery UntagResource'{..}+          = mconcat+              ["Resource" =: _urResource, "Operation=Untag"]++-- | /See:/ 'untagResourceResponse' smart constructor.+data UntagResourceResponse =+    UntagResourceResponse'+    deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'UntagResourceResponse' with the minimum fields required to make a request.+--+untagResourceResponse+    :: UntagResourceResponse+untagResourceResponse = UntagResourceResponse'++instance NFData UntagResourceResponse

@@ -107,7 +107,7 @@          UpdateCloudFrontOriginAccessIdentity where         toElement           = mkElement-              "{http://cloudfront.amazonaws.com/doc/2016-01-28/}CloudFrontOriginAccessIdentityConfig"+              "{http://cloudfront.amazonaws.com/doc/2016-09-07/}CloudFrontOriginAccessIdentityConfig"               .               _ucfoaiCloudFrontOriginAccessIdentityConfig @@ -120,7 +120,7 @@          where         toPath UpdateCloudFrontOriginAccessIdentity'{..}           = mconcat-              ["/2016-01-28/origin-access-identity/cloudfront/",+              ["/2016-09-07/origin-access-identity/cloudfront/",                toBS _ucfoaiId, "/config"]  instance ToQuery UpdateCloudFrontOriginAccessIdentity

@@ -104,7 +104,7 @@ instance ToElement UpdateDistribution where         toElement           = mkElement-              "{http://cloudfront.amazonaws.com/doc/2016-01-28/}DistributionConfig"+              "{http://cloudfront.amazonaws.com/doc/2016-09-07/}DistributionConfig"               .               _udDistributionConfig @@ -115,7 +115,7 @@ instance ToPath UpdateDistribution where         toPath UpdateDistribution'{..}           = mconcat-              ["/2016-01-28/distribution/", toBS _udId, "/config"]+              ["/2016-09-07/distribution/", toBS _udId, "/config"]  instance ToQuery UpdateDistribution where         toQuery = const mempty

@@ -104,7 +104,7 @@ instance ToElement UpdateStreamingDistribution where         toElement           = mkElement-              "{http://cloudfront.amazonaws.com/doc/2016-01-28/}StreamingDistributionConfig"+              "{http://cloudfront.amazonaws.com/doc/2016-09-07/}StreamingDistributionConfig"               .               _usdStreamingDistributionConfig @@ -115,7 +115,7 @@ instance ToPath UpdateStreamingDistribution where         toPath UpdateStreamingDistribution'{..}           = mconcat-              ["/2016-01-28/streaming-distribution/", toBS _usdId,+              ["/2016-09-07/streaming-distribution/", toBS _usdId,                "/config"]  instance ToQuery UpdateStreamingDistribution where

@@ -34,12 +34,21 @@ --         , requestUpdateStreamingDistribution $ --             updateStreamingDistribution --+--         , requestListTagsForResource $+--             listTagsForResource+--+--         , requestCreateDistributionWithTags $+--             createDistributionWithTags+-- --         , requestCreateDistribution $ --             createDistribution -- --         , requestGetDistributionConfig $ --             getDistributionConfig --+--         , requestCreateStreamingDistributionWithTags $+--             createStreamingDistributionWithTags+-- --         , requestGetDistribution $ --             getDistribution --@@ -79,6 +88,9 @@ --         , requestGetCloudFrontOriginAccessIdentity $ --             getCloudFrontOriginAccessIdentity --+--         , requestTagResource $+--             tagResource+-- --         , requestGetStreamingDistribution $ --             getStreamingDistribution --@@ -88,6 +100,9 @@ --         , requestDeleteDistribution $ --             deleteDistribution --+--         , requestUntagResource $+--             untagResource+-- --         , requestListDistributionsByWebACLId $ --             listDistributionsByWebACLId --@@ -103,12 +118,21 @@ --         , responseUpdateStreamingDistribution $ --             updateStreamingDistributionResponse --+--         , responseListTagsForResource $+--             listTagsForResourceResponse+--+--         , responseCreateDistributionWithTags $+--             createDistributionWithTagsResponse+-- --         , responseCreateDistribution $ --             createDistributionResponse -- --         , responseGetDistributionConfig $ --             getDistributionConfigResponse --+--         , responseCreateStreamingDistributionWithTags $+--             createStreamingDistributionWithTagsResponse+-- --         , responseGetDistribution $ --             getDistributionResponse --@@ -148,6 +172,9 @@ --         , responseGetCloudFrontOriginAccessIdentity $ --             getCloudFrontOriginAccessIdentityResponse --+--         , responseTagResource $+--             tagResourceResponse+-- --         , responseGetStreamingDistribution $ --             getStreamingDistributionResponse --@@ -157,6 +184,9 @@ --         , responseDeleteDistribution $ --             deleteDistributionResponse --+--         , responseUntagResource $+--             untagResourceResponse+-- --         , responseListDistributionsByWebACLId $ --             listDistributionsByWebACLIdResponse --@@ -178,6 +208,16 @@     "UpdateStreamingDistribution"     "fixture/UpdateStreamingDistribution.yaml" +requestListTagsForResource :: ListTagsForResource -> TestTree+requestListTagsForResource = req+    "ListTagsForResource"+    "fixture/ListTagsForResource.yaml"++requestCreateDistributionWithTags :: CreateDistributionWithTags -> TestTree+requestCreateDistributionWithTags = req+    "CreateDistributionWithTags"+    "fixture/CreateDistributionWithTags.yaml"+ requestCreateDistribution :: CreateDistribution -> TestTree requestCreateDistribution = req     "CreateDistribution"@@ -188,6 +228,11 @@     "GetDistributionConfig"     "fixture/GetDistributionConfig.yaml" +requestCreateStreamingDistributionWithTags :: CreateStreamingDistributionWithTags -> TestTree+requestCreateStreamingDistributionWithTags = req+    "CreateStreamingDistributionWithTags"+    "fixture/CreateStreamingDistributionWithTags.yaml"+ requestGetDistribution :: GetDistribution -> TestTree requestGetDistribution = req     "GetDistribution"@@ -253,6 +298,11 @@     "GetCloudFrontOriginAccessIdentity"     "fixture/GetCloudFrontOriginAccessIdentity.yaml" +requestTagResource :: TagResource -> TestTree+requestTagResource = req+    "TagResource"+    "fixture/TagResource.yaml"+ requestGetStreamingDistribution :: GetStreamingDistribution -> TestTree requestGetStreamingDistribution = req     "GetStreamingDistribution"@@ -268,6 +318,11 @@     "DeleteDistribution"     "fixture/DeleteDistribution.yaml" +requestUntagResource :: UntagResource -> TestTree+requestUntagResource = req+    "UntagResource"+    "fixture/UntagResource.yaml"+ requestListDistributionsByWebACLId :: ListDistributionsByWebACLId -> TestTree requestListDistributionsByWebACLId = req     "ListDistributionsByWebACLId"@@ -294,6 +349,20 @@     cloudFront     (Proxy :: Proxy UpdateStreamingDistribution) +responseListTagsForResource :: ListTagsForResourceResponse -> TestTree+responseListTagsForResource = res+    "ListTagsForResourceResponse"+    "fixture/ListTagsForResourceResponse.proto"+    cloudFront+    (Proxy :: Proxy ListTagsForResource)++responseCreateDistributionWithTags :: CreateDistributionWithTagsResponse -> TestTree+responseCreateDistributionWithTags = res+    "CreateDistributionWithTagsResponse"+    "fixture/CreateDistributionWithTagsResponse.proto"+    cloudFront+    (Proxy :: Proxy CreateDistributionWithTags)+ responseCreateDistribution :: CreateDistributionResponse -> TestTree responseCreateDistribution = res     "CreateDistributionResponse"@@ -308,6 +377,13 @@     cloudFront     (Proxy :: Proxy GetDistributionConfig) +responseCreateStreamingDistributionWithTags :: CreateStreamingDistributionWithTagsResponse -> TestTree+responseCreateStreamingDistributionWithTags = res+    "CreateStreamingDistributionWithTagsResponse"+    "fixture/CreateStreamingDistributionWithTagsResponse.proto"+    cloudFront+    (Proxy :: Proxy CreateStreamingDistributionWithTags)+ responseGetDistribution :: GetDistributionResponse -> TestTree responseGetDistribution = res     "GetDistributionResponse"@@ -399,6 +475,13 @@     cloudFront     (Proxy :: Proxy GetCloudFrontOriginAccessIdentity) +responseTagResource :: TagResourceResponse -> TestTree+responseTagResource = res+    "TagResourceResponse"+    "fixture/TagResourceResponse.proto"+    cloudFront+    (Proxy :: Proxy TagResource)+ responseGetStreamingDistribution :: GetStreamingDistributionResponse -> TestTree responseGetStreamingDistribution = res     "GetStreamingDistributionResponse"@@ -419,6 +502,13 @@     "fixture/DeleteDistributionResponse.proto"     cloudFront     (Proxy :: Proxy DeleteDistribution)++responseUntagResource :: UntagResourceResponse -> TestTree+responseUntagResource = res+    "UntagResourceResponse"+    "fixture/UntagResourceResponse.proto"+    cloudFront+    (Proxy :: Proxy UntagResource)  responseListDistributionsByWebACLId :: ListDistributionsByWebACLIdResponse -> TestTree responseListDistributionsByWebACLId = res